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L 

ASSEMBLY  AMD  OPERATION  INFORMATION  USEP*S  PAGE  NO.  1 EO 

R 00001 

R 0000  2 

THIS  LGC  PROGRAM  IS  INTENDED  FDR  USE  IN  THE  LM  DURING  THE  MANNED  LUNAR  LANDING  MISSION  OR  ANY  SUBSET  THEREOF. 

THE  DETAILS  IMPLEMENTATION  ARE  SPECIFIED  IN  PEP  1 R-567,  AS  AMENDED. 

R 0000  25 
R 00003 

R 000035 

GUIDANCE  SYSTEM  OPERATIONS  PLAN 

FOR  MANNED  LM  EARTH  ORBITAL  AND  LUNAR  MISSIONS 

USING  PROGRAM  LUMINARY 

o 00004 

R 000  0'-- 
ROCOOA 

THIS  i %‘AM  AMD  ■ t 7 HAVE  BEE1  P .EPARED  BY  THE  INSTRUMENTATION  LABORATORY,  MASSACHUSETTS  INSTITUTE  OF 

TECHNOLOGY  75  CAMBRIDGE  PARKWAY,  CAMBRIDGE,  MASSACHUSETTS  UNDER  PRO JECT 5 5-23 8-70 , SPONSORED  BY  THE  MANNED 

SPAfFC  AF  7 CENT  Ec  F HE  A MAI  AERONAUTICS  AND  SPACE  ADM  I N T STF AT  I ON , CONTRACT  MAS  9-4065. 

R 00007 

THIS  PROGRAM  IS  REFERRED  TO  AS  LUMINARY  1A 

GAP:  ASSEMBLE  KEVI3I3N  001  OF  AGC  PROGRAM  AP11RGPE  BY  EYLES 

L ASSEMBLY  AND  OPERATION  1 "FORMATION 

R 0001  TABIF  OF  LOG  CAROS 

R 000  2 ASSEMBLY  AMD  OPERATION  INFORMATION 

R 000  3 TAGS  FIT  RELATIVE  SETLOC  AND  BLANK  BANK  CARDS 

ROOD?  CONTROLLED  CONSTANTS 

R 000''-.  I NPIIT  /ruJTPUT  CHA1  if : F:L  BIT  DESCRIPTIONS 
P 000  7 FLAGWOPD  ASSIGNMENTS 

ROOOP  SUBROUTINE  CALLS 


R 0009 

r ooi  r 
R 00 1 1 
R 001  2 
R 001  3 
R 00 1 ^ 
R 001  c' 
R001A 
R0017 
R 001  R 
R 00  IS 
R 0020 
R 002  1 
R 002? 
R 002  3 
R 00? 'i 
R 002  5 
R 002  - 
R00?7 
R002P 
R 002  ~ 
R 0030 
R 003  1 
R 003  2 
R 003  3 
R 003^ 
R 0035 
R 0036 
R 00  3 7 
R 0038 
R 003° 
R 004  0 
R 0041 
R0042 
R 0043 
R 004  t. 
R0045 
R004F 
R 0047 
R004B 


TABLE  OF  SUBROUTINE  LOG  SFCTTQNS 
LUMFR ASF 

ERASABLE  ASSIGNMENTS 
LEMOMAID 

INTERRUPT  LEAD  INS 
T4RUPT  PROGRAM 
PCS  F A 1 1 UR  E M'-NITOf 
DOWNLINK  ITCTS 
AGS  INITIALIZATION 
FRESH  START  AND  RESTART 
RESTART  TABLES 
A "TO ARK 

EXTENDED  VERBS 
PINBALL  NOUN  TABLES 
LEM  GECMETRY 

I MU  CCMPENS  ATI  UN  PACKAGE 
. Rt  3 

ATTITUDE  MANEUVER  ROUTINE 
GIMBAL  LOCK  AVOIDANCE 
KALCMANU  STEEPING 
SYSTEM  TEST  STANDARD  LEAD  INS 
I MU  PERFORMANCE  TESTS  2 
I MU  PERFQI-.  NANCE  TESTS  4 
PINBALL  GAMFS  BUTTONS  AND  LIGHTS 
R60 » P 62 

S-  3 AK'D  A ' TENNA  FTP  LM 

LEMP2 OS 

P ADAF  LEADIN  ROUTINES 
P20-P25  • 

L F ° 3 0 S 

e 3 0 * P 3 7 

P32-P3S,  P7  2-P7 

GENERAL  LAMBERT  AIMPOINT  GUIDANCE 

KISSING 

GRUUND  TRACKING  DETERMINATION  PROGRAM 
R34-P35,  P74-P7S 
- 31 
P7f> 

R 30 

STABLE  Ok  BIT  - P38-P39 
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L ASSEMBLY  AMO  OPERATION  INFORMATION 


R 0049 
R005C 
R 003  1 
R 0052 
ROCS'3 
R 00  V 
R 0055 
ROO^? 
R.0057 
R 00?  R 
ROC?0 
P006C 
R 0061 
R 006  2 
R 006  3 
R 006^ 
R 006  5 
R 0066 
R 0067 
R006R 
R 006  9 
R 0070 
R 007  1 
R 007  2 
R 007  3 
R 007  4 
ROOTS 
R 007  6 
R 0077 
R 007  8 
R 007  9 
R 0080 
R 0081 
R 008  2 
R OOP  3 
R 003/- 
R 008? 
R 0086 
R 0087 
R 008  P 
R 008  9 
R 009  0 
R ' 
R 0092 
R 0093 
R 0094 
R 009? 
R 00°  6 
R 0097 
R 0098 


FLY 

BURN,  BABY,  BURN  — MASTER  IGNITION  ROUTINE 
3:40- P4  7 

THE  LUNAR  LANDING 

THROTTLE  CONTROL  ROUTINES 

LUNA?  L'ANDIMO  GUIDANCE  EQUATIONS 

P70-P71 

P12 

ASCENT  GUIDANCE 
SF  VICE' 

LANDING  ANALOG  DISPLAYS 
F T N DC  0 ' ) W - CUTDAf  T Tl  U ACE 

LEMP50S 

P51-P53 

LUi . A!  Al'O  SOLA,-  FPHEME..  IDES  SUB:  CUTINES 

SKIPPER 

O'  W N-  r EL  EM  E TRY  PLUG  AM 
I! TEC-8ANK  COMMUNICATION 

INTERPRETER 

FIXED-FIXED  CONSTANT  POOL 
INTERPRETIVE  CONSTANTS 
SINGLE  PRECISION  SUBROUTINES 

EXECUTIVE 
W A 1 T L 1ST 

LATITUDE  LONGITUDE  SUBROUTINES 
PLANETARY  INERTIAL  ORIENTATION 
MEASUREMENT  INCUR, PUL  AT  I ON 
CONIC  SUBROUTINES 
INTEGRATION  INITIALIZATION 
ORBITAL  INTEGRATION 
TNF1  I GHT  ALIGNMENT  ROUTINES 
POWERED  FLIGHT  SUBROUTINES 
TIME  OF  FREE  FALL 
AGC  BLOCK  TWO  SELF-CHECK 
PHASE  T A BL F MAINTENANCE 
RESTARTS  ROUTINE 
I HU  MODE  SWITCHING  ROUTINES 
KEYRUPT,  IJPRUPT 
DISPLAY  INTEL  FACE  ROUTINES 
SERVICE  ROUTINES 
ALARM  AND  ABORT 
UPDATE  PROGRAM 
RTB  OP  CODES 

LMDAP 

TA-RUPT  PRC  GRAMS 
DAP  INTERFACE  SUBROUTINES 
DAP IDLER  PROG?  A v 
P-AXIS  PCS  AUTOPILOT 
QjR.-AXIS  CCS  AUTOPILOT 
TJET  LAW 
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USER  • 


,1570  (MAIN) 

S PAGE  NO.  3 


PAGE  3 
EO 


L 


AP  : 


R 009° 
R0100 
R 010 1 
R 0 102 


R 0103 
R0104 
P.0105 
R0106 
R 0107 
ROino 
R 0100 
R 0 1 10 
Ron  i 
R 0 1 1 2 


ASE  bit  >•('  VISION  f u 1 y AGC  PROG  am  AP110GP|  BY  EYLES 
ASSEMBLY  AND  3P£R  AT  I r N INFORMATION 

KAI MAN  FILTER 

TRIM  GIMBAL  CONTFOL  SYSTEM 

AOSTASK  AND  AOSJOB 

SPS  BACK-UP  ^CS  CONTROL 


SYMBOL  TABLE  LISTING 

UNREFERENCED  SYMBOL  LISTING 

ERAS A CL  C £ EQUALS  CROSS-REFERENCE  TABLE 

SUMMARY  l;F  SYMR01  TABLE  LISTINGS 

memory  ~yre  & availablity  display 

COUNT  TAB!  F 

PARAGRAPHS  GENERATED  FOR  THIS  ASSEMBl.Y 
OCTAL  LISTING 
OCCUPIED  LOCATIONS  TABLE 
SU8R0S  CALLED  £ PROGRAM  STATUS 
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EO 
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USER'S  PAGE  NO.  1 EO 
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GAP  : 

L 

PGll  1 

RQ11* 

R 01 1 c 
°01U 
R0117 
R0118 
RQ119 
R012C 
R 0 12 1 
R 0 1 ? 2 
R 01 2 3 
P0124 
R 012  5 
R 0 1 2 4 
R 0 12  7 
o ni2« 
R 0129 
R 0130 
R 0131 
S 0132 
R 0 1 3 3 
R 01 3^ 
R 0135 
R 0 1 36 
R0137 
R 0 1 3 ■ 
R 0 1 39 
ROl^O 
R 014  1 
R 0142 
R 0 1 3 
R 0144 
R01<+5 
R 0 1 1-  4 
R 0 147 
R 0148 
R 0 1 4 9 
R 0 1 5 0 
R 0 1 3 1 
R019? 
R 0 1 5 3 
R 0 1 S4 


ASSEMBLE  RE V I S I 3R g 00 1 OF  AGC  PR  U GRAM  AP11R0PE  BY  EYLES 
ASS  EMBLY  AND  3 PE 0 AT  I ON  IN60R  M AT  I ON 
VERB  LIST  FOR  LUMINARY 
REGULAR  VERBS 


00 

01 

02 

03 

04 

05 

06 

07 

08 

09 

10 
11 
12 

13 

14 

15 

16 

17 

18 

1 Q 
20 
21 
22 

2 3 

24 

25 

26 

27 

28 
2 9 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 


NOT  IN  USE 

DISPLAY  OCTAL  COMP  1 IN  PI 
DISPLAY  OCTAL  COMP  2 IN  R1 
DISPLAY  OCTAL  COMP  3 IN  R1 
DISPLAY  OCTAL  CONI  1,2  IN  ;.1,L2 
DISPLAY  OCTAL  COMP  1,2,3  IN  1 , R2,R3 


DISPLAY  DECIMAL  IN 
DISPLAY  DP  DEC.tm/si 


1 o:  R 1 » R 2 OR  R 1 , P.  2 , R 3 
TP  <1,6?  ( TEST  ONI  Y) 


MONITOR  OCTAL  COMP  1 IN  R1 
MONITOR  OCTAL  CO* P 2 IN  R1 

o N I T O P n c T At  C 0 M P 3 IN  ' ] 

M0M1T0F  OCTAL  COMP  1,2  IN  RI,R2 
MONITOR  OCTAL  CCMP  1,2,3  IN  R1,R2,R3 
MONITOR  DECIMAL  IN  K1  OP  R1,R2  OR  R1,R2,R3 
TTOr'  DP  DECIMAL  If  1,2  (FES',  ONLY) 


LOAD  COMPONENT  1 INTO  R1 
LOAD  COMPONENT  2 INTO  R2 
l PAD  COMPONENT  3 I NT  R3 
L 'AD  COMPONENT  1,2  I!  TO  -1,32 
LOAD  COMPONFMT  1,2,3  INTO  P1,P2,P3 


DISPLAY  FIXED  MEMORY 


REQUEST  EXECUTIVE 

SEQUENT  WAT  TL T ST 

RECYCLE  PROGRAM 

PROCEED  WITHOUT  DSKY  INPUTS 

TET  TIN  ATE  FUNCTION 

TEST  L IGHTS 

PE  QUEST  FRESH  START 

CHANCE  PROGRAM  ( ' A T - MODE ) 
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USER' 
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GAP.:  ASSEMBLE  . E V 1 S 1 3 1 . 001  OF  AGC  PROGRAM  API  IP  OPE  BY  EYLES 

L ASS  F "BLY  AND  3 PEP  AT  IjCN  I ! .FUR  V AT  IPN 

P 015 5 EXTENDED  VEPBS 


R 0156 
ROI  57 
R 0 1 5 8 
R 0 1 5 c 
R 0 1 6 0 
P OK.  1 
R0162 
R 0 1 6 3 
ROl  64 
R016r 
R 0 1 6 6 
R 0167 
R 0168 
R 0 1 6 9 
R 0170 
R 01  7 1 
R 017  2 
R 01 7 3 
R0174 
R 01 7 ' 
R017C 
R 0177 
R 0 1 78 
R 0 1 7 r 
RCT1B0 
ROl  81 
R 0182 
R 0183 
P 01 
R 0 1 8 5 
B II 
R 0 1 8 7 
R 0 1 8 8 
i 

R 0 19  0 
R 019  1 
R 0192 
R 0 1 9 3 
R 0 1 - • 

R 0198 
R 0196 
R01°7 
R 0 1 
R 01  9C 
R 0200 
R 0201 
R 0202 
R 0203 


AO 
A 1 
A2 
A3 

AA 
A5 
A6 
A 7 
A 8 
AO 

50 

51 

52 

53 
5 A 
65 

56 

57 


ZERO  CDU-S 

COARSE  ALIGN  CQU-S 

FINE  ALIGN  I MU 

in  IP*  Mil  ATT  Focnp  METERS 

TERMINATE  RR  CONTINUOUS  DFSIGNA1 


E (VA1N72  OPTION  2) 


62 

63 

6 A 

65 

66 

67 

68 

69 

70 

71 

72 

73 
7A 

75 

76 

7 7 

78 

79 

80 
81 
82 
83 
8A 

85 

86 
87 


INITIALIZE  AG-  (1471 
REQUEST  UAC  DATA  LOAD  ROUTINE  (R03) 

REQUEST  CRFV  DEFINED  MANFUVER  ROUTINE  (R62) 

PLEASE  PERFORM 

MARK  X -RETICLE 
MARK  Y-  RETICLE 

MAP  K X HP  V— OCT  I CL  F 

INCREMENT  AGC  T I v £ (RFC  I MALI 
TERMINATE  TRACKING  ( P20  + P25) 

PERMIT  LANDING  RADAR  UPDATES 

/ — v— ) r—  a e • 

C ijlMMjf 
SP|> 

I AY  rOT  Al  A ITIT'JDI  E S W ITH  1 ESPEC  T Tl  OUM  22. 


LTF  TO 

? — 1 rune  i 


SAMPLE  RADAR 
DEQUES 

01  SABI 
VEHICL 
DISPLA 


PER  SECOND  (ROA). 
f-A—  A irvp.E  ( .05  ) 

FIRINGS  DURING  OPS  BURNS. 

0.  move  THIS  VEHICLE  STATE  TO  OTHER  VEHICLE 


CAUSE  RESTART 
UPDATE  LIFTOFF  TIME 

UNIVERSAL  IJPDATE-BLOCK  ADR 

UNIVERSAL  JP DAT E-S / NGL E ADR 

UPDATE  AGC  TIME  I r>CT A1  I 

INITIALIZE  ERASABLE  DUMP  VIA  DOWNLINK 

ENABLE  U AND  V JET  FIRINGS  DUPING  DPS  BURNS. 

MINIMUM  IMPULSE  COMMAND  MODE 

KATE  COMMAND  AND  ATTITUDE  HOLD  MODE 

I SPURIOUS  RETURN  TEST  START  I R 7T) 

LR  SPURIOUS  RETURN  TEST  STOP 
UPDATE  LEM  STATE  VECTOR 
UPDATE  CSM  STATE  VECTOR 
REQUEST  ORBIT  PAPAM  01  STL AY  (F30) 

* E DUES  T END  PA'  AM  DISPLAY  (031) 

DISPLAY  RR  LOS  AZ  AMD  ELEV 
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1 MAIN ) 

PAGE 
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USER'S  PAGE 
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EO 
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L ASSEMBLY  AMD  OPERATION 


AGC  PROGRAM  ApUhOPE  BY  EYLES 
INFORMATION 


R 0204 
R 0205 
R 020  6 
R 0207 
R 0208 

R 020° 

R 02 1 0 
R 02 1 1 
R 02 1 2 
R 02 1 3 
R 02 1 A 
P 02 1 5 


88 

39  REQUEST  RENDEZVOUS  FINAL  ATTITUDE  ROUTINE  (R63) 

90  : -EQUE S T RENDEZVOUS  OUT  OF  PLANE  DISPLAY  ROUTINE  (R36 
'1  DISPLAY  BANK  SUM 

‘-12  OPERATE  IMU  PERFORMANCE  TEST  I POT ) 

93  FIABLF  W MgTi>  j x TirTTflL  I ZATIOT 

94 

95  NO  UPDATE  np  E I THE  :,taTE  VECTOk  (P20  OP  P22  ) 

96  INTERRUPT  INTEGRATION  AND  GO  TO  POO 

97  PER  FUR  M EN5INF  FAIL  PROCEDURE 

98 

00  PLEASE  ENABIF  ENGINE 
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* 

L ASSEMBLY  AND  3 PE" ATICN  INFORMATION  USER'S  PAGE  NO.  8 

P 021 6 IN  THE  FOLLOWING  NOUN  LIST  THE  : NO  IOAD:  RESTRICTION  MEANS  THE  NOUN 

5 0217  CONTAINS  AT  LEAST  ONE  COMPONENT  WHICH  CAL  NOT  BE  LOADED,  I.E.  OF 
P 02 1 8 SCALE  TYPE  L (MIN/SEC),  PP  (2  INTEGERS)  OP  TT  (LANDING  RADAI  POSITION). 

R 021 9 IN  THIS  CASE  VERBS  24  AND  75  ART  NCT  ALLOWED,  BUT  VERBS  21,  22  OR  23 

R 0220  MAY  BE  USED  T3  LOAD  ANY  C F THE  NOUN:S  COMPONENTS  WHICH  ARE  NOT  CF  THE 
R 022 1 ABOVE  SCALE  TYPES. 

R 022 2 THE  : DEC  ONLY:  RESTRICTION  MEANS  ONLY  DECIMAL  OPERATION  IS  ALLOWED  ON 
R 0223  EVERY  COMPONENT  IN  THE  NOUN.  (NOTE  THAT  : NO  LOAD:  IMPLIES  :DEC  ONLY:.) 


R 0224  NORMAL  NO'JNS 


COMPONENTS  SCALE  AND  DECIMAL  POINT 


RESTRICTIONS 


R 0? 26 
R022  7 

00 

01 

NOT  I N 
SPECIFY 

USE 

MACHINE  ADDFESS  (FRACTIONAL) 

3C0MP 

. XXXXX 

FOR 

EACH 

R 0228 

02 

SPECIFY 

MACHINE  ADDRESS  (WHOLE) 

3C0MP 

XXXXX . 

FOR 

EACH 

R 022° 

03 

SPECIFY 

MACHINE  ADD  ESS  ( DEGREES ) 

3CCMP 

XXX. XX 

DEG 

FOR  EACH 

R 0230 

04 

ANGUL A R 

F f O'  / DI  FPL  b-T-CE 

1CCMP 

XXX. XX 

DEG 

R 023  1 

05 

ANGUL  AR 

ERROR /DIFFERENCE 

1 COM  P 

XXX. XX 

DEG 

R 023? 

06 

OPTION 

CODE 

3 Comp 

OCTAL 

ONLY 

FOR  EACH 

R 0 2 3 3 
R0234 
R023  5 
R 0236 
0 0237 
R 023° 
R 023° 
R 0240 
R.0242 
P 0244 
R 024-5 
R 024 1 
R 0247 
R 024  - 
R 025  1 
R 025  2 
p 02  53 
P 0254 
R 025  5 
R025C 
R 02  58 
p 02  ^ C 
R 026  1 
R 026? 
P.026  3 
P 0264 
P.  026  5 
R 0267 
R 0268 
R 026° 
R 027  1 
P 027 3 


LOADING  NOUN  07  WILL  SET  !U-  RESET  SELECTED  BITS  IN  ANY  ERASABLE  REGISTER 
07  ECADR  OF  WORD  TO  BE  MODIFIED  3C0MP 

TO  BE  -MODIFIED 
T<  RESET  SELECTED  BITS 


ECADR  OF  WORD 
ONES  FQf  BITS 
1 TO  SET  DP  0 
0 0 ALA'''-'  DATA 

0°  ALARM  CODES 

10  CHANNEL  To  BE 

11  T!G  OF  CSI 


OCTAL  ONLY  FOR  EACH 


SPECIFIED 


12  OPTION  CODE 

(LSED  BY  FXTENDED  VERBS  ONI  Y ) 

13  TIG  OF  CDH 


14  CHECKLIST 

(USED  BY  EXTENDED  VERBS  ONLY ) 
(NOUN  25  IS  PASTED  AFTER  DISPLAY) 

15  INCREMENT  MACHINE  ADDRESS 

16  TIME  OF  EVENT 

i USE  D BY  EXTENDED  VERBS  ONLY) 

17  SPARE 

IP  A I 'TH  MANEUVER  BALL  ANGLES 

19  SPARE 

20  I CDU  ANGLES 

21  PI  PAS 

22  NEW  ICOU  ANGLES 

23  SPARE 

24  DEI TA  TIME  F ’ AGC  Ct  OCK 


3COM P OCTAL  ONLY  FP  . EACH 

3CPMP  OCTAL  ONL v F0P  EACH 

1 COM P OCTAL  ONLY 

3C0MP  OOXXX.  HRS 

COOXX.  MIN 
OXX.XX  SEC 

2C0MP  OCTAL  ONLY  FOR  EACH 

3C0MP  OOXXX.  HRS 

OOOXX.  MIN 
OXX.XX  SEC 

3COM  P X X X XX . FOP  EACH 


1 COMP  OCTAL  ONLY 

3COM  P OOXXX.  HRS 

OOOXX.  MIN 
OXX.XX  SEC 


3C0NF  XXX.  XX  DEG  FOR  EACH 

3C0MP  XXX. XX  DEG  FOR  EACH 

3CCMP  XXXXX.  PULSES  FOR  EACH 

3 COMP  XXX. XX  DEG  FOR  EACH 

3C0MP  OOXXX.  HRS 

OOOXX.  MIN 
OXX.XX  SEC 


DEC  ONLY 
MUST  LOAD  3 


DEC  ONLY 
MUST  LOAD  3 


DEC  ONLY 
MUST  LOAD  3 


DEC  ONLY 
MUST  LOAD  3 
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EO 


COMPS 

COMPS 


COMPS 


COMPS 
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R 027^  25 

R 027  c 
R 027  6 ? 

R 0277  2 7 

R 027  8 2° 

R 02_>c  2° 

R 0280  30 

R 028 1 31 

R02F2  32 

R 0234 
R 028  A 

R 0287  33 

R 028° 

R 029  1 

R 029  2 3 A 

R 02  -3  7 
R 029  6 

R 02°7  35 

R 0299 
R 0301 

R 030  2 36 

R03Q4 
R 0306 

R 0307  37 

R 0306 
R 03 1 1 

R 03 1 2 38 

» 031'- 
R 031  f 

R0317  39 


CHECKLIST 

( USE  0 WITH  PLEASE  PERFORM  ONLY) 
PR IOR I TY/DELAY  , AORES,  BBC ON 
SELF  TEST  Of-: /OFF  SWITCH 
S PARE 
SPARE 
SPARE 
SPARE 

TIME  FROM  PCRIGEl 


TIME  OF  IGNITION 


TIME  OF  EVENT 


TIME  FROM  EVENT 


TIME  OF  AGC  CLOCK 

TT  G ^ F TP  I 


T I AE  OF  STATE  BEING  INTEGRATED 

SPARE 


3 COMP  XXXXX.  FOE  EACH 

3 COMP  OCTAL  ONLY  FOR  EACH 

ICO HP  XXXXX. 


3 COMP  00 XXX.  HRS 

OO-JXX.  MIN 
OXX.XX  SEC 
3C0MP  OOXXX.  HP  S 
OOOXX.  MIN 
OXX.XX  SEC 
3 COMP  OOXXX.  HRS 
(00  XX.  MIN 
OXX.XX  SEC 
3C0MP  OOXXX.  HP  S 
OOOXX.  MIN 
OXX.XX  SEC 
3C0MP  OOXXX.  Hr S 
OOOXX.  MIN 
OXX.XX  SEC 
3 COMP  OOXXX.  HRS 
OOOXX.  MIN 
OXX.XX  SEC 
3C0MP  OOXXX.  HRS 
COO XX.  MIN 
OXX.XX  SEC 


DEC 

ONLY 

MUST 

DEC 

LOAD 

ONLY 

3 

COMPS 

MUST 

LOAD 

3 

COMPS 

DEC 

ONL  Y 

MUST 

LOAD 

3 

COMPS 

DEC 

ONLY 

MUST 

LOAD 

3 

COMPS 

DEC 

ONLY 

MUST 

LOAD 

3 

COMPS 

DEC 

ONLY 

MUST 

LOAD 

3 

COMPS 

DEC 

ONLY 

MUST 

LOAD 

3 

COMPS 
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R 0343 
R 0344 
P 0346 
R 0347 
P 034Q 
P 0350 
R 035? 
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P 0353 
R 0354 
R 035  6 
R 0357 
R0358 
R 0359 
R 036  1 
R 0362 
R 036  3 
R 036 5 
R 036  6 
R 0367 
R036S 
R 036R 
R 037  1 
R 0373 
R037P- 
R 037  5 
R 03  77 
p 037 ° 

R 0380 
R 038  1 
R 0383 
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MIXED  NOUNS 

40  TIME  FROM  IGNITION/CUTOFF 
VG, 

DELTA  V (ACCUMULATED) 

41  TARGET  azimuth, 

EL  EVATIOM 

42  APOGEE, 

PE  IGLE, 

DELTA  V (REQUIRED) 

43  LATITUDE, 

i ONGT TUOE , 

ALT ITUDE 

44  APOGEE, 

P E R IGEE, 

TFF 

4 5 MARKS  , 

TFT  OF  NEXT  BURN 
MGA 

46  AUTOPILOT  CONFIGURATION 

47  LEM  WEIGHT, 

CSM  WEIGHT 

48  GIM3AL  PITCH  TRIM, 

GIMBAL  ROLL  TRIM 

49  DELTA  R, 

DEI  TA  V, 

RADAR  DATA  SOURCE  CODE 

50  SPARE 

51  S-BAND  ANTENNA  ANGLES  PITCH 

YAW 

52  CENTRAL  ANGLE  OF  ACTIVE  VEHICLE 

53  SPARE 

54  RANGE, 

RANGE  RATE, 

T HETA 

55  . IF  APS  I DAL  CROSSINGS 
ELEVATION  ANGLE 

CENTRAL  ANGLE  OF  PASSIVE  VEHICLE 

56  RR,  LOS  AZIMUTH 

ELEVATION 

57  DELTA  R 

5 • PERIGEE  ALT  (POST  TPI  ) 

D E L TA  V TPI 
DELTA  V TP  F 

5.9  DELTA  VELOCITY  LOS 

60  HORIZONTAL  VELOCITY 
ALTITUDE  RATE 
COMPUTED  ALTITUDE 

61  TIME  TO  GO  IN  BRAKING  PHASE 
TIME  FROM  IGNITION 


COMPONENTS 

3C0MP 

2C0MP 
3 COMP 

3C0MP 

3C0MP 

3 COMP 

1C0MP 
2 COMP 

2 COMP 
3C0MP 

2C0MP 

1 COM  P 

3 CD  (sl  P 

3C0MP 

2 COMP 

ICO  M P 

3 COMP 

3 COMP 
3 COMP 

3C0MP 
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SCALE  AND  DECIMAL  POINT 

XX8XX  MIN/SEC 
XXXX.X  FT/SEC 
XXXX.X  FT/SEC 
XXX. XX  OEG 
XX. XXX  DEG 
XXXX.X  NAUT  MI 
XXXX.X  NAUT  MI 
XXXX.X  FT/SEC 
XXX. XX  OEG 
XXX. XX  DEG 
XXXX.X  NAUT  MI 
XXXX.X  NAUT  MI 
XXXX.X  NAUT  MI 
XX  B XX  MIN/SEC 
XXXXX. 

XXBXX  MIN/SFC 
XXX. XX  DEG 
OCTAL  ONLY 
XXXXX.  LBS 
XXXXX.  LBS 
XXX. XX  DEG 
XXX. XX  DEG 
XXXX.X  NAUT  MI 
XXXX.X  FT/SEC 
XXXXX. 
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NO  LOAD,  DEC  ONLY 

(Fnp  SYSTEM  TEST) 
DEC  ONLY 

DEC  ONLY 

MO  LOAD,  DEC  ONLY 

NO  LOAD,  DEC  nNLY 

DEC  ONLY 
DEC  ONLY 
DEC  ONLY 


XXX. XX  DEG  DEC  ONLY 

XXX. XX  DEG 
XXX. XX  DEG 


XXX. XX 

XXXX.X 

XXX. XX 

XXXXX. 

XXX. XX 

XXX. XX 

XXX. XX 

XXX. XX 

XXXX.X 

XXXX.X 

XXXX.X 

XXXX. X 

XXXX.X 

XXXX.X 

XXXX.X 

XXXXX  . 

XXBXX 

XXBXX 


NAUT  MI 

FT/SFC 

DEG 

DEG 

DEG 

DEG 

DEG 

iMAUT  MI 

NAUT  MI 

FT/SEC 

FT/SEC 

FT/SEC 

FT /SEC 

FT/SEC. 

FEET 

MIN/SEC 

M IN/SEC 


FOR  EA. 


DEC  ONLY 


DEC  ONLY 


DEC  ONLY 
DEC  ONLY 


DEC  ONLY 
DEC  ONLY 


NO  LOAD,  OEC  ONLY 


o Ap  l 

L 

R 03  84 
R 038  5 
R 033  7 
R 038  8 
R 038  9 
R 03^1 
P-  0 39  2 
5 03Q3 
RC395 
R 03  9 £ 
R 033 7 
R 0 3 ° 0 
R 040  1 
R 040  2 
R.  C404 
R OR  0 5 
R 040  6 
R O'-  07 
R 040  8 
R 04 1 0 
R 041 1 
ft  041  2 
R C4 1 3 
R 041  4 
R 0 4 1 5 
R 041 6 
R 04 1 7 
P 041  R 
R C41C 
R 042  1 
R 0422 
R 042  3 
R 0425 
R 04  2 £ 

R 0427 
fi  042° 
R04291 
R 0430 
R 0432 
R043^ 

R 043  4 
R 043  f 
R 0437 
R 043  3 
R 043,9 
P 0440 
R 044  1 
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CROSS  RANGE  DISTANCE 

62  ABSOLUTE  VALUE  OF  VELOCITY  3COM  P 

TIME  FROM  IGNITION 

DELTA  V (ACCUMULATED! 

63  ABSOLUTE  VALUE  OF  VELOCITY  3C0MP 

A!  TITUDF  RATE 

COMPUTED  ALTITUDE 

64  TIME  LEFT  FOP.  REDE  S I GNAT  ION-  LPD  ANGLE  3C0MP 


ALTIT JDE  RATE 
COMPUTED  ALTITUDE 

65  SAMPLED  AGC  TIME  3 COMP 

(FFTCHED  IN  INTERRUPT  ) 

66  LR  RANGE  2C0MP 

POSITION 

67  I VX  3 COMP 

L ,J  V Y 

LR  \I7 

68  SLANT  RANGE  TO  LANDING  SITE  3C0MP 

T T ME  TO  GO  IN  BRAKING  PHASE 

LR  ALTITUDE  - COMPUTED  ALTITUDE 

69  SPARE 

70  A r T DETENT  CODE/STAF  CODE  3 COMP 

71  A'  r DETENT  C'lfrE/ETAP  CODE  3C0MP 

72  PR  36C  - TRUNK  ( 1 ANGLE  2C0MP 

SHAFT  ANGLE 

73  NEW  RR  360  - TRUNNION  ANGLE  2C0MP 

SHAFT  ANGLE 

74  TIME  FROM  IGNITION  3C0MP 

YAW  A FT  Er  VEHIC!  F ? T S E 

PITCH  AFTER  VEHICLE  ISE 

75  DELTA  ALTITUDE  CDH  3COM  P 

DEL  ; A TIME  (CDH-CS.>  : ■ TP1-CJH) 

0 F L T A TIME  ( T PI -CDH  0-’  TPI-NOMTPI) 

76  DESIRED  HOfUOLTAL  VELOCITY  3C0MP 

DESIRED  • A ('  I A i VE!  :F  I TY 

CROSS-RANGE  DISTANCE 

77  TIME  TO  ENGINE  CUTOFF  2CCIMP 

VEL.OC  ITY  NORMAL  TO  GSM  PLANE 

76  P p RANGE  2C0MP 

• ANGE  RATE 

79  CURSOR  ANGLE  3 COMP 

SPIRAL  ANGLE 

POSITION  CODE 

80  DATA  INDICATOR,  2 COMP 

OMEGA 

31  DEI TA  V (IV)  3C0MP 


XXXX.X  NAUT  MI 
XXXX.X  FT/SEC 
XXBXX  MIN/SEC 
XXXX.X  FT/SEC 
XXXX.X  FT/SEC. 

XXXX.X  FT/SEC 
XXXXX.  FEET 
XX8XX 

XXXX.X  FT/SEC 
XXXXX.  FEET 
OOXXX.  HRS 
( OOXX.  MIN 
OXX.XX  SEC 
XXXXX.  FEET 
+0000X 

XXXXX.  FT/SEC 
XXXXX.  FT/SEC 
XXXXX.  FT/SEC 
XXXX.X  NAUT  MI 
XXBXX  MIN/SEC 
XXXXX.  FEET 
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XXX. XX  DEG 
XXX. XX  DEG 
XXX. XX  DEG 
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XXBXX  MIN/SEC 
XXX. XX  DEG 
XXX. XX  DEG 
XXXX.X  NAUT  MI 
XXBXX  MIN/SEC 
XXBXX  MIN/SEC 
XXXX.X  FT/SEC 
XXXX.X  FT/SEC 
XXXX.X  NAUT  MI 
XXBXX  MIN/SEC 
XXXX.X  FT/SEC 
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XXXXX.  FT/SEC 
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DEC  ONLY 
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DEC  ONLY 
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LOAD, 
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R 0445 

83 

3 C447 

84 

R 0449 

85 
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87 

R 0454 

R 045  5 

88 

R 0457 

89 

R 045° 

R 0460 

P 044  I 

90 

R 046  3 

R 0464 

R0465 

91 

R 046 5 I 
R 046  5 2 
R0A.S6  p? 


R 0467 

93 

R 046  8 

94 

R 0469 

9 5 

R0470 

96 

R 047  1 

97 

ROA72 

98 

R 047  3 

R 0474 

R 047  5 

99 

R 047  7 

R 04 7 7 1 

DELTA  V (LVI 
DELTA  V (BODY) 

DELTA  V OTHER  VEHICLE) 

VG  (BOY) 

VG  (LV) 

BACKUP  OPTICS  I CS  AZIMUTH 
ELEVATIGN 

HALF  UNIT  SUM  OF  PLANET  VECTOR 
LANDMARK  LATITUDE 

LONG  I JUDE /2 
A!.  T I HIDE 

Y 

Y DOT 
PSI 

AL  II IUDE 
VELOCITY 

FI  IGHT  PATH  A MG!  L 
SPARE 

DELTA  GYPQ  ANGIES 

SPARE 

SPARE 

SPAT  E 

SYSTEM  TEST  INPUTS 

SYSTEM  TEST  RESULTS  AND  INPUTS 


RMS  IN  POSITION 
RMS  IN  V El  ’ CITY 
RMS  IN  BIAS 


3 COMP 

XXXX.X 

3C0MP 

XXXX.X 

3CCMP 

xxxx.x 

Icomp 

XXXX.X 

3COM  P 

XXXX.X 

2C0M  P 

X XX . XX 

XXX. XX 

3 COMP 

. XXXXX 

3C0MP 

XX. XXX 
XX. XXX 
XXX. XX 

3 COMP 

XXX. XX 
XXXX.X 
XXX. XX 

3CQMP 

XXXXXR. 
XXXXX. 
XXX. XX 

FT/SEC  FOR  EACH 
FT/SEC  FOR  EACH 
FT/SEC  FCT  EACH 
FT/SEC  FOP  EACH 
FT /SEC  EOF  EACH 
DEG 
DEG 

FOR  EACH 

DEG 

DEC 

NAUT  MI 
MM 
EPS 
DEG 

NAUT  MI 

FT/SEC 

DEG 


3C0MP  XX. XXX  DEG  FOR  EACH 


3COM P XXXXX.  FOR  EACH 
3COM P XXXXX. 

. XXXXX 
XXXXX  . 

3COI4P  XX  XXX.  FT 

XXXX.X  FT/SEC 
XX. XXX  RADIANS 


DEC  ONLY 
DEC  ONLY 
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DEC  ONLY 
DEC  ONLY 


DEC  ONLY 
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DEC  ONLY 
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R.  048  8 
R 048  9 
R 0490 
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5 0492 
R04°3 
R 0494 
R 049  5 
R 0494 
R 0497 
K 0498 
R Qt  Q c 

R 0500 
R05C  1 
R 05C  2 
P 050  3 
R 0504 
R 050  ^ 
P 0506 
R 0507 
R 0500 
R 0505 
R 05  10 
5 05  1 1 
R 05 1 2 
R 05  1 3 
P 0514 
R 0 5 1 5 
R 05  lft 
POcH 
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00 

01 

02 

03 

04 

05 

06 

07 

08 

09 

10 
1 1 
12 
1? 

14 

15 
lo 

17 

18 

19 

20 
21 
22 

23 

24 
2K 
26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 


REGISTER 

NOT  IN  USE 
SPECIFY  A OOP F SC 
SPECIFY  ADDRESS 
SPECIFY  ADDRESS 
DSP TEN  I 
0SPTEM1 
OPT  I ONI 
XP  EG 
ALMCAOR 
FAILPEG 

SPECIFY  CHANNEL 
TCSI 
nPTICNX 
TC.DH 
DSPTFMX 

INCREMENT  ADDRESS 
DSPTEMX 

SPA('E 

FDA  I X 

SPARE 

CDUX 
PIPAX 
THE  TAD 

SPAr  E 

0SPTEM2  +1 
DSPTEM1 
DSPTEM1 
SMODE 

SPARE 
SPAKE 
SPARE 
SP  Ac  F 

-TPER 

TIG 

DSPTEM1 
TTUGfl 
T I M E 2 
TTP  I 
TET 

SPARE 


SCALE  TYPE 
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C 

D 

H 

H 

A 

A 

A 

A 

A 

K 

A 

K 

C 

A 

C 

D 

D 

C 

D 

K 

C 

A 

C 


K 

K 

K 

K 

K 

K 
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R 0528 
R 052  A 
R 05 2 5 
R0526  :: 
R 0 5 2 7 
R 052  F 
R 052° 

R 0530 
R 053  1 
R 0532 
R0533 
R 0534 
P 0c3r 
R 0536 
P 05 3 7 

R 053.6 
0 05  3 c 
R 0540 
R 0541 
R 0542 
R 0543 
R 05a4 
R0545 
R 05451 
R 0546 
R 0547 
R 0548 
R0549  ; 
R055C 
R 055  1 
R 0*6? 

R 0553 
R 0 5 5 4 
R 055  5 
R 0 5 5 
R 0557 
R 055° 

R 055*3 
R 0560 
R 056 1 
R 0562 
R 0563 
R 056* 

R 0565 
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NOUN  COMp  PEGJSTE;  SCALE  TYPE 


40 

41 


i 2 


43 

44 


45 


46 

47 

48 

49 

50 
5 1 


52 

53 

54 

55 

56 

5 7 

58 

59 

60 


1 TTOGO 

2 VODISP 

3 DVT  FT  AL 

1 DSPTEM1 

2 DSP7EM1  +1 

1 HAP' 

2 HPEf 

3 V6DISP 

1 LAT 

2 LONG 

3 ALT 

1 HAPOX 

2 HPEf  X 

3 TFF- 

1 TP KMKCNT 

2 TTOGO 

3 * MG  A 

1 D APDATR1 

1 OF ASS 

2 C SMMAF  c- 

1 PITTIME 

2 : L ! T 1 IE 

1 <2.201  SP 

2 ’ 22DISP  +2 

3 WHCHREAD 
SPA-'F 

1 ALPHASB 

2 BET  ASB 

l ACICENT 

SPARE 

1 rang! 

2 F p AT  E 

3 RTHETA 

1 

2 ELEV 

3 CENTANG 

1 P R - A Z 

2 dR-ELEV 

1 DELTAS 

1 POSTT° I 

2 DELVTPI 

3 OF  I VT PF 

1 DVLCS 

2 DVLOS  +2 

3 DVIOS  +* 

1 VHORIZ 


L 

c 

S 

D 

E 

Q 

0 

S 

H 

H 

0 

0 

0 

L 

C 

L 

H 

A 

KK 

KK 

NN 

NN 

C 

S 

c 

H 

H 

H 

JJ 

S 

H 

C 

H 

H 

H 

H 

Q 

0 

S 

s 

s 

s 
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P 0568  3 

R 0569  61  1 

R 05?  0 2 
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R 057  2 6?  1 

R 0573  2 

R 0574  3 

R 057  5 6 3 1 

P 0 57  6 2 

R 057  7 3 

R 057  8 ft/-  1 

R 0579  2 

R 0580  3 

R 0581  65,  1 

R 0582  2 

P 05 8 3 3 

R 0584  m 1 

8 0586  2 

P 058 6 67  1 

R 0567  2 

R 058 P 3 

R 0589  68  1 

R05°o  2 

R 059 1 3 

R 05^2  69  SPAR 

R 059  3 7C  1 

R0594  2 

R 0595  3 

P,  059  6 71  1 

R 0597  2 

R 059  0 3 

R 0599  72  1 

P.060r  2 

R 0601  73  1 

R 0602  2 

R 0603  7 A 1 

R 0604  2 

R0605  3 

R 0606  75  1 

R0607  2 

R 0608  3 

R 0609  76  l 

R0610  2 

R06101  3 

R0611  77  l 

P 06 1 2 2 

P 06 1 3 78  1 

R 06  1 6 2 

R 0615  79  1 


OPERATION  INFORMATION 


HDOTDISP  S 

HCAL.C  RR 

TTFDISP  L 

T TOGO  L 

OUTUFPLN  00 

ABVF!  $ 

TTOGO  L 

DVTOTAL  S 

ABVfcl  S 

HOOT D ISP  S 

HCA1C1  PR 

FUNNYDSP  Pp 

HDOTDISP  S 

HCALC  FR 

SAMP  TIME  K 

SA MPT  IMF  K 

SAMPTIme  k 

D STACK  +6  W 

CHANNEL  33  TT 

RSTACK  X 

RSTACK  +2  Y 

(STACK  +4  Z 

P AN  GE  DSP  00 

T'FOI'P  L 

DELTAH  FR 

AOTCGDE  A 

A'  TCODE  +1  A 

AOT  CODE  +2  A 

AO TCODE  a 

AOT  CODE  +1  A 

AOTCGDE  +2  A 

CDU ( WW 

C DUS  0 

TANG  W W 

TANC-  +1  D 

TTOGO  L 

YAW  H 

PITCH  H 

D IFF  ALT  Q 

T 1T0T2  t 

T2T0T5  L 

ZDOTD  S 

RDF  TD  S 

XRANGE  Q 

TTOGO  I 

YDPT  S 

RSTACK  U 

RSTACK  +2  V 

CURSOR  D 
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SPIF  At. 

R 061  7 

3 

POSCODE 

R 06 1 8 

60 

l 

DAT  AGO CD 

R 0616 

2 

0 M EGAD 

R 062  0 

81 

1 

DEL VLVC 

R 06  2 1 

2 

DEL  VI  VC  +2 

R 062  2 

3 

DEL VLVC  +4 

R 062  3 

82 

1 

DEL VLVC 

R0624 

2 

DLL VLVC  +2 

R 06  2 f 

3 

OELVIVC  +4 

R 0626 

8 3 

1 

DEL  VI  YU 

R 062  7 

2 

DEL  V IMU  +2 

R 062  8 

3 

DELVIMU  +4 

R062° 

84 

1 

DEL VOV 

R 0630 

2 

OELVUV  +2 

R 063  1 

3 

nE!  VCV  +4 

R 0632 

85 

1 

VGBC'DY 

R0633 

2 

V G P P n Y + ? 

R 0634 

3 

VGBC’DY  +4 

P 063  5 

86 

1 

DEL VI  VC 

R 0636 

2 

DEL VLVC  +2 

R 06  37 

3 

DEL VLVC  +4 

P 063  8 

87 

1 

AZ 

R 06  3 ° 

2 

El. 

R 064-0 

88 

1 

ST AF AD 

R 064 1 

2 

STAPAO  +2 

R 0642 

3 

STAi  AD  +4 

R 0643 

89 

1 

I.ANDL  AT 

R 0644 

2 

LANPLONG 

R 0645 

3 

1 AMDAI  T 

i_  n!YL/HL  > 

R 0646 

90 

1 

RANGE 

R 0647 

2 

PRATE 

R0648 

3 

Q XHFTA 

R 064° 

91 

1 

P21 ALT 

R066‘'l 

2 

P21VEL 
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3 

D21GAP 

R 06  5 0 

92 

SPARE 

R 065  1 

93 

1 

OGC 

R 0652 

2 

OGC  +2 

R 0653 

3 

OGC  +4 

P 0654 

94 

SPARE 

BO  646 

94 

SPARE 

R 065  6 

96 

SPARE 

R0657 
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1 

QSPTEM1 
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2 

DSPTEM1  +1 

R 0659 

3 

DSPTf-Ml  + ? 
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1 

DSPTFM2 
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P 066  5 NOUN  SCALES  AMD  FOF  MATS 

R 0660  -SCALE  TYPE-  PRECISION 

R 066  7 UNITS  DECIMAL  FORMAT  — A GC  FORMAT 

R 066  P — 


P 0669  -A- 

R 0670  OCTAL  XXXXX  SP  OCTAL 


K 067  1 -B- 

R 067  2 FT ACTIONAL 

R 067  3 


-14 

.XXXXX  SP  BIT  1 = ? UNITS 

( m A X . o c o c A ) 


R0674  -C- 

R 0675  WHOLE  XXXXX.  SP  BIT  1 = 1 UNIT 

R 067  6 ( max  16383.  ) 


R 0677  -D- 

R 067  8 C DU  DEGREES 

R 067  9 
R 068  C 


XXX. XX  DEGREES 
(MAX  35°. 99) 


15 

SP  BIT  1 = 360/2  DEGREES 
(USES  15  BITS  FOR  MAGNI- 
TUDE AND  2-S  COMP.) 


R 068 1 -E- 

R 06 p2  El  EVATION  DEGREES  XX. XXX  DEGREES 
R 0683  ( MAX  89.999  ) 


14 

SP  BIT  1 = /2  DEGREES 


R0684  -F- 

R06F5  OEGPFFS  (180)  XXX.XX  DEGREES 

R 0686  (MAX  17°. 99) 


14 

SP  BIT  1 = 180/1  DEGREES 


R 0687 
R 06  ft  8 
R 0689 
R 069  0 
R 06°'  1 
R 06°? 
R 06°  ° 
R 06°^ 


-G- 

OP  DEGREES (90) 


— H — 

DP  DEGREES  (360) 


XX. XXX  DEGRFES 

XXX.XX  DEGREES 
(MAX  359.99) 


DP  BIT  1 OF  LOW  REGISTER  = 
2 3 

360/2  DEGREES 

DP  BIT  1 OF  LOW  ‘REGISTER  = 
28 

360/2  DEGREES 
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EO 


P 0695 
R 0696 
R 0697 
R 0698 
R 0699 
R 07 00 
R ) 1 I 
R 0702 
P 0703 
R 070^ 
R 0705 
R 0706 
R 0707 


-K- 

T I ME  (HR,  MIN, 


SEC)  OOXXX.  HP  DP  BIT  1 OF  LOW  REGISTER  = 

OGOXX.  KIN  -2 

OXX.XX  SEC  1C  SEC 

! DEC  I MAI  ONLY. 

MAX  MIN  C r M P = 5 9 
MAX  SEC  C0MP  = 5°  .99 
MAX  CA  P AC  I T Y = 745  HRS 
39  MINS 
14, 55  SECS. 

WHEN  LOADING,  ALL  3 
COMPONENTS  MUST  BE 
SUPPLIED. ) 


R 0708  -L- 

R 070°  TIME  (MIN/SEC) 
R 07 1 0 
R 07 1 1 
R 07  1 2 
R 07 1 3 
R 0714 
R 07  1 ^ 

9 0716 
R 07 1 7 
R 07 1 8 
R 07  1 9 
RQ720 


XXBXX  < IN /SEC 
(B  i S A BLANK 
POSITION,  DECIMAL 
ONLY,  DISPLAY  OR 
MONITOR  ONLY.  CANNOT 
BE  LOADED. 

MAX  MIN  CC’MP  = 59 
MAX  SEC  C 3 M p = 5 9 
VALUES  GREATER  THAN 
59  MIN  5 9 SEC 
AD  E DISPLAYED  AS 
59  MIN  c9  SEC. J 


DP  BIT  1 OF  LOW  REGISTER  = 

-2 

10  SEC 


R 072 1 - - 

R 072?  TIME  (SEC) 
R 07  23 


-2 

XXX. XX  SEC  SP  BIT  1 = 10  SEC 

(MAX  163.83) 


R 0724  -N- 

R 0725  TIME! SEC)  DP 
R 0726 
R 0727 


XXX. XX  SEC 


DP  BIT  1 OF  LOW  REGISTER  = 
-2 

10  SEC 


R 07  28  -P- 

R 0729  VELOCITY 
R 0730 
R 073 1 


XXXXX.  FEET/SEC  DP 

(MAX  41.99  6.) 


BIT  1 OF  HIGH  EGI STEP  = 

-7 

2 METERS/CENT  I -SEC 


R 0732  -Q- 

R 0733  POSITION  4 

R 07  34 


XXXX.X  NAUTICAL  MILES 


DP  BIT  1 OF  LOW  REGISTER  = 
2 METERS 


R 073  5 -S- 

R 073  6 VELOCITY  3 XXXX.X  FT/REC 

R 0737 
R 0738 


DP  BIT  1 OF  HIGH  '•  FOIST  Fr  = 
-7 

2 METERS/CENTI-SEC 
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R 073 9 -T-  -2 

R 07  AO  G XXX. XX  G SP  BIT  1 = 10  G 

R0741  (MAX  163.83) 


R 0742  -U- 

R 0749  RENDEZVOUS  XXX. XX  NAUT  Ml  DP  LOW  f PDF  P BIT  HE  | nw  CFDEP 

R0744  RADAR  RANGE  WORD  = 9.38  FEET 

R0745  -V- 

R 074  6 ' ENDEZ  Vi  i JS  XXXXX.  FEET/ c EC  OP  LOW  ORDER  BIT  OF  LOW  ORDER 

R 0747  RADAR  ANTE  RATE  WORD  * -.6273  FEET/SEC 


R 0748 

R 0749 

R 07  5 0 

-w- 

LANDIMG  RADAR 
ALTITUDE 

R 07  R 1 
p 07  c 2 

-X- 

L AND TNG  ° A DAP 

R 07  5 3 

VEL  X 

R 0754 

R 07  5 F 

R 0756 

-Y- 

L AND  IN G ■ A DAT 

VELY 

R 0757 

R 075  8 
R075C 

-z- 

LANDING  R A DAT 

VELZ 

3 0760 

R 07  b 1. 

R 076  2 

-AA- 

INITI  Ai  /F INAL 
ALTITUDE 

R 0763 

R 0764 

R 076  5 

-BI3- 

ALTjrUDE  RATE 

P 0766 

R 0767 

R 0768  , 

-cc- 

FQRWARD/L  ATERAL 
v Line  I TY 

R 0769 

P 0770 

R 077  I 

R 0772 

-DD- 

rotatiomal  HAND 
CONTTOLLE1'  ANGULAR 
RATES 

R 077 3 

R 077 4 

R 077  6 

R 0776 

-EE- 

OPTICAL  TPACKEP 

AZ  I M!JTh  ANGLE 

XXXXX.  FEET  DP 

XXXXX.  FE  FT/S  FC  DP 

XXXXX.  FELT/SEC  DF 

XXXXX.  FEET/SEC  DP 

XXXXX.  FEET  DP 

XXXXX.  FEET/SEC  CP 

( 'AX  0 3191.  ) 

XXXXX.  FEET/SEC  SP 

( MAX  09 1 2 o . ) 

XXXXX.  DEG/SEC  SP 

( MAX  00044. ) 

XXX. XX  DEG.  DP 


LCW  ORDER  BIT  OF  I OW  ORDER 
WORD  = I.C79  FEET 


LOW  ORDER  RT  T OF  LOW  ORDER 
WORD  = -.6440  FEET/SEC 


LCW  0 ODE r BIT  OF  LOW  ORDE' 
WORD  = 1.212  FEET/SEC 


LOW  ORDER  BIT  OF  LOW  ORDER 
WORD  = .8668  FEET/SEC 


LOW  ORDER  PIT  OF  LOW  ORDER 
WORO  = 2.345  FEET 


LOW  ORDER  BIT  = .5 
FEET/ SEC 


LOW  ORDER  BIT  = .5571 
FhET/SEC 


F ACTION*  PART  OF  PI  'AD 
4 SEC 


LOW  ORDER.  BIT  OF  LOW  ORDER 
15 

WORD  = 360/2  DEGREES 
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R 0777  -JJ- 

R 0778  POSITIONS 

R 0779 

R 0789  -kK- 
R 078 1 WEIGHT  2 


XXX. XX  N A JT  MI 

XXXXX.  LBS 


DP  BIT  1 UF  LOW  REGISTER  = 

2 METERS 

16 

SP  FT  ACT! PNAl  PART  OF  2 KG 


R 073 2 -NN- 
R 0783  Tn I M DEGREES  2 
R 07.8  4 

R 07  8 5 -PP- 
R07«F  2 INTEGERS 

R 0787 
R0788 
R 07  30 
R 07°0 
R 07°  1 
R 079  2 

R 079 3 -00- 

R 07 94  POS III 0N7 
R 0795 
R 0796 

R 0797  — R r - 

R079S  COMPUTED  ALTITUDE 
R 0 7 9 9 

R 0800 

R0801  - c- 

R 0802  OP  OEGREES 
P 0803 


XXX. XX  DEG  SP 

(MAX  032.76) 


+XXBVY  D» 

(B  IS  A BLANK 
POSITION.  DECIMAL 
ONLY,  DISPLAY  OR 
MONITOR  ONLY.  CANNOT 
BE  LOADED.) 

(MAX  ?°BC9) 


XXXX.X  NAUT  Mi  DP 

( MAX  9058.9) 


XXXXX.  FEET  DP 


XXXX.X  DEGPEES  DP 


BIT  1=.01SEC(TI ME) 


BTT  1 OF  HIGH  'EG  I STEF  = 

1 UNIT  OF  XX 
BIT  1 OF  LOW  REGISTER  = 

1 UNIT  OF  YY 
( EACH  REGISTER  MUST 
CUNTAIN  A POSITIVE  INTEGER 
LESS  THAI;  100) 


BIT  1 OF  I.  OW  REGISTER  = 

-4 

2 METERS 


BIT  1 OF  LOW  REGISTER  = 
-4 

2 METERS 


BIT  1 OF  HIGH  REGISTER  = 
1 DEGREE 


R 060  A 

— T T— 

R 0805 

LANDING  f A DAP 

+00 9 OX 

CHANNEL  :<3,BIT  6 = M'  T POSIT. 

R 080  6 

POSITION1 

(DECIMAL  ONLY. 

CHANNEL  33, BIT  7=N0"  POSIT. 

R 0807 

DISPLAY  OR  MONITOR 

X = 1 FOR  LR  POSITION  1 

R 0808 

R 0809 

ONLY.  CANNOT  BE 
LOADED.  ) 

X = 2 FOR  LR  POSITION  2 

R 08  1 0 

-WW- 

15 

R OR  1 1 

360 -C DU  DEGPEES 

XXX. XX  DEGREES 

SP  BIT  1 = 360  - (360/2  ) 

R 08 1 2 

R 08 1 3 

R 0814 

R 081  c 

-XX- 

(MAX  359.99) 

DEGREES 

(USES  15  BITS  FOP  MAGNI- 
TUDE AND  2-S  COMP.) 

R 08  1 6 

R 08  1 7 

R 08 1 8 

posrrroN  9 

XXXXX.  FEET 

DP  B 1 T I OF  LOW  PEG  I STEP  = 

-9 

2 METERS 

PAGE  21 
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P 0821  1 
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-YY- 

VELOCITY  ^ XXXX.X  FEET/SEC  DP  FRACTIONAL  PART  OF 

(MAX  32S.0)  METERS /CENT  I- SEC 

-A  A A- 

P AO  TAX  •,  XX. XXX  ADI  AN?  DP  R T T 1 OF  HIGH  REGISTER  = 

(MAX  31.999)  -9 

2 RADIANS 


THAT-S  ALL  ON  THE  NOUNS. 
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P 082  3 

d n o 

N U O c 

^ V .Gy 

R 082  5 

CODE 

R 0826 

001  05 

R 082  7 

00107 

R 0828.. 

00111 

R 0829 

00112 

R 083  0 

001 13 

S fisa  l 

003  1 •' 

r.  v_*  ^ _}  L 

R0832 

00115 

R 083  3 

002  06 

R 0834 

002  06 

R 083  5 

00207 

R 0836 

00210 

R0R3E 

00211 

R 0839 

00212 

R 0840 

00213 

R 0841 

00214 

R 0842 

00217 

R U 8 4 3 

00220 

R 0844 

00401 

R 0845 

R 0846 

00402 

R 0847 

CO  404 

RC848 

00405 

R 0849 

0C421 

o 0849 e 

0043  0 

R 0850 

00501 

P 0851 

00502 

R 0352 

00503 

R 0 3 5 3 

OC  5 1 C 

R 0856 

. ,0  5 1 3 

R 0 8 5 c 

00514 

R 085  6 

00515 

P 0857 

00520 

R 0858 

00521 

R 0859 

005  22 

R 086  0 

00523 

R 036  2 

OC  5 2 6 

R 086  3 

00526 

R 08  64 

00527 

R 0865 

P 08  6 6 

R 08665 

00530 

R 086  6 6 

R 086  7 

00600 

R 086  R 

00601 

ALARM  CODES  FOR  LUMINARY 
*13 

* TYPE 

**  AOTMARK  SYSTEM  IN  USE 
MORE  THAN  * MARK  PAIRS 
MARK  MISSING 

MARK  OR  MARK  >'  EJEC”  NOT  BEING  ACCEPTED 

NO  INBITS 

M Ar  K MADE  BUT  NOT  DESIRED 
NO  MARKS  IN  LAST  PAIR  TP  REJECT 
ZERO  ENCODE  MOT  ALLOWED  WITH  COAT SE  ALIGN 
+ GIMiiAL  LOCK. 

IS?  '!  J'  iRL  RF QUEST  I >'CJ'  PRESENT  FOP  00  SEC 
I MU  VI  V ELATING 
COARSE  ALIGN  ERROR 

PIPA  FAIL  BUT  PIPA  IS  NOT  BEING  USED 

I MU  NOT  OPERATING  WITH  TURN-ON  REQUEST 

PF.UGkAM  US  ING  I MU  WHEN  TURNED  OFF 

BAD  RET'Jf  o p rfc  I mjjSTALI 

I MU  NOT  ALIGNED  - NO  RE CS MM AT 

OF"? s ED  GTM&AL  A NO L F Y r ELDS  G 1 MB  AL  LOCK 

FINDCDUW  NOT  CONTROLLING  ATTITUDE 
TWO-  S TAP S NOT  AVAILABLE  IN  ANY  DETENT 
TWO  ST A? S f IT  AVAILABLE 
W-  '.ATI  T X OVE'  FLOW 

**  ACCELERATION  OVERFLOW  IN  INTEGRATION 
P RADAR  ANTENNA  OUT  OF  LIMITS 
BAD  R ADAP  GIMBAL  ANGLE  INPUT 
. P RADAR  ANTENNA  DESIGNATE  FAIL 
RADAR  AUTO  DE  SC  PETE  NOT  PRESENT 
LP  NOT  IN  POSITION  2 OK  REPOSITIONING 
P OR  O'  ' S OUT  n F AUTO  MODE  WHILE  IN  USE 
RF  CDU  FAIL  DISCRETE  PRESENT 
RADAR  R UP  T NOT  EXPECTED  AT  THIS  TIME 
COULD  NOT  READ  RADAR 
LANDING  '"ADA.  POSITION  CHANGE 
P i ANTENNA  DIDN'T  ACHIEVE  POSITION  2 
P DEI TA  THFTA  GREATER  THAN  3 DEGREES 
P RANGE  GREATER  THAN  400  NACT.  MILES 
P LOS  NOT  IN  MODE  II  COVERAGE  WHILE  ON 
LUNAR  SURFACE 

OR  VEHICLE  MANEUVER  REQUIRED 
P LOS  NOT  IN  MODE 2 COVERAGE 

OM  LUNA  $ UP  FACE  A FTC"  600  SECS. 

IMAGINA  Y ROOTS  ON  FIRST  ITERATION 
PERIGEE  ALTITUDE  CSI  LT  PMIN1 


*60  COLUMN 


SET  BY 


AOTMAPK 
AOTMARK 
AQT.-MAP K 
AOTMARK 
AOTMARK 
AOTMARK 

I MU  MODE  SWITCHING 
T4RUPT 

I i U MODE  SWITCH,  I MU- 2 , -02,  P 5 1 , P57 

I MU  MODE  SWITCH 

IMU  MODE  SW I T CH , T4RP T 

T4RUPT 

T4RUPT 

P 51  , P5 2 , P57 

R 0 2 , R 4 7 

INF  ALIGN,  I MU-2, 

FINDCDUW 
FINDC  TUW 

K 5 9 , LUNA'  SURFACE 
P 52 

TUT  EGR V 

VBITAL  INTEGRATION 
R 2 3 

V4IN72 

..21,  NON-P  IN  V41N7  2 
R2  5 

SERVICER 

P20 

R25 

h ADAF  READ 
P20 

F A DAT  LA') 

SE  VICE'  , V 6 0 (NON-P  IN  V 6 0 ) 

Q ? 2 

P20, P22 
R2  I , R 24 

(24  (20) 

R21 

P.32,  P 72 
P32  ,P72, 
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ASSEMBLY  AMD  OPERATION  INFORMATION 


PERIGEE  ALTITUDE  CDH  LT  PMIN2 

CSI  TO  CDH  TIME  LT  TMIN12 

COH  TO  TP  I TIME  LT  T41N23 

E!)  COH  TIME  GREATER  THAN  INPUT  TPI  TIME 

NUMBED  "F  ITEGA-’TCWS  EXCEEDS  LOOP  MAXIMUM 

OV  EXCEEDS  v AX  I MU'*’ 

NO  SOLN  FROM  TIME-THETA  OR  TIME-RADIUS 

NO  TIG  FOR  GIVEN  ELFV  ANGLE 

ILLEGAL  'PTION  CODE  SELECTED 

P I P A FAIL  CALS  ED  THE  J S 5-  WARNING 

AGC  SELF  TEST  ER°  C,r 

UNUSFD  CCS  BRANCH  EXECUTED 

DELAY  ROUTINE  BUSY 

DOWNLINK  TOO  FAST 

UPLINK  TOO  FAST 

PHASE  TABLE  FA  It  LITE.  ASSUME 

ERASABLE  MEMORY  IS  SUSPECT. 

EXECUTIVE  OVER EL OW-NT  VAC  AREAS 
EXECUTIVE  EVER FLOW-NO  CORE  SETS 
WAITLIST  OVERFLOW-TOO  MANY  TASKS 
WAITLIS-i  , VAIDELAY,  FIXDELAY,  OR  LLNGC ALL 
CALLED  •:  I T H ZERO  r'  NEGATIVE  DELTA-TIME 
SECOND  JOB  ATTEMPTS  TO  GO  TO  SLEEP 
VTA  KYRD  AND  DISPLAY  PROGRAM 
NO  VAC  AREAS  FOR  MARKS 

TWO  PROGRAMS  USING  DEVICE  AT  SAME  TIME 
ILLEGAL  I NT  L!  1 UPT  OF  EXTENDED  VERB 
ARCSIM-ARCCCS  arguMFNT  TOO  LARGE 
SQT.T  CALLED  WITH  NEGATIVE  ARGUMENT 
BAD  RETURN  F O'"  ROOTPSPS 
BAD  RETURN  FROM  ROOTPSRS 


( MAIN ) 
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R C86  9 

00602 

R 0870 

00607 

R 087  1 

00604. 

w • >:  w 

R 08  7? 

ni  COMPUT 

R 0873 

00605 

R.  0874 

00606 

R 0874  5 

0 06  07 

** 

R 087 5 

00611 

P 0876 

or  7 oi. 

R 087  7 

Ov-7  77 

P 0878 

Cl  102 

R 0879 

01  LOT 

R 0880 

01104 

* 

P.088  1 

01105 

R 0832 

01106 

R 08  8 3 

0 1107 

ROB  8 4 

R 08  8 4 

0 L 2 0 1 

* 

P 088  6 

01202 

* 

R 0887 

012  03 

R 088  8 

0 120  ■ 

R0889 

R 089  0 

0120  6 

R 08  4 1 

01206 

R 089  2 

01207 

* i 

R 0893 

01210 

* 

R 0894 

01211 

R 0895 

01301 

R 0896 

0 130? 

jjCSjS 

p 0897 

01406 

R 08975 

0 1406 

** 

D nftQ76 

m n r c • 

R 08977 

AND  A 

R 08 9 8 

01407 

R 0899 

R 089  9 5 

R 0900 

01410 

R 0901 

014  12 

R 0902 

0 140! 

R 0903 

019C! 

R 090  4 

01602 

44 

P 0905 

01520 

R 0906 

'0  1600 

R 0907 

016  Cl 

R 090? 

016  01 

R 090  4 

01703 

R 09  10 

01706 

R091  I 

P32.P72, 

P32  , P7  2 * P33 , P73 
P32 , P72 , 

P32  » °72 
D32  ,P72 , 

T IMETHET  »T I MERAD 

P34.P74 

P57 

T4PUPT 

S El  F CHECK 

ABORT 

EXEC 

TAP UPT 

TAR UPT 

::  E ST  AFT 

RESTART 

EXEC 

EXEC 

WAITt  1ST 

WAIT  LXST  ROUTINES 
PINBALL 
AOTMARK 

MODE  SWITCHING 
AOTMARK. 

INTERPRETER 
INTER  PRE1  ER 
DESCENT  GUIDANCE  EQS. 
IGNITION  ALGORITHM 


1A06  IS  A P DC DOC  DURING  THE  IGNITION  ALGORITHM 


VG  INCREASING  (DELTA-V  .ACCUMULATED 
•GT.  90  DEGREES  AWAY  FR(  A DESIRED  THRUST 
VECTOR . ) 

UNINTENTIONAL  OVERFLOW  IN  GUIDANCE 
DESCENT  IGUALG  !i0T  CONVERGING 
KEYBOARD  AND  DISPLAY  ALARM  DUPING 
T'>tTir<\  ML  USE!  NVSUB)  ,AB<  R T 
ILLEGAL  FLASHING  DISPLAY 
V37  REQUEST  NOT  PERMITTED  AT  THIS  TIME 
OVERFLOW  IN  DRIFT  TEST 
SAD  I MU  TORQUE 

IGNI  T I!  •'  T I Mb  si  1 DPED 

INCORRECT  PROGRAM  REQUESTED  FOR  VEHICLE 

Configuration 


sao  . p 

SAC.  8 
SAO. 8 
QES CENT 
P63 

PINBALL 


GUIDANCE  EQS. 


GOPL AY 
V37 
I MU  4 

0PT  PRE  ALIGN  CA1  If 
I U A (LEM) 
MIDTCUWE 

PAO,  P 42 
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visi 
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PROGRAM  APLIROPE  BY  EYLES 

L 

ASSEMBLY 

AN  0 

D PER  AT  It  . 

INFO 

7 MAT  ION 

R 09  1 

2 

02000 

-Jr 

DAP 

STILL  IN 

PROGRESS  AT  NEXT  TIMES  RUPT 

DAP 

R 091 

3 

02001 

JET 

FAILURES 

HAVE 

t LI  l Y-Z  r ANS. 

DAP 

R 091 

4 

02002 

JET 

FAI LURES 

HAVE 

DISABLED  X TRANSLATION 

DAP 

R 09 1 

5 

0200  3 

JET 

FAILURES 

HAVE 

DISABLED  P— RUT AT  I ON 

DAP 

R 091 

6 

02004 

JCT 

FAIL  UP  E S 

HAVE 

DISABLED  U-V  F OTAT  100 

DAP 

R0C1 

7 

03777 

ICDU 

FAI)  CAUSED  T 

HF  ISS  EARNING 

T 4RUPT 

3:15  DEC.  2,1Q70 
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R091R  04777  ICDU  , PIPA  FAILS  CAUSED  THE  ISS  WARNING 

R 091 9 07777  IMU  FAIL  CAUSED  THE  ISS  WARNING 

R 0920  1077?.,  IMU  , PIPA  FAILS  CAUSED  THE  ISS  WARNING 

R 09  2 1 1 3777  IMU  , ICDU  FAILS  CAUSED  THE  ISS  WAT  DING 

R 092  2 1*777  IMU, ItOlUR  IPA  FAIL  S CAUSED  THE  ISSWNING 

PO°23  4 INDICATES  AN  ARE1' T CODE  THAT  RESULTS  IN  / 
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T4RUPT 
T4RUPT 
T4KUPT 
T4  DPT 
T^RUPT 

M'FTWA'E  RESTART. 


R 092  L 
R 092  i 


**  INDICATES  A MOPE 
PROGRAM  GOING  TO 


SERIOUS 

ROO. 


ABORT  CODE  THAT  RESULTS  IN  THE 


R 09  26 


P INDICATES  A PRIORITY  ALARM. 


PAGE  25 
EO 


R 0927 


ALL  OTHERS  ARE  NON-ABORTIVE 


5 AP : 

L 

P 092  8 

R 09.2  9 

R 0C3  1 

R 0°33 
R 0935 
R 08 352 
R 0C  37 
R 09  39 
R 094  1 
R 094-3 
R 0945 
R 0947 
R 094  9 
R 0 9 c 1 
R 0°52 
R 09  53 
R 0954- 
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ASSEMBLY  AND  OPERATION  INFORMATION 

CHECKLIST  CODES  FOR  LUMINARY 


*9 

❖ 17 

*26 

R1C0DE 

ACTION  T(  BE  EFFECTED 

00013 

KEY  IN 

NORMAl  OR  GYRO  TORQUE  COARSE  ALIGN 

00014 

PROCEED 

DC  T MU  FINE  ALIGN  ROUTINE 

00014 

ENTER 

OC  LANDING  SITE  L>  E TE  RM  1 N AT  I CJN  ( NSC  U I 

0001  5 

PEP FOR M 

celestial  BODY  ACQUISITION 

000  62 

SWITCH 

AGC  POKER  DOWN 

00201 

SWI TCH 

RR  MODE  TO  AUTOMATIC 

00203 

SWITCH 

GUT D CONTPOL  TO  GNC , MODE  TO  AUTO... 
ALSC  THR  CONT  TO  AUTO 

00205 

PERFORM 

MANUAL  ACQUISITION  OF  RF< 

00500 

SWITCH 

LR  AMTFNNA  TQ  POSITION  1 

SWITCH  DENOTES  CHANGE  POSITION  OF 
PERFORM  DENOTES  START  OR  END  OF  A 
KEY  IN  DENOTES  KEY  IN  OF  DATA  THRU 
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*9 

COLUMN 

PROGRAM 

P 52 

R 5 1 

, Pfc  3 

, P 57 

P570PTI 

ON  2 

F 5 1 

, P 5 1 

P06 

p 20 

, P 22 

, R D4 

P 1 2 

, P42 

, P 7 1 

P40 

, P63 

, P7  0 

R 23 

P63 

A CONSOL F SWITCH 
TASK 

THE  DSKY 
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USER'S  PAGE  NO.  27 


PAGE 

EO 


S 09  5 A THE  SPECIFIED  OPTION  CODES  WIU  BE  FLASHED  IN  CGMPONEi'iT  PI  IN 

RO°s?  C '.••'JUNCTION  WITH  VC  <.  ' 1 VC  ON  1 7 ( FOR  EXTENDED  VE<  '3  S > TO  REQUEST  THE 

R09?R  ASTRONAUT  TO  LOAD  I N’T-  CC'-PP’IENT  R2  THE  OPTION  HE  DESIRES. 


R 09 5°  *9  * 17  *52  *11  *25  COLUMN 

R 096 1 OPTION 


R 096  2 

CL  DE 

PURPOSE 

INPUT  F OH  COMPONENT  2 

PROGRAMS) 

APPL ICABILT 

TY 

R 096' 

00001 

SPECIFY 

I MU  cementation 

1 = PL  EF  2=N"M  3=°  FF  SMMA  T 

P52 

ALL 

R 0966 
’ 0967 

R 096  5 

00002 

00003 

SPECIFY 
SPEC  I F Y 

VEHICL  E 

Ti  AC  KING  - 

ATTITUDE 

4 = L A N D SITE 

1=TH I S 2=0THEF 

1=PREFERRED  2=0THER 

P21 »R30 

R 63 

ALL 

ALL 

R 097 1 

00004 

SPECIFY 

•'  AD  Ar 

1 = FK  2 = 1 r- 

f <> 

SUNDANCE 

LUMINARY 

R 0973 

00005 

SPEC 1FY 

snr-  phase 

1 = F I P ST  2 = S E C 0 N D 

P38 

COLOSSUS 

+ 

LUMINARY 

R 097c 

00006 

SPECIFY 

RP  CPARSF 

At  IGN  DPT  ION 

1 =LOC.KOiM  7 = CO  NT  I N'JDU  ? DESIG. 

V41N72 

SUNDANCE 

, 

LUMINARY 

R 0977 

00010 

SPECIFY 

ALIGNMENT 

MODE 

0= ANY  TIME  1 =R EFSMM AT  +G 

P57 

LUMINARY 

R 097° 

2=TWC  BODIES  3=0NE  BODY  + G 

R 0980 

00012 

SPECIF  Y 

CSM  ORBIT 

OPTION 

1 = N t ORBIT  CHANGE  2 = CHANGE 

P 22 

LUMINARY 

R 0982  OPBIT  TO  PASS  OVER  L N 
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L 

0001 

R 0002 

TAGS 

REF 

FOR  RELATIVE 

1 

MODUL E 1 

SETLOC  AMD  BLANK  BANK  CARDS 

CONTAINS  BANKS  0 THROUGH  5 

COUNT 

BANKSUM 

0003 

4000 

BLOCK 

02 

000  A 

600  5 

RADAP  FF 

EQUALS 

000* 

iy  000 

FFTAG1 

EQUAL  S 

0006 

4000 

FFTAG2 

EQUALS 

0007 

4000 

FFTAG3 

EQUALS 

0008 

4000 

FFTAG4 

EQUALS 

000c 

4000 

FFTAG7 

EQUALS 

0010 

40  0 0 

FFTAG3 

EQUALS 

001  1 

4000 

FFTAGo 

EQUALS 

0012 

4000 

FF  TAG  10 

EQUALS 

001  3 

4000 

FFTAG11 

EQUALS 

00 1 A 

4COO 

FFTAG12 

EQUALS 

001  5 

6000 

FFTAG13 

EQUALS 

001  6 

2 

WORDS  LEFT 

*775 

05775 

1 

BN  KS 1 1 M 

02 

0016 

5776 

06776 

1 

GDI7 

£000 

BLOCK 

03 

0018 

600  0 

FFTAG* 

EQUALS 

001c 

60  00 

FFTAGO 

EQUALS 

002  0 

17  WORDS  LEFT 

7756 

07766  1 

BNKSUM 

03 

0020 

7757 

07757  0 

0021 

00  f 2000 

BANK 

00 

0022 

00,2000 

PLAY  JOB  EQUALS 

0023 

B WORDS  LEFT 

00,3774 

03774. 

0 

BNKSUM 

00 

0023 

00,3775 

03775 

1 

00  24 

01 , 2000 

BANK 

01 

0025 

01,2000 

RESTART 

EQUALS 

0026 

01,2000 

LOAD D API 

EQUALS 

0027 

1 WORDS  LEFT  01 , 3776 

03776  1 

BNKSUM 

01 

002  8 

04,2000 

BANK 

04 

0029 

Q*  ,2000 

R 02 

EQUAL S 

0030 

04, 2000 

VERB  37 

EQUALS 

0031 

04,2000 

P I N BALL 4 

EQUALS 

0032 

04,2000 

a mi  c ;i 

EQUALS 

0033 

C4 , 2000 

KEYRUPT 

EQUALS 

0036 

04,2000 

R36LM 

EQUALS 

0035 

04,2000 

UP  DAT  E2 

EQUALS 

0036 

P4,?000 

E/PF  OG 

EQUAL  S 

00365 

C4 , 2000 

A0TMAPK2 

EQUALS 

0C37 

6 WORDS  LEFT 

04,3771 

03771 

0 

BNKSUM 

04 

0037 

04,3772 

03772 

0 
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L TAGS  FOR  'ELATIVE  ' f "LOG  AMD  BLANK  BANK  CARDS 


0038 

0039 

0040 

0041 

0042 
00425 

0043  5 WORDS  LEFT 
0043 


05,2000 
05,2000 
05 , 2000 
05,2000 
0 5 , 2(  TO 
"5 , 2'  9" 

05.3772 

05 . 3773 


037  72  0 
03773  1 


FR ANDRES 
DOWNT ELM 
ABOR  TS1 
EPHFM1 
4SENT3 


BANK  05 

EQUALS 

EQUALS 

EQUALS 

EQUALS 

EQUALS 

BNKSUM  05 


R 0044 

MODUL E 2 

CONTAINS  BANKS  6 THROUGH  13 

0045 

0C46 

0047 

004  8 
00485 
004  °6 
0049 
0049 

06,2000 

06,2000 

06,2000 

96 . 2000 

06 . 2000 
06: , 2000 

06.3764 

06 . 3765 

I MUCOMP 

TA  - UP 
RCSMONT 
MIDDGIM 
EA'THLOC 

BANK 

EQUALS 

EQUALS 

EQUALS 

EQUAL S 

EQUALS 

BNKSUM 

06 

11  WORDS  LEFT 

03764  1 

03765  0 

06 

005  0 
005  1 

0052 
00525 

0053  4 wu;  DS  LEFT 

0053 


07 , 2000 
07 , 2000 
07,2000 
C 7 , 2000 

07.3773 

07.3774 


03773  1 

03774  0 


APT  1 AP  K 1 
MODE  SW 
AS  ENT  2 


BANK  07 
EQUALS 
EQUALS 
EQUALS 
BNKSUM  07 


0054 

0055 

0056 

0057 

0058 
00585 

0059  2 WORDS  LEFT 
005Q 


10,2000 
10,2000 
10,2000 
10,2000 
10, 2000 
10, 2000 

10.3775  03775  1 

10.3776  03776  1 


BANK  10 
P.TBCODES  EQUALS 
DISPI  AYS  EQUALS 
PHASETAB  EQUALS 
FLES.HLOC  EQUALS 
SLCTMiJ  EQUALS 

BNKSUM  10 


0060 

1 I ,2000 

BANK 

1 1 

0061 

1 1 , 2000 

ORBITAL 

EQUALS 

0062 

1 1 , 2000 

F2DPS*1 1 

EQUALS 

0063 

L 1 , 2000 

INTVEL 

EQUALS 

0065 

1 WORDS  LEFT 

1 1 , 3776 

03776  1 

BNKSUM 

1 1 

006  6 

12,2000 

BANK  12 

0067 

12 , 2000 

CONICS 

EQUALS 

00675 

12,2000 

ORBITAL  1 

EQUALS 
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GAF  : 

L TAG!  HOF  RELATIVE  S E T Lfl  C AND  BLANK  BANK  CA  DI 

00676  12,2000  INTPP.ET2 

0068  1 WORDS  LEFT  12,3776  03776  1 


0069 
007  0 
0071 
007? 

007  3 

0074 
007  4 £ 

0075  F WORDS 
0075 


13,2000 

13, 2000 

13,2000 

13,2000 

13,2000 

1 3,2000 
13,  ?COO 
EFT  13,3767 

13,3770 


LATLONG 
INT  IN  IT 
LEMGEOM 
P76LUC 
OF  81TAL2 
ABTFLGS 

03767  1 
03770  1 


EQUALS 
BNKSUM  12 


BANK  13 

EQUAl.S 

EQUALS 

EQUALS 

EQUALS 

FQ'JALS 

EQUALS 

BNKSUM  13 
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l TAGS  FOP  RELATIVE  SEUnc  AND  BLANK  BANK  C A°Dr 

P0076  MODULE  3 CONTAINS  BANKS  14-  THROUGH  21 


0077 

Ou?8 

0079 
007  9 5 

0080 
0080 


14,2000 

1 4 , 2000 
14, 2000 

1 4 , ?6  9 0 
14, 3774 

P5GS1 

STA'  TAB 
AS  ENT 4 

BANK 

EQUALS 

EQUALS 

EQUALS 

BNKSUM 

14 

WORDS  LEFT 

03774  0 

14 

14,3775 

03775  1 

0081 
008  2 

0083 

0084 


008  5 
0086 
0087 
0087 


008  8 

0089 
00895 

0090 
0090 


15,2000 

15,2000  P50S 

15,2000  EPHEM 

1 WORDS  LEFT  15,3776  03776  1 


16,2000 

16,2000  DAPS  1 

5 WORDS  LEFT  16,3772  03772  0 

16,3773  03773  1 


17,2000 

17,2000 

17,2000 

27  WORDS  LEFT  17,3744  03744  0 

17,3145  03745  1 


DAPS  2 
P40S3 


BANK 

15 

EQUAL  S 

EQUALS 

BNKSUM 

15 

BANK 

16 

EQUALS 

BNKSUM 

16 

BANK  17 
EQUAL  S 
EQUALS 
BNKSUM  17 


0091 

0092 

0093 

009  3 5 

20,2000 

20,2000 

20,2000 

20,2000 

20,3772 

0094 

5 WORDS  LEFT 

0094 

20,3773 

DAPS  3 
LOADDAP 
R 0 DT  K A P 

03772  0 

03773  1 


BANK  20 
EQUALS 
EQUALS 
EQUALS 
BNKSUM  20 


0095 

0096 

0098 

0099 

0100 
0100 


7 WORDS  LEFT 


21,2000 

BANK 

21 

21 , 2000 

DAPS4 

EQUALS 

21 , 2000 

RIO 

EQUALS 

21 , 2000 

R 1 1 

EQUALS 

21 ,8779 

03770 

1 

BNKSUM 

21 

21 , 3771 

03771 

0 
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L 

TAGS 

Fr  K P El  AT  I VE 

set  me  and 

BLANK  BANK 

CARDS 

P0101 

MODULE  4 

CONTAINS  BANKS  22  THROUGH  27 

0102 

??  ?nr,n 

p.  A * ; K 

. - C , L.  V 1 ! 

L>  M » A TV 

0103 

22,2000 

KALCM0N1 

EQUALS 

0104 

22,2000 

KALCMQN2 

EQUALS 

0105 

22 , 2000 

P30L0C 

fouai  r 

U 'll  U H l.  yj‘ 

0106 

22,2000 

RENDEZ 

EQUAL  S 

01065 

22,2000 

SEF  V2 

EQUALS 

01066 

22,2000 

L AND CN ST 

EQUALS 

0107 

4 

WORDS  LEFT 

22,3773 

C 37  73  1 

BNKSUM 

0107 

22,3774 

03774  0 

oioe 

23,2000 

BANK 

0109 

23,2000 

POWFL  ITE 

EQUALS 

0110 

23,2000 

P ( 1 W FLIT  1 

EQUALS 

0111 

23,2000 

If,  Ft.  IGHT 

EQUALS 

0112 

2 7 . 2 0 0 0 

APnPFP 1 

POH  A 1 9 

C.  D J 6 ' 1 U 

Hr!  M 1 

0113 

23,2000 

6 1 

EQUALS 

0114 

23,2000 

R6  2 

EQUALS 

0115 

2 3,2000 

I NT  PI  El  1 

EQUALS 

0116 

23,2000 

ME  AS  I NC 

FQUAIS 

0117 

23,2000 

ME A 5 I NCI 

EQUAL S 

0116 

2 3 , 2000 

EXtVBl 

EQUALS 

01185 

23,2000 

P12A 

EQUALS 

0 1 1 P 6 

23,2000 

NORMLT  Z 

EQUALS 

01187 

23,2000 

ASENT7 

EQUALS 

0119 

WORDS  LEFT 

23,3767 

03767  1 

BNKSUM 

011° 

23,3770 

03770  1 

0120 

0121 

0122 

0123 

2 WORDS  LEFT 

24,2000 
24 ,2000 
24,2000 
24,3775 

03775  1 

PL  ANT  IN 
F20S 

BANK 

EQUALS 

EQUALS 

BNKSUM 

0123 

24,3776 

03776  1 

0124 

25,2000 

BANK 

0125 

25,2000 

P20S1 

EQUALS 

0126 

26 , 2000 

P20S2 

EQUALS 

0127 

26,2000 

P ADAPUPT 

EQUALS 

01 2 P 

25 ,2C00 

RRl FADIN 

EQUALS 

012° 

25 , 2000 

F<29S  1 

EQUALS 

01295 

2 5 , 20C0 

PL  ANT  I N 3 

EQUALS 

Cl  30 

7 WORDS  LEFT 

25,3770 

037  70  1 

BNKSUM 

0130 

25,3771 

03771  0 

0131 

26,2000 

BANK 

22 

2 2 

23 

2 3 

24 

2 A 

25 

25 

26 
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0132 

0133 

0134 
013  5 
01 3 c 1 
0 1 3 K 6 

0136  2 WORDS  LEFT 

0136 


26,2000 
26,2000 
26,2000 
26,2000 
26 , 2000 
26,2000 
26,3775 

P20S3 

BAWL  ANGS 
MANUVEP 
MAI UVER 1 
PI  ANT  I N 1 
P1.ANTTN2 

EQUALS 
EQUALS 
EQUALS 
EQUALS 
EQUALS 
EQUALS 
BNKSUM  26 

03775  1 

26,3776 

03776  1 

0137 

0133 

0130 

0140 

0141 
01*2 

0142  5 

0143  6 '•'r’FDS  LEFT 
0143 


27, 2000 
27,2000 
27,2000 
27,2000 
27,2000 
27,2000 
27,2000 

27.3772 

27. 3773 


03772  0 

03773  1 


TOF-FF 
■ F-FF1 
P40S1 
VECPT 
ASEf  T1 
SERV3 


BANK  27 

EQUALS 

EQUALS 

EQUALS 

EQUALS 

EQUALS 

EQUALS 

BN K SUN  27 
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L TAGS  FOr  RELATIVE  SETLOC  AND  BLANK  BANK  CAROS 

P0144  MODULE  5 CONTAINS  BANKS  30  THROUGH  35 


0145 

30,2000 

BANK 

30 

C 146 

30,2000 

LQWSUPE2 

EQUALS 

0147 

30,2000 

P 1 2 

EQUALS 

0148 

35,2000 

AS  ENT 

EQUALS 

0149 

30,2000 

FCDUW 

EQUALS 

01495 

30,2000 

FLOGSUB 

EQUALS 

01496 

3C, 2000 

VB67A 

EQUALS 

01457 

30,2000 

A SENT 5 

EQUALS 

0150 

2 WORDS  LEFT 

30,3775 

03775  1 

BNKSUM 

30 

0150 

35,3776 

03776  1 

0151 

31,2000 

BANK 

31 

0152 

31, 2000 

F THE OT 

EQUALS 

0153 

31,2000 

F2DPS*31 

EQUALS 

0154 

3 1 . 2 0 n n 

V B67 

EQUALS 

■life.  'J  v>  v ■ 

015  5 

14  WORDS  LEFT 

31 , 3761 

03761  1 

BNKSUM 

31 

0155 

31, 3762 

03752  1 

0156 

32,2000 

BANK 

32 

0157 

32,2000 

P 2 0 S 4 

EQUAL  S 

015  8 

32 , 200n 

F 2 DP  SI*  32 

EQUALS 

0159 

32,20'PO 

ABORTS 

EQUALS 

0160 

32,2000 

LRS22 

EQUALS 

0161 

32,200 0 

P66L0C 

EQUALS 

0163 

32 , 2000 

T47 

EQUALS 

01635 

32,2000 

SEP  V 

EQUALS 

0164 

4 WORDS  LEFT 

32,3773 

03773  1 

BNKSUM 

32 

0164 

32,3774 

03774  0 

0165 

33,2000 

BANK 

33 

0166 

33,2000 

SERVICES 

EQUALS 

0167 

33,2000 

R 29/SERV 

EQUALS 

01676 

33,2000 

ASENT6 

EQUALS 

0168 

0 WOLDS  LEFT 

33,2000  NO  NEED 

BNKSUM 

33 

016° 

34- , 2000 

BANK 

34 

0170 

34,2000 

STBLEORB 

EQUALS 

0171 

34 , 2000 

P30S1 

EQUALS 

0172 

34,2000 

CS I/C0H1 

EQUALS 

0173 

34,2000 

ASCFILT 

EQUALS 

01735 

34,2000 

12STUFF 

EQUALS 

01  736 

34,2000 

SERV4 

EQUALS 

0174 

2 WORDS  LEFT 

34,3775 

03775  1 

BNKSUM 

34 

0174 

34,3776 

03776  1 
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L TAGS  FOR  RELATIVE  SETI.OC  AND  BLANK  BANK  CARDS 


017- 
017 
0177 
017F 
01  79 
01  or 


35  » 2CC0 
35,2000 


35,2000 


35,2000 

35,2000 


35,3775 


BANK  35 
CSI/COH  EQUALS 

P 3 0 S EQUALS 

GL  M EQUALS 

P40S2  EQUALS 

BNKSUW  35 


1 WORDS  LEFT 


03776  1 
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GAP:  ASSEMBLE  iEVISID;  001  OF  AGO  PkOGRAM  AP11RGPE  BY  EYLES 

L TAGS  FOR  RELATIVE  SFTLOC  AMO  BLANK  BANK  CAROS 

PC181  MODULE  6 CONTAINS  BANKS  36  THROUGH  <3 


0132 

36,2000 

BANK 

36 

01*3 

3 6 , 2000 

P40S 

EQUALS 

0184 

1C  WORDS  LEFT 

36, 3765 

03765 

0 

BNKSUM 

36 

01*6 

3 6 , 376  6 

03766 

0 

0185 

37,2000 

BANK 

37 

01«6 

37, 2000 

P 0 5 P 0 6 

EQUALS 

Cl  37 

37,2000 

TMIJ2 

EQUALS 

018* 

37,2000 

! WU4 

EQUALS 

0185 

37,2000 

R31 

EQUALS 

0190 

37,2000 

I MUSUPER 

EQUALS 

0191 

37,2000 

SERV1 

EQUALS 

0192 

3 WORDS  LEFT 

37,3774 

03774 

0 

BNKSUM 

3? 

0192 

37,3775 

037  75 

1 

0193 

40,2000 

BANK 

40 

0194 

40,2000 

PIIM3  ALL1 

EQUALS 

0195 

7 000 

SEl  PSUER 

EQUALS 

019* 

40,2000 

P INSUPER 

EQUALS 

0196  " 

60, 2000 

R31L0C 

EQUALS 

0107 

52  WORDS  LEFT 

40,3713 

03713  1 

BNKSUM 

40 

0197 

40,3714 

03714  0 

0198 

019Q 

41, ?000 

41 . ? on 0 

BANK 

PI  MB  AIL  2 EQUALS 
BNKSUM 

41 

0200 

0200 

38  WORDS  LEFT 

r jl  , c.  uuu 

41.3731 

41 . 3732 

03731  1 

03732  1 

41 

0201 

42 , 2000 

BANK 

42 

0202 

42 , 2000 

S BAN  D 

EQUALS 

0203 

42,2000 

P INBAL  L3 

EQUALS 

0204 

5 WORDS  LEFT  42,3772 

03772  0 

BNKSUM 

4 2 

0204 

42,3773 

03773  1 

020* 

0206 

0207 

43,2000 
43 , 2000 
43,2000 

EXTVEr BS 
SFLFCHEC 

BANK 

EQUALS 

EQUALS 

4 3 

020  8 
020* 

21  WORDS  LEFT 

+3,3752 

43,3753 

03752 

03753 

1 

0 

BNKSUM 

43 

3:15  DEC 


2 ,197,0 


36 


USEE  ' 


( MAIN ) 
PAGE  NO.  9 


PAGE 

EO 


3 AP : AS St MBit  REVISION  GOl  OF  AGC  PROGRAM  AP11R0PE  BY  EYLES 


L 


TAGS  FOt-  RELATIVE  SETLOC  AND  BLANK  BANK  CARDS 


0209 

REF 

1 

0210 

REF 

1 

0211 

REF 

1 

0212 

REF 

1 

0213 

REF 

1 

0214 

RFF 

1 

0215 

REF 

2 

0216 

REF 

1 

0217 

REF 

1 

02 1 P 

REF 

2 

021° 

REF 

I 

09  9 O 

Df-p 

I 

V C.  C.  V ’ 

nur 

1 

R0221 

23,2521 
12, 2006 
23,2517 
12,2004 
2,3,251  1 
04,3036 
LAST  37  23,251.7 

23,2515 
23,2513 
LAST  37  12,2004 

12,2002 
12,2000 


H I 6 Z 
L 06  Z 
HI  DP 
LOOP 
HIDE 
LOOP 
HT  UN 
HI  UN 
HI  UN 
LOUT. 
LOUT 
L OUN 


EROS 

EROS 

HALF 
HALF 
1/4 
1 / 4 
ITX 
T TY 
ITZ 
rrx 

I TY 
ITZ 


EQUALS  ZEROVECS 
EQUALS  ZEROVEC 
EQUALS  UNI TX 
EQUALS  XUNIT 
EQUALS  DP1/4TH 
EQUALS  Dl/4 
EQUALS  UNITX 
EQUALS  UNITY 
EQUALS  UNITZ 
EQUALS  XUNIT 
EQUALS  YUNIT 
EQUALS  ZUNIT 


0222 

REF 

1 

22,3541 

DELK  SPL 

EQUALS 

SPL  RE  T 

R 022  3 

ROPE- 

SPEC  IF  IC 

ASSIGNS  OBVIATING  NEED 

TO  CHECK  COMPUTER 

FLAG  IN 

0225 

REF 

1 

1 3, 2734 

ATOPTHI S 

EQUALS 

ATOPLEM 

0226 

REF 

1 

13,2661 

ATOPOTH 

EQUALS 

ATOPCSM 

0227 

REF 

1 

1 3, 3043 

OTHPLEC 

EQUALS 

CSMPkEC 

02  2 P 

REF 

l 

0174 

m-OONTHI  s 

FQUALS 

L MO ON FI G 

022° 

REF- 

1 

o 1 7 3 

noun  cm 

EQUALS 

C MO ONE LG 

023  r 

REF 

1 

13,2747 

MOVATHI S 

EQUALS 

MOVEAL EM 

0231 

REF 

1 

12,2017 

RMM 

= 

LOOPMAX 

0232 

REF 

1 

12,2021 

RME 

= 

L0DPMAX1 

0233 

REE 

1 

13,3057 

THI SPREC 

EQUALS 

LEMPRFC 

0234 

REF 

2 LAST 

37  23,2513 

THISAXIS 

= 

UNITZ 

0235 

REF 

1 

23,2513 

NB1NB2 

EQUALS 

THISAXTS 

023  6 

pet 

1 

l 

a n i i 

CD  A C T p 

EQUALS 

EQUALS 

a T T ^ ? — 1 P 

0237 

ocr 

REF 

9 L'  I 1 

4752 

Hr.  hj  1 u 

DELAYNUM 

Dl  1 Oi  1 

TWO 

3:15  DEC 


2,1970 


( MAIN  ) 


PAGE 


37 


USER  ' S 

ZERO  VECTOR 
ZERO  VECTP 


PAGE  NO. 

ALWAYS  IN 
ALWAYS  IN 


10  EO 

HIGH  MFMORY 
LOW  MEMORY 


2QEC  .25 


20EC  .5 
2DEC  0 
2DEC  0 


COL  PGM,  ALSO  CALLED  BY  R30  IN  LUMINARY 
DETERMINING  INTEGRATION  AREA  ENTFIES. 


FOR  R 3 1 

DnWML INK  ERASABLE  DUMP  in 


GAP:  ASSEMBLE  -E  V I S 1 1 r 301  'IF  AGC  P';' -G:  A:!  APUROPE  BY  EYLES 

L CONTROLLED  CONSTANTS 

POOOl  DPS  AND  APS  ENGINE  PARAMETERS 


3:15  DEC.  2,1970  (MAIM! 

USER'S  PAGE  NO.  1 


PAGE 

EG 


0002  REF  1 

0003 

0004  REF  1 


33 . 2000 

36.2000 


SETLOC  P40S 
BANK 

COUNT*  H/P40 


R 0005  ***  the  ORDER  OF  THE  FOLLOWING  SIX  CONSTANTS  MUST  MOT  BF  CHANGED  *** 


0006 

0006 

0007 

0007 

0008 
0008 

0009 
OOP'-- 
001.0 

0010 
0011 
001 1 

R 00 1 2 


3 , 20  O’  0 
To, 2 00  1 
36,  ?0<’2 

36.2003 

36.2004 
3 . , 200  5 

36.2006 

3 6 . 2007 

36.201 0 

36.2011 

36. 2012 
3.6,2013 


# 4=  %'■  # 'r  ❖ * # •:<  * * >7  * * aftajt  ❖ ££:>«{ 


01056  0 
37167  0 
00457  1 
03250  0 
77777  0 
77731  1 
00307  0 
11040  0 
0 0151  1 
05214  0 
77777  0 
77765  0 


FOPS 

2DEC 

4.3670 

8-7 

M DC1  TOPS 

2 DEC 

0.1439 

B^-3 

DTDECAY 

20EC 

-38 

FAPS 

2 DEC 

1.5  5':  3 

B-7 

MnnT  apr 

2DEC 

0 • C 8 1 3 K 

pL  3 

1 IC/U  1 Hr  O 

ATDECAY 

2DEC 

-10 

9817.5  LBS  FORCE  IN  NEWTONS 

0X233 

32.62  LBS/SEC  IN  KGS/CS. 

cpn~a 

3500  LBS  FORCE  IN  NEWTONS 
11.32  LBS/SEC  IN  KGS/CS 


* * * * * * * ******  * **4#»#|Mt$***!%************** 


0013 

36,2014 

00026  0 

0013 

36,2015 

SO  5 1 

0014 

36,2016 

00013  0 

0014 

36,2017 

14303  1 

001  5 

PPF 

1 

27,2000 

001  6 

27 , 2000 

0017 

REP 

\ 

R 00 1 8 

APS  IMPULSE 

DATA  FOP  P42 

?;c  £ pjc  # >;«  % j;c  ^ # 

FRCS4  2DEC  0.17792  9-7  60S  LBS  FORCE  IN  NEWTONS 

FPCS2  2DEC  0.08896  6-7  200  LBS  FORCE  IN  NEWTONS 

SETLOC  P40S1 
BANK 

COUNT  * $ $/ P40 

****  *'1|*  s^#*  *******  *******  *****E>e* 


0019 

0019 

0020 
0020 
002  1 
0021 

R 002  2 


2 7,  2C00 

Ot  000 

1 

K1VAL 

2D  EC 

124.55 

R-23 

27,2001 

076  22 

0 

27 , 2902 

00000 

1 

K2VAI. 

2DEC 

31.138 

R— 24 

27,2003 

00762 

1 

27,2004 

000  30 

1 

K3VAL 

2DEC 

1 .5569 

B-l  0 

27,2005 

3 5104 

1 

* 'r '!=  * **#  * ***  v **  * ❖ r Jr  >r  t-  V,;  jjcjt*#  r # 5^3;  * s’;  ■['  r * * sfs  * * $********  i|<*  * * 


2800  LB-SEC 
700  IB-SEC 

FAPS  ( 3500  LBS  THRUST) 


0023 

27,2006 

00016 

0 

S40. 136 

0023 

27,2007 

36237 

1 

0C2' 

27,2010 

3571  1 

0 

S40. 136_ 

0024 

27, 2011 

35663 

1 

002  5 

REF  1 

27,2000 

002  6 

27,2012 

0027 

PEF  1 

002  P 

27,2012 

03631 

0 

( 1 /DV ) A 

0028 

27,2013 

23146 

0 

2 DEC  .4671  B-9  .4671  M NEWTONS  (DPS) 

2 DEC  .4671  B + l c40.136  SHIFTED  LEFT  10. 

SETLOC  ASENT1 
BANK 

COUNT  * $$/P70 

2 DEC  15.20  B-7  2 SECONDS  WOPTH  OF  INITIAL  ASCENT 


38 


GAP:  ASSEM  ' 1 F.  uGK  AM  APUkUPE  BY  EYLES 


3: 15  DEC.  2,1970 


( MAIN) 


PAGE  39 


L C'-NT  T!  LED  CONSTANTS 


USER’S  PAGE  MO.  2 EO  S3 


A002° 

A 0030 
A 003  1 
A 00  37 
A 00  3 3 
A 00  3 A 

003  ^ 

0035 

0036 
0036 

A 003  7 
003? 

0038 

A003° 

A 0040 
A 005  1 
A 0042 

004  7 PEE  1 

0044 

0045  REF  1 

0046 
004  fc 

0047  : EF  1 

004  ? 

004 c REF  1 


27. 2014  33226  1 

27.2015  14632  0 

27.2016  05306  1 

27.2017  15503  0 

27.2020  26337  1 

27.2021  30000  1 


3 0 , 2000 
30, 2C00 

30.2000  02445  0 
3 0,2  0 n 1 0 C 274  0 

33.2000 
33,2000 


STAGE  ACCELERATION  — INVERTED  (M/CS) 

1)  PREDICATED  ON  A LIFTOFF  MASS  OF 

4869.9  KG  ( SNA-8-D-027  7/11/68) 

2)  PREDICATED  ON  A CONTRIBUTION  TO  VEH- 
ICLE ACCELERATION  FROM  PCS  THRUSTEPS 
EOUIV.  TO  1 JET  ON  CONTINUOUSLY. 

KI1/DV)  2DEC  436.70  B-9  DPS  ENGINE  THRUST  IN  NEWTONS  / 100  CS . 

( AT  ) A 2DEC  3.2583  E— 4 B-9  INITIAL  ASC.  STG.  ACCELERATION  *4  M/CS. 

ASSUMPTIONS  SAME  AS  FOR  (l/DVJA. 

( T 8U  P ) A 2 DEC  0 1902  8-17  ESTIMATED  8UPN-UP  TIME  OF  THE  ASCENT  STG 

ASSUMPTIONS  SAME  AS  FOR  ( 1 / DV ) A WITH  THE 
ADDITIONAL  ASSUMPTION  THAT  NET  MASS-FLOW 
RATE  = 5.2^9  KG/SEC  = 5.135  (APS)  + 

.164  (1  PCS  JET). 

SET!  OC  ASEN'r 
BANK 

COUNT*  $ $/ AS  ENT 

AT /R CS  2 DEC  .0000785  B+l C 4 JETS  IN  A DRY  LEM 

SETLUC  SERVICES 
BANK 

COUNT  * $ $ / S E 7 V 


R 0050  ***  THL  CRDER  OF  THE  FOLLOWING  TWO  CONSTANTS  MUST  NOT  BE  CHANGED  ******* 


005  1 

33,2000 

4154?  0 

APS VEX  DEC  -3030  E-2  B-5  9942 

FT/SEC  IN  M/CS 

• 

0052 

33,2001 

42341  1 

DPSVEX  DEC*  - 2. 9 55  88  86  8 E+  IB-05* 

VE  (DPS) 

+ 2. 95588  868 E + 

3 

RODS? 

*<****  * ***-  *****  **  **  **  * ***  **  ***&  ***  *******************  *****  **  *******  ****** 

008  4 

REF 

1 31,2000 

SFTLOC  F 2 D P S * 3 1 

00r  * 

31 , 2000 

BANK 

0056 

REF 

1 

COUNT*  $$/F2DPS 

005  7 

31,2000 

00222  0 

TF  It  ACC  L 2 □ E C * + 3. 50 1 3 2708E-  5B+08* 

A ( T ) 

+ 3.50  132708E- 

1 

0057 

31 , 200  1 

33316  0 

SAP:  ASSEMBLE  RE  VISION  OC-1  OF  AGC  PROGRAM  AP11ROPE  BY  EYLES 

L CGMTrOLlED  C.O'iSTAMS 

P 0058  THROTTLING  AND  THRUST  DETECTION  PARAMETERS 


3:  15  OEC.  2,1970  (MAM) 

USER'S  PAGE  NO.  3 


PAGE  AO 
EO  S3 


005 c REF  ? LAST 

0060 

00*1  RPF  2 L AST 

0062 

006  3 

0066  PEF  1 

006 c REF  L 

0066 

0067  D EF  1 

006P 

0069  REF  1 

0070 

007)  REF  1 

0072 

0073 

0074 

00745 

0074  5 

0075  REF  1 

0076 

0077  PEF  1 

007  6 


36 , 2000 

SETLOC 

R4QS 

3M  2020 

BANK 

7P  : 

16 

16* 

COUNT* 

$ $ / P 4 0 

36,2020 

00030 

1 

THKESH1 

DEC 

24 

36,202 1 

00014 

1 

TH  ESH3 

DEC 

12 

4737 

HIRTHROT 

= 

B IT  1 3 

6000 

SETLOC 

FFTAG5 

6000 

BANK 

COUNT* 

$ $/P40 

6000 

00464 

1 

THPESH2 

DEC 

303 

31,2000  SETLOC  FTHROT 

31,2002  SANK 

COUNT*  $|/THRnT 


31 , 2002 

07401 

0 

FMAXODD 

OEC 

-f 

3 34  1 

fsat 

+4.8145441 3E+ 

4 

31,2003 

06613 

0 

FMAXPOS 

DEC 

+ 

3467 

FM  AX 

+ 4 .34546769  F + 

4 

31,2004 

00024 

1 

THROTLAG 

DEC 

20 

TAU  ( 7- H > 

+ 1 .99999999F- 

1 

31 , 200  5 

00307 

0 

SCAL  EF AC 

2 DEC* 

+7 

.079598726+ 

2 8-16*  B I TP  FP  F 

+ 7 . 97  959  872E- 

2 

31 , 2006 

17534 

0 

32,2000 

SETLOC 

F2DPS*32 

32,2000 

BANK 

COUNT* 

$$/F2DPS 

32  , ?6>no 

0 004  4 

1 

DPSTHRSH 

DEC 

36 

(THRESH!  + VF'  ESH3 

FOR  P63) 

SAP:  ASSEMBLE  REVISION  Of,  1 06  AGC  PROGRAM  AP11RUPE  BY  EYLtS  3:15  DEC.  2,1970  (MAIN)  PAGE  41 

L CONTROLLED  CONSTANTS  USER’S  PAGE  NO.  A EO  S3 

P 008 2 LM  HARDWARE-RELATED  DARAMETE:'S 


OOP? 
00  8 4 
OOP? 

0086 

0087 

0087 

0088 
008  9 
0090 

00°  1 
00°  1 
0092 
0092 
0098 
009<5 
0100 

0101 

0101 

0102 

0102 

019^ 

0103 

0104 
0104 

R 0 1 0 5 


REF 
° F E 


REF 

REF 


REF 

REF 


2 LAST 
2 LAS” 


39 

3 ? TO 


25,2000 
25 , 2000 

47777 

25,2000 

0 

25,2001 

0000 1 

0 

25,2002 

01150 

1 

32,2000 

32 , 2001 

32 , 200  1 

7 012  3 

0 

%2,  7 0 n 7 

40702 

0 

32, 2003 

13337 

1 

32, 2004 

1C776 

0 

33, 2LC0 

33,200? 

39: 

7 

2 * 

33, 2002 

6 1C  00 

0 

33,2003 

712  10 

1 

33,2004 

ooooc 

1 

33,2005 

oocoo 

1 

33,2006 

7 2 333 

1 

33,2007 

45546 

1 

33, 2010 

65363 

1 

A3, 201 1 

64451 

0 

SETLOC  KAOAkUPT 
BANK 

COUNT  * «$/>  UPT 


LVELBIAS  DEC 
ROOT  BIAS  2 DEC 


-12238 
1 7000 


LANDING  RACA)  BIAS  FOR  133.6  KC. 
BIAS  COUNT  FOR  RR  RANGE  R ATE. 


SETLOC  LPS22 
BANK 

COUNT*  SS/I-S22 


RDOTCONV  2 DEC 
P.  ANGCONV  2DEC 


-.001913534'.  37  CONVERTS  RR  RDGT  READING  TO  M/C  S AT  2(7) 
2.8  5902 z 8-3  CONVERTS  PR  RANGE  READING  TO  M . AT  2 ( - 29 


SETLOC  SERVICES 
BANK 

COUMT*  $$/cERV 


HBEAMANT  2DEC 
2DEC 
2DEC 


-.4687018041 

0 

-.1741224271 

-.3288792 


RANGE  BEAM  IN  LR  ANTENNA  COORDINATES. 


HSCAl  20EC 

*****  THE  SEQUENCE  OF  THE  FOLLOWING  CONSTANTS  MUST  BE  PRESERVED  ******** 


SCALFS  1.074  FT/BIT  TO  2(22>M. 


0106 

3 3 , 201 2 

21241 

0 

VZSCAL 

2 DEC 

+ .5*  10829105 

SCALE  S 

. 8668 

FT/SPC/B  IT 

TO 

2(19) 

M/CS. 

0106 

33,2013 

037  16 

1 

0107 

33,2014 

30153 

0 

VYSCAL 

2DEC 

+.7565672446 

SCALES 

1.2  12 

FT/SEC/BIT 

TO 

2(18) 

M/CS. 

0107 

33,2015 

2 3 1 0 1 

0 

0108 

33 , 7016 

63105 

0 

VXSCAL 

2DEC 

-.4020043770 

SC Al  ES 

— .644 

FT/SEC/BIT 

TO 

2 ( 18) 

M/CS. 

0108  33,2017  61733  1 


R 0 1 0 S **  * * ^*  * **  **  * **  * * * * * **  * **  **  * * **  **  * * * * **  **  * **  ****  *******************  ****  ** 


0110 

33,2020 

015  07 

1 

K P I P 

DEC 

.0512 

SCALES 

DELV 

TO 

UNITS 

OF 

2(5) 

M/CS 

Oil  I 

33,7021 

r'03  21 

1 

KPI  PI 

2 DEC 

.0128 

SCALFS 

DELV 

TO 

UNITS 

OF 

2(7) 

M/CS 

0111 

33,2022 

26706 

1 

0112 

33,2023 

0^150 

0 

KPIP2 

2DEC 

. 0064 

SCALES 

DELV 

TO 

UNITS 

OF 

2(8) 

M/CS 

0112 

33,2024 

33343 

0 

IAP:  ASSEMBLE  RE  VI  SI  ON  00 1 OF  A^C  PROGRAM  AP11ROPE  BY  tYLES 


CONTROLLED  CONSTANTS 


0113 
01 1 3 

0114 

0114 

0115 

01  1 6 

REF 

0117 

0118 

01 1 c 

REF 

0120 

0121 

0122 

0123 

0124 

REF 

012  r 

0121 

REF 

0127 

33. 2025 

33.2026 

33.2027 
33,2030 
21 ,2C 00 
3 1 , 2000 


2 1 , 2C  C 0 
21, 2001 
21 ,2002 

21.2003 

21 .2004 

21.2005 

20,2000 
20, 2C 00 


02630  0 
25010  1 
24402  1 
26003  0 


2'- 402  1 
01551  1 
21357  0 


ALTCONV 

Af'CONVl 


ARC J NV 
A»  Tf  A 
ARTPA2 


2DEC 

20EC 


1.3  07  r B-4 

656.167579  B-10 


>ETLUC  10 
BANK 

COUNT  * $S/R10 


OCT 

DEC 

DEC 


22316  0 VELCONV  OCT 
'157  1 KPIP)  ( ) DEC 
00547  1 MAXVBITS  OCT 


24402 

. 1066 G°E  B— 1 
.0021322  B8 
22316 
.0512 
00547 


SETLOC  DAPS3 
BANK 

COURT*  $$/D;fPAP 


15  DEC.  2,1970  ( MAIN 

USER  ’S  PAGE  MO.  5 
CONVERTS  M*2(-24)  TO  BIT 
CONV.  ALTRATE  COMP.  TO  BI 


65'>.1£7  :' 7 9 83-10  CONV  AL To 
.25/2.345  3-1  4X/SEC  CYCL 
! .5 ) / (2.345) ( 1 OO) 

533.914  B-10  CONV  VEL . TO 
SCALES  DELV  TO  M/CS*2(~5) 
MAX.  DISPLAYED  VELOCITY  1 


20,2000  01150  1 T0RKJET1  DEC 


.03751 


) PAGE  42 

EO  S3 

UNITS  *2 (-28). 

T UNI TS< 

ATE  TO  BIT  UNIT 
E PATE. 

BIT  UNITS. 

99.9989  FT/SEC. 


550  / .2  SCALED  AT  (+16)  64  / 180 


GAP:  ASSE.'ibLt  RE  VII  ON  001  OF  AGC  PROGRAM  API  1'- OPE  BY  EYLES 

L CONTROLLED  CONST Af'TS 

P012P  PARAMETERS  RELATING  TO  MASS,  INERTIA,  AND  VEHICLE  DIMENSTIONS 


3:15  DEC.  2,1570  (MAIN) 

USER'S  PAGE  NO.  6 


0 1 2C 
0130 
013] 

0132 

0133 
013' 

0135 

0136 

0137 
01  3 P 
013  5 


REF 

RFF 

REF 

REF 


PFF 

REF 


05,2000 
05 , 2 C OO 


2 LAST 


42 


01,2000 

01,2000 


01 ,2000 
'*1,200  1 
474  1 
20,2000 


S tTLCC  FRAN  DEES 
BANK 

COUNT*  $$/ START 


05,2000  02357  1 FULLAPS  DEC 


5050  B- 16 


SETLOC  L0ADDAP1 
BANK 

CCWT*  $$/P03 

1 MINLMD  DEC  -2850  B-16 

7 4 731  0 I"  i "■! !•'  I U • DEC  -2200  B-16 

MH;CSM  = BITll 

SETLOC  DAPS  3 


0141 

REF 

2 LAST 

C.  M f \ J. 

42  TO  43: 

1 1 

* 

l ■'  M i . rv 

COUNT  * 

$ $/ DAP  AO 

0142 

20, 2001 

01046  1 

LO A SCENT 

DEC 

2200  B-16 

0143 

20,2002 

07361  1 

HIDESCNT 

DEC 

15300  B-16 

014  4 

20,2003 

006  66,  1 

L00ESCN7 

DEC 

1750  B-16 

NOMINAL  FU! L ASCENT  MASS  — 2 


MIN.  DESCENT  STAGE  MASS  — 2< 
MIN  ASCENT  STAGE  MASS  — 2(16 
MIm  CSM  MASS  (OK  FOR  1 /ACCS ) 


MIN  ASCENT  LEM  MAS  5 --  2(16) 
MAX  DESCENT  LEM  MASS  — 2(16) 
MIN  DESCENT  STAGE  ( ALONE ) — 


PAGE  43 
EO  S3 


(16)  KG. 

16)  KG. 

) KG. 

= °050  LBS 

KG. 

KG. 

2(14)  KG. 


GAP:  ASSEMBLE  *E  VISIT!.  OM  OF  AGC  PROGRAM  AP11RUPE  BY  EYI.ES  3:15  DEC.  2,1970  (MAIN)  PACE 
L CONTROLLED  CONSTANTS  USER'S  PAGE  NO.  7 EO  S3 
P 0145  PHYSICAL  CONSTANTS  ( TIMF  - INVARIANT  ) 


0146  REF  1 37,2000  SETLOC  I MU2 

014-'  37,?000  BANK 

0148  REF  1 COUNT  * $$/P0? 


0149 

37,2000 

0149 

3 7 , 2C 0 1 

0150 

R EF  1 

22, 2000 

0151 

22,2000 

019? 

REF  1 

07623  1 OMEG/MS  2DEC  .24339048 
26552  1 

SETLOC  430 LHC 
BANK 

cnP!T*  *$/•  30 


R0153  ***  THE  ORDER  OF  THE  FOLLOWING  TW0  CONSTANTS  MUST  BE  PRESERVED  *#44*4*** 


0154 

0154 
015  r- 

0155 
R 01  56 


22,2000 
22,2001 
22, 200? 
22,2003 


27533  1 
07571  0 
25004  l 
2 1 


1/RTMLIM  2 DEC* 


1 / T*'UF  2 PEC- 


3jc  ajc  ;|t  # ?J(  s';  jjt  ^ # ajc  j}s  j|c  ;|c  * >[c  jJc  # s{<  sj«  ;|j  ^ aj;  jJ:  ^ >Jc  '}t  ;jt  aje  3jc  sjc  sjc  !{c>i<  sj<  o'c  .j{c  >|<  5*c  >Jc  sje  ^|i  jjc  : 


*,5162595  E-4  B14* 
E-5  317* 
*************** 


0157  ;EF  2 LAST  3°  27,2000 

0158  27,202? 

015°  REF  1 


SETLOC  P40S1 
BANK 

COUNT*  $ $/ S40 . c 


0160 

27 , 2022 

55340 

0 EARTHMU 

01  C 

27,2023 

61710 

0 

016  5 

REF 

2 LAST 

38  27,2000 

0166 

27,2024 

0167 

P FF 

1 

2DEC*  -3.986032  E 10  8-36*  M ( 3 ) / C S ( 2 ) 

SETLOC  ASENT1 
BANK 

COUNT*  $ $ / P 1 2 


0168 

0168 

0169 

0169 

01  7( 

0171 

0172  REF 


27.2024 

27.2025 

27.2026 
27,202? 

3 LAST  43  33 , ?(  00 

33,2031 

3 LAST  41  TO  42: 


00072  1 MUM ( -37 ) 2DEC*  4.9027780  E8  B-37* 

16206  1 

00344  1 MOCNIATE  2 DEC*  .26616994890  062  991  E-7  B+19* 
24331  0 

SETLOC  SERVICES 
BANK 

23  25*  COUNT*  $$/SERV 


^.AO/CS. 


8 0173  ***  THE  ORDE?  op  THE  FLILPwt.’G  Tw'T  CONSTANTS  MUST  BE  PRESERVED  ********* 


0174 

0174 

0175 
0175 

P 0 1 7 6 


***** 


33,  203  1 

33.2032 

33. 2033 
3 3,  2034 


613*7  0 -MUDT 
55754  1 

77694  1 -MUDT1 
65556  1 


2 DEC*  -7.9720645  E+12  B-44* 
2 DEC*  —9.805556 0 E+10  B-44* 


K*4  *4  * 44  44  4*  44  444  4*4  4444  44  * >:  *44444  44  44  44  44  444  44  444*  *************** 


0177 

0177 
017” 

0178 


3 3, 2039 

33 . 2036 

33.2037 
33,2040 


64*  >3  1 -MUDTMffc  20EC*  -9.8055560  £ + !"•  8-38* 

55670  0 

00002  0 RESQ  20EC*  40.6309913  E12  B-58* 

11777  0 


44 


APS  ASSE  •' BLe  REVISIOK  O'H  . F AGO  Pg  OGHAM  AP11RGPE  BY  tYLES 


3:15  DEC 


2,1570 


PAGE 


45 


( MA IN  ) 


L CONTROLLED  CONSTANTS 


01 7C  3 3,205  1 

0179  33,2042 

OH  33,2043 

0 1 8 0 3|}»  2044 

0181  ' OF  1 1-  , 3,  • 0 

01  3 2 1 «,  , ?>'r-0 

0183  REF  I 


01023 

1 

20  J 

2UEC 

3.24692010 

E 

3715  5 

1 

0C065 

1 

2 J 

2 DEC 

3 . 2469  20  1 v- 

E 

06  244 

0 

SFTLDC  P SOS  1 
BANK 

COUNT  * $$/LOSAM 


USER • S PAGE  NO.  8 ED  S3 

-2 

-3 


0134 

0184 
01  ' 
01P,:: 
0135. 
0186 
0187 

0187 
018  8 
018« 
0140 


RFF  1 
REF  1 


l- , 2000 

1 , , 8001 
1 2 0 ( ■ 3 

I'-  , >00? 

14. 2004 

14.2005 
1 -,20  06 
l -,  2007 
04 , 2000 
06 , ?oig% 


26723  0 
C 05  ■-  o 0 
0'".-'  i 
3 1 2 S 1 

0C302  0 
24533  1 
00032  0 

04067  0 


K SU h L 1 

2 DEC 

384402000 

FSURN 

2DEC 

173,  a 

RSUBE 

2 DEC 

6378166  B- 

KOE 

2DEC 

.00257125 

r etloc 

? \ N V 

CON  ICC  1 

D A I \ n- 

COUNT* 

$ $/L  T-LG 

0191 

04,2000 

0 03  L 2 G 

tP  AD 

2 DEC 

6373338  B-29  PAD  RADIUS 

0161 

0 4,2001 

17755  0 

019  2 

C4, 2002 

DOC  6 5 1 

504RM 

?DEC 

1 7380° 0 B— 29  METERS  6-29  { F OUATQRI Al 

0192 

04, 2003 

01245  1 

0193 

REF  2 

LAST 

04, 2000 

SETLGC 

CONIC  SI 

0194 

0195. 

REF  1 

04,2004 

BANK 
COUNT  * 

*$/C0NIC 

R 01  96 

***  THE 

ORDER 

0 F THE  FOLLOW  tNG' 

CONSTANTS 

MUST  BE 

PR  ESER 

VED  ***********4* 

0197 

04,2004 

22437  1 

MUTABLE 

2DEC* 

3.986032  E I 0 B-36*  MUE 

0197 

0198 

04 , 200  5 
04,2006 

16067  1 
15625  1 

.25037606  E-  10  B + 34*  1/MUE 

c.  L2  L L.  • 

0198 

04,2007 

210-2  1 

019  9 

04 , 2010 

3 C 2 7 6 1 

2 DEC* 

1.99650' 95  E5  B-18*  SQPT(MUE) 

0199 

04, 201 1 

04773  0 

0200 

C4 , 201 2 

2 SC 04  1 

2 DEC* 

.50087529  E-5  B+17*  l/SQRTlMffiE) 

0200 

04,2013 

06702  1 

0201 

04,2014 

16471 

1 

2DEC* 

4.902778  E 8 B-30* 

MUM 

0201 

0*  ,2016 

01352 

1 

0202 

04,2016 

21412 

0 

2 DEC* 

.203966  E-8  B+28* 

1 /MUM 

0202 

04,2017 

20500 

0 

0203 

04, 2020 

25477 

1 

2DEC* 

2.21422176  E4  B-15* 

SQRTI MUM) 

0203 

04 ,2021 

03367 

0 

0204 

04,2022 

27533 

1 

2DEC* 

.45162595  E-A  8 + 14* 

1 / SOP.  T ( MUM  ) 

0204 

04,2023 

07571 

0 

0205 

*********  *4  S***  $****# 

* ****4$c: 

■}»  Sjs  r # ijc  3{c  3jc 

# aje  # ;}:  j{c  sjr  >■<  :|c  # # # # # ?Jc  a}c  s}: 

MOf-N  RADIUS) 


GAP:  ASSEMBLE  RE  VISION  UOl  OF  AGC  F rUg;  . AM  AP11LJPE  BY  EYLES 

L COKTf'CLLE  D CQ^T4NTF 

0206  REF  1 13,2000  SETLOC  INTINIT 

0207  13,2000  BANK 

0208  REF  1 COUNT*  $$/ INTIN 


35 15  DEC . 2,1970  ( MAIN  ) 

USER’S  PAGE  MO.  9 


02-:jo  13,2f  90  07112  1 OMEGMOON  2 DEC  * 2.66169947  E-B  6+23* 

0209  13,2001  06620  0 

0210  REF  1 13,2000  SETLOC  0RBITAL2 

0211  13,2002  BANK 

0212  REt-  1 CCUNT*  $$/ORBIT 

R 02 1 3 ***  THE  ORDER  OF  THE  FOLLOWING  CONSTANTS  MUST  NOT  >3  E CHANGED  *********** 


02  1 6 

02 1 4 

0215 
02  lc 

021  5 
02 1 6 
0217 

0217 

0218 
02  18 

0219 

0216 

0220 
0220 
0221 
0221 
022? 
0222 

022  3 
0223 

RQ224 


* 


******** 


13,  2002 

2 7446 

1 

2DEC* 

13,2003 

14620 

0 

13,2006 

16471 

1 

MUM 

2DEC* 

13, 2f:Cr 

01352 

1 

13,2006 

2 2437 

i 

MU EARTH 

2QEC.  * 

13,20 0 7 

1 6 067 

I 

13,2010 

Of  000 

1 

2DEC 

13,2011 

ccooo 

1 

13,2012 

02302 

1 

J4|  ,EQ  / J 3 

2 DEC* 

13,2013 

24736 

0 

13,2  0 1 4 

77651 

0 

2 DEC 

13,2015 

76237 

0 

13,2016 

77776 

1 

2J3RE/J2 

2DEC  * 

13,2017 

53032 

0 

13,2020 

10407 

0 

2DEC* 

13,202  1 

05  344 

1 

13,2022 

13710 

0 

J2RE0SQ 

2 DEC* 

13,  2 23 

3 5 3 2 0 

0 

13,2024 

12  160 

0 

3J22R2MU 

2DEC* 

13,2025 

12124 

0 

* * **  ** *** * ******  ***  *******  *************** 


1.32715445  E16  B-54* 
4 .9021  E 8 B - 3 0 * 
3.986032  E 1C  B-36* 

0 

.49  9 1 607  39 1 E7  B-26* 
-176236.02  B— 25 
-.1355426363  E5  B-27: 
.3067493316  E18  8-60: 
1.7 ' 6 L J 139  f ?!  B - 7 2 * 
9.20479048  E16  B-58* 
*******  * * * ******* 


S 

M 


PAGE 
EO  S3 


0225  REF  1 27,2000 

0226  27,2030 

0227  REF  1 


SETLOC  tqF-F'FI 
BANK 

COUNT  * $ $/ TFF 


022  8 

27,2030 

24775 

1 1/lSTMU 

022  8 

27,2031 

3 0424 

0 

022  5 

REF 

1 

42 , 2000 

02  3 0 

42,2000 

0231 

REF 

1 

2DEC*  .5005  7502  7 1 E-5  B17*  MODIFIED  EARTH  MU 

SETLOC  SB AND 
BANK 

COUNT*  $ $ / R 0 5 


02  3 2 
0232 


42.2000  26723  0 REMOIST  20EC  384402000  B-29  MEAN  DISTANCE  BETWEEN  EARTH  AND  MOON. 

42.2001  00450  0 


46 


ASSEMBLE  F-EVISIjN  001  F AGC  P~UG  A,"  A°1  UUPE  BY 


GAP: 

L C0NTF ELL E 0 CON  STANTS 


P 0233 
0234 

AO  J K 

PHYSICAL  CONSTANTS 
REF  1 

(TIME  - VARIANT  ) 
14,2000 

1 7*  OAlfl 

\)c  7 7 

1 T ♦ S'.  1. 

0236 

REF 

1 

.AO  J "7 

1 A 70  vn 

1 52  62 

0 

\J  / 7 I 

1 “ f c.  i 1 J 

0237 

14,2011 

21773 

1 

023  8 

14,2012 

74130 

0 

0238 

14,2013 

42420 

1 

023° 

14,2014 

70033 

0 

0239 

14,2015 

41533 

1 

0240 

14.7014 

15  014 

g 

lit  £ 1 

0240 

14,201 7 

04650 

0 

0241 

14,2020 

67067 

1 

0241 

14,2021 

O 0 1 5:0 

: 0 

024? 

1 4 , 2022 

02551 

1 

024  2 

15 , 202  3 

18723 

0 

0243 

14 , 2024 

07210 

0 

0243 

14,2025 

01664 

1 

0244 

14,2026 

67276 

0 

1 4.7077 

f.  7 7'\7 

n 

V c.  *T  *T 

O C C.  7 A 

0245 

14,2030 

13262 

0 

024  5 

14,2031 

0 056  3 

1 

0244 

14,2032 

05076 

0 

0246 

14, 2033 

35561 

0 

024  7 

14,2034 

70716 

0 

0247 

14,2035 

4 0260 

1 

0248 

1 ,,  20  36 

62  4 66 

1 

0248 

1 4 ,2037 

64656 

0 

024° 

1 i . 707  0 

10652 

1 

1 r f c U 

i 

0249 

14,2041 

04  246 

0 

02  50 

14,204  2 

63235 

0 

0250 

14,2043 

44200 

0 

0251 

14 , 2044 

73710 

0 

0281 

14 ,2045 

66230 

0 

0252 

1 * , 2046 

072Q4 

0 

0282 

14 , 2047 

33712 

0 

0253 

14, 2050 

61747 

1 

0253 

14,2051 

72343 

0 

0254 

14,2052 

02343 

1 

025  4 

14 , 2053 

21362 

0 

0258 

14,2054 

032  37 

1 

0255 

14,2055 

13  301 

1 

025  6 

1 4, 20c6 

62030 

0 

0256 

14,2057 

65332 

0 

025  7 

1 4,2060 

70715 

0 

0257 

14,2061 

71267 

1 

0258 

14,2062 

01  745 

0 

0258 

14,2063 

06477 

0 

0259 

14 , 2064 

63531 

0 

025  9 

14 , 2065 

75365 

0 

EYLES 


3:  15  DEC 


2,1970 


47 


USER'S  PAGE  NO 


( MAIN ) 
10 


PAGE 
EO  S4 


SETLOC  STARTAB 
BANK 

COUNT  * $$/S  T AR  S 


2 DEC 

+.8342971408 

B-l 

ST  A0 

37 

X 

2DEC 

-.23924-81515 

B-l 

STAR 

37 

Y 

2DEC 

-.4966976975 

B-  1 

STAR 

37 

Z 

9 n pr 

4.  q 1 ~2  a Q 77  4 - 1 

Q _ T 

C T A D 

52  A 

v 

tZ  v_» 

' • J1J  .'DjaCjI 

D I 

J 1 Al\ 

7 O 

A 

2DEC 

-.5557243189 

B-l 

STAR 

36 

Y 

2 DEC 

+.1 691204557 

B-l 

STAR. 

36 

Z 

7 n Pr 

4-  t,  a i n 7 7 n 

c T A p 

ci  c: 

y 

~ • UTl'JOUC  1 U 

D 1 

W 1 M r 

7 j 

A 

2DEC 

-.5392368197 

B-l 

STAR 

35 

Y 

2DEC 

+.7092312789 

B-l 

STAR 

35 

Z 

2DEC 

+.3201817378 

B-l 

STAR 

34 

X 

2DEC 

-.4436021946 

B-l 

STAR 

34 

Y 

2 DEC 

- .83  707  86  986 

B-l 

STAR 

34 

Z 

2DEC 

+ . 9 8 2 D 1 o 4 1 1 

B—  1 

ST  AT 

33 

x 

« • .)  J A V I 1 7T  C 

2DEC 

-.7933187400 

B-l 

STAP 

33 

Y 

2 DEC 

-.2567508745 

B-l 

STAR 

33 

Z 

2DEC 

+.4537196908 

B-l 

STAR 

32 

X 

2 DEC 

- . 87795  088  C 1 

B-l 

STAP 

32 

Y 

2DEC 

+.1527766153 

B-l 

STAR 

32 

Z 

2 DEC 

+.206952578° 

B-  1 

ST  AP 

31 

X 

2DEC 

-.8719885748 

B-l 

STAR 

31 

Y 

2DEC 

-.4436288486 

B-l 

STAR 

31 

Z 

2DEC 

+.12172°3692 

B-l 

STAP 

30 

X 

2DEC 

-.7702732847 

B-l 

STAP 

30 

Y 

GAP: 

L 

0260 

0260 

0261 

0261 

0262 

0262 

0263 

0263 

0264 

0264 

0266 

026  c 

0266 

0266 

0267 

0267 

026  8 

0268 

0269 

0269 

02  70 

0270 

0271 

0271 

0272 

0272 

0273 

0273 

0276 

0274 

0275 

0275 

02  76 

0276 

0277 

0277 

0278 

0278 

0279 

0279 

0280 

0280 

028  ] 

0281 

028  2 

0232 

028? 

028? 

0284 

0284 


ASSEMBLE:  PE  V 
CONTROLLED 


ISI3N  001  OF  AGC  PROGRAM  API l HOPE  BY  EYLES  3:15  DEC.  2,1970  (MATN) 

CONSTANTS  USEF'S  PAGE  NO.  11 


14,2066 

12010 

0 

2DEC 

+.625066041 0 

B—  1 

STAR 

30 

Z 

14,2067 

03005 

1 

14,2070 

76146 

0 

2DEC 

-.1124304773 

B-l 

STAR 

29 

X 

14,2071 

77014 

1 

14,2072 

60371 

1 

2DEC 

-.9694934200 

B-l 

ST  AF 

29 

Y 

1 4 , 2073 

7 5 073 

1 

14,2074 

03370 

0 

2 DEC 

+.2178116072 

B-l 

STAP 

29 

Z 

14,2075 

12003 

1 

14,2076 

76125 

0 

2DEC 

-.1146237858 

B-l 

STAR 

28 

X 

14,207"’ 

40037 

1 

14,2100 

72436 

0 

2DEC 

-.33 c9692557 

B-l 

STAR 

28 

Y 

14,2101 

77062 

0 

14,2102 

61041 

0 

2DEC 

-.9334250333 

B-l 

STAR 

28 

Z 

14,210  3 

54164 

0 

14,2104 

72277 

0 

2 DEC 

- . 3 r It 

B-l 

STAR 

27 

X 

14, 21C 

51044 

0 

1 4 ,2106 

f 2b'  1 

0 

2DEC 

-.3240752703 

B-l 

star 

27 

Y 

14 , 2107 

4.54.71 

1 

14,2110 

707  11 

1 

2DtC 

— .4441 196390 

B-l 

STAR 

27 

Z. 

14,2111 

70546 

1 

14,21 12 

67364 

1 

2DEC 

-.5326876930 

B-i 

STAR 

26 

X 

1?  ,2113 

4 7073 

0 

14,211 4 

6 4425 

0 

2UEC 

—.7160644554 

B-l 

STAR 

26 

Y 

14,2115 

77777 

0 

14 , 2116 

07157 

0 

2DEC 

+.4511047742 

B-l 

STAR 

26 

Z 

14,2117 

16322 

0 

14,2120 

t 3327 

1 

2DEC 

—.7861763936 

B-l 

STAR 

25 

X 

14,2121 

64446 

0 

14, 2122 

6 7515 

1 

2D6C 

-.5217c 963C5 

3-1 

STAR 

25 

Y 

14 , 212  3 

5 5 2 6 6 

0 

14,2124 

05230 

0 

2DEC 

+.3311371675 

B-l 

STAP. 

25 

Z 

14, 2125 

25476 

0 

14,2126 

64  754 

0 

2DEC 

— 6898  39  32  3 3 

B-  1 

STAP 

24 

x 

14,2127 

72604 

0 

14,2130 

71235 

0 

2DEC 

-.4182330E  40 

B-l 

STAR 

24 

Y 

14,2131 

72553 

1 

14,2132 

66427 

0 

2DEC 

-.5909338474 

B-l 

ST  AF 

24 

Z 

14,2133 

42171 

0 

14, 2134 

66546 

0 

2DEC 

-.5812035376 

B-l 

STAR 

23 

X 

14, 2135 

7 0765 

1 

14,2136 

732  60 

1 

2DEC 

-.2908171294 

B-l 

ST  AR 

23 

Y 

14,2137 

71643 

0 

14,2140 

14121 

0 

2D  EC 

+.7599800468 

B-l 

STAR 

23 

Z 

14,2141 

30153 

0 

14,2142 

61247 

1 

20  EC 

-.91 70097662 

B-l 

STAR 

22 

X 

1 * ,2143 

733  10 

1 

14,2144 

72313 

0 

2 DEC 

-.3502146628 

B-l 

STAR 

22 

Y 

14,2145 

41247 

0 

14,2.146 

7 4 744 

0 

2DEC 

-.1908999176 

B-l 

STAR 

22 

Z 

14,2147 

44566 

1 

D AGE  48 
EO  S4 


GAP  : 


02  8 + 
028  + 

0236 
0286 

0237 

0287 

0288 
0288 
0209 
02  3 5 
0290 

0290 

0291 

0291 

0292 
02c)  2 
02-3 
0297 

0294 
02  94 

0295 
029  + 

0296 

0296 

0297 
0297 

0293 
0? 

029° 

0299 

0300 

0300 

0301 

0301 

0302 

0302 

0303 

0303 

0304 

0304 

0305 

0305 

0306 

0306 

0307 

0307 

0308 

0308 

0309 
0309 


ASSEMBLE  <•  E VIS!  Jf  '.01  Of-  A 1C  PROGRAM  APllrOPE  BY 
COM  T!  GLLEO  CON  ST A TS 


14,21! 

7 06  06 

0 

14,2151 

5 4 564 

1 

14,2152 

77153 

0 

14,2153 

61536 

0 

14, 2154 

61601 

1 

14 ,2155 

47046 

0 

14,2156 

60604 

0 

14,2167 

76224 

1 

1 4 ;,  2 1 c 0 

7 7031 

0 

14,21 ' 1 

73354 

1 

14,2162 

7 3161 

0 

; ' T j ; -3 

A -3  n c,  c 

1 

17>  'lCj 

TJU03 

1 

14,21 

60431 

1 

14,2165 

51702 

0 

14,21 

00656 

1 

14 , 2167 

33013 

0 

14,2179 

04044 

0 

14,2171 

1 0627 

0 

14,2172 

62164 

0 

14,2173 

45040 

1 

1 4.7 174 

n 7 3 2 9 

L Y t6l  ' 

14,2175 

37443 

0 

14, 2176 

03267 

1 

14,2177 

06626 

0 

14,2200 

63471 

0 

14,2201 

5 0471 

0 

14, 22C2 

11660 

1 

14 ,2203 

0-161 

0 

14 , 2204 

7 5501 

1 

14,2205 

46661 

1 

14,2206 

7C430 

1 

1 4 , 2 20  7 

46540 

1 

14,221 0 

07507 

1 

14,2211 

2 0100 

1 

14,2212 

1 3727 

1 

14,2213 

05455 

0 

14,2214 

72160 

0 

14,2215 

64202 

0 

14,2216 

11144 

0 

14,2217 

0 5203 

0 

14,2220 

64200 

1 

14,2221 

65331 

0 

14, 2222 

71322 

1 

14,2223 

41512 

1 

14,2224 

16402 

0 

14,2225 

16205 

1 

14,2224 

013  6 6 

0 

14,2227 

04034 

1 

14,2230 

7 50  54 

1 

14,2231 

56052 

0 

FYLES 

2 DEC 
20EC 
20  EC 
2DEC 
2l)EC 
206C 
2DEC 
20EC 
2DEC 
2DEC 
2DEC 
20EC 
2DEC 
2DEC 
2D  EC 
2DEC 
2 DEC 
2DEC 
2DEC 
213EC 
2DEC 
2DEC 
2DEC 
2 DEC 
2DEC 


3: 15  DEC.  2 


-.4523440203 

— flA  02  7 1 A 17,  A 

B— 1 

USER  • 

STAR 

C T A D 

— # i /-  3 ( J.  vJ  i H L' 

B- 1 

C>  1 AK 

-.8904759346 

8-1 

STAR 

-.9525211695 

B-l 

STAR 

ACQ9A.7A.7CA 

CT  AD 

• V 7 D *6V  ( , C 

D i 

o ! A - 

-.2986331746 

B-l 

STAR 

-.9656605484 

B-l 

STAR 

+.0525933156 

B-l 

STAR 

+ .2c':-42  808C9 

B-l 

STAR 

-.8608205219 

B-l 

STAR 

+ .46  36213989 

B-l 

STAR 

+ .20 98647835 

B-l 

ST  A P 

-.7742591356 

B-l 

STAR 

+.6162504 19 7 

8-1 

STAR 

-.1482392839 

B-l 

STAR 

- .465794794  1 

B-l 

STAR 

+.4774785033 

B-l 

STAR 

+.7450164351 

B-l 

STAR 

-.3612508532 

B-l 

STAR 

+.5747270840 

B-l 

ST  AR 

-.7342932655 

B-l 

star 

-.4118589524 

B-l 

STAR 

+ . 90654E  53  6 0 

B-l 

STM 

+.0924226975 

B-l 

SI  AR 

- .1820751783 

B-l 

STAR 

(MAIN)  ° AGE  49 

E NO.  12  EO  S4 

X 

Y 
Z 
X 

Y 
Z 
X 

Y 
Z 
X 

Y 
Z 
X 

Y 
Z 
X 

Y 
Z 
X 

Y 
Z 
X 

Y 
Z 
X 


, 1^70 

S PAG 

21 

21 

21 

20 

20 

20 

19 

ic 

19 

18 

18 

18 

17 

17 

17 

16 

16 

16 

15 

15 

1 + 

14 

14 

14 

13 


GAP:  ASSEMBLE  REVISING  0C1 

L CONTROLLED  CONSTANTS 

0310 
0310 
031  1 
031  1 
0312 

0312 

0313 

0313 

0314 
0314 
031 r 
0313 
0316 

0316 

0317 

0317 

031  8 

0318 

0319 

0319 

0320 

032  0 

0321 

0321 

0322 

0322 

0323 

0323 

0324 

0324 

0325 

0325 

0326 

0326 

0327 

0327 

0328 
032  8 
032  9 

0329 

0330 
0330 
03  31 
03  31 
0332 

0332 

0333 

0333 

0334 
0334 


AGC  PRGGRArt  API  IP, OPE  BY  EYLES 


, 2232 

17030 

1 

2DEC 

, 2233 

17635 

1 

,22  34 

73321 

0 

2DEC 

,22  35 

5 7 6 C 3 

0 

, 2236 

77010 

0 

20  tC 

, 2237 

476  2 3 

0 

,2240 

11515 

0 

2DEC 

, 2241 

01640 

1 

,224  2 

63215 

1 

2DEC 

,2243 

52176 

0 

, 2244 

021«3 

0 

2D  EC 

, 2245 

26755 

1 

, 22^6 

12715 

1 

2DEC 

,2247 

31470 

0 

,225  0 

13401 

0 

20EC 

, 225  1 

31222 

1 

, 22  5 2 

03157 

1 

2D6C 

, 2283 

2 75  04 

o 

, 2254 

17402 

1 

20EC 

,2255 

12312 

1 

, 22  5 6 

7 5552 

X 

20  EC 

,22*7 

6 3657 

0 

, 226 0 

05471 

0 

20EC 

, 2261 

06  122 

0 

,2262 

16220 

0 

2DEC 

, 2263 

16362 

1 

,2264 

04417 

l 

2DEC 

, 22  6 5 

32762 

0 

, 22 1*  6 

06643 

1 

2DEC 

, 22  67 

12622 

,2270 

07766 

1 

20EC 

, 227  1 

10237 

0 

, 2272 

14154 

1 

2DEC 

, 2273 

36154 

1 

, 2274 

13  200 

1 

2DEC 

,2275 

3 16  5 3 

0 

, 2276 

13244 

1 

2 DEC 

, 2277 

21036 

1 

, 2300 

01067 

1 

2DEC 

, 2301 

23106 

1 

, 23C  2 

10560 

0 

2DCC 

,2303 

27227 

0 

, 2304 

10402 

0 

2DEC 

,2305 

002  75 

1 

,2306 

6 5477 

0 

20EC 

, 2307 

770^4 

1 

, 2310 

00153 

0 

2D  EC 

,2311 

11212 

0 

,2312 

00077 

1 

2DEC 

,2313 

36275 

1 

UF  , 

14 

14 

14 

14 

14 

14 

14 

14 

14 

1 

14 

1 4 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

1 4 

14 

14 

14 

14 

1 4 

14 

14 

14 

14 

14 

14 

14 

14 

14 


3:15  DEC 


2,1970 
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USER  • 

S PAGE 

NO 

+ .9  34  ■ 9 

B-l 

STAR 

13 

Y 

-.2869271526 

B-l 

STAR 

13 

Z 

-.0614937230 

8-1 

STAR 

12 

X 

+.6031563286 

B-l 

STAR 

12 

Y 

-.75 

B-l 

STAR 

12 

Z 

+.1371725575 

B-l 

STAR 

11 

X 

+.6813721061 

B-l 

STAR 

11 

Y 

+.7169685267 

B-l 

STAR 

1 1 

Z 

+.2011399585 

B-l 

ST  AR 

10 

X 

+.9690337941 

B-l 

STAR 

10 

Y 

-.1432348512 

B-l 

STAR 

10 

Z 

+ . 3 c 0 731503  8 

B-l 

STAR 

9 

X 

+.8926333307 

B-l 

STAR 

9 

Y 

a oqitpi 040? 

B-  1 

STAR 

9 

2 

+ .4 1 05636  02  0 

B-l 

S T A ' 

8 

X 

+.4988110001 

B-l 

STAR 

8 

Y 

+.76329P8371 

B-  1 

ST  AR 

8 

z 

* • 1 Kj  C t .J  , X 

+.7032235469 

B-l 

STAR 

7 

X 

+.70758460^7 

B-l 

STAR 

7 

Y 

+.0692^68685 

R—  1 

STAR 

7 

z 

' « '•j  ‘ C.  v-  1JW  \J 

L->  x 

+.54501074 04 

B-l 

STAR 

6 

X 

+.5314955466 

B-l 

STAR 

6 

Y 

-.6484410356 

B-l 

STAR 

6 

Z 

+.0130966840 

B-l 

ST  Ac 

5 

X 

+.0078062795 

B-l 

STAR. 

5 

Y 

PAGE 
EO  S4 


GAP:  ASSEMBLE  K E V-I S J 3 K 001  !F  AGC  FROG! AM  API  IK.. PE  BY 


L C M TP  01.  LE  D CONSTANTS 


0335 
033  8 
033  6 

0336 

0337 

0337 
03  3 8 

0338 

033  9 
033° 
0340 

0340 

034  1 

0341 

0342 
034? 

0343 

0343 

0344 

0344 

0345 

0345 

0346 

0346 

0347 

0347 

0348 
R 0346 


14.2314 

14.2315 
1*7,2316 
14,2317 
14,2320 
14  , 2321 

14.23 22 

14.2323 

16.2324 

14.2325 

14.2326 
14 ,232  7 

14.2330 

14.2331 
1 2332 

14.233 3 

16.2334 

1 4.2335 

14.2336 

14.2337 
14, 2340 
1*  ,234  ] 

14.236 2 

14 .2363 

14.2344 

14.2345 

14.2346 


17777  0 
01417  1 
07 674  0 
21771  0 
‘34  16  1 

07626  1 
62413  0 
57536  0 
07510  1 
05614  o 
01673  1 
06065  1 
15735  1 
31531  1 
16745  0 
17555  1 
02616  1 
13716  0 
73010  1 
40311  0 
15776  0 
34660  0 
00325  0 
26625  1 
07572  0 
05105  0 

15472  1 CATLOG 


******  ***  **  ***  * * ******************************* 


0350  REF  1 

05,2000 

0351 

05,2001 

0352  REF  1 

0353 

C5, 2001 

20000 

0 KONMAT 

0353 

05,2002 

00000 

1 

0354 

05 , 2003 

CCOOO 

1 

0356 

05,2004 

00000 

l 

0355 

05,2005 

00000 

1 

0355 

05,2006 

or  ooo 

1 

03  5 6 

05,2007 

00000 

1 

035  6 

06, 3)10 

Of'  A A A 

vi  U U U 

I 

0357 

05, 2011 

16533 

0 

0357 

05,2012 

30007 

0 

0358 

05,2013 

77333 

1 

n35F 

C 5,2014 

56654 

0 

0359 

05,2016 

OCCOO 

1 

0359 

05,2016 

Cf  000 

1 

036C 

05,2017 

06273 

1 

0360 

05,2020 

03275 

1 

EYLES 


3:  15.  DEC 


2 , 1970 
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( MAIN ) 


USER  * 

S nAGF 

NO. 

2DEC 

+.9998837600 

B-l 

STAR 

C 

Z 

2DEC 

+.4917678276 

B-l 

STAR 

4 

X 

2 DEC 

+.2204867125 

B-l 

STAR- 

4 

Y 

2DEC 

-.8423473935 

B-l 

STAR 

4 

Z 

2 DEC 

+ . 477563 945  0 

B-l 

STAR 

3 

X 

20  EC 

+ .11660 043  4 0 

B-l 

STAR 

3 

Y 

2DEC 

+.8708254803 

B-l 

STAR 

3 

Z 

2DEC 

+ .9342640400 

B-l 

STAR 

2 

X 

2DEC 

+.1735073142 

3-1 

STAR 

2 

Y 

2DEC 

-.31  15219339 

B-l 

STAR 

2 

Z 

2DEC 

+ . A 7o.fi  A RP  Q 1 fl 

O _ 1 

CT  A 13 

1 

V 

. • 1 J i-  ■ O -•  J ? i L 

O I 

1 

A 

2 DEC 

+.0260879174 

B-l 

STAR. 

1 

Y 

2DEC 

+.433662 167C 

B-l 

STAR 

1 

Z 

DEC 

687  G 

******  * **********  * * ****** 


SETLOC  EPHEY1 
BANK 

COUNT*  $$/EPHEK 
20EC  1.0  B- 1 
2DEC  0 
2DEC  0 
2 DEC  0 

2DEC  .91745  B-l 
2DEC  -.03571  B-l 
2 DEC  0 

2DEC  .39784  B-l 


# ^ ^ ^ ^ % # n*  ❖ # 

* 

K1  COS(OBL)  * 

K2  SINIOBL  IS  INI  I M ) 4 

* 

K 3 S I N ( OB L ) * 


PAGE 
EO  S4 


GAP : 


0361 

0361 

0362 
036? 
036  3 

0364 

0365 

0365 

0366 
036  6 

0367 

0367 

0363 

0368 

0369 

036  c 

0370 

0370 

0371 
037] 

0372 

0372 

0373 
0373 
03  76 
0374. 

0375 

037  5 

0376 

0376 

0377 

0377 
0376 

0378 

0379 
037  c 

P 0380 


0 361 

0382 

0383 

0384 
0384 
033? 
038  c 

0386 
03  36 

0387 
03  87 


ASSEMBLE  REVISION  Cl  OF  AGC  PrCG-  AM  AP1140PE  BY  LYLES 


3:15  DEC . 2 ,1970 


( MAIN ] 


PAGE 
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controlled  constant: 


USER'S  PAGE  NO.  16 


EO  S4 


# # :}c  # # # ?•<  * # # # # * # jjt  j( 


06 , 202  1 

05.2022 

05.2023 
C 5, 2 02 4 
C5 , 2025 

, 2026 
05,2027 

05.2030 

05.2031 

05.2032 

05.2033 

05. 2034 

05.2035 

05.2036 

05.2037 
C c , 204  0 

05 .2041 

05.2042 

05. 2043 

05.2044 

05.2045 

05.204 6 

05.2047 

05. 2050 

05 . 2051 

05.2052 

05. 2053 

05.2054 

05.2055 

05.2056 

05.2057 

05.2060 

05.2061 
05,206  2 

06. 2063 

05. 2064 

If  * * sjs  # * if  if  sj: 


01242 

24467 

C0C20 

1 72  60 
( 3002 
00000 
22572 
27214 
01315 
26  17  7 
7 7 7 31 

32055 
22576 
1062  4 
10605 
37436 
01635 
0 1 C 6 5 
31323 

2 0770 
13725 
02245 
06475 
00162 
33431 
22566 
24130 
02000 
00000 
00256 
17752 
77512 
6 745  3 
0 0131 
2 6730 

* 4 * 4 * * = 


1 

1 

0 CS TODAY 
0 

0 RCB-13 

1 

1 RATESP 
0 
1 
l 
1 
0 
0 
0 
0 
0 
1 
0 

0 VAL67 

1 
0 
0 
0 
1 
1 
1 
1 
0 
0 
1 
0 
1 
1 
1 
1 
1 

: * # 3jc  # sjc  j 


2DEC 

2DEC 

OCT 
OCT 
2 DEC 

20EC 

2DEC 

2DEC 

2DFC 

2UEC 

2DEC* 

2 DEC 

2 DEC 

2DEC 

20  EC 

2 DEC 

2DEC 

2 DEC 

2DEC 


.082354  B-l 
00  3-33 

00002 

00000 

.03660093  B+4 


. G02737  79  B+4 
-.00014719  B+4  LONE 
.815282336  LOMO 

.274674910  LOSO 

.5862094 99  LONO 

.01726666666  B + l*  AMOD 
.530784445  AARG 

.036291712  6+1  1/27 

.003505277  6+1  BMOD 
.585365625  BARG 

.0312"  B+l  1/32 

.005325277  B+l  CMOD 
-.01106341036  CARG 
.002737925  B+l  1/365 

'c  if.  i,c  jj<  if  ^ :£c  jJc 


K4  COSIOBL  )SIN<  IMS 


L OMR 
LOSR 


4 NOT  E * 

4 TABLES  CONTAIN  * 
* CONSTANTS  FOR  * 
4 1969  - 1970  4 


2 ,2000 

SFTLOC 

PLANT  life 

26,2000 

BANK 

COUNT* 

$ / j i j p n t 

26 , 2000 

17775 

1 

CO  SI 

2 DEC 

.99964173  B-l  COS 

(5521.5  SEC)  B-l 

26,2001 

02052 

1 

26, 2002 

00333 

1 

S INI 

20EC 

.02676579  B-l  SIN 

(5521.5  SEC)  B-l 

26,2003 

1 0374 

0 

26, 2004 

77665 

1 

NODDCT 

2 DEC 

-.457335121  E-2  PEVS/CSEC  B + 2P=-1 . C704701  1 

E-8 

26,2005 

42175 

1 

26,2006 

2221  1 

0 

F DOT 

2DEC 

.570863327  REVS/CSEC  B+27=  2.67240410 

E-6 

26,2007 

00625 

0 

P AD/SEC 
PAD/SEC 


GAP:  ASSEMBLE  BE  VISION  '.101  OF  AGO  PROGRAM  API  1 OFF  BY  EYtEE 

L CONTROLLED  CONSTANTS 


038  8 
038  8 

038  9 

0389 

0390 
03  °P 

039  1 

0391 
039? 

0392 


26.2010  77777 

26.2011  77767 

26.2012  37436 

26.2013  01613 

26 . 20 14  32*17 
? '- , 2 P 1 c 3 2 160 

26.2016  02052 

26.2017  35552 

2<"  ,2  2v  37116 
26,2021  32523 


0 BDOT  2DEC 

1 

1 NOD  10  2D£C. 

1 

1 F S UBC  2DEC 

1 

1 BSUBO  2DtC 

0 

0 WEAK  10  2 DEC 

1 


3:15  DEC 


2, 1*70 


( MAIN  ) 


PAGE 
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USER' 

'■■S  PAGE  NO.  16  EO 

S4 

■3.07500686 

E— 8 REVS/CSEC 

B+2R=-7.  19757301  E-14 

FAD/SEC 

.586209434 

REVS  B— 0 

= 6.19653663041  RAD 

829C90536 

' EVS  8-0 

= 5 . 20*32947829  PAD 

0651201393 

PEVS  B— 0 

= 0 . 40° 1 6 1 902  99  FAD 

.97 336 1595 

REVS/CSEC 

B +2 3=  7.2Q211494  £-5 

PAD/SEC 

GAP:  ASSEMBLE  REVISION  0C1  OF  A GC  PROGRAM  AP1LROPE  BY  EYLES 


3:15  DEC 


2,1-370 


( MAIN ) 


PAGE 


L INPUT /MjtPUT  C H ANN  El  BIT  t)E  SCI  I PTI ONS  USER'S  PAGE  NC. 

A 000001 

R 000002  A**  CHANNEL  UfcSCR I PT I ONSF  WORDS  ARE  ALLOCATED  IN  ERASABLE  ASSIGNMENTS  *** 


54 


EO 


R 000005  CHANNEL  1 IDEl'flCAL  Tf  COM  PUT  Er  REGISTER  L (0001! 

A 0001 


R 0002  CHANNFl  2 IDENTICAL  TO  COMPUTER  EGISTEt.  Q (0002) 

A0003 


R 000  A CHANN  Ei.  3 HI  SCALAR : INPUT  CHANNFl;  MOST  SIGNIFICANT  14  BITS  FROM  33  S T AGE  BINARY  COUNTER.  SCALE 

ROOT 6 FACTOR  IS  B23  IN  CSEC,  SO  MAX  VALUE  ABOUT  23.3  HOW S AMD  LEAST  SIGNIFICANT  BIT  5.12  SECS. 

A0008 

ROOOS 

R 0011 
R 00 1 3 
A 001  5 

R 00 1 6 CHANNEL  5 PYJETS;  OUTPUT  CHANNEL;  PITCH  RCS  JET  CONTROL.  (REACTION  CONTROL  SYSTEM)  USES  BITS  1-8. 

A 00 IS 

ROOK  CHANN  E!  f.  CUT  PUT  CHANNEL;  ROLL  fCS  JET  CONTROL . (REACT  ION  CONTROL  SYSTEM)  USES  BIT  1-8. 

A 002  1 


CHANNEL  4 


LOSCALAR;  INPUT 
ASSOCIATED  WITH 
S I Gf  I F I C AN  T SIT 


CHANNEL;  NEX"  MQ S T SIGNIFICANT  14  BITS  FI  OM  THE  33  STAGE  BINARY  COUNT ER 
CHANNEL  3.  SCALE  FACTOR  !?  BO  IN  CSEC.  SC  'AX  VAL  IS  5.12  SEC  AND  LEAST 
IS  1/3?'.  . SEC.  SCALE  FACTOR  OF  D.P.  WORD  WITH  CHANNEL  3 IS  B2  3 CSFC. 


R0022 
R 0024 
A 002  h 


CHANNEL  7 


SUPERBNK;  OUTPUT  CHANNEL 
APPROPr 1 AT  E FIXED  MEMORY 


NOT  RESET  BY  RESTART;  FIXED  EXTENSION  BITS  USED  TO  SELECT  THE 
BANK  TF  FBANK  IS  30  OCTAL  OR  MORE.  USES  BITS  5-7. 


R 0027  CHANNFl  10 

R 0029 
R 003  1 
A0033 


0UTO;  fTUTPtr  CHANNEL;  P EG  I S TE:  USED  TO 
THE  DISPLAY  SYSTEM.  BITS  15-12  ARE  SET 
CHANGED  AND  BITS  11-1  CONTAIN  THE  REQUI 


TRANSMIT  LATCHING— RELAY  DRIVING  INFORMATION  FOP 
TO  THE  ROW  NUMBER  (1-14  OCTAI  ) OF  THE  RELAY  TO  BE 
RED  SETTINGS  FOR  THE  RELAYS  IN  THE  ROW. 


R0034 
RODS  A 

A 003 
R003P 
A 0040 
R 004 1 
A 00  4 2 
R 00^3 
A 004  4 
R 0045 
A 0 
R 0047 
A 004 " 
R 004  F 
A 005 C 
R 005  1 


CHANNEL  11  DSAI  IT;  LUIF.JT  CHANNEL  ; REGISTER  WHOSE  BITS  A - E USED  FC  ENGINE  ON-OFF  CONTROL  AND  TO 


DRIVE 

INDIVIDUAL  INDICATORS  i 

BIT 

l 

ISS  WARNING; 

BIT 

2 

L T GHT 

COMPUTER  ACTIVITY  LAMP 

BIT 

3 

LIGHT 

UPLINK  ACTIVITY  LAMP 

BIT 

4 

LIGHT 

TEMP  CAUTION  LAMP 

BIT 

3 

LIGHT 

KEYBOARD  RELEASE  I.A"P 

BIT 

6 

FL  ASH 

VERB  AMD  NOUN  LA«PS 

BIT 

7 

LIGHT 

OPERATOR  ERROR  LAMP 

GAP:  ASSEMBLE  REVISION  001  OF  AGC  PROGRAM  AP11RRPE  BY  EYLfcS 

L INPUT /OUT PUT  CHANNEL  RIT  DESCRIPTIONS 


3:  15  DEC.  2,1970  (MAIM) 

USEr  * S PAGE  NO.  2 


PAGE  55 
EO  S4 


A 0052 
RC053 
A 0054 
R 0055 
A C 0 5 c. 
R 0057 
A 00  5 8 
R 0059 
A 00  60 
R 004  1 
A 006  2 
R 006  3 
A 

R 006  5 
A 0066 
R 006  7 
A 00  A P 


BIT  8 SPARE 

BIT  5 TEST  CONNECTOR  OUTBIT 

BIT  1"  CAIJTITN  RESET 

BIT  11  SPARE 

8 1 T 12  SPATE 

BIT  13  ENGINE  ON 

BIT  14  ENGINE  OFF 

BIT  15  SPARE 


R 006°  CHANNEL  12  CHAN12!  OUTPUT  CHANNEL;  BITS  USED  TO  DF:IVE  NAVIGATION  AND  SPAECRAFT  HARDWARE 

A 0071 

R0072  BIT  1 ZERO  RR  CDU;  CDU'S  GIVE  RRAQAR  INFORMATION  FOR  L M 

A 0073 

R 0074  BIT  2 ENABLE  CDU  • A DAP  ERROR  COUNTERS 

A 007  4 

R 0076  BIT  3 NOT  USED 

A0077 

R 0076  BIT  4 COA-  SE  ALIGN  ENABLE  OF  I MU 

A 007° 

R 0080  BIT  5 ZF  0 IMU  CDU ' S 

A 008  1 

R 0082  BIT  6 ENABLE  IMU  ERROR  COUNTER,  CDU  ERROR  COUNTER. 

A 0083 

R 0084  BIT  7 SPARE 

A 008  ^ 

R 0035  BIT  9 D 1 5 :Pl  AY  I i - ! I At.  DAT  A 

A OORT 


R008B 

A 0089 

BIT 

o 

-PITCH 

GIMBAL 

TR  IM 

( BELL 

MOTION ) 

DESCENT 

ENGINE 

R 009.0 

A 0091 

BIT 

10 

+P1TCH 

GIMBAL 

TR  I M 

(BELL 

MOTION) 

DESCENT 

ENGINE 

R0092 

A00Q3 

BI- 

11 

-mu 

GIMBAL 

TRIM 

! BELL 

MOTION) 

DESCENT 

ENG  I N E 

R 0094 

A0095 

BIT 

12 

+ ROLL 

GIMBAL 

TR  IM 

( BELL 

■ I ON ) 

DESCENT 

FNGINE 

R 0096 

BIT 

13 

LI  POSITION  2 

COMMAND 

A 0097 

pOnc<o  BTT  1 ENABLE  .ENPESVOUS  RADAR  l(  CK-<’M;  AUTO  ANGLE  TFACK'G 

A 009° 

R0100  BIT  15  ISS  TURN  ON  DELAY  COMPLETE 

A0101 


GAP: 

L 

R 0102 
A 0103 
R 0 1 0 A 
R 0 1 0 5 
R 01  0( 
A 01 07 
P 0 1 ( 

A 01  0° 
R 0.110 
A0111 
R 0 1 1 2 
A0113 
R011  A 
A 01 1 5 
R 01 1 6 
A 0 1 1 7 
POU  P 
A 0 1 1 c 
R 0120 
A0121 
R 0 12  2 
A 0 1 2 3 
R 01 2 A 
A 01 2 5 
R 0126 
A 012  7 
R 0128 
A 0 12  c 
R 01  30 
A 0 1 3 1 

R 0132 
A 0 1 34 
R0135 
A 01  3 c 
R 01 37 
A0138 
R 01  39 
A 0 140 
R 0 1 4 1 
A 0 1 4 2 
ROU  3 
A0144 
R 014K 
A 0 1 4 ^ 
R 01 47 
R 0 1 A 3 
Anno 
I 

A 01 5 1 


ASSEMBLE  EVISION  001  nr  AGC  PRCGrAM  API  li  OPc  BY  FYLLS 
INPUT /nut  PUT  CHANMEl  BIT  OESCRIPTIONS 

CHANNEL  13  CHAN  1 3 ; OUTPUT  CHANNEL 


3:15  OEC.  2,1970  (MAIN) 

USE-'  * S PAGE  NO.  3 
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BIT  1 
BIT  2 
BIT  3 

BIT  4 

BIT  5 

BIT  6 

BIT  7 

BIT  3 

BIT  7 

BIT  10 

BIT  11 

BIT  12 

BIT  13 

BIT  14 

BIT  15 

CHANNEL  14 
BIT  1 
BIT  2 
BIT  3 
BIT  4 
Bin  5 
BIT  6 

BIT  7 

BIT  « 

BIT  9 


RACAR  C 
PA  CAR  B 
RACAR  A 


Pr>  OP  EL  SETTING  OF  THE  A,B,C  MATRIX 
SELECTS  CERTAIN  R A OAR 
PARAMETERS  TO  BE  READ. 


RACAF  ACTIVITY 

V USED  (CONNECTS  A'  ALTER  NAPE  INPUT  TO  UPLINK) 
BLOCK  INPUTS  TO  UPLINK  CELL 
DOWNLINK  TELEMETRY  WORD  ORDER  CODE  BIT 
RHC  COUNT El  ENABLE  (READ  HAND  CONTROLLER  ANGLES) 
S’AR-'  r HC  ^ LAD  INTO  COUNT  FT-  S IF  BIT  8 SFr 
TEST  ALARMS,  TEST  DSKY  LIGHTS 
ENABLE  STANDBY 


- E S E T 

TRAP 

3 1-A 

ALWAYS 

APPEAR 

TO 

BE 

SET 

TO 

0 

RESET 

TRAP 

31-B 

ALWAYS 

APPEAR 

TO 

BE 

SET 

TO 

0 

RESET 

TRAP 

32 

ALWAYS 

APPEAR 

TO 

BE 

SET 

TO 

0 

ENABLE  T 6 PUPT 

CHAN14;  OUTPUT  CHANNEL;  USED  TO  CONTRCL  COMPUTER  COUNTER  CELLS  ( CDU , GY RO , SP AC  ECO  AFT  FUNC . 
OUTLTNK  ACTIVITY  (NOT  USED) 

ALTITUDE  RATE  OR  ALT  IT  IDE  SELECTOR 
ALTITUDE  METER  ACTIVITY 

THAUS’  DR7VE  ACTIVITY  FOr-  DESCENT  ENGINE 
no  ARE 

GYRO  ENABLE  POWER  FOR  PULSES 


GY  1 SELECT  B 
GYRO  SELECT  A 


P A I OF  BITS  IDENTIFIES  AXIS  OF  - 

GYRO  SYSTEM  ID  BE  TORQUE D. 


GY  1 T CPQUING  COMMAND  IN  NEGATIVE  DIRECTION 


GAP:  ASSEMBLE  RE  VISION  001  OF  AGC  PROGRAM  APHROPE  BY  FVLES 

L I ROUT /OUTPUT  CHANNEL  BIT  DESCR1  i2Tl  00$ 


3: 15  DEC.  2 ,1970 

USER’S  PAGE  NO 


MAIN) 

4 


R 01 52 

A0153 

R0154 

A 0 1 5 5 

R 01  56 

A01  37 

R0158 

BIT 

BIT 

BIT 

1 0 

1 1 

12 

GYRO 

DR  1 VI: 

DRIVE 

ACTIVITY 

r m i c 

u u u 

CDU 

T 

BIT 

13 

DRIVE 

CDU 

z 

A0159 

R 0160 

b I r 

14 

Dr  I V E 

COU 

Y 

A OB'  1 

R 0162 

BIT 

15 

DP  IVE 

CDU 

X 

A o ) 6 ' 

PAGE  57 
EO  SA 


R 0164  CHANNEL  15  MNKEY IN,  INPUT  CHANNEL ; KEY  CODE  INPUT  FROM  KEYBOARD  OF  DSKY , SENSED  BY  PROGRAM  WHEI 

RQ16C  PROGRAM  INTERRUPT  #5  IS  RECEIVED.  USES  BITS  5-1 

A 0167 

2 016^  CHAN'.'EI  16  ’•AVKEYIN;  ''INPUT  CHAM:  El;  OPTICS  MARK  INFOP  MAT  I ON  AMD  'NAVI  G 4 ION  PANEL  DSKY  (CM)  OP  THRUST 

R0170  CONTROL  (LM)  SENSED  BY  PROGRAM  WHEN  PROGRAM  INTER-RUPT  #6  IS  RECEIVED.  USES  BITS  3-7  ONLY. 

A 0 1 7 2 

R 0 1 7 3 BIT  1 NOT  ASSIGNED 

A 01 7 4 

R 0175  BIT  2 NOT  ASSIGNED 

A01  76 

R 01 77  BIT  3 OPTICS  X-AXIS  MARK  SIGNAL  FOR  ALIGN  OPTICAL  TSCOPE 

A 0 178 

R0179  BIT  4 OPTICS  Y-AXIS  MARK  SIGNAL  FOR  AQT 

A01R0 

R0131  BI ^ 5 OPTICS  MARK  REJECT  SIGNAL 

A01  32 

R 0 1 3 3 BIT  6 DESCENT+  : CREW  DESIRED  SLOWING  RATE  OF  DESCENT 

A0184 

KOI'  • BIT  r DESCENT-  ; CREW  DESIRED  SPEEDING  UP  RATE  OF  D’CENT 

A 0 IF  6 

R01*7  NOTE  s AM  B’TS  I1  CHANNELS  30-3  3 ARE  INVESTED  AS  SENSED  BY  THE  PROGRAM,  SO  THAT  A VALUE  PE  ZERO  MEANS 

R 0189  THAT  THE  INDICATED  SIGNAL  IS  PRESENT. 

A 0190 


R 0 1 9 1 

CHANNFl 

A 019  2 

R 0193 

BIT  1 

A 0 19  4 

R 0195 

BIT  2 

A 0 196 

R 0 1 ° 7 

BIT  3 

A 01  UP 

P 0199 

BIT  4 

A 0200 

P 0201 

BIT  5 

INPUT  CHANNEL 
A BOR T WITH  DESCENT  STAGE 
UNUSED 

ENGINE  ARMED  SIGNAL 

API : T WITH  ASCENT  ENGINE  STAGE 


AUTO  THROTTLE;  COMPUTER  CONTROL  OF  DESCENT  ENGINE 


gap:  assemble  it  v i s i : r .<01  or  agc  p-ggr am  api trope  by  eyles. 

L ir.pUT/'  JTPiJT  CHANNEL  BIT  DESCRIPTIONS 
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A 020 ? 
R 0203 
A 0204 
R 0205 
A 0 2 0 f 
P 0207 
A 020  8 
R.020P 
A 021  0 
2 0211 
A 02  1 2 
R 02  1 3 
A0214 
R 021  c 
A 021 
R 02 1 7 
A 021  11 
P 02  1 p 
A 0220 
R 02  2 1 
AO  222 


BIT  6 DISPLAY  INERTIAL  DATA 

BIT  7 RR  CDU  F A 1 1 

BITS  SP  tip  E 

BIT  9 IMU  OPERATE  WITH  NO  MALFUNCTION 

Bi  ' 19  I ' COMPUTER  ( NOT  AGS)  HAS  CONTROL  CF  1 M 

BIT  11  mu  CAGE  COMMAND  TO  Ol  P/E  I MU  61  MB  A L ANGLES  TO  0. 

BIT  12  IMU  CDU  FAIL  (MALFUNCTION  OF  IMU  CDU, S ) 

BIT  13  mu  FAIL  (MALFUNCTION  OF  IMU  STAB  I L I7.ATI  Of  LOOPS) 

BTI"  14  Tt  TURN  01  REQUESTED 

BIT  15  TEMPERATURE  OF  STABLE  MEMBER  WITHIN  DESIGN  LIMITS 


R 022  3 
R0225 
A 022  6 
R 0227 
R 0229 
A 0231 
R 0 2 3 2 
A 02  3 3 
R 02  34 
A023F 
P 0237 
A 023  ! 
R 0239 
R 0241 
A 0243 


CHANNEL  31  INPUT  CHANNEL;  BITS  ASSOCIATED  WITH  THE  ATTITUDE  CONTROLLER,  TRANSLATIONAL  CONTROLLER, 
AND  SPACECRAFT  A TT I TUDE  CONTROL;  USED  BY  PCS  DAP 

BIT  1 ROTATION  (BY  RHC ) COMMANDED  IN  POSITIVE  PITCH  DIRECTION;  MUST  BE  IN  MINIMUM  IMPULSE  MODE. 

ALSO  POSITIVE  ELEVATION  CHANGE  FOR  LANDING  POINT  DESIGNATOR 

BIT  2 AS  BIT  1 fxcr  NEGATIVE  PITCH  AND  ELEVATION 

BIT  3 0 T AT  I ON  (BY  RHC)  COMMANDED  IN  POSITIVE  YAW  DIRECTION;  MUST  BE  IN  MINUMUM  IMPULSE  MODE. 

BIT  4 AS  BIT  3 EXCEPT  NEGATIVE  YAW 

bit  s 1 'nation  (by  hc)  commanded  in  positive  doll  direction;  must  be  in  minimum  impulse  mooe. 

\l  SU  •’  SIT’VF  AZIMUTH  CHANGE  FOR  LANDING  POINT  DES  I GNAT  OP 


R 0244 

BIT 

6 

AS  BIT  5 EXCEPT  NEGATIVE  ROLL  AND  AZIMUTH 

A 024  5 

R 0246 

BIT 

7 

TP ANSLAT ION 

IN  +X 

DIRECT  ION 

COMMANDED 

BY 

THC 

A 024  7 

R 024  P 

BIT 

8 

TP  ANSI  AT  1:0 

IN  -X 

DIRECTION 

CM MM  AN DEO 

BY 

THC 

A 024'- 

R 02  50 

BIT 

9 

TRANSLATION 

IN  + Y 

DIRECTION 

COMMANDED 

BY 

THC 

A 025  1 

R 0252 

BIT 

1 0 

TRANSLATION 

IN  -Y 

DIP  ECTICN 

COMMANDED 

BY 

THC 

A 0253 

R 02 54 

BIT 

11 

TR ANSLAT ION 

IN  +Z 

D 1 R E C T ION 

COMMANDED 

BY 

THC 

A 025  5 

R0256 

BIT 

12 

TF ANSLAT  ION 

IN  -Z 

Dm  ECTION 

COMMANDED 

BY 

THC 

GAP: 

L 

A 0?  57 
R 02  5 P 
A 0259 
•50260 
A 0261 
R 02 *2 
A 0263 

R0264 
A 026  c 
R 0266 
A 

R 026  8 
A 

R0270 

A 027  ] 
R 0272 
A 027  3 


ASSEMBLE  rE VISION  0 01  OF  AGC  PROG  AM  aPILROPE  BY  E YL  E S 
INPUT/OUTPUT  CHANNFL  BIT  DESCRIPTIONS 


A 028  1 
R 0282 
A 02P^ 

R 02  p 6 

A 

R 0287 
A 02 


3:15  DEC.  2,1970  (MAIN)  PAGE  59 

USER'S  PAGE  NO.  6 EO  S4 


BIT  13  ATTITUDE  HC L 0 MODE  ON  SCS  .MODE  CONTROL  SWITCH 

LIT  1 AUTO  STABILIZATION  OF  ATTITUDE  ON  SCS  MODE  SWITCH 

BIT  15  ATTITUDE  CONTROL  OUT  OF  DETENT  (^HC  NOT  II'  NEUTRAL 

CHANNEL  32  INPUT  CHANNEL. 

BIT  1 THRUSTERS  2 & 4 DISABLED  BY  CREW 

BIT  2 THRUSTERS  5 & 8 DISABLED  BY  CREW 

BIT  3 THRUSTERS  1 & 3 DISABLED  BY  CREW 

BIT  6 THRUSTERS  687  DISARLEC  BY  CREW 


R027P- 
A 027  5 

R 0276 

BIT 

BIT 

5 

6 

THRUSTE!  S 

THRUSTER  S 

14 

13 

£ 

£ 

16 

15 

DISABLED 

01  SABLED 

BY 

BY 

CREW 

CREW 

A 027  7 

R 027  6 

A 02  70 

BIT 

7 

TH OUST EL S 

9 

£ 

12 

DISABLED 

BY 

CREW 

BIT 

8 

THRUSTERS 

10 

£ 

n 

DISABLED 

BY 

CREW 

R 0280 

BIT  9 
BIT  10 

BIT  14 


DESCENT  EivGIN  E GIMBALS  DISABLED  BY  OREL 
APPAREL  DESCENT  ENGINE  GIMBAI  FAILURE 
INDICATES  PROCEED  KEY  IS  DEPRESSED 


R 02  8 9 
R 029  1 
A 02  93 
R029<i 
A 029  5 
R 0296 
A 0297 
R0298 
A 029c 
R 0300 
A 0301 
R 0302 
A. 

R0304 
A 0306 
R 0306 
A 03QT 


CHANNEL  33 


CHAN3.3 ; INPUT  CH  ANN  El  ; FOR  HARDWARE  STATUS  AND  COMMAND 
FIOP  BITS  •'  ESET  BY  A CHANNEL  "W  ’ I T E " COMMAND  THAT  ARE  3 


INFORMATION.  B I T S 
ESET  BY  A RESTART 


I5-L1  ARE  FLTP- 
£ BY  T4RIJPT  LOOP. 


BIT  1 SPARE 

BIT  2 -U  AUTO- POWER  ON 

BIT  3 0 RANGE  LOW  SCALE 

BIT  4 RP  DATA  GOOD 

BIT  5 LR  R A G E DATA  GOOD 

BIT  6 LP  POST 

BIT  7 LR  P0S2 


GAP:  ASSEMBLE  ,,EVISIj;  001  * ■ F AQC  PROGRAM  AP11RUPE  BY  EYLES 

L INPUT /OUT  PUT  CHA  MEt  B?t  DESCP IPT  1 DNS 


3: 15  DEC . 2 , 

USER  ' S 


970 

PAGE  NO 


MAIN  ) 
7 


PAGE 
EO  S4 


R 0308 

A 07  0° 

R 03 10 

A 03 1 1 

R 03 1 2 

403  1 3 

BIT  8 

BIT  9 

BIT  10 

L*  VEL  DATA  GOOD 

L :■  ANGE  LEW  SCALE 

Bl  ■ CK  UPLINK  I MPUT 

R0314 

BIT  11 

UPLINK  TOO  FAST 

A 03  1 6 

R 031 1 

BIT  12 

DCWNL  INK  ICO  FAST 

4 0317 

R031a 

BIT  13 

PIPA  FAIL 

A 0 3 1 c 

R 0320 

BIT  14 

WARNING  OF  REPEATED  AL 

A 0 32  2 

R 0323 

BIT  15 

LCC  OSCILLATOR  STOPPED 

AC  32 

R032c 

CHANNFI  3* 

DNT  Ml;  OUTPUT  CHANNEL 

R 0328 

CHANNEL  35 

DAT  M2:  OUTPUT  CHANNEL 

A 0330 

ARMS:  RESTART, COUNTER  FAIL,  VOLTAGE 


; DOWN  I INK.  1 FPST  OF  TWO  WORDS  SEP 
DOWNLINK  2 SOCOND  OF  TWO  WORDS  SE 


FAIL 


I ALI 
RIAL 


, AND  SCALAR 


Z AT TON. 

I Z A T I ON . 


DOUBLE . 


60 


I 

| GAP:  ASSEMBLE  REVISION  001  PE  ACC  PROGRAM  APllkQPE  BY  EYLES 

I L FLAGWCFO  ASSIGNMENTS 

) 

AOOO  1 
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USER’S  PAGE  NO.  1 
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R 000? 
R 0004 
R 000  A 

R 0008 


FLAGWi  -iDS  0-11  A-"L  r>:  WNl  INKED  AND  CAN  BE  SET  AND  CLEARED  BY  IJP-FLAG  AND  DOWN-FLAG  INSTRUCTIONS  IN  THE 

INTERPRETER.  THESE  WERE  PREVIOUSLY  LISTFD  UNDER  " INTEF  PR  FT  I VE  SWITCH  Bp  ASSIGNMENTS"  IN 
THE  R'-'VABLE  LOG  SECTION.  FLAGWOD,[)c  12  S 13  WER  EPREV  IOUSL  Y PADMODES  AMD  DAP9P0LS  AND 
APE  STILL  DOWNLINKED  UNDER  THOSE  NAMES. 


A COO 9 

R0010  ALPHABETICAL  LIST  IF  FLAGWPRDS 


ROC  1 1 

FI.  AGWORD 

DEC.  NUMBER 

BJT 

AND  FLAG 

BIT  NAME 

R 00  1 2 

ACCOKFLG 

207 

BIT 

3 

FLAG 

13 

ACCSCIKAY 

R 00 1 3 

ACC'--2FL 

1 oc 

BIT 

i 1 

r i a t; 

D 1 1 

1 1 

T L.  MO 

1 * 

At utUKc a 

R0<  ] 

ACMODFLG 

032 

BIT 

13 

FLAG 

2 

ACMODBIT 

R 001  5 

ALTSCALE 

1 86 

BIT 

9 

FLAG 

12 

ALTSCBIT 

r 0(  1 6 

ANTENFI.G 

1 83 

R f T 

FLAG 

AMTFMRTT 

I c. 

1 C. 

A In  1 tlNDT  i 

ROC  17 

Al.'R  BSFLG 

2 05 

BIT 

5 

F!  AG 

13 

AORBSYST 

”ocia 

A'  BTFLG 

200 

BIT 

1C 

FLAG 

1 3 

AORBTRAN 

R 00 1 ° 

APSFSW 

1 30 

BIT 

5 

FLAG 

8 

APPFSBIT 

R002D 

APS  FLAG 

152 

BIT 

13 

FLAG 

10 

APSFLBI T 

R 002  1 

AST NFL  AG 

108 

BIT 

12 

FLAG 

7 

ASTNBIT 

R 002  2 

ATJ FLAG 

104 

BIT 

1 

FLAG 

6 

ATTFL  BIT 

R 002  3 

AUV  • -IP  OF 

193 

81  T 

2 

FLAG 

12 

AU TOMB  IT 

R 002  a 

AUTR1FLG 

2 09 

BIT 

1 

FLAG 

13 

AUTRATE1 

R 002  5 

AUT° 2FLG 

2 0 ft 

R T T 

'5 

li  | AT 

A i it  A T C O 

D 1 1 

C 

r L A o 

1 D 

A U I A ! t Z 

R 002  6 

AUXFLAG 

103 

BIT 

2 

FLAG 

6 

AUXFLBIT 

R 002  7 

AVFGFLAG 

115 

BIT 

5 

FLAG 

7 

AVEGFBI T 

R002C 

A V t M T D S W 

1 4.0 

ft  I T 

1 

FLAG 

Q 

AWCMflDT  T 

.1  y 

D T 1 

1 

7 

AV tn Uo i 1 

R 0 0 2 9 

AVFl.AG 

04  o 

BIT 

5 

FLAG 

2 

AVFLBIT 

R 0030 

CALCMAN2 

043 

BIT 

2 

FLAG 

2 

CALC2BIT 

R 003  1 

CAL  CM AM 3 

04  2 

BIT 

3 

FLAG 

2 

CALC3BIT 

R 0032 

CDESFLAG 

180 

BIT 

15 

FLAG 

12 

CDESB  IT 

R 0033 

CMODNFLG 

123 

BIT 

12 

FLAG 

8 

CMOONBIT 

R 003  A 

COG  A FI.  AG 

131 

BIT 

4 

FLAG 

8 

COGAFBIT 

R 003  7 

CSMDKFLG 

197 

BIT 

13 

FLAG 

13 

CSMDOCKD 

R 0038 

CULTFI  AG 

053 

BIT 

7 

FLAG 

3 

CIJLTBIT 

ROO^P 

DAP'BOQLS 

FLGWRD 13 

R 0091 

DBS  EL  FI.  G 

206 

BIT 

4 

FLAG 

13 

DBS  EL  ECT 

R0042 

DES IGFLG 

185 

BIT 

10 

FLAG 

12 

DESIGBI T 

R905  3 

DIDFLAG 

OIL 

B i r 

14 

FLAG 

DIDFLBIT 

R0044 

DIMOFLAG 

05  9 

BIT 

1 

FI  AG 

3 

DIMOBIT 

R 0045 

DM F NFL  G 

081 

BIT 

9 

FLAG 

5 

DMENFBI T 

R004T 

DR  I FTDFL 

202 

BIT 

8 

FI  AG 

13 

DR  I FT  BI  T 

R 0047 

DPI FTFLG 

0 30 

B1T 

15 

FLAG 

2 

DQ FTBIT 

R 0048 

DSK YFL AG 

075 

BIT 

15 

FLAG 

5 

DSKYFBI T 

!" 


GAP: 

assemble  kevisipn  001  of  agc 

PROGRAM 

API 1R0PE 

BY 

EYLES 

L 

flasword 

ASSIGNMENTS 

R 0049 

D6DF.9FLG 

058 

BIT 

2 

FLAG 

3 

D60R9B1T 

R 005  0 

ENGONFI.G 

083 

BIT 

7 

FLAG 

5 

ENGONBIT 

R 005  1 

ER ADFLAG 

017 

BIT 

1 3 

FLAG 

j 

FvillFfln 

L 9 m Jr  u 1 t 

R 005  2 

ETP I Ft  AG 

038 

PIT 

7 

FLAG 

2 

ETPIBIT 

R0C54 

FINALFLG 

039 

BIT 

6 

FLAG 

2 

FINAL8IT 

R 0056 

FI  AGWR DO 

( or  o-D 1 4 ) 

( STATE 

+ 0 ) 

R 0057 

FLAGWRD1 

(015-029  ) 

( STATE 

+ 1) 

R 005  8 

FL  AGWRD2 

( 030-044  ) 

( STATE 

+ 2 ) 

R 0059 

FLAT  WR C3 

( 0 4*--.  ) 

( STATE 

+ 3 ) 

R 0060 

FL AGWR 06 

( 060-07 L ) 

(STATE 

+r  ) 

R 0061 

FI AGWKD5 

(P7c-089) 

(STATE 

+ 5) 

R 006  ? 

FI  AGWR 06 

( 090- 1 04 ) 

( STATE 

+ 6 ) 

R 0063 

FL AGWR 07 

( 105-119) 

( STATE 

+ 7) 

P.0064 

FL  AGWR  D8 

( 120-134 ) 

( STATE 

+ 8 D ) 

R 0065 

FLAGWRD9 

( 1.3,5 -1-v  9 ) 

( STATE 

+ 9 D ) 

R 0046 

FLAP 

142 

BIT 

8 

FI  AG 

o 

FLAPBIT 

R 006  7 

FL  GW?  DIO 

( 150-164 ) 

( STATE 

+ 100) 

R 006  A 

FLGWPDll 

( | 170  ) 

( ST  ATF 

+ l in) 

R 006  9 

FLGWRD12 

( 180-194 ) 

( STATE 

+ 1 2D  ) 

R 0070 

FLGWPD13 

( 195-209  ) 

(STATE 

+ 1 3D  ) 

R 007  1 

FL  PC 

138 

BIT 

12 

FLAG 

9 

F L PC  B IT 

R 007 2 

FL  P I 

1 39 

BIT 

11 

FLAG 

9 

FL  PI B I T 

R 007  3 

FLRCS 

149 

BIT 

10 

FL  AG 

9 

FLPCSBI T 

R 0074 

FLUNDI SP 

126 

BIT 

10 

FLAG 

8 

FLUNDBTT 

R 0075 

FLVr- 

136 

BIT 

14 

FLAG 

9 

FLVRBIT 

R 007  7 

FPEEFLAG 

012 

BIT 

3 

FLAG 

0 

freffbi t 

R 0077  5 

FSP  ASFLG 

005 

BIT 

10 

FLAG 

0 

FSPASBI T 

R 007  8 

GLOKFAIL 

046 

BIT 

14 

FI  AG 

3 

GLOKFBIT 

R n07  9 

GMBORVSW 

095 

BIT 

10 

FLAG 

6 

GMBOftBIT 

R 0080 

GUF  SS  W 

028 

K T T 

y 

FLAG 

1 

rupee qtt 

l>  A 1 

c. 

1 

vrU  t > ) 0.1  1 

ROf  81 

HFLSHFLG 

179 

BIT 

i 

FLAG 

11 

HFLSHBIT 

R 008  2 

IDLEFLAG 

113 

BIT 

7 

FLAG 

7 

IDLEFBIT 

R 008  3 

I GNFL  AG 

10  7 

BIT 

13 

FLAG 

7 

T/lMCI  RT  T 

i lJ  < v r L D i i 

R 0084 

I “PUL  SW 

0 36 

BIT 

9 

FL  AG 

2 

IMPULBIT 

R 0085 

J MUSE 

007 

BIT 

8 

FLAG 

0 

I MUSE  BIT 

R 0086 

INF  INFLG 

1 2P 

BIT 

7 

FI  AG 

g 

INFINBI T 

R 008  7 

INI  TAI..GN 

133 

BIT 

2 

FLAG 

8 

INITABIT 

R 008  8 

INTFLAG 

151 

BIT 

14 

FLAG 

10 

INTFLBIT 

R 0089 

I NTYPFLG 

056 

BIT 

4 

FLAG 

3 

INTYPBI T 

R 0090 

ITSWICH 

105 

PIT 

15 

FLAG 

7 

ITSWBIT 

R 009  1 

JSWITCH 

001 

BIT 

14 

FLAG 

0 

JSWCHBI T 

R 0092 

LFTABO:T 

1 41 

BIT 

9 

FLAG 

9 

L ETABBI T 

R 0093 

L MOON F LG 

124 

BIT 

11 

FLAG 

8 

LMCONBIT 

R 0094 

LOKONSW 

010 

BIT 

5 

FLAG 

0 

LOKONBI T 

R 0095 

LOSCMFLG 

033 

BIT 

12 

FLAG 

2 

LOSCMBIT 

R 0096 

LRALTFLG 

190 

BIT 

5 

FLAG 

12 

LR  ALT  BIT 

ROC  97 

LT BYPASS 

165 

B I T 

15 

FLAG 

1 1 

l.P  BYB  IT 

R 0098 

LR  I NH 

172 

B I T 

3 

FLAG 

1 1 

LR  INHBIT 

R 009  9 

LRPOSFLG 

189 

BIT 

6 

FLAG 

12 

LPP0S8IT 

R 0100 

L RVELFLG 

187 

BIT 

8 

FLAG 

12 

LRVELB1T 

3:15  DEC 


2 ,1970 


( MA  I N ) 


PAGE 


62 


USER'S  PAGE  MO.  2 EO  S4 


EQUIVALENT  FLAG  NAME:  UPTNSW 


ASSEMBLE  hEVISIZlT  001  OF  AGC  PROGRAM  AMIROPE  BY  EYLbS 


SAP  : 

L F LAGWC°D  ASSIGNMENTS 

P0101  LUNAFLAG  048  BIT  12  FLAG  3 

R 0102  MANUF  LAG  lOf  BIT  14  FLAG  7 

R0103  MfiLVFLAG  088  BIT  2 FLAG  5 

R01J4  MIDAVFLG  14P.  BIT  2 FLAG  9 

ROl'YF  MIDFLAG  002  BIT  13  FI  AG  0 

P 0 1 06  MIDIFLAG  147  BIT  3 FLAG  9 

R0107  MKOVFLAG  072  BIT  3 FLAG  4 

R 01  OB  MOONFLAG  003  BIT  12  FLAG  0 

R 0109  MRKIDFLG  060  BIT  15  FLAG  4 

R 01 1 0 MRKNVFLG  066  BIT  9 FLAG  4 

R0111  MpijPTFLG  070  BIT  5 FLAG  4 

R 01 1 2 MIJMFLAG  097  RIT  8 FLAG  6 


R 0 1 1 3 

MWAI TFLG 

064 

BIT 

11 

FI  AG 

4 

R0114 

NEEDLFLG 

Oil 

BIT 

4 

FL  AG 

0 

R 0 1 1 5 

MEW  IF LG 

122 

B I T 

13 

FLAG 

8 

R 0 1 1 6 

NJET S F LG 

015 

BIT 

15 

FLAG 

R 01 1 7 

NODOFLAG 

0 4 4 

BIT 

1 

FLAG 

2 

R 0 1 1 8 

Ml  ,1  Dp  C *|| 

17  0 

B I T 

■ i n 

fi  a c. 

L 1 

14(11  DP  L ML1 

1 1 V 

r L.  m ' j 

R 01  lc 

NORMS W 

110 

BIT 

10 

FLAG 

7 

R 0120 

NORRMON 

086 

BIT 

4 

FLAG 

5 

R 0 1 2 1 

M no?  or  i n 

049 

BIT 

11 

FLAG 

3 

R 0122 

NOTHROTl 

07  F 

BIT 

12 

FI  AG 

5 

R 0 1 2 3 

NOUPFf  AG 

024 

BIT 

6 

FL  AG 

1 

R 0124 

NRMNVF LG 

067 

BIT- 

8 

FL  AG 

4 

R 012  5 

NRMIDFLG 

062 

BIT 

13 

FLAG 

4 

R0126 

NRUPTFLG 

071 

BIT 

4 

FLAG 

4 

R0127 

NTAIGFLG 

1 02 

BIT 

3 

FLAG 

6 

R0128 

MWAI TFLG 

065 

BIT 

LO 

FLAG 

4 

P 0129 

niDESFLG 

014 

BIT 

l 

FLAG 

0 

R0130 

OPTNSW 

03  8 

BIT 

7 

FLAG 

2 

R 0 1 3 2 

ORBWFL AG 

054 

BIT 

6 

FLAG 

3 

R 0 1 3 3 

ORDER SW 

I 29 

BIT 

6 

FLAG 

8 

R 0 1 3 4 

OUR  RC  FL  G 

198 

BIT 

12 

FLAG 

13 

R 01 3 5 

POSPFL AG 

063 

BIT 

12 

FLAG 

4 

R 0 1 3 6 

P FR  AT  F LG 

041 

BIT 

4 

FLAG 

2 

P 0137 

PINBRFLG 

OA  9 

BIT 

6 

F!  AG 

4 

R 0139 

PREC  IFLG 

052 

BIT 

8 

FLAG 

3 

R 0140 

PRIODFLG 

061 

BIT 

14 

FLAG 

1 

R 0 1 4 1 

PRQNVFLG 

G68 

BIT 

7 

FLAG 

4 

P 0142 

P STH I GAT 

169 

BIT 

11 

FLAG 

1 L 

R 0143 

PUI SFFLG 

195 

BIT 

15 

FLAG 

13 

R 0143  2 

P21FLAG 

0 (94 

B IT 

11 

FLAG 

0 

R0144 

P25FLAG 

006 

BIT 

9 

FL  AG 

0 

R 0145 

P39/79SW 

126 

BIT 

9 

FLAG 

e 

R 0 1 46 

QUI TFL  AG 

145 

BIT 

5 

FLAG 

9 

P 0147 

RADMODES 

FLGWP.D  12 

R014P 

P AS FLAG 

FL  GWRD 10 

P 014C 

RCDUFAIl 

188 

BIT 

7 

FLAG 

12 

R 0150 

RCDUOFLG 

182 

BI  T 

13 

FLAG 

12 

R 0151 

READLR 

174 

BIT 

6 

FLAG 

11 

L UN ABIT 

MANUFBIT 

MGLVFBIT 

MIOAVBIT 

MIDFLBIT 

MIDIBIT 

MKOVBIT 

M OOMB I T 

NLKIDBIT 

MRKNVSS  i' 

MtUPTBH 

Mi  ILF  LB  IT 

MWAIT  BIT 

MEEDLBIT 

NEWIBIT 

MJETSBIT 

NODQBIT 

NOLRRBIT 

NORMSBIT 

Nr,c  RMB I T 

M 29FBIT 

MO  THE  B I T 

MUUPFB 1 T 

NP  MM V BI T 

NRMIDBIT 

NRUPTBIT 

NTAKGBIT 

’ . W A I TBI T 

OLDESBIT 

OPTNBT  T 

ORBWFBI T 

ORDERBIT 

OURRCBI  T 

P D S P F B I T 

PFRATBIT 

PIMBBBIT 

PPECI BIT 

PR ICDBT  T 

PRONVBIT 

n STH I BIT 

PULSES 

°2 l FL  B I T 

P25FL  BI T 

P3°SWBI T 

QUITBIT 


R CDUFBIT 
’ CDUOBIT 
READL BIT 


3:15  DEC.  2,1870  I MAIN! 

USER'S  PAGE  NO.  3 


PAGE 
EO  S4 


EQUIVALENT  FI  AG  NAME 


FTP  I FLAG 


GAP: 

ASSEMBLE  REVISION  0C1  CF  AGC 

PROGRAM 

API 1R0PE 

BY 

eyles 

L 

FLAGWORD 

ASSIGNMENTS 

R 01  52 

R E A Dc  FLG 

0C1 

R I T 

9 

FLAG 

3 

RE ADR  3 I T 

R0154 

R EADVEL 

175 

BIT 

5 

FLAG 

1 1 

READVBIT 

R0155 

REOFI  AG 

099 

B 3 T 

6 

FLAG 

6 

REDFL  BIT 

R 01 5 5 

P FFSMFLG 

047 

8 IT 

13 

FLAG 

3 

REF  SMB  I T 

R 0157 

REINTFLG 

158 

BIT 

7 

FLAG 

10 

REINTBIT 

R '"'158 

P EMntJPLG 

L 81 

BIT 

14 

FLAG 

12 

p EMOOBI T 

R 01  59 

RENDWFLG 

089 

BIT 

1 

FLAG 

5 

RENDWBI T 

R0160 

REP0SMON 

1 84 

BT  T 

1 1 

FLAG 

12 

REPOSBIT 

R 016 1 

:.HC  SC  FLG 

203 

BIT 

7 

FLAG 

13 

RHCSCALE 

R 01 6 2 

RNDVZFLG 

00? 

BIT 

7 

FLAG 

0 

RNDVZBIT 

R 016  3 

RNGEDATA 

1 76 

BIT 

4 

FLAG 

11 

PMGEDBIT 

P 0164 

° NG  SC  FI G 

080 

BIT 

10 

FLAG 

5 

PNGSCBI T 

R 01 64  2 

RODFLAG 

018 

b i r 

12 

FLAG 

1 

RODFL  BIT 

R 01644 

ROTFLAG 

144 

BIT 

6 

FLAG 

9 

ROTFLBIT 

R 0165 

RPQFL AG 

120 

BIT 

15 

FLAG 

8 

RPQFLBI T 

R 01  66 

RR  OAT  A FI 

191 

BIT 

4 

FLAG 

12 

'H3  DATABT 

R 0167 

RRNBSW 

009 

BIT 

6 

FLAG  C 

i 

- RMBBIT 

R 016  8 

RRRSFI  AG 

1 9 2 

B I T 

3 

FL  AG 

1 2 

d d r c a r 'r 

A 1\  f \ c U 1 I 

P 0169 

P VSW 

111 

B I T 

9 

FLAG 

7 

PVSWBTT 

R 0170 

R04FLAG 

05  1 

BIT 

9 

FLAG 

3 

R04FLBI T 

R 01 72 

R 1 OF LAG 

013 

BIT 

2 

FLAG 

0 

P.10FL  BI  r 

P 0 1 7 3 

R61FL AG 

02  f. 

BIT 

10 

FLAG 

1 

R 6 1 F L B I T 

R 01  7 4 

R77FLAG 

079 

BIT 

11 

FLAG 

5 

R77FLBI T 

R 0175 

SC  41  BAD 

177 

BIT 

3 

FLAG 

1 1 

SCABBIT 

R 01 76 

SLOPES") 

027 

BIT 

3 

FLAG 

1 

SL0PE3I T 

R 0177 

SNUFFER 

077 

BIT 

13 

FLAG 

5 

SNUFFBI T 

R 0178 

SOLNSW 

087 

BIT 

3 

FLAG 

5 

SOLNS0IT 

R 017° 

Si-  CHOPIN 

03  1 

BIT 

14 

FLAG 

2 

S'  CH03I  T 

ROlH^ 

STATE FLG 

055 

BIT 

5 

FLAG 

3 

STATEBIT 

R 018  1 

STEEPS W 

0 36- 

BIT 

1 1 

FLAG 

p 

STEER  SI T 

R 01 82 

SUP  FFLAG 

127 

BIT 

8 

FLAG 

8 

SURFF  BIT 

R 0183 

SWANDI SP 

109 

BIT 

11 

FLAG 

7 

SWANDBIT 

R 018  4 

S32 . 1 F 1 

090 

B I T 

15 

FLAG 

4 

C^ORTT] 

G 

J _/  D 1 I 1 

R 018  5 

S32.1F2 

092 

BIT 

14 

FLAG 

6 

S32BIT2 

R 01 8 6 

S32. 1F3A 

092 

BIT 

13 

FLAG 

6 

S32BIT3A 

R 0187 

S32. 1S3B 

093 

BIT 

12 

FL  AG 

6 

S32BI T3B 

R 0188 

TFFSW 

119 

BIT 

1 

FLAG 

7 

TFFSWBIT 

R 0189 

TRACKFLG 

025 

BIT 

5 

FLAG 

1 

TRACKBIT 

R 0190 

TURNONFL 

194 

BIT 

1 

FLAG 

12 

TURNONBT 

R 01 9 1 

ULl  AGFLG 

204 

BIT 

6 

FLAG 

13 

DLL ACER 

P 0192 

UPDATFLG 

023 

BIT 

7 

FLAG 

1 

UPDATBIT 

R 01 93 

UPl  OCKFL 

116 

BIT 

4 

FLAG 

7 

UPL0C8IT 

R 0194 

USFQRFLG 

196 

BIT 

14 

FLAG 

13 

USEQRJTS 

R 019  5 

V EHUPFLG 

022 

BIT 

8 

FLAG 

1 

VEHUPBIT 

R 0196 

VELDATA 

173 

BIT 

7 

FLAG 

11 

V E L D A B I 7 

R 0 1 9 7 

VER 1FL AG 

1 17 

BIT 

3 

FLAG 

7 

VER I FBI T 

R 0198 

VFLAG 

050 

BIT 

10 

FL  AG 

3 

VFI.  AGBIT 

R 019c 

VFLSFFLG 

178 

BIT 

2 

FLAG 

11 

VF1.SH8IT 

R 0200 

VINTFLAG 

057 

BIT 

3 

FLAG 

3 

VINTFBI T 

R 0201 

VXINH 

168 

BIT 

12 

FI  AG 

1 l 

VX  INHBIT 

3:15  DEC.  2 
USER* 
EQUIVALENT 


1570  (MAIN) 

PAGE  NO.  4 
FLAG  NAME:  R04FLAG 


PAGE 
EO  $4 


FQUIVALENT  FLAG  NAME:  READRFLG 


GAP:  ASSEMBLE  REVISION  001  OF  AGO  PROGRAM  AP11R0PE  BY  6YLES  3:15  DEC.  2,1970 


L FLAGW0PD  ASSIGNMENTS 


USEP'S  PAGE  NO 


R 0202 

V37FLAG 

R 0203 

V67FLAG 

R 0204 

V 82 1-  >F  LG 

P 020  5 

XDELVFLG 

R 0206 

XOSPFI.  AG 

R02n7 

XORFLG 

R 0208 

XOVINFLG 

R 02  10 

3AXISFLG 

R 021  1 

A 02  1 2 

3 60SW 

114 
1 12 
118 
037 
074 
171 
201 
08< 
134 


BIT 
B I T 
BIT 

6 

q 

2 

FLAG 

FLAG 

FLAG 

7 

7 

7 

BIT 

3 

FLAG 

2 

BIT 

1 

FLAG 

4 

BT  T 

o 

FLAG 

11 

BIT 

9 

FLAG 

13 

BIT 

6 

FLAG  5 

B I T 

1 

FLAG 

8 

V37FLBI T 
V67FLBIT 
V32EMBI T 
XDEL VBI T 
XDSPBIT 
XOPFLBI T 
XOVINHIB 
3AXISBIT 
360SWBI T 


R 02  1 3 


ASSIGNMENT  A: "0  DESCRIPTION  OF  F LAGWCRDS 


021-  REF 


PC  74 


FLAGWRDO 


STATE  +0  ( 000-014) 


A 02 1 * 


( c ET  ) 


A 02  1 fc 
A 02 1 7 
A 02  1 8 
A 021  ° 


BIT  15  FLAG  0 <S) 

GOOD 
B I T 1 5 


A 0220 
0221 

0222  REF 
A 022  3 


0001 
47  36 


JSWITCH 

JSWCHBIT 


BIT  14  FLAG  C (S) 

001 D INTEGRATION  OF  W 

B IT  14  * MATRIX 


A 0 2 2 4 

0225  C002 

A0226 

0227  KEF  2 LAST  40  4737 

A 022  ° 


MIDFLAG  = 

BIT  13  FLAG  0 
002  D 

( S) 

INTEGRATION  WITH 

MI0FL3IT  = 

8 I T 1 3 

SECONDARY  BODY  AND 
SOLAR  PERTURBATIONS 

A 022° 

0230 

0003 

0231 

A 0232 

REF  1 

4740 

MOON  FLAG  = 
MOONBIT  = 


BIT  12  FLAG  0 
003D 
B IT  1 2 


(L) 

MOON  IS  SPHEPE  OF 
INFLUENCE 


A 0233 

0234  0004 

0235  REF  2 LAST  43  5741 

A 02  3 6 


P 2 IF  LAG 
P21FLBIT 


BIT  11  FLAG  0 
004  0 
B IT  1 1 


USE  BASE  VECTORS 
ALREADY  CALCULATED 


A 0237 
0238 

023°  5-EF 
A 0240 


0005 

<74? 


FSPASFLG 
F c P A SB  J T 


BIT  10  FLAG  0 
0050 
B IT  10 


FIRST  PASS  THROUGH 
r EPOS  I TI UN  ROUTTWE 


I MAIN)  PAGE  65 

5 FO  S4 


(RESET) 


INTEGRATION  CF  STATE 
VECTOR 


INTEGRATION  WITHOUT 
SOLAR  PERTURBATIONS 


EARTH  IS  SPHERE  OF 
INFLUENCE 


1ST  PASS  — CALC- 
ULATE BASE  VECTORS 


MOT  FIRST  PASS  THRU 
REPOSITION  ROUTINE 


GAP:  ASSEMBLE  RE  VI  SI  Jr.  001  OF  AGC  PROGRAM 


L FLAGWORD  ASSIGNMENTS 


A 024  1 

0242  C006 

0243  REF  1 4743 

A 0244 

A 02'^ 

0246  C007 

0247  REF  1 4744 

A 024  ri 

A 0249 

0250  0010 

0251  REF  ] 4745 

A 025  2 


A 0253 

0254  0011 

0255  REF  1 4746 

A 025  6 

A 0257 

02  5 P 0012 

0259  RFF  1 4747 

A 02''  C 

A 026 1 

0262  0013 

0263  REF  1 4750 

A 0264 


A 0265 
0266 
A 026  7 
02  6. 5 
A 0269 


0014 


'CF 


475  1 


A 0270 

0271 

0272  REF  1 
A 027  ° 

A 02  74 
A 02  7 K 


0015 

4752 


A 0276 

0277  C01 6 

0278  REF  1 .,753 

A 027  9 


0280  REF  2 LAST  65  0079 


API  Ik OP#  BY  EYLES 


P25FLAG  = 
P25FL8IT  = 


IMUSE 

IMUSEBIT  = 


RNDVZFL6  = 
TNDVZBIT  = 


RRNBSW 
P ” N R B I T = 


L:D  KO  NSW  = 
LOKONBIT  = 


NEEDLFLG  = 
’.'EEDLBIT  = 


FREE  FI  AG  = 
FREE  EBIT  = 


P10FLAG  = 
R1QFL8IT  = 


QL  DFSFLG  = 
OLOESBTT  = 


FLAGWRD1  = 


3:15  DEC.  2,1970  (MAIN)  PAGE  66 

USER ' S PAGE  NO.  6 EO  S4 


BIT  9 

FLAG 

0 

(S) 

0 06D 

P25  OPERATING 

P25 

NOT 

OPERAT I NG 

B IT9 

BIT  o 

FL  AG 

0 

( S) 

007D 

I MU  IN  USE 

I MU 

NOT 

IN  USE 

BITS 

BIT  7 

FLAG 

0 

( S ) 

00«D 

P20  RUNNING  (RADAR 

P20 

NOT 

RUNNING 

BIT? 

IN  USE) 

BIT  6 

FLAG 

0 

( S) 

009D 

F A D A r TARGET  IN 

RADA 

lR  TARGET  in 

BIT6 

N6  COORDINATES 

SM  COOP  D 

INATES 

BIT  5 

FLAG 

0 

(S) 

010D 

RADAR  LOCK-ON 

RADAR  LOCK-ON  NOT 

BIT5 

DESIRED 

DES1 

RED 

BIT  4 

FLAG 

0 

( S) 

0 1 1 D 

TOTAL  ATTITUDE 

A/P 

FOLLOWING 

BIT  4 

ERROR  DISPLAYED 

ERROR  D I 

SPLAYED 

BIT  3 

FLAG 

0 

012D 

(USED  BY  P 5 1 -53  TEIMF 

> IN 

MANY 

DIFFERENT 

ROUTINES  £ BY  LUNAR 

+ SOLAR 

EPHEMEP IDES ) 

BTT3 

BIT  2 

FLAG 

0 

0 1 3D 

P.10  OUTPUTS  DATA  TO 

BES  I 

:des 

OUTPUT  WHEN 

BIT2 

ALTITUDE  £ AL  T I TUDF 

SFT, 

RIO 

ALSO  OUTPUT 

KATE  METERS  ONLY  TO  FORWARD  £ LATERAL 
VELOCITY  CROSSPOINTR 


( L) 

R 29  GYRO  CMD  LOOP  R29  GYRO  CMD  LOOP 
REQUESTED  NOT  REQUESTED 


STATE  +1  (015-02°) 


BIT  1 FLAG  0 
014D 

BIT1 


GAP  : 

ASSEMBLE  RE 

VISION  001  OF 

AGC  PROGRAM 

API  1 3 OP  E BY  EYLES 

L 

FLAGWOPO 

ASSIGNMENTS 

A 0281 

A0262 

0283 

0284 
AO  28* 

r-  EF  1 

TO  1 7 

6735 

NJETSFLG  = 
NJETSBIT  = 

0020 

47  3 6 

DIDFLAG  = 
DIQFLBIT  = 

A 0286 
0287 
028  8 
A 028  r 

REF  2 

LAST  65 

0290 

0291 

0292 

0293 

REF 

3 

LAST 

6 5 

0021 

4737 

ERADFLAG  = 
ERADF8IT  = 

0294 

0295 

0296 

REF 

2 

t AST 

65 

00  2 2 

474  0 

RODFLAG  = 
RODFl  BIT  = 

0297? 

(0298 

(0299 

,02995 

(0300 

0301 

0024 

R61FI AG  = 

0302  REF 

(0303 

2 LAST 

65 

4 7 42 

R6 IF  LB IT  = 

A 030  a 
A0305 
A 03  06 
A 030  7 


A 0308 

0309 

0310 

A 03 11 

REF 

2 

LAST, 

66 

0026 

4744 

VEHUPFLG  = 
VEHUPBIT  = 

A 031  2 

0313 

0314 

A 03 15 

REF 

2 

LAST 

66 

0027 

4745 

UPDATFLG  = 
UPDATBIT  = 

A 03  1 r 
031  7 

A 03 18 

0310  REF 


9030 


NOUPFLAG  = 


2 LAST 


66 


A 74  6 


IMC) UP  FB  I T 


3:15  DEC 


2,1870 


( MAIM  ) 


PAGE  67 


USER'S  PAGE  NO.  7 EO  S4 


(SET)  (RESET) 


BIT  15 
015D 

B I T 1 5 

FLAG  1 

( S ) 

TWO  JET  RCS  BURN 

FOUR  JET  RCS  BURN 

BIT  14 
0 16D 
Bin- 

FLAG  1 

(L) 

INERTIAL  DATA  IS 
AVAILABLE 

PERFORM  DATA  DISPLAY 
INITIALIZATION  FUNCS 

BIT  13 
017D 

8 I T 1 3 

FLAG  1 

(S) 

COMPUTE  REARTH 
FISCHER  ELLIPSOID 

USE  CONSTANT  REARTH 
PAD  RADIUS 

FLAG  1 

BIT12 

018D 

B IT  1 2 

IF  IN  P66,  K IP  M At- 
OP  EF  AT I ON  CONTINUES 
RESTART  CLEARS  FLAG 

IF  IN  P66,  RE-INIT- 
. I AL I Z AT I ON  IS  PER- 
FORMED AND  FLAG  IS 

BIT  11 
0 19D 
BIT  11 
BIT  10 
020D 
B IT  1 0 


FLAG  1 


FLAG  l (L) 

f UN  R 61  LEM 


RUN  R65  I EM 


BIT  9 FI  AG  1 
02 1 D 
B IT  9 


BIT  8 FLAG  1 

( S) 

022  D 

CSM  STATE  VECTOR 

LEM  STATE  VECTOR 

BITS 

BEING  UPDATED 

BEING  UPDATED 

BIT  7 FLAG  1 

( S ) 

02  3D 

UPDATING  BY  MARKS 

UPDATING  BY  MARKS 

B IT7 

ALLOWED 

NOT  ALLOWED 

B I T 6 FLAG  1 

( S ) 

9 240 

NEITHER 

CSM 

E T THF  8 ST  ATE 

NOR  LM 

STATE  VECTOR 

VECTOR  MAY  BE 

BIT6 

MAY  BE 

UPDATED 

UPDATED 

GAP 


ASSEMBLE  REVISION  001  OF  AGO  PROGRAM  AP11R0FE  BY  EYIES 


L FLA6W0RD  ASSIGNMENTS 

A0320 


A 032  1 
0322 

.'031 

TNACKFt  G 

032  3 

A 032-'- 

REF 

2 

LAST 

6 A 

474  7 

TRACKBI  T 

A 032  ^ 
A 032  6 
A 032  7 
A 


A032° 

0330 

A0331 

0332 

A0333 

0033 

SLOPESW  = 

REF 

2 LAST 

66 

4751 

S1.0PEBIT  = 

A 03  3 4 
0335 

0034 

0336 

A 033  I 

REF 

2 LAST 

66 

4 752 

GUESS  W 

= 


A 033  - 
A 033 
A 03 AO 


034 1 REF  3 LAST  6f  0076  FLAGWRD2  = 

A 0342 


A 0343 
0344 

0036 

0345 

A 03< 

REF 

2 LAST 

67 

4735 

DBIFTFL&  = 
DRFTBIT  = 


A 0347 
0348 

0037 

0345 

A 0350 

REF 

3 LAST 

67 

4736 

SRCHOPTN  = 
SRCHQBII  = 


A 03  51 

035? 

0040 

0353 

A 0354 

REF 

4 LAST 

67 

473  7 

ACMC  DFL  G = 
AC  l(  OB  I T = 


A035c 

0356 

004  1 

A0357 

0358 

RFF 

3 LAST 

67 

4740 

10SCMFL  G = 
LOSCMBIT  = 


BIT  5 

0250 

BITS 


BIT  4 
0260 
B I T A 


BIT  3 
027D 

BITS 


BIT  2 
028D 
B I T 2 


BIT  1 
029® 


STATE 


BIT  15 
030  0 

BIT15 


BIT  14 
0 3 1 D 
8IT14 


BIT  13 
0 32  D 
BIT13 


BIT  12 
0 330 
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PAGE  68 
EG  S 4 


FLAG  1 (S) 

TRACKING  ALLOWED  TRACK  I NG  NOT  ALLOWED 


FLAG  1 


FLAG  1 (S) 

ITERATE  WITH  BIAS  ITERATE  W T TH  REGULAR 
METHOD  IN  ITERATOR  FALSI  METHOD  IN 
I TER  A TOR 


FLAG  1 (S) 

NO  STARTING  VALUE  STARTING  VALUE  FOR 
FOR  I T E AT  ION  ITERATION  EXISTS 


FI  AG  1 


+2  (030-044) 

(SET)  (RESET) 

FLAG  2 (S) 

T3RUPT  CAL  LS  GYRO  T 3 R U P T DOES  NO  GYRO 

COMPENSATION  COMPENSATION 


FLAG  2 (S) 

RADAR  IN  AUTOMATIC  RADAR  NOT  IN  AUTP- 
SEARCH  OPT  ION ( R24 ) MATIC  SEARCH  OPTION 


FLAG  2 (S) 

MANUAL  ACQUISITION  AUTO  ACQUISITION 
BY  RENDESVOUS  RADAR  BY  RENDESVOUS  RADAR 


FLAG  2 (S) 

LINE  OF  SIGHT  BFING  LINE  OF  SIGHT  NOT 
COMPUTED  (R21)  BEING  COMPUTED 


BIT12 


GAP:  ASSE'-'Bi  b ntViSITN  001  _-F  AGG  PPl".GI<  AM> 

L FUGW0R0  ASSIGNMENTS 

A0359 
A 03o0 

A 036  1 

0362  0042 

0363  °FF  3 LAST  63  37/1 

A0363 

A 03  6 5 
A 036  8 

A 036 c 

0370  0044 

A 037  1 


0372 

A 0373 

A 037/ 

0375 

0376 
A0377 

RF.F 

2 

LAST 

66 

4743 

REF 

3 

LAST 

67 

0045 

4744 

A037P 

037° 

A 0380 
0381 

A 038  2 

REF 

3 

LAST 

67 

004  6 

473  5 

A 033  3 

03  83 

REF 

REF 

5 

0046 

4745 

0385 

A 0386 

4 

LAST 

69 

A 03  8 7 
038F 

A 03 

0390 

A 039  1 

0047 

RFF 

3 

LAST 

67 

474  6 

A 0392 
0393 
0393 

A D 3 

RFF 

3 

LAST 

68 

005  0 
473  7 

A 0396 
039? 
0398 

REF 

2 

I.AST 

66 

0051 
47  50 

A039" 


APL  1R0PE  BY  E Yl  E S 


STEEPS'-;  = 
STFER  8 IT  & 


IMPULSW  = 
IfPULBI  T = 

XOELVFLG  = 
XDELVBIT  = 

FTP  I FI  AG  = 
ETPIBIT  = 

CIPTNFW 
OPTNBIT  = 

finalflg  = 

FINALBIT  = 

AVF!  AG 
AVFtBIT  = 


PFRATFL 

PFPATBI 


A 0400 


O 


3:  15  DEC 
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BIT  11  FLAG  2 

0 36  D 

PITH 


BIT  10  T L AG  2 


BIT  9 FLAG  2 
0 36D 

B I T 9 


BIT  9 FLAG  2 

0 37  D 

BITS 


BIT  7 FLAG  2 
0330 

B IT7 


BIT  7 FLAG  2 
ETP  I F I AG 
8IT7 


BIT  6 FI  AC  2 
039  D 

BITfc 


B IT  5 FUG  2 

040  D 

BIT1- 


BIT  4 FLAG  2 

041 D 

BIT4 


USER'S  PAGE  NO.  9 


IN  R2  9 ( L ) : R F GYP Q 
CMD  LOOP  RUNNING 

(S) 

SUFFICIENT  THRUST 
IS  PRESENT 


(S) 


(SI 

MINIMUM  IMPULSE 
BURI  ( CUTOFF  ' ’ ME 
SPECIFIED) 


(S) 

EXTERNAL  DELTAV  VG 
COMPUTATION 


( S) 

ELEVATION  ANGLE 
SUPPLIED  FOR 
P 34 , 74 


( L) 

SOI  PHASE  OF  P38/7R 


( S ) 

LAST  PASS  THROUGH 
RENDEZVOUS  PROGRAM 
COMPUTATIONS 


(S) 

LEM  IS  ACTIVE 
VEH  I C I E 


(S) 

PREFERRED  ATTITUDE 
COMPUTED 


EO  S 6 

IN  R29  (L):  PR  GYRO 
CMD  LOOP  OFF 


INSUFFICIENT  THRUST 
H PRESENT 


STEFRING  BURN  (NO 
CUTOFF  TIME  YET 
AVAILABLE ) 


LAMBERT  (AIMPOINT) 
VG  COMPUTATION 


TP  I time  SUPPLIED 
FOR  P 3 4 , 7 4 TP  COMPUT 
ELEVATION 


SPC  PHASE  OF  P3B/78 


INTERIM  PASS  THROUGH 
RENDEZVOUS  PROGRAM 
COMPUTATIONS 


C SM  IS  ACTIVE 
VEHICLE 


PREFERRED  ATTITUDE 
NOT  COMPUTED 


(S) 


BIT  3 FI  AG  2 


GAP 


ASSEMBLE  PE  VISIT!  001  f.E  AGC  PROGRAM  APllRQPt  BY  EYLES 


L FLAGWO:  0 ASSIGNMENTS 


0401 

0402 

A 040  3 

A 0404 
0405 

REF 

3 

LAST 

68 

0052 

475  1 

0083 

C ALCMAN3 
CALC3B IT 

GAIT  M A N 2 

= 

040  A 

1 F 

3 

LAST 

68 

4752 

CALC2BI T 

= 

A 0407 

A 040  8 

0409 

0054 

NODOPLAG 

= 

0410 

RFF 

2 

LAST 

66 

4753 

NO 00 8 IT 

= 

A 041  1 

0412 

REF 

4 

LAST 

68 

ftp  7 7 

FLAGWRD3 

= 

A 04]  3 


A 041  6 
A 041  5 
A 04  1 A 

A 04 17 


0418 

0410 

A 0420 

REF 

4 LAST 

68 

0056 

4736 

GLOKFAIL  = 
GLOKFBIT  = 

A 04  21 
0422 
042  3 

REF 

6 LAST 

4 P 

00  5 7 

4737 

REFSMFLG  = 
RE  F SMB  I T = 

A 042  4 


AO-'.  2 5 
0426 
042  7 

A 042  8 

A 0429 

REF 

4 

LAST 

68 

0060 

4 7 6 0 

t UNAFLAG 
L UNA  BIT 

0061 

476  1 

N0R29FLG 

NR  29  F 8 11 

0430 

04  31 

A 04  3 2 

REF 

4 

LAST 

6 9 

A 043  3 

0434 

0435 

A 043  6 

REF 

3 

LAST 

67 

0062 

474  2 

VFLAG 

VFLAGBJT 

A 0437 
043  8 

A 043  9 

0063 

R04FLAG 
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USER  • S PAGE  NO.  10  EO  S4 

042D 

BIT3 

MG  FINAL  ROLL  FINAL  ROLL  IS 

NECESSARY 

BIT  2 F! AG  2 
043  0 

BTT2 

( S) 

PERFORM  MANEUVER  BYPASS  STA'TING 

STARTING  PROCEDURE  PROCEDURE 

8 1 T l FLAG  2 
04<yD 

BIT1 

( S ) 

V 37  NOT  PERMITTED  V37  0 EFvM  I TTED 

STATE  +3 

( 045-059 ) 

(SET)  ( RESET) 


BIT  15  FLAG  3 
045D 

BIT  14  FLAG  3 
046  D 

B IT  14 

( S ) 

GIMBAL  LOCK  HAS  NOT  TN  GIMBA1  LOCK 

OCCURRED 

BIT  13  FLAG  3 
047  D 

BIT13 

***  PROTECTED  FROM  FRESH  ST  AFT  *** 

REF SM MAT  GOOD  REFSMMAT  NO  GOOD 

BIT  12  FLAG  3 
048D 

B IT  1 2 

(S) 

LUNAR  LAT-LOMG  EARTH  L AT- LONG 

BIT  11  FLAG  3 
049D 

B IT  1 I 

(L  ) 

R29  NOT  ALLOWED  R29  ALOWED  (FR  DES- 

IGNATE, POWERED  FLT) 

BIT  10  FLAG  3 

0 50D 

BIT  10 

(S) 

LESS  THAN  TWO  STARS  TWO  STARS  TN  FIELD 

IN  FIELD  OF  VIEW  OF  VIEW 

BIT  9 FL  AG  3 
0511) 

! S ) 

ALARM  521  ALARM  521  ALLOWED 

SUPPR  FSSED 

ALARM  521  ALIOWED 


GAP:  ASSEMBLE  RE  VISILE  001  vF  AGC  PROGRAM  API  IRC, PE  BY  EYLES 

L FLAGWORD  ASSIGNMENTS 

0440  REF  3 LAST  69  4743  R04FLBI T = 

A 0441 

A 04*2 

0443  PEF  1 0063 

0444  RFF  1 LAST  71  47*3 

A 0445 


READRFLG  = 
REAORBIT  = 


A 0446 
0447 
A 0448 

0*4°  PEF  4 LAST  SS> 
A0450 

A 04al 

0452 

0453  FF  5 LAST  69 

A 045* 

A 045  5 

0456 

0457  REF  * LAST  ii" 

A 04  5 

A 0459 
046  0 

0461  LF  4 LAST 

A 046  2 

A 046  3 

0464 

0465  REF  3 LAST  69 

A 0466 


0064 
* 744 


0065 

4745 


0066 
6 74  6 


0067 

4747 


0070 
4 75  0 


PR  EC  IF  LG 
PRECT BIT 


CULT  FLAG 
CULT  BIT 


u k B W FLAG 
OR BW F 3 IT 


STATEFL G 
STATES  IT 


INTYPFLG 
INTYPB I T 


A 0467 

0468  C07 1 

0469  REF  4 LAST  70  475  1 

A 047  0 


V I NT  FLAG 

VI  NT  FBI T 


A 04  / 1 

0472 

0473 

REF 

4 

LAST 

70 

0072 
'-■75  2 

D6CP9FLG  = 
D60R° B I T = 

A 0474 

A 047  5 

0476 

0477 

R.  EF 

3 

L AST 

70 

(>073 

475  3 

D IMG  FLAG  = 
DIM08IT  = 

A 0478 

0479 

REF 

5 

LAST 

70 

C100 

FLAGWRD4  = 

3:15  DEC 


2,1970 
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USER'S  PAGE  NO.  11  EO  S4 

B I T9 


BIT  9 FLAG  3 (L) 

F 04F LAG  READING  PP  DATA  NOT  READING  RR  DATA 

B 1 T ° PURSUANT  TO  P29  PURSUANT  TO  F 2° 


BIT  8 FLAG  3 
052D 

B IT 3 


IS) 

NORMAL  INTEGRATION 
IN  POO 


ENGAGES  4-TIME  STEP 
(POO)  LOGIC  IN  INTE- 
GRATION 


BIT  7 FLAG  3 (S) 

0 53D  STAR  OCCULTED  STAR  NOT  OCCULTED 

BIT7 


BIT  6 FLAG  3 
0540 
B IT* 


IS) 

W MATRIX  VALID  FOR  W MATRIX  INVALID  FOR 
ORBITAL  NAVIGATION  ORBITAL  NAVIGATION 


BIT  5 FLAG  3 (S) 

055D  PERMANENT  STATE 

BITS  VECTOR  UPDATED 


PERMANENT  STATE 
VECTOR  NOT  UPDATED 


BIT  4 FLAG  3 (S) 

0 56  D CONIC  INTEGRATION  ENCKE  INTEGRATION 

BIT4 


BIT  3 

<"'57D 

BIT3 

FL  AG 

3 

(S) 

C$M  STATE  VECTOR 
BEING  I NT  EGR  AT  ED 

LEM  STAFF  VECTOR 
BEING  INTEGRATED 

3!T  2 
0 5 3D 

B IT2 

Ft  AG 

3 

( S) 

DIMENSION  OF  W IS 
FOR  INTEGRATION 

9 DIMENSION  OF  W IS  6 
FOR  INTEGRATION 

BIT  1 FLAG  3 

IS) 

059D 

W MATRIX  IS  TO  BE 

W MATRIX  IS  NOT  TO 

BIT  1 

USED 

BE  USED 

STATE  +4 

(060-074) 

AP:  ASSEMBLE  REVISION  001  UF  AGC  PROGRAM  AP11R0PE  BY  EYLES 


L FLAGWOPD  ASSIGNMENTS 

AO  ARC 


A O'  1 


048  2 
0483 

A 07  7 

REF 

3 

LAST 

68 

0074 

473  5 

MRKIDFLG 
MR  K 1 D B I T 

A 0485 
0436 

0487 

A 04P  8 

REF 

5 

LAST 

70 

0075 

4736 

L If  qflg 
PR  ICDBIT 

A 048  9 

0490  0076  NFMIDFLG  = 

0491  REF  6 LAST  70  h737  NRMIDBIT  = 

A 049  2 


A94Q? 

0494 

A 049  5 
0496 

A 0497 

A 04  9 3 

5 LAST 

70 

C077 

4 74  0 

• 1 

PDSPFLAG  = 
POSPFBIT  = 


A 049° 

0500  0100  MWAITFLG  = 

A 0501 

0502  REF  5 LAST  70  4741  MWAITBIT  = 

A 0503 


A 0504 
0505 
AC506 

0507  REF  4 LAST  70 
A 050  A 


0101 

“742 


MWAITFLG  = 
NWAITBIT  = 


A 050° 

0510 

A0511 

0102 

REF 

5 LAST 

71 

4743 

0512 
A05  1 3 

MRKNVFLG  = 
MRKNV8IT  = 


A 05  1 4 
0515 

A 05 1 6 

0103 

0517 

A 051  1 

REF 

5 

LAST 

71 

■474  4 

NRMNVFLG  = 
NRMNVBIT  = 


A 0519 

0520  0104  PRONVFLG  = 
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2,1970 


( MAIN  ) 


PAGE 


72 


BIT  15 
06  OD 
Situ 


BIT  14 
06 1 U 

B I T 1 4 


BIT  13 
0620 
B I T 1 3 


BIT  12 
06  3D 

8 IT  1 2 


BIT  11 
064D 

B IT  1 1 


BIT  10 
065  D 

BIT  10 


BIT  9 
0 66  D 

8 IT9 


BIT  8 
0670 

BITS 


BIT  7 
068D 


USER  * S PAGE  NO.  12  EO  S4 


I SET) 


( RESET) 


FLAG  4 IS) 

MARK  DISPLAY  IN  NO  MARK  DISPLAY  IN 

FND IDLE  ENDIDLE 


FLAG  4 ( S) 

PRIORITY  DISPLAY  IN  NO  PRIORITY  DISPLAY 
ENDIDLE  IN  ENDIDIE 


FLAG  4 (S) 

NORMAL  DISPLAY  IN  MO  NORMAL  DISPLAY 
ENDIDLE  IN  ENDIDLE 


FLAG  4 (S) 

P 20  SETS  SO  AS  TO  LEAVE  AS  NORMAL  DISP 
TURN  A NORMAL  DIS- 
PLAY INTO  A PRIORITY 
DISPLAY  IN  R 6 0 


FLAG  4 (S) 

HIGHER  PRIORITY 
DISPLAY  OPERATING 
WHEN  MARK  DISPLAY 
INTTI ATED 


NO  HIGHER  PRIORITY 
DISPLAY  OPERATING 
WHEN  MARK  DISPLAY 
INITI ATED 


FLAG  4 (S) 

HIGHER  RP I OR  I TY 
DISPLAY  OPERATING 
WHEN  NORMAL 
DISPLAY  INITIATED 


NO  HIGHER  PRIORITY 
DISPLAY  OPERATING 
WHEN  NORMAL  DISPLAY 
INITI ATED 


FLAG  4 ( S I 

ASTRONAUT  USING  ASTRONAUT  NOT  USING 

KEYBOARD  WHEN  MARK  KEYBOARD  WHEN  MARK 
DISPLAY  INITIATED  DISPLAY  INITIATED 


FLAG  4 (S) 

ASTRONAUT  USING 
KEYBOARD  WHEN 
NORMAL  DISPLAY 
INITIATED 


ASTRONAUT  NOT  USING 
KEYBOARD  WHEN 
NORMAL  DISPLAY 
INITIATED 


FL  AG  4 ( S ) 

ASTRONAUT  USING  ASTRONAUT  NOT  USING 


G AP:  ASSEMBLE  r L V IS!'.:  001  OF  AGC  PROGRAM  API  1R0PE  BY  EYLt-S 


L FLAGWQRO  ASSIGNMENTS 


A0521 

0522  REF  6 LAST  71  4745  PRONVBIT  = 

A 05  23 


A 05  2 4 

0525  0105  PINBRFLG  = 

A 0526 

0527  PEF  5 LAST  71  4746  PINBPBIT  = 

A052F 

A052° 

0530  0106  MRUPTFLG  = 

A 0 5 3 1 

0532  REF  5 LAST  71  4747  MRUPTBI T = 

A 053  3 


A 05  34 
053  5 
A 05  3 6 

0537  PEF 
A 0538 


4 LAST  71 


0187  NRUPTFIG  = 

4750  NRUPTBIT  = 


A 053  c 

0540  0110  MKOVFLAG  = 

0541  REF  5 LAST  71  475  1 MKOV  BIT  = 

A 0542 

A 0543 
A 0544 

A0545 


A 0546 

0547  Oil?  X03PFLAG  = 


0548 

A0*4‘: 

R E F 

4 

LAST 

475  3 

XDSPBIT  = 

0550 

A 0551 

REF 

6 

LAST 

71 

0101 

FLAGWRD5  = 

A 05  5 2 

0553 

0554 

REF 

4 

LAST 

72 

0113 

4735 

DSKY FLAG  = 
DSKYFB IT  = 

A 055  5 


A 055c 
A < 

A 055  8 
A 055  0 


B IT? 


BIT  6 FLAG  4 

0690 

B I T6 


BIT  5 FLAG  4 
0700 

BITS 


BIT  4 FLAG  4 
6710 

BIT4 


BIT  3 FLAG  4 
072  0 
B IT3 


BIT  2 FLAG  4 
0730 


BIT  1 FLAG  4 

0740 

BIT1 


STATE  +5 


BIT  15  FLAG  5 

075  0 

BIT15 


BIT  14  FLAG  r 
076  0 
B 1 1 1 4 


15  DEC.  2 1 1570 

( MAIN) 
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USER'S  PAGE 

NO.  13 

EO  S4 

KEYBOARD  WHEN 
PRIORITY  DISPLAY 
INITI ATED 

KEYBOARD  WHEN 
PRIORITY  DISFLAY 
INITIATED 

(SI 

ASTRONAUT  HAS 
INTERFERED  WITH 
EXISTING  DISPLAY 

ASTRONAUT  HAS  MOT 
INTERFERED  WITH 
EXISTING  DISPLAY 

( S) 

MARK  DISPLAY 
INTERRUPTED  BY 
PRIORITY  DISPLAY 

MARK  DI  c PL  AY  NOT 
INTERRUPTED  BY 
PRIORITY  DISPLAY 

( S) 

NORMAL  DISPLAY 

NORMAL  DISPLAY  NOT 

INTERRUPTED  BY 

INTERRUPTED  BY 

PRIORITY  OR  MARK 

PRIOR  ITY  OP  MARK 

DISPLAY 

DISPLAY 

(S  ) 

MARK  DISPLAY  OVER 

NO  MARK  DISPLAY  OVER 

NORMAL 

NORMAL 

( S) 

MARK  DI SD1.  AY  NOT  NO  SPECIAL  MARK 
TO  BE  INTERRUPTED  INFORMATION 


(075-089) 

(SET)  (RESET) 

( S ) 

DISPLAYS  SENT  TO  NO  DISPLAYS  TO  DSKY 
DSKY 


GAP:  ASSEMBLE  REVISION  001  OP  AGC  PROGRAM  AP11RQPE  BY  EYLES 

L FLAGWORD  ASSIGNMENTS 

A 05o0 

0561  0115  SNUFFER 

A 05c  2 


0563 

0564 

REF 

7 

LAST 

72 

4737 

SNUFF BIT  = 

0568 

0566 

0116 

NOTHROTL  = 

0567 

0563 

056  ° 

REF 

6 

LAST 

72 

4740 

NOT  HR 6 1 1,  = 

0117 

R77FLAG  = 

0570 

0571 

0572 

0573 

REF 

6 

LAST 

7 2 

476  1 

R77FLBI T = 

A 0574 


A 0575 
0576 
A 0577 

057 8 REF  5 LAST  7 2 

A 057  ° 

A 05  80 

0581 

0582  REF  6 LAST  72 

A 0583 

A05«6 
A 0585 
A 0586 
A 0587 

A 0588 
058° 

0590  REF  7 LAST  73 

A 0591 

A 0592 
0593 

A 0594 

0598  REF  6 LAST  73 

A 0596 

A 05°7 
A059P 

A 08oo 

AOfcOO 


0120 

RNGSCFLG 

4742 

RNGSC8IT 

0121 

DMENFLG 

4743 

DNENFBI T 

0123 

( 

ENGONFLG 

476  8 

EMGONBIT 

0124 

3AXISFI.G 

6f74fc 

3 A XI SBI T 
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BIT  13  FLAG  5 

( S,L  ) 

077D 

U,V  JFTS  DISABLED 

U,V  JETS  ENABLED 

DURING  OPS 

DURING 

DPS 

B1TL3 

BURNS  ( V 6 5 ) 

BURNS  1 

( V75  ! 

BIT  12  FLAG  5 

(S) 

078  D 

INHIBIT  FULL 

PERMIT  FULL  THROTTLE 

BITL2 

THROTTLE 

BIT  11  FLAG  5 

( S,  L) 

0790 

R 77  IS  ON,  R77  IS  NOT  ON. 

SUPPRESS  ALL  RADAP 

ALARMS  AND  TRACKER 

B IT  1 1 

FAILS 

BIT  10 

FLAG 

5 

(S) 

0300 

8 I T 1 0 

SCALE  CHANGE  HAS 
OCCURRED  DURING 

RR  READING 

NO  SC Al F CHANGE  HAS 
OCCURRED  DURING 

RR  READING 

BIT  9 

081  D 

B I T9 

FLAG 

5 

! S) 

DIMENSION  OF  W IS  9 
FO:  INCORPORATION 

DIMENSION  OF  W IS  6 
FOR  INCORPORATION 

BIT  8 

082D 

IT8 

Ft  AG 

8 

\ 

BIT  7 

0 33  D 

B IT7 

FLAG 

!T 

( S) 

ENGINE  TUFNED  ON 

ENGINE  TURNED  OFF 

BIT  6 

C 84D 

B I T 6 

FLAG 

5 

(S) 

MANEUVER  SPECIFIED 
BY  THFEF  AXES 

MANEUVER  SPECIFIED 
BY  ONE  AXIS;  P 60 
CALLS  VECPOINT. 

SIT  5 FLAG  5 
085D 


BIT  4 FLAG  5 


(S) 


ASSEMBLE  Kb  VIS  ILL  t*01  ( F A6C  PROGRAM  APUROPE  BY  tYLES 


I AP  : 


FLACwn  D ASS  I GN'MEf  TS 


0601 
0602 
A 060  A 

A 06  O': 

0605 
A 0606 
0607 
A.06C  8 

A OfcOc 
0610 
A 061  1 
0612 
A 06 1 3 

A 06 1 A 
0615 
A 06 16 
06  1 7 
A 06 1 8 

0619 

A 062  0 


0126 

NORRMON 

= 

REF 

5 

LAST 

73 

4750 

NOPRMBIT 

0127 

SCI  NSW 

REF 

6 

LAST 

73 

475  1 

SCiLNSBIT 

( : 1 3 0 

M 6 1 c | a r. 

MUL  VlLB1.1 

REF 

c 

LAST 

71 

4752 

MGLVFBIT 

- 

ri3l 

c cm nWFl  c, 

r,  l i\  u »>  r l D 

REF 

5 

LAST 

73 

4753 

RENDWBI T 

= 

REF 

7 

LAST 

73 

0102 

FLAGWRD6 

= 

A 06  21 
0622 
062  3 
A06  2'- 


REF 


LAST  73 


6 132 
47  35 


S32 . 1 F 1 
S32BIT1 


A 062  5 
0626 
062"7 
A C;  2 


RFF 


LAST 


72 


0133 

4736 


S32.1F2 

S326IT2 


A 06  2Q 

0630 

0631 
A 06  32 
A 06  3 3 
A 06  3 A 

0635 

0636 
A 0637 
A 063  E 
A 06  3 c 


REF 


RFF 


3 LAST 


LAST 


74 


74 


0134 

4737 


0135 

4740 


S32. 1F3A 
S32BI T3A 


S32. 1F3B 
S32BIT3B 


A 064  0 
A 06  43 


3:15  OEC 


2,1970 


( MAIN  I 


PAGE  75 


086  D 
BIT4 


BIT  3 FI  AG  5 
037  D 

B I T 3 


BIT  2 FI  AG  5 
0880 

BIT2 


BIT  1 FLAG  5 
089  D 

BIT  1 


STATE  +6 


BIT  15  FLAG  6 
0 900 
B I T 1 5 


BIT  14  FLAG  6 
09 1 D 
8 IT  1 4 


BIT  13  FLAG  6 

0920 

BIT13 


BIT  12  FLAG  6 

0930 

BIT  12 


BIT  11  FLAG  6 


USER' S PAGE  MO.  15  EO  S4 


BYPASS  RR  GIMBAL  PERFORM 

MONITOR  RR  GIMBAL  MONITOR 


(S) 

LAMBERT  DOES  NOT  LAMBERT  CONVERGES  OR 

CONVERGE, OR  T I ME-P  AOT I ME- RAD I US  ION 
NEARLY  CIRCULAR  CIRCULAR 

..e 

( S) 

LOCAL  VERTICAL  MIDDLE  GIMBAL  ANGLE 

COORDINATES  COMPUTED 

COMPUTED 


IS) 

W M ATP  IX  VALID 
FOR  RENDEZVOUS 
NAV  IGATION 


W MATRIX  INVALID 
FOR  RENDEZVOUS 
NAVIGATION 


( 090-104) 

(SET)  (RESET) 

( S! 

DELTA  V AT  CSI  TIME  DVT1  LESS  THEN  MAX 
ONE  EXCEEDS  MAX 


( S) 

FIRST  PASS  OF  REITERATION  OF 

NEWTON  ITERATION  NEWTON 


( S) 

BIT  13  AND  BIT  12  FUNCTION  AS  AN  ORDERED 
PAIR  (13,12)  INDICATING  THE  POSSIBLE  OC- 
CURRANCF  OF  2NEWT0N  ITERATIONS  FOR  S32.1 
IN  THE  PROGRAM  IN  THE  FOLLOWING  CPDEP: 
(0,1)  (I.E.BIT  13  RESET, BIT  12  SET) 

= FIRST  NEWTON  ITERATION  BEING  DONE 
(0,0)=  FIRST  PASS  OF  SECOND  NEWT.ITERAT. 
(1,1)=  50  FT/SEC  STAGE  OF  SEC.  NEWT. ITER 
(1,0)=  REMAINDER  OF  SECOND  NEW TQM  ITERA. 


( 


GAP:  ASSEMBLE  REVISION  Oil  OF  AGC  PROGRAM 

L FLAGWO-D  ASSIGNMENTS 

A 0644 

0645  0137 

0646  REF  6 LAST  74  *742 

A 064.7 

A 064  8 
A 0649 
A 06  5 0 
A 06  5 1 


A 06  5 4 

0655  0141 

0656  REF  6 LAST  72  4744 

A 065  7 

A 065  fi 

065°  0142 

0660  REF  8 LAST  74  4745 

A 066  1 

A 0662 

0663  0143 
A 06  64 

0664  REF  7 LAST  74  474-5 

A 0666 


A 0667 
A 066  5 
A0669 

A 067  0 
A 0671 


A 067 2 
067  3 
A 067$ 

0675  REF 
A 0676 


Cl  46 


LAST  75  4751 


A 06  77 
067  P 

06-79  P.FF  6 LAS"  75 
A 06  8 0 
A 06  8 1 
A 06  02 
A 06  3 3 


0 1 4 7 

47  5? 


A 06  8 4 

0685  C 1 5 0 

A 0686 


API  1R0PE  BY  E Y L E S 


GMBDRVSW  = 
G'iBG  ■ BIT  = 


MUM  FI  AT  = 
MUNFLBIT  = 


r EOF LAG  = 
RFOFLB  17  = 


N~ARGFLG  = 
NTARGBIT  = 

AUX  FLAG  = 
AUXFI  BIT  = 


ATTFLAG  = 


3:15  DEC 


2*1570 


(MAIN) 


PAGE 


76 


USER*  S PAGE  NO.  16  EO  S4 


BIT  10  FLAG  £ (S) 

095  D TP.IMGIMB  OVER  TR  I MG  I MB  NOT  OVER 

BIT10 


BIT  9 F! AG  6 

096D 

BIT9 


BIT  8 FI  AG  6 

097  D 

BIT8 


( S) 

SEPVTCEF  CALLS 
MUNRVG 


SERVICER  CALLS 
CALCRVG 


BIT  7 FLAG  6 (L ) 

098D 

RTT7 


BIT  6 FLAG  6 
099D 

B IT£ 


( L) 

LANDING  SITE 
PEDES  IGNAT  ION 
PERM! TT  ED 


LANDING  SITE 
REDES  IGNAT  I ON  NOT 
PERM! TTED 


BIT  5 FLAG  6 
100D 


BIT  4 FLAG  6 
10 1 D 


BIT  3 FLAG  6 
1 02D 

B IT3 


( S) 

ASTRONAUT  DID 
OVERWRITE  DELTA 
VELOCITY  AT  TPI 
OR  TPM  ( P 34  * 3 5 ) 


A STR ON AUT  DID  NOT 
OVERWRITE  DELTA 
VELOCITY 


BIT  2 FLAG  6 
1 03D 
B IT  2 


PROVIDING  IDLEFLAG 
IS  NOT  SET,  SERV- 
ICER WILL  EXERCISE 
DVMON  ON  TTS  NEXT 
PASS. 


SERVICER  WILL  SKIP 
DVMON  ON  ITS  NEXT 
PASS  EVEN  IF  THE 
IDLEFLAG  IS  NOT  SET. 
IT  WILL  THEN  SET 
AUXFI.  AG. 


BIT  1 FLAG  6 
104D 


(L) 

LEM  ATTITUDE  EXISTS  MO  LEM  ATTITUDE 
IN  MOON-FIXED  AVAILABLE  IN  MOON- 


GAPS 

ASSEMBLE  he  VISION 

001  OF 

AGC  PROGRAM 

API  1 HOP  E BY  EYLES 

L 

FLAGWORO  ASSIGNMENTS 

0687 

REF  o LAST 

75 

4753 

ATTFLBIT  = 

A 06  8 8 

0689 

REF  8 LAST 

75 

010  3 

FLAGWRD7  = 

A 0690 


A 069 1 

0692 

0693 

A 0694 

C 151 

47  3 5 

ITSWICH 

ifSWBIT 

REF 

6 

LAST 

75 

= 

A 0695 

0696 

0152 

MANUFLAG 

= 

A0697 

06  9 P 

REF 

7 

LAST 

75 

47  36 

MANUFBI  T 

- 

A 0699 

A 0700 

0701 

0153 

IGNFLAG 

= 

0702 

REF 

9 

LAST 

75 

47  37 

IGNFLBIT 

= 

A 0703 

A 070  4 

0705 

0154 

ASTNFL.AG 

= 

0706 

REF 

8 

LAST 

75 

4740 

ASTNBIT 

= 

A070-7 

A 07  0.8 

0709 

0155 

SWANDISP 

= 

0710 

REF 

7 

LAST 

74 

474  1 

SWANDRIT 

= 

A 07  1 1 

A 07  1 2 

0713 

0156 

NQRMSW 

0714 

REF 

7 

LAST 

76 

474  2 

NORMSBTT 

= 

A 07  1 5 

A 071  6 

0717 

0157 

RVSW 

A 07 18 

071° 

REF 

7 

L AST 

74 

474  3 

R VS1.-  BIT 

— 

A 0720 

A 0721 

0722 

0160 

V67FLAG 

= 

A0723 

0724 

REF 

7 

LAST 

76 

47  4 4 

V67FLRI T 

= 

A 072  5 


B I T 1 


3:  15  DEC.  2, 
USER'S 

COORDINATES 


970  (MAIN) 

PAGE  NO.  17 
FIXED 


PAGE  77 
EO  S4 

COORDINATES 


STATE  +7  ( 105-119) 

( SET) 

BIT  15  FLAG  7 (S) 

1 050  P34;TFI  TIME  TO  BE 

8ri5  COMPUTED 


BIT  14  FLAG  7 ( S) 

106D  ATTITUDE  MANEUVER 

GOING  DURING  RR 
BIT14  SEARCh 


BIT  13  FLAG  7 (S) 

107D  TIG  HAS  ARRIVED 

8 1 T 1 3 


BIT  12  FLAG  7 IS) 

108D  ASTRONAUT  HAS 

BIT12  OKAYED  IGNITION 


BIT  11  FLAG  7 (L) 

1C9D  LANDING  ANALOG 

BIT  1 1 DISPLAYS  ENABLED 


BIT  10  FLAG  7 (S) 

HOD  UNIT  NORMAL  IN^UT 

BIT10  TO  LAMBERT 


B 

IT  9 FI  AG  7 

(S) 

1 

11D 

DO  NOT  COMPUTE 

FINAL  STATE  VECTOR 

B 

I T 9 

IN  TIME-THETA 

B 

IT  a FLAG  7 

(S) 

1 

12  0 

ASTRONAUT 

OVERWRITE 

W-MATF IX 

I NT  T I At 

B 

1T8 

VALUES 

..z 


( RESET ) 


TPI  HAS  BEEN 
COMPUTED 


NO  ATTT  TUDE  MANEUVER 
DURING  RR  SEARCH 


TIG  HAS  NOT  ARRIVED 


ASTRONAUT  HAS  NOT 
OKAYED  IGNITION 


LANDING  ANALOG 
DISPLAYS  SUPPRESSED 


LAMBERT  COMPUTES  ITS 
OWN  UNIT  NORMAL 


COMPUTE  FINAL  STATE 
VECTOR  IN  TIME-THETA 


ASTRONAUT  DOES  NOT 
OVERWRITE  W-MATRIX 
INITIAL  VALUES 


< 


S AF : ASSEMBLE  kEVISILN  001  OF  AGO  PROGRAM 


L FLA Own  0 ASSIGNMENTS 

A 0726 

0727  0161 

0728  REF  9 LAST  76  6745 

A0729 


A 0731 ' 

0771  0162 

0732  FEF  8 LAST  76  4746 

A 073  3 


A 0734 

0735  0163 

0736  REF  6 LAST  73  4747 

A 0737 


A 0738 

073°  0164 

0740  RFF  6 LAST  75  4750 

A 074 1 


A 07  42 

0743  0165 

074  4 F.  EF  3 LAST  76  475  1 

A0745 


A 0746 

0747  0166 

0748  REF  7 LAST  7fc  4752 

A 0749 


A 075  0 

0751 

0752 
A 07  5 3 

0754 


A 07 c 5 


A 0756 
0757 
A 075  8 
0759 
A 0760 
A 0,761 


REF 

7 

LAST 

77 

0167 

4753 

RFF 

0 

! AST 

77 

0104 

REF 

7 

LAST 

77 

C 1 70 

4735 

AC  tv,? 
A 676  3 
A 0764 
A 076  5 


API  1 ROP E BY  EYLE 


IDLEFLAG  = 
IDLEFB1T  = 


V37FLAG  = 
V37  F l BIT  = 


AVFGFLAG  = 
AVEG  FBI T = 


UPLOCKFL  = 
UP!  OCB  IT  - 


VERIFLAG  = 
VE;  I FBI T = 


V82EMFLG  = 
VF2EMBIT  = 


TFFSW 
TFFSWSIT  = 


F L AGWr  08  = 


RPQFLAG  = 
PPQFLBIT  = 


3:  15  DEC 


2 , 1970 


(MAIN) 


PAGE 


78 


BIT  7 FLAG  7 

1130 

BIT  7 


BIT  6 F!  AG  7 
1 14D 
B IT6 


BIT  5 FLAG  7 
1150 

B I T 5 


BIT  4 FLAG  7 
1160 
BIT* 


BIT  3 FLAG  7 

I 1 70 
B I T 3 


BIT  2 FLAG  7 

1 18D 

BIT2 


BIT  1 FI  AG  7 

1 190 

BIT! 


STATE  UD 


BIT  15  FLAG  8 
1200 

B IT  1 5 


BIT  14  FLAG  8 
1210 
B IT  14 


USER'S  PAGE  HO.  18  EO  S4 

( S) 

MO  DV  MONITOR  CONNECT  DV  MONITOR 


(S) 

AVERAGEG  (SEFVICEP)  AVERAGEG  (SEFVICER) 
RUNNING  OFF 


(S) 

AVERAGEG  (SEFVICER)  AVERAGEG  (SEFVICER) 
DESIRED  NOT  DESIFEO 


( S) 

K-KBAR-K  FAIL  NO  K-KBA^ -K  FAIL 


( S) 

CHANGED  WHEN  V33E  OCCURS  AT  END  OF  P27 


(L,  C) 

MOON  VICINITY  EARTH  VICINITY 


( S ) 

CALCULATE  TPERIGEE  CALCULATE  TFF 


( 120-134) 


(SET)  (RESET) 

( S) 

PPQ  NOT  COMPUTED  PPQ  COMPUTED 
(RPQ  = VECTOR  BE- 
TWEEN SECONDARY  BODY 
AND  PRIMARY  BODY 


GAP  : 


ASSEMBLE  tVISni'  001  i'F  AGG  PROGRAM  APll^OPE  BY  tYLES 


L FLAGl-.T-O  ASSIGNMENTS 

A 0766 

0767  0172 

0768  KEF  10  LAST  77  <*7  3 7 

A 076  c 

AC770 

0771  0173 

0772  PEF  9 LAST  77  4740 

A 0773 

A 077  4 

0775  01^4 

0776  REF  8 LAST  77  4741 

A 0777 

A 0778 

0779  017  5 

0780  "FF  * LAST  77  47*2 

A 0781 

A 0782 


0763 

0784 

A 07  f 

REF 

8 

LAST 

77 

r 176 

4743 

P39/79SW 
P39SWBI T 

&07P^ 

0737 

0788 

A 07&  0 

REF 

8 

LAST 

77 

0177 

4744 

surfflag 
SURF FBI  7 

A 0790 
0791 
A0792 
0793 

A 079  4 

0200 

INFINFLG 

REF 

10 

LAST 

lb 

4745 

INF  INBIT 

A 079  5 

0796 

0797 

REF 

9 

LAST 

s 78 

0201 

4746 

ORDER SW 
ORDER  3 IT 

A 079  = 

A0700 
0800 
A 080  1 

0802  REF  7 LAST  78 

ACR03 

A OPni. 

0805  0203 

A 0806 


0202  APSESW 

4747  APSE  SB  IT  = 


CMOQNFL  G = 
CMOONBIT  = 


LwnpMFLG'  = 
L C IB  I T = 


FL'JNDISP  = 
FLUNOBIT  = 


NEW  I F LG  = 
NEWIBIT  = 


CO GA FLAG 


3:15  DEC 


2 , 1970 


( MAIM ) 


PAGE 


79 


BIT  13 
1 2 2 D 
BI  T13 


BIT  12 
1230 
3 IT  1 2 


BIT  11 
1 24  D 
BIT1 1 


BIT  10 
1 25  D 
ilTIO 


BIT  9 
126D 
8 I Ta 


BIT  8 

127D 

rjtr 


BIT  7 
1280 

BIT? 


BIT  6 
1 29D 
BIT6 


BIT  5 
1 30D 

BITS  » 


BIT  4 
1 31  D 


U SER • S PAGE  NO.  19  EO  S4 


FLAG  8 (S) 

FIRST  PASS  THROUGH  SUCCEEDING  ITERATION 
INTEGRATION  OF  INTEGRATION 


FLAG  8 ***  PROTECTED  FROM  FRESH  START  *** 

PERMANENT  CSM  STATE  PERMANENT  CSM  STATE 
IN  LUNAR  SPHERE  IN  EARTH  SPHEPE 


FI. AG  6 ***  PROTECTED  FROM  FRESH  STALT  *** 

P EP  MAN  ENT  L M STATE  PERMANENT  LM  STATE 
IN  LUNAR  SPHERE  IN  EARTH  SPHFRE 


FLAG  8 ( L ) 

CURRENT  GUIDANCE  CURRENT  GUIDANCE 
DISPLAYS  I NH ! B I TE D DISPLAYS  PERMITTED 


FLAG  8 (L ) 

P39/79  OPERATING  P38/P78  OPERATING 


FLAG  8 ***  PROTECTED  FROM  FRESH  START  *** 

LM  ON  LUNAR  SURFACE  LM  NOT  ON  LUNAR 
SURFACE 


FLAG  8 


(S) 

NO  CONIC  SOLUTION  CONIC  SOLUTION 

(CLOSURE  THROUGH  EXISTS 

INFINITY  REQUIRED) 


FLAG  8 


( S) 

ITERATOR  USES  2ND 
ORDER  MINIMUM  MODE 


ITERATOR  USES  1ST 
ORDER  STANDARD  MODE 


FI  AG  8 IS) 

RDES1 RED  OUTSIDE  ROESIRED  INSIDE 
P ER I C ENTER- APOCEMTERP ERIC  ENTER- APOCENTER 
RANGE  IN  TIME-RAW  RANGE  IN  TIME-RADIUS 


FLAG  8 IS) 

NO  CONIC  SOLUTION  - CONIC  SOLUTION 

TOO  CLOSE  TO  RECTI-  EXISTSICOGA  DOES  NOT 


ASSEMBLE  F-E  V IS  ILL  001  OF  A GC  PROGRAM  AP11R0PE  BY  EYLES 


GAP  : 


L FLAGWO-.D  ASSIGNMENTS 


0807 

A 0 R 0 8 

REF 

7 

LAST 

73 

4750 

COGAFBIT 

A 080° 

A 0°  1 0 

A 081 1 
0812 
0813 

A 08  14 

A 08 15 
0816 
0817 

A 081  8 

REF 

|¥ 

LAST 

73 

0205 

4752 

INITALGN 
IN ITAB IT 

REF 

3 

LAST 

78 

0206 

4753 

3 60S  W 
3605 KBIT 

0819 

RFF 

10 

LAST 

78 

C 1C  5 

FLAGWk 09 

A 0820 

A 082  1 

A 08  22 

A 032  3 

A 08  23 1 

A 0824 

0825 

0826 
A0827 

REF 

8 

LAST 

77 

0210 

4 736 

FL  Vk 

FL VP  BIT 

A 082  8 
A082° 

A 08  3 0 

A 08  3 1 

0832 

0833 

A 0834 

REF 

10 

LAST 

79 

0212 

476  0 

FL  PC 
FLPCBIT 

A083F 

0836 

0837 

A 083  8 

»EF 

<3 

LAST 

7 9 

0213 

4-741 

FL  P I 

FL°I BIT 

A 0839 
0840 
084  1 

A 084? 

RFF 

9 

1.  AST 

79 

0214 

474  2 

FI  PCS 

FL  CSBIT 

A0843 


3 : 15  DEC 


2,1970 


( MA  I N ) 


PAGE 


30 


USER'S  PAGE  NO.  20  EO  S4 

BIT*-  L I NEAR  ( CPGA  PVRFLWS)  OVERFLOW) 


BIT  3 FLAG  8 
1 320 

BIT  2 FLAG  8 (L ) 

1 33 D INITIAL  PASS  THRU  SECOND  PASS  THRU  P57 

B IT  2 P 57  (CHECK  RESE T- M I L L A RD ) 


BIT  1 FLAG  6 (S) 

134D  TRANSFER  ANGLE  NEAR  TRANSFER  ANGLE  NOT 

B IT  1 360  DEGPEES  NEAP  360  DEGREES 


rT A’’F  +OD  (135  - 149) 

(SET)  (RESET) 


BIT  15  FLAG  9 
1 35D 
BIT  15 

BIT  14  FLAG  Q (L) 

136D  VERTICAL  RISE  NON-VERTICA!  RISE 

B IT  1 4 (ASCENT  GUIDANCE) 


BIT  13  FLAG  9 
1 37  D 


BIT  12  FLAG  9 

(L) 

1 38  D 

NO  POSITION  CONTROL 

POSITION  CONTROL 

BIT12 

(ASCENT  GUIDANCE) 

BIT  11  FLAG  9 

( L ) 

1 39D 

PRE-IGNITION  PHASE  REGULAR  GUIDANCE 

BIT1  1 

(ASCENT  GUIDANCE) 

BIT  10 

FLAG  9 

(L) 

160  D 

RCS  INJECTION  MODE  MAIN  ENGINE  MPDE 

B IT1  C 

(ASCENT  GUIDANCE) 

BIT  9 

FLAG  9 

(L) 

GAP:  ASSEMBLE  REVISION  Go  1 OF  AtoC  PROGRAM  AP11ROPE  BY  EYLES  3:15  DEC.  2,1970  (MAIM)  PAGE  81 

L FLAGS' O’O  AS  S I GNH  EFTS  USER'S  PAGE  NO.  21  EO  S4 


084^  02 1 c LET  ABORT  = 141D  ABORT  PROGRAMS  ABORT  PROGRAMS 

0845  REF  9 LAST  79  4743  LETABBIT  = BIT9  ARE  ENABl  ED  ARE  MOT  ENABLED 

A 0848 


A 0fs47 
0848 
A 0849 

0850  REF  9 LAST  79 

A 0851 


0216 

4744 


FLAP 

FLAPBIT 


BIT  8 FLAG  9 (L) 

142 D APS  CONTINUED  ABORT  APS  ABORT  IS  NOT  A 

AFTER  DPS  STAGING  CONTINUATION 
8 IT8  (ASCENT  GUIDANCE) 


A 085?  BH  7 FI  AG  ° (L ) 

A 0853  = 143D 


A 0 8 5 
085  3: 

0856  REF  10  LAST  79 
A 085  7 
A 085  P 


0220 

4746 


•IF  i.  AG  = 
HOT  FI  BIT  = 


BIT  6 FLAG  9 
144D 
B I T 6 


(L) 

PTC.  AND  P71  WILL 
FORCE  VEHICLE 
ROT AT  ION  IN  7 HE 
P9FFEPPED  DIRECTION 


P70  AND  P71  WILL  NOT 
FORCE  VEHICLE 
ROTATION  IN  THE 
. PREFERRED  DIRECTION 


A 0859  BIT  5 FLAG  9 (S) 

0860  0221  OUITFLAG  = 145D  DISCONTINUE  INTEGP.  CONTINUE  INTEGRATION 

0861  REF  LAS~f  79  4747  OUITBIT  = BITS 

A 086  2 


A 086  3 

A 

A 086  5 

A 


BIT  4 FLAG  9 
1 46  D 
B IT4 


A 0867  BIT  3 FLAG  9 ( L) 


0868 

022  3 

MIDIFLAG  = 

147D 

INTEGRATE  tq  TDEC 

INTEGRATE  TO 

THE 

0869 

REF 

9 LAST 

T8 

47  5 1 

MIDI F BIT  = 

81  T3 

THEN-PRESENT 

TIM 

A 087  0 


A 087  1 

0872 

A 087  3 

0224 

M I DA  VFI.G 

0874 

REF 

9 

LAST 

80 

4752 

MIDAVBIT 

A 087  c 

A 087  6 
0877 

A 0878 

022  5 

A V E M J OS  W 

0879 

A0880 

REF 

LAST 

80 

47  5 3 

AVEMDBI T 

A 088  I 

0882 

A 0883 

c FF 

1 

0106 

RASFLAG 

BIT  2 

FLAG 

9 

(L  ) 

= 

1 48  D 

INTEGRATION  entered 

INTEGRATION  WAS 

FROM  ONE  OF  MIDTOAV 

MOT  ENTERED  VIA 

= 

BIT2 

PORTALS 

MTDTOAV 

BIT  i 

FLAG 

9 

(S) 

- 

1490 

AVETOMID  CALLING 

NO  AVETO’  IO  W INTEGP. 

FOR  W.  MATRIX  INTFGR 

ALLOW  SET  UP  RN  , VN  , 

= 

BIT1 

DONT  WRITE  OVER  PN, 

PIPTIME 

VN, PI PTIME 

EQUAL c 

FLGWRD1C1 

WAS  ONLY  AN  INSTALL 

- EPASTALL  FLAG 

ASSEMBLE  Fh  VISION  001  OF  AGC  PI- 0 GRAM  AP1IRGPE  BY  EYLES 


GAP: 

L 

08  84 

A 088  5 

A 088  f 
A0P87 

A 088 8 


FLAGWOPO  ASSIGNMENTS 


REF  II  LAST 


80 


0106 


FLGWPD10  = 


A0889 
08  9 C 
0891 

A •' 


REF 


9 LAST 


80 


0727 
47  36 


INTFLAG 
i nt fi  an 


A 0893 

0894  0230  APSFLAG  = 

089F  RF.F  11  LAST  79  4737  APSFLBIT  = 

A 0896 


A 0897 
A 08°R 
A Of  ?9 

A 0'  00 
A 0°ni 
A 090? 

A 090  3 
A 0904 
A 090  c 


A 0906 
A 0907 
A 0908 


A 090° 
A 09  1 ' 
A091 1 


A 09 1 2 

0913  0236  FEINT FLG  = 

09 1 6 REF  11  LAST  79  4745  RElMTBIT  = 

A 0°  1 c 

A 09 1 6 
A 09 1 7 
A 091 8 


A 09 1 9 
A 092  0 
A 092  1 


3:15  DEC.  2,1970  (MAIN)  PAGE  82 

USER’S  FAGF  NO.  22  EO  S4 

STATE  +10D  ( 150  - 164  ) 

(SET)  (RESET) 

BIT  15  FLAG  10 
1 50D 


BIT  14  FLAG  10  (L,C) 

151D  INTEGRATION  IN  INTEGRATION  NOT  IN 

B IT  14  PROGRESS  PROGRESS 


BIT  13  FLAG  10  ( S,l  ) 

I52D  ASCENT  STAGE  DESCENT  STAGE 

B I T 1 3 444PR  PT  ECT  ED  FROM  FRESH  START  4*4 


BIT  12  FLAG  10 
1 53D 


BIT  11  Ft.  AG  10 
1 54D 


BIT  10  FLAG  10 
1 55D 


BIT  ° FLAG  10 
1 56  D 


BIT  8 FLAG  10 
1 57D 


BIT  7 FLAG  10  <L,C) 

1 58 D INTEGPATICN  ROUTINE  INTEGRATTON  ROUTINE 

BIT7  TO  BE  RESTARTED  NOT  TO  BE  RESTARTED 


BIT  6 FLAG  10 
1590 


BIT  ■=  FLAG  10 
160D 


GAP:  ASSEMBLE  REVISION  .01  F AGC  PF  ' 5 AM  APllRPPE  BY  E YLF  3 

L FL  AGWOF.D  ASSIG'-  •'£'  1 5. 

A 092  ? 

A 092  3 
A 09  2 4 

A 092  9 
A 0926 
A0927 

A 092  8 
A 092° 

AC930 

A 093  1 
A 0932 
A 093  3 

A 09  3* 


0935 

REF  12 

LAST 

82 

01C7 

FLGWRD1 1 = 

A 0936 

A 0937 

0938 

093° 

A 0940 

REF  8 

LAST 

78 

0245 

4735 

LRBYPASS  = 
LF6YBIT  = 

A 09  A 1 
A 0C  42 
A 09^3 
A0944 

A 0949 
A 094. f 
A 094  7 
A |< 


A094r 


095  0 

A 095  1 

0250 

VXINH 

0952 

A 0953 

REF 

1 l 

LAST 

80 

a -pm 

VX  TNH81 T = 

A 0954 
095  5 
095  6 

A 0957 

REF 

10 

LAST 

80 

0 2 6 1 

4 74  1 

PSTHIGAT  = 
PSTHI3IT  = 

A 099  8 


3:15  DEC.  2,1970  (MAIN)  PAGE 

U SEP.  • S PAGE  MO.  23  EO  S4 

BIT  A FLAG  10 
1610 

BIT  3 FI  AG  10 
162D 


BIT  2 FLAG  10 
1630 


BIT  1 FLAG  10 
1640 


STATE  +1  ID  ( 165  - 179) 

(SET)  (RESET) 

BIT  15  FLAG  11  (L  ) (R12 ) 

1 65 D BYPASS  ALL  LANDING  DO  NOT  BYPASS  LR 

BIT15  RADAR  UPDATES  UPDATES 


BIT  14  FLAG  11 

1 66D 

BIT14 


BIT  13 
167D 

B I T 1 3 

FI  AG 

11 

BIT  12 

FLAG 

11 

( L ) ( R12 ) 

168D 

IF  Z VEl OCITY  DATA 

UPDATE  X AXIS 

UNREASONABLE , 

VELOCITY 

BIT  12 

BYPASS  X VELOCITY 
UPDATE  ON  NEXT  PASS 

BIT  11 

FLAG 

11 

t L ) (R 12  ) 

1690 

BIT1 1 

FAST  HI  GATE 

PREHIGATE 

83 


BIT  10  FLAG  11 


(L  ) (R12) 


ASSEMBLE  EVISIJN  00]  OF  AtoG  PROGRAM  AP11RQPE  BY  EYLES 


GAP  : 

L FLAGWO  D ASSIGNMENTS 

0959  0252 

A 0950 


0961 

A 0962 

A 0°6  3 
0964 

A 0965 
0966 

A 096  7 

REF 

10 

LAST 

80 

4742 

REF 

10 

LAST 

81 

0253 

4743 

A 096  S 

0969 

0970 

RFF 

10 

LAST 

81 

0254 

4744 

A 097 1 
A OS'  7 2 


NOLF  F EAD  = 
NOLF-  F BI  T = 

XORFLG 
XQRFLBIT  = 

LRINH 

LRINHBIT  = 


A 0°7  7 

0974  0255 

0975  REF  12  LAST  82  4745 

A 0976 


VELUATA  = 
VELDABIT  = 


A 0977 
0978 

0-256 

0979 

A 098  0 

REF  11  LAST 

81 

474  6 

READER 
R.EADLBIT  = 


A 09  3 1 

098? 

025? 

0983 

RFF 

9 1 AST 

81 

^747 

A 0984 


READVEL  = 
RFADVBIT  = 


A 09  8 5 

0936 

0260 

090"7 

A 06  3 3 

REF 

8 LAST 

80 

-'750 

PNGE.DAT  A = 
RNGEDBIT  = 


A 09  8 9 
0990 

0901  PEF 
A 09°2 
A 0908 


10  LAST  81 


02C  1 

6 7‘  1 


SC ALB AD  = 
SCABBIT  = 


A 0994 

0995 

0996  REF 
A0997 

A 09 OR 


10  LAST  41 


026  2 
475  2 


VFLSHFLG  = 
VFl SHBIT  = 


A / 


I 


1 70D 
BIT10 


BIT  9 
1 7 1 D 

B I T9 


BIT  P 
1 72  D 
BITS 


BIT  7 
1 73D 
BIT7 


BIT  6 
1 74  D 
B I T 6 


BIT  5 

1750 

BIT5 


BIT  4 
1 76  U 
BIT'' 


BIT  3 
1770 
B I T 3 


BIT  2 

173D 

BIT2 


BIT  1 


3:15  DEC.  2,1970  (MAIN)  PAGE  84 

USER'S  PAGE  MO.  24  EO  S4 

LANDING  PADAR  LR  NOT  REPOSITIONING 

REPOSITIONING; 

BYPASS  UPDATE 


FLAG  11 


(L) ( R 12  ) 

BELOW  LIMIT 
INHIBIT  X AXIS 
OVERR  IDE 


ABOVE  LIMIT  DO 
NOT  INHIBIT 


FLAG  11 


LANDING  R AD AF  UP- 
DATES PERMITTED 
BY  ASTRONAUT 


I.  R UPDATES  INHIBITED 
BY  ASTRONAUT 


F l AG  11  ( L > ( R 1 2 ) 

LR  VELOCITY 
MEASUREMENT  MADE 


LR  VELOCITY  MEASURE 
NOT  MADE 


FLAG  11 


(L) (R 12) 

OK  TC  READ  IF 
RANGE  DATA 


DO  NOT  PFAD  IP  RANGE 
DATA 


FLAG  11  ( L ) ( R 1 2 ) 

OK  TO  READ  LR 
VELOCITY  DATA 


DO  MOT  READ  LR 
VELOCITY  DATA 


FLAG  11  (L) ( R 12) 

LR  ALTITUDE 
MEASUREMENT  MADE 


LR  ALTITUDE  MEASURE 
NOT  MADE 


FLAG  11 

LR  LOW  SCALE  DIS- 

LR SCALE 

DISCRETE 

CRETE  NOT  PR ES  ENT 

APPEARS 

OK 

WHEN  IT  SHOULD  BE 

FLAG 

1 1 

( L 1 (R  12  ) 

LR  VELOCITY 
LAMP  SHOULD 
FLASHING 

FAIL 

BE 

LR  VEL  FAIL  LAMP 
SHOULDN'T  FLASH 

FLAG 

1 1 

( L ) (-12) 

GAP: 

ASSEMBLE  REVISION  001  OF 

AGC  PROGRAM 

AP11R0PE  BY  EYLES 

3:  15  DEC.  2, 

1970 

(MAIN)  PAGE 

L 

FLAGWORD 

ASSIGNMENTS 

USER'S 

PAGE 

NO.  25  EO  S4 

1000 

1001 

A 1002 

REF  10 

LAST  81 

0263 

4753 

PFLSHFLG  = 
HFLSH8I T = 

1790 

BIT  1 

LR  ALTITUDE 
LAMP  SHOULD 
FLASHING 

FAIL 

BE 

LR  ALTITUDE  FAIL 
LAMP  SHOULD  MOT  8E 
FLASHING 

A 1003 

10OA  D£p  1 f 1 10  PAOMOOES  EQUALS'  FLGWFD1  2 RADAR  FLAG  WORD 

A 1005 

1006  REF  13  LAST  83  uUO  FLGWRD12  = STATE  +120  (180  - 194)  WAS  RADMODES 

A 1 007  (SET)  (RESET) 


A 1008 

1009 

1010  REF  LAST  83 

A 101 1 
A 1012 
A 101-3 


0264 
47  3 5 


CDESFLAG  = 

BIT  15  FLAG  12 

1 80D 

CONTINUOUS  DESIG- 

LGC CHECKS  FOP  LOCK- 

CDESBIT  = 

6IT15 

NATE.  LGC  COMMANDS 

ON  WHEN  ANTENNA 

RR  REGARDLESS  OF 
LOCK- ON 

BEING  DESIGNATED 

A 101'' 

1015 

1016  REF  10  LAST  "2 

A 101  7 
A 101  8 


026  5 
473  6 


BIT  14  FLAG  12 

KEMODFLG  = 

1 BID 

CHANGE  IN  ANTENNA 

NO 

REMODE  REQUESTED 

RFMODBI T = 

B I T 1 4 

MODE  BEEN  REQUESTED 
I.E.,  REMODE 

OR 

OCCURRING 

A 101  ° 
1020 

0266 

P.CDUOFLG  = 

BIT  13  FLAG  12 
132  0 

RR  GDU'S  BEING 

RR  CDU'S  NOT  BEING 

1021 

A 1022 

REF  12  LAST 

32 

4737 

P C DU OB  I T = 

B I T 1 3 

ZEROED 

ZEROED 

A 102  3 BIT  12  FLAG  12 

102''.  0267  ANTENFL  G = 183D  RR  ANTENNA  MGDE  IS  RR  ANTENNA  IN  MODE  1 

102-'“-  i i 12  LAST  "3  4740  ANTEN6I7  = BIT12  MODE  2 

A 102  6 


A 1027 
1028 
102° 

& i n 8 n 

REF  11  LAST 

83 

0270 

4741 

A 1031 

REPOSMON  = 
REPOSBIT  = 


BIT  11  FLAG  12 

1840  REPOSITION  MONITOR. 

BIT11  RR  REPOSITION  IS 

TAKING  PLACE 


NO  REPOSITION  TAKING 
PLACE 


A 103? 

1033 

1034  REF  11  LAST  84 
A 1 035 

A 1036 


0271 

4742 


DESIGFLG 
DESIGBI T 


BIT  10  FLAG  12 

1850 

BIT10 


RR  DESIGNATE 
REQUESTED  OR  IN 
PROGRESS 


RR  DESIGNATE  NOT 
REQUESTED  OR  IN 
PROGRESS 


A 1037 

1038 

1039 


C272 
474  3 


At  TS  CAL  E 
ALTS  CB I T 


BIT  9 FI  AG  12 
1 86  D 
B I T9 


LR  ALTITUDE  READING  LP  ALTITUDE  READING 
IS  ON  HIGH  SCALE  IS  ON  LOW  SCALE 


REF  II  LAST 


8 4 


3:15  DEC 


2, 19  70 


S M AT  N ) 


PAGE 


86 


GAP:  ASSEMBLE  UEVRSi:-!  00 1 -.J  AC-C  PFUGoAM  AP1LU0PF  BY  EYlfcS 

L FLAG-,  ) ASS  1 G • " r TS 


USER'S  PAGE  NO 


A 1040 


A 1041 

1042  0273 

1043  REF  11  LAST  34  4744 

A 1044 


lrvelflg  = 

LEVEL  BIT  = 


BIT  8 FLAG  12 

1370  LR  VELOCITY  DATA 

BITS  FAIL 


A 1 045 
104  6 

0274 

1047 

A 1048 

RFF  13  LAST 

84 

4745 

RCDUFAIL  = 
C0UF3 I T = 


BIT  7 FLAG  12 

183D  RR  CDU  FAIL  HAS 

BIT7  NOT  OCCURRED 


A 1049 
1050 

0275 

1051 

A 1052 

UF  12  LAST 

84 

4746 

LRPOSFLG 
LUPUS 83  T 


BIT  6 FLAG  12 

1 89 D LANDING  RADAR 

BITfc  POSITION  2 


A 1053 

1054 

0276 

1055 

RFF  10  LAST 

84 

474  7 

A 1056 

A 1057 

LR ALTFLG 
LR ALTBIT 


BIT  5 FLAG  12 

1 90  D LR  ALTITUDE  DAT  A 

BITS  FAIL.  COULD  NOT  BE 

READ  SUCCESSFULLY. 


A 105  8 
1059 

0277 

1060 

A 1 06 1 

A 104  2 

REF 

9 LAST 

84 

4750 

RRDATAFL  = 

BIT  4 FLAG  12 
191D 

RR  DATA  FAIL. 

IFDATAST  = 

B1T4 

DATA 

COULD  NOT  BE 

READ 

SUCCESSFULLY 

A 104  3 

1064  0300 

1065  R F F 11  I.  AST  84  475  1 

A 1066 


RRRS  FLAG 
RRPSBIT 


BIT  3 FLAG  12 

192D  PR  RANGE  READING 

8IT3  ON  THF  HIGH  SCALE 


A 106  7 

1068 

106°  REF  11  LAST  84 
A 1070 
A 107 1 


0301 
47r  2 


BIT  2 FI  AG  12 

autoMSde  = 

193  0 

PR  NOT  IN  AUTO  MOOE 

AUTOMBIT  = 

B I T 2 

AUTO  MODE  DISCRETE 
IS  NOT  PRESENT 

A 1 072 
107  3 
1074 
A 107  5 
A 1074 
A 1077 


0302 

REF  11  LAST  85  4753 


tijpnonfl  = 

BIT  1 FLAG  12 

1 94  D 

PR  TORN-ON 

SEQUENCE 

TURNON  BT  = 

BIT1 

IN  PROGRESS 

. (ZERO 

CDU'S,  FIX 
MODE) 

ANTENNA 

1078  °EF 
A 1079 


0111 


DAPBOOLS  EQUALS  FLGW«D13 


26  EO  S4 


NO  LR  VELOCITY  DATA 
FAIL 


RR  CDU  FAIL  OCCURRED 


LR  POSITION  1 


NO  LR  ALTITUDE  DATA 
FAIL 


NO  RR  DATA  FAIL. 


RR  RANGE  READING  ON 
THE  LOW  SCALE 


. PP  IN  AUTO  MODE 


MO  RP  TUP N-nE 
SEQUENCE  IN  PROGRESS 


1 


DIGITAL  AUTOPILOT  FLAGWORD 


GAP:  ASSEMBLE  REVISION  001  OP  AGC  PR06K  A;M  API  1KOPE  BY  EYLES 


L F L AGNORD  ASSIGNMENTS 

1030  PEP  14  LAST  84  0111  FLGWPD13  = 

A 1081 
A 1082 

1033  030  3 

108 A REF  10  LAST  35  3735 

A 1085 
A 1086 


03  0'  usfc-  pi  r.  = 

REF  11  LAST  85  4736  USEQRJTS  = 


A 1091 
10°  2 
1093 
A l 

A 1095 

I CO  4 
1097 

A 1098 

A 1099 
1100 
1101 
A 1102 

A 1 103 

I I 

1105 
A 1 106 

A 1107 


1 108 
1109 

REF 

12 

LAST 

85 

0311 

474  3 

XOVINFLG 
XOV  INHIB 

A 1110 

A1I11 

1112 

1113 

REF 

1 2 

LAST 

96 

0312 

4744 

DPIFTDFL 
DRIFTS  I T 

A 1114 

A 1 1 1 5 
1114 
1117 

REF 

14 

LAST 

86 

0313 

4 74  5 

RHCSCFLG 
RHC  S CAL  E 

A 11  1 3 


C310 

AORBTFLG 

LAST 

85 

4742 

AORBTRAN 

REF  13  LAST 


REF  13  LAST 


REF  12  LAST 


03  C 5 

85  4737 


0306 

35  4740 


0307 

35  4741 


CSMDKFLG  = 
CSMDOCKD  = 


nURRCFLG  = 
OUF’CBJT  = 


ACC4-2FL  = 
AC.C40R2  X = 


A 1087 
103  3 
1Q< 

A 10°0 


PULSFFLG  = 
PULSES 


3:15  DEC 


2 * lc70 


( MAIN ) 


PAGE 


87 


STATE  +13D 


BIT  15  FLAG 

195D 

BIT15 


BIT  14  FLAG 
1960 

BIT14 


BIT  13  FLAG 
1 97D 
B 171  3 


BIT  12  FLAG 
198  0 
BIT  L2 


BIT  11  FLAG 

1990 

BIT  11 


BIT  10  FLAG 
2000 
BIT10 


BIT  9 FI  AG 
2010 
B IT9 


BIT  3 FLAG 
2020 
BIT8 


BIT  7 FLAG 
2 03  D 
BIT7 


USEP  « S PAGE  NO.  27  FO  S4 

(195  - 209)  WAS  DAPBOOLS 

(SET)  (RESET) 


MINIMUM  IMPULSE 
COMMAND  MODE  IN 
"ATT  HOLD"  (V76) 


NOT  IN  MINIMUM 
IMPULSE  COMMAND  MODE 
( V77  ) 


GIMBAL  UNUSABLE.  TRIM  OTMRAL  MAY  BE 

USE  JFTS  ONLY.  USED. 


CSM  DOCKED.  USE  CSM  NOT  DOCK  FD  TO  LM 

BACKUP  DAP 


13 

CURRENT  DAP  PASS  CURRENT  DAP  PASS  IS 
IS  RATE  COMMAND  NOT  RATE  COMMAND 


13 

4 JET  X-AXIS  TRANS-  2 JET  X-AXIS  TRANS- 
LATION REQUESTED  LATJON  REQUESTED 


13 

B SYSTEM  FOP  X-  A SYSTEM  FOR  X- 

TRANS  L AT  I ON  TRANSLATION  PREFER. 'D 


13 

X-AXIS  OVERRIDE  X-AXIS  OVERRIDE  OKAY 

LOCKED  OUT 


ASSUME  0 OFFSET  USE  OFFSET  ACCELERA- 

DRIFTING  FLIGHT.  TION  ESTIMATF 


NOPnMAI  RHC  SCALING  FINE  RHC  SCALING 
REQUESTED  REQUESTED 


GAP : 

ASSEMBLE  A 

E V I S 1 j 

N 0,01  OF 

AGC  PROGRAM 

API  1 - Pi  BY  E Y L fc  -> 

L 

FLAG WORD 

ASSIG 

N .MEF  TS 

A 11 10 

1120 

0314 

ULLAGFLG  = 

1121 

REF  13 

LAST 

86 

4746 

ULLAGER  = 

A 1 1 2 2 

A 112  3 

1124 

0315 

AORBSFL.G  = 

1125 

REF  1 1 

LAST 

86 

4747 

AORBSYST  = 

A 1126 

A 1127 

1128 

0316 

DBSELFI.G  = 

1129 

REF  10 

LAST 

86 

4750 

DBSCLECT  = 

A 1130 

A 1 1 3 1 

1132 

0317 

ACCOR FLG  = 

1133 

REF  1? 

LAST 

86 

4 75  1 

A Y = 

A 1134 

A 1 1 3 5 

A 1 1 3 6 

1137 

03  2 0 

AUTF 2FLG  = 

1138 

REF  12 

LAST 

8 6 

4 75  2 

auTpatH  = 

A1139 

A 1140 

A 11  ,1 

1142 

0321 

AUTR1FLG  = 

1143 

REF  12 

LAST 

86 

4 75  3 

AUTRATEl  = 

A 1144 


BIT  6 
204D 

b i r 6 


BIT  5 
205D 
3 IT5 


B IT  4 
2060 
B I TA- 


BU 3 
2 07D 
B I T 3 


BIT  2 
2 080 
BIT  2 


BIT  1 

209D 

BIT! 
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U SEP  ' S PAGE  NO.  28  EO  S4 


F I AG  1 3 

ULLAGE  REQUEST  BY  NO  INTERNAL  ULLAGE 
MISSION  PROGRAM  REQUEST 


FLAG  1? 

P-AXIS  COUPLES  7,15  P-AXIS  COUPLES  4,12 
AND  9,16  PREFERRED  AND  3,11  PREFERRED 


FLAG  13 

MAX  DB  SELECTED  MIN  DB  SELECTED  BY 

BY  CREW  (5  DEG)  CREW  (0.3  DEG) 


Ft.  AG  13 

CONTROL  AUTHORITY  RESTART  OR  FRESH  ST. 
VALUES  FROM  1 / ACCS  SINCE  LAST  1/ACCS; 
USABLE  OUTPUTS  SUSPECT. 


FI  AG  13 

THESF  FLAGS  ARE  USED  TOGETHER  TO  INDICAT 
A$TrONAUT— CHOSEN  K ALCMANU  MANEUVER  RATES 
(0,0)=(BIT2,BIT1)=  0.2  DEG/SEC 
(0,1)=  0.5  DEG/SEC 

FLAG  13 

(1.0) =  2.0  DEG/SEC 

(1.1) =  10.0  DEG/SEC 


GAP:  ASSEMBLE  REVISION  001  c K AGC  PROGRAM  APllROfi  BY  EYLES 


3:15  DEC.  2,1970  (MAIM) 


PAGF 


L SURE  OUT  IN  E CAMS 


USER'S  PAGE  NO.  1 EO  $A 


0001 
0002  * 
000  3 
000' 

000  5 
0006 

0007 

0008 
0009 


0000 
coco 
0000 
CO  00 
CO  00 
0000 
cooo 
0000 
cooo 


SUBRO  LUMERASE  120 

SUBRO  AP11AID  001 
SUBRO  LEMP20S  127 

c UBP ' ’ LEMP30S  103 

SUB'-'O  KISSING  050 

SUBPO  F(  Y 132 

S'J6r  ° LEMP50S  115 

SUBRO  SKIPPER  C87 

SUB  .C  L -!DAP  015 


89 


***  f- 6 d MAIN  f 1 PGDAM  **=* 


GAP: 

L 

R 0001 

R 0002 
R 000  3 
R 0004 

A 000  5 
A 0006 

A 

R 00 OP 
R 000  c 
P 0010 


R001 1 
R 00 1 2 

A 00 1 3 


R OC 
R 001  r 

A 00 1 6 


R 00 1 3 
R001  8 

R 001  0 
R 0020 
R0021 
R 002  2 
R 0023 
R 002* 

R 002  5 

R 0026 
R 0027 
R 002  R 
R0C2R 
R 0030 
R 003  1 
R 003  2 
ROC  3 3 
R 0036 
R 003  5 
R 003  6 


LUMERASE.120  PAGE  90 
NO.  1 EO  S4 

CONVENTIONS  AND  NOTATIONS  UTILIZED  FOR  ERASABLE  ASSIGNMENTS. 

EQUALS  IS  US F D IN  TWO  WAVS.  IT  IS  OFTEN  USED  TC  CHAIN  A GROUP 
IF  ASSIGNMENTS  SO  THAT  THF  C Uf  MAY  BE  MOVED  WITH  THE 
CHANGING  OF  ONLY  OMF  CARD.  EXAMPLE. 

X EQUALS  START 

Y EQUALS  X +SIZE.X 

Z EQUALS  Y +SIZE.Y 

(X,  V,  AND  ZAC:  C0NSEC.UT1.vi  AND  BEGIN  AT  START.  ) 

(SIZF.X  AND  SIZE.Y  ARE  THE  RESPECTIVE  SIZES  OF  X AND  Y, 

USUALLY  NUMERIC,  IF.  1,  2,  6,  18D  ETC.  ) 


EQUALS  FT  E f ("-LIES  THE  SHARING  OF  REGISTERS  (DIFFERENT  NAMES 
AND  DIFFERENT  DATA).  EXAMPLE. 

X EQUALS  Y 


= MEANS  THAT  MULTIPLE  NAMES  HAVE  BEEN  GIVEN  i'O  THE  SAME  DATA. 
(THIS  '■  r LEG  I CAI.  EQUIVALENCE,  (•  OT  rHA  i'G)  EX  AM  E . 

X = Y 


ASSEMBLE  R£  VISION  -01  OF  A GC  PRUGRAF  APllROPE  BY  EYLE 
ERASABLE  ASSIGNMENT? 


3:15  DEE.  2,  IS 70 
USER'S  PAGE 


THE  SIZE  AN D UTILIZATION  OF  AN  ERASABLE  ARE  OFTEN  INCLUDED  IN 
THE  COMMENTS  IF'  THE  FOLLOWING  FORM.  M(SIZE)N. 

M REFERS  TO  THE  MOBILITY  OF  THE  ASSIGNMENT. 

B MEANS  THAT  THE  SYMBOL  IS  REFERENCED  BY  BASIC 
!'  S!  UCT I . ,S  AND  THUS  IS  E-BANK  SENSITIVE. 

I MEANS  THAT  THF  SYMBOL  IS  REFERENCED  ONLY  BY 
INTERPRETIVE  INSTRUCTIONS,  AND  IS  THUS  E-BANK 
INSENSITIVE  AND  MAY  APPEAR  IN  ANY  E-BANK. 

SIZE  IS  THE  NUMBER  OF  REGISTERS  INCLUDED  BY  THE  SYMBOL. 


N INDICATES  THE  NATURE  OR  PE’  MANENCE  OF  THE  CONTENTS. 

PL  MEANS  THAT  THE  CONTENTS  ARE  PAD  LOADED. 

DSP  MEANS  THAT  the  REGISTER  IS  USED  FOP  A DISPLAY. 

PPM  MOANS  THAT  THE  REGISTER  IS  PERMANENT,  IE.  IT 
IS  USED  DURING  THE  ENTIRE  MISSION  FOR  ONE 
PURPOSE  AND  CANNOT  BE  SHARED. 

T MP  MEANS  THAT  THE  REGISTER  IS  USED  TEMPORARILY  OR 
IS  A SCRATCH  REGISTER  FOP  THE  TOUT  INF  TO  WHICH 
IT  IS  ASSIGNED.  THAT  IS,  IT  NEED  NOT  BE  SET 
PRIOR  TO  INVOCATION  OF  I HE  ROUTINE  NO^  DOES  IT 
CONTAIN  USEFUL  OUTPUT  TO  ANOTHER  ROUTINE.  THUS 


G AP  : 

L 

R 003  7 
P003B 
R 003° 
R 004  0 
R 00  1 
R 0042 


ASSEMBLE  REVISION  001  OF  AGC  PROGRAM  AP11R0PE  BY  EYLES 
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ERASABLE  ASSIGNMENTS 


USER'S  PAGE  NO.  2 


IT  MAY  BE  SHARED  WITH  ANY  OTHEl  ROUTINE  WHICH 
IS  NOT  ACTIVE  IN  PARALLEL. 

IN  EARS  INPUT  TO  THE  ROUTINE  AND  IT  IS  PROBABLY 
TEMPO  At Y FOR  A HIGHER— LEVEL  PCUTINE/F  -OGI AM. 
UT  ■' E A N S OUTPUT  FROM  THE  ROUTINE,  PROBABLY 

TEMPORARY  FOR  A HIGHER-LEVEL  ROUT  IN E / P R OGR AM . 


PAGE  91 
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GAP:  ASSEMBLE  REVISION  001  OF  AGO  11  CPE  BY  EYLES 

L ERASABLE  ASSIGNMENTS 

P 0043  SPECIAL  REGISTERS. 


004  A 

00  00 

A 

EQUALS 

0 

00  A 5 

0001 

L 

EQUAL  S 

1 

004  6 

0002 

0 

EQUALS 

2 

0047 

009  3 

FBANK 

EQUALS 

■3 

0048 

0004 

FBANK 

EQUALS 

4 

004° 

C00c 

Z 

EQUALS 

5 

0050 

COO  6 

BBANK 

EQ JALS 

6 

^00c  1 

005  2 

->o  10 

AR  UP  T 

EQUAL  S 

1 0 

0053 

0011 

L R U P T 

EQUALS 

1 1 

005A 

0012 

QR  UPT 

EQUALS 

12 

0055 

001  3 

SAMP  TIME 

EQUALS 

1 3 

00CE 

0015 

ZP.UPT 

EQUALS 

] 5 

00^7 

0016 

BANK  P UPT 

EQUAL S 

16 

0058 

00  l 9 

BRUP  T 

EQ'  JALS 

1 7 

0059 

0020 

CYR 

EQUALS 

20 

0060 

0021 

SR 

EQUALS 

21 

0061 

00  2 2 

CYL 

EQUAL S 

22 

0062 

007  3 

EDQP 

EQUALS 

23 

0063 

0024 

T I ME  2 

EQUALS 

24 

0064 

CQ2  5 

T I M E 1 

EQUALS 

25 

0065 

0026 

T I 3 

EQUALS 

26 

0066 

0027 

T IMF4 

EQUALS 

27 

006  7 

003  0 

T J MEK- 

EQUALS 

30 

0068 

0031 

TIME6 

EQUALS 

3 1 

0069 

0032 

CDUX 

EQUALS 

32 

0070 

00  3 3 

CDUY 

FQI  1 A 1 Q 

3 3 

L W T H L J 

0071 

0036 

CDIJZ 

EQUAL.  S 

34 

0072 

0035 

CDUT 

EQUAL  S 

35 

007  3 

0036 

CD  US 

EQUALS 

36 

0074 

0037 

P IP6X 

EQUALS 

37 

0075 

0040 

PIPAY 

EQUALS 

40 

007  ( 

DTPA7 

c n 1 1 a I ^ 

4 1 

- ->  ! 

Cl  63  L 

t VuALo 

0077 

0042 

Q-RHGCTR 

EQUALS 

42 

0078 

00*  3 

P-RHCCT 

EQUALS 

43 

0070 

0044 

P-RHCCTR 

EQUALS 

44 

0080 

0045 

INLINK 

EQUALS 

45 

0081. 

0046 

RNRAD 

EQUAt  S 

46 

0032 

0047 

GYRUCMD 

EQUALS 

4 7 

0083 

0050 

CDUXCMD 

EQUALS 

50 

0084 

COE  1 

COUYCMD 

EQUALS 

51 

0085 

009  2 

CDIJZCMD 

EQUAI  S 

5? 

0086 

0053 

CDUTCMD 

EQUALS 

53 

0087 

0054 

CDUSCMD 

EQUALS 

54 
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L AND  Q APE  BOTH  CHANNELS  AMD  :EGISTEPS. 


ADJACENT  TO  F8ANK  AND  B&ANK  FOR  DXCH  Z 
< DTCB ) AND  DXCH  F3ANK  ( DTCF  ) • 

R EGISTER  7 IS  A ZERO-SOURCE,  USED  BY  ZL. 

INTERRUPT  STORAGE. 


SAMPLED  TIME  1 & 2 . 

(13  AND  1 1 ARE  SPARES.) 
USUALLY  HOLDS  FBANK  OR  BBANK. 
RESUME  ADDRESS  AS  WELL. 


EDITS  INTERPRETIVE  OPERATION  CODE  PAIRS. 


TEND  R AD AT  TFUNNION  C DU 
REND  RADAR  SHAFT  C DU 


*HC  COUNTER  REGISTERS 


R ADAP  T P U NN I ON  COMMAND 
RADAR  SHAFT  COMMAND 


gap  : 


0088 

0089 

0090 

0091 


R 009? 

009  8 
0094 
0098 

0096 

0097 

0098 

0099 


c oion 

A 01 0 1 
010?. 

0103 

0104 
Oins 
0106 
0107 
01 

010° 
our 
0111 
0112 
0113 
' ] 1 
011s 
0116 

0117 

0118 

0119 

0120 
0121 

R 0 1 2 2 


ASSEMBLE  • c V I S l ■ • 001  • r AGC  P:  LGRAM  AP11R0P6  8V  EYLES 

erasable  assignments 


0055 

THRUST 

EQUALS 

0056 

LEMONM 

EQUALS 

0057 

QUTL1NK 

EQUALS 

00  6 0 

ALTS' 

EQUALS 

3:15  DEC.  2,1970  LUMERASE  .120  PAGE  93 
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55 

56 

57 
60 


INTERPRETIVF  REGISTERS  ADDRESSED  RELATIVE  TO  VAC  AREA. 


0042 

0044 

0046 

00^7 

LVSQUAF  E 
LV 

XI 

X2 

SI 

EQUALS 

EQUALS 

EQUALS 

F 1 ' 1 A 1 F 

340 

36D 

330 
sl  on 

0050 

C vU'lL  j 

EQ  JALS 

D sV 

40D 

0051 

S2 

EQUALS 

4 1 D 

005  2 

QPPET 

EQUALS 

<t2D 

SQUARE  OF  VECTOR  INPUT  TO  ABVAL  AMD  UNIT 
LENGTH  OF  VECTOR  INPUT  T0  UNIT. 
INTERPRETIVE  SPECIAL  REGISTERS  <ELATI VE 
TO  THE  WORK  AREA. 


INPUT /OUTPIJT  CHANNEL  S 


REF  1 
RFF  1 


END  OF  CHANNEL 


CQC  1 
M002 

0003 

0004 

0005 

0006 
* 0007 

0010 
0011 
TO  V? 

0013 

0014 

0015 

0016 
CO  30 
CO  3 1 
0032 
00  3 3 

0034 

0035 

ASSIGNMENTS 


***  CHANNEL  ZERO  IS  TO  BE  USED  IN  AN  INDEXED  OPERATION  ONLY. 


L CHAN 
QCHAN 
HI  SC  ALAI 
LOSC ALAP 
CHAN  5 
CHAN6 
SUPER BNK 
OUTO 

DSALMOIJT 
CHAN12 
CHAN  13 
CHAN  14 
MNKEYIN 
NAVKEY  IN 
CHAN30 
CHAN  3 1 
CHAN32 
CHAM33 
DNTN1 
0NTN2 


EQUALS 
EQUALS 
EQUALS 
EQUAL  S 
EQUALS 
EQUAL  S 
EQUALS 
EQUALS 
EQUALS 
EQUALS 
EQUAL  S 
EQUALS 
EQUALS 
EQUALS 
EQUALS 
EQUALS 
EQUALS 
EQUALS 
EQUAL  S 
EQUALS 


L 

Q 

3 

4 

5 

6 
7 
10 
1 1 
12 

13 

14 

15 

16 

30 

31 

32 

33 

34 

35 


SUPER-BANK. 


GAP:  ASSfcMBLE  K6 VISICN . 0C1  CF  AGO  PROGRAM  AP11ROPE  BY  EYLES 

L ERASABLE  ASSIGNMENTS 

P 012  3 INTERPRETIVE  SWITCH  BIT  ASSIGNMENTS 

A 01 2 ^ 

R 0 1 2 5 **  FLAGW.ORDS  AND  BI^S  NOW  ASSIGNED  AND  DEFINED 
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IN  THEIR  OWN  LOG  SECTION 


GAP:  ASSEMBLE  REVISION  001  OF  AuC  P--C-  , AM  AP11R0PE  BY  EYLES 


3:15  DEC 


2,1970  LUMERASE.120  DAGE 


95 


L 

P0127 

0128 
R 012Q 

R 0 1 3 1 

R 01  32 
R0134 

013  6 

0137 

0138 

0139 
01  AO 

0141 

0142 

0143 

0144 

014  5 

0144 

0147 

0148 


0 I 4 c 
015  0 

0151 
A 0152 

0153 

0154 


0155 

0156 

I 

0158 

0150 

01 

R 0 1 6 1 

01t3 
A 0144 

R 0 1 6 5 


ERASABLE  ASSIGNMENTS 

GENERAL  ERASABLE  ASSIGNMENTS. 

0061 

INTERRUPT  TEMPORARY  STORAGE  POOL. 
( I T f '■! o 1 THROUGH  ' tJP  T R EG4  ) 


USER'S  PAGE  NO. 


EO  S4 


Sr  FLOG  fcl 


( no : 


ANY  OF  THESF  MAY  BF  USED  AS  TEMPORARIES  DURING  INTERRUPT  OR  WITH  INTERRUPT  INHIBITED.  THE  ITEMP  SERIES 
IS  l LED  DURING  CALLS  TL  T HI  EXECUTIVE  AND  WAITLIST  - THE  RUPTREGS  Ar>  E NOT. 


REF 

REF 


REE 

REF 


REF 

REF 

REF 


PEF 

REF 


REF  1 
REF  2 


REF  1 


I AST 


LAST 


LAST 

LAST 


LAST 


LAST 


05 


95 


95 

95 


95 


95 


0061 
r n A 1 

0061 

C06  1 

GOT  2 

006  2 
006  2 

006  2 

0063 
006  3 
006  3 
006  3 

0063 

0064 

0064 

0064 

0 0 64 

006  5 

0 Q-6  5 

CO  65 

C066 

0066 

< 06  7 
006  7 

0067 

0070 

, r,  7 1 

0070 
00  71 

0072 

0073 

V V * 1 

007  2 
0073 
007  3 
0073 

FLAG WORD  RESERVATIONS 
0074 


I TEMPI  f AS:. 

WAI'EXIT  EOUAt  S ITEMP 1 
EXECTEM1  EQUALS  ITEMP1 

ITEMP?  ERASE 

WAIT  BANK  EQUAtS  ITEM*3? 

EXpCTEM?  EQUALS  TTEMP2 

I TEMP 3 ERASE 
RUPTSTOR  EQUALS  ITEMP3 
WAITADR  EQUALS  ITEMP3 
NEWER  10  EQUALS  ITEMP3 

J T E M P 4 ERASE 
LCCCTR  EQUALS  ITEMP4 
WAITTEMP  EQUALS  ITEMP4 


I TEMP5 
NEWLOC 


EL  ASE 

EQUALS  I TEMP  * 


ITEMP6  ERASE 
MEWLOC+1  EQUALS  ITEMP6 


NEWJ0  8 


RUPTR EG  1 
RUPTREG2 
f<  UP  TP.  EG  3 
RUPTR EG4 
KEY' f 0 1 
DSRUPTEN 


SET  LOG  67 
ERASE 


ERASE 
ERASE 
EL  ASF 
ERASE 

EQUALS  RUPTR  ERA- 
EQUALS  RUPTREG4 


DP  ADDRESS. 


MUST  BE  AT  LCC  67  DUE  TO  W IF  IMG. 


0113  STATE  ERASE 
p25  RADAR  STORAGE.  (MAY  BE  UNSHARED  IN  E7)  HEMP  OVERLAY 


( 16  D ) 

+ 15D  FLAGWC  * D REGISTERS, 


2D) 


OVERLAYS  FLGWRD  14  £ 15 


GAP:  ASSEMBLE  kCVL.IJi:  001  CF  AGO  P.CGAM  API  1RUPE  BY  t Y L E S 
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USER  « S PAGE  NO.  7 EO  S4 


0167  REF  15  LAST  87  C112  LASTYCMD  EQUALS  STATE  + 14D  B(1)PRM  THESE  APE  CALLED  BY  T4RUP T 

0168  R EF  1 0113  L ASTXCMD  EQUALS  LASTYCMD  +1  B ( 1 ) PRM  THEY  MUST  BE  CONTIGUOUS, Y FIRST 

A 0169 


R 01  70 

F X EC 

T F m p 0 R AP  I F 8 WHICH 

MAY  BE 

USED  BETWEEN 

0172 

0114 

0114 

INTB15+  ERA 

0173 

REF 

1 

0114 

DS EX  IT 

0176 

REF 

2 

LAST 

96 

0114 

EXITEM 

0175 

REF 

3 

L AST 

96 

0116 

Bl  AN K RET  = 

0176 

’'115 

0115 

1 •'ll'  i ■ /\ 

017? 

REF 

1 

0115 

WRDRET 

0178 

REF 

2 

LAST 

96 

0115 

WORET 

0179 

REF 

3 

LAST 

96 

0115 

D EGRET 

0180 

REF 

4 

LAST 

96 

0115 

21/22REG  = 

CCS  NEWJOBS.  ( 3 2D ) (INTB1F+  THROUGH  RUPTMXTM) 

SE  REFLECTS  15TH  BIT  OF  INDEXABLE  ADDRESSES 

INTB15+  RETURN  FOR  DSPIN 

INTB13+  RETURN  EOF  SCALE  FACTOR  ROUTINE  SELECT 

INTB15+  RETURN  FOR  2BLANK 

SE  SIMILAR  TO  ABOVE. 

I NT  B I T 1 5 RETURN  FOR  5 BLANK 

INTRIT15  RETURN  FOR  DSPWD 

INTBIT15  j.  RETURN  FOR  PUTCOMIDEG.  LOAD) 

TNTBTT] r TEMP  FOR  CHA-IN 


R 0 1 ? 1 


THL  REGISTERS  BETWEEN  ADDRWD  AND  PRIORITY  f#ST  STAY  IN  THE  FOLLOWING  ORDER  FOR  INTERPRETIVE  TRACE. 


0183  0116 

013A  0117 

0185  REF  1 0117 

0186  REF  2 L AST  96  0117 

0187  PFF  3 LAST  <96  0117 

0188  P EF  A LAST  96  01  17 


0116  ADDRWD  ERASE 

0117  POLISH  ERASE 

UPDATRET  = POLISH 

CHAP  = POLISH 

ERCNT  = POLISH 

DECOUNT  = POLISH 


12  BIT  INTERPRETIVE  OPERAND  SUB-ADD°ESS. 

HOLDS  CADR  MADE  FROM  POLISH  ADDRESS. 

RETURN  FOP  UFDATNN,  UPDATVB 

TEMP  FOF  CHAPIN 

COUNTFR  FOR  ERROR  LIGHT  RESET 

COUNTER  FOR  SCALING  AND  DISP1AY  (DEC) 


0139 

01  °0 


0120  0120  FIXLOC  ERASE 

C 121  0121  OVFIND  E ASE 


WORK  AREA  ADDRESS. 

SET  NON-ZERO  ON  OVERFLOW. 


0191 

0122 

0127 

V BUF 

EF  AS  E 

+ 5 

0192 

REF 

1 

0122 

SGNON 

- 

V BUF 

0193 

RFF 

2 

LAST 

96 

0122 

MOUNT EM 

= 

VBUF 

0194 

REF 

3 

LAST 

c't 

0122 

DI STEM 

V I3U  F 

0105 

REF 

4 

LAST 

96 

0122 

DECTEM 

= 

VBUF 

TEMPORARY  STORAGE  USED  FOR  VFCTOPS. 
TEMP  FOR  +,-  ON 
COUNTER  FOR  MIXNOUN  FETCH 
COUNTER  FOR  OCTAL  DISPLAY  VERBS 
COUNTER  FOR  FETCH  (DEC  DISPLAY  VERBS) 


0196 

° EF 

5 

1 AST 

96 

0123 

SGNCFF 

0197 

REF 

6 

LAST 

96 

0123 

NVTEMP 

0198 

REF 

7 

LAST 

96 

0123 

SFTEMP1 

Cl  9 9 

REF 

8 

LAST 

96 

012  3 

HI  T F M T M 

H J.  1 L I IN 

A 0200 

0201 

REF 

9 

LAST 

Cf 

0124 

CODE 

020? 

P EF 

1 0 

LAST 

96 

0124 

SFTEM02 

0203 

REF 

1 1 

LAST 

96 

0124 

LOTEMIN 

A 0204 

0205 

REF 

12 

LAST 

96 

G 12  5 

MIXTEMP 

0206 

REF 

1 3 

LAST 

96 

0125 

SIGNS ET 

R 0207 

ALSO 

MTXT EMP  + 1 

= VBUF +4, 

, M T XTE MP  + 2 

= V3UF+5. 

= 

VBUF 

+ 1 

TEMP  FOP  +,-  ON 

= 

VBUF 

+ 1 

TEMP  FOR  NVSUB 

= 

VBUF 

+ 1 

STORAGE  FOR  SE  CONST  HI  P AP T ( = SF TE MP 2- 1 ) 

VBUF 

+ 1 

TEMP  FOR  LOAD  OF  HRS,  MIN,  SEC 

MUST  = t OTEMIN-l . 

= 

VBUF 

+ 2 

FOR  DSPIN 

= 

VBUF 

+ 2 

STORAGE  FOR  SF  CONST  LO  °AFT(=SFTEMP1+1) 

= 

VBUF 

+ 2 

TEMP  FOR  LOAD  OF  HRS,  MIN,  SEC 

MUST  = HTTEMIN+1. 

= 

VBUF 

+ 3 

FOR  MIXNOUN  DATA 

= 

VBUF 

+3 

RETURN  FOR  +,-  ON 

0208 


0130  0132  BUF 


ERASE  +2 


TEMPORARY  SCA1AR  STORAGE. 


> 


ASSEMBLE  EVISIC!'  001  CE  AGO  PROGRAM  API  1ROPE  BY  EYLES 


GAP: 


L ERASABLE  ASSIGNMENTS 


0209 

0210 
021 1 

REF 

REE 

1 

2 

LAST 

97 

0133 

0130 

0130 

0212 

0213 

REF 

3 

LAST 

97 

0131 

013-5 

0134  BUF2  ERASE  +1 

INDFXLOC  EQUALS  BUF 

EQUALS  BUF 

EQUALS  BUF  +1 

ER  AS  E 

= MPT  Efip 

ERASE 

EQUALS  DOT  INC 

EQUALS  DOTING 

= DOTING 


021  <■ 
021  5 
021  6 
0217 
02  IF 


<>EF 

REF 

REF 

REF 


LAST  97 
LAST  o? 


C13^ 
0136 
0136 
0136 
r 136 


0135 


0 1 36 


SWWORD 
SWBIT 
M PTE  HP 

[jMPMTF-vp 

DOTING 

DVSIGN 

ESCAPE 

FMTRET 


0219 
022  0 

PEE 

1 

0221 

REF 

2 

LAST 

0222 

REE 

3 

LAST 

022? 

REF 

4 

LAST 

0137  0137 
0137 

97  0137 
97  0137 
97  0137 


fflOfPET  ERASE 
DVNDPMO  T EQUALS  DOTRET 
ESCAPE2  EQUALS  OCTREE 
WDCNT  = DOTRET 

INREL  = DOTRET 


022  4 

0225  REF  1 

0226  REF  2 LAST  97 

0227  REF  3 LAST  97 

022  F REF  4 LAST  97 


0140 
0140 
0140 
0140 
017  H 


0140  MATING 
MAXDVSW 
POLYCNT 
DSPMMTAM 
MI  XBR 


EP  Ac  E 

EQUALS  MATING 
EQUALS  MAT  INC 
= MAT  INC 

= MAT  INC 


0229 

0230  REF  1 

0231  REF  2 LAST  °7 


<14  1 
014  1 
014  1 


0141 


Tf  Ml  ERASE 

POLYRET  = TEM1 

DSREL  = TEM1 


02  3 2 


023  3 
023  6 

R E F 
REF 

]. 

p 

L A c T 

0235 

0236 

REE 

1 

0237 

02  3 8 

REF 

1 

0239 

REF 

2 

LAST 

0240 

REF 

3 

LAST 

0241 

REE 

4 

LAST 

0242 

REF 

5 

LAST 

0243 

»EF 

6 

LAST 

0244 

0245 

REF 

1 

0246 

0247 
024  8 

A 0249 
0250 


oj 

014  2 
0142 

0 1 4 2 

0142 

0143 

0143 

i.  ~> 

0144 

0144 

0144 

97 

0144 

97 

0144 

• 

97 

0144 

97 

0144 

97 

0144 

0145 

0145 

014  5 

0 1 4 6 

0146 

0147 

0147 

0159 

0150 

0151 

0151 

TE  M2  E'aSE 

DSMAG  = TFM2 

I DADDTFF  = TFM2 

TE  M3  ERASE 

COUNT  = TEM3 

T E M4  ERASE 

L.STPTP.  = T EM4 

RELRET  = TEM4 

FREERET  = TEM4 

DSPWDRET  = TEM4 

SFPSCRFT  = TEM4 

SERVE TET  = TE  14 

T EM  5 ERASE 

NGUNADD  = TEM5 


NNADTEM  ERASE 
NMTYPTEM  ERASE 
I DAD!  TEN'  ERASF 

IDAD2TEM  ERASE 


3 : 1 5 DEC 
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CONTAINS  ADDRESS  OF  SPECIFIED  INDEX. 
ADDRESS  OF  SWITCH  WORD. 

SWITCH  BIT  WITHIN  SWITCH  WORD. 

TEMPORARY  USED  IN  MULTIPLY  AND  SHIFT. 
DMPSUB  TEMPORARY 

COMPONENT  INCREMENT  FOR  DOT  SUBROUTINE. 
DETERMINES  RIGN  OF  DDV  RESULT. 

USED  IN  ARCS IN/AF CCOS . 

EXIT  FROM  ENTER 

RETURN  Fr  OM  DOT  SUBROUTINE. 

DIVIDEND  NORMALIZATION  COUNT  IN  DDV. 
ALTERNATE  ARCS  IN /APCCOS  SWITCH. 

CHAR  COUNTER  FOP  DSPWD 

INPUT  BUFFER  SELECTOR  ( X,Y,Z,  REG  ) 

VECTOF  INCREMENT  IN  MXV  AND  VXM. 

+0  IF  DP  QUOTIENT  IS  NEAR  ONE  - ELSE  -1. 

POLYNOMIAL  L00°  COUNTER 

DSP  COUNT  SAVE  FOR  DSP MM 

INDICATOR  FOP  MIXED  OR  NORMAL  NOUN 

EXFC  TEMP 

REL  ADDRESS  FOR  DSPIN 
EXEC  TEMP 

MAGNITUDE  STORE  FOR  DSPIN 
M I X NO  UN  tNDIRE::CT  ADDRESS  STORAGE 

EXEC  TEMP 
FOR  DSPIN 

EXEC  TEMP 

I 1ST  POINTER  FOR  GRABUSY 
RETURN  FOP  RELDSP 
RETURN  FOR  FREEOSP 
RETURN  FOR  DSPSIGN 
RETURN  FOR  SEPSEC 
RETURN  FOR  SEPMIN 

EXEC  TEMP 

TEMP  STORAGE  FOR  NOUN  ADDRESS 

TEMP  FOR  NOUN  ADDRESS  TABLE  ENTRY 

TEMP  FOR  NOUN  TYPE  TABLE  ENTC  Y 

TEMP  EOT  INDIP  ADR  ESS  TABLE  ENTRY (MIXNN) 

MUST  = I DAD2TEM-1 , = IDAD3TEM-2. 

TEMP  FOR  INDIP  ADLESS  TABLE  ENTP.  Y ( M I XNN  ) 
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A 025  1 
0252 

0152 

G 1 52 

I DAD3TEM 

ERASE 

MUST  = I0AD1TEM+1,  = I DAD3TEM-1 . 
TEMP  FLR  INDIR  ADP ESS  TABLE  ENTRY! M 
MUST  = IDAD1TFM+2.  = IDADPTEM+I. 

A SJ  c. . J 

02  54 

0153 

0153 

RUTMXTEM. 

ERAS# 

TEMP  FOR  SF  F 0UT  TABLE  ENTRY  < M! XNN 

P 02  55 

AX*>’ 

*T  4 TEP  AGP 

( 6 D ) 

0257 

REF 

3 

LAST 

97 

0142 

DEXDEX 

EQUALS 

TEM2 

B ( 1 ) T MP 

0258 

REF 

2 

LAST 

97 

C 14  3 

DE  XI 

EQUALS 

TEN  3 

B ( 1 ) T MP 

02c  9 

P.EF 

7 

LAST 

07 

C 144 

DEX? 

EQUALS 

TEM4 

B ( 1 ) T MP 

0250 

REF 

2 

LAST 

07 

Cl*  5 

R.TNSAVE  F 

EQUALS 

7EM5 

B ( 1 ) TMF 

0241 

K FF 

x 

0157 

TERM1TMP 

EQUAL  S 

Mp AC  +3 

B ( 2 ) T M F 

0262 

REF 

1 

0143 

DEX  I 

DE  X 1 

R 026  3 

THE  FOILT WING 

10  REGISTERS  ARE 

USED  FLU 

TEMPORARY  S';  CL  A 

GE  OF 

i HE  DERIVATIVE  COEFFICIENT  TABLE  OF 

R 026  5 

SUB  r L'UTt  NE  sn-’TPSfis. 

THEY  '*U  ST  REMAIN 

without 

INTERFERENCE  WITH  ITS 

SUBROUTINES 

WHICH  APE  POWRSERS  (POLY) 

R 0267 

DMPSUB, 

DMPNSUB 

, SFORTMP,  DDV/8DDV » ABS  < 

, AND  US  PRC  AD  5 . 

0268 

REF 

2 

LAST 

98 

0142 

DELCCF-8 

= 

MPAC 

-12 

R JOTPSKS 

DER  COF  N— 4 HI  ORDER 

0269 

REF 

3 

LAST 

98 

014  3 

DERCOF-7 

MPAC 

-11 

PUOTPSRS 

DER  COF  N-4  LO  ORDER 

0270 

REF 

4 

LAST 

98 

0144 

DEFCOF-6 

= 

MPAC 

-10 

FaTOTPSF  S 

DEL  COF  N-3  HI  ORDEF 

0271 

REF 

5 

LAST 

98 

0145 

DE'-'COF— 5 

MPAC 

-7 

ROO  T°  SF  S 

DER  COF  N-3  LO  ORDEP 

0272 

REF 

6 

LAST 

98 

0146 

DERCOF-4 

- 

MPAC 

-6 

ROOTPSPS 

DER  COF  N-2  HI  ORDER 

0273 

REF 

7 

LAST 

98 

014  7 

OERCOF-3 

= 

MPAC 

-5 

P.OOTPSRS 

DEP  COF  N-2  LO  ORDER 

0274 

REF 

0 

LAST 

98 

0150 

DERCOF-2 

= 

MPAC 

-4 

ROOT  P SR  S 

DER  COF  N-l  HI  ORDER 

0275 

REF 

9 

LAST- 

98 

0151 

DEt COF-1 

MPAC 

-3 

P.OOTPSRS 

DEP  COF  N-l  LO  ORDER 

0276 

REF 

10 

LAST 

98 

015  2 

DERCCFN 

= 

MPAC 

-2 

ROOTPSRS 

DER  COE  N HI  ORDER 

0277 

RFF 

1 l 

LAST 

°8 

015  3 

DERCOF+ 1 

_ 

MPAC 

_ x 

RflflTP  RR  R 

DER  COF  N LO  ORDER 

I*  U U I i O **  D 

0278 

RFF 

5 

LAST 

96 

0117 

PWRPTR 

= 

POLISH 

P.OOTPSRS 

POWER  TABLE  POINTER 

02  7 9 

REF 

14 

LAST 

96 

C 1 24 

DXCH  IT 

= ■ 

VBUF 

+ 2 

FOOTPSFS 

CRITERION  FOR  ENDING  ITERS 

0280 

RFF 

15 

LAST 

98 

0125 

DXCP I“+l 

= 

VBUF 

+ 3 

F O0TD  S RS 

CRITERION  FOR  ENDING  I TFR  S 

02«  1 

REF 

16 

LAST 

98 

0126 

ROOT  PS 

= 

VBUF 

+4 

FOOTPSP  S 

ROOT  HI  ORDER 

0282 

RFF 

17 

LAST 

98 

0127 

PPr’TPS  + 1 

= 

VBUF 

ROO TP  SR  S 

ROOT  LO  ORDER 

0283 

REF 

4 

LAST 

97 

C 1 3 2 

RETROOT 

= 

BUF 

+ 2 

ROOTPSPS 

RETURN  ADDRESS  OF  USER 

0284 

REF 

5 

LAST 

07 

0140 

PWRCNT 

= 

MAT  INC 

T P S R S 

DEP.  TABLE  LOOP  COUNTER 

0285 

REF 

3 

LAST 

97 

0141 

DERPTR 

= 

T EM  1 

ROO  TP SRS 

DER  TABLE  POINTER 

A 0 2 8 6 

GAP: 


ASSEMBLE  "E VISION, 001  OF  AGC  PROGRAM  AfllROPE  BY  EYLES 


3:  15  DEC 


2,1970  LUM ERASE. 120  PAGE 


99 


L 

P 0287 

028  9 

0290 

0291 

029  2 

0293 

0294 

0295 
A 029  4 

R 0297 

0299 
A 0300 


ERASABLE  ASSIGNMENTS 

dynamically  allocated  core  sets  FOR  jobs. 


REE 


0154 

0163 

0164 

hl/kC 

0162 

0163 

0164 
016  5 

MP  AC 

MODE 

LOC 

H4MKSFT 

ER  ASE 
ERASE 
E:  Ac  E 
ERASE 

V 1 " 7 

0166 

0166 

D m i r\  o c i 

PUSHLOC 

ERASE 

0167 

0167 

PRIORITY 

ERASE 

0170 

0313 

ERASE 

INCCRP  STORAGE:  32  2 (N29) 


0314 


+ 6 


(SHAFES  WITH  FOLLOWING  SECTION) 

R22DISP  EQUALS  TIME2.SAV 


USER'S  PAGE  MO.  10 


EO  S4 


( 840) 


MULTI-PURPOSE  ACCUMU1 ATOR. 

+1  FOP  TP,  +0  FOR  DP,  OR  -1  FOR  VECTOR. 
LOCATION  ASSOCIATED  WITH  JOB. 

USUALLY  CONTAINS  BBANK  SETTING. 

WORD  .OF  PACKFD  INTERPRETIVE  PARAMETERS . 
. PSfOP  TTY^CiF  PRESENT'  JOB  AND  Np-’K  AREA. 


■ ■ - 

eight  sets  of 


12  registers  fach 


\'£Q:)  ‘ 

1(4)  N49  DISPLAY  OF  DE  LTA  P AND  DELTA  V 


R 030  1 


STANDBY  VEPB  E'ASABIFS.  PEDHCTP  BEFORE  THETADS. 


( 14D) 


0303 

0314 

0315 

TIME2SAV 

0304 

03 1 6 

0317 

SCALSAVE 

0305 

0320 

0320 

R E DOC  TR 

0306 

0321 

0323 

THEY  AO 

0307 

REF 

1 

03  2 1 

CPHI 

0308 

REF 

2 

LAST 

99 

0322 

CTHETA 

0309 

REF 

3 

LAST 

99 

03  2 3 

CPS  I 

03 10 

0324 

0331 

DEL  V 

0311 

REF 

1 

0324 

DEL  VX 

0312 

REF 

2 

LAST 

99 

03  26 

DEIVY 

0313 

REF 

3 

LAST 

99 

nun 

n p i \/  7 

A 03 1 4 

J O J w 

17  r L V L 

EPASE  +1 

ERASE  +1 

EASE  CONTAINS  NUMBER  OF  RESTARTS 

ERASE  +2 

= THETAD  0 DESIRED  GIMBAL  ANGLES 

= THETAD  +1  I FOR 

= THETAD  +2  M MANEUVER. 

ERASE  +5 

= DEL  V 

= DEL  V +2 

= DEL  V +4 


R0315 


DOWNLINK  STORAGE. 


( 2 3 D ) 


0317 

REF 

1 

0332 

0318 

0332 

0319 

0333 

0320 

0334 

0321 

REF 

1 

0335 

032? 

REF 

1 

0336 

0323 

REF 

1 

033  6 

A0324 

A032S 

0326 

REF 

2 

LAST  99 

0337 

0327 

REF 

1 

0340 

R 0328 

UN SWITCHED 

FOR  DISPLAY 

DNI  ST  ADR 

EQUALS 

DNLSTCOD 

0332 

DNLSTCOD 

ERASE 

0333 

DUMPCNT 

ERASE 

0365 

LDAI  ALST 

ERASE 

+ 25D 

DNTMGOfo 

EQUALS 

L DAT ALST 

+ 1 

TMINDEX 

EQUALS 

DNTMGGTO 

+ ) 

DUMP  me 

EQUALS 

TMINDEX 

DMQ 

EQUALS 

TMINDEX 

41 

DfiTMBUFF 

EQUAL  S 

ON  3 

41 

INTERFACE  ROUT  INES. 


BIDPRM  DDWNl.IINK  LIST  CODE 
B(l) 

( 26D ) 

BID 

BID 

CONTAINS  ECADP  OF  AGC  DP  WORD  BEING  DUMP 
ED  AND  COUNT  OF  COMPLETE  DUMPS  ALREADY  S 
ENT. 

B(l) 

B ( 2 2 ) P F M DOWNLINK  SNAP  SHOT  BUFFEF 


( 10 D ) FIVE  MORE  IN  EBANK  2 


GAP:  ASSEMBLE  REVISION  0.1  OF  AGC  PROGRAM  APUROPE  BY  LYLES 


L 

EF  AS A8L E 

ASSIGNMENTS 

0330 

0366 

0366 

RESTREG 

EF  ASE 

0331 

0367 

0367 

NVWOR D 

ERASE 

0332 

03  70 

03  7 0 

MARK.NV 

ERAS  E 

0333 

037  1 

0371 

NVSAVE 

ERASE 

R 033 4 

( ' F ■ A T . THE  OLDER  OF  1 

GADPFL3H  TC 

FAIL REG  +2  FOR 

0336 

0372 

0372 

CADE  FLSH 

ERASE 

0337 

0373 

0373 

CADRMARK 

ERASE  - 

0338 

037  4 

0374 

T IMPEL  SH 

ERASE 

0339 

03  75 

0377 

FA  I L REG 

ERASE 

R 0340 

VAC  AREAS.  -RE  CAREFUL 

PE  PLACEMENT- 

0342 

0400 

0400 

VAC  1 USE 

ERASE 

0343 

A0401 

0453 

V AC  1 

ERASE 

+42  D 

03-44 

VC454 

0454 

VAC 2 USE 

ERASE 

0345 

( C 45  6 

O-,  2 7 

VAC2 

ERASE 

+ 42  D 

03At 

V 5 30 

0530 

VAC3USE 

ERASE 

0347 

f'  3 1 

06  03 

VAC3 

EL  AT  E 

+4  2 D 

0348 

V604 

0604 

VAC4USE 

ERASE 

0349 

XC605 

0657 

VAC4 

ERASE 

+42  D 

0350 

1-066,0 

0660 

VAC 5 USE 

E!  ASE 

03  51 

066  1 

0733 

VACS 

ERASE 

+ 42  D 

R 035  2 

WAITLIST  REPEAT  FLAG. 

0354 

0734 

0734 

LUPTAGF 

ERASE 

035  5 

REF 

1 

0734 

KFYT  EMP2 

= 

PUPTAGN 

A 035  5 

R 0357 

STARALIGN  FRASABIES. 

035° 

C 7 3 5 

0735 

STAR  CODE 

ERASE 

0360 

REF 

1 

07  35 

AOTCODF 

= 

STAR  CODE 

0361 

0736 

0751 

STAR Al GN 

EP  ASF 

+ 11  D 

0362 

REF 

1 

C736 

S INC DU 

= 

STARALGN 

0363 

P EF 

2 

LAST  100  0744 

COSCDU 

= 

STARAl GN 

0364 

FEE 

1 

0742 

SINCDUX 

_ 

S INC  DU 

0365 

P.  EF 

2 

LAST  100  C736 

SINCDUY 

= 

S I NCDU 

0366 

REF 

3 

LAST  100  0740 

SINCDUZ 

= 

S INCDU 

0367 

REF 

) 

0750 

coseoux 

= 

COSCDU 

0368 

REF 

2 

LAST  100  C 746 

CO SC BUY 

= 

COSCDU 

036c 

REF 

3 

LAST,  100  0746 

COSCQLJ  7 

- 

COSCDU 

P 0370 

PHASE  TAB!  E AND  RESTART 

COUNTER  S. 

0372 

0752 

0752 

-PHASE1 

ERASE 

3:15  DEC.  2,1970  L UMERASE .120  PAGE 
USER'S  PAGE  NO.  11  EO  S4 

B ( 1 ) P RM  FOR  DISPLAY  RESTARTS 


+ 2 


+ 4 

+ 2 
+ 4 

+ 2 


B ( 3 ) P RM 
t 22  OD  ) 


3 ALARM  CODE  REGISTERS 


cco 


(ID) 


TEMP  F C ■"  KEYMJPT,  UPPUPT 


( 13D) 
( 1 ) 


51 9 

! In 


( 12D) 


r 


100 


ASSEMBLE  PEVISIIJV  001  LF  AGC  F-OGFAM  AP11R0PE  BY  EYLES 


3 AP  : 


L E?-  AS  ABLE  ASSIGNMENTS 

0373 

037' 

0375 

0376 

0377 
037g 

0379 
03  80 
0331 
0382 
038  3 


C753 

0753 

PHASE1 

ERASE 

C754 

0754 

-PHASE2 

ERASE 

07  5 5 

07  55 

PHASE2 

ERASE 

C756 

075  6 

-PHASES 

ERASE 

0 75  7 

0757 

PHASES 

ERASE 

#7  f-  n 

G 760 

- P H A S F i 

ERASE 

lo  f OXJ 

0761 

r6i 

PHASE4 

ERASE 

076? 

0762 

-P HASE5 

ERASE 

C 763 

C763 

PHASES 

ERASE 

076  4 

u764 

- P H A 5 E6 

ERASE 

C765 

076  5 

PHASE6 

ERASE 

R 038  A 


A**SR  *T  STOP  AGE. 


03  S 6 : 

Ao  A 7 

REF 

1 

2 

€766 

0 76  6 

0773 

CO US  POT 

CDUSPHTY 

CDUSPOTZ 

ERASE 

U D O 1 

0388 

REF 

LAST 

101 

077  0 

= 

0389 

REF 

3 

LAST 

101 

€77  2 

CDUS  POTX 

-= 

R 039  0 VERB  37  STOP  AGE  . 

0392  C 77  A 0774  MINDEX  ERASE 

0393  0775  0775  MMNUMBEP  ERASE 


R 03  PINBALL  INTERRUPT  ACTION. 

0396  0776  0776  DSPCNT  ERASE 


R 0397  Pit  bah  EXECUTIVE  ACT  I r f 


0399 

0400 

0401 

0402 

077  7 
1000 
1001 
i nno 

0777 
1000 
1001 
1002 
1C  03 
1 004 
1 005 

0403 

0404 
040  c 

1003 

1004 
inn? 

0406 

0407 
040  8 

REF 

REF 

1 

1006 

1007 

L007 

1006 

1007 

A 0'  0 ^ 
0410 
041  1 

l 

1010 

1 ' I 1 0 

1010 

A 04  12 
041  3 

11’  I \7 

1011 

1011 

DSP COUNT 
DECBRNCH 
VERBREG 
NOUNR EG 
Xr  EG 
Yt<  EG 
ZREG 
XREGLP 
YREGLP 
HI TEMOUJ 


EP  ASE 
ERASE 
ERASE 
ERASE 
ERASE 
ERASE 
FR  ASE 
ERAS  F 
ERASE 


ZREGLP  E>  ASE 
LOTFMQUT  = 


MODE  EG  ERASE 


3:15  DEC 


2,1Q70  LOME  RASE . 1 20  PAGE  101 


+ 5 

C DU  SPOT 
C DU SPOT 
C DUS  POT 


YREGLP 


ZREGLP 


USER'S  PAGE  NO.  12  EO  S4 


( 6 D I 


B ( - ! 


+2 

+4 


( 20) 

Bill  TMP  INDEX  FOR  MAJOR  MODE 

Bill  TMP  MAJOR  MODE  REQUESTED  BY  V 37 


( ID) 

BIIIPRR  COUNTER  FOP.  DSPDUT. 


( 44  D ) 

DISPLAY  POSIT  ION  INDICATOR. 

+ DEC,  - DEC,  OCT  INDICATOR 

VERB  CODE 

NOUN  CODE 

El  INPUT  BUFFER 

~Z  IMP  UT  BUFFER 

R 3 INPUT  BUFFER 

10  PART  OF  XREG  (FOR  DEC  CONV  ONLY) 
LO  PART  OF  YREG  (FOR  DEC  CONV  ONLY) 
TEMP  FOB  DISPLAY  OF  HRS,  MIN,  SEC 
MUST  = L OTEMOUT- 1 . 

LO  PART  OF  ZREG  (FOP  DEC  CONV  ONLY) 
TEMP  FOR  DISPLAY  OF  HRS,  MIN,  SEC 
MUST  = HITEMOUT+1. 


MODE  CODE 


GAP: 


ASSEMBLE  -EV1SI  )-N  001  OF  AGC  PPG  SR  AM  AP11R0PE  BY  EYLEB 


L ERASABLE  ASS IGNMENTS 

041 A 1012 

04] 5 1013 

0416  1014 

0417  1)15 

0418  1016 

041 9 1017 

0420  1020 

0421  1021 

0422  1022 

0423  1023 

042*1  1037 

A 042  r- 

0426  1040 

A 042  7 

0428  1041 

0429  1042 

0430  1043 

0431  1044 

0432  1045 

0433  1050 

0434  IF  1 1051 

0434  REF  1 1045 

A0636 


1012 

1013 

1014 

DSPLOCK 
REQR  ET 

1 D4DSTAT 

ERASE 

ERASE 

ERASE 

1015 

l.  U MU  .3  1 FA  | 

c.(  PASS 

ERASE 

1016 

NOUT 

ERASE 

1017 

NOUNCADR 

MONSAVE 

ERASE 
ERAS  E 

1020 

1021 

MONSAVE  1 

ERASE 

1022 

1 036 

MUNS  AV  F2 

E h A 5 E 

! K.IMOHV  Lt 

DSPTAB 

ERASE 

+ 11D 

1037 

NVQT EM 

ERASE 

1040 

NVBNKTEM 

ERASE 

1 04  1 

VEKBSAVE 

ERASE 

1042 

CADE  STOP 

ERASE 

10^3 

DSPt  1ST 

ET-  ASF 

1044 

EXTVBACT 

ERASE 

1047 

DSPTEM1 

ERASE 

1052 

DSPTEM2 

ERASE 

DSPTEMX 

EQUALS 

DSPTEM2 

NO  RNT EM  1 

EQUAL S 

DSPTEM1 

R 0437  DISPLAY  FOP  EXTENDED  VERBS  (V82,  R04(V62),  V411M72)  ) 

0439  REF  l 1051  OPT? DM X EQUALS  DSPTEMX 

A 044  0 


R 044 1 

TBASES  AND 

PHSPRDT  S. 

0443 

1053 

1053 

T 8 AS  El 

ERASE 

0444 

1054 

1 0 54 

PH'SP  r i ) T 1 

EL  ASE 

r n r r ‘-'ll 

0445 

1055 

1055 

TBASE2 

ERASE 

0446 

1056 

1056 

PHSPRDT2 

ERASE 

0447 

L057 

1057 

TBASE3 

ERASE 

0448 

1060 

1060 

PHSPRDT3 

El  AS  E 

0449 

1061 

1061 

TBASE4 

ERASE 

04  5 0 

106  2 

1062 

PHSP  ROT  4 

ERASE 

0451 

1063 

1 063 

TBASE5 

ERASE 

0452 

1064 

1064 

PHSPRDT5 

ERASE 

0453 

1065 

1065 

TBASE6 

ERASE 

0454 

1066 

106  6 

PHSPPDT6 

ERASE 

R045  5 

UNSWI TCHED 

FOR  DISPLAY 

INTERFACE  ROUTINE 

S. 

" 
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USER'S  PAGE  NO.  13  EG  S4 

KEYBOARD/SUBROUTINE  CALL  INTERLOCK 

RETURN  REGISTER  FOR  LOAD 

STATUS  INDICATOR  FOR  LOADTST 

PASS  INDICATOR  Cl  EAR 

ACTIVITY  COULTER  FOP  DSD T AB 

MACHINE  CADf  FOP  NOUN 

N/V  CODE  FOP  MONITOR.  (=  MONSAVE  1-1) 

NOUNCADR  FOR  MONI TOR ( M ATBS ) =MONSAVE  +1 

NV MON DPI  OPTIONS 

Q-10D,  DISPLAY  PANEL  BUFF.  11D,  C/S  ITS. 

NVS'jf  STORAGE  FOP  CALLING  ADDRFSS 

MUST  = NVBNKTEM-1 

NV  SUB  STOP  AGF  FOR  CALLING  BANK 

MUST  = NVQTEM+1 

NEEDED  FOR  RECYCLE 

END I OLE  STORAGE 

WAITING  17  EG  FOR  DSP  SY$T  INTERNAL  USE 
EXTENDED  VERB  ACTIVITY  INTERLOCK 
BUFFER  STORAGE  AREA  1 (MOSTLY  FOR  TIME) 
BUFFER  STORAGE  AREA  2 (MOSTLY  EOT  DEG) 


B ( 2 ) S-S  DISPLAY  BUFFER  FOR  EXT.  VERBS 
8(3) DSP  NORMAL  DISPLAY  REGISTERS. 


( 2D) 

(2)  EXTENDED  VERB  OPTION  CODE 


( 12D) 


( 6 D ) 


GAP  : 


ASSEM§iLE  *■  gVISlDN  001  OF  AGC  PROGRAM  AP11RQPE  BY  EYLES 


L ERASABLE  ASSIGNMENTS 


04  5 7 

1067 

1067 

NVW0RD1 

ERASE 

045  8 

1070 

1070 

E8ANKSAV 

ERASE 

0459 

1071 

10  71 

MAR K E BAN 

ERASE 

0460 

1072 

1072 

EBANKTEM 

ERASE 

0461 

1073 

1073 

MARK 2P AC 

ERASE 

0462 

107  A 

1076 

P1SAVE 

E>  ASE 

R04'.,3  I KU  CGMPENS AT  I 3 UNS.  ITCHED  ERASABLE. 

046'  1075  1075  1 / P J PADT  EF\SE 

A 04  6 6 

R 0467  SINGLE  PRECISION  SUBROUTINE  TEMPORARIES. 

0445  1076  1076  TEMK  ERASE 

0470  1077  1077  SO  ERASE 

A 0471 


R 047  2 UNSWI  THED  RADAR  EP  AS  ABL  E 


0476 
0A7  5 

0A7  6 

0477 

0478 
047  9 
04  8 0 
0431 
04a2 
0483 
0486 


REF 

pF 

o EF 

REF 


1100 

1101 

1105 

1 1101 

1107 

1 1107 

11  11 

1 1111 

1113 

1 1113 

1114 


1100  SAMFLIM 
1 1 04  SA"iH  SU- 

ll  06  TIMEH«i|_D 

RRTARGET 
1110  TANG 
MO  0 E A 

1112  MODES 
NSAMP 

1113  DFSRET 
OLDAT  AGO 

1114  DESCOUNT 


ERASE 
ERASE  +3 
El  ASF  +1 
EQUALS  SAM PL  SUM 
ERASE  +1 
EQUALS  TANG 
ERASE  +1 
EQUALS  MODES 
ERASE 

EQUALS  DESRET 
ERASE 


P.  04  8 5 p 2 2 « if  $ # # 

0487  REF  1 1101  RSUBC  EQUALS  RRTARGET 

A 048  8 
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USFR  • S PAGE  NO.  14  EO  S.4 

B ( 1 ) PROBABLY  FOR  DISPLAY  DURING  SERVICER 


(ID) 


( 2D  ) 

( I ) 

( 1 ) 


( 13D) 


HALF  U IT  VECTOR  IN  SM  OR  NB  AXES. 
DESIRE  TRUNNION  AND  SHAFT  ANGLES. 

DODES  LOBBEFS  TANG  +2. 


USED  I DATA  READING  ROUTINES. 


( 50) 


II61S-S  C cr:  POSITION  VEC1 


GAP 


ASSEMBLE  i , E V I S 1 3 N 0C1  OF  AGC  PRQGR  AM  AP11NCPE  BY  EYLES 


L EKASARI  E ASSIGNMENT? 

P 0489  UNSWITCHED  FOR  ORBIT  INTEGRATION. 

ERASE  + 2QD 
EQUALS  TDEC  +2 

EQUALS  COL  2 EG  +1 

EQUALS  LAT  +2 

EQUALS  LONG  +2 

EQUALS  ALT  +2 

EQUALS  YV  +6 

A 049  8 

P04QC  MI  SCSI.  LANEOUS  UNSTITCHED. 


0491 

1115 

1141 

TDEC 

0492 

P EF 

1 

1117 

CPLKEG 

049  3 

P EF 

1 

1120 

LAT 

049  a 

RFF 

1 

1122 

L ONG 

049  5 

REF 

1 

1124 

ALT 

0496 

REF 

1 

1 126 

YV 

0497 

REF 

1 

1134 

ZV 

0501 

0502 

0503 

0504 
05  08 

0506 

0507 
0508, 
0509 
05  1 0 
0611 

0512 

0513 
051  a 


1142 

1143 

1144 

114  5 

1 ] 66 

1142 

1 143 

1144 

1 145 

I 146 

P40/P.ET 
GENRE! 
OPT  I ON  1 
0PTIPN2 
n p T T DMT 

ERASE 
ERASE 
ERASE 
ER  ASE 
a S g 

1147 

1150 

' I 1 1 U!'I  J 

LONGCADR 

ERASE 

+ 1 

1151 

1152 

LCNGBASE 

ERASE 

+ 1 

1153 

1154 

LQNGT IME 

ERAS  E 

+ 1 

1 155 

1155 

CDUTEMPX 

EF  ASE 

1156 

1156 

CDUTEMPY 

ERASE 

1157 

1 157 

COIJTFMPZ 

ERASE 

l 160 

1160 

PIPATMPX 

ERASE 

1161 

l 161 

PIPATMPY 

ERASE 

1162 

1 L62 

PIPATMPZ 

ERASE 

0515 

0516 
051? 


1163  1163 
116A  1164 
1165  1165 


DISPDEX  ERASE 
TEMPR60  ERASE 
PRIOTIME  ERASE 


R 051  f.  P27  (UPDATE  PROGRAM  ) STORAGE. 


0520  1166  1166  UPVERBSV  ERASE 

°521  1167  1217  UPTEMP  ERASE  +240 

0522  REF  1 1167  INTKAK1Q  EQUALS  UPTEMP 

R0523  RETAIN  THE  ORDER  OF  CCMPMJMB  THRU  UPBUFF  + 15D  FOR  00WNL1AK  PURPOSES. 


0524 

R FF 

2 LAST  104 

1 170 

COMP  N UM  B 

EQUALS 

UPTEMP  +1 

052  5 

REF 

1 

1 171 

U POL DMO D 

EQUALS 

COMP  NUMB1 

+ 1 

0526 

REF 

1 

117  2 

UPVEP 8 

EQUALS 

UPOL DMOD 

+ 1 

0527 

P EF 

1 

1173 

UPCOUNT 

EQUALS 

UPVERB 

+ 1 

0528 

REF 

I 

1 174 

UPBUFF 

EQUALS 

UPCOUNT 

+ 1 

A 052  8 


R 0530 

0532  REF 
A 0533 


SPECIAL  DEFINITION  FOR  SYSTEM  TEST  ERASABLE  PGMS. 

LAST  104  1167  EBUF2  EQUALS  UPTEMP 


3:15  DEC.  2,1970  LUMER ASE . 120  PAGE 
USER'S  PAGE  NO.  15  EO  S4 


104 


( 21D) 

1(2) 

1(1) 

1(2) 

1(2) 

T (2  ) 
1(6) 
1(6) 


( 20D ) 

(WILL  BE  PUT  IN  E6  WHEN  THERE  IS  ROOM) 
B(l)  R6I  RETURN  CADR. 

B(l)  I TUN  C6  USES  T H I S 
B( 1 ) NOUN  06  USES  THIS 
B(l)  NOUN  06  USES  THIS 
B ( 2 ) LONGCALL  REGISTER 

B ( 2 ) LONGCALI.  REGI  STER 

B ( 1 ) T MP 

0(1) TMP 

B ( 1 )Tmp 

|(  1 ITMP 

R ( 1 ) TMP 

B ( 1 ITMP 

B ( 1 ) 

B ( 1 ) 

B ( 1 ) 


( 26 D ) 

B(l)  UP  D AT  E VERB  ATTEMPTED. 

B ( 1 ) TM  P SCRATCH 

(BORROWS  UPTEMP  REGISTERS) 

BtllTMP  NUMBER  OF  ITEMS  TO  8E  UPl  INKED 
B ( 1 ) T M P INTERRUPTED  PROGRAM  MM 
B(1)TMP  VERB  NUMBER 
B ( 1 ) TMP  UPBUFF  INDEX 
B ( 2 OD  ) 


( 2D) 

8(2)  FOP  EXCLUSIVE  USE  OF  SYSTEM  TEST 


GAP:  ASSEMBLE  ,L  V IS  I3N  001  OF  AGC  PROGRAM  APllnGPE  BY  EYLES  3:  15  DEC.  2,1070  LUMERASE . 120  PAGE 
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P 0534  PERM  STATE  VECTOfS  FOR  BOOST  AND  DfWNL INK-WHOLE  MISSION-  (14D) 


G53b 

1220 

1225 

RN 

ERASE 

65 

B( 6) PRM 

0537 

1226 

1233 

VN 

ERASE 

+ 5 

B ( t )PPM 

0538 

1 2 3 

1235 

PIP"  I ME 

E A S E 

+ 1 

B ( 2 ) p R M (MUST  BE  FOLLOWED  BY  GDT/2) 

R 0539 


SERVICER  -MUST  FOLLOW  PIPTIME- 


( 19D ) 


056  1 
0542 
056  3 
0544 

056A 

0547 

0548 

054  9 

0550 

0551 

0552 

055  3 
0556 


PEF  1 

REF  1 

REF  2 LAST 

PEF  1 

REF  1 

REF  l 

nEF  1 

PEF  2 LAST 

REF  1 

REF  1 

REF  1 

REF  1 


1 236 
1264 

1244 

105  12'  6 

1247 

1251 

1252 

125  2 

I 12*4 

1255 

1256 

1257 

126  0 


1261 


GDT/2  ERASE 
MASS  EQUALS 

WEIGHT/G  = 

ABDEL V EQUALS 
PGUIDE  EQUALS 
DVT!  USH  EQUALS 
AVEGEX1 T EQUALS 
AVGEXIT  = 

TEMX  EQUALS 

TEMY  EQUALS 

TEMZ  EQUALS 

P,PAGE  LQUALS 
LUTE  (MITE  EQUALS 


+ 19D 

GDT/2  +6 
M AS  c 

MASS  +2 

ABDELV  +1 
PGUIDE  +2 
DVTHRUSH  +1 
AVEGEX  I T 
AVEGFXIT  +2 
TEMX  +1 

TEMY  +1 

TEMZ  +1 
PIPAGE  + 1 


B { 6 ) T MP  (MUST  FOLLOW  PIPT!ME 
B ( 2 > 

ALCMANU  STORAGE) 

(2) 

( 1 ) 

(2) 

( 1 ) 

( 1 ) 

( 1 ) 

B ( 1 ) 

B ( 1 ) 


) 


A ■ 


R0556  PERMANENT  LEM  DAP  STORAGE. 


( 120) 


0558 

0559 

0560 

0561 

0562 
A 0563 
A 0544 
A 05  6* 
A 056  6 
A0567 
A 05b  3 
A 0569 
A 05  70 
A0571 
A0572 
A0573 

0576 

A057C 


1262  1262 

1263  1263 

1264  1271 

1272  1272 

1273  1273 


CH5MASK  ERASE 
CH6MASK  ERASE 
DTHETASM  EF ASE 
SPNDX  ERASE 
RCSF LAGS  ERASE 


1274 


1275  T 5 ADR 


ERASE  +1 


B(  UPRM 

B ( 1 ) PP  M JET  FAILURE  MASK. 
(6) 

B ( 1 ) 

AUTOPILOT  FLAG  WORD 


BIT 

ASSIGNMENTS: 

1 ) 

A 1 TER YZ 

SWITCH 

( ZERO OP  1 ) 

2) 

NEEDLER 

SWITCH 

3) 

N EEDLER 

SWITCH 

4) 

NEEDLER 

SWITCH 

5) 

NEEDLER 

SWITCH 

9) 

JUST-IN 

-DETENT 

SWITCH 

10! 

PBIT  - 

MANUAL  i 

CONTROL 

SWITCH 

11) 

QRBIT  - 

MANUAL 

control 

SWITCH 

12) 

PSKIP  C 

ONTROL 

(PJUMPADP ) 

13) 

1 /ACC JO 

B CONTROL  (ACCS 

ET  ) 

GENADP  OF  NEXT  LM  DAP  T5RUPT.  * 2CADR 
RBCON  OF  NEXT  LM  DAP  T5P.  UD  T . 2CADR 


R057-l  * ERASABLES  FOR  P64:  OVERLAY  OF  DTHETASM,  WHICH  IS  UNUSED 

05753  *REF  1 1264  ZERLINA  EQUALS  DTHETASM 


(4Q) 

B ( 1 ) P 64 


105 
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05754 

*R  E F 

1 

1265 

ELVIRA 

EQUALS 

ZERL INA 

+ 1 

6(1) 

P 64 

05755 

*REF 

1 

1266 

AZ IMCR1 

EQUALS 

ELVIRA 

+ 1 

B ( 1 ) 

P 64 

05756 

*R  EF 

1 

126  7 

EL  I NCR  1 

EQUALS 

A Z I NCR  1 

+ 1 

B<  1 ) 

P 64 

A 057  5 7 * 


R 057^ 
0578 


RCS  FAIlitRE  MOWTTPR  STHFAGE. 

1276  1276  PVALVEST  ERASE 


( 1 ) 

8(1)  PPM 


R 057  ? 

KALCMANU/DAP  IN' ERFACE. 

( 3D] 

1 

0581 

1277 

1277 

DELPEROR 

ERASE 

Bill 

1 P p M COMMAND  LAGS 

0 58  2 

1300 

1300 

DELOEROR 

ERASE 

Bill 

1 PRM 

0583 

1301 

1301 

DELL EF OR 

ERASE 

b<  i : 

1 P P M 

R05R^ 

MBDE 

S H T TC  f 

1 JHG  EPASABL 

E. 

P 05  Q6 

RETAIN 

THE 

ORDER 

CF  I MODES30 

AND  I M ODES  33  FOF 

0587 

1302 

1302 

I MUUES30 

0588 

130  3 

1303 

I MODE  S3  3 

053° 

1306 

1 306 

MODECADR 

05<?0 

REF 

1 

1 39  4 

IMUCADR 

0591 

REF 

2 

LAST 

106 

1305 

OPTCADR 

0592 

REF 

3 

LAST 

106 

1306 

R ADC  ADI 

0593 

13C7 

1311 

ATT  CADE. 

0594 

REF 

1 

1311 

ATT  PR  10 

0595 

1312 

1312 

MARK  ST AT 

R 0596 

T4RUPT  ERASABLE. 

0598 

] 91  1 

1313 

n <:  r 1 1 o t c:  u 

1 D 1 ~> 

UjMJi  f ^ w 

0599 

13  14 

1314 

LCYRC 

R 0600 

RENDEZVOUS 

radar  task 

STUR AGE 

0602 

1315 

1317 

RRPET 

C603 

REF 

1 

1316 

PDES 

0604 

REF 

1 

1317 

RR INDEX 

A 06  0 5 

R 0606 

MEASINC 

0608 

1320 

1320 

W IX  A 

060° 

1 32  1 

1321 

WI  XB 

061  0 

13?? 

1322 

L IXA 

0611 

1323 

1323 

ZI  XB 

(9D) 


DOWNL I 

NK  PUPPOS 

ES  . 

ERASE 

Bl 

: i 

) 

ERASE 

ERAS  E 

+ 2 

B ( 

3 

)PPM 

EQUALS 

MODECADR 

EQUALS 

MODECADR 

+ 1 

EQUALS 

MODECADR 

*2 

EF  ASE 

+ 2 

Bl 

; 3 

(PPM 

= 

ATTCADR 

+ 2 

EE  ASE 

( 2D) 

ERASE 

ERASE  (1) 


( 3D  ) 


ERASE 

+ 2D 

B { 1 

) T MP  P20'S,  PEPHAPS  P,  29  C R12 

EQUALS 

RRRET 

+ 1 

B ( 1 

) TMP 

EQUALS 

8 DES 

+ 1 

8(  1 

)TMP 

( 4D  ) 

ERASE 

B ( 1 ) 

ERASE 

B ( 1 ) 

ERASE 

B(  1 ) 

ERASE 

B(l) 

106 


GAP: 


R0612 

©614 


R 06  1 6 

0617 
06  IP 
061 Q 
0620 
P 062  1 

R 062  2 

P 0624 
R 067  6 

R 0626 

0627 

062  p 

0629 
067  0 

0631 

0632 

0633 

P 06  3* 

0636 

0637 


R063P 

0640 


R 064 1 

0643 

0644 

0645 
A 064  6 


R 0647 
064  9 


ASSEMBLE  RE  VI SI  JR  001  P A6C . PROGRAM  AP11-GPE  BY  EYLES 

ERASABLE  ASSIGNMENTS 

AGS  DUMMY  ID  WORD. 

1324  1324  AGSWOn>D  ERASE 
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USER'S  DAGE 
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( ID) 


SOME  MISCELLANEOUS  UNSWTTCHED. 


6D ) 


LFSS  TS  ‘'ORE. 


1325 

1325 

RATE INDX 

E ‘ A ' E 

1326 

1330 

DELAYLOC 

ERASE 

1331 

1331 

L EMM  ASS 

ERAPE 

1332 

1332 

C SMI-1  ASS 

ERASE 

LANDING 

F A OAR 

DOWNLINK  STORAGE. 

( 1 ) USED  BY  K ALCMANU 
KEEP  C3N riGUOUS  W.  CSMMASS  (l)EACH 

( 7D  ) 


IN  IF  M ALLY  USED  DUPING  P20,  BUT  MAY  ALSO) 
(BE  REQUIRED  FOR  THE  V62  SPURIOUS  TEST.) 


(PLEASE  KEEP  IN  THIS  OLDER) 


1333 

1341 

DNRF ANGE 

ERASE 

+ 6 

B ( 1 ) TMP 

REF 

1 

1334 

DORR  DOT 

equals 

ONF  RANGE 

+ 1 

BI1) TMP 

REF 

1 

1335 

DNTDOEX 

EQUALS 

DNS ROOT 

+ 1 

3 ( L ) T H P 

REF 

1 ^36 

DNLPVELX 

EQUAL  S 

nw iwnf y 

13/  I )TWP 

Ul'l  i iNL/CA 

- l 

D \ L / ! rl  r 

REF 

1 

1337 

DNLF  VELY 

EQUALS 

DNLRVELX 

+ 1 

B ( 1 ITMP 

REF 

1 

1340 

DNLRVELZ 

EQUALS 

DNLRVEL Y 

+ 1 

B ( 1 ) T M P 

REF 

1 

1341 

DNLRAL.  T 

EQUALS 

DNLRVELZ 

+ 1 

B ( 1 ) TMP 

P'Cn-Pir  AT’'  | Uwf- WITCHED.  (2D) 


REF  2 LAST  105  1257 

REF  1 1260 


W.IND  EQUALS  PIPAGE  B ( 1 ) 

W.IND1  EQUALS  W.IND  +1  1(1) 


SOAR  OUT t V C HAIL  A N G S C F r 6 0 . 


( ID) 


1342  1342  BALLEXIT  ERASE 


B(1)SAVF  LOCATION  FOR  BALLINGS  SUBR  EXIT 


SOME  1.  EM  DAP  'I'"'  - AGP. 

134  5 

1343 

DAPDATR1 

ER 

1344 

1345 

TE  VENT 

ER 

1346 

1346 

DB 

ER 

(4D) 


ASE 

ASE 

+ 1 

8 ( i : 
B ( 2 ] 

1 DSP 

1 DSP 

DAP  CONFIG. 

ASE 

B ( 1 

ITMP 

DEAD  BAND. 

NOUN  fi-7 


( 2D) 


1347  1350  AZ 


ERASE  + 1 D 


B { 1 > AZ  AND  EL  MUST  BE  CONTIGUOUS 


GAP 
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L ERASABLE 

ASSIGNMENTS 

EL 

USER'S  PAGE  NO.  19  EO  S4 

0650  REF 

A 0651 

1 

1350 

EQUALS 

AZ  + 1 D 

B ( 1 ) 

R 065  2 

Pfc  3 , P 64,  P65, 

P66 , AND 

P67. 

(ID) 

06  5 A 

135  1 

13  51 

WCHPHASE 

ERASE 

B<  1) 

A 065  c 

R 065  52  ERA SABLES 

FOR  THE  R2  LUNAR  POTENTIAL 

MODEL 

( 2D  ) 

06556 

1352 

135? 

E3J22R2M 

EPASE 

1(1) 

06558 

13  c 3 

1353 

1 32C31RM 

ERASE 

1(1) 

A065  5 <? 

065551* 

1 3 5 A 

1355 

RADSKAL 

ERASE 

+ 1 

LR  ALT  DOPPLER  BIAS  : 2T /LAMBDA  SCALED 

A065592* 

AT  1/12(7)  M/CS) 

065593* 

1356 

1356 

SKALSKAL 

ERASE 

LR  ALT  SCALE  FACTOR  RATIO  : .2  NOM 

0656 

1357 

END- UE 

EQUALS 

NEXT  UNUSED  UE  ADDRESS 

R065  7 

SELF-CHECK  A IG  'ENTS. 

( 17  D ) 

P 065  c 

(00  NUT 

MOVE,  S- 

C IS  ADDRESS  SENSITIVE) 

0660 

1357 

1377 

selferas 

ERASE 

1357  - 1377 

***  MUST  MOT  BE  MOVED  *** 

0661 

REF 

1 

1357 

SFAIL 

EQUALS 

SELFERAS 

B ( I ) 

0662 

REF 

1 

1360 

ERESTORE 

EQUALS 

SFAIL 

+ 1 

Bll) 

0663 

R ET 

1 

1361 

S EL  FF  ET 

EQUALS 

ERESTORE 

+ 1 

B ( 1 > RETURN 

06  6 A 

REF 

1 

1362 

smode 

EQUALS 

SELFR'ET 

+ 1 

Bll ) 

066  5 

R FF 

1 

13  6 3 

AL MC ADr 

F n i i a i c- 

t;  |Y,n  0 £7 

+ 1 

B ( 2 ) AL  ARM-A BOr  T USER'S  2CADP 

L W U H L O 

0666 

REF 

1 

1365 

ERCOUNT 

EQUALS 

ALMCADR 

+ 2 

Bll) 

0667 

REF 

l 

1366 

SCOUNT 

EQUALS 

ERCOUNT 

+ 1 

B ( 3 ) 

0668 

REF 

1 

1371 

SKEEP1 

EQUALS 

srniiNT 

Dll  I 

Dll/ 

0669 

REF 

1 

1372 

SKEEP2 

EQUALS 

SKEFP1 

+ 1 

Bll  ) 

0670 

REF 

1 

1373 

SKEFP3 

EQUALS 

SKEEP2 

+ 1 

Bll) 

0671 

REF 

1 

1 37A 

SKE6P4 

EQUALS 

5KEEP3 

+ 1 

Bll) 

0672 

REF 

1 

1375 

SKEEP5 

EQUALS 

SKEEPA 

+ 1 

Bll) 

0673 

REF 

1 

1376 

SKEEP6 

EQUALS 

S K E E P 5 

+ 1 

Bll) 

0674 

REF 

1 

1377 

SKEEP7 

EQUALS 

SKEEP6 

+ 1 

Bll) 

GAD  : aVGE  >Hl  E £ V i A EUROPE  BY  E Y!  E S 


3:15  DEC 


2,1970 


LUM ERASE • 120 
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P 0675 

EBANK-3  ASST 

GNMENTS 

c, c t i nr 

06)76 

E 3 , 1400 

at  1 L.  ij  L 

I U U 

R 0677 

WAITUST  TASK  LISTS 

• 

I 26D ) 

067R 

E 3 , 1400 

E 3 , 1407 

l ST  1 

ERASE 

+ 7 

BIBO)  PPM 

DELTA 

T S. 

0680 

E3  , 1410 

E3 , 1431 

L ST  2 

ERASE 

+ 17D 

B I 1 8D  I PRM 

TASK 

2C  ADR  ADDRESSES. 

R 06  8 1 

RESTS f T STORAGE. 

I 2D! 

0683 

E3 , 1432 

E 3 , 1433 

RSBBQ 

ERASE 

+ 1 

BI2IPRM  SAVE  BB 

AND  Q FOR  RESTARTS 

R 06  8 * w5'r  E 1 'GCAL  l • " A ■ E . < MUS  ■ BE  IN  i r 1 S BANK.  ! 2D  ) 

0686  E3,14BA  E 3 > 1 * 3 5 LOGEXIT  ERASE  +1  8(2)TMP  MAY  BE  SELDOM  OVERLAYED. 


RQ637  PHASE-CHANGE  LISTS  PART  II. 


( 1 2 D ) 


063° 

0690 

0691 

0692 

0693 

OfcO/; 

06  95 

0696 

0697 
06  9 f 
06=>o 
070  0 


E 3,  16  3 6 £3,1436 

E 3,  1437  E 3 , l 4 3 7 
F3 , 1440  E 3 , 1 440 
E 3,  16-41  E 3,  1441 
E 3 , 16-42  £3,1 442 

E 3 , 1 A /;  3 E 3 , 14  6 3 
E 3 , 16-44  E 3 , 1446 
F3,1445  E3 , 1 6-45 
E3 , 1446  E 3 , 1446 
§3,1447  E3 , 1447 
£3,1450  £3,1450 

E 3,  1451  E 3 , 1 4 5 1 


PH  SNA  "ip  l E.-ASE 
PH'S  EM  ERASF 
PHSMAMF2  ERASE 
PHSBB2  ERASE 
PHSNAME3  ERASE 
PHSB83  ERASE 
PHSNAME6  !-•  ASE 
PHS9B4  E!:  AS  E 
PH SN  A ME  5 EF  ASE 
PHSBB5  ERASE 
PHSNAME6  ERASE 
PH  SB  8 6 E)  A St: 


8 (1)  P F M 
B I 1 IPRM 
B I 1 ) P P M 
B(l)  PPM 
B(  1IPPM 
B ( 1 ) P c M 
BIDPRM 
B<  1 )PPM 
B ( 1 ) P PM 
B!  1 IPRM 
B(l) PRM 
B ( 1 ) P PA 


R 07  01 


IMU  COMPENSATION  PARAMETERS. 


( 2 2 D ) 


0703 

0704 

REF 

0705 

0706 

REF 

0707 

0708 

0709 

0710 

£3,1452 
E3, 1452 

E 3 , 1 4 5 3 
£3,  14p  3 

£3,1452 

E3 ,1453 

PBI ASX 

P IPABI AS 
PI PASCFX 
P I D A SC  F 

ERASE 

ERASE 

£3,1454 

E3, 1454 

PBI ASY 

ERASE 

E 3 , 1455 

F3 ,1455 

PI PASCFY 

ERASE 

£3, 1456 

E3 , 1 4 5 6 

PBIASZ 

ERASE 

£3,1457 

E3 ,1457 

PI PASCFZ 

E R ASE 

Bill  PI  PA  BIAS 
°B  I ASX  INTERMIXED. 

PIPASCFX 


PIPA  SCALE  FACTF:  TERMS 


0711  E 3, 1460  E3 , 1 460  NBDX 

0712  E 3, 146  1 E3 , 1 46 1 NBDY 

0713  E 3 , 14  62  E3.1462  NBDZ 


EFASE  GYRO  BIAS  DRIFTS 

ER  ASF 

ERASE 


GAP:  ASSEMBLE  REVISION  001  OE  ASC  Hi  AN  AP111  UPE  BY  EYLE3 


3 


L 

07 1 A 

0715 

0716 

0717 
07  IP 

0719 

0720 

0721 

0722 


0723 
A 0724 


R0725 

R 0727 
R 07  2 6 
R 0729 
R 07 30 
R 073  1 
R 073  2 

0733 

R0734 

0735 

0736 

0737 
073R 
073° 

0740 

0741 
07^2 

0743 

0744 

R 0745 
R 0747 
0074  P 

074° 

0750 

0751 


ERASABLE  ASSIGNMENTS 


°EF 

REF 


E3  , 1463 

E 3 , 1464 

F 3 . 146  6 

E3 , 1463 
E3 , 1464 
E3 , 1465 

ADI  AX 
ADI  AY 

AD  I AZ 

L 7»  i ->  V J 

E 3 , 146 6 

E3 ,146c 

AD  SR  AX 

F 3 , 1467 

E3, 1467 

ADSL  AY 

E3, 1470 

F3 , 1470 

ADSRAZ 

E 3,  1471 

E3 , 1 476 

GCCf-l  P 

E3, 147  1 

COMMAND 

£3 , 1476 

coin  NO 

E 3 , 1477 

E 3 , 1477 

GCOMPSW 

ERASE 

ERASE 

ERASE 

EP  ASE 
ERASE 
ERASE 

ERASE  +5 

EQUALS  GCOMp 
EQUALS  GCOMP  +3 


ERASE 


STATE  VECTORS  FOR  ORBIT  INTEGRATION. 


(OIFEQCNT  THRU  XKEP  MUST  BE  IN  SAME 
EBANK  AS  RRECTCSM,  ECTLE"  ETC 
BECAUSE  THE  COPY-CYCLES  (ATOPCS-1, 
PTOACSM  ETC)  ARE  FXECUTED  IN  BASIC. 

ALL  OTHER  REFERENCES  TO  THIS  GROUP 
ARE  BY  INTERPRETIVE  INSTRUCTIONS.) 


E 3 » 1 5 0 0 F 3 » 1 5 5 3 OIFEQCNT  ERASE  +430 

(UP"VFLAG...XKEF  MUST  BE  KEP~  IN  ORDER) 

REF  I 
REF  I 
REF  1 
RFF  1 
REF  I 
REF  1 
RFF  1 
REF  1 
REF  1 
RFF  1 

PERMANENT  STATE  VECTORS  AND  TIMES. 

(DO  NOT  OVERLAY  WITH  ANYTHING  AFTER  BOOST) 


E3,  150  1 
E3, 1502 
E3,  1510 
E3, 1516 
£3,1520 
F 3 , 1526 
E3 , 1534 
E3 , 1542 
E 3 , 1 5 5 0 
E 3 ,1552 


UP  SV  FLAG 

EQUALS 

OIFEQCNT 

+ 1 

RRECT 

EQUALS 

UPSVFLAG 

+ 1 

VREC  T 

F 01  i A 1 S 

>■  RECT 

+ 6 

TET 

EQUALS 

VREC  T 

+ 6 

TDELTAV 

EQUALS 

TET 

+2 

TNUV 

EQUALS 

TDEI  TAV 

+ 6 

RCV 

EQUALS 

TNUV 

+ 6 

VCV 

EQUALS 

RCV 

R6 

TC 

EQUALS 

VCV 

+ 6 

XKEP 

EQUALS 

TC 

+ 2 

REF 


<:  FC . ..XKEPCSf  US!  BE  KEPT  1 ■ THIS  C Dl  ) 

E 3 , 1554  £3,1561  RPECTCSM  ERASE  +5 

£3,1554  RRECTOTH  = RRECTCSM 

63,1562  E 3 , 1 567  VRECTCSM  ERASE  +5 


15  DEC.  2,1970  LUMERASE .120  PAGE  110 

USER'S  PAGE  NO.  21  EO  S4 

ACCELERATION  SENSITIVE  DRIFT  ALONG  THE 
INPUT  AXIS 

ACCELERATION  SENSITIVE  OP  I F T ALONG  THE 
SPIN  P EP£C  ENCE  AXIS 


CONTAINS  COMPENSATING  TORQUES 


( 44  D ) 


B(l) 


B ( 1 ) 

B ( 6 ) 

B { 6 ) 
B<  2) 
Bf  6 ) 
B(6  ) 
816) 

B 1 6 ) 

B ( 2 ) 

B ( 2 ) 

( 99 D ) 


B ( 6 ) PR  M CSM  VARIABl ES. 


B ( 6 ) PFM 


GAP:  ASSEMBLE  FV1SI0N  001  OF  AGC  PROGRAM  aPHROPE  BY  EYLES 


3:15  DEC 


2, 1970 


LUMERASE.120  PAGE  111 


L.  ERASABLE  ASSIGNMENTS 


USER’S  PAGE  NO.  22  EO  S4 


0752 

0753  REF 
0734 

075  3 

0756 

0757 

0758 

0759 


F3.1570  E3 , 1 57 1 
E 3 i 1570 

£3,1572  £3,1577 

E 3 , 1 0 C £3,1605 
E 3 , 160  £ £3,1-1? 

£3,1613  F3 , 16  21 
E 3 , 16  2 2 E3 , 1623 
E 3 , 16  24  £3,1625 


TETCSM  ERASE 
TETOTHEP.  = 
DELTACSM  ERASE 
NUVCSM  ERASE 
R C VC  SM  ERASE 

VCVCSM  ERASE 
TCCSM  ERASE 
XKEPCSM  ERASE 


+ 1 

TETCSM 
+ 5 
+ 5 
+ 5 
+ 5 
+ 1 
+ 1 


B( 2 ) PFM 

B ( 6 ) P R M 
B ( 6 ) P F M 
B ( 5 ) P F M 
R<6 )opM 
B ( 2 ) P P M 
B ( 2 ) PRM 


R 07t>0  ( REC’LF'  . ..XKEPIEM  MUST  BE  KEPI  IN  THIS  CODER) 


0761 

0762  REF  1 

0763 

0764 

0765  REF  1 

076  6 

0767 

0768 

0769 

0770 

0771 


E 3 , 1626 

E 3, 1 633 

F 3 , 1626 

E3 , 1634 

E3 , 1641 

E3 , 1642 

£3,1643 

E3, 1642 

E 3 , 1644 

E3 ,1651 

E3 , 1652 

E3 ,1657 

E 3 , 1660 

E3, 1665 

E 3 , 1666 

E3, 1673 

E3 , 1674 

E3 , 1 o 7 5 

E 3, 1676 

E3, 1677 

F.  RECTI  EM 

ERASE 

+ 5 

RR  ECTHI S 

= 

RRECTLEM 

VP  EC T I.EM 

ERASE 

+ 5 

TETLEM 

ERASE 

4-  1 

7ET7HIS 

= 

TETL EM 

DEI TAL  EM 

ER  ASE 

+ 5 

MIIVI  PM 

FP  ACC 

+ p 

V TT  ■ I 

L “ H j L 

RCVLEM 

ERASE 

+ 5 

VCVL EM 

ERASE 

+ 5 

T CL  EM 

FRASE 

+ 1 

XKEPLEM 

ERASE 

+ 1 

R ( 6 ) P F M LEM  VARIABLES 

B ( 6 ) P F M 
B(2 ) PRM 

B ( 6 ) P R M 
B { 6 ) P RM 
B ( 6 ) P RM 
B I 6 ) P RM 
B ( 2 ) P F M 
8!  2 >PRM 


0772 

F 3 , 1700 

0773 

E 3 , 1706 

0774 

E 3 , 1711 

0775 

E 3 , 1713 

0776 

03, 1^15 

A 0777 

E3 , 1705 

X789 

ERASE 

+ 5 

E3, 1710 

TEPHEM 

ERASE 

+ 2 

E3, 1712 

AZO 

ERASE 

+ 1 

E3,  1714 

-AYD 

ERASE 

E 3 , 17  1 6 

AXO 

ERASE 

R 0778 

STATE  VECTORS  FOR  DOWNLINK. 

( 12D) 

0780 

F 3 , 1 7 1 7 

E3, 1724 

- 

Ep  AS  E 

+ 5 

B ( 6 ) P F M PCS 

VECT 

( T IE 

VECH) 

FOF 

DNLINK 

0781 

E3,  1725 

E3, 1732 

V-OTHFR 

ERASE 

+ 5 

B ( 6 ) PRM  VEL 

VECT 

( OTHER 

VECH) 

FOR 

DNL INK 

0782 

REF 

2 LAST  111 

F3 , 1570 

t-other 

= 

TETCSM 

TIME 

( OTH  EP 

VECH) 

FOR 

DNLINK 

o 0783 

REFSMMAT . 

( 180) 

0785 

E3 , 1733 

F3 , 1 756 

REPSMMAT 

EF  ASE 

4-170 

1 (180) PPM 

R 0786 

AC  TVE  VEHICLE  CENTANG.  MUST 

BE  DISPLAYED  ANYTIME  (ALMOST.) 

(2D) 

078p 

£3,1755 

E 3 , 1 7 5 6 

ACT GENT 

ERASE 

+ 1 

1(2)  S-S 

CENTRAL 

ANGLE 

BETWEEN 

A C T I V F 

A 078c 

VEHICLE 

AT 

TP! 

TIG  AND 

TARGET 

VECTOR . 

R 0790 

****  USED  IN 

CON  ICS  EX 

(PLAN  INERT 

ORIENT)  * 

*** 

GAP:  ASSEMBLE  REVISION  001  OF  AGC  P.  HOKAM  AP11RDPE  BY  EYLES 

L ER  ASABLE  ASS  IGNMENTS 

0791  REF  1 E 3 t 1706  TIMSUBO  EQUALS  TEPHEM 

A 0792 


R 07  9 3 


LPS20.1  ST.-AGE  -ALL  A E PR'  - 


979* 

0796 

0797 
A 079  8 

R979C 

0891 

A0802 

R 0803 

OBOE 
080  a 

0807 

0808 
A 3 


p i f 


4**4*  P22 
1 


■if  If*** 


£3, 17*7 

E3 ,1757 

LS21X 

Ep  ASE 

E3, 1760 

E 3 , 1765 

LOSVEL 

ERASE 

E 3,  1766 

E3, 1767 

MLOSV 

ERASE 

(OVERLAYS  LPS  20. 

1 STORAGE ) 

E3, 1760 

VSIJBC 

EQUALS 

A S A 01  F,  S 

F Of  P 20/P  22 

E3,  1770 

E3, 1771 

ANGEVAR 

erase 

£3,1772 

E3 , 1 773 

RATE VAR 

erase 

E 3 , 1774 

E3 , 1 774 

F VAR “IN 

El  A " E 

E 3 , 1775 

E3, 1775 

WAR  MIN 

ERASE 

+ 5 
+ 1 


+ 1 
+ 1 


R 08  1 0 

f'32-9 33  STf , AGE 

0812 

A 08 1 3 

E3, 

0814 

E 3 , 

E 3 , 1777 

TCDH 

ERASE 

+ 1 

EHD-E3 

EQUALS 

1777 

1776 

1777 


3:13  DEC 


2 r 1970 


L UNERASE. 120  PAGE  112 


USER’S  PAGE  MO.  23 


EO  S4 


CS  EC  B— 42  (TP  I PL  E PRECISION) 


( 9D  ) 

1(1) 

1(6) 

1(2)  MAGNITUDE  OF  LOS,  METERS  B-29 


( 6D ) 

1(a) S-S  CSM  VELOCITY  VECTOR 


( 60) 

1(2)  FT  RANGE  ERF’ OF  VARIANCE 
1(2)  RR  RANGF-RATE  ERROR  VARIANCE 
1(1)  MINIMUM  RANGE  ERROR  VARIANCE 

1(1)  MINIMUM  range-rate  error  variance 


(2D) 

1(2)  T2  CDH  TIME  IN  CS.  (ALSO  DOWNLINKED 


77  LAST  LOCATION  USED  IN  E3  ** 


GAP:  ASSE  'at  E KE  VIS  1 3N  001  OF  AGO  PROGRAM  AP11RGPE  BY  EYLES 


3: 15  DEC 


L 

P 08 1 5 
0816 


S 081  7 
0818 


R081- 

0821 
0822 
0823 
082 ' 
082  6 
082t 


F 0 82  7 

082  0 
083  0 
A 083  1 

P 0832 

0834 
083  ^ 


R 083  6 

08  3 8 
A083« 

R 0840 

0842 


R 0843 

0845 
A 084  6 

R 0847 

084Q 


LUMERASE .120  PAGE  113 
NO.  24  EO  54 

EBANK-4  ASSIGNMENTS 

£4,1400  SETLOC  2000 

E-  Ic  , FO r THE  MncT  PA  T "FSEi'/EO  EC'-  PAD  LOADED  AND  UNSHAKABLE  ERASE. 

E4 , 140  0 AMEMORY  EQUALS 


ERASABLE  ASSIGNMENTS 


. 2,1970 

USEr  • S PAGE 


P20  ■ AGE.  -r  AD  Li  AOED-  ( 60) 


E4, 1400 

E4, 1400 

WP ENDPOS 

ERASE 

B ( 1 ) P L 

KM*2( -7 ) 

E4 ,1401 

E4 , 1401 

WRENDVEL 

ERASE 

B ( 1 ) P L 

KM(-l/2)*2( 11 ) 

E4, 1402 

E 4, 1402 

WSHAFT 

ERASE 

B ( 1 ) P L 

K.M*?<  -7) 

E4 , 140  3 

S4 , 1403 

WTRUN 

FRASE 

BIDPl 

KM* 2 (-7) 

E4 , 1404 

E4 , 1404 

rm4x 

ERASE 

B 1 1 ) PI 

METERS*2 (- 19 1 

t/ ,1408 

EC  , 1 405 

VM  AX 

EC1  APE 

B(  1 )PL 

M /C  SEC  * 2 ( -7 ) 

LUNAR  SURFACE  NAVIGATION 


( 2D) 


h 4, 1406  E 4 , 1 9 06  WSiMF°OS  ERASE 
E4,  i^-07  E4  , 1 4 07  W SUE  EVE  l ERASE 


B ( 1 ) P 1 
B(l)  PI 


P22  1 TOR  AGE.  -FAD  L ADED- 

f 4 , 14 1 0 E4, 1410  SHAFTVAp  ERASE 

f'-  ,1411  E4 , 141  1 TRUMVAP  ERASE 


( 2D) 

B(  1 ) PL 

RAD 

SQ*2( 12 ) 

B(  DPI 

PAD 

SQ*2( 10) 

CONI  SEX  STOP  AGE. -PAD  LDADED- 


(60) 


E 4 , 1412  E4 , 1 41  7 50  41  M ERASE 


+ 5 l (6) MOON  L IBP  AT  I ON  VECTOR 


V 4 7 ( - 4 7 ) AGS  INITIALIZATION  STORAGE.  -PAD  LQADED- 
E4 ,1420  E4 , 142 1 AGSK  ERASE 


( 2D) 


+ 1 


LUNAR  LANDING  STORAGE.  -PAD  LOADED- 
£4,1422  E 4 , 1427  RLS 


ERASE 


+ 5 


! 6 D ) 


1(6)  LANDING  SITE  VECTOR  -MOON  C'EF 


INTEGRATION  ST'  - AGE. 


( 102D ) 


£4,1430  E 4 , 1 5 7 5 PBODY  FRASE  +101D  1(1) 


OF  AGC  PROGRAM  APL1ROPE  BY  EYlEl 


GAP:  ASSEMBLE  REVISION  001 


L IT  ASABLE  ASSIGNM:- 


0850 

REF 

1 

E4,  1431 

ALPHAV 

EQUALS 

P BODY 

0851 

REF 

1 

F4 , 1437 

BETAV 

EQUALS 

ALPHAV 

08  52 

REF 

1 

E4 , 1445 

PHI  V 

EQUAL  S 

BETAV 

08  5 3 

REF 

1 

£<*,  1453 

PS  IV 

EQUALS 

PHI  V 

0854 

REF 

1 

E4 , 1 61 

FV 

EQUALS 

PSIV 

0856 

REF 

1 

FA,  1467 

A L P H A M 

E Q U A * S 

F V 

0856 

REF 

1 

E 4 , 1471 

BETAM 

EC  UAL  < 

AL  PHAM 

0857 

REF 

1 

E4 , 1473 

TAU. 

EQUALS 

BETAM 

0858 

REF 

1 

E4, 14  7 5 

DT/2 

EQUALS 

TAU. 

0859 

p EF 

1 

E4, 1477 

H 

EQUALS 

DT/2 

0860 

REF 

1 

E4,  150  1 

GMODE 

EQUALS 

H 

0861 

REF- 

] 

Fa  , i «-n? 

I RETURN 

EQUAL S 

GMQDE 

0862 

REF 

1 

E4, 1503 

NORMGAM 

EQUALS 

I RETURN 

0863 

REF 

1 

E4 , 1504 

RPQV 

EQUALS 

NORMGAM 

0864 

REE 

1 

£4,1512 

ORIGEX 

EQUALS 

RPQV 

086  5 

REF 

1 

F4,  1512 

KEPf-  IN 

EQUAL  S 

ORIGEX 

086  6 

REF 

2 LAST  114 

E4, 1513 

ROW 

EQUALS 

ORIGEX 

0867 

REF 

1 

F4 , 1 a 2 1 

F.  P $ V 

EQUALS 

• QVV 

0868 

REF 

1 

E4, 1027 

XKEPNEW 

EQUAL  S 

RPSV 

0869 

REF 

1 

E4, 1531 

VECT AB 

EQUALS 

XKEPNEW 

0870 

REF 

1 

E-.  , 1574 

VECTABNO 

EQUALS 

VECTA3 

A0871 


R 087  2 THESE  PROBABLY  CAN  SHARE  MID-COURSE  VARIABLES. 


0874 

REF 

2 

IASI  114 

E4, 1537 

VAC  X 

EQUALS 

VECFAB 

0875 

REE 

) 

E4, 1541 

VACY 

EQUALS 

V AC  X 

0876 

REF 

1 

E 4 , 154  3 

VAC? 

EQUALS 

VACY 

R 0877 

SERVICER 

STORAGE  (USED  BY  ALL 

POWERED 

FLIGHT  P 

FOGS. ) 

0879 

REF 

3 

LAST  114 

F4. 1 646 

VMOPTD 

f ni  i ai  q 

VECTAB 

L.  > t 1 1 > 

A h □ r J. 

u w UMLo 

0830 

REF 

1 

E4 , 1553 

YNBPIP 

EQUALS 

XN8PIP 

0881 

REF 

1 

E4, 1561 

ZNBPIP 

EQUALS 

YNBPIP 

A 088  2 

R 088  3 

SOME  VEP  B 

82  STORAGE 

0885 

REF 

2 

LAST  114 

E4,  1517 

HAPOX 

EQUALS 

RQVV 

0886 

REF 

I 

E4,  152  1 

HP  EP  X 

EQUALS 

HAPOX 

A 0887 

R 0888 

V 82  STORAGE 

0890 

PEE 

4 

LAST  114 

E4, 1567 

VONE  ' 

EQUALS 

VtCTAB 

A 0891 

R 089 2 

R31 ( V83) 

STORAGE.  -SHARES  WITH 

INTEGRA! ION  STORAGE- 

3:  IS  DEC 


LUMERASE .120  PAGE 


1 1 4 


. 2,1970 

USER'S  PAGE  NO.  25  EO  S4 


+ 1 
+ 6 
+ 6 
+ 6 
+ 6 
■*-6 
4-2 
+ 2 
+ 2 
+ 2 
+ 2 
+ 1 
4-1 
+ 1 
+ 6 

41 
+ 6 
4 6 

42 

+ 35  D 


1(6) 

1(6) 

1(6) 

I (6) 

1(6)  PERTURBING  ACCELERATIONS 
1(2) 

1(2) 

1(2) 

1(2) 

1(2) 

1(1) 

1(1) 

1(1) 

1(1) 

1(1) 

I (S  I 
1(6) 

1(2) 

I ( 36D  ) 

END  MARK 


( 6D  ) 

+6  1(2) 

42  1(2) 

+2  1(2) 

( 18D) 

+ 1 2 D 1(6) 

46  1(6) 

46  1(6) 


(4D) 

+ 4 1(2) 

42  1(2) 


( 6D  ) 

4 30 D I (61 IMP  NORMAL 


( 2 8 D ) 


VELOCITY  VONE  /SORT.  Mij 


GAP:  ASSEMBLE  REVISION  001  Ul-  AGC  PROGRAM  AP11ROPE  BY  EYLES 

L F1  ASABl  E ASSI3MMEMTS 

089 A REF  2 LAST  114  E4,1504  BASETHV  EQUALS  RPQV 

A 089? 


3:15  DEC.  2,1970  LUMERASE.12C 
USER • S PAGE  NO.  26 
1(6)  BASE  VEL  VECTOP.  THIS 


PAGE 
EO  S4 
VEH 


115 


0896 

0897 
089  8 

REF 

REF 

R FF 

3 

LAST 

LAST 

1 AST 

1 1 < 

1 1 5 

1 1 t' 

E4,  151? 

F 4 , 1 5 1 5 

EA ,1516 

BASE  TIME  EQUALS 
PRIG  EQUALS 

CTATFViT  P nil  A i c 

PQVV 

RQVV 

ROW 

+ 2 
+ 3 

1(2) 

1(1) 

T ( 1 ) 

TIME  ASSOC  WITH 
= 0 FOR  EAP  TH  =2 
cm  A nnc  c c c crw; 

BASE  VECS 
FOP  MODI 
STATE  XT  P 
OTHER  VEH 

0899 

A 0900 

P,FF 

6 

LAST 

115 

E4, 1517 

BAS  EOT  V 

EQUALS 

RQVV 

+ 4 

1(6) 

BASE 

VEL  VECTOR 

0901 

A 0902 

REF 

5 

l AST 

114 

E6,  15  37 

BASEOTP 

EQUALS 

V EC TAB 

4-6 

t ( 6 ) 

BASE 

»0S  VECTOR 

OTHER  VEH 

0903 

A0904 

PEF 

6 

LAST 

115 

E4  * 1567 

BASETHP 

EQUALS 

VECTAB 

4-30  D 

1(6) 

BASE 

POS  VECTOR 

THIS  VEH 

R 09  C 5 KEPLE  ■■  V ' ' AGE.  (KEPLE-  i~  CALL  FD  BY  R ECI S I UN  I NT  E GO  AT  ION  AND  (2D) 

R 0907  COMICS) 


0908 
A 0909 

R0910 

0912 

0913 

0914 
09 1£ 
091  f 


REF 

REF 

REF 

REF 


E4, 1576 

E4 , 1577 

EPS  ILONT 

ERASE 

+ 1 

1(2) 

Vfc: B 83  STP  ACE. 

( 18D) 

E4, 1600 
E4 , 1602 
E4, 1604 
E4 , 1606 
E4,  16  14 

E4 ,1621 

range 

RR  ATE 

P.  THETA 
RONE 

VP  ME 

ERASE 

EQUALS 

EQUALS 

EQUALS 

EQUALS 

RANGE 

RRATE 

P THETA 
TONE 

+ 17D 
+ 2 

+ 2 
+ 2 
+ 6 

1(2  )DSP 

I ( 2 )DSP 

I ! 2 ! D SP 
1(6  !TMP 

I (6 )TMP 

NOUN  54  DISTANCE  TO  OPTICAL  SUBJ 
NOUN  54  RATE  OF  APPROACH. 

NOUN  54. 

VE C TO 9 STOP  AGE.  ( SC P A TC H ) 

VFC1 ' STORAGE.  (SCRATCH) 


R 09 1 6 5 VERB  67  STORAC-F 


0917 

PEF 

2 

LAST 

115 

E4, 1600 

viWPO  S 

R ANGE 

NOUN 

99 

( V67  ) 

0918 

REF 

2 

LAST 

115 

F4 , 16  0 2 

WW  VE  L 

= 

r RATE 

NOUN 

c9 

( V67  ) 

09185 

REF 

2 

1 ACT 

1 1 5 

p a , 1 6 n/. 

y w R T C 

_ 

RTHET A 

?\i  niiM 

c Ci 

, w <c  7 1 

Vv  Vi  D I M C 

V V C f f 

R.0919 

V8  2 

STORAGE 

. (CA  ' )T  OVE  1 ' Y 

RONE  OF  VONE) 

( 1 1 D) 

TWO  SEPARATE  LOCATIONS 

0921 

REF 

7 

LAST 

115 

E4 , 1537 

V82FLAGS 

EQUALS 

VECTAB 

+ 6 

( 1) 

FOR 

V 32  BITS. 

0922 

REF 

1 

E4, 1540 

TFF 

EQUAL  S 

V 3 2 F l AGS 

+ 1 

1(2) 

0923 

REF 

1 

E4 , 1542 

- T p E r 

EQUALS 

TFF 

+ 2 

1(2) 

A 0C?  ^ 

0925 

REF 

3 

LAST 

115 

E4  , 1600 

HP  ER  MI N 

EQUALS 

RANGE 

1(2) 

SET 

TO  300KFT  OR  35KFT  FOR  SR30. 1 

0926 

REF 

1 

E4 , 1602 

RPADTEM 

EQUALS 

H PER  MIN 

+ 2 

1(2) 

PAD 

OR  LANDING  RADIUS  FOR  SR30.1 

0927 

RFF 

1 

F4,lo04 

TSTART82 

EQUALS 

RPADTEM 

+ 2 

1(2) 

TEMP  TIME  STORAGE  FOR  V82. 

A 092' 

R 092  9 

VARIOUS  DISPLAY  REGISTERS 

( 6D  ) 

NCUN  84;  P76 

GAP:  ASSEMBLE  -.EVISIQi  OC1  -A  AGL  P.RD  G < AM  AP11RCPE  8Y  EYLtS 

L ERASABLE  ASSIGNMENTS 

0931  E4 » 162  2 E4.1627  OEL.VOV  ERASE  +5D 

A 09  3 2 


R 0933  A L ? GM  ':F  i"l  PL  ANE  h"  Y-IJEkT  1AL  TP  ANS  F t M AT  I ■ : 1 SIN1’  AGE. 


R Oc  3 r 


UNSHAnED  WHILE  LI  ON  LOTA1*  SURFACE. 


0936 

0937  PEE  1 

0938  REF  1 

AQ93° 


E4.163C  E4  1 16  51 
E4,  1436 
F , T 44 


GSAV  ERASE 

YN3SAV  EQUALS 
ZNSSAV  EQUALS 


+ 170 

GSAV  +6 

YNBSAV  + 6 


R094C 

0942 

094  3 

0944 

0945 

0946 


KAL.CMANU  STr  ACL.  CAN  OVERLAY  GSAV. 


REF 

R FF 

2 

LAST 

life 

F4,  r.-3  0 

FA ,1 Ati 

MFS 

MF  I 

EQUALS 
FQUAI  S 

GS  AV 
MFS 

REF 

2 

LAST 

116 

E4, 1630 

KEL 

l.  V U n 

EQUALS 

MFS 

REF 

3 

LAST 

116 

E4, 1630 

E01 

EQUALS 

MFS 

REF 

1 

64,  1636 

E02 

EQUALS 

EOL 

R 0947 

LR  VFL  BEAM 

VECTORS. 

A 094  9 
R0950 

CAN  OVERLAY 

GSAV  WITH  CARE, 

USED  DURING 

POWERED 

DESCENT 

ONL. 

0951 

REF 

3 LAST  1 >- 

E 4 , 1 6 3 0 

VZRFAMN6 

EQUALS 

GSAV 

095  2 

REF 

1 

E 4 , 16  36 

VYBEAMNB 

EQUALS 

VZ3EAMNB 

+ 6 

0953 

RFF 

1 

E4  , 1644 

VXBEAMNB 

EQUAI  S 

VYBEAMNB 

+6 

0954 

REF 

1 

E4 , 1652 

LRVT I ME  = 

V XSEAMNB 

+ 6 

0955 

REF 

1 

E/-  , 165  4 

l.RXCOU 

LRVT1 ME 

+ 2 

0°56 

REF 

1 

64  , 1655 

LRYCOIJ 

l.RXCDU 

+ 1 

0957 

REF 

1 

Pi,  i a s r. 

LR ZCOU  = 

i :1  yr  nt) 

+ l 

i'  1 17  U 

0958 

REF 

1 

F4, 1657 

PIPTEM 

LRZCDU 

+ 1 

0959 

R 096  0 

P32-R35,  P7?-°7 

5 STOP  AGE. 

096  2 

E4, 

1652 

E4  i 

.1653 

T1T0T3 

ERASE 

+ 1 

0963 

E4 » 

1654 

E4  , 

.1655 

T 2 T C T 3 

ERASE 

+ 1 

0964 

E4, 

1656 

E4i 

. 1657 

ELEV 

ERASE 

+ 1 

0965 

E4, 

166  0 

£4, 

. 1 665 

UP  1 

ERASE 

+ 5 

0966 

E4, 

1 6 6 6 

F 4 1 

.1673 

DEI VEET1 

ERASE 

+ c 

096  7 

E4, 

1674 

E4, 

. 1701 

DEI.  VEST  2 

ERASE 

+ 5 

0968 

E4, 

1702 

E4, 

, 1707 

R ACT  1 

ERASE 

+ 5 

0969 

E4  , 

1710 

E4  i 

.1715 

R ACT  2 

ERASE 

+ 5 
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USER'S  PAGE  NO.  27 


EO  S4 


(6  ) 


..z 


( 1RD) 


TIE) 

1(6) 

1(6) 


( 180) 

1(18) 

I 

1(18) 

1(6) 

1(6) 


( 26D ) 


t<6)  Li  VELOCITY  BEAMS  IN  NB  COORDS. 
1(6) 

1(6)  PP E SERVE  Z,  V,  X ORDER  . 


8(2)  LR 

8(1)  LR 

B ( 1 ) LE 

B ( 1 ) LR 

B ( 3 ) LR 


( 40  D) 


(2  ) 

TIME  FROM  CSI  TO  CDH 

(2  ) 

(2) 

(6  ) 

I (6) 

DV  CSI  IN  REF 

I ( fe ) 

DV  CSH  IN  RE F 

(6) 

POS  VEC  OF  ACTIVE  AT 

CSI 

TIME 

(6) 

POS  VEC  OF  ACTIVE  AT 

CDH 

TIME 

SAP:  AS  St  M3LE  REVISION  001  OF  A SC  RfeOGKAM  AP11RCPE  BY  EYLES 


3:15  DEC 


2 , 1970 
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ERASABLE  ASSIGNMENTS 

USER'S 

PAGE  NO. 

23  EO  S4 

0970 

E4 , 1716 

E4, 1717 

i rsi  i /■  i: 

ERASE 

+ 1 

(2  ) 

SQ 

ROOT  1/MU 

STORAGE 

0971 

,0972 

E4, 1720 

E4 , 1721 

RTMU 

ERASE 

+ 1 

(2) 

MU 

STORAGE 

R.  09  73  ( rHE  E ML  L d T Ml  E ASABLES  OVfcPL  AY  POTIONS  OF  THE  PREVIOUS  SECTION) 

0975  REF  1 £4,16512  +MGA  EQUALS  T1T0T2  (2)  S-S  + MID  GIM  ANGL  TO  DELVEET3 

A 0976 

097"'  REF  i lr5,  1660  U'  EQUALS  UP1  1(6)  S-S 

A p°78 

0979  REF  1 

098 C REF  1 

AO11  1 

0982  REF  1 I ••  , 1716  LP'TPI  EQUALS  l'  T S R l/WU  (2)  S-S  ACM  IN  AL  TPI  TIME  FOR  RECYCLE 


E4 , 1702 
E4, 1710 


DVLCS 

ULOS 


EQUALS  -ACT1 
EQUALS  R ACT  2 


1(6)  S-S  DELTA  VELOCITY, LOS  COORD-DISPLA 
1(6)  S-S  UNIT  LINE  OF  SIGHT  VECTC  r< 


R 090  3 SOME  P30  STORAGE.  (4D) 

0985  REF  2 LAST  117  E4,1716  HAPC  EQUALS  RTSR1/MU  3(2) 

0986  SEE  1 E4,I?20  HPER  EQUALS  HAPO  +2  1(2) 

A 0987 


R 098 6 SOME  P3  -P3  ,P7  -7A  STORAGE. 


(60) 


0990  REF  1 E4 , 1 702 

0991  REF  1 E4 , 1704 

0992  REF  1 C 4 , 1706 

A 0993 

0994  REf  2 LAST  117  £4,1702 

A 099  r 


DELTA"  EQUALS  DVLnS  1(2) 

DELTTTME  EQUALS  DELTAR  +2  1(2)  TIME  REPRESENTATION  OF  DELTAR 

TARGTIME  EQUALS  DEL  TT IMF  +2  1(2)  TINT  MINUS  DELTT I ME 


TINT  SO  I EQUALS  DELTAR 


1(2)  TIME  F'F 


INTERCEPT  FOP 


SCI  PHASE 


P 099  6 

THE  FOLLOWING  Ap E ERASABLE 

0997 

0998 

REF 

REF 

1 £4,1400 

1 £4,1422 

R 0999 

* * * * * 

**  THE  FOLLOWING  SECTIGNS  OVERL 

P 1000 

V4  7 ( R 4 7 ) AGS  I N I T I AL 12 AT  ION 

100  2 
1003 

REF 

PEF 

4 LAST  115  E4 , 16 

1 E 4 , 1615 

LOADS  DURING  A PERFORMANCE  TEST. 

TRANS  Ml  = WRENDPGS  £4,14  00 

ALFDK  = TRANSM1  +18D 

AY  V 83  AMD  DISPLAY  STORAGE  ******* 

PROGRAM  STORAGE.  (OVERLAY"  V 33 ) (14D) 

AGSBUFF  EQUALS  RANGE  B(14D) 

AGS BUFF E EQUALS  AGSBUFF  +13D  ENDMARK 
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GAP: 

L 

P 1004 


ERASABLE  ASSIGNMENTS 

r 3 6 OUT-OF-PLANE  RENDEZVOUS  DISPLAY  STORAGE.  (OVERLAYS  V83) 


USER’S  PAGE  NO.  29 


EO  S4 


( 1 2 D ) 


100  6 

1007 

REF 

REF 

2 

1 

LAST 

115 

E-r,  lo06 

E 4, 1614 

RPASS36 

UNP36 

EQUALS 

EQUALS 

RONE 

R u A S S 3 6 

+ 6 

1(6) 

1(6) 

S-S 

S-S 

P 1008 

S-BANC  ANTENNA  GIMBAL  ANGLES 

. DISPLAYED 

BY  R05( V64) .( OVERLAYS  V83) 

( 1 0 D ) 

R 1010 

(OPERATES  DURING  POO  ONLY) 

1011 

REF 

5 

LAST 

1 1 7 

E4 ,1500 

AL  PH  A SB 

EQUALS 

RANGE 

B ( 2 ) 

DSP  NOUN 

51.  PITCH  ANGLE. 

1012 

R EF 

1 

E4  , 1602 

BETASB 

EQUALS 

ALPHASB 

+ 2 

B ( 2 ) 

DSP  NOUN 

51.  YAW 

ANGLE. 

1013 

R FF 

1 

RIM 

EQUALS 

BET  AS  B 

-t-2 

1(6) 

c $ 

pp  c t t t nM 

VECTOR . 

r V O J.  i 1 Ul\ 

P 1014 

ije  jJ? 

USED  TN  S— BAND  ANTENNA 

FOR  LM  **** 

101  r 

REF 

2 

LAST 

118 

£'■  ,1602 

YAWANG 

EQUALS 

BETASB 

1 C 1 

REF 

2 

LAST 

118 

E - ,16 0 r 

PITCHANG 

EQUALS 

ALPHASB 

P 1017 

NOUN 

56 

DATA 

- COM  PUT  E C AMD  DISPLAYED 

BY  VERB  85 

. 

(4) 

1019 

REF 

1 

E 4 , 1 6 0 0 

FP-AZ 

EQUALS 

D ITCH AN G 

1(2) 

ANGLE  BETWEEN  LOS 

AND  X-Z 

1020 

P FF 

1 

E 4 , 160  2 

r -El.EV 

EQUALS 

; : -AZ 

+ 2 

1(2! 

ANGLE  BETWEEN  LOS 

AND  Y-Z 

R 1021 

RP4IV62)  RADAR  TEST  STORAGE. 

( 8D  ) 

R 1023 

R04 

IS  RESTRICTED  TO  POO. 

1024 

PEE 

6 

LAST 

1 18 

E 4, 1600 

RSTACK 

EQUALS 

RANGE 

B ( a ) 

BUFFER 

FOR  R04  NOUNS. 

A 102  6 


R 1026 

INI  TV  EL 

STORAGE.  ALSO  USED  BY 

P 3 1 , P 34 

, P35  , P74 , D75 , P 10 ' 

,P11 ,MIDGIM, 

S40 . 1 AND  S40.9.  ( 13D) 

P 102  8 

(POSSIBLY  RINJT  £ V IN  IT 

CAN  nv 

ERLAY  DEL  V EE  f 1 £ 

2 above; 

l 

102Q 

E-S  172?  E4, 1727 

R 1 h I T 

ERASE 

+ 5 

I (6 

) ACTIVE  VEHICLE  POSITION 

1030 

E4.1730  E4 , 1 735 

VIMT 

ERASE 

+ 5 

I (6 

) ACTIVE  VEHICLE  VELOCITY 

1031 

E4 , 1736  E4 , 1 743 

VI  PRIME 

ERASE 

+ 5 

I (6 

) NEW  VEL  REQUIRED  AT  INITIAL  RADIUS. 

R 1032 

VARIOUS 

DISPLAY  REGISTERS.  BALLANGS 

( 3D 

) 

1034 

E4,i7^  E4,1744 

FDAI  X 

ERASE 

I ( 1 

) 

103  5 

E 4 , 1 74  5 E4 , 1 745 

FDA!  Y 

EF  ASE 

I (1 

) 

1036 

E4,1746  E4*1746 

FDAI  Z 

ERASE 

I ( 1 

) 

A 1037 

R 1038 

P34-P 35 

STORAGE.  DOWNLINKED. 

(20 

) 

1040 

£4,1747  E4 , 1750 

DEI.  VT  PF 

ERASE 

+ 1 

I (2 

) DELTA  V FOR  T PF 

A 1041 

R 1042 

SOME  R04 

( V62 )-R77  RADAR  TEST  STORAGE 

( 6D 

) 

GAP  : 


1044 

1045 

1046 

1047 
104  8 
104° 
1050 

P 1051 

R 1052 

1PC4 
1055 
A 1056 
P.  1057 

1050 
A 106  ■ 

1061 

R 106  2 

106  4 

1065 

1066 
A 1067 

R 106  8 

1070 

1071 

1072 
1C73 


A 1074 
R 107  3 

1077 

1078 
107° 

I 

1081 

1082 

1083 

1084 

1085 


ASSEMBLE  HE  VISION  001  OF  AGC  PROGRAM  API 1R ORE  BY  EYLES  3:15 

ERASABLE  ASSIGNMENTS 

E 4 * 1751  E4.1751  RTSTDEX  ERASE  (1) 

E 4 , 1 7 5 2 E 4 , 17  52  RTSTMAX  ERASE  (1) 

Eh,  1753  £4,  1753  RT ST  BASE  ERASE  (1) 

E4 , 1 754  E 4 , 17  54  RTSTLOC  ERASE  (1) 

REF  1 £4,1754  RSTKLOC  = P.TSTLOC 

E4 , 1 75 6 E4.1755  RSAMPDT  ERASE  (1) 

E4,  1756  E4.1756  PFAILCNT  ERASE  (1) 
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PAGE 
EO  S4 
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LPS20.1  1 TOR  AGE  (12D) 


D F F 

1 

E 4,  1781 

L MpO  S 

EQUAL  S 

FTSTDEX 

I (6 ) 

TEMP.  STORAGE 

FDR 

LM 

POS.  VECTOR. 

REF 

1 

E4, 1757 

L MV  EL 

EQUALS 

LMPOS  +6 

1(6) 

TEMP.  STORAGE 

FOR 

LM 

VEL . VECTOP. 

I ill  TVEl  STORAGE. 

ALSO  USED  BY  P31, 

34, 35,74,75, 

S4C.1  AND 

DO  Ww  LINKED. 

( 6D ) 

REF 

1 

E4,  176  5 

DFLVEET3  EQUALS 

1 MVEL  +6 

1(6) 

DELTA  V IN  INERTI 

AL 

COOP  DINATES. 

E4 , 1757 

END-E4 

EQUALS 

FIRST 

UNUSED  LOCAT 

ION 

IN 

E4 

SECOND 

DPS  GUIDANCE  (LUKA 

LANDING)  ( 

OVERLAY  P 

32-35, JNITVEL ) 

( 14D  ) 

REF 

1 

£4,1661 

VHT  1 1 

EQUALS 

PIPTEM  +3 

1(2) 

DISPI  AY 

REF 

1 

E4 , 1664 

ANGTERM 

EQUALS 

VHORIZ  +2 

1(6) 

GUIDANCE 

REF 

1 

E4, 1672 

HBEAMNB 

EQUALS 

ANGTERM  +6 

1(6) 

LANDING  RADAP 

R12  DOWNLINK  QUANTITIES 

( 5D ) 

REF- 

1 

E4, 1734 

LPXC  )UDL 

EQUALS 

n AND/ 

+ 2 

B!  1 ) 

LANDING 

P A DAD 

DOWNLINK 

REF 

1 

E4 , 1735 

LRYCDUDL 

EQUALS 

L RXCDUDL 

+ 1 

B ( 1 ) 

LANDING 

RADAR 

DOWNLINK 

REF 

1 

F 4 . 1.7  3 6 

i r 7( mini 

EQUALS 

LRYCDUDL 

4-  1 

R M t 

1 AMD TMH 

RADAR 

DOWNLINK 

1 i y L ' . i 

' I 

Dill 

L AIVJ  x : ; v. 

REF 

1 

E4, 1737 

LRVTIMDL 

EQUALS 

!.!•  ZCDUD1 

+ 1 

B < 2 ) 

LAND  I NO 

RADAP 

DOWNLINK 

ASCENT  GUIDANCE  FIT.  LUNAR  LANDING 


REF 

2 LAST  119 

E ■> , 16  6 2 

AT 

EQUALS 

REF 

1 

E4, 1664 

VE 

EQUALS 

REF 

1 

E4 , 1666 

TTO 

EQUALS 

REF 

1 

E4 , 1670 

T BUP 

EQUALS 

REF 

1 

E4 , 1072 

RDOTD 

EQUALS 

PEF 

1 

E 4 , 1674 

YDOTD 

EQUALS 

REF 

1 

E4, 1676 

ZDOTD 

EQUALS 

REF 

1 

E4 , 1700 

/R/MAG 

EQUALS 

REF 

1 

E4 , 1702 

L.AXI  S 

EQUALS 

( 

54 

D) 

PIPTEM 

+ 3 

I 

(? 

) TMP 

ENGINE 

DATA  — THRUST  ACC*2(9) 

AT 

+ 2 

I 

( 2 

)TMP 

E XHAUST 

VE 1 OCITY  4 2 ( 7 ) M/C S. 

VE 

+ 2 

I 

(2 

) TMP 

T A1L0FF 

T IME  * 2 ( 17 )CS. 

TTO 

+ 2 

1 

( 2 

) TMP 

( M/MDOT 

) 4 2 ( 17) CS. 

TBUP 

+ 2 

I 

(2 

) T MP 

TARGET 

VELOCITY  COMPONENTS 

RDOTD 

+ 2 

1 

(2 

) TMp 

SC  Al  ING 

IS  2 ( 7 ) M/ CS • 

YDOTD 

+ 2 

I 

( 2 

) TMP 

ZDOTD 

+ 2 

1(2 

) T Mp 

/R/MAG 

+ 2 

I (6 

) T MP 

I 
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ERASABLE 

assignments 

USER'S  PAGE  NO.  31  EO  S4 

1086 

REF 

1 

E7 » 1725 

ZAXI SI 

- 

UHZP 

1087 

REF 

1 

E7 , 1473 

ROOT 

= 

HDOTD ISP 

REF 

l 

E4  » 1710 

YDOT 

_ 

'AXIS 

+ 6 

I ( 2 ) TMP 

V f | . N 0 RM  A l TO  P F F . P 1 A N F * ? ( - 7 ) 

1 v O • • 

i. 

108  9 

REF 

1 

E4,  1712 

ZDOT 

EQUALS 

YDOT 

+ 2 

I (21TMP 

DCWN  RANGE  VEL  *2 (-7). 

1090 

REF 

1 

E4 , 1714 

GEFE 

EQUALS 

ZDOT 

+ 2 

I ( 2 ) TMP 

EFFECTIVE  GPAVITY 

R 1091 

THESE 

TWO  GROUPS 

OF  ASCENT  GUIDANCE 

ARE  SPLIT  BY  THE 

ASCENT-DESCENT 

SERVICER 

SECTION  FOLLOWING  THIS  SECTION 

1093 

REF 

2 

LAST  119 

E4, 1734 

Y 

EQUALS 

/LAND/ 

+ 2 

1(2 ) TMP 

OUT-OF-PLANE  DIST  *2(24)M 

1094 

REF 

1 

E4, 1736 

DR  DOT 

EQUALS 

Y 

+•2 

I ( 2 )TMF 

RDOTD  - ROOT 

1095 

REF 

1 

EA, 1740 

D YDOT 

EQUALS 

DR  DPT 

+ 2 

I (2  >TMP 

V DOT D - YDOT 

1096 

REF 

1 

|;<4, 174? 

DZOOT 

EQUAL  S 

DYDOT 

+ 2 

I ( 2 ) T MP 

ZDOTD  - ZDOT 

1097 

REF 

1 

E4, 1744 

PCONS 

EQUALS 

DZ  DOT 

+ 2 

I (2 ) T MP 

CONSTANT  IN  ATR  EQUATION 

1098 

REF 

1 

E4, 1746 

YCONS 

EQUALS 

PCONS 

+ 2 

I (2 ) TM  P 

CONSTANT  IN  ATY  EQUATION 

109° 

REF 

1 

E4 , 1 75C 

PH  ATE 

EQJALS 

Y CO  IM  S 

+ 2 

I ( 2 ) T MF 

FATE  COEFF.  IN  ATR  EQUATION 

lioo 

REF 

1 

E a ) 17  5 2 

Yl  ATE 

EQUALS 

PRATE 

+ 2 

I ( 2 ) T MP 

RATE  COEFF.  IN  ATY  EQUATION 

1101 

REF 

1 

E4 , 1 754 

ATY 

EQUAL  S 

YRATE 

+ 2 

I ( 2 ) TMP 

OUT-OF-PLANE  THRUST  COMP .42(9) 

110? 

REF 

F4 i 1 756 

ATF 

EQU  AL  S 

ATY 

+ 2 

I ( 2 ) T M P 

RADIAL  THRUST  COMP. *2(9) 

1103 

REF 

1 

E4 , 1760 

ATP 

EQUALS 

ATR 

+ 2 

K21TMP 

DCWN-R ANGE  THRUST  COMP 

li- 

REF 

1 

EA  , 1762 

YAW 

EQUALS 

ATP 

+ 2 

I ( 2)TMP 

nos 

REF 

1 

E4, 17C 4 

PITCH 

EQUALS 

YAW 

+ 2 

I (2  )RMP 

A 1106 

R 1107 

SERVICER  FOR  LUNAR  ASCENT 

AND 

DESCENT 

( 14D) 

1109 

REF 

l 

E4, 1716 

G( CSM  ) 

EQUALS 

GEFE 

+ 2 

1(6)  FOP 

UPDATE  GF  COMMAND  MODULE  STATE 

1110 

REF 

1 

F.3,  1717 

R (CSM) 

EQUALS 

R-OTHER 

VECTORS  BY  LEM;  ANALOGS  OF  GDT/2, 

111  1 

REF 

1 

E 3 1 1 72 5 

V(CSV) 

EQUALS 

V— OTHER 

P , 

AND  V,  RESPECTIVELY  OF  THE  CSM 

1112 

REF 

1 

E4, 1724 

WM 

EQUALS 

G ( C S M ) 

+ 6 

1(6)  TMP 

- l.UNA>  ROTATION  VECTOR  ( SM ) 

1113 

REF 

1 

F4, 1732 

/(  AND/ 

EQUALS 

WM 

+ 6 

B ( 2 ) 1 UNAR  R AO  I U c AT  LANDING  SITF 

All]* 
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L ERASABLE  ASSIGN'  ►'•MS 


P 1 1 1 5 

E BANK -5  ASSIGNMENTS 

E5 , 1^00 

W-MATRIX.  ESSENTIALLY  U NS H ARABLE. 

cpTI  if 

o /.n  n 

1116 

R 11 17 

O L.  1 l L. 

c.  *+  u u 

O'  o 
«-*  r\J 

REF 

E 5 , 1400  E5 ,1641  W 

1 05,1642  ENDW 

ERASE 

EQUALS 

w 

+ 161D 

+ 16  2D 

A 1121 

R 1122 

**:** 

OVERLAY  NUMBER  1 IN  EBANK  5 * 

: * 4 * 4 4 4 

R 1123 

W-MATRIX  PADLOADS 

R 112'“ 

PL  FAST 

F ETA  IN  THE  OF  OFF  OF  ‘'"LAND  THRU 

JAPFG 

1126 

REF 

2 

LAST  121  E5 , 1400 

TL  AN  D 

EQUALS 

W 

1127 

REF 

1 

E5 , 1402 

RBRFG 

EQUALS 

T LAND 

+ 2 

112 

PEF 

1 

F 5 , 1/-  1C 

VBR  F G 

EQUALS 

RBRFG 

+ 6 

1129 

REF 

1 

F5 , 14  15 

ABRFG 

EQUALS 

VBRFG 

+6 

1130 

REF 

I 

p C 14  ?& 

VBRFG* 

EQUALS 

A BR  FO, 

+ 6 

1131 

PEF 

1 

E5,  1426 

ABRFG* 

EQUAL  S 

VBRFG* 

+ 2 

1132 

REF 

1 

E 5 , 1430 

JBRFG* 

EQUALS 

ABRFG* 

+ 2 

11321 

REF 

1 

. £5,1432 

GAINBRAK 

EQUALS 

JBRFG* 

+ 2 

1133 

REF 

1 

E 5,  1434 

TCGF S3 AK 

EQUALS 

GAIN&RAK 

+ 2 

1 1 3:4 

REF 

1 

E 5 , 1435 

TCGIBRAK 

EQUALS 

TCGFBPAK 

+ 1 

1135 

REF 

I 

p p , 143A 

t />  p p G 

EQUALS 

T f G T ft  P A K 

+ 1 

1136 

REF 

1 

E5  , 1444 

VAPFG 

EQUAl  S 

RAPFG 

+ 6 

1137 

REF 

1 

E 5 , 1452 

AAPFG 

EQUALS 

VAPFG 

+ 6 

1 1 38 

R F F 

I 

___________  c t;  - i a.  a n ______ 

VAPFG* 

EQUALS 

AAPFG 

+ 6 

i L r 

V 63  : 1 .7  *v 

113° 

REF 

1 

E 5, 1462 

AAPFG* 

EQUALS 

VAPFG* 

+ 2 

1140 

REF 

1 

55,1464 

JAPF  1* 

EQUALS 

AAPFG* 

+ 2 

11401 

REF 

1 

E 5 , 1 4 6 6 

GAIL APPF 

EQUAL  S 

JAPFG* 

+ 2 

1 141 

REF 

1 

E 5 , 1470 

TCGF APPP 

EQUALS 

GAINAPPP 

+ 2 

1142 

REF 

1 

E 5 , 1471 

TCGI APPR 

EQUALS 

TCGF APPR 

+ 1 

1143 

RF  F 

l 

E5  1472 

v i gn 

PQllAI  5 

TCGI  APPP. 

+ 1 

V I 

L w c-  A L O 

1144 

REF 

1 

E5  , 1474 

P I GN  X 

EQUALS 

V I GN 

+ 2 

1145 

REF 

1 

E 5 , 1476 

RIGNZ 

EQUALS 

& IGNX 

+ 2 

1 146 

REF 

1 

E5  , 15  00 

K I GN  X /ft 4 

EQUAL  S 

R IGNZ 

+ 2 

l\  1 UI'J  A / U , 

1147 

REF 

1 

E 5 , 1502 

KIGNY/B8 

EQUALS 

KIGNX/B4 

+ 2 

1148 

REF 

1 

E 5 , 1504 

KIGNV/B4 

EQUALS 

KIGNY/B8 

+ 2 

1149 

REF 

1 

E 5 , 1 5 0 6 

LOWCRIT 

EQUALS 

KIGNV/B4 

+ 2 

1150 

PEF 

1 

E5  , 1507 

HIGHC  n 

EQUALS 

LCWCRIT 

+ L 

1151 

PEF 

1 

E5 ,1510 

V2FG 

EQUALS 

HIGHCRIT 

+ 1 

1152 

REF 

1 

F 5 , 1 5 1 6 

TA OVERT 

EQUALS 

V2FG 

+ 6 

1153 

REF 

1 

E5, 1520 

DELQFI  X 

EQUALS 

TAUVERT 

+ 2 

1154 

REF 

1 

E5  , 1522 

LRAl  PHA 

EQUALS 

DELQFIX 

+ 2 

15  DEC.  2,1970  LUMERASE .120  PAGE 
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121 


( 1620) 


f 1 2 SO  ) 


1(2)  NOMINAL  TIME  OF  LANDING 

1(6)  BRAKING 

1(6)  PHASE 

1(6)  TARGET 

1(2)  PARAMETERS: 

1(2)  HIGH 

1(2)  GATE 

B ( 2 ) 

B ( 1 ) 

B ( 1 ) 

T(6)  APPROACH 

1(6)  PHASE 

1(6)  TARGET 

1(2)  PARAMETERS: 

1(2)  LOW 

1(2)  GATE 

B(  2 ) 

B ( 1 ) 

B ( 1 ) 

1(2)  DESIRED  SPEED  FOR  IGNITION 
1(2)  DESIRED  'ALTITUDE'  FOR  IGNITION 
1(7)  DESI/ED  GROUND  RANGE  FOP.  IGNITION 
I (?) 

1(2) 

1(2) 

B(l)  (HIGHC:  IT  MUST  FOLLOW  LOWCRIT) 

B ( 1 ) 

1(6)  DESIRED  VELOCITY  FOR  P65. 

1(2)  time  CONSTANT  FOR  P65  VEL . NULLING. 
1(2)  LP  ALTITUDE  DATA  REASONABLE  PARM. 

B ( 1 ) P0S1  X ROTATION  * MUST  * 


ASSEMBLE  VISION  001  OF  AGC  PROGRAM  AP11R0PE  BY  EYLES 


3: 15  DEC 


2,1570  LUMERASE .120 


PAGE  122 


i AP  : 


L ERASABLE  ASSIGNMENTS  USER'S  PAGE  NO.  33  EO  S4 


1155 

REF 

1 

E5  , 1523 

LP  BETA1 

EQUALS 

LR ALPHA 

+ 1 

B(l) 

POSL  Y ROTATION  * BE  * 

1156 

REF 

1 

E5 , 152A 

LRAL PHA2 

EQUALS 

LRBFTA1 

+ 1 

Bill 

POS 2 X ROTATION  * IN  * 

1157 

REF 

1 

E5,  1525 

LF.BETA2 

EQUALS 

LRALPHA2 

+ 1 

6(1  ) 

P0.S2  Y ROTATION  * ORDER* 

11571 

REF 

1 

E 5 , 1526 

LD  VM  AX 

EQUALS 

LRBETA2 

+ 1 

B(l) 

LR  VEL  WEIGHTING  FUNCTIONS 

11572 

PEF 

1 

E5 ,1527 

L c-  V F 

EQUALS 

LRVMAX 

+ 1 

B ( 1 ) 

LR  VEL  WEIGHTING  FUNCTIONS 

1 ] c;7  ? 

REF 

j 

E5 , 1 530 

1 8 vi  V 7 

EQUAL  S 

LRVF 

+ 1 

B ( 1 ) 

LP  V FI  WEIGH  ING  FUNCTIONS 

1157 

REF 

1 

E5 , 1531 

LRWVY 

EQUALS 

LRWVZ 

+ 1 

B(l) 

LP  VEL  WEIGH  ING  FUNCTIONS 

11575 

REF 

1 

E 5 , 1532 

LPWVX 

EQUALS 

LRWVY 

+ 1 

B(  U 

LR  VEL  WEIGH  ING  FUNCTIONS 

11576 

REF 

1 

E5 , 1533 

LP  rt’VFZ 

EQUALS 

LFsWVX 

+ 1 

B ( 1 ) 

LP  VEL  WEIGH  ING  FUNCTIONS 

11571 

REF 

1 

E 5 , 153 A 

L!  WVFY 

EQUALS 

LRWVFZ 

+ 1 

B ( 1 ) 

LR  VEL  WEIG  ING  FUNC  IONS 

1-157  8 

REF 

1 

E 5 , 1535 

L PWVFX 

EQUALS 

LRWVFY 

+ 1 

B(l) 

LR  VEL  WEIG  ING  FlJNC-  TONS 

11579 

RFF- 

1 

E5  , 1536 

LPWVFF 

EQUAL' 

LRWVFX 

+ 1 

B<  1 ) 

LP  VEL  WEIG  ING  FUNC  TONS 

1 1 1 

REF 

5 

LAST 

96 

0130 

ABVEL* 

EQUALS 

BUF 

B(l) 

LR  TEMP 

11! 

REF 

LAST 

122 

013  1 

VSEL  ECT * 

EQUALS 

8UF  +1 

6(1) 

LR  TEMP 

1158 

REF 

1 

F6,  1537 

ROOSCALE 

EQUALS 

LRWVFF 

+ 1 

1(1) 

CLICK  SCALE  FACTOR  FOR  POD 

1 1 KC 

1 F 

1 

E 5 , 1 ^40 

T A UP  00 

£ QU  A 1 S 

FOPSCAL  t 

4-  1 

1(2) 

TIME  CONSTANT  FOR  P.n.D. 

11595 

REF 

1 

E5 , 15A2 

LAG/TAU 

EQUALS 

TAUROD 

+ 2 

1(2) 

LAG  TIME  DIVIDED  BY  TAUROD  (P66) 

11596 

E r 

1 

E 5 , 1 5A A 

MI  NRjPRCJ: 

EQUALS 

LAG/TAU 

+ 2 

1(2) 

MINIMUM  FORCE  P66  WILL  COMMAND. 

11597 

REF 

1 

E5 , L5A6 

MA-XFURCE 

EQUALS 

M INFORCE 

+ 2 

1(2) 

MAXIMUM  FORCE  P66  WILL  COMMAND. 

1160 

REF 

1 

E 6 , 1 5 5 0 

ABTCOF 

EQUALS 

MAXFORCE 

+ 2 

1(16) 

COEFFICIENTS  PQR  ABORT  TF I POLYS. 

1161 

REF 

1 

E 5 , 1570 

V M 1 1\ 

EQUALS 

ABTCOF 

+ 16D 

1(2) 

MINIMUM  VELOCITY  FOR  ABORT  INJ. 

116  2 

REF 

1 

E5 ,1572 

YL  I M 

EQUALS 

VM  1 N 

+ 2 

1(2) 

MAXIMUM  CROSS-RANGF  DIST  IN  ABORTS. 

1163 

REF 

1 

E 5 , 157A 

ABTP DOT 

EQUALS 

YL  I M 

+ 2 

1(2) 

DESIRED  RADIAL  VEL.  FOR  ABOrTS. 

1 16  A 

REF 

1 

E 5 , 1576 

CCSTHETl 

EQUALS 

ABTR  DOT 

+ 2 

1(2) 

COS  OF  CONE  1 ANGLE  FOR  ABORTS 

1165 

REF 

1 

E5 , 1600 

C0STHET2 

EQUALS 

COSTHET  1 

+ 2 

1(2) 

CCS  OF  CONE  2 ANGLE  FOR  ABORTS. 

A 1 1 6 “ 

R 1 167 

SOME 

V Ar  TAR!  FC  prip  e Pm?  n 

f)Dc  r;i  | r DANE  F 

( 34Q ) 

1169 

REF 

1 

E5 , 1602 

CG 

EQUALS 

COST  HET  2 

+ 2 

I ( 18D  ) GUIDANCE 

1170 

REF 

1 

E 5 , 16  2 A 

R ANGEDSP 

CG 

+ 18D 

B ( 2 ) 

DISPLAY 

1171 

PEF 

1 

E5  , 1626 

OUTOFPLN 

= 

R ANGEDSP 

+ 2 

B ( 2 ) 

DISPI  AY 

1172 

REF 

1 

F 5 , 1630 

R60VSAVE 

EQUALS 

OUTOFPLN 

+ 2 

l!6)TMp  SAVES  VALUE  OF  PPINTVSM  THRU  R51 

1173 

REF 

1 

E 5 , 1636 

PGU 

EQUALS 

r-  60V SAVE 

+ 6 

I (6) 

UP  SHAPED  FOR  DOWNLINK 

1174 

REF 

2 

LAST 

122 

E5 , 1630 

VBI  AS 

EQUALS 

R60VSAVE 

1(6) 

PIPA  BIAS  FQUIV.  VELOCITY  VECTOR. 

1 17  6 

REF 

7 

LAST 

122 

0130 

L*WCR*T 

= 

BUF 

1176 

REF 

o 

LAST 

122 

0131 

H*GHCF.*T 

= 

BUF  +1 

A 1177 

R 1178 

ALIGN  ME’ 'T/SYSTES-/CALCSN6C 

COMMON  STORAGE. 

( 36D ) 

1180 

REF 

l 

F5 , 16A2 

XSM 

EQUALS 

ENDW 

B ( 6 ) 

1181 

REF 

1 

£5,1650 

YSM 

EQUALS 

XSM 

+ 6 

8(6) 

1 1 2 

R EF 

1 

E5  , 18>56 

ZSM 

EQUALS 

YSM 

+ 6 

B ( 6 ) 

1183 

REF 

1 

E5, 1 66 A 

XOC 

EQUALS 

ZSM 

+6 

6(6) 

USA 

REF 

1 

E5  , 1672 

YDC 

EQUALS 

X DC 

+ 6 

B ( 6 ) 

1 18? 

REF 

1 

E5, 1700 

Z DC 

EQUALS 

YDC 

+ 6 

B ( 6 ) 

GAP:  ASSEMBLE  REVISION  001  OF  AGC  PROGRAM  AP11R0PE  BY  LYLES 


L ERASABLE  ASSIGNMENTS 


1166 

REF 

2 

LAST 

122 

E5  , 1664 

XNB 

_ 

XDC 

1187 

REF 

2 

LAST 

122 

F. 5 , 1672 

YNR 

= 

YDC 

1188 

REF 

1 

E5 , 1700 

ZNB 

ZDC 

P 1 1 8°  °VFr  !.  AYS  •'  I TH  IN  AL  IG*  3ENT/SYS  IEST/C  ALCSMSC  COMMON  STORAGE. 


1 1191  REF  2 LAST  122  c r , 1 A -0~‘  > B EQUALS  XSM  +2 

1192  Fv EF  1 E5,1646  SINB  EQUALS  -CCSB  +2 

> 

P,  119  3 MOPE*  OVERL  AYS  TO  A!.  I GNMENT  /SYSTEST  ( THESF  ARE  P5?) 

» 1195  REF  1 E%  1706  L4NDL4T  EQUAI!  STA^AD 

1196  REF  1 EG, 1710  L ANGLING  EQUALS  LANDLAT  +2 

119V  REF  1 EE, 1712  LANDAU  EQUALS  LANOLUNG  +2 

» All  ■ • 


R 1 1 9 9 

I 

1201  REF 
120?  EE 
) 1203  REF 

120^  PEF 
1205  REF 
> 1206  REF 


ALIGNMENT/SYSTEST  COMMON  STORAGE. 


2 LAST  12  3 E5  » 1706  STAR  AO 

2 LAST  123  E5.1730  STAR 

1 FT,  1736  GCTP 

1 F5 , 1737  OGC 

1 £5,1741  IGC 

1 E5.1743  MGC 


EQUALS  ZDC  +fc 

EQUALS  STARAO  + 18D 

EQUALS  STAR  +6 

EQUALS  G C T R +1 

EQUALS  OGC  +2 

EQUALS  IGC  +2 


R 120V 

I 

12  0c 
1210 

> A 1 2 1 1 


P57  ALIGNMENT  (C  VET LAY  OF  ALIGNMENT /CYSTE$T  COMMON  STORAGE) 

REF  3 LAST  1?3  E5 , 1706  GAC C = STARAD 

REF  4 LAST  123  E5.1714  GOUT  = STARAD  +6 


R 121 2 OVERLAYS  WITHIN  ALIGNMENT/SYSTEST  COMMON  STORAGE 


121' 

REF 

5 LAST  123 

E 5 , 1706 

VEAFTH 

EQUALS 

STARAD 

1215 

REF 

j 

EU  1714 

VS  UN 

EQUALS 

VEARTH 

+ 6 

) 

1216 

REF 

1 

E5  , 1722 

VMOON 

EQUALS 

VSUN 

+ 6 

3” 

1217 

REF 

1 

E 5 , 1730 

SAX 

EQUALS 

VMOON 

+ 6 

R 1218 

P5 0 • S , R50 * S Q STORES. 

i 

1220 

REF 

1 E5 , 1745 

QMIN 

EQUALS 

MGC 

+ 2 

2" 

1221 

REF 

1 E 5 , 1746 

QMAJ 

EQUALS 

QMIi\ 

+ 1 

1 

R 1222 

R 1223 

****  (JR ED  IN  PROS  **#* 

(SCATTERED  OVET  FAYS) 

1224 

REF 

6 LAST  123  E 5 , 1 7 06 

XSCI 

EQUALS 

STARAD 

1225 

REF 

1 E5.I714 

YSCI 

EQUALS 

XSCI  +6 

I 
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123 


(40) 


( 2 )TMP 
( 2 ) T MP 


( SOI 

(2)  LATITUOE,  LONGITUDE 
(2)  AND  ALTITUDE 

(2)  OF  LANDING  SITE 


( 310) 

I ( 18D  )1MP 
1(6) 

B ( 1 ) 

1(2) 

1(2) 

1(2) 

( 12  D) 

(6)  SS 
(6  ) SS 


( 24D  ) 

( MTNP 
( 6 ) TMP 
(6 ) T MP 
(6 )TMF 


( 2D) 

B ( 1 ) T M P 
B ( 1 ) T MP 


2,1970 
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L 


ERASABLE  ASSIGNMENTS 


USES ' S PAGE  NO.  35 


EO  $4 


1226 

122? 

1228 

122° 

A 1230 

REF 

PFF 

REF 

1 

2 

7 

LAST 

last 

123 

123 

E5  , 1714 

F 5 , 1706 

E5  , 1722 

ZSCI 

CULTRIX 

VEG1 

EQUALS 
EQUALS 
FQUA1  S 

Y SC  I 

VEARTH 
s tar  a n + 1 p n 

VEARTH,  VSUC  , 

VMOON 

REF 

2 

LAST 

173 

F5 , 1730 

VEC2 

•* 

EQUALS 

STAR 

R 1231 

ALIGNMENT 

STORAGE. 

1233 

REF 

1 

E5, 1747 

1234 

REF 

1 

E5,  1755 

1235 

REF 

1 

E 5 , 1756 

1236 

REF 

1 

E 5 , 17  57 

R 1237 

PET 

AIN  THE  ORDER 

OF  ST  AR  SAV  1 

123  3 

REF 

1 

E5, 1760 

123 

R FF 

1 

E5, 1766 

1240 

A 1 24  1 

REF 

1 

E5 , 1774 

OGCT  EQUALS  Q H A J +1 

BEST!  EQUALS  OGCT  + 6 

BEST  J EQUALS  BEST  I +1 

STARIND  EQUALS  BEST  J +1 

TO  STARSAV2  +5  FOR  DOWNLINK  PURPOSES. 

..  AH  S AVI  EQUALS  STAfIND  +1 
ST  AF  . AV  2 EQUALS  STARS  AVI  +6 
1 ALIGN  EQUALS  STARSAV2  +6 


( 23D) 

1(6) 

111) 


1(6) 

1(6) 

B ( 2 ) TIME  CF  I MU  ALIGNMENT  if  DOWN  L INKED) 


R 1242 

P32-35  + SERVICER 

1246 

lef 

1 E5 , 1776 

RT  XI 

1245 

REF 

1 E 5 , 177  7 

PTX2 

A 1246 

1247 

0026 

ZPRIME 

1248 

0026 

PDA 

124 - 

0020 

COST  H 

125' 

002  2 

SINTH 

1251 

0024 

THET  A 

1252 

0040 

ST  AR  M 

(20) 

EQUALS  TALIGN  +2  1(1)  XI  -2  EARTH,  -10  MOON 

EQUALS  fXl  +1  7(1)  X2  t EARTH,  2 MOON 


2 2D 
22D 
16D 
18D 
20D 

3 2D 


GAP  : 

L 

P 1253 

R 1254 

1256 

1257 

1258 

1255 

1260 

1261 

126? 

1263 

1264 

126  5 

1266 

1267 

1268 

1269 

1270 

1271 

1272 

1273 

1274 

1275 

1276 

1277 

1278 

1 2?c 

1280 

1281 

1282 

1283 

1284 

1285 

1286 

1287 

1288 

1289 

12  ‘.o 

1291 

129? 

1293 

l?r' 
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NO.  36 


PAGE 
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125 


CONICS  ROUTINE  STORAGE. 


( 85D ) 


REF  2 
REF  1 
REF  1 

REF  1 
REF  1 
REF  1 
REF  1 
REF  1 
REF  1 
REF  1 
PEF  1 
RFF  1 
REF  1 
REF  1 
REF  1 
REF  1 
REF  1 
PEF  1 
REF  1 
REF  1 
REF  1 
RFF  2 
REF  ] 
REF  2 
REF  1 
REF  3 
PvEF  4 
REF  2 
REF  1 
r FF  1 
REF  1 
RF.F  1 
REF  1 
REF  2 
REF  1 
REF  ? 
REF  1 
REF  1 


LAST  122 


LAST  125 

LAST  1 ? 5 

LAST  125 
LAST  125 
LAST  125 

LAST  125 
LAST  125 


E c , 1 A * 2 
E 5 , 1644 
E 5 , 1 646 
. 0042 
E 3 » 1 5 5 2 
E 5, 1654 
F5  » 1 66 2 
E 5 , 1670 
E5,  1672 
E5 , 16X3 
E5  , 1701 
E 5 , 1702 
E 5 ,1710 
E5 , 171  1 
E5 , 1717 
E5 , 172  1 
E-  , 17  27 
E5  , 173  1 
E 5 , 1?33 
E 5 , 1735 
E5 ,1737 
F.5,  1741 
EG,  1654 
E 5 ,1743 
E 5 , 1710 
E5.175  1 
E5  , 1710 
E3, 1710 
C 6 , 1717 
E 5 , 1 7 6 3 
P5,l 754 
E 5 , 1 755 
E5, 1757 
E5 , 176  1 
E 5 , 1 7 5 7 
F 5 , 1761 
F 5 , 176  3 
E5  , 1765 
E5 , 1765 


DEL  X EQUALS  EMDW 

DELT  EQUALS  DEL  X +2 

URRECT  EQUALS  DELT  +2 

R.CN04M  EQUALS  34D 
XrPEV  EQUALS  XKEP 
p 1 V E C EQUALS  URRECT  +6 
R2VEC  EQUALS  R1VFC  +6 
TDESIRED  EQUALS  R2VEC  +6 
GEOMSGN  EQUALS  TDESIRED  +2 
UN  EQUALS  GEOMSGN  +1 

V T Af  G T A G EQUALS  UN  +6 

VTARGET  EQUALS  VTARGJAG  +1 
T Ml  AM B EQUALS  VTARGET  +6 
U2  EQUALS  RTNLAMB  +1 

MAGVEC2  EQUALS  U2  +6 

U -.1  EQUALS  MAGVEC2  +2 

SNTP  EQUALS  UR1  +6 

CSTH  EQUALS  SNTH  +2 

1-C5TH  EQUALS  CSTH  +? 

CSTH-RHO  EQUALS  1-CSTH  +2 
P FQUALS  CSTH-RHO  +2 

PI  A EQUALS  P +2 

RVEC  EQUALS  R1VEC 

VVEC  EQUALS  R 1 A +2 

RTNTT  EQUALS  RTNLAMB 
ECC  EQUALS  VVEC  +6 

RTNTR  EQUALS  RTNLAMB 
PTNAPSE  EQUALS  RTNLAMB 
: 2 EQUAL  S MAGVEC2 

PTNPR.M  EQUALS  ECC  +2 

SGNP  DOT  EQUALS  RTNPRM  +1 
TDESIRED  EQUALS  SGNRDOT  +1 
OELDEP  EQUALS  TDESIRED  +2 
DEPREV  EQUALS  OELDEP  +2 
TEK!  LAMB  EQUAL  5 0E1  DEP 
TP REV  FQUALS  DEPREV 
EPSILDNL  EQUALS  DEPRFV  +2 


COGA  EQUALS  EPSILONL  +2 

INDEP  EQUALS  COGA 


I (2 )TMp 
I (21TMP 
I ( 6 ) T MP 
1(2)  TMP 
1 (2 )TMF 
1(6)  TMP 
I ( 6 ) TMP 
I ( 2)TMP 
I ( OTMP 
I (61TMI 
I ( 1 ) TMP 
1 (6) TMP 
I ( 1 >TMP 
I ( 6 ) T MP 
I ( 2 ) TMP 
I (6 ITMP 
l (?) TMP 
I ( 2 ) TMP 
I (-2  ) TMP 
I (2 ) TMP 
I ( 2 ) T MR 

1(2) TMP 

1(6 )TMP 

I ( 6 ) T MP 
( ( 1 )TMP 
1(2) TMP 
I ( 1 ITMP 
I ( 1 ! TMP 
I ( 2 ) TMP 
I ( 1 ) TMP 
1(1) TMP 
I ( 2 ) T MP 
I (2 )TMP 
I (2) TMP 
I ( 2 )TMP 
I (2  ITMP 
I (2  ITMP 

1(2)  COTAN  OF  INITIAL  FLIGHT  PATH  ANGLE. 
USED  BY  SUBROUTINE* ITERATOR’ . 
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AP11R0PF  BY  EYLES 

5 ******* 

3:15  DEC.  2,1970 

USEP'S  PAGE 

LUMERASE . 120 

NO.  37 

R 1296 

INCORP  STORAGE. 

! 13  D) 

1298 

c EF 

3 

LAST  125  EL 1 164  2 

Z! 

EQUALS 

ENOW 

I ( 18) TMP 

R 1299 

1NC0RP/L SR22.3  STORAGE. 

( 21D) 

1301 

REF 

1 

E 5 , 1664 

DEL TAX 

EQUALS 

II 

+ 13D 

1(18) 

1302 

PEF 

1 

E 5 , 1706 

VA  I ANCE 

EQUALS 

OELTAX 

1(3) 

R 1303 

MEASUREMENT  INCORPORATION 

-R22-  STORAGE 

• 

( 49D ) 

1305 

REF 

1 

E5,  1711 

GRP2SVQ 

EQUALS 

VARIANCE 

+ 3 

KllTMf  QSAVE  C0R 

RESTARTS 

1306 

REF 

1 

E 5 » 1 7 1 2 

□MEG AMI 

EQUALS 

GRP2SVQ 

+ 1 

I ( 6 ) 

1303 

PEF 

1 

E 5 , 17  2 0 

0 MEG AM 2 

c DUALS 

OMEGA Ml 

+6 

1 16) 

1 3 ( 

R EF 

1 

EL , 1726 

0MFGAM3 

EQUALS 

OMEGA M2 

+ 6 

1(6) 

1309 

REF 

1 

E5, 1734 

HOLDW 

EQUALS 

OMEGA M3 

+ 6 

1(18) 

1310 

REF 

1 

E5, 1756 

TDPOS 

EQUALS 

HOLDW 

+ 1 8 D 

1(6) 

131 1 

REF 

1 

E 5, 1764 

TDVtL 

EQUALS 

TDPOS 

+■ 1 

1(6) 

A 131  2 

131  3 

REF 

? 

lHst  126  EL, 1669 

TP  I PA 

EQUAI  S 

DEL  TAX 

Pi  3 ) TMP 

131 A 

PEF 

1 

E5 , 166  7 

TEMPVAR 

EQUALS 

TRIPA 

+ 3 

I 1 3 ) T MP 

A 1315 

P 1316 

TNCPR po o AT  I PN/ INTEGRATION 

Q STORAGE. 

( ID) 

1318 

REF 

1 

F5,  1772 

EGRFSS 

EQUALS 

TDVEL 

+6 

1(1) 

A 1319 


R 132  9 

P30/P31  STORAGE. 

( id: 

1 AND 

ONF  OVERLAY 

132  2 

A 132  3 

REF 

1 E5 ,1773 

P30EXIT 

EQUALS 

EGRESS  +1 

B(li 

1 TMP 

132^ 

REF 

l F5  , 1773 

ORIGIN 

EQUALS 

P 30  E X I T 

i(i 

(IMP 

INDEX  DURIN 

A 132  - 
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EO  S4 


GAP:  ASSEMBLE  P.  E V I S I U (M  001  OF  AGC  PROGRAM  AP11R0PE  BY  EYLES 


L 

P 1326 
R 132  8 


1 3?  c' 

1330 

1331 

1332 

1333 
1 33< 
1 33  b 
133  + 

1337 

1338 

1339 
13  AO 

1341 

1342 
13  - 


ERASABLE  ASS IGNM ENTS 

SYSTEM  TEST  ERASABLES.  CAM  OVERLAY  W MATRIX. 
* * ^ * * OVERLAY  NU"  L‘.  • ■ IN  EBANK  5 ❖Xt*#*** 


REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 


LAST  131 


E5  * 1400 
E5, 1402 
E5 , 1404 
E5  * 1 4 1 2 
E 5 , 1413 
E5  1 1414 
E * , 1 4 F5 
E 5,  14  16 
EB  , 1417 
E 5 » 1420 
E5 i 142  1 
E5 t 1430 
E B ,1432 
E5  , 1434 
E5  , 1434 


AZIMUTH 

LATITUDE 

ERVECTOR 

LENGTHS'! 

LCSVEC 

NOXCTR 

PIPTMOEX 

POSI TON 

QPLACE 

QP LACES 

SO  UT  HD1-; 

TEMPT  IME 

TMAPK 

GENPL. 

CDUT IME I 


EQUALS 

EQUALS 

EQUALS 

EQUALS 

EQUALS 

EQUALS 

EQUALS 

EQUALS 

EQUALS 

EQUALS 

EQUALS 

EQUALS 

EQUALS 

EQUALS 


W 

AZIMUTH 

LATITUDE 

ELVECTOf 

LENGTHOT 

LCSVEC 

NDXCTD 

PIPINDEX 

PCS ITON 

QPLACE 

QPLACES 

SOUTH DR 

TEMPTIME 

T MARK 

GENPL 


+ 2 

+ 2 
+ 6 
+ 1 
+ 1 
+ 1 
+ 1 
+ 1 
+ 1 
+ 1 
i-7 
+ 2 
+ 2 


1344 

REF 

2 

LAST 

127 

E5 , 1436 

CDUT I ME  F 

= 

GENPL 

+ 2 

134  5 

REF 

3 

LAST 

127 

F5  , 144  0 

CDUDANG 

= 

GENPL 

+ 4 

1346 

REF 

4 

LAST 

1.27 

E5, 1441 

CDU1  EAPF 

= 

GENPl 

+ * 

13*  7 

REF 

5 

LAST 

127 

F5 , 1442 

CDUREADI 

_ 

G FNP  l 

+ 6 

1348 

REF 

6 

LAST 

127 

E 5 , 1443 

CDULIMIT 

= 

GENPL 

+ 7 

1349 

REF 

7 

LAST 

127 

£5,1440 

TEMPADD 

= 

GENPL 

+ 4 

1 3B0 

REF 

8 

LAST 

l 27 

E 5 , 1 - 4 1 

TEMP 

= 

GENPl. 

+ 5 

1351 

R CF 

9 

LAST 

127 

£6  , 144? 

MO BITS 

= 

GENPL 

+ 6 

135? 

p ef 

10 

LAST 

1 27 

F 5 , 144  8 

FH 

_ 

G ENP  L 

+ 7 

1353 

REF 

1 1 

LAST 

127 

E5 , 1444 

LOS  1 

= 

GENPL 

+ SD 

1354 

REF 

1 2 

LAST 

12  7 

F 5 . 1 A 5 7 

1 nc? 

_ 

GENPL 

+ i ah 

t ‘ft  -J  C- 

135  5 

PEE 

13 

LAST 

127 

E5,  1460 

CAI.CDIR 

EQUALS 

GFNPL 

+ 2nD 

1356 

RFF 

14 

LAST 

127 

E5, 1461 

CDUFL AG 

EQUALS 

GENPL 

+ 21D 

1357 

REF 

15 

LAST 

127 

E 5 , 1462 

G YTCBbTQ 

EQUALS 

GENPL 

+ 22D 

J 

PEF 

16 

LAST 

127 

£5,1463 

OPTNREG 

EQUALS 

GENPL 

+ 23D 

1359 

REF 

1 7 

LAST 

127 

E5 , 1464 

SAVE 

EQUALS 

GENPL 

+ 24D 

13 

D EF 

18 

LAST 

127 

E5, 146'7 

SFCOMSTl 

EQUALS 

GENPL 

+ 27D 

1361 

REF 

ic 

LAST 

127 

E 5 , 1470 

T I MER 

EQUALS 

GENPL 

+ 2 3D 

1362 

REF 

20 

LAST 

127 

E5,  1472 

DAT APL 

EQUALS 

GENPL 

+ 30D 

1363 

REF 

21 

LAST 

127 

E5,  14  34 

R DSP 

FQIJALS 

GENPL 

1364 

REF 

22 

LAST 

127 

E5 ,1534 

MASKREG 

EQUALS 

GENPL 

+ 64D 

1 

REF 

23 

LAST 

127 

E 5 , 1536 

CDUNDX 

EQUAL  S 

GENPL 

+ 66D 

13 

REF 

24 

I.  AST 

127 

Fc  ,1537 

RESULTCT 

EQUALS 

GENPL. 

+ 67D 

1367 

RFF 

25 

LAST 

127 

EB , 1B4? 

COUNT PL 

FQUALS 

GENPL 

+ 700 

1368 

REF 

26 

LAST 

127 

E 5 , 1543 

CDUANG 

EQUALS 

GENPL 

+ 7 1 D 

r - CM  CM 
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128 


1 ’ 

1 770 

REF 

REF 

2 7 

1 

LAST 

127 

E5, 1434 

F k . i 4*24 

A I N L A 

UAMf.n 

FvQlJAl  S 

GENPL 

A I NLA 

110  DE 

VERT  E 

OR  156  OCT  LOCATIONS 

ATE 

J-  D • 

l 

i ' t L .J 

H 1 N U . 

1371 

REF 

?. 

LAST 

1 2 8 

E5,  1436 

WANG  I 

EQUALS 

A INI  A 

+ 2D 

HOG  I / C 

TAL  EF  ATE 

1372 

F E F 

3 

! AST 

128 

E 5 , 1440 

WANGT 

EQUALS 

ATNLA 

+ 4D 

T 

1373 

REF 

1 

F 5 , 144  0 

TORONDX 

= 

WANGT 

1374 

REF 

4 

LAST 

128 

E5 , 1442 

DRIFTT 

EQUALS 

AINLA 

+ 6D 

1375 

REF 

5 

LAST 

128 

E 5 , 1444 

ALX1S 

EQUALS 

A INI.  A 

+ 8 D 

1376 

REF 

6 

LAST 

12g 

E5 , 1445 

CMPX1 

EQUALS 

AINLA 

+ 9D 

I NO 

1377 

REF 

7 

LAST 

128 

E 5 , 1446 

AIK 

EQUALS 

AINLA 

+ 1 OD 

GAINS 

1378 

REF 

8- 

LAST 

128 

E5,  146  2 

VLAUNS 

EQUALS 

AINLA 

+ 22D 

1379 

RFF 

9 

LAST 

123 

E 5 , 1464 

WPLATO 

EQUALS 

A INI  A 

+ 24D 

1380 

REF 

10 

LAST 

128 

E 5 , 1470 

INTY 

EQUALS 

AINLA 

+ 2 OD 

SOUTH 

IP  INTE 

1381 

REF 

1 1 

LAST 

128 

E5  , 1472 

ANGZ 

EQUALS 

AINLA 

+ 300 

EAST  A 

IS 

1382 

REF 

12 

LAST 

128 

E 5 , 14  7 4 

I NT  Z 

EQUALS 

AINLA 

+ 32D 

EAST  P 

P I 

1383 

REF 

13 

LAST 

128 

E 8 , 1^76 

ANGY 

EQUALS 

AINLA 

+ 34D 

SOUTH 

1384 

REF 

14 

LAST 

128 

Fc , 1500 

ANGX 

EQUALS 

A INI  A 

+ 36D 

VE 

1385 

9 EF 

14 

LAST 

l 2 8 

F5, 1502 

DR  T ETO 

EQUALS 

AINLA 

+ 7gD 

VERT 

13 

REF 

16 

LAST 

128 

E 5 , 1504 

DRI  FT  I 

EQUALS 

AINLA 

+ 40D 

SOU 

1 

REF 

17 

LAST 

128 

E5,  1510 

VL  AUN 

EQUALS 

A INI  A 

+44D 

1 

REF 

18 

LAST 

123 

E5 , 1512 

ACCWD 

EQUALS 

AINLA 

+ 46D 

1385 

REF 

19 

LAST 

128 

E5 , 1520 

POSNV 

EQUALS 

AINLA 

+ r 2 D 

1390 

REF 

20 

LAST 

128 

E5, 1522 

DPI  PAY 

EQUALS 

AINLA 

+ 54D 

SOUTH 

1391 

RFF 

2 I 

LAST 

128 

E r , 15  26 

DPIPAZ 

EQUALS 

AINLA 

+ 5 30 

NORTH 

IP  INCREMENT 

1392 

RFF 

22 

LAST 

128 

E5 , 1 530 

ALTIM 

EQUALS 

AINLA 

+ 60D 

13 

REF 

2 3 

LAST 

128 

E5 , 1531 

ALT! MS 

EQUALS 

A1NL  A 

+ 6 ID 

INDEX 

1394 

REF 

24 

LAST 

128 

E5 , 1532 

ALDK 

EQUALS 

AINLA 

+ 62D 

TIME 

ONSTAN 

138  5 

REF 

2 5 

LAST 

128 

F 5 , 1 5 5 C 

DEEM 

EQUALS 

A INI  A 

+76D 

1386 

REF 

26 

LAST 

128 

E5 , 1560 

WPLATI 

EQUALS 

AINLA 

+ 84D 

1397 

RFF 

27 

LAST 

128 

E 5 , 1 5 6 2 

r,pnrnMPC  poiiai 

A I N L A 

+ 86D 

1 

REF 

28 

LAST 

128 

E 5 , 1563 

ERCOMP 

EQUALS 

AINL  A 

+ P7D 

1399 

RFF 

29 

LAST 

128 

E5,  1571 

ZERONDX 

EQUALS 

A I IL  A 

+ 93  D 

1400 

REF 

1 

E5, 1452 

THETAN 

= 

ALK  +4 

1401 

REF 

1 

EF,  1460 

FI LDFLV 

EQUALS 

THETAN  +6 

AGS 

ALIGNMENT  STORAGE 

1402 

REF 

1 

E 5 , 1462 

INTVEC 

EQUALS 

FILDELV  +2 

1403 

REF 

30 

LAST 

128 

E5,  1572 

1SECXT 

= 

AINLA  +94D 

1404 

.REF 

31 

I AST 

128 

E 5 , 1573 

A SEC  X T 

= 

AINLA  +95D 

140  5 

F EF 

32 

LAST 

128 

E5,  1574 

PERFDLAY 

EQUALS 

AINLA  +96D 

B ( 2 ) 

DELAY  TIME  BEF.  START 

DRIFT  MEASURE 

1406 

REF 

33 

LAST 

128 

E5, 1576 

QVFLOWCK 

EQUALS 

AINLA  +98  D 

( 1 ) 

SET  MEANS  OVERFLOW  IN 

IMU  PER F TEST 

A 1407 

AN D CAUSES  TERMINATION 

A 1408 

140  9 

RET 

2 

LAST 

124 

E5,  1774 

END-E5 

EQUALS 

STARS AV2  +6 

*4* 

FIRST  FREE  LOCATION  IN 

E5*** 

k 
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P 14  IP 
141  ] 
R ic  12 
R 1414 


A 142  6 
A 142  ' 


1430 

1431 
A 1432 


R 143? 


1436 

1436 

1437 
143  8 
143° 


1442 
1-  43 
1444 
R 1 4 4 5 

1446 

1447 

1448 

1449 


14  50 
14  51 

1452 

1453 
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E BANK-6  ASSIGNMENTS. 


Sc  I LUC  3 GOO 


E6, 1400 

DAP  PAD-LOADEC  DATA.  (10D) 

ALL  OF  THE  FOLLOWING  FXCEPT  PITTIME  AND  ROLLTIME  A r E INITIA1IZED  IN  FRESH  START  TO  PERMIT  IMMEDIATE  USE  OF  DAP 


1418 

14  17 

141  f 

HI  C 

E6 , 1400 
E6 , 1401 
E6 , 140  2 
p 6 . i a . n •a 

Ec , 1400 

Et  , 1401 

EC ,140? 

PC  . 1 ACT 

HI  ASCENT 
r OUT  IMF 
PI TTTME 
ni<  t p a p 

ERASE 
ERASE 
ERASE 
ER  ASE 

1 

1420 

r ‘ t l ' . u 

E6, 1404 

E 6 , 1 - 

U W I rs  M r 

DKOMEGAN 

ERASE 

14  2 ] 

E6 , 1405 

E6 , 1 405 

DKKAOSN 

ERASE 

1422 

E6, 1406 

Efc  , 1 406 

l MTRAP 

ERASE 

1423 

EC , 140  7 

E6 ,1407 

1. MOM  EGAN 

ERASE 

1424 

EC,  14  10 

Efc , 1410 

LMKADSN 

ERASE 

1425 

§6,1411 

E 6 , 1 4 1 1 

DKDB 

ERASE 

E6  ,14  12 
F6 , 1413 


E6  , 1412 
E6 , 1413 


IGNAOSQ 

IGNAOSR 


ERASE 

ERASE 


AX  I S T A '!  SEPT  » A T 1 ' MAT'  IX 


G I MBA  L TO  PILOT  AXES: 


E6 , 141 4 
E6 , 1415 
E6 , 1416 
E::6 ,1417 
Efc , 1420 


E6 , 1 4 1 4 
E 6 , 1 4 1 5 
E6 , 1416 
E 6 > 1 -1 
E 6 , 142  0 


Mil 
M2  1 
M3  1 
M2  2 
M3  2 


EP  ARE 
EF  ASE 
ERASE 
ERASE 
ERASE 


R 1 44  0 ANGLF  MEASUREMENTS. 


REF  1. 

REF  2 LAST  125 
i ET AIN  THE  ORDER 
1 LAST 
4 LAST 


E 6, 1421  E 6 , 1 4 2 6 

£6,1422 

E6 , 1423 


ERASE 


+4 


EQUALS  OMEGAP  +1 
EQUALS  OMEGAP  +2 


CF 


REF 

REF 


129 

129 


REF 


1 


OMEGAP 
OMEGAQ 
OMEGA* 

ALPHAQ  AND  ALPHAR  FOP  DOWNLINK  PURPOSES. 

EQUAL  S OMEGAP  +3 
EQUALS  OMEGAP  +4 
ERASE  +1 
= OMEGAU  +1 


p EF 
REF 
REF 


LAST 

LAST 


129 

129 


PC  , 

, 1424 

ALPHAQ 

E6, 

r 1425 

ALPHAR 

E6, 

. 1426 

Efc, 

1427 

OMEGAU 

E 6 i 

, 1427 

OMEGAV 

E6  , 

- 1430 

E6  » 

1435 

TRAPEDP 

Ec, 

, 1431 

TR APEOQ 

E6 , 

.14  3 2 

TP  APEDR 

E6 , 

i 1433 

NPTRAPS 

ERASE 


+ 5 

TRAPEDP  +1 
TRAPEDP  +2 
TRAPEDP  +3 


(1) 
( 1 ) 
( 1 ) 
( 1 ) 
( 1 ) 
( 1 ) 
( 1 ) 
( 1 ) 
( 1 ) 
( 1 ) 


MASS  AFTER  STAGING,  S 
TIME  TO  Z G1MBAL 

TIME  TO  TRIM  Y GIMBAL 
DAP  STATE 

ESTIMATOR  PARA- 
METERS FOR  THE 
DOCKED  AND 
LEM-ALONE 
RESPECT 

W I DT H rF  DEADBAND  FOP 
AUTOPILOT  ( DB= I .4DEG 
DEADBAND  = ei/DKDB  RA 


CALE  AT 
IN  P 03 , 
IN  R03 , 
(POSSIBl 
(VALUE 


CASES 
IVELY 
DOCKED 
IN  FRESH 

D. 


BI6  KG. 
C SEC  . 

C SEC  . 

F 77001 
S 00012 
00074 
77001 
00000 
00074 
PCS 
START  ) 


R 142  P PAD!  'AD'  F ! IN  I " T A I ’ Z AT  I '!  OF  DAP  BIAS  ACCLU  A'  !M  (AT  P12  IGNITION)  (2D) 


B ( 1 ) P L 
B ( 1 ) D L 


( 5D ) 


SCALED  AT  1 
SCALED  AT  1 


SCALED  AT  1. 
SCALED  AT  1. 


( 31D) 


BODY-AXIS  ROT.  RATES  SCALED  AT  PI/4  AMD 
BODY-AXIS  ACCELERATIONS  SCALED  AT  PI/8 
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1454 

REF 

4 LAST  129 

E6, 1434 

NOTE.  APS 

= 

TRAPEDP  +4 

1<  1 

PEF 

5 LAST  130 

E6,  1435 

NRTP APS 

= 

TR.APEDP  +5 

1 

REF 

1 

E 6 t 142  7 

E DOT  P 

. 

E DOT 

I 

1 

1457 

F 6, 1436 

Eo , 1437 

EDOTQ 

ER  ASE 

+ 1 

1458 

PEF 

1 

E 6 , 16  37 

EDO  TP 

= 

EDOTQ  +] 

MANY  SHARING  NAMES 

1459 

RFF 

2 1 AST  130 

F6, 1436 

QRATEDIF 

EQUALS 

E DOT  Q 

ALT F° NATIVE  1 A M F c : 

1460 

REF 

1 

E6, 1437 

RRATEDI F 

EQUALS 

EDOTR 

DELETE  WHEN  NO.  OF  REFERENCES  = 0 

1461 

REF 

2 LAST  129  , 

E6  * 1 4-2  6 

URATEDIF 

EQUALS 

OMEGAU 

1462 

RFF 

1 

E6 , 1427 

Vf  A IFF)  I F 

EQUAL S 

QMEGAV 

1463 

E6, 146  0 

Eo  , 16.42 

01 DXFORP 

EP  ASE 

+ 2 

STORED  C DU  READINGS  F OF.  STATE 

146  4 

RFF 

1 

E 6 , ) 46 1 

OLOYFORP 

EQUALS 

OLDXFO" P +1 

DERIVATIONS:  SCALED  AT  PI  RADIANS  (2'S) 

14 

REF 

2 LAST  130 

E6 , 144  2 

OLDZFORQ 

EQUALS 

OLDXFORP  +2 

P 1466 

RATE 

-COMMAND  AND  "If  ! ‘•'If  IMPULSE  MODES 

1467 

Efc  , 1443 

F6 ,1443 

CH31TEMP 

EP.ASE 

146  8 

F 6 ) 1444 

E 6 , 1 444 

ST  IK  SENS 

e:  ASE 

1 L 

Ei  i*'  t ] ^ 

Et  , 1 6,6. 4 

TCP 

ERASE 

) 

E 6 f 1446 

E6 , 1453 

DXERROR 

EP  ASE 

+ 5 

1471 

REF 

1 

E6,  1450 

D YFi 

EQUALS 

D X E ° P.  0 R +2 

1472 

REF 

2 LAST  130 

E6 , 1452 

DZEkROR 

EQUAL  S 

DXERROR  +6 

1^73 

E6, 16 

Eo ,1454 

PI.  AST 

EF  ASE 

1674 

E6, 145  5 

E6 ,1455 

Q1  AST 

ERASE 

1475 

E6, 1456 

F6 , 14"'': 

BLAST 

ERASE 

1476 

E6, 1457 

E6 , 1457 

TCOP 

ERASE 

R 1477 

OTHER  VAR  I ABLES. 

( 5D  ) 

1479 

F6, 1460 

F' , 1460 

CL  DPMI N 

ERASE 

THESE  THREE  USED  IN  MIN  IMPULSE  MODE. 

1 4 8 0 

E 6 i 146  1 

Efo, 146  1 

Ot.  DOR  MIN 

EP.ASE 

148 1 

REF 

1 

E6 , 1737 

TEMP31 

EQUALS 

PA  PTFMP 1 

L/M  r i i , r l 

148  2 

E6 , 1462 

E6 , 1 463 

SAVEHAND 

ERASE 

+ 1 

1483 

P A • 1 464 

E6 , 1464 

P ERROR 

ERASE 

1 i.  - 

I486 

RFF 

1 

E 6 1 1 A 5 0 

QERf  OR 

EQUALS 

DYEF R OF 

1485 

REF 

1 

E 6 , 1462 

REPP  OP 

EQUALS 

DZEP:  OP 

R 1486 

JFT 

STATE  CHANGE  VAR  TABLES- 

1 1 ME  (TUFJTCHG)  , JET 

BITS  WRITTEN  NOV 

( 10D) 

R 1488 

( J 

TSONNOW),  AND  JFT  BITS  WRITTEN  AT 

T 6 RUTT  (JTSATCHG) 

• 

148 1 

E6 » 14 

E6, 1465 

NXT6 ADR 

ERASE 

1490 

E 6 , 1 46  6 

E 6, 1467 

T6NFXT 

ERASE 

+ 1 

1691 

F.6 , 1470 

1 6 , 147 1 

T6FURTHA 

ERASE 

+ 1 

1492 

£6,1472 

E6 , 1474 

NFXTP 

EP  ASE 

+ 2 

1493 

REF 

1 

E 6 , 1 47  3 

NEXTiJ 

= 

NEXT  P +1 

1/  • 4 

REF 

2 LAST  130 

E6 , 1474 

NEXT  V 

= 

NEXT0  +2 

14 

E6 ,1475 

E6 , 1476 

-2JETL  IM 

ERASE 

+ 1 

RATE  COMMAND  4-JET  RATE  DIFFERENCE  LIMIT 

14cf 

REF 

1 

E 6 , 1476 

— P AT  E DB 

EQUALS 

-2 JET LI M +1 

AND  '-ATE  DEADBAND  EOF.  ASCENT  OR  DESCENT 

1497 

RFF 

1 

F6, 1676 

TARGETDB 

EQUAL S 

— R AT  E DB 

MAN.  CONTPOl  TARGET  DB  COMPLEMENT. 

R 169  8 

***  Q,R  AXIS  ERASABLF S > 

4** 

( 3 ) 
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1500 

1501 

1502 

1503 

1 50^ 

1 S 

1506 

1507 

1508 

1509 

1511 

1512 

1513 
1514- 


REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

RFF 

REF 


REF 

REF 


LAST 

LAST 

87 

87 

4742 
*■74  l 

F 6 , 1 75  1 
Efe  ,1752 
E6, 1477 
E6 , 17  A 2 
E6 , 174  3 

E 6 , 1744 
E6 , 1737 

E 6 , 1740 
E6 , 17*  1 
p f,  , [eno 

PBIT  EQUALS 

QFBIT  EQUALS 

UERkGR  EQUALS 

VERROR 

RET J ADR  ERASE 
tcmpmiIM  FOUAt  S 

E 6 t X 4 7 7 

LAST 

130 

id  i i 'j 1 yj  i \ l.  j 

NUMBERT  EQUALS 
ROTINDEX  EQUALS 
ROTEMP 1 EQUALS 
R0TEMP2  EQUALS 
POLYTEMP  EQUALS 

ccMcc-ryn  FR  A S F 

F (■>  . 1 s 0 0 

LAST 

LAST 

131 

131 

E6 , 1737 
Efc , 1737 

OLI'IOCI  T r Cl'  M j L 

ABSTJ  EQUALS 

ABSEDOTP  EQUALS 

1515  Rf.F 


E 6 , 175  0 DPSBURN  EQUALS 


BIT10 
BIT  1 1 
DART  EG5 
UERRC1R  +1 

SaPTEMP4 
DAPTEMP5 
DAPTEMP6 
DAPTEMP1 
OAPT EMP2 
OAPTEMP? 

oaptempi 

0APTEMP1 

DAPTREG* 
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U , V -A X ES  ATT  ERROR  FOR  RCS  CONTROL  LAWS 

..e 

ABS  VALUE  OF  JET-FIRING  TIME 

USED  WITH  SMLFFBIT.  VERY  TEMPORARY. 


| 

« 


t 


< 


GAP:  ASSEMBLE  hE VISION  Dll  uF  AGC  P.-UG.  AM  API  1- OPE  BY  EYLES 


L ERASABLE  ASS  I G' ’1  ENTS 


P 1516 

TR  I M 

GIMBAL  CONTROL 

LAW  ERAS 

ABLES : 

1518 

REF 

5 

LAST 

131 

06, 1737 

GTS TEMPS 

EQUALS 

DAPTEMP1 

151° 

REF 

1 

E6 , 176  i 

SHFTFLAG 

EQUALS 

GTS  TEMPS 

+ 2 

1520 

PEF 

2 

LAST 

13? 

E6 , 1744 

IN  INDEX 

EQUALS 

gtstemps 

+ 5 

1521 

REF 

1 

E 6, 150  5 

SAVESP 

EQUALS 

AXISCTR 

1522 

REF 

3 

LAST 

132 

E6 ,1746 

SC..  ATCH 

EQUALS 

GTS TEMPS 

+ 7 

1523 

REF 

4 

LAST 

13? 

E6 , 174  7 

HAl  PARC 

EQUAL  s 

GTSTEMPS 

+ 8D 

1 52  A 

E EF 

«5 

I A ST 

132 

FA  , ] T37 

K2THETA 

EQUAL  S 

GTKTFMPR 

U I J 1 1—  1 “ 0 

1525 

REF 

6 

LAST 

13? 

E6 , 174  1 

KCENTRAL 

EQUALS 

GTSTEMPS 

+ 2 

1526 

REF 

7 

LAST 

132 

E6 , 1742 

K2CNTRAL 

EQUALS 

GTSTEMPS 

+ 3 

1527 

REF 

8 

LAST 

132 

E6 ,1743 

WCENTRAL 

EQUALS 

GTSTEMPS 

+ 4 

1528 

PEF 

9 

LAST 

132 

E6 , 1 744 

ACENTR Al 

EQUALS 

GTSTEMPS 

+ 5 

1529 

REF 

10 

LAST 

132 

E6  ,1765 

DEL 

EQUAl S 

GTSTEMPS 

+ 6 

1530 

REF 

) i 

l AST 

1 32 

E 6 , 1 74 6 

A 7 ON  7 R Al 

EQUAL  S 

GTST  EMP  S 

+ 7 

1531 

REF 

12 

LAST 

132 

E6  , 1750 

*16  vl  1 n L 

QRCNTR 

EQUALS 

GTSTEMPS 

+ 9D 

1532 

REF 

13 

LAST 

132 

E6, 1751 

FUNCT ION 

EQUAL  S 

GTSTEMPS 

+ 10D 

153  4 

06, 1501 

E6, 1503 

NEGUQ 

EF  AS  E 

+ 2 

A 1 53  5 

NEGUQ  +1 

1 536 

RFF 

1 

06,1503 

NFGUR 

EQUALS 

NEGUQ  +2 

1537 

E6 ,1504 

E6 ,1506 

KQ 

ERASE 

+ 2 

1538 

P,EF 

1 

E6, 1505 

AXISCTR 

FQUALS 

KQ 

+ 1 

1540 

RFF 

2 

LAST 

132 

E 6, 1506 

KR  DAP 

EQUALS 

KQ 

+ 2 

1541 

E6  , 150  7 

E 6 , 1 5 1 2 

ACCDOTQ 

ERA  S E 

+ 2 

~ D 

1542 

REF 

1 

E6 ,1510 

QACCDOT 

EQUALS 

ACCDOTQ 

+ 1 

1543 

PEF 

2 

LAST 

132 

E 6 , 1 5 1 1 

ACCDOTR 

EQUALS 

ACCDOTQ 

+2 

1544 

REF 

3 

LAST 

132 

E6, 1512 

F.  ACC  DOT 

EQUALS 

ACCDOTQ 

+ 3 

1545 

REF 

l 

E 6 , 1450 

QDIf  F 

EQUALS 

Q ERROR 

1546 

PEF 

1 

E6 , 145? 

PDIFF 

EQUALS 

R ERROR 

A 1547 

R 1548 

TORQUE 

RECTOR 

R EC  ON 

STRUCT  ION 

VAT.  I ACLES  : 

1550 

REF 

1 

E 6 , 1745 

JETRATt 

EQUALS 

DAPTREG1 

1551 

REF 

1 

E6, 1746 

JETRATEQ 

EQUALS 

JETRATE  +1 

1552 

REF 

2 

LAST 

132 

£6,1747 

JET!  ATEP- 

EQUALS 

JETRATE  +2 

1553 

8-4  ,1513 

F6, 1520 

DOWNTORK 

ERASE 

+5 

1554 

REF 

1 

E6 ,15  13 

pr'STnRKP 

EQUALS 

DCWNTOP K 

1555 

REF 

2 

LAST 

132 

E 6 , 1514 

!!EGT<’TKP 

EQUALS 

DOWNTORK  +1 

1556 

REF 

3 

LAST 

132 

E6 , 1515 

POSTORKU 

EQUALS 

DOWNTORK  +2 

3:15  DEC 


2 » lc  70  L UNERASE. 120  PAGE  132 
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( 1 ID) 

GTS  IS  PAFT  OF  THE  JASK. 

COUNT  BITS  FOR  GTSQRT  SH I F T I NG . 

INDEX  FOR  SHIFT  LOOP  IN  GTSQRT. 

CANNOT  BE  A DAPTEMP  - GTS  USES  THEM  ALL. 

ROOTCYCL  ERASABLE 
ROOTCYCL  ERASABLE. 

D.P.,  K TERROR , NEGUSUM 

S.P.,  K FROM  KQ  OF  KR  DAP , AT  P T / 2 ( 8 > 

D.P.,  GTS  SCRATCH  CELLS. 

S.P.,  OMEGA,  AT  PI/4  RAD/SEC 
S.P.,  ALPHA,  AT  PI/4  RAD/SEC(2) 

S.P.,  SGN  FUNCTION  VALUE. 

D.P.,  GTS  SCF ATCH  CELLS. 

S.P., INDEX  FOR  GTS  LOOP  THROUGH  Q , R AXES 
D.P. , ARGUMENT  FOR  GRSQRT , SCRATCH  FOR  GTS 

NEGATIVE  OF  O-AXIS  GIMBAL  DRIVE 
DEFINED  AND  JSED  ELSEWHERE 
NEGATIVE  OF  T-AXIS  GIMBAL  DP^VE 

S.P. , JERK  TEEM  FOR  GTS,  AT  PT / 2 ( 8 ) 

.3  ACCDOTP  SCALED  AT  PI/?(S) 

Q-JERK  SCALED  AT  P!/?(7)  UNSIGNED 

Q-JERK  SCALED  AT  PI/2(7)  SIGNED 

R-JERK  SCALED  AT  PI/2<7)  UNSIGNED 

R-JERK  SCALED  AT  PI/2 (7)  SIGNED 

ATTTTUDE  ERRORS: 

SCALED  AT  PI  RADIANS 


( 18D) 


THE  LAST  CONTROL  SAMPLE  PERIOD  OF  100  MS 
SCALED  AT  Pl/4  P AD  I AN S /SE COND 

ACCUMULATED  JET  TORQUE  COMMANDED  ABOUT 
+ ,-P,  +»— U,  + ,-V  RESPECTIVELY. 

EMPLOYED  EXCLUSIVELY  FOR  DOWNL I ST . 

NOT  INITIALIZED;  PERMITTED  TO  OVERFLOW 
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GAP; 


L 

EPASABl  E 

ASflLI  3 

NM.OMTS 

USER'S  PAGE  NO. 

44 

EO  S4 

1557 

REF 

4 

LAST 

132 

Eft,  1516 

NEGTORKU 

EQUALS 

OCWNTOPK 

F3 

SCALED  AT  32  JET-SEC, 

OR 

ABOUT  2.0  JET 

1558 

REF 

5 

LAST 

133 

E6 , 1517 

POSTORKV 

EQUALS 

DCWNTORK 

+ 4 

MSEC  PER  BIT. 

1559 

REF 

6 

LAST 

133 

E6, 1520::: 

NEGTORK V 

EQUALS 

OCWNTURK 

+ 5 

1560 

1561  F EE 

1562  REF 
156  3 

156'  REF 
1565  PEE 


t AST  133 


Eft , 15  21 
E6 ,1522 
E 6 , 1523 
E6 , 1524 
E ( , 1 5 2 5 
E 6 , 152ft 


E 6, 1523 


E6 , 1526 


NO.PJETS  ERASE 
NO . U JETS  = 

N(  . V JETS  = 

TJP  ERASE 

TJU 

TJV 


+ 2 

MO.PJFTS  +1 
NO.UJETS  +1 
+ 2 

TJP  +1 
TJP  +2 


1566 

E',  15?7 

Eft, 1527 

L , PVT-CG 

1567 

E6 , 1530 

Eft , 1 534 

1 JACC 

15(  8 

REF 

1 

Eft , 153  1 

1 JACCQ 

15 

REF 

2 

LAST 

133 

Eft, 1532 

1JACCR 

1570 

REF 

3 

LAST 

133 

E 6 , 1533 

1JACCU 

1571 

REF 

4 

LAST 

1 3 3 

Eft , 1534 

1J ACCV 

ER  ASE 

ERASE  +4"  ACCELERATIONS  DUE  TO  1 JET  TORQUING 

EQUALS  1 J ACC  +1  SCALED  AT  PI/4  R AD  I AN S / S E COND 

EQUALS  1JACC  +2 

EQUALS  1JACC  +3  FOR  U.V-AXES  THE  SCALE  FACTOR  IS  DIFF: 

EQUAL  1 J ACC  +c  SCALED  AT  PI/2  P AD  I AN S /S ECOND  (FOE  ASCI 


..z 


R 1 572  ASCENT  VARIABLES: 


( 10D ) 


A 1 ft  7 4 

1575  E 6 , 153  5 E6,1536  SKIPU  Er  AS  F +1 

1576  REE  1 Eft,  1536  SKIPV  = SKIPU  +1 

R 1577  THE  FOLLOWING  LM  DAP  F .ASABIES  ARE  ZEROED  TN  THE  STAR! DAP  SECTION  OF  THE  DAPIDLER  PPOGRAM  AND  THE  COASTASC 

R 1579  SECTION  OF  THE  AOSTASK.  THF  ORDER  MUST  BE  PRESERVED  FOR  THE  INDEXING  METHODS  WHICH  ARE  EMPLOYED  II'  THOSE 

R 158 1 SECTIONS  AND  ELSEWHERE. 


! 

1583 

1 

1585 


E6 , 1 537  Eft, 1544  AOSQ 
REF  1 Eft, 1541  ACSF 

REF  2 LAST  133  Eft , 154 3 AO SO 

REF  3 LAST  133  Eft, 1544  AOSV 


ERASE 

EQUALS 

EQUALS 

EQUALS 


+5  OFFSET  ACC.  ESTIMATES,  UPDATED  Ih  D.P., 

AOSQ  +2  AND  SCALED  AT  PI/2. 

AOSQ  +'•  UV-AXES  OFFSET  ACC.  FROMED  BY  VECTOR 

AOSQ  +5  ADDITION  OF  Q, R . AT  Pl/2  RAD/SEC ! 2 ) . 


1 58  ‘ 

Eft , 1545  Eft  » 1 546 

ALSO TERM 

ERASE 

+ 1 

I . 1-.05K) ACS 

1587 

REF 

1 

Eft  ,15/ ft 

AOS RT CRM 

EQUALS 

AOSQTERM  +1 

SCALED  AT  PI/4  R AD  I AN S/SECONO . 

0 158  8 

FOR 

T JET 

LAW 

S LIB RP (j 

TINE  : 

(TEMPS  ONLY) 

A 1590 

NUMBERT 

EQUALS 

DAPTEMP5 

DEFINED  IN  QRAXIS. 

1591 

REF 

6 

LAST 

132 

Eft, 1737 

EDGTSQ 

EQUALS 

DAPT EMP 1 

1592 

REF 

2 

LAST 

13  1 

Eft,  1740 

ROTSENSE 

EQUALS 

DAPTEMP2 

1593 

REF 

2 

LAST 

1 31 

Eft  , 174  1 

FIREFCT 

EQUALS 

DAPTEMP3 

LOOKED  AT  BY  PAXIS. 

1594 

ft  EF 

2 

LAST 

131 

F 6 , 1 7 4 2 

TTOAXIS 

EQUALS 

nj pt r Mp4 

\J  M ■ 1 1 1 r 

1 

REF 

2 

LAST 

131 

Eft,  1744 

ADR  SO  I F2 

EQUALS 

DAPT  EM  P6 

r : 

REF 

2 

LAST 

132 

Eft, 1745 

HOLDQ 

EQUALS 

DAPTREG1 

1597 

REF 

1 

Eft,  17-46 

ADLSDIFl 

EQUALS 

DAPTREG2 

1598 

REF 

1 

Eft, 1747 

HH 

EQUALS 

DAPTREG3 

DOUBLE  PRECISION 

A 159  9 

HH  +1 

EQUALS 

DAPT  ft  EG'1 

1600 

REF 

1 

Eft, 1752 

E 

EQUALS 

DAPT- FGft 

TIME  SHARE  WITH  VERROP 

1601 

P EF 

2 

LAST 

130 

Eft  , 1427 

E DOT 

EQUALS 

OMEGAV 

< 


I 


1 


1 


f 


SAP:  ASSEMBLE  RE  VI  S.I  ON  , 001  OH  AGC  PROGRAM  AP11R0PEJ3Y  EYLES 


P 1602 


Ei  AS  ABLE  ASSI  GNMENTS 

INPUT  TO  TJET  LAW  (PERMANENT  ERASABLES). 


1604 

REF 

1 

E6 , 1525 

T J El  0 

- 

T JU 

160  6 

E 6 , 1547 

E 6 , 1 6 2 6 

31 OCKTOP 

ER  AS  E 

+ 47  D 

1606 

REF 

1 

ES  1567 

1/ANET1 

BLOCKTOP  + 16  D 

1607 

REF 

1 

FA, 1670 

1/ANFT2 

= 

1 /AN FT  l +1 

1608 

REF 

2 

LAST 

134 

E6, 1573 

1/ACOAST 

= 

1/AMET1  +4 

1609 

REF 

3 

l AST 

134 

E6 ,1575 

ACCFCTZ 1 

= 

1/ANFT1  +6 

1610 

REF 

4 

LAST 

134 

E6 , 1576 

ACCFCTZ5 

1/ANET1  +7: 

161  1 

REF 

5 

LAST 

134 

E 6 , 1601 

FIT.  FDB 

= 

1/ANET1  +10D 

161? 

REF 

6 

LAST 

1 34 

E6, 1603 

COASTDB 

= 

1/ANET1  +1 2D 

1613 

PEP 

7 

L ACT 

1 34 

E 6 , 160  5 

AXI SD! ST 

_ 

L/ANET1  +14D 

A 16  1 ^ 

161  5 

REF 

2 

LAST 

1 34 

F 6, 154 7 

ACCS  WU 

= 

BLOCKTOP 

1616 

REF 

1 

E 6 , 1550 

ACCS  y V 

= 

ACC  S WU  +1 

1617 

REF 

3 

1 AST 

134 

E ‘ , 155  5 

FL  AT 

= 

BLOCKTOP  +6 

16  1 8 

I EF 

4 

LAST 

134 

EL  , 15  56 

ZONE 3LIM 

= 

BLOCKTOP  +7 

161  F 1 

E6 , 1627 

E6 , 1630 

COEFFQ 

EF  ASE 

+ 1 

16182 

REF 

1 

E6 , 1630 

COEFFR 

EQUALS 

COEFFQ  +1 

A 161' 

P 1620 

VAR  I ABLES 

FOR 

GTS-QPAXIS  CONTROL  EXCHANGE. 

1622 

REF 

2 

LAST 

132  E6 , 1502 

ALLOWGTS 

EQUALS 

NEGUO  +1 

1623 

E6 , 1631 

E6, 1631 

Cl  T f PLER 

ERASE 

1624 

E 6 , 1632 

E6 ,1634 

QGIMTIMR 

ERASE 

+ 2 

1625 

REF 

1 

E 6 , 1633 

INGTS 

EQUALS 

QGIMTIMR  +1 

162  6 

REF 

2 

LAST 

134  E6 , 16 3 4 

RGIHTIMR 

EQUALS 

QGIMTIMR  +2 

R 1627 

PLEASE  RETAIN 

THE  ORDER  OF  CDUXD  THRU 

CDUZD  FOR 

DOWNLINK 

PURPOSES. 

R 1628 

k A 1 C M AM  1 1 ? n A D T M T PC  P A C P 

1630 

£6 ,16  3 5 

06,1437 

CDUXD 

ERASE 

+2 

1631 

P EF 

l 

F A . 1 A 3 A 

CDU  YD 

EQUAL  S 

r n 1!  Y n +1 

i _ " f j.  r?  tj 

1632 

PFF 

2 

LAST 

134  E 6 , 16  37 

CDUZD 

EQUALS 

CDUXD  +2 

1633 

E 6 , 1 64  C 

E6,  1642 

DELCDUX 

ERASE 

+ 2 

) 1 

PFF 

1 

E6 , 164  L 

DELCDUY 

EQUALS 

DELCDUX  +1 

1635 

REF 

2 

LAST 

134  E 6, 1642 

DELCOUZ 

EQUALS 

DELCDUX  +2 

R 1636 

RETAIN 

THE 

ORDER  OF  OMEGAPD 

i TO  OMEG 

ARD  FOR  DOWNLINK  PURPOSES. 

1637 

E 6 , 1 64  3 

E6, 1645 

CiMEGAPD 

ERASE 

+ 2 

1638 

REF 

1 

E6  ,1644 

OMEGAQD 

EQUALS 

OMEGAPD  +1 

163? 

REF 

2 

! AST 

134  Ffc  » 1645 

OMEG ARD 

EQUALS 

OMEGAPD  +2 

R 1640 

KALCMANH  STOPAGF. 

E6 , 1 64  6 E 6 i 1 6 7 5 


MIS 


EP  ASE 


1642 


+ 23D 
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( 48  D ) 

EQUATE  NAMES.  INDEXED  BY  -1,  0,  +1. 

THESE  8 PARAMETERS  ARE  SET  UP  BY  1/ACCS 
FOR  MINIMUM  JETS  ABOUT  THE  U-AXIS  WHEN 
EDOT  IS  POSITIVE.  TJETLAW  INDEXES  BY 
ADRSDIFF  FROM  THESE  REGISTERS  TO  PICK  UP 
PARAMETERS  FOR  THE  PROPER  AXIS,  NUMBER 
OF  JETS  AND  SIGN  OF  EDOT.  THERE  ARE  48 
REGISTERS  IN  ALL  IN  THIS  BLOCK. 

FOUF  NOT  REFERENCED  (P-AXIS)  ARE  FILLED 
IN  BY  THE  FOLLOWING: 

SET  by  1/ACCS  TO  SHOW  WHETHEP  MAXIMUM 
JETS  APE  REQUIRED  BECAUSE  OF  AOS. 

WIDTH  OF  MINIMUM  IMPULSF  ZONE. 

HEIGHT  OF  MINIMUM  IMPULSE  ZONE ( AT  4 SEC) 

COEFFQ  AND  COE  F FR  ARE  USED  IN  ROT-TOUV 
TO  RESOLVE  Q,R  COMPONENTS  INTO  U,V  COMP. 


(4) 

INSERT  INTO  UNUSFD  LOCATION 
INDICATES  WHICH  CONTROL  SYSTEM  TO  USE. 
Q-GIMBAL  DRIVE  I TM  E R , DECISECONDS. 
INDICATOR  OF  CUPPENT  GTS  CONTROt  . 
R-GIMBAL  Dr  IVE  TIMER,  DECISECONDS. 


(90) 

C DU  DES  IREC  REGISTERS: 

SCALED  AT  Pi  RADIANS  (180  DEGREES) 

(STORE  IN  2S  COMPLEMENT) 

NEGATIVE  OF  DESIRED  LOOMS  CDU  INCREMENT: 
SCALED  AT  PI  RADTANS  (180  DEGREES) 

(STORE  IN  2S  COMPLEMENT) 


ATTITUDE  MANEUVER  DESIRED  PATES: 

(NOT  EXPLICITLY  REFERENCED  IN  GTS  CNTRL ) 
SCALED  AT  PI/4  RAD  I AN S /SECOND 

( 24D) 


I ( 180  ) 


3 AP : ASSEMBLE  REVISION  001  OF  AGC  PROGRAM  AP11R0PE  BY  fcYLES 
l E!  A SABLE  ASS  1 3 NM EM  r 

L643  REF  1 66 » 167  0 COF  EQUALS  MIS 
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R 1644  K ALCMANU  STORAGE.  (33D) 

1646  66,1676  66,1734  BCDU  ERASE  +30D  B<3) 

1647  REF  ) E6 , 170 1 KSPNDX  EQUALS  BCDU  +3  B ( 1 ) 

1643  r EF  1 E6 , 170  2 KDPNDX  EQUALS  KSPNDX  +1  B ( 1 > 


1645 

P EF 

1 

E6,  1703 

THIS 

EQUALS 

KDPNDX 

+ 1 

I (18) 

MUST 

BE 

IN 

SAME 

BANK 

AS 

RCS 

DAP 

1650 

REF 

1 

E6, 172  6 

COFSKEW 

EQUALS 

T MI  S 

+ 18D 

1(6) 

MUST 

BE 

IN 

SAME 

BANK 

AS 

RCS 

DAP 

166  1 

REF 

l 

66, 17  3 3 

CAM 

EQUALS 

COFSKEW 

+6 

1(2) 

MUST 

BE 

IN 

SAME 

BANK 

AS 

PCS 

DAP 

1652  E6,1735Eo» 

A 165  3 


R 16c*  Fl»ST-r.PD€P  OVERLAYS  IN  K ALCMANU 


1656  REF  2 LAST  135  E6,1703 

1657  REF  3 LAST  135  E6,17Q3 

1658  REF  A LAST  13c  66,1703 

165°  REF  6 LAST  135  66,1703 

1660  REF  6 LAST  13c  F6,1706 


1661 

REF 

7 

LAST 

135 

E 6 , 1707 

1662 

REF 

8 

LAST 

135 

E6, 17  1 1 

1663 

REF 

9 

LAST 

135 

E6 , 1711 

166^ 

REF 

1 ) 

LAST 

135 

E 6 , 1 7 1 7 

166  5 

PEE 

1 1 

i AST 

135 

E 6 , 1717 

1666 

REF 

2 

LAST 

135 

E6, 1725 

1667 

REF 

3 

LAST 

135 

E6  , 1725 

1668 

REF 

l 

F6  , 1733 

R 166  5 

SECOND-: 

ORDER  I 

OVERLAYS 

. IN  K ALCMANU 

1671 

REF 

1 

E 6 , 1703 

1672 

REF 

F .1711 

1673 

REF 

1 

E6  , 1717 

1674 

REF 

> 

LAST 

135 

E f , 1703 

1676 

REF 

3 

LAST 

136 

F 6 , 1 FOE 

1676 

REF 

4 

LAST 

135 

E6 , 1707 

1677 

REF 

2 

LAST 

135 

E6, 171  1 

1673 

REF 

3 

LAST 

135 

E6, 1713 

1679 

REF 

4 

LAST 

135 

E 6 , 1715 

1630 

REE 

2 

LAST 

135 

E 6 , 1717 

1631 

REF 

3 

LAST 

136 

F 6,  1721 

1682 

REF 

4 

LAST 

135 

E6 , 1723 

736  AM  ERASE  +1 


K V 1 

EQUALS 

TM  I S 

MF I S YM 

EQUALS 

TMIS 

TM.FI 

EQUALS 

THIS 

NCDU 

EQUALS 

TMIS 

NEXT  I IE 

EQUALS 

TMIS 

4-  3 

TTEMP 

EQUALS 

TMIS 

+4 

KV2 

EQUAL  S 

TMIS 

+ 6 

61 ASTEMP 

EQUALS 

TMIS 

4-  6 

KV3 

EQUALS 

TMIS 

+ 12  D 

OC-F 

EQUALS 

TM1  S 

4-12D 

BRAT  E 

EQUALS 

COFSKEW 

IG 

EQUALS 

COFSKEW 

TM 

EQUALS 

CAM 

Kl  = KV1 

K 2 = KV2 

K7  = KV3 

P 2 1 EQUALS  K V 1 

D21  EQUALS  KV1  +2 

G21  EQUALS  KV1  +4 

C 2 SOP  EQUALS  KV2 

C2SQM  EQUALS  KV2  +2 

C2PF  EQUALS  KV2  +4 

C2MP  EQUALS  KV3 

C1PF  EQUALS  KV3  +2 

C IMP  EQUALS  KV3  +4 


1(2)  THIS  WAS  ONCE  IN  E5  OVERLAYING  OGC 


( 26 D ) 

1(6) 

I 

I 

B 

R 

B 

1(6) 

B 

1(6) 

I 

B 

I 

B 

( 24D  ) 


1(2) 
T ( 2 ) 
T ( 2 ) 
1(2) 
1(2) 
1(2) 
1(2) 
1(2) 
1(2) 


SAP : 

ASSEMBLE  ' 

EVISION  001 

OF  AGC  PROGRAM  API] 

UOPE  BY  FY 

Ll-S 

3:15  DEC.  2,1970 

L 

ERASABLE 

A S S 1 3 

NMENTS 

USER'S  PAGE 

1633 

REF 

4 

LAST 

135 

E 6 , 1725 

VECOTEMP 

= 

CCFSKEW 

1 ApA 

l 

a 

1 A QT 

134 

FA  . 1 A B 5 

or  nu 

r ni  i x n 

iOOM 

our 

.7 

LAP)  1 

1685 

REF 

3 

LAST 

134 

E 6 » 164  0 

DEL.  DC  DU 

= 

DEL  CDUX 

1 

REF 

1 

E 6 , 1 6 4 1 

DEL DC DU  1 

= 

DELCOUY 

1637 

PFF 

1 

F 6 , 1 64  2 

DELDCDU2 

- 

DELCDUZ 

c U ' 

* f 

if 

't-  ^ 

* =r 

$ 6=  # if.  =6  * 

* * * * 

* ❖ 

ffi  * £ 

if  . 

* 

R 1665 

ST r r AGE 

FOP  FINOCDUW 

p i e c 

OVERL  AY I NG 

KALCMANU  STORAGE: 

( 26D) 

1692 

REF 

2 

LAST 

13  5 

E6,  1646 

ECDUW 

EQUALS 

M I S 

1693 

REF 

1 

F 6 , lo46 

ECDUWUSR 

EQUAL  S 

ECDUW 

8 ( 1 ) T M P 

169* 

REF 

1 

E 6, 1647 

QCDUWUSF 

EQUALS 

E CDUWU5  f 

+ 1 

t ( 1 ) T M p 

1695 

REF 

1 

E6 , 1650 

F; o XC  OUW 

EQUALS 

QCDUWUSI 

+ 1 

B(  1 ) TMP 

i 

REF 

1 

E6, 1651 

FL  AGQODW 

EQUALS 

NDXCDUW 

+ 1 

B ( 1 ) TMP 

1697 

REF 

1 

E6 , 1652 

FLPAUTNO 

EQUALS 

FL AGOODW 

+ 1 

B ( 1 )TMP 

1698 

REF 

1 

E6, 1653 

UNFC/2 

EQUALS 

FLPAUTNO 

+ 1 

I (6  ) IN 

1 6 9 9 

REF 

1 

E6, 166  1 

UNWC/2 

EQUALS 

UNFC/2 

+ 6 

I f 6 ) I N 

170C 

REF 

1 

E 6 , 1667 

UNFV/2 

EQUALS 

UNWC/2 

+ 6 

I { 6 ) S -S 

1701 

RFF 

1 

E 6 , 1667 

UN  FV  X / 2 

= 

UNFV/2 

1702 

REF 

2 

LAST 

136 

E6,  167  1 

UNFVY/2 

= 

UNFV/2 

+ 2 

1703 

REF 

3 

LAST 

136 

E6 , 1673 

UNFVZ/2 

= 

UNFV/2 

+ 4 

1 

REF 

4 

LAST 

1 36 

F 6 , 1675 

-DEL  GMB 

EQUALS 

UNFV/2 

+ 6 

B ( 3 ) TMP 

E 17  0 c 

R 1706 

DEFINED  If. 

THE  WORK  AREA: 

( 1RD) 

1703 

0000 

UNX/2 

— 

0 / 

17 

0006 

UNY/2 

= 

6 

1710 

0014 

UNZ/2 

_ 

1 A 

1 

R 171  1 

R 17  l 2 

END 

HF  FINDCDJW  E” AS ABLE S 

R 1713 

* # 

* 

5*  # 

* * 

$£*=!<  if  * 

if  * if  if 

* if 

# * % 

* 

* 

R 1716 

THE 

following 

A!<  E the  dap  REPLACEMENTS 

FO:  THE  I TEMPS  AND  RUPTR EGS , NEEDED  BECAUSE  DAP  IS 

R 1 7 1 6 

...ANYWAY,  THE 

DAP  CAN  NOW  BE  INTERRUPTED. 

(180) 

1718 

F6 , 1737  E6 , 1 760 

DAPTEMP1 

EPASF 

+ 170 

1719 

REF 

7 

LAST 

133 

E6, 1740 

DAPTEMP2 

EQUALS 

DAPTEMP1 

+ 1 

1720 

REF 

8 

LAST 

136 

E6 , 174  1 

DAPTEMP3 

EQUALS 

DAPTEMP1 

+ 2 

1721 

REF 

9 

LAST 

136 

E6 , 1742 

DAPTEMP4 

EQUALS 

DAPTbMPl 

+ 3 

1722 

REF 

10 

L AST 

136 

E6 , 1743 

DAPTEMP5 

EQUALS 

DAPTEMP1 

+ 4 

1723 

REF 

11 

LAST 

136 

E6, 1744 

DAP! EMP6 

EQUALS 

DAPTEMP1 

+ 5 

1726 

RFF 

12 

LAST 

136 

E6 , 1745 

DAPT R EG  1 

EQUALS 

D APT  Ew  P 1 

+ 6 

17  2 5 

REF 

1 3 

LAST 

136 

E6, 1746 

DAPTREG2 

EQUALS 

DAPTEMP1 

+ 7 

1726 

REF 

14 

LAST 

136 

E6 , 1747 

DAPTREG3 

EQUALS 

DAPT  EM  P 1 

+ 8D 

EO  S4 


'A  TOB  , JASK, JAB ,TOSK 


i" 
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3:15  DEC 


2,1970  LUMERASE.120  PAGE  137 


L 

E r'  Ai 

ABLE 

ASS  IG 

NMENTS 

1727 

REF 

15 

LAST 

136 

E6  , 

1750 

UAPTR 

EG4 

172P 

REF 

16 

LAST 

137 

E 6 , 

175  1 

DAPTP. 

EG5 

1729 

REF 

17 

LAST 

137 

Efc, 

1752 

DAP  TF 

EG6 

USER’S  PAGE  NO.  48  EO  S4 

EQUALS  DAPTEMP 1 +9D 
EQUALS  DAPTEMP1  +10D 
EQUALS  0APTEMP1  +11D 


17  30 

1731 

1732 

REF 

occ 

IP 

1 

2 

LAST 

137 

Ef  , 17^3 

pa.  1 7 C /. 

“ LI 

REF 

LAST 

137 

U f 1 I J ’•? 

E6 , 1755 

1733 

REF 

3 

LAST 

137 

E6, 1757 

DAPARUPT  EQUALS 
DAPl r UPT  EQUALS 
DAPBQRPT  EQUALS 
DAP ZR UPT  EQUALS 


DAPTEMP  1 +12D 
DAPAFUPT  +1 
DAPARUPT  +2 
OAPARUPT  +4 


A173<f  (DAPZPUPT  IS  ALSO  J AS K- IM-PPCGRESS  FLAG) 

A 173  K 


R1736  NEEDLEP ( ATTITUDE  EFROR  EIGHT  BALL  DISPLAY)  STORAGE. 


173P 

1 73  c 

1740 

1741 

1742 

REE 

REF 

3 

4 

LAST 

LAST 

95 

9.5 

C06  1 
006  3 

FA. 1761 

Efc, 1763 

T5TEVP 
DI  NDX 

AK 

REF 

REF 

1 

2 

LAST 

137 

L_  f 1 f O L 

Efc, 1762 

E 6 , 1763 

AK  1 

AK2 

1743 

1744 

1745 

REF 

PFF 

1 

2 

l AST 

137 

£6  , 1764 
Efc  , 1765 
E6, 1766 

Efc, 1766 

EDS1 VEX 
EDR  I VEY 
EDRI VEZ 

EQUALS  I TEMPI 
EQUALS  ITEMP3 
ERASE  +2 
EQUALS  AK  +1 
EQUALS  AK  +2 

ERASE  +2 

EQUALS  EDRIVEX  +1 

EQUALS  E DP  I VEX  +2 


( 6 D ) 


NEEDt  E‘  ATTITUDE  INPUTS,  SCALED  AT  130 
DEGREES.  P , Q , R AXES  IN  AK , AK 1 , AK2 . 


NEEDLEP  DISPLAY  & EGS  AT  18C0  DEGREES. 

SO  THAT  3P4  BITS  REPRESENT  42  3/16  DEG. 


P.1746  DOCKED  JET 


174  62 
1746  3 

REE 

1 

2 LAST 

17464 

REF 

137 

174/  5 

EE 

1 

INHIBITION  COUNTERS 

E 6 » 1 7 6 7 Ft  , 1771  PJETCTF 
E6 , 1770  UJ  ETC TR 

E6 , 177 1 VJETCTR 

E6 , 177  1 END- E6 


(3D) 

E:  ASF  +2 
EQUALS  PJETCTP  *1 
EQUALS  PJETCTR  +2 


EQUALS  VJETCTR 


GAP:  ASSEMBLE  revision  001  OF  AGO  PROGRAM  apiircpe  by  eyles 


3:15  DEC 


2 , 1°70  LUMERASE.120  PAGE  138 


P 17^7 
1741 


R 174° 

1751 

1752 


R 1753 

1755 

1756 

P 1757 
1 7 

1741 
A 176  5 


R 174  6 
176  8 
R 1769 

1771 

1772 

1773 
A 1774 

1775 
A 1776 
A 1777 

R 1778 

1790 
1781 
A 178? 

R 178201 

178203 
A 1782  04 


t:  A SABLE  ASSIGNMENTS 

EBANK-7  assignments 
E7, 1400 


SET1  OC  3400 


USER'S  PAGE  NO.  49 


EO  S4 


P3*  CONSTANTS. 


-PAD  LOADED- 


E7.1400  E7.1401 

£7,1402  E 7 , 1403 


ATIGINC 

PTIGINC 


EPASE 

ERASE 


+ 1 
+ 1 


(40) 

B ( 2 ) P L * M U S T BE  AT  1400  FOR  SYSTEMSTEST 
B ( 2 ) P L 


AOTM'APK  STOf  AGF. 


£7,1404 
E7 , 141 2 


LANDING  RADAR. 


-PAD  LOADFO- 


F7, 1411 
E7, 1417 


AOTAZ 

AOTEL 


-PAD  LOADED- 


E7 , 1420 
E7 , 1421 


E7, 1420 
E7 , 1421 


LRHM  AX 
LRWH 


ERASE 

ERASE 


ERASE 

ERASE 


+ 5 

+ 5 


( 12D) 

B<6  ) PL 
B( 6 ) PL 

(2D) 

B ( 1 ) 
B(l) 


THROTTLE  STORAGE. 

E7, 1422 


-PAD  LOADFD- 

E7 , 1422  ZOOMTIME  EPASE 


n63  AND  P6^  CONSTANTS. 


-PAD  10ADED- 


E 7 , 142  3 E7 , 1 42 3 
E 7 , 142  4 E 7 , 1424 
E7.1425  £7,1425 


TENDB-RAK  ERASE 
TEMDAPPR  ERASE 
DELTTFAP  ERASE 


E7,14?6  E 7 , 1 42  6 LEADTIME  ERASE 


( ID) 

B ( 1 ) P L TIME  OF  DPS  THROTTLE-UP  COMMAND 
( 4D  ! 

B ( 1 ) LANDING  PHASE  SWITCHING  CRITERION 
B ( 1 ) LANDING  PHASE  SWITCHING  CRITERION 
B ( 1 ) INCREMENT  ADDED  to  ttf/8  WHEN 
SWITCHING  FROM  P63  TO  P64 
B ( 1 ) TIME  INCREMENT  SPECIFYING  HOW  MUCH 
GUIDANCE  IS  PROJECTED  FORWARD. 


LANDING  RADAR 


-PAD  LOADED- 


C7.1427  E7 ,1427 
£7,1430  £7,1430 


FPCFTIMF  ERASE 
- PC1  TO S W ERASE 


( 2D) 

BID  REPOSITIONING  CRITERION  (TIME) 
B { 1 ) PEPCSIT IONING  CR  ITER  ION  (ANGLE) 


ASTEER  -PAD  LOADED- 

£7,1431  £7,1432 


TNEWA 


ERASE  +1 


2D) 


I ( 2 ) P L LAMBERT  CYCLE  PERIOD 


R 178205 


P 22  STORAGE 


OVERLAYS  LANDING  PADL^ADS 


( 5D  ) 


GAP:  ASSEMBLE  REVISION  OC 1 OF  AGC  PROG,  AM  AP11  ._PE  BY  E YL  E S 


L E'  ASABLE  ASSIGNMENTS 


178215  REF 
A 178  2 2 
173225  REF 
A 17  8 2 3 
178235  PEF 
A 1 7 8 2 A 
A 178245 


1 

1 

1 


E7, 1423 
67,1*24 
£7 , 1^26 


RE POSC NT  EQUALS 
REPOSTM  EQUALS 
DELTATM  EQUALS 


T ENDBRAK 
REPOSC.NT  +1 
p EPOSTM  +2 


R 1783  ***  ,E  TAI  N THE  ORDER  .OF  QELVSLV,  TIG,  RTARG,  DEI  L T 4 FOR  UPDATE.  *** 


R 1 78*  P 3 2 - 3 r<  P72 -7^  STr^AGE. 


1786 

£7,1433  E7 , 1440 

DELVLVC  ERASE 

+ 5 

1787 

A 1788 

REF 

1 

E7 ,143  3 

DEL VSLV  = 

DELVLVC 

F 178  0 


P30-P40  INTERFACE  UNSHARED. 


17<5 1 £7,1441  §§,1442  TIC,  ERASE  +1 

A 1792 


P 1793 


INITVEL  STORAGE.  ALSO  USED  BY  P 34 ,35,74,75,  10,  11  OTHERS 


1795 
179  6 
A 1797 


E 7, 144  3 E 7, 14  50  RTARG  ERASE 

§7,1451  £7,1452  DELL  T 4 ERASE 


+ 5 
+ 1 


P 1798  P30-P4O  INTERFACE  U-  SHAPED. 


1800 

1801 

REF  1 

E7  9 1453 
F7 . 14^^ 

£7,1454 

TTOGO 

TF  T 

ERASE 

c nil  a i q t Tfif^n 

r * i t j D 

i r i 

n w '_/AL  o ; ■ iJyl. 

1802 

E7 , 1455 

E7, 1455 

WHICH 

ERASE 

A 1803 

R 1804 

R 2 1 

1806 

£7,1456 

E7 , 1456 

LUSC  C.UNT 

ERASE 

A 1807 

R 1808 

LSP  22 

.3  (P 

FNDFZ VOU  S 

NAVI GATT 0 N ) STF  - AGE 

• 

R 1810 

RETAIN  THE 

ORDEP 

OF  A I G TO 

TRKMKCNT 

FOR  DOWNL 

INK  PURPOSES. 

1811 

E7 ,1457 

El ,1457 

A I G 

ERASE 

1812 

E7 , 14  60 

£7,1460 

A MG 

ERASE 

1813 

£7,1461 

£7,1461 

AOG 

ERASE 

1814 

E7 , 1462 

E 7 ,1462 

TRKMKCNT 

ERASE 

1815 

REF  1 

F7,  1462 

MAP  KCTR 

= TRKMKCNT 

15  DEC. 

2,1970  LUMERASE.120  PAGE  139 

! 

USEF 

' S PAGE  NO.  50  EO  S4 

B ( 1 )TMP 

COUNTS  NUMBER  OF  PASSES  THROUGH 
REPOSITION  ROUTINE. 

I ( 2 ) T MP 

PRESENT  TIME  PLUS  INCREMENTS  OF 

TE1  SECONDS. 

..z 

I ( 2 ) T MP 

TIME  INTERVAL  FOR  RUNNING 

DESIGNATE  TASK. 

( 6D  ) 

1(6)  DELTA  VELOCITY  - LOCAL  VERTICAL  COO 
(TEMP  STORAGE  OF  SAME  VECTOR ) -RDINATE 

( 2D) 
B ( 2 ) 


( 8D) 

1(6)  TARGET  VECTOR 
1(2)  TIME  DIFFERENCE 


(3D) 
B ( 2 ) 

Bll) 

(ID) 

6(1) 

(40) 


B ( 

1 )OUT 

GIMGAL  ANGLES 

B ( 

: 1 ) OUT 

(MUST  BE 

B ( 

1 )OUT 

CONSECUTIVE ) 

Bl 

[ 1 ) TMP 

TEMPORARY  MARK  STORAGE 

« 


GAP: 
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2,1°70  LUMERASE . 120 
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ASSEMBLE  REVISION  .001  If  ACC  PRC.  GRAM  A-°l  1-OPfc  BY  EYLES 
L,  ERASABLE  ASSIGNMENTS  USER'S  PAGE  NO.  51  EO  S4 


R 18  I 6 

P32-P35,  F72-P75  STORAGE. 

PERMANENT- 

(6) 

1816 

E7 , 1463 

E7, 1463 

NORMEX 

ERASE 

Bill 

PRM 

SAVE 

FOR 

Q 

1819 

E7 , 1464 

67 » 1 464 

OSAVE!) 

ERASE 

B ( 1 ) 

P°M 

5 AVE 

EOF 

Q 

1820 

E7, 1^6-5 

E7, 1465 

RTF  A 

ER  ASF 

B ( 1 ) 

PPM 

SAVE 

FOR 

0 

1821 

E7 , 1466 

, 1467 

NN 

ERASE 

+ 1 B ( 2 ) 

182  2 

E7, 1470 

E 7 , 1 4 7 0 

SUBEXIT 

ERASE 

B ( 1 ) 

PRM 

SAVE 

Q 

18221 

67, 1471 

E70VFRL A 

EQUALS 

START  OF 

£7  OVERLAYS. 

18222 

REF 

1 

E 7, 1471 

WHnCARES 

EQUALS 

E70VERLA 

DUMMY  FOP. 

E8ANK  IN  SEN 

R 1823 

LUNAR  LANDING  OVER! AYS 

(60) 

18242 

REF 

1 

E7 ,1463 

/AFC/ 

EQUALS 

NORM EX 

B ( 21TMP 

THROTTLE 

1824-3 

REF 

1 

E 7 , 14-6  5 

FCODD 

EQUALS 

/AFC/ 

+ 2 

B( 2 1TMP 

TH’OTTL  E 

1824  4 

REF 

1 

E7 , 1467 

FP 

EQUALS 

FCODD 

+ 2 

B ( 2 ) T M F 

THROTTLE 

A 1 8 2 4 5 
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P 182  5 
A 1820 


R 1827 

182  5 

1830 

1831 

1832 

1833 
183* 

1835 

1836 
1637 

183  8 
1835 
! 

1841 
18  4? 

184  3 

1844 

1845 

1846 

1 

1848 

1849 

1850 
1361 

1852 

1853 

1854 

1855 

1856 

1857 
1 

1859 
186  ( 
1861 
1862 

1863 

1864 

1865 
i 

1867 

1668 


Ef-ASABLF  ASSJ3!YMENTS 

*******  OVERLAY  NUMBER  0 IN  EBANK  7 ******* 


r L'OEZVi  .'S  GUIDANCE  STORAGE  -P32....P35- 


REF 

REF 

REF 


REF 


CEF 


REF 

REF 

RFF 


REF 

REF 
REF 
P-  EF 
REF 


LAST  141 


LAST  141 


E7, 161  1 
E7,  1573 
E7, 1575 
E 7, 1471 
F 7 , 1477 
E7, 1505 
£7  * 1513 
E7 , 1521 
E7 , 152  7 
E?,  1535 
E7  » 1 3*  3 
E 7 ,1551 
E7, 1557 
£7,1565 
1 ■ - 
E 7 , 1 r 7 3 
F 7 , 1 57  6 
E7, 1575 
E7 , 1577 
E 7, 1601 
£7,1  >>0  3 
E 7,1  O' 
E7 , 1605 
F7 , 1603 
E7 , 16C7 
E7, 1575 
£7,1611 
F7, 16  13 
E7, 161 5 
F7 , 1613 
E7 , 1616 
F7 , 1505 
£7,1477 
E7, 1527 
£7,1521 


F7 , 147o 
£7,1504 
E7 , 1512 
F7 ,1520 
E7 , 1526 
£7 ,1534 
E 7 , 1 542 
E7 ,1550 
£7,1556 
E7, 1564 
E7 ,1572 

E7.1574 
F 7 , 157 6 

E7 , 1600 
E 7 , 1 l 
E7 , 1 
E7, 1606 


£7,1610 

E7 ,1612 
£7,1614 
E7,  1615 

E7 , 1617 


TSTf  T 
T0EC2 
KT 

VACT  1 
R PASS l 
VPASS1 
VACT  2 
R P A S S 2 
VP ASS 2 
PACT  3 
VACT  3 
I PAS  S3 
VPASS3 
VACT4 
UN  VEC 
DEI VCSI 
DEI  V 7 P I 
DEL VWT D 
DIFFALT 
POSTCSI 
POST  C DH 
P0STTP1 
LOOPCT 
H AFP  A l 
GAMP  REV 
DVPREV 
DEL  DV 
CSIALRM 
VERBNDUN 

titer 

RDOTV 
VAPREC 
RAPT  EC 
VPPKEC 
RP  PR  EC 


EQUALS 

EQUALS 

EQUALS 

ERASE 

ERASE 

ERASE 

ERASE 

ERASE 

ERASE 

ERASE 

ERASE 

Ff  APE 

ERASE 

ERASE 

EQUALS 

ER  AS  F 

EF  ASE 

EQUALS 

ERASE 

ERASE 

EF  ASE 

E"  ASE 

EQUALS 

EQUALS 

ERASE 

EQUALS 

ERASE 

ERASE 


DELDV 
DEL  VCS I 
DEL VT  P I 
+ 5D 
* 5D 
+ 5D 
+ 5D 
+ 5D 
+ 5D 
+ CD 
+ 5D 
+ 5D 
+ 50 
+ 50 
VACT  3 
+ 1D 
+ 1 D 

DELVTPI 
+ ID 
+ 1 
+ 1 
+ 1 

PCSTTPT 
POSTCDH 
+ 1 

DELVTPI 
+ 1 D 
+ 1 


ERASE 

EQUALS  CSIALRM 
ERASE  +1 
EQUALS  VPASS1 
EQUALS  PPASS1 
EQUALS  VPASS2 
EQUALS  RPASS2 


RFF 

4 

LAST 

141 

F7,  1575 

DELEL 

EQUALS 

DELVTPI 

REF 

2 

LAST 

141 

E7,  161 1 

DELTEE 

EQUALS 

DELDV 

REF 

2 

LAST 

14-1 

E 7, 1573 

SECMAX 

EQUALS 

DEL VCS I 

REF 

2 

LAST 

141 

E 7 , 1605 

UELTEEO 

EQUALS 

PCSTTPI 

E7, 162  0 E 7 , 1621 

CENT  AN G 

ER  AS  E 

A I 


+ 1 


3:15  DEC.  2,1970  LUMERASE . 120  DAGE 
USER • S PAGE  NO.  52  FO  S4 


141 


( 39D) 

MIDCOURSE  STAPT  TIME 

TEMP  STORAGE  FOR  INTEGRATION  TIME  INPUT 
TEMP  STORAGE  FOR  MIDCOURSE  DELTA  TIME 
VELOCITY  VECTOR  OF  ACTIVE  AT  CS I T IME 

POSITION  VECTOR  OF  PASSIVE  AT  CSI  TIME 

VELOCITY  VECTOR  OF  PASSIVE  AT  CSI  T I ME 

VELOCITY  VECTOR  OF  ACTIVE  AT  CDH  TIME 

POSITION  VECTOR  OF  PASSIVE  AT  CDH  TIME 

VELOCITY  VECTOR  OF  PASSIVE  AT  CDH  TIME 

POSITION  VECTOR  OF  ACTIVE  AT  TPI  TIME 

VELOCITY  VECTOR  OF  ACTIVE  AT  TPI  time 

POSITION  VECTOR  OF  PASSIVE  AT  TP T TIMg 

VELOCITY  VECTOR  OF  PASSIVE  AT  TPI  TIME 

VELOCITY  VECTOR  OF  ACTIVE  AT  INTERCEPT 
CDH MVP  UNIT  VECTOR  TEMP  STORAGE. 

THRUST  VALUE  AT  CSI 
THRUST  VALUE  AT  TPI  OR  MID 

ALT  DIFFERENCE  AT  CDH 

PERIGEE  ALTITUDE  AFTER  CSI  MANEUVER 

PERIGEE  ALTITUDE  AFTER  COH  MANEUVER 

PERIGEE  ALTITUDE  AFTER  T° I MANEUVER 

CSI  NEWTON  ITERATION  COUNTER 

HALF  PERIOD 

PREVIOUS  GAMMA 

PREVIOUS  DEL VCS I 

FIRST  SOLUTION  Al ARM 

I TFr  AT  I ON  Ct  UNTER 

1(6)  S-S  PREC  VEC  FOR  NOM  TPI  TIME! ACT  V 

1(6)  S-S  PREC  VEC  FOR  NOM  TPI  T I ME ( ACT  V 

1(6)  S-S  PREC  VEC  FOP  NOM  TPI  TIMF(PASS 

1(5)  S-S  DREP  VEC  FOR  NOM  TPI  rIMF(PASS 

1(2)  S-S 
I ( 2 ) S-S 

1(2)  S-S  MAX  STOP  SIZE  FOR  ROUTINE 
1(2)  S-S  BACK  VALUES  OF  DELTA  TIME 
1(2)  S-S  CENTRAL  ANGLE  CO VERED ( T P I -TP F ) 
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L 

ER  Ar 

ABLE 

ASS  I G MM ENTS 

USER'S  PAGE  NO.  53  FO  S4 

R 1370 

SOME  P47  STORAGE 

( 6D  ) 

1872 

F7, 1622 

67,1  .27 

DLL V I MU 

E h A S E 

+5 

I ( 6 ) D S P NOUN  83  FOR  P47  DELTA  V (IMU) 

A 1 87  7 

R 137/ 

P3olfko  COM  MOM  STP'  age. 

( 3D) 

1876 

E 7 , 16  30 

E 7, 1631 

TPASS4 

ERASE 

+ 1 

INTERCEPT  TIME 

1877 

E7 ,1632 

E7,  1632 

QT  EM  P 

ERASE 

K11TMP  COMMON  RETURN  SAVE  REGISTER . 

A 1878 

R 1 879 

°32  » 3 3 » 34  STORAGE. 

( 6D  ) 

1881 

£7*1.33 

E 7 ,1634 

TCS I 

ER  ASE 

+ 1 

8(2 > TMP  CSI  TIME  IN  CENTISECONDS 

1882 

E7 , 16  35 

£7,163 6 

TTPI 

ERASE 

+ 1 

B ( 2 ) TMP  T PI  TIME  IN  CENTISECONDS 

1833 

E 7 , 1637 

F7 , 1640 

T T P I 0 

ERASE 

+ i 

B ( 2 ) TMP  TTPI  STORAGE  FOR  RFCYCLE 

R 1 

P 30 , P40  INTERFACE . 

( 2 1 D ) 

1886 

E7 , 164 1 

07,  1664 

MIG 

ERASE 

+ 19D 

I ( 6 ) TMP 

1837 

RFF 

1 

r 7 , 1 a z 7 

V T I G 

EQUALS 

RTIG 

+ 6 

1 (6ITMP 

188ft 

REF 

1 

E 7 , 1 6 5 5 

OELVSTN 

EQUALS 

VTTG 

+ 6 

I ( 6 ) TMP 

1839 

REF 

1 

E7 , 1663 

DELVSAB 

EQUALS 

DELVS IN 

+ 6 

I (2 )TMP 

18Q0 

REF 

1 

E7  , lr>63 

VGDISP 

= 

DELVSAB 

1891 

E7, 1665 

£7,1665 

QTEMP1 

ER  ASE 

I ( 1 ) TM P HOLDS  RETURN. 

1892 

RFF 

1 

1-7  , if  vs  5 

RGFX I T 

EQUALS 

QTEMP1 

SAVE  Q 

1893 

REF 

2 

LAST  142  £7,1665 

SAVQR52 

EQUALS 

QTEMP1 

R 189^ 

IMITVEL  STORAGE.  (IN  OVERLAY 

0 AND  OVERLAY  1. 

( 2D) 

R 1 89  6 

( C ALLS  l AM8F  T,  CONIC 

SUBS  OUT.  INES  ) 

1 8°7 

REF 

1 

E 7 , 1565 

VTPRIME 

EQUALS 

VACT4 

TOTAL  VELOCITY  AT  DESIRED  RADIUS 

189ft 

REF 

1 

E7 , 1616 

ITCTR 

EQUALS 

ROOT  V 

ITERATION  COUNTER 

1399 

E7 , 1666 

£7,1667 

CCZY4 

ERASE 

+ 1 

COS  OF  ANGLE  WHEN  ROTATION  STARTS 

1900 

REF 

3 

LAST  141  E7 , 16 1 1 

X] INPUT 

EQUALS 

DELDV 

XI  TEMP  STORAGE 

1901 

REF 

l 

E7 , 1607 

INTIME 

EQUALS 

GAMPP.EV 

TIME  OF  P,  I NTT 

A 190? 

R 1903 

PERIAPO  STORAGE.  (2D; 

) 

(2D) 

1905 

E7, 1470 

£7,1671 

X XX  AL  T 

ERASE 

+ 1 

RADIUS  TO  LAUNCH  PAD  OR  LANDING  SIGHT 

1906 

REF 

1 

E 7 , 1672 

END- IN/M 

EQUALS 

XXX  ALT 

+ 2 

NEXT  AVAIL  ERASABLE  AFTER  IN  I T VEL /M I DG I M 

» 


► 
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R 1907 

1510 

S40. 1 

STORAGE. 

£7,  1672  E 7 , 17  05 

UT 

191  1 

REF  1 

F7, 1700 

VGTIG 

1912 

R 1 9 1 7 

P EF  1 

ASTFEP  ST  no  AGE . 

E 7 , 1700 

VG  Pf  E V 

( 12DI 

ERASE  +110  1(6)  THRUST  DIRECTION 

EQUAL  c ijt  +6  I ( 6 ) 0 UT 

= VGTIG 

( 220) 


1915 

191b  REF  1 

1917  REF  1 

19171  EF  1 

19172  °EF  1 

19173  REF  1 

1917*  REF  1 


E 7 , 1706  E 7 , 1 7 3 3 

E7, 1714 

E7, 1716 

F7, 1720 

F 7 i 1722 

E7, 1724 

E 7 * 1732 


VG  ERASE  +2  ID  1(6) 
RMAG  EQUALS  VG  +6  1(2) 
MU AS  ! EER  EQUALS  RMAG  +2  1(2) 
* U / A EQUALS  MUASTEEF  +2  1(2) 
ofMAG  EQUAl  S «U/A  +2  1(2) 
R 1C  EQUALS  RTMAG  +2  1(6) 
SS  EQUALS  PIC  +6  1(2) 


10175 

REF 

2 

LAST 

142 

F7 , 1655 

IC 

19176 

REF 

1 

f 7,  1762 

T1GSAVE 

1 c 1 77 

D E F 

1 

2 

p 7, 1764 

E7,  1766 

T IGSAVEP 
MUSCALE 

1917  8 

REF 

LAST 

143 

P 191  P 


DELVSIN 
P 2 1 T I ME 
SC A X I S 
SCAXIS  +2 


R 191 7 P40  S T'"!:  AG  F . (60) 

R 1921  F,*Dr-,AMO  TO  EC  AY  MUST  BE  C0-":"  IGtK  US  E 0 1 VLOAD. 


1922 

1923 

1924 

1925 

A 1 926 

REF 

REF 

E7, 1734 

1 E7 , 1736 

1 E7.174G 

E7, 1742 

E 7 , 1741 

E 7, 1743 

F 

MDOT 

TDECAY 

VEX 

R 1927 

MI DTOAV 1(2)  STOFAGE. 

( CALLED 

BY  P4C.P41 

192Q 

A 1530 

E7, l7 44 

E7, 1744 

ILL  TURN  1 

ERASE 

+ 5 

I (2 ) TMP 

S40. 

1 GENERATES  THIS 

FOF  S40.3 

EQUALS  F 

+ 2 

I ( 2 ) T MP 

MASS 

CHNG  RATE,  KG/CS 

AT  2**3. 

EQUALS  MOOT 

+2 

I ( 2 ) I N 

DELTA 

-T  TAILOFF,  ( 2**28 ) CS . 

ERAS  E 

+ 1 

1(2)  EXHAUST 

VELOCITY  FOR  TGO 

COMPUTAT 'N 

■ P42  ) 

(ID) 

ERASE 

B ( 1 ) 

RETURN  FROM  MIDTOAVl  AND  2 

< 


< 
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L ERASABLE  ASSIGNS  El' TS 


P 1931 

A 1932 

* ***  *** 

OVERLAY  NUMBER  1 IN 

EBANK  7 ******* 

R 1933 

InlTVFL  (CALLED  BY 

P34 , 35, 36 ,39,  1C  , 11 , 

. S40.9 , S40* 1 ) 

1935 

A 1936 

REF 

1 

E7, 1471 

RTARG1 

EQUALS 

VACT  1 

R 1C'3T 

P 3 ' — P A 0 INTERFACE. 

193° 

P EF 

2 

LAST  141  E7 , 1505 

VP  AS  c-4 

EQUALS 

VPASS1 

R 1940 

INITVCL  I'VE'  LAYS  KENDESVQUS 

GUIDANCE  (LISTED  IN  OVERLAY 

0) 

R 1941 

SOME 

P3"--3C  ,c'7:-  -7 c STORAGE. 

1943 

A 1944 

REF 

1 

E7 , 1630 

TINT 

EQUALS 

TPASS4 

P 1945 

LAT  - 

LUNG  TEMPORARIES.  CAN 

OVERLAY  WITH 

to 

*■ 

o 

1947 

PEE 

2 

l AST 

1*3  E 7,  167  2 

E1'  ADM 

EQUALS 

UT 

1946 

REF 

1 

F 7 , 1674 

I NCCRPEX 

EQUALS 

ERA  DM 

+ 2 

R 1949 

LRS29.1  STEP  AGE.  (CAN 

SHAKE  WITH  P 30  * S ) 

1951 

RFF 

p 7 ] f,  7 p 

d | m opru 

EQUAL S 

T NO  < P P F X 

+ 1 

" l ( I o"  u n 

1 1 j Lv  > r.  r f\ 

1952 

° EF 

1 

E7 , 1703 

VXP.CM 

EQUALS 

RLMSRCH 

+ 6 

1953 

REF 

1 

E7,  171  1 

LOSDESP.D 

FQUALS 

VXRCM 

+ 6 

1954 

REF 

1 

E 7 , 1717 

UXVECT 

EQUALS 

LOS  DESRD 

+ q 

1956 

REf 

1 

E 7,  172  5 

UYVEC T 

EQUAL S 

UXVECT 

+ 6 

1956 

REF 

1 

E7 , 1733 

DATAGOCD 

EQUAL  S 

UYVECT 

+ 6 

1957 

REF 

1 

E 7 , 1734 

OMEGDISP 

EQUALS 

DAT AGOOD 

+ 1 

1958 

0 EF 

1 

E7 , 1739 

OMEGAD 

= 

OMEGDISP 

1959 

REF 

2 

LAST  144  E7.I736 

NSRCHPNT 

EQUALS 

OMEGDISP 

+ 2 

1960 

REF 

1 

E 7, 1737 

: SAVLEMV 

EQUALS 

NSRCHPNT 

+ 1 

A 106  1 

i 
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(60) 

I ( 6 ) S TEMp  STORAGE  OF  RTARG 


(60) 

1 ( 6 ) T MP  VELOCITY  OF  PASSIVE  AT  INTERCEPT 


( 2D) 

1(2)  TIME  OF  INTERCEPT 


( 30) 

1(2) 

1(1) 


( 40  D ) 

1(6)  TMP  LM  POSITION  VECTOR 
1(6)  CM  V X R VECTOR 

I (6)  DESIRED  LOS  VECTOR 

1(6)  X-AXIS  SRC H PATTERN  COORDS 

1(6)  Y-AXIS  SPCH  PATTERN  COORDS 

8 ( 1 ) DS  P FOR  R 1 - ALL  1-S  WHEN  LOCKON 
8(2)  ANGIE  OMEGA  DISPLAYED  1 N P.2 

PINBALL  DEFINITION. 

B ( 1 ) T M P SEARCH  PATTERN  POINT  COUNTER. 
1(6)  S-S  SAVES  LOSVEL 


GAP:  ASSEMBLE  L VISI.  N CGI  OF  AGC  ftRQGRAM  AWL  1ft  OP  £ BY  EYLES 


P 1962 
A 1963 


9 1964 

1966 

1967 

1968 

196c 
1970 
R 1971 


1973 

1974 
1976 

A 1°76 

R 1977 

197  9 

1 

A 1 9 31 


R 1 982 

1984 
1 9 3 c 

1986 

1987 

1988 
1 

1990 
199  i 

1992 

1993 

1994 

1995 
.1 9 9 6 
1997 

R 1998 

1999 

A 2000 

P 2001 
R 2003 


ERASABLE  ASSIGNMENTS 

*******  OVERLAY  NUMBER  2 IN  EBANK  7 ******* 


INCORP  STCI AGE  IN  E7. 


REF  2 LAST  140  E7,1471 

REF  1 E 7 , 1477 

REF  1 E7.1502 

REF  1 E7.1524 

REF  1 E7 1 1546 

AOTMAPK  STORAGE 


TX789 

EQUALS 

E70VERLA 

GAMMA 

EQUALS 

TX789 

+ 6 

OMEGA 

EQUALS 

GAMMA 

+ 3 

BVECTOR 

EQUALS 

OMEGA 

+ 18  D 

DELTAQ 

EQUALS 

BVECTOP 

+ 18  D 

REF  1 E7  * 15 50  MARKCNTR  EQUALS  DELTAQ  +2 
REF  1 E7,155i  XYMAKK  EQUALS  MARKCNTR  +1 
REF  l FT, 1552  MKOEX  EQUALS  XYMARK  +1 


PLANE-'  STORAGE. 


EF  1 E 7 1 1 5 5 3 PLANVEC  EQUALS  MKDEX  +1 

r EF  1 E 7, 156  1 'SIGHT  EQUAL : PLANVEC  +6 


LRS22.3  STORAGE.  (CAN  SHARE  WITH  P30M  AND  OVE  LAY  LRS24.1 


P E F 
REF 
rFF 
REF 
REF 
REF 
REF 
RFF 
REF 
REF 
REF 
REF 
REF 
REF 


REF 


LAST  1^4 
LA  5- 


LAST 

LAST 

LAST 


145 

145 

145 


E 7 , 16  7 9 
E7 » 16  7 5 
F 7 » 1676 
E 7 , 1676 
E 7 » 1 7 04 
E7, 1712 
E 7 , 1676 
F7, 1700 
F7, 1702 
E7 , 1704 
E7, 1720 
E7 . 1721 
E7, 1723 
E 7 , 1 7 3 1 


L G RET 
RDRFT 


EQUALS 

EQUALS 


KIMS' CH 
LGRET 


c****  in  OVERLAY  CNF  ***** 
1 E, 7,,  1.74.6 


1GPFT 

EQUALS 

LGRET 

NX 

EQUALS 

RDRET 

+ 1 

MY 

EQUALS 

MX  +6 

MZ 

EQUALS 

MY  +6 

FO 

EQUALS 

MX 

FI 

EQUALS 

MX  +2 

E 2 

EQUAL  S 

MX  +4 

F3 

EQUALS 

E 2 

+ 2 

SCALSHFT 

EQUALS 

M Z 

+6 

RXZ 

EQUALS 

SCALSHFT 

+ 1 

ULC 

EQUALS 

RXZ 

+ 2 

SINTHETA 

EQUALS 

ULC 

+ 6 

N4  ?F L AG 

EQUALS 

R DOT MS  AV 

LPS22.1  STORAGE.  (MUST  NOT  SHARE  WITH  P 30 • S ) 
(OUTPUTS  ARE  TO  LRS22.3) 


3:15  DEC.  2,1970  LUMERASE. 120 
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145 


( 47  D ) 

1(6) 

1(3) 

1(18) 

1(18) 

1(2) 

(30) 

1(1) 

Bi  1 ) 

B { 1 ) T MP  INDEX  FOR  AOTMARK 


(3D) 

(6)  REFER  VECTOR  OF  PLANET 

(2)  TIME  OF  MARK  OR  EST  7IME  0F  MARK 


( 30D ) . 

Ml)  T MP 

6(1)  TEMP  RETURN. 

6(1)  TEMP  RETIJPN. 

1(6) 

1(6) 

1 (6  ) 

1(2) 

1(2) 

T (2  ) 

1(2) 

B ( 1 ) SCALE  SHIFT  FOP  EAR  TH/MOON 
1(2) 

1(6) 

M2  ) 


B(1)S  FLAG  INDICATING  V0649  RESPONSE 


( 13D) 


GAP: 

ASSE  BLf 

RE  V I S I □ IS  001  DP  AGO  PROGRAM  API  1 a.  PE  BY  LYLES 

3:  15  DEC. 

2,19  70  L UMER ASE . 120 

PAGE 

L 

OR  AS  ABLE 

A S S I G NM  ENTS 

USER’S  PAGE  NO.  57 

EO  S4 

2004 

REF 

1 

F7 , 1733 

RRTRUN  EQUALS 

S INTHETA 

+ 2 

B ( 2 ) OUT 

RR  TR  UNI  ON  ANGLE 

2005 

REF 

1 

E 7 i 1735 

FR SHAFT  EQUALS 

RRTRUN 

+ 2 

B ( 2 ) OUT 

RRSHAFT  ANGLE 

2006 

REF 

1 

F 7 » 1737 

LRS22.1X  EQUALS 

OR  SHAFT 

+ 2 

B ( 1 ) T MP 

2007 

RFF 

1 

E7, 1740 

FR BOP  SIT  EQUALS 

LRS22. IX 

+ 1 

1(6)  TMP 

PADAP  BCr  FS  T GHT  VECTnp . 

2008 

REF 

l 

E 7 t 1746 

RDOTMSAV  EQUALS 

P OB OP  SI  T 

+ 6 

B(2  ) S 

RF  RANGE-RATE! FPS ) 

A 2 00° 

R 201  0 

LRS22.1 

(SAME  AS  PREVIOUS 

SECT  T rp:  > A L f ' 0 1 ’ K F . : 1 

! F29)  ( 10 D 1 

CANNOT  SHARE  WITH  L . A . 

D. 

201? 

REF 

2 

LAST  145 

E7, 1750 

f DOT  M EQUALS 

-<001  MS  AV 

+ 2 

B ( 2 ) 0 UT 

P ANGE-RATE  READI NG 

2013 

REF 

l 

E7 , 1752 

i A NGN 8 EQUALS 

r DOTM 

+ 2 

B<  2) TMP 

RR  GIMRAL  ANGLES 

R 2014 

RETAIN  THE  FROfF  CF  MKTIME 

TO  ft M FOP  DOWNLINK 

PURPOSES 

2015 

REF 

1 

F7, 1754 

MKTIME  EQUALS 

TANGNB 

+ 2 

B ( 2 )OUT 

TIME  OF  RR  READING 

2016 

REF 

1 

E7, 1756 

RM  EQUALS 

MKTIME 

+ 2 

I ( 2 (OUT 

RANGE  READING 

2017 

REF 

1 

E7, 1760 

RANGE  DOT  EQUALS 

RM 

+ 2 

B ( 2 ) DOWNLINKED  5 AW  P ANGE  AND 

RR  AT  E 

A 201 7 5 

R 201  8 

R61LEM  - 

PREFERRED  TRACKING 

ATTITUDE  ROUTINE 

** IN  OVERLAY 

ONE* 

R 2019 

/ r a ! i r n u v p ? ' u o o i p a . i <;  P > ? . 'x  \ 

(ID) 

l_»l  > uw  J ' £-4- 

” 

2021 

REF 

2 

LAST  146 

E7, 1745 

R65CNTR  EQUALS 

RRBORS IT 

+ 5 

B ( I ) S S 

COUNT  NUMBER  OF  TIMES 

PREFERPI 

A 202  2 

TRACKING  ROUTINE  IS  TO 

CYCLE 

202  3 

RFF 

1 

E7, 1745 

WHCHREAD  EQUAL  S 

R 6 5 C N T R 

TELLS  WHICH  RR  DATA  TRIGGERED 

N4°  DIS 

A 1*0  2 4 

R 202  5 

P21  STORAGE 

(2D) 

2027 

REF 

1 

E 7 >176  2 

P21TIME  EQUALS 

RANGRDOT 

+ 2 

I ( 2 ) TMP 

A 2028 

P 2029 

KALCMANU, 

VEC  POINT  STORAGE. 

CALLED  BY  R63,  R61  , R65. 

( 12D) 

2031 

REF 

2 

LAST  143 

E7,  1 7o4 

SCAXIS  EQUALS 

P21TIME 

+ 2 

1(6) 

203  2 

RFF 

3 

LAST  143 

E7, 1772 

POT N TVS M EQUALS 

SCAXIS 

+ 6 

T (6  ) 

A 203? 
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ASSEMBLE  tVISIGI  001  OF  AGC  PROGRAM  AP11R0PE  BY  E YL E S 

3:15  DEC.  2,1970 

LUMERASE .120 

PAGE 

L 

ERASABLE  ASSIGNMENTS 

USER ' S PAGE 

NO.  58 

EO  S4 

P203'- 

*******  OVERLAY  NUMBER  3 IN  EBANK  7 ******* 

A 203  5 

R 2036 

SERVICE 

STORAGE 

( 6D ) 

2038 

PEE 

3 

LAST 

145 

E 7 , 1471 

ABVEL 

EQUALS 

E70VERI  A 

B ( 2 ) 

DISPLAY 

2039 

REF 

1 

F7 , 1473 

HDOTD  ISP 

EQUALS 

ABVEL 

+ 2 

B < 2 ) 

D! SPLAY 

2040 

REF 

2 

1 A Q T 

£7,1475 

TTFDISP 

EQUALS 

HDOTDIST 

+ 2 

B ( 2 ) 

DISPLAY 

LA  j 1 

1 C 

A 204 1 

R 2042 

BUN  M 

PROG 

STOP  AGE . 

( 2D) 

2044  REF  1 E7.1477  SAVET-30  EQUALS  TTFDISP  + 2 B(2)TMP  TIG-30  RESTART 

A 2045 

R 2046  SEE  yiCEP  STORAGE.  (5P0) 


2048  REF 

2049  REF 
2C50  REF 

2051  REF 

2052  REF 

2053  REF 

2054  REF 

2055  REF 
205.  FEE 

2057  RFF 

2058  RFF 

2059  0 EF 

2060  REF 
P 2061 


1 E 7 , 1501  VGBClDY 

1 E 7 * 15  01  DELVCTL 

2 LAST  147  E7, 1507  DVTOTAL 

1 F. 7 * 1 5 1 1 GOBLTIME 

1 E 7 ( 1513  ABDVCCmV 

1 F7  , 15  15  OVCNTP 

1 E7  , 1516  T GO 

1 E7.1520  R 

1 E;7, 1520  UMI1G0BL 

2 LAST  147  £7,1526  V 

1 E?  » 15  26  DELVE EF 

1 £7,1534  HCALC 

1 £7,1536  UNIT/R/ 

(THE  FOLLOWING  SERVICER  ERASABLES 


EQUALS  SAVET-30  +2 
= VGBODY 

EQUALS  VGBLOY  +6 
EQUALS  DVTOTAi  +2 
EQUALS  GOBI T 1 ME  +2 
EQUALS  A BOVCONV  +2 
EQUALS  DVCMTR  +1 
EQUALS  T GO  +2 

EQUALS  R 

EQUALS  R.  +6 

EQUALS  V 

EQUALS  DELVREF  +6 
EQUALS  HCALC  +2 
CAN  BE  SHARED  WITH 


B ( 6 ) OUT  SET. BY  S41.1  VG  LEM,  SC. COORDS 


B ( 2 ) DISPLAY  NOUN 
8(2)  NOMINAL  TIG  FOR 
1(2) 

0(1) 

B(  2 ) 

1(6) 

1(6) 


1(6) 

R ( 2 ) LR 

1(6) 

SECOND  DPS  GUIDANCE  STORAGE) 


CALC.  OF  GOBLATE. 


2063 

REF 

1 

E 7 , 1 544 

RM1 

EQUALS 

IJNIT/F  / 

+ 6 

B ( 6 ) 

2064 

7 EF 

1 

E7 , 155? 

VN1 

EQUALS 

RN1 

+ 6 

1(6) 

2065 

RFF 

1 

£7,1560 

PI  PT I ME  1 

EQUALS 

VN1 

+6 

B ( 2 1 

2066 

R EF 

1 

E7 , 1562 

GDT1/2 

EQUALS 

PIPTIME1 

+ 2 

1(6) 

2067 

REF 

1 

E 7 , 1570 

MASS). 

EQUALS 

GOT 1 / 2 

+ 6 

1(2) 

2068 

REF 

1. 

E7, 1572 

R1S 

EQUALS 

MASS  1 

+ 2 

1(6) 

20fcc 

REF 

1 

E7, 16  00 

VIS 

EQUALS 

R1S 

+ 6 

1(6) 

R 2070 

AL  I GNMENT/S40 • 2 . 3 COMMON 

STORAGE. 

( 18D) 

2072 

REF 

1 

E 7 , 16C6 

XSMD 

EQUALS 

VIS 

+ 6 

1(6) 

2C7  3 

•°  E F 

1 

E7 , 1614 

YSMD 

EQUALS 

XSMD 

+ 6 

I (6  ) 

2074 

REF 

1 

£7,162? 

ZSMD 

EQUALS 

YSMD 

+ 6 

1(6) 

2075 

REF 

2 

LAST  147 

E 7 , 1606 

XSCREF 

= 

XSMD 

2076 

REF 

2 

LAST  147 

E7 , 1614 

YSCP.EF 

= 

YSMD 

( IN  ORDER  ) 
( FOR  ) 

( COPY  ) 

( CYCLE  ) 


GAP:  ASSEMBLE 

REVISION  001 
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AP11R0PE  BY  PYLES 
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L 

ERASABLE 

ASSIGNMENTS 

USER'S  PAGE  NO.  59  EO  S4 

2077 

REF 

1 

E 7 » 1622 

ZSCP EF 

= 

ZSMD 

2078 

REF 

2 

LAST  143 

67 » 1630 

END- AL IG 

EQUALS 

Z S'MD 

+ 6 

NEXT  AVAIL  ERASABLE  AFTER  AL I GN/ S40 . 2 , 3 

R 2079 

P2 

2 i<  sjc  & # ifi 

( 240) 

2081 

REF 

1 

E7, 1630 

RSUBL 

EQUALS 

END-AL IG 

1 < 6 ) S-S 

LM  POSITION  VECTOR 

2082 

REF 

1 

E7 , 1636 

UCSM 

EQUALS 

RSUBL 

+ 6 

I { 6 ) S -S 

VECTOR  U 

2083 

REF 

1 

E 7 » 1644 

NEWVEL 

EQUALS 

UCSM 

+ 6 

I (6  » S-S 

TERMINAL  VELOCITY  VECTOR 

2084 

REF 

1 

E7, 1652 

NFWPOS 

EQUALS 

NEWVEL 

+ 6 

I { 6 ) S-S 

TERMINAL  POSITION  VECTOR 

2089 

REF 

1 

E7, 1660 

I_r  r.HTM 

EQUALS 

NFWPOS 

+ 6 

1(2  ) S-S 

EST.  LAUNCH  TIME  FOR  LEM 

2086 

PEF 

1 

E 7 i 1662 

TRAN STM 

EQUALS 

LNCHTM 

+ 2 

I ( 2 ) S-S 

TRANSFER  TIME 

2087 

REF 

1 

E 7 , 1664 

NCSMVEL 

EQUALS 

TRANSTM 

+ 2 

I ( 6) S-S 

NEW  CSM  VELOCITY 

A 2 C 3 E 

R 206 3C5 

*♦***  P21 

( 1 3 D ) 

208815 

RFF 

1 

1163 

P210R  IG 

= 

DISPDEX 

20882 

REF 

3 

LAST  145 

E7, 1675 

P21BASER 

EQUALS 

RLMSRCH 

I (6  )TMP 

208825 

REF 

1 

E7,  1703 

P218AStV 

EQUALS 

P21 BASER 

+ 6 

1(6  ) TMP 

20883 

REF 

1 

: E7, 1711 

P21VEL 

EQUALS 

P21BASEV 

+6 

I ( 2 ) T MP 

NOUN  91  *** 

208835 

REF 

1 

E 7,  17  13 

P 2 1 G A M 

EQUALS 

P21VEL 

+ 2 

I (2  )TNP 

***  NOUN  91  *** 

20884 

REF 

1 

FT,  171 c 

P21AI  T 

EQU  AL  S 

P216AM 

+ 2 

I ( 2 )TMP 

***  NOUN  91  *** 

A 

GAP:  ASSEMBLE  REVISIC^  0C1  ' F AGC  PROGRAM  AP11RQPE  BY  EYLES 

L ERASABLE  ASSIGNMENTS 

P 208  9 *******  OVERLAY  NUMBER  A IN  EBANK  7 ******* 

A 2090 

R 2097  VARIABLES  FOR  SECOND  OPS  GUIDANCE  (THE  LUNAR  LANDING) 

R 209°  THESE  EPASABLES  MAY  PE  '"HAPED  WITH  CARE 

RN1 

OURTEMPS 
LANDTEMP  +6 
TTF/8TMP  +2 
ELTNCP  +2 
AZ I NCR  + 2 
KEEP-?  +2 
TABLITF  +90 
OURPFRMS 


21 

2101 

2102 

2103 

2104 

2105 

2106 
2107 
2113 

R 2 1 1 7 


REF 

REF 

REF 

RFF 

RFF 

REF 

REF 

REF 

REF 


LAST  147 


E7.1544 
E 7 » 1 544 
F7 , 15  52 
F7 , 1554 
E 7 ,15  56 
E7,  1560 
F 7 t 1562 
E 7 i 1573 
E7 , 1621 


OURTEMPS 

LANDTEMP 

TTF/8TMP 

EL  INCH 

AZINCD 

KEEP-2 

TABLTTF 

TP  I POL  D 

E2DPS 


EQUALS 


R 2 1 1 5 THESE  ERASABLES  MUST  NOT  OVERLAY  GOBLT IME  OP  SERVICER 

2116  REF  3 LAST  147  E 7, 1606  P1FPSET  = 

2 1 1 7 REF  1 F7,1607  RTNHOLD  = 

2116  REF  1 F 7 , 16  10  FWEIGHT  = 

2119  REF  1 E7 » 16 1 2 P!F 

212C  REF  1 E 7 , 1614  PSEU0055  = 

2121  RFF  1 F7 i 16 1 5 FC 

2122  REF  1 E 7 r 16 1 7 TTHROT 

2123  RFF  1 F 7 » 16  20  FCGLD 

A 2 1 2 


X SMD 
PIFPSET 
- TNHOLD 
FWEIGHT 
PIF 

PSEUD055 

FC 

TTHPOT 


+ 1 
+ 1 
+ 2 
+ 2 
+ 1 
+ 2 
+ 1 


R 2125 

THESE 

EPASABLES  SHOULD  NOT  BE  SHARED 

DURING  P63  » 

P64, 

P6 5 t P66,  P67 

2126 

REF 

1 

F 7 , 1621 

OURPERMS 

= 

FCOLD 

+ 1 

2127 

REF 

2 LAST  149 

F7, 1621 

WCHPHPI D 

= 

OURPERMS 

2128 

PEF 

1 

E7, 16  22 

FILLER 

= 

WCHPHOLD 

+ 1 

2129 

REF 

1 

F7 , 1623 

FLPASSO 

= 

F ILL  ER 

+ 1 

2130 

REF 

1 

E 7 , 1624 

TP  IP 

= 

FLPASSO 

+ 1 

2131 

REF 

l 

F 7 . 1 2 6 

VGU 

TPIP 

+ 2 

2132 

REF 

1 

F7 , 1634 

LAND 

= 

VGU 

+6 

2133 

REF 

1 

E7 , 1642 

TTF/8 

= 

LAND 

+ 6 

213-i 

*PFF 

1 

F7, 1644 

EL IRUMMY 

= 

TTF/8 

+ 2 

2135 

4PFF 

1 

E7, 1645 

AZI DUMMY 

= 

ELI  DUMMY 

+ 1 

2136 

*P  EF 

1 

E7, 1646 

ZERDUMMY 

= 

AZI DUMMY 

+ 1 

2137 

*REF 

1 

E 7 , 1 6 A 7 

ELVDUMMY 

= 

ZERDUMMY 

+ 1 

21  3F 

4R.EF 

1 

E f , 1 r 5 0 

LK  ADR  ET 

= 

ELVDUMMY 

+ 1 

2139 

REF 

1 

E7, 1651 

VSELECT 

= 

LP.AOPET 

+ 1 

2140 

RFF 

1 

E7 , 1652 

VMEAS 

= 

VSELECT 

+ 1 

2141 

REF 

1 

E7 , 16  54 

HMEAS 

= 

VMEAS 

+ 2 

2142 

REF 

1 

E7, 1656 

VN  2 

= 

HMEAS 

+ 2 
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USER'S  PAGE  NO.  60 


EO  S4 


( BOO) 


OVERLAY  LAST  PART  OF  SERVICER 
B ( 6 ) GUIDANCE 

B { 2 ) GUIDANCE 

B ( 2 ) GUIDANCE 

e<2)  GUIDANCE 

B ( 2 ) TO  PREVENT  PIPTIME1  OVERLAY 

B ( 2 ) GUIDANCE 

B(2 ) GUIDANCE 


( 

,e 

( 


4 


B ( 1 ) 
B(l) 
B ( 2 ) 
8(2  ) 
B { 1 ) 
B ( 2) 
B ( 1 ) 
8(1) 


THROTTLE 

THPCTTLE 


THROTTLE 
THP  OTTL  E 

THROTTl.  E DOWNL  INK 
THROTTLE 
THROTTLE 
THROTTLE 


4 


MUSTN'T  OVERLAY  OURTEMPS  OR  SERVICER 


B ( 1 ) 

GUIDANCE 

B ( 1 ) 

B ( 2 ) 

GUIDANCE 

B ( 6 ) 

GUIDANCE 

B ( 6 ) 

GUIDANCE 

CONTI  i 

B ( 2 ) 

GUIDANCE 

CONT 

( 1 ) 

DUMMY  FOR 

ELINCR1 

( 1 ) 

DUMMY  FOR 

AZINCP1 

( 1 ) 

DUMMY  FOP 

ZERL  INA 

( 1 ) 

DUMMY  FOR 

ELVIRA 

B ( 1 ) 

LP 

B ( 1 ) 

LP 

B ( 2 ) 

LP 

B ( 2 ) 

LP 

B ( 6 ) 

LR 

GAP 


ASS&MaLE  REVISION  001  OF  AGC,  P" OGK  AM  AP11R0PE  BY  EYLES 


21  A3 
214A 

2145 

2146 

2147 

2148 
R 2149 

R215C 

2151 

2152 

2153 

2155 

2156 

2157 

2158 
A 21  55 

R 2 160 

2161 
2162 
2163 
R 2 1 64 

P.216  5 
A 2 1 6 6 


R 2 1 67 

2169 

2170 

2171 

2172 

2173 

2174 
A 2 1 7 5 


P 2176 

2178 

2179 

2180 
2181 
2182 
218  3 
2184 


ERASABLE  ASSIGNMENTS 


REF 

1 

E7 , 1656 

GNUP 

- 

VN2 

REF 

2 

LAST 

1 50 

F 7 , 1656 

GNUV 

= 

VN2 

REF 

3 

LAST 

l . 

F 7 . 1 6 5 6 

If.  ApFsETl 

— 

VN2 

L.  f J.  V — • 

REF 

4 

LAST 

1 5 0 

E7, 16  6 4 

DEL T AH 

= 

VN2 

+ 6> 

RFF 

1 

F 7, 1666 

FUNNYDSP 

= 

deltah 

+ 2 

PEF 

1 

E7, 1670 

EOUPPEP  H 

EOUAL  r 

FUNNY  DS P 

+ 2 

(ERAS 

ABLES  WHICH  OVERLAY  THE  ABOVE 

BLOCK) 

*R  EF 

2 

LAST 

1 '-'9 

E 7, 1644 

VDGVFR  F 

= 

ELI  DUMMY 

* RFF 

2 

LAST 

] 49 

F 7 , 1 o 4 6 

N I GN!  00  P 

Z ERDUMM Y 

*REF 

2 

LAST 

149 

F7 , 1647 

NGUI D SUB 

= 

ELVDUMMY 

*PEF 

3 

LAST 

150 

E7 , 1647 

WCHVERT 

= 

ELVDUMMY 

REF 

2 

LAST 

I'd 

E7 , 16  6.6 

FUELNEED 

= 

FUNNYDSP 

RFF 

3 

LAST 

150 

£7,1666 

TREDES 

= 

FUNNYDSP 

PEF 

4 

LAST 

160 

F 7 , 1667 

lookangl 

= 

FUNNYDSP  +1 

EfiASABLES  CONVENIENTLY  DEFINABLE  IN  THE 

WORK  AREA 

0022 

PRO  J 

18D 

002  4 

UNLFR/2  = 

2 OD 

0024 

UNLF/2 

20D 

THE  END  OF  THE  LUNAR  LANDING  ERAS ABLES 

F.  1 2 

(FOP  LUNAP  LANDING) 

REF 

1 

E 7 , 1670 

LR.LCTR 

EQUALS 

E3UPPERM 

REF 

1 

E7, 16T  1 

L RRCTR 

EQUALS 

LRLCTR 

+ 1 

F EF 

1 

E 7 , 1672 

LPMCTR 

EQUALS 

l RRCTR 

+ 1 

REF 

1 

F7 , 1673 

LPSCTR 

EQUALS 

LRMCTR 

+ 1 

RFF 

1 

E 7 , 1674 

STILBADH 

EQUALS 

LPSCTR 

+ 1 

REF 

1 

E7 , 1675 

STILBADV 

EQUALS 

STILBADH 

+ 1 

LAN 

DING  ANA!  nr; S DISPLAY 

STORAGE. 

REF  1 

E7, 1676 

L ATVMETR 

EQUALS 

STILBADV 

+ 1 

REF  1 

E 7 , 1677 

FORVMETR 

EQUALS 

LATVMETF 

+ 1 

REF  1 

E7 , 1700 

LATVFL 

EQUALS 

FORV''ETF 

+ 1 

F EF  1 

F 7 , 17  01 

FORVEL 

FQUALS 

LATVEL 

+ 1 

REF  1 

E7 ,1702 

TF  AK  1.  AT  V 

EQUALS 

FOPVFL 

+ 1 

REF  1 

E 7 , 1703 

TRAKFWDV 

EQUALS 

TRAKL.  AT  V 

+ 1 

RFF  1 

E7, 1704 

VHY 

EQUALS 

TRAKFWDV 

+ 1 

3:15  DEC 


2,1970  LUME RASE. 120 


PAGE  150 


USER  * S PAGE  NO.  61  EO  S4 

B ( 6 ) L R 

B ( 6 ) l.R 

B(l)  LR 

8(2)  DISPLAY 

B ( 2 ) DISPLAY 

NEXT  AVAIt  ABLE  ERASABLE  AFTE'  OUPPERMS 


B ( 2 ) P6  5 , P66 

B ( 1 ) IGNALG 

B { 1 ) IGNALG 

B { 1 ) P65,P66,P67 

B ( 1 ) DISPLAY 

B ( 1 ) DISPLAY 

B ( 1 ) DI  SP1  AY 


1(2)  GUIDANCE 

1(6)  GUIDANCE  (DUPING  P64  ONLY) 

1(6)  GUIDANCE 


( 6D  ) 

B ( 1 ) LR  DATA  T EST 
8(1) 

8(1) 

B ( 1 ) 

B ( 1 ) 

B ( 1 ) 


( 40 D ) 

B ( 1 ) PPM  I ATVEL  MONITOR  METER  (AN  ORDER) 
BIUPF.N  F0!  VEL  MONITOR  ME  TFR  (-F0  PAIR) 
B ( 1 ) P P.  M LATEFAL  VELOCITY  (AN  ORDER) 

B ( 1 ) PRM  FORWARD  VELOCITY  (—ED  PAIR) 

Bt  l ) PPM  MONITOR  FLG  4 LATVEL  ( AN  ORDER) 
BdIPPM  MCNIT.  FLAG  FOR  FOPVFL  (FD  PAIR) 
B ( 1 ) P R M VH Y= VMP . UH YP  (AN  ORDER) 


ASSEMBLE  RE  V IS  I ON  001  OF  AGC  PROGRAM  APllKOPE  BY  E YL  E S 


GAP: 


L Ei  AS  ABLE  ASSIGNMENTS 


2185 

2186 

2187 

2188 

2189 

2190 

2191 

2192 

2193 
2 1 °4 
2195 
21c<' 
2197 
2199 

A 2 190 


REF  1 

REF  1 

FEF  1 

8 FF  1 

REF  l 

D EF  1 

REF  1 

REF  1 

REF  1 

REF  2 LAST 

REF  2 LAST 

P EF  1 

REF  1 

REF  1 


E 7 * 1705 
F7 , 1706 
E7, 1711 
E7, 1712 
E 7 , 1 7 1 4 
£7,1715 
E7 , 1716 
E7, 1717 
E 7,  1717 
151  E7.1725 

12C  E 7 , 173  3 
F7, 1741 
E 7, 174  3 
E7, 1745 


VHZ  EQUALS  VHY  +1 

VV ECT  EQUALS  VHZ  +1 

ALTRATE  EQUALS  VV ECT  +3 
ALTSAVE  EQUALS  ALTRATE  +1 
LAOQSAVE  EQUALS  ALTSAVE  +2 
DT  EQUALS  LADQSAVE  +1 

DALTRATE  EQUALS  DT  +1 

UHYP  EQUALS  DALTRATE  +1 

Q AXIS  = UHYP 

UHZP  EQUALS  UHYP  +6 

DEL  VS  EQUALS  UHZP  +6 

AL TBITS  EQUALS  DELVS  +6 
P UNIT  EQUALS  ALTBITS  +2 
IASTLADW  EQUALS  RUNIT  +2 


R 2199 1 P66  EPASABU.  > ( .0.0.) 


21993  REF  2 LAST  151  E7,1746  RODCOUNT  EQUALS  RUNIT  +3 

A 2 1 994 


R220P 

P66  ERASABLES  ( .0.0. 

2202 

d £ F 

2 

1 Aa  1 l b p 7.  17  (- 

2203 

REF 

1 

F7,  1757 

2204 

REF 

1 

E7 , 176  1 

2206 

REF 

1 

E7 , 1763 

2207 

OFF 

1 

E7  , 1764 

220  P 

9 EF 

1 

E7,  176  5 

2 2 0 : r 

RFF 

I 

F7,  17-  ■- 

A 2209 


0 0 D S C A L 1 
L.ASTTPIP 
THISTPI P 
OL DP  I PAX 
P1DPIPAY 
OLDPIPAZ 
DtLVROD 


equal s rm 

EQUALS  ft CDS CAL  1 +1 
EQUALS  LASTTPIP  +2 
EQUALS  THISTPIP  +2 
F . JALS  CL  DP  I PAX  f 1 
EQUALS  oldPIPAY  +1 
EQUALS  OLDPIPAZ  +1 


ft 22 10  NOUN  63  CUKPQNiNI 

2212  REF  1 £7,1774  HCALC1  EQUALS  DELV'OD  +6 

A 22 1 3 
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USER'S  PAGE  NO.  62  EO  S4 

B(1)PRM  VHZ= VHP, UHZP  ( - ED  PAIR) 

B ( 3 ) PRM  UPDATED  S.P.  VELOCITY  VECTOR 
B(1)PP.M  ALTITUDE  PATE  IN  BIT  UNITS 
B { 2 ) P R M ALTITUDE  IN  BIT  UNITS 
BlllPFM  SAVE  Q IN  LANDIS^ 

B ( 1 ) P P M TINE  1 MINUS  (PIPTIME  +1) 

BfllPRM  ALTITUDE  RATE  ERROR  CORRECTION 
B(6)PPM  SM  UNIT  VECTOR 

B (6 ) PRM  SM  UNIT  VECTOR 
B ( 6 ) PPM  DELVS  = WMXR 

B ( 2 ) P RM  ALTITUDE  IN  BIT  UNITS,  2.34FT/BT 

B ( 3 ) PP  M SM  HALF-UNIT  R VECTOR 

ONLY  A TAG  TC  SIGNIFY  LAST  L.A.D.  WORD 


(ID) 


( L4D) 

B ( 1 ) 
1(2) 
8(2  ) 

B ( 1 ) 

B ( 1 ) 
BID 
B ( 6 ) 


(2D) 

1(2) 


GAP: 

ASSEMBLE  ,-t  VISIT  0 0<  1 OF  AGC 

PRCG  A ■ 

API  1 aOPE  BY  LYLES 

3:15  DEC. 

2,1970 

LUMERASE. 12C 

PAGE  152 

L 

ERASABLE  ASSIGNMENTS 

USER 

'S  PAGE 

NO.  63 

EO  S4 

P 2214 

A 22  1 c 

*******  OVERLAY  NUMBER  5 

IN  EBANK 

7 jjcjfc#:}:##  # 

R 2 2 1 6 

ASCENT  GUIDANCE  EPASABLES. 

{ 21D) 

2218 

REF 

2 

LAST  148 

E7,  1630 

RCO 

EQUALS 

END-AL IG 

I (2  )TMP 

TARGET  RADIUS  AND  OUT-OF-PLANE 

2219 

REF 

1 

E7 , 163  2 

YCO 

EQUALS 

RCO  +2 

1(2)  TMP 

DISTANCE,  SCALED  AT  2(24). 

2220 

REF 

1 

E 7 , 1 6 3 4 : 

1/D  VI 

EQUALS 

YCb  +2 

B ( 2 ) T MP 

ATMAG 

2221 

REF- 

1 

E7 i 1636 

1/DV2 

EQUALS 

1/DVL  +2 

B ( 2 ) TMP 

ATMAG 

222  2 

REF 

1 

F 7 ,164  0 

1/DV3 

EQUALS 

1/DV2  +2 

B(  2 ) TMF 

ATMAG 

2223 

REF 

1 

E7, 1642 

XP  ANGE 

EQUALS 

1/DV3  +2 

B ( 2 ) T Mp 

2224 

REF 

1 

E7 , 1644 

ENGOFFDT 

EQUALS 

XRANGE  +2 

B(l) TMP 

2225 

REF 

1 

E7, 1645 

VGVECT 

EQUALS 

ENGOFFDT  +1 

I ( 6 ) 0 UT 

VEIC CITY-TO-BE- GAINED 

2226 

REF 

1 

E 7 , 1 6 5 3 

TXO 

EQUALS 

VGVECT  +6 

I (2 )TMP 

TIMF  AT  WHICH  X-AXIS  OVERRIDE 

A 222 7 

IS  allow 

ED. 

R 22 2 ? 

END 

! F THE  ASCENT  GUIDANCE  EPASABLES. 

R 2229 

THE 

FOLLOWING  CARDS 

KEEP  THE  ASSEMBLER 

HAPPY  UNTI 

L THE 

SYMBOLS  ARE 

DELETED  FROM 

THE  PINBALL  NOUN  TABLES. 

2231 

REF 

1 

E7, 1 745 

END-E7.0 

EQUALS 

IRETURN1  +1 

FIRST  UNUSED  LOCATION  IN  E7  OVERLAY 

0 

223? 

P EF 

1 

E7 , 1747 

END-E7.  1 

EQUAL  S 

N49FLAG  +1 

FI-'ST  UNUSED  LOCATION  IN  E7  OVERT  AY 

1 

2233 

RFF 

1 

4000 

END-F7.2 

EQUALS 

POINTVSM  +6 

FIRST  UNUSED  LOCATION  IN  F7  OVERLAY 

2 

2234 

REF 

3 

LAST  152 

E 7 , 1630 

END-E7.3 

EQUALS 

END-AL IG 

FIRST  UNUSED  LOCATION  IN  E7  OVERLAY 

3 

2235 

E7,  1777 

END-E7.4 

EQUALS 

3777 

**  LAST 

LOCATION  USED  IN  E7  OVERLAY 

6 ** 

2236 

REF 

1 

E7, 1655 

END-E7.5 

EQUALS 

TXO  +2 

FIRST  UNUSED  LOCATION  IN  E7  OVERLAY 

5 

2237 

E7,  1777 

END-E7 

EQUALS 

3 777 

**LAST  LOCATION  USED  IN  E7  ** 

A 22  3 F 

***  END  OF  LUMEPASF.120  *** 


GAP:  ASSEMBLE  *E VISION  001  OF  AGC  PROGRAM  A°1 IRuPE  BY  EYLES 

l.  INTF^UPT  l EAO  INS 


0001 


4000 


SETLOC 


00015  REF  1 COUNT  * 


000? 

0003  PFF  1 

0004  REF  1 

C005  REF  1 

000:6  !•  E F 1 

0007 

0008  REF  1 

000° 

0010  REF  2 LAST  153 

001  l 

0012  REF  1 

0013 


4000  0 0004  0 INHINT 

4001  3 4054  1 CAF 

4002  56  006  1 XCH 

4003  1 2667  0 TCF 

• 004  52  Gil  0 ' OXCH 

4005  u 0006  1 ' EXTEND 

6006  3 4056  0 DC A 

4007  5 2 006  0 DTCB 

4010  52  011  0 DXCH 

4011  0 0006  1 EXTEND 

4012  3 1275  0 OCA 

6013  52  006  0 DTCB 


0014 

0015 

0016 

REF 

REF 

REF 

3 

1 

2 

LAST 

L AST 

L 5 3 

153 

0017 

REF 

1 

4014  52  011  0 OXCH 

4015  3 4057  1 CAF 
4 J16  560061  XCH 
4017  1 3407  0 TCF 
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4027  1 3274  1 TCF 

030  5?  011  0 DXCH 
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4000 

$ $ /R  UP  T S 

GCBB 

BBANK 

GOPROG 

ARUPT 

T 6 A 0 - 


ARUPT 
T 5 AD'-’ 


■ARUPT 

T3RPTBB 

BBANK 

T3PUPT 
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1 
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0001  12,2000  BANK  12 

000101  REF  1 06,2000  SETLOC  T4RUP 

000102  06,2000  BANK 


0002  REF  2 LAST  154  Ef , 1414  EBANK=  Mil 

00025  P EF  1 COUNT  * *$/T4PPT 

0003  ’EF  1 06,2000  54  016  1 T4RUPT  TS  BANKRUPT 
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REF 

1 

06 , 2097 

0008 
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2 

LAST 
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1 

C6. , 2006 
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1 
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1 
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0 

OCT 

14031 

4071 

2 C 03  3 

0 
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1 
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4074 

34034 

1 
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34034 

4075 

40023 

1 
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4076 
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1 
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50037 

0 
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0 
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2 
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T4RUP 
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SANK 
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2 
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$$/T4RPT 

0042 

REF 
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CCS 

DSPTA8  + 1 1 D 

0043 
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1 

06,2013 

0 2063 

0 

TC 
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2 

LAST 
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06,2014 

9 2063 

0 

TC 

D SPOUT 
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REF 

2 
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06,2015 

57  * 036 

0 

XCH 

OSPTAB  +11D 

0046 

PEF 

1 

06,2016 

7 4356 
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0047 

REF 

3 
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156 

06,2017 

55*036 

1 

TS 

DSPTAB  + 1 ID 

0048 

REF 

1 

06,2020 

6 4 101 

0 

AD 

RELTAB1 1 

0069 

06,2021 
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1 
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06,2022 
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0064  n E F 
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0069  REF 

0070  REF 
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06.2025 

06.2026 
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06.2035 
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55*023  0 
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1 
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0 
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RFF 
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0 
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1 

06,2067 

0 2024 

0 

TC 

00847 
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2 

LAST 
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06,2070 

1 2130 

0 

TCF 

0085 

REF 

1 

06,207  1 

4 2171 

0 

HANG20 

CS 

0086 

PFF 

3 

LAST 
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06,2072 

27*313 

0 

AOS 

0087 

RFF 

1 

06, 2073 

3 7731 

0 

CAF 

0088 

REF 

1 

06,2074 

54  027 

0 

SETTIME4 

TS 
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NOUT 

2ER0 

..z 

DSRUPTEM 

DSPCNT 

SET  TO  -0  FOR  1ST  PASS  THRU  DSPTAB 

NEGO 

DSPCNT 

TO  PREVENT  +0 

DSPCNT 

DSPTAB 

..e 

DSPCNT 

DSPS  CAN  -2 
DSPL  A Y 

12 

DSRUPTEM 

1637? 

NOUT 

0 

IF  DSPTAB  FNTP.Y  +,  SKIP 

IF  DSPCNT  +,  TRY  AGAIN 

IF  DSPTAB  ENTRY  -,  DISPLAY 

DEC  10  LENGTH  OF  DSP T4B 

IF  DSPUPTEM=+0 ,2ND  PASS  THRU  DSPTAB 
(DSPCNT  = 0).  +0  INTO  NOUT. 

DSRUPTEM 
TASLNTH 
DSPSCAN  -1 

IF  DSPUPTEM=-0,1ST  PASS  THPU  DSPTAB 
( DSPCNT  = 0 ) . +0  INTO  DSRUPTEM.  PASS  AGAIN 

ONE 

DSPCNT 

i 

DSPTAB 

L0W1  1 

DSRUPTEM 

REPLACE  POSITIVELY 

REMOVE  BITS  12  TO  15  1 

HIS 

DSPCNT 

PEL  TAB 

( 

PICK  UP  BITS  12  TO  15  OF  RELTAB  ENTRY 

DSRUPTEM 

OUTO 

i 

0+1 

< 

FLAGNEDS 

7.  ERG 

NODSPOUT 

NGUT 

DSPO'JT  SB 

IS  DSKY  FLAG  ON 

NQ 

NO 
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NCD  SPOUT 

14,11  ,9 

DSP  OPT S W 

20MPUPT 

TIME4 

NO  DISPLAY  REQUESTS 
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P 008P 1 
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PROCEED  PUSHBUTTON 

1 S 

MONITORFD  EVERY 

120  MILLISECONDS  VIA  THE  CHANNEL  32  BIT  14 

I N 8 I T . 

R 0088  1 2 

THE 

S 

T AT  E 

OF  T HI S 

INBIT  IS  COMPARED  WITH 

ITS  STATE  DURING  THE  PREVIOUS 

T4RUPT  AND  TS  PROCESSED  AS  FOLLOWS. 

P 008  814 

I 

F 

PEE  V ON  AND  1 

NOW  ON 

BYPASS 

R 003  8 15 

I 

F 

PREV  ON  A NO 

MOW  OFF 

UPDATE  I 

MODES  3 3 

R 008*16 

T 

F 

P P F V OFF  AND 
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R 0088  17 

I 

F 
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L 

OG I C 
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OCCUR. 

008*2 

D 

1 

06,2075 

3 I 303 

0 

PPOCEEOE  CA 

I MO  DE  S 3 3 

MON  IT  I OR  FOP  PROCEED  button 

008321 

06,2076 

0 CC06 

1 

EXTEND 

008822 

REF 

1 

C6 , 2 C 77 

06  C32 

0 

EX  OR 

CHAN32 

008823 
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12 

LAST  <17 

05,2100 

7 4 736 

c 

MASK 
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00382' 

06,2101 

0 0006 

1 

EXTEND 

008825 

PEF 

1 

06,2102 

1 21  Id 

1 

RZF 

T4JUMP 

NO  CHANGE 

008826 

REF 

2 
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06,2103 

23 ' 303 

0 

LXCH 

1 MODE  S3 3 

003827 

06,2104 

0 0006 

1 

EXTEND 

008  8 2.8 
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1 

06,2105 

06  0U1 

0 

RXOR 
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008329 
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3 

LAST  138 

06,2106 
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1 

TS 

I MODES 33 

UPDATE  I MODES  3 3 

008  8 3 

6 EF 
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06,2107 
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0 
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BIT  14 
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PEE 

I 

06,2110 

1 0 0 00 

0 

CCS 

A 

008832 

REF 

2 

LAST  168 

06,2111 

1 2116 

1 

TCE 

T4JUMP 

WAS  ON  - NOW  OFF 

008833 

REF 

1 

06,2112 

3 4355 

0 

CAP 

CHRP  R I 0 

WAS  OFF  - NOW  ON 

008834 

PEF 

1 

06,2113 

0 5072 

1 

TC 

NOV  AC 

CC3B35 

r:  EE 

1 

0777 

F BANK  = 

DSPCOUNT 

008P  36 

HtF 

l 

OA,?]  1 A 

r.  ^ 4 s 2 

] 

2 C A D 8 

PROCKEY 

008836 

REF 

1 
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h EE  2 LAST  155  06,2116 
06, 21  l7 

REF  1 06,2120 
REF  1 06,2121 
REF  1 06,2122 
REF  1 06,2123 
REF  2 LAST  159  06,212* 
REF  2 LAST  159  06,2125 
‘EF  2 LAST  1^°  06,2126 
REF  2 LAST  159  06,2127 


REF  1 7731 


50  C7Q  0 T 4 JUMP  INDEX 


1 2120  1 TCF 

0 3156  0 TC 

1 3C06  0 TCF 

1 2172  0 TCF 

1 3132  0 TCF 

0 3156  0 TC 

1 3006  0 TCF 

1 2172  0 TCF 

1 3132  0 TCF 


2 OMR  UP T = 


KUPT  i<EGl 

+ 1 
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P 01  50 
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0151 
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0152 
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3 
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06,2131 

0163 

PEF 

1 

06,2132 

015' 

REF 

1 

06,2133 

015  5 

REE 

14 

LAST 
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06,2134 

01551 

PEF 

LAST 
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06,2135 

0155? 

06 , 2136 

01553 

REF 

1 

06,2137 

01555 

PEF 

4 

LAST 

157 

06,2140 

0156 

REF 

2 

LAST 
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06,2141 

016  7 

REF 

1 

06,2142 

015  7 6 

RFF 

15 

LAST 
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5 

1 AST 
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REF 

2 

LAST 

157 
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REF 
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d eF 
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REF 

3 

LAST 
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06,2154 

0166 

REF 

3 

LAST 
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06,2155 

0167 

RFF 

14 

LAST 

160 

06,2156 

0168 

PEF 

7 

LAST 

160 

06,2157 

0169 

REF 

8 

LAST 

160 

06,2160 

0170 

REF 

2 

LAST 

160 

06,2161 

0171 

06, 2162 

017? 

REF 

1 

06,2163 

0173 

PEF 

3 

LAST 

160 

06,2164 

0174 

06,2165 

0175 

REF 

5 

LAST 

1 

06,2166 

0176 

REF 

16 
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1.60 

06,2167 

0177 

REF 

1 
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0179 
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1 2 074 

1 

TCF 

SETT  I ME4 
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1 
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DSRUPTSW 
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1 

EXTEND 
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0 

BZF 
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CCS 

NOUT 

0 2024 

0 

TC 

DSPOUTSB 

1 2152 

1 

TCF 

NODSPY 

4 '*736 

0 

CS 

BITI4 

2 7 ' 3 1 3 

0 

QUIKFUPT 

ADS 

DSRUPTSW 

3 7731 

0 

CAE 

20MRUPT 

54.  027 

0 

TS 

TIME  4 

3 ^743 

0 

CAF 

B I T9 

27*313 

0 

ADS 

DSRUPTSW 

0 5270 

1 

TC 

RESUME 

0 0006 

1 

NQOSPY 

EXTEND 

01  010 

1 

WRITE 

OUTO 

3 7731 

0 

SYNCT4 

CAF 

20MBUPT 

26  027 

0 

ADS 

T IME4 

3 4743 

0 

CAF 

B I T 9 

27*313 

0 

ADS 

DSRUPTSW 

11*313 

0 

CCS 

DSRUPTSW 

0 5270 

1 

TC 

RESUME 

37737 

0 

CCT37737 

OCT 

37737 

0 2154 

0 

TC 

SYNCT4 

0 52  7C 

1 

TC 

RESUME 

0 0006 

1 

QUIKOFF 

EXTEND 

01  010 

1 

WRITE 

OUTO 

3 4736 

1 

CAF 

BIT14 

1 2144 

0 

TCF 

QUIKRUPT 

22400 

0 

14*11,9 

OCT 

22400 
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SET  FOP  NEXT  CDF'VE 


WROTE  LAST  ttME,  MOW  TURN  OFF  RELAYS. 


NOUT  = 0 OP  BAD  RETURN  FROM  DSPOUTSB 
GOOD  RETURN  (WE  DISPLAYED  SOMETHING) 


RESET  DSRUPTSW  TD  SEND  DISPLAY  NEXT  PASS 


GAP: 


ASSEMBLE  REVISION  GO 1 OF  AGO  PROGRAM  AP11RUPE  BY  EYLES 


3:  IS  DEC 


2,1970  AP11AID  .001  PAGE  161 


L T4RUPT  PROGRAM  USER’S  PAGE  NO.  7 E6  S4 


P 0300  PROGRAM  NAME:  IMUMON 

R 030 1 FUNCTIlNAI  BCSCkIP^IW  : .THIS  PROGRAM  IS..  ENTERED  EVERY  480  MS.  IT  DETECTS  CHANGES  OF  THE  IMU  STATUS  BITS  IN 

ft  0303  CIHAI  :EL  30  AMO  CALLS  TEE  AP0!  ..  I ATE  S Ji'H  r UT!  ES.  THE  BITS  PROCESSED  AND  THEIR  RELEVANT  SUBROUTINES  ARE: 

R 0305  FUNCTION  BIT  SUBPrUTIf-'E  CALLED 

R 0306  

R0307  TEMP  IN  LIMITS  15  TLIM 

R 0306  ISS  TURN-GN  REQUEST  14  ITURNON 

R 0308  IMU  FAIL  13  IMUFAIL  (SETISSW) 

R0310  IMU  CD')  FAIL  12  ICDUFAIL  (SETISSW) 

P031  1 IMU  CAGE  11  ! MURAGE 

p 031 2 IMU  OPERATE  9 IMUOP 

R 031 3 THE  LAST  o A . PLED  STATE  OF  THESE  BITS  IS  LEFT  IN  IMUTES30.  ALSO,  EACH  SUBROUTINE  CALLED  FINDS  THE  NEW 

R0315  VALUE  F THE  BIT  IN  A,  WITH  0 SET  TO  THE  PROPER  RETURN  LOCATION,  NXTIFAIL. 


P 0317  CALLING  SEQUENCE:  T4RUPT  FVERY  ' BO  MILLISECONDS. 


R 03 1 8 JOBS  OR  TASKS  INITIATED:  NONE. 


R 03 1 c 

R 0320 
R 032  I 
P 0323 
P 032  5 


SUB POUT  IN ES  CALLED: 


Til',  I TURNON,  SETISSW*  I M(jC  AGE  , 


I MiJOP. 


« 


ERASABLE  INITTALIZA'1  !•'  ’N: 

FRESH  " A F T 0'  ESTART  WITH  NO  GROUPS  ACTIVE:  C ( IMCDES30 ) = OCT  37411. 

PESTAI  T WITH  ACTIVE  GROUPS:  C ( IM0DES30 ) = ( B ( IMODES30 I AND ( OCT  00035))  PLUS  OCT  37400.  < 

THIS  LEAVES  IMU  FAIL  BITS  INTACT. 


P.  0326  ALA'  'S:  NONE. 


R 0327 


EXIT: 


TN0NTES7. 


« 


R 032 8 OUTPUT:  UPDATED  i SLUES 30  WITH  CHANGES  PROCESSED  BY  APPROPRIATE  SUBROUTINE. 


03  30 

TEE 

I 

06 ,2172 

3 1302 

1 IMUMON 

CA 

I MODES  30 

SEE  IF  THERE  HAS  BEEN  A CHANGE 

03  31 

06,2173 

© 0006 

1 

EXTEND 

RELEVANT  BITS  HE  CHAM  30. 

0332 

REF 

1 

06,2174 

06  030 

1 

RXOP 

CHAN30 

0333 

REF 

1 

06, 2175 

7 2761 

1 

MASK 

30RDMSK 

0334 

06,2176 

0 0006 

1 

EXTEND 

033  5 

REF 

1 

06,2177 

1 2227 

0 

BZF 

TNON  TEST 

NO  CHANGE  IN  STATUS. 

0336 

REF 

3 

LAST 

159 

06,2200 

54  070 

1 

TS 

P.UPTPE61 

SAVE  BITS  WHICH  HAVE  CHANGED. 

0337 

REF- 

2 

LAST 

161 

06,2201 

23' 302 

1 

LXCH 

I MODE  S30 

UPDATE  IM0DES30. 

0338 

06 , 22C2 

0 0006 

1 

EXTEND 

033  9 

REF 

2 

LAST 

1 f 8 

C6, 2203 

06  001 

0 

RXOR 

LCHAN 

0340 

REF 

3 

LAST 

1 6 1 

06,2204 

55' 302 

0 

TS 

I MODES 30 

034  1 

REF 

2 

LAST 

167 

06, 2205 

4 4 75  3 

0 

CS 

ONE 

0342 

REF 

4 

LAST 

161 

06,2206 

56  C70 

0 

XCH 

PUPTREG 1 

0343 

06,2207 

0 0006 

1 

EXTEND 

< 


AP:  ASSEMBLE  i-t  VISION  -001  £ F A GC  Pf.  3P.AM  API  IRDPE  BY  hYLES 

TAR UP T PROGRAM 


03  A A 
0345 

REF 

REF 

1 

1 

06 , 22  10 
06,2211 

6 25  1A 
l 22  13 

0 

1 

8 Z MF 

TCF 

TLIM 

N XT  I F B IT 

0346 

F FF 

3 

[ A 5 

161 

06,2212 

6 67  s 3 

1 

-1 

AD 

ONE 

03A7 

REF 

5 

LAST 

16  1 

06,2213 

24  070 

0 

'XT  FBI T 

KG'- 

F UPT' FGL 

03A8 

06, 221  A 

6 0000 

1 

+ 1 

DOUBLE 

03A9 

REF 

2 

LAST 

158 

06,2215 

54  COO 

0 

TS 

A 

0350 

REF 

2 

LAST 

162 

06,2216 

1 2213 

1 

TCF 

N XT  I FBI  T 

03  51 

RFF 

1 

06,221^ 

O'-  1 

1 

XCH 

urt  EG? 

03F? 

REF 

fc 

LAST 

162 

06 , 2220 

50  C70 

0 

INDEX 

FUPTPFG1 

035  3 

R EF 

17 

LAST 

160 

06,2221 

3 4736 

1 

CAF 

B I T 1 a 

035A 

REF 

4 

LAST 

161 

06,2222 

7 13  02 

0 

MASK 

I MODES 30 

0355 

REF 

7 

1 AST 

162 

06,2223 

50  070 

0 

INDEX 

RUPTP  EG  1 

035.6 

REF 

1 

06,2224 

0 2755 

1 

TC 

I FA  II  JMP 

036  7 

REF 

2 

LAST 

1 6 2 

06,2225 

If  C71 

0 

NXTt  FAIL 

CCS 

RUPTREG2 

035  8 

REF 

3 

1 AST 

162 

OS  22  26 

l 2212 

0 

TCF 

NXTI FBI T 

3:15  DEC 


2,1370 
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USER  * 3 PAGE  NO.  8 E6  S4 

CHANGE  IN  IMU  TEMP. 

BEGIN  BIT  SCAN. 

(RE-ENTERS  HEf E FROM  NX^IFAIL.) 
ADVANCE  BIT  POSITION  NUMBER. 

SKIP  IF  OVERFLOW. 

LOOK  FOR  BIT. 

SAVE  OVEr FLOW-CORRECTED  DATA. 

SELECT  NEW  VALUE  OF  THIS  BIT. 


PROCESS  ANY  ADDITIONAL  CHANGES 


GAP: 

L 

P 0359 

R 0360 
R 03  A? 
R 036'- 

R 0366 
P 036  8 
R 0370 

R 0372 
R 037 1- 
R0376 
R 0378 

R 037  9 
R 03  8 1 

R 038  3 
R0385 
R 03  87 
R 0 38° 
R 039  l 
R 039  3 
R0395 
R 0397 
R0399 

R 06  0 ) 
R04C3 

R 040  5 

R 0406 
R 0408 
R0410 

R 04 1 1 

R 0413 

R 0*- 1 4 

R 04  1 4 
R 041  8 
R 04  2 C 

R 04  p 1 

0422 
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T4RUPT  PROGRAM  USER'S  PAGE  NO.  9 E6  S4 

PROGRAM  NAME:  TNONTEST. 

FUNCTI.-'AL  DE  SC  IRT-.lt  -I : THIS  PROGRAM  HONOR  a REQUESTS  FL  ft  1SS  INITIALIZATION.  ISS  TURN-ON  (CHANNEL  30  BIT  14) 
AND  ISS  OPERATE  (CHANNEL  30  BIT  9)  REQUESTS  ARE  TREATED  AS  A PAIR  AND  PROCESSING  TAKES  PLACE  .480  SECONDS 
AFTER  EITHER  ONE  APPEARS.  THIS  I N I T I AL.  I ZAT  I ON  TAKES  ON  ONE  OF  THE  FOLLOWING  THREE  FORMS: 

1)  ISS  TURN-ON:  IN  THIS  SITUATION  THE  COMPUTE1.  IS  OPERATING  WHEN  THE  ISS  TS  TURNED  ON.  NOMINALLY, 
BOTH  ISS  TU°N— ON  AND  ISS  OPERATE  APPEAR.  THE  PLATFORM  IS  CAGED  FOR  90  SECONDS  AND  THE  ICDU'S  ZEROED 
SO  IA'  AT  THE  END  OF  THE  PROCESS  THE  GIMBAL  LOCK  MONITOR  WILL  FUNCTION  PROPERLY. 

2)  C 0 U T • TTAl  ? ATI  I . : IN  THIS  CASE  THE  COMPUTER  WAS  Pr.GBABL  Y TURNED  ON  WITH  THE  ISS  IN  OPERATE  OR 
A FRESH  START  WAS  DONE  WITH  THE  ISr  IN  OPERATE.  IN  this  CASE  DlNlY  ISS  ° P E r A T E IS  ON.  THE  TCDIJ'S  APE 
ZEROED  SC  THE  GIMBAL  LOCK  MONITOR  WILL  FUNCTION.  AN  EXCEPTION  IS  IF  THE  ISS  IS  IN  GIMBAL  LOCK  AFTER 
A RESTART,  THE  ICDU'S  WILL  NOT  BE  ZF°OED. 


3)  ' r • -A  • •)!  th  • ESTA  -TAhi  E PROG:  AM  USING  'HE  I MU : IN  THIS  CASE,  NO  INITIALIZATION  TAKES  PLACE  SINCE 

IT  IS  ASSUMED  THAT  THE  USING  PROGRAM  DID  THE  I NTH AL I Z AT  I ON  AMO  THEREFORE  T4RUPT  SHOULD  NOT  INTERFERE. 


I MODE  S30  BIT  7 IS  SET  = 1 BY  THE 
ENTERED,  FINDS  BIT  7 = 1 BUT  BIT 
PROCEEDS,  SETTING  BITS  8 AND  7 = 
COARSE).  IF  ISS  OPERATE  IS  NOT 
r'  F ! MODES  30  IS  TESTED.  TF  IT  IS 
THE  ISS  TURN— ON  R#©UE$T  IS  PRESE 
WAS  WAITING  FOR  THE  INITIAL  IZAT1 
WENT  PROPERLY,  THE  ISS  DELAY  OUT 
INHIBIT  SIT  IN  10.24  SECONDS.  I 


FIRST  BIT  (CHANNEL  30  BIT  14  OR  9)  WHICH  ARRIVES.  FOLLOWING  THIS.  TNONTE ST  IS 
8 = 0 , SO  IT  SETS  BIT  8 = 1 AND  EXITS.  THE  NEXT  TIME  IT  FINDS  BIT  8=1  AMD 
0.  AT  P'uCTNON,  IF  ISS  TURU-or  REQUEST  IS  PRESENT,  THE  ISS  IS  CAGED  (ZFRO  + 
PRESENT  PROGRAM  ALARM  00213  IS  ISSUED.  AT  THE  END  OF  A 90  SECOND  CAGE,  BIT  2 
= 1,  ISS  TURN-ON  WAS  NOT  PRESENT  FOR  THE  ENTIRE  90  SECONDS . IN  THAT  CASE,  IF 
NT  THE  90  SECOND  WAIT  IS  REPEATED,  OTHERWISE  MO  ACTION  OCCURS  UNLESS  A PROGRAM 
ON  IN  WHICH  CASE  .HE  PROGRAM  IS  GIVEN  AN  IMUSTALL  ERROR  RETURN.  IF  THE  DELAY 
BIT  IS  SENT  AND  THE  ICDU'S  ZEPOFD.  A TASK  IS  INITIATED  TO  REMOVE  THE  P I PA  FAIL 
F A MISSION  PROGRAM  WAS  WAITING  IT  IS  INFORMED  VIA  ENDIMU. 


AT  P'UCTNON,  IF  IY  I SS  OPERATE  IS  PRESENT  (CUOMLY),  THE  CDU'S  ARE  ZEROED  UNLESS  THE  PLATFORM  IS  IN  COARSE 
ALICL  (=  GIMBAL  LOCK  HERE)  Or-  A ' ISSION  PROG Raw  IS  USING  THF  IMU  ( I MUSEFLG  = 1). 


CALLING  SEQUENCE:  T4RUP'r  EVERY  480  MILLISECONDS  AFTER  IMUMON. 

JUS  TASKS  To  IT  SATED:  1)  tUOT'U:  , 90  SECC  JDS  APTET  CAGING  ST  ACTED.  2)  ISSUP,  4 SECONDS  A FTP-  CAGING  DOME. 

3)  PFAILOK,  1 .2  SECONDS  AFTER  INITIALIZATION  COMPLETED.  4)  UN? 2,  320  MILLISECONDS  AFTER  ZE'OING 

ST  Ac  T ED . 


SUBROUTINES  CALLED:  CAGESUB,  CAGESU82 , ZERPICDU,  ENDIMU,  IMUBAD,  NOATTOFF,  SETISSW,  VARDELAY. 

F A SABLE  INITIALIZATION:  SEE  IMUMON. 

ALARMS;  PROGRAM  ALARM  00213  IF  l SS  TURN-ON  REQUESTED  WITHOUT  ISS  OPERATE. 

EXIT:  ENDTNON  EXITS  TO  C33TEST . TASKS  HAVING  TO  DO  WITH  INITIALIZATION  EXIT  AS  FOLLOWS:  MISSION  PROGRAM 

WAITING  AND  INITIALIZATION  COMPLETE,  EXIT  TO  ENDIMU,  MISSION  PROGRAM  WAITING  AND  INITIALIZATION  FAILED,  FXJT  TO 
IMUBAD,  1 MU  NOT  If  USE,  EXIT  TO  TASKOVER. 

OprWT  : ISS  INITIAL  izfd. 

REF  5 LAST  162  06,2227  4 1302  0 TNONTEST  CS  IM0DES30  AFTER  PROCESSING  ALL  CHANGES,  SEE  IF  IT 


gap:  assemble  '-e  vision  oci  e age  program  apurqpe  by  eyi.es 

L TAP  UP T PROGRAM 


042  3 

REF 

16 

LAST 

87 

06,2230 

7 4745 

1 

MASK 

B I T 7 

04  24 

REF 

3 

LAST 

162 

06,2231 

10  COO 

0 

CCS 

A 

nA  0 R 

OFF 

1 

n 6 . ??  3 7 

1 2 3 74 

TCF 

r 1 -x  T p c ,T 

U't-c 

k r t 

I 

' 1 O f C~  C 

G J J 1 L v;  1 

04  2 6 

PFF 

13 

t AST 

87 

06,2233 

3 4744 

1 

CAF 

BIT8 

06-27 

REF 

6 

L AST 

163 

06,2236 

7 1302 

0 

MASK 

I MODE S3  0 

042  8 

REF 

4 

LAST 

166 

06,22  35 

10  000 

0 

CCS 

A 

0429 

REF 

1 

06,2236 

1 2242 

0 

rcF 

PROCTNON 

0430 

RFF 

14 

LAST 

164 

Od, 2237 

3 4744 

1 

CAF 

BIT  8 

0431 

r EF 

7 

LAST 

1 64 

06,2240 

27 '302 

0 

ADS 

I PCDES30 

043  2 

REF 

2 

LAST 

164 

06 ,2241 

1 2 3 74 

1 

TCF 

C 33TFST 

R 043  3 

PROCE 

SS  IMU 

-(  . 

REQUESTS 

AFTER  WAITING  1 SAMPLE  FOR 

043s 

REF 

1 

06, 224  2 

4 2 7 77 

0 

PRCCTNOI' 

CS 

BITS7CR 

04  36 

RFF 

8 

LAST 

164 

06,2243 

7 1302 

0 

MASK 

I MODE  S3  0 

0^3  7 

REF 

o 

LAST 

1 6 4 

06,2244 

55' 302 

o 

TC 

T v.nnR  5 b o 

I ' i'JUE  O J U 

043  B 

REF 

18 

LAST 

162 

06,2245 

7 4736 

0 

MASK 

BIT14 

0439 

REF 

5 

LAST 

16  4 

06,2246 

10  000 

0 

CCS 

A 

0440 

REF 

1 

06,2247 

1 2347 

1 

TCF 

OPONLY 

0441 

REF 

10 

LAST 

1 64 

06,2250 

4 1302 

0 

CS 

! M0DES30 

064  2 

REF 

15 

LAST 

1 6 0 

04,2251 

7 4743 

1 

MASK 

BIT9 

0443 

REF 

6 

LAST 

164 

C6 , 225  2 

10  000 

0 

CCS 

A 

0444 

06,2253 

1 2256 

0 

TCF 

+ 3 

0445 

PEF 

1 

06, 2254. 

0 5567 

0 

TC 

ALA' 

064  6 

06,2255 

00213 

1 

OCT 

213 

044  7 

REF 

1 

06,2256 

0 2735 

1 

+3 

TC 

CAGESUB 

044  8 

REF 

1 

06,2257 

3 3005 

1 

CAF 

90S  ECS 

0449 

P EF 

I 

06, 2260 

0 5203 

o 

TC 

WAITLIST 

045  C 

RFF 

3 

LAST 

] F6 

E6 , 1414 

EBANK= 

Mil 

0451 

REF 

1 

06 , 226  1 

0 2266 

l 

2CADP 

END!  'JON 

0451 

OFF 

1 

04,2262 

14  106 

0 

0452 

REF 

3 

LAST 

1 

06,2263 

1 2374 

1 

TCF 

C33TEST 

0453 

REF 

2 

LAST 

164 

06,2264 

3 3C0  5 

1 

RETN'IN 

CAF 

90SECS 

0454 

REF 

1 

06,2265 

0 c?24 

0 

TC 

VAR DEL AY 

0456 

REF 

13 

LAST 

88 

06,2266 

4 4752 

1 

ENDTNON 

CS 

BIT2 

0456 

REF 

1 1 

LAST 

164 

06,2267 

7 1302 

0 

MASK 

1 MODE  S30 

045  7 

REF 

12 

LAST 

164 

06,2270 

5/  '302 

1 

XCH 

I MODES 3 Q 

045F 

REF 

14 

LAST 

164 

06,227 1 

7 4752 

1 

MASK. 

BIT2 

065  9 

06,2272 

0 0006 

1 

EXTEND 

0660 

REF 

1 

06,2273 

1 2306 

1 

BZF 

ENDTNON? 

0461 

REF 

19 

LAST 

164 

06,2274 

3 47  36 

1 

CAF 

B IT  14 

3:15  DEC.  2,1970  AP11AID  .001  PAGE  1 64 
USER’S  PAGE  NO.  10  E6  S4 

IS  TIME  TO  ACT  ON  A TURN-ON  SEQUENCE. 

NO  - EXAMINE  CHANNEL  33. 

SEE  IF  FIRST  SAMPLE  OR  SECOND. 

REACT  AFTER  SECOND  SAMPLE. 

IF  FIRST  SAMPLE,  SFT  BIT  TO  REACT  NEXT 
TIME. 

ALL  SIGNALS  TO  ARRIVE. 


SEE  IF  TURN-ON  REQUEST. 

OPERATE  ON  ONLY. 

IF  TURN-ON  REQUEST,  WE  SHOULD  HAVE  IMU 
OPERATE . 

ALARM  IF  KIT. 


RESET  TURN-ON  REQUEST  FAIL  BIT. 

IF  IT  WAS  OFF,  SEND  ISS  DELAY  COMPLETE. 


IF  IT  WAS  ON  AND  TURN-ON  REQUEST  NOW 


GAP:  ASSEMBLE  REVISION  OOI  OF  AGC  PROGRAM  API1RGPE  BY  EYLES 


L T4RUPT  PROGRAM 


0462 

P.FF 

13 

LAST 

164 

06,2275 

7 1302 

0 

MASK 

I MODES 3 0 

0463 

06, 2276 

0 0006 

1 

EXTEND 

0464 

n a 0277 

1 

BZF 

R FT MOM 

Ktr 

1 

uo  , 4<-  1 ‘ 

1 c.  c.  Om 

I 

046  5 

REF 

1 

06, 2300 

4 0074 

0 

CS 

F LAGWPDO 

0466 

R EF 

1 

0* , ’30  I 

7 4 744 

0 

MASK 

IMiJSEB  IT 

0467 

REF 

7 

LAST 

164 

06,2302 

10  000 

0 

CCS 

A 

0468 

REF 

I 

06, 2303 

1 5261 

0 

TCF 

T ASKOVFR 

0469 

REF 

1 

06,2304 

0 463  5 

0 

TC 

POS‘1  JUMP 

0470 

REF 

1 

06,2305 

17637 

c 

C A DP 

I MU  BAD 

0471 

r FF 

1 1 

LAST 

37 

06, 2306 

3 4735 

1 

! 61  12 

CAF 

B I T 1 5 

0472 

06,2307 

0 0006 

1 

EXTEND 

0473 

REF 

1 

06,2310 

05  012 

1 

WPP. 

CHAN 12 

04  7- 

ref 

1 

0 ,231  1 

0 4674 

0 

TC 

I BN K CAL  1 

047c 

R EF 

L 

06,,  231  2 

1 72  6 6 

0 

CAD" 

MOAT TQFF 

0476 

p EF 

I 

06, 2313 

0 5457 

1 

UNZ2 

TC 

ZERO  I C DU 

n/,77 

ore 

1 

A 6 2 8 14 

4 47  A 8 

A 

r c, 

n I T S 4 f 5 

k l r 

1 

*T  T < UJ 

1 

\J  V. 

O 1 i ■■TV  ■ 

047  8 

06, 2315 

0 ( 006 

1 

EXTEND 

0479 

6F 

2 

LAST 

16  5 

Or , 2316 

0 3 012 

1 

WAND 

C HAN  1 2 

0480 

REF 

14 

LAST 

131 

06,2317 

3 4741 

1 

CAF 

BIT  11 

0481 

P EF 

2 

LAST 

164 

06, 2320 

0 52  24 

0 

TC 

VARDELAY 

0482 

REF 

1 

06,232  1 

4 2774 

0 

ISSUP 

CS 

OCT  54 

04  8 3 

P b F 

14 

LAST 

165 

06,2322 

7 13  02 

0 

MASK 

r MODES 30 

0486 

R p p 

1 5 

I /\5f 

16  5 

np,  p o o 3 

55 ' 302 

0 

T A 

r Mn n f S8  c 

L-  . f C.  ' C.  D 

I J 

1 1 1!  'UL  Oj1- 

0485 

REF 

14 

LAST 

88 

06,2324 

4 4746 

1 

CS 

BIT6 

0436 

REF 

4 

LAST 

I 5 

06,2325 

7 1303 

1 

MASK 

I MQUES33 

0487 

R F F 

5 

LAST 

165 

06  , 23  26 

55 ' 303 

1 

TS 

I MODE S 3 3 

06  87  ] 

P.  EF 

1 

06 , 2327 

4 0076 

1 

CS 

FI  AGWPD2 

04872 

REF 

I 

06,2330 

7 4735 

0 

MASK 

DRFTBIT 

04873 

06,2331 

0 0006 

1 

EXTFND 

04874 

06,2332 

1 2336 

1 

BZF 

+ 4 

06875 

REF 

2 

LAST 

1 6 5 

06,2333 

26  076 

1 

ADS 

FLAGWRD2 

04876 

REF 

I 

06,2334 

3 0025 

0 

CA 

TIME1 

04877 

REF 

1 

06,2336 

67*075 

1 

XCH 

1 /° I P ADT 

048  8 

REF 

1 

06,2336 

0 2703 

1 

TC 

SETISSW 

0489 

REF 

12 

LAST 

165 

06,2337 

4 *73  5 

0 

CS 

B I 1 5 

0490 

Of-  ,23*0 

0 00  06 

1 

EXTEND 

0491 

REF 

3 

LAST 

165 

06 ,2341 

03  012 

1 

WAND 

CHAN  12 

0492 

REF 

1 

06,2342 

3 5003 

1 

CAF 

4SECS 

3:15  DEC. 

2,1670  AP11 

AID 

.001  PAGE  165 

USER 

* S PAGE  NO. 

11 

E6  S 4 

PRESENT, 

I- E-ENTER  90 

SEC 

DELAY  IN  WL. 

IF  IT  IS 

NOT  ON  NOW, 

SEE 

IF  A PROG  WAS 

waiting. 

UNSUCCESSFUL  TURN-ON. 
SEND  ISS  DELAY  COMPLETE. 

TURN  OFF  NO  ATT  LAMP. 

REMOVF  ZERO  AND  COARSE. 


WAIT  10  SECS  FOR  CTRS  TO  FIND  GIMBALS 

REMOVE  CAGING,  I ij  FAIL  INHIBIT,  AND 
ICOUFAIL.  INHIBIT  FI  AGS. 

ENABLE  DAP 


TEST  DPT  FTFLG:  IF  ON, 

I Ml  1 CO  MP  SHCULD  BF  ALL 
WITH  IMUSE  DOWN).  IF 
AND  1/PIPADT  TO  GET  FR 
GOING  (FRFSH  START  OR 


DO  NOTHING  BECAUSE 
SFT  UP (REST ART 
OFF,  SET  DR  I FTFLG 
EEFALL  IMUCOMP 
ISS  TURN-ON). 


CANNOT  GET  HERE 


TF  RESTART  WITH  IyUSE  UP 


ISS  WARNING  MIGHT  HAVE  BEEN  INHIBITED. 
REMOVE  IMU  DELAY  COMPLETE  DISCRETE. 


DONT  ENABLE  PROG  ALARM  ON  PIP  FAIL  FOR 


AP:  ASSEMBLE 

RE  VIS IDM 

°G1 

uF  AGO  PROGRAM  AP11R0PE  BY 

eyles 

3:15  DEC.  2,1970  AP11AID  .001  PAGE  166 

T4R UPT 

PROGRAM 

USER • S PAGE  NO.  12  E6  S4 

049  3 

REF 

2 

LAST 

164 

06,2343 

0 5203 

0 

TC 

WAITLIST 

ANOTHER  4 SECS. 

0494 

REF 

1 

E3 , 1474 

EB ANK= 

C DU  I ND 

049  5 

REF 

1 

06,2344 

03254 

1 

2C.AUR 

PFAILOK 

049  5 

REF 

1 

06,2345 

16  103 

1 

049° 

REF 

2 

LAST 

165 

Ob,  23  4 6 

l 5261 

0 

TCF 

TASKCVER 

050? 

REF  1 1 

LAST 

88 

06, 2347 

3 47  50 

1 

OPONL Y 

CAF 

BIT4 

IF  OPERATE  ON  ONLY,  AND  WE  APE  IN  COARSE 

0503 

06,2350 

0 00  06 

1 

EX  I END 

ALIGN,  DON'T  ZERO  THE  CDUS  BECAUSE  WE 

0504 

REF 

4 

LAST 

165 

06,235  1 

02  012 

0 

RAND 

CHAN12 

MIGHT  BE  IN  GIMBAL  LOCK 

050  5 

REF 

8 

LAST 

16  5 

06,2352 

10  0 00 

0 

CCS 

A 

0506 

RFF 

<+ 

LAST 

164 

06,2353 

1 2374 

1 

TCF 

C33TEST 

0507 

REF 

2 

LAST 

165 

06,2354 

3 4744 

1 

CAF 

I MU S EBIT 

OTHERWISE,  ZERO  THE  COUNTERS. 

0508 

REF 

2 

LAST 

1 65 

06,2355 

7 0074 

0 

MAS  K 

FLAGWRDO 

UNLESS  SOMEONE  IS  USING  tHE  IMU. 

0509 

REF 

9 

LAST 

U.fc 

36,2356 

10  OCO 

0 

CCS 

A 

0510 

RFF 

5 

LAST 

166 

06,2357 

1 2374 

1 

TCF 

C33TEST 

0511 

REF 

1 

06,2360 

0 2 746 

0 

TC 

CAGESUB2 

SET  TURNON  FLAGS. 

05115 

REF 

2 

LAST 

165 

06,2361 

0 4674 

0 

isszero 

TC 

I BNKCALL 

TURN  OFF  NO  ATT  LAMP 

05116 

REF 

2 

LAST 

1 6 4 

06,2362 

17  2 66. 

0 

CADI 

NO ATT OFF 

IMU  CAGE  OFF  ENTRY 

051  2 

REF 

1? 

LAST 

88 

06, 2363 

3 4747 

1 

CAF 

BIT5 

ISS  C DU  ZERO 

0513 

06,2364 

0 0006 

1 

EXTEND 

0514 

REF 

5 

LAST 

166 

06,2365 

05  012 

1 

WOR 

CHAN12 

05141 

REF 

2 

LAST 

16  5 

96,2366 

0 54  57 

1 

TC 

ZEROICOU 

0515 

REF 

15 

1 AST 

165 

0 6 ,2367 

3 4746 

0 

CAF 

BIT  6 

W A T T 300  MS  FOR  AGS  TO  RECEIVE  SIGNAL. 

0516 

REF 

3 

LAST 

166 

06,2370 

0 r2  03 

0 

TC 

WAITLIST 

0517 

REF 

4 

LAST 

164 

E6 , 1414 

EBANK= 

Mil 

0518 

REF 

1 

06,2371 

02313 

1 

2C  ADR 

UNZ2 

0518 

RE  F 

1 

06 .2372 

14106 

n 

V 

0510 

REF 

6 

LAST 

166 

06,2373 

1 2376 

1 

TCF 

C33TEST 

( 


GAP:  ASSEMi  1 E REV-IMON  001  Cf  AGE  PROGRAM  API 1R OPE  BY  EYLES 


3:15  DEC 


2,1970 
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► 

I L T4RUPT  PROGRAM 


USER’S  PAGE  MO . 13  E6  S4 


P 0 5 2 0 


> 


PROGRAM  NAME:  C33TFST 


R 052  1 
R 052  3 
► R 052 c 

R 0527 


FUNCi  IONAL. 
SUBRnUTl  ME 
CHANNEL  33 
P*:  r CFSSED 


DESCRIPTION:  THIS  PROGRAM 

TO  PROCESS  A CHANGE . IT  IS 
WITH  A WAND  INSTRUCTION  BEC 
AND  the  S®BF  ' l j-- i ->F  " CAI  LEO  A 


M(j!H  if  f S ! HTEE  FLIP— EitiP  INBITS  OF  CHANNEL  33  AMD 
ANALOGOUS  IT  I MU  'ON,  WHICH  MONITORS  CHANNEL  30, 
AIJS.E  A ’Wf  I TE  * P UC  S E IS  REQUIRED  TO  RESET  THE  FIT 

RE: 


CALLS 

EXCEPT 

P-FLnp 


THE  APPROPRIATE 
THAT  IT  READS 
S.  THE  BITS 


R 052  8 
R052  9 
R 053  0 
R 0531 
50532 


BIT 

FUNCT ION 

SUBROUTINE 

13 

PIPA  FATI 

PIPFAIL 

..e 

12 

DOWNLINK  TOO  FAST 

DNTMFAST 

11 

UPl INK  TOO  FAST 

UPTMF  AST 

R 053  3 
R 0 5 3 a 
R0535 


UPON  ENTRY  TO  THE  SUBROUTINE,  THE  NEW  BIT 
CALL  I!  5 SEQUENCES  EVE'  Y -'0  MILLISECONDS 
JOB'.  TASKS  INITIATED:  ' ONE. 


STATE  IS  IN  A. 
APTE'  T MONTE  ST. 


R 0536  SUBROUTINES  CALLED:  PIPFAIL,  DNT  M F AST  AND  U.'P  T ME  AST  ON  BIT  CHANGES. 

R 053  7 E A S A P L E INITIALIZATION:  C ( I •"0DES33 ) = OCT  16000  CM  A FRESH  START  Of  E5TArT,  THEREFORE,  THESE  ALARMS  WILL 

R 053 c LAPP  BA  IF  THE  CC  ID  I T I-  S PERSIST. 

R 0540  ALARMS:  NONE. 

R 054 1 EXIT:  GLOCKMON. 

R 0542  1 UT F IT:  UPDATED  BITS  13,  12  AND  11  OF  IM0DES33  WITH  CHANGES  PROCESSED. 


0543 

REF 

6 

LAST 

165 

C6, 2374 

3 13  03 

0 

0544 

REF 

1 

06, 2375 

7 5026 

1 

054  5 

REF 

2 

1 AST 

9 3 

i 

1 

■J  ♦.>  1 C ~J  ! ‘ ' 

1 

054  6 

REF 

2 

1 AST 

167 

06, 2377 

3 rC2L 

0 

0547 

06, 2400 

0 00  06 

1 

0548 

REF 

1 

06 ,2601 

03  033 

1 

054° 

06,2402 

0 0006 

1 

0550 

REF 

3 

LAST 

161 

06 , 2403 

06  001 

0 

0551 

06 , 2404 

0 CO  06 

1 

0552 

REF 

1 

0 6,240r' 

1 24  34 

1 

0553 

REF 

8 

LAST 

162 

0' , 2406 

54  070 

1 

0554 

REF 

7 

LAST 

167 

06 , 2407 

23' 303 

0 

0555 

06,2410 

0 0006 

1 

0556 

REF 

4 

LA  o 1 

167 

06,241 1 

06  001 

0 

0557 

REF 

8 

l AST 

16  7 

06,2412 

55*303 

1 

055  F 

rEF 

3 

1 AST 

157 

06, 2613 

3 4755 

1 

0555 

REF 

g 

LAST 

167 

06,2414 

56  070 

0 

0560 

06,2415 

6 000  0 

1 

C33TEST 


CA  I M0DES33  SEE  IF  RELEVANT  CHAM  33  BITS  HAVE 

MASK  33RDMSK 

TS  L CHANGED. 

CAB  33RDMSK 

EXTEND 

WAND  CHAN3?  RESETS  FLIP-FLOP  INPUTS 

EXTEND 

RXOR  L CHAN 

EXTEND 

B7E  GL UCKMON  ON  NO  CHANGE. 


TS  RUPTPEG1  SAVF  BITS  WHICH  HAVE  CHANGED. 

LXCH  I M0DES33 

EXTEND 

RXOR  L CHAN 

TS  1MODES33  UPDATED  I MODES  33. 

CAF  ZERO 

XCH  RUPTPEG1 

DOUBLE 


I 


ASSEMBLE  f:EVISI3.IV  GO-1  Of  AGC  PROGRAM  AP11RUPE  BY  EYLES 


GAP  : 


L T A • ! r > T °P.  OGP  AM 


056  1 

RFF 

1 

06, 2A16 

1 2A21 

0 

TCF 

NXTIBT  +1 

0562 

REF 

4 

LAST 

162 

06 , 2 A 1 7 

6 4753 

1 

-1 

AD 

CINE 

0663 

REF 

10 

LAST 

167 

06,2^20 

24  070 

0 

NXTIBT 

I NCR 

r.UPI  R EG1 

056  4 

06 , 2 A 2 1 

6 COOO 

1 

+ 1 

DOUBLE 

0565 

RFF 

10 

LAST 

166 

06,2422 

54  000 

0 

TS 

A 

0566 

REF 

2 

LAST 

163 

06,2423 

l 2420 

1 

TCF 

NXTIBT 

0567 

REF 

3 

LAST 

162 

06,2424 

56  C 7 1 

1 

XCH 

KUPTREG2 

0568 

REF 

1 1 

LAST 

16° 

06,2425 

50  0 70 

0 

INDEX 

RUPTRFG1 

0569 

REF 

1 A 

LAST 

87 

06,2426 

3 473  7 

0 

CAF 

BIT  13 

0570 

c EF 

9 

LAST 

167 

06,2427 

7 1303 

1 

MASK 

I “ODE  S33 

0571 

REF 

12 

LAST 

168 

06 , 243  0 

50  070 

0 

INDEX 

1 EG! 

0572 

REF 

1 

06 , 2431 

0 2763 

1 

TC 

C33 JMP 

0573 

RFF 

4 

LAST 

168 

06 , 2432 

10  071 

0 

NXTFL33 

CCS 

RUPTRFG2 

05  7 A 

REF 

3 

LAST 

168 

06,2433 

1 24  17 

0 

TCF 

NXTIBT  -1 

3:15  DEC 


2,1970  AP11AID 
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USER'S  PAGE  NO.  14  E6  S4 

SCAN  FOP  BIT  CHANGES. 


(CODING  IDENTICAL  TO  CHAM  30). 


GET  NEW  VALUE  OF  B I T WHICH  CHANGED. 


PROCESS  POSSIBLE  ADDITIONAL  CHANGES. 


GAP: 

L 

P0575 

R0576 
R 057.1 

R 

R 0581 
R 058  3 

R 0585 

R 0 c 8 £ 


ASS EM6L£  REVISION  001  OF  AGC  PROGRAM  APUROPE  BY  EYLtS 
T4RUPT  PROGRAM 

PROGRAM  NAME:  GLOCKMON 


3:15  DEC.  2,1970  AP11AID  .001  PAGE  169 
USER’S  PAGE  NO.  15  E6  S4 


FUNCTIi  SAL  DESCRIPTION:  THIS  PROGRAM  MOMTiFS  THE  CDUz  COUNTER  TO  DETERMINE  WHETHER  THE  ISS  IS  IN  GIMBAL  LOCK 
AND  rAKES  ACTITh  IF  1 I S . THREE  REGIONS  r F MIDDLE  GIMBAL  ANGLE  ( M G A ) ARE  USED: 

1)  APS  ( “GA  ) LESS  THAN  r'P  EO'JA L TO  70  DEGREES  - NORMA!  “DOE. 

2)  ABS(MGA)  GREATER  THAN  70  DEGREES  AMD  LESS  THAN  OR  EQUAL  TO  85  DEGREES  - GIMBAL  LOCK  LAMP  TURNED  ON. 

3)  ABSIMGA)  GREATER  THAN  85  DEGREES  - ISS  P’JT  IN  COARSE  ALIGN  AND  Nj  ATT  L A f P TURNED  ON. 

CALLING  SEQUENCE:  EVF'"Y  480  MILLISECONDS  AFTE.  C33TEST. 

JOBS  OR  TASKS  I' 1 1 T I ATE  D '•  I r I E . 


R 05  87  SUBS  HUTINES  CALLED:  1)  SETCOARS  WHEN  ABS(MGA)  GREATER  THAN  85  DEGREES  AND  ISS  NOT  IN  COAPSE  ALIGN. 

R 0589  2)  LAMPTEST  BEFORE  TURNING  OFF  GIMBAL  LOCK  LAMP. 


R 0590 
R 059 1 
R 0593 
R059  5 


ERASABLE  INITIALIZATION: 

It  F'ESH  STA'  T ■ FST  Ac  T WITH  NT.  G'-'nUPS  ACTIVE:  C(COUZ)  = 0,  IM0DES30  BIT  6=0,  IM0DES33  BIT  1 
2)  RESTART  WITH  GROUPS  ACTIVE:  SAME  AS  FPESH  START  EXCEPT  C(CDUZ)  NOT  CHANGED  SO  GIMBAL  MONITOR 

PR.OCE EDS  AS  BEFORE. 


0. 


P 0596 

ALARMS : 

1)  MG 

A NEGIDN  (2)  CAUSES  GIMBAL  LOCK  LAMP  TO  BE  LIT. 

R 0597 

2)  "S 

A REGION  (35  CAUSES  THE  ISS  TC  BE 

PUT  in 

COARSE  ALIGN 

AND  THE  NO  ATT  LAMP  TO  BE  LIT  IF  EITHER  NOT 

R 05  - 

SO 

At. READY. 

0600 

REF 

1 

06,2434 

10  034 

1 GLOCKMON 

CCS 

CDUZ 

0601 

REF 

1 

06,2435 

1 2441 

0 

TCF 

GLOCKCHK 

SEE  IF  MAGNITUDE  OF  MG A IS  GP  EATER  THAN 

0602 

REF 

1 

06, 2436 

1 24  65 

0 

TC  F 

SETGLOCK 

70  DEGRFES . 

0603 

REF 

2 

LAST 

1 6 S 

06,2437 

1 2441 

0 

TCF 

GLOCKCHK 

0604 

a r f 

2 

1 

16  0 

L\.L  0 

i 24  65 

n 

Tr  f 

c c t r,  1 nr  k 

’’Of  L-  ■ ' z 

1 1 

0605 

REF 

1 

06 , 244  1 

6 2512 

0 GLOCKCHK 

AD 

-70DEGS 

0606 

n PAHA 

1 

pyTFMn 

uOf  C-  ' £- 

kJ  UuUO 

1 

L A 1 C In  U 

0607 

t E F 

3 

1 AST 

16  5 

Of  , 244 3 

6 24  64 

0 

B Z ME 

SETGLOCK  -1 

WO  LOCK. 

0605 

REF 

1 

06, 244? 

6 2513 

1 

AO 

-15DEGS 

SEE  TF  ABSIMGA)  GR FAT  EF  THAN  85  DEGREES. 

0609 

06 , 2445 

0 0006 

1 

EXTEND 

0610 

REF 

1 

06,2446 

6 2462 

0 

BZMF 

NCGIMRUN 

0611 

REF 

12 

LAST 

1 5 6 

05,2447 

3 6750 

1 

CAF 

BITS 

IF  SC,  SYSTEM  SHOULD  RE  IN  COARSE  ALIGN 

0612 

06,2450 

0 Cf  06 

1 

EXTEND 

TC  PREVENT  GIMBAL  RUNAWAY. 

0613 

REF 

6 

1 AST 

1 66 

0 5,245  1 

02  012 

0 

RAND 

CHAN12 

06 1 4 

REF 

1 1 

LAST 

168 

06,2452 

10  000 

0 

CCS 

A 

0615 

REF 

2 

L AST 

169 

06, 2453 

1 2462 

1 

TCF 

NCGIMRUN 

06 1 6 

REF 

3 

LAST 

1 6 t 

05 , 2454 

0 4674 

0 

TC 

I BNKCALL 

061  7 

REF 

1 

06 , 245^ 

17144 

0 

CADS 

SETCOARS 

06173 

EF 

1 

06,2455 

3 6242 

0 

CAF 

SIX 

ENA3LE  ISS  ERROR  COUNTERS  IN  60  MS 

06174 

REF 

4 

LAST 

166 

06,2457 

0 5203 

0 

TC 

WAITLIST 

ASStMBLfc  REVISION  001  OF  AGO  PROGRAM  AP11R0PE  RY  E YL  L S 


AP  : 


T4PUPT  PROGRAM 


06175 

REF 

2 

LAST 

166 

F3 , 1474 

EB ANK  = 

06176 

REF 

1 

06,2460 

03140 

1 

2CADR 

06176 

REF 

1 

06,2461 

16103 

1 

06  IP 

REF 

1 6 

LAST 

16,6 

06,2462 

3 4746 

0 

NUGIMRUN 

CAF 

0619 

OFF 

4 

LAST 

1 

06,2463 

1 2465 

0 

TCF 

0620 

REF 

4 

l AST 

167 

C6, 2464 

3 4755 

1 

- 1 

CAF 

0621 

REF 

6 

LAST 

157 

06,2465 

6 1 036 

0 

S ET  CLOCK 

AD 

062? 

REF 

17 

LAST 

17  C 

06,2466 

7 4746 

1 

MASK 

0623 

Or  ,2467 

0 0006 

1 

EXTEND 

062/ 

REF 

1 

06,2470 

1 52  70 

0 

BZF 

0625 

REF 

7 

LAST 

170 

06,247  1 

7 1036 

1 

MASK 

0626 

REF 

12 

LAST 

169 

0 6 , 2 a.  7 2 

10  000 

0 

CCS 

0627 

REF 

1 

06,2473 

1 2507 

0 

TCF 

0628 

REF 

13 

1 AST 

170 

06,2474 

3 4746 

0 

CAF 

0629 

REF 

16 

l AST 

165 

06 ,2475 

7 1302 

0 

MASK 

0630 

REF 

13 

LAST 

170 

06,2476 

10  000 

0 

CCS 

0631 

REF 

2 

LAST 

170 

06 , 2477 

1 52  70 

0 

TCF 

0632 

EF 

• 

LAST 

170 

06,2500 

4 1036 

1 

GLIA VEf 7 

CS 

0633 

REF 

1° 

LAST 

170 

06, 25C1 

7 4746 

1 

MASK 

0634 

REF 

1 3 

LAST 

165 

C6 , 2502 

6 47  3 5 

1 

AD 

0635 

REF 

9 

LAST 

170 

06,2503 

57  '036 

0 

XCH 

0636 

PEF 

1 

06 , 25C4 

7 2162 

1 

MASK 

0637 

REF 

10 

LAST 

170 

06,2505 

2 7 ' 0 36 

1 

ADS 

06  3 P- 

'.EE 

3 

1.  AST 

170 

06, 2506 

1 52  70 

0 

TCF 

06  39 

REF 

1 

96, 2CC7 

0 2766 

1 

GLAMPTST 

TC 

0640 

REF 

4 

LAST 

170 

06,2510 

1 52  70 

0 

TCF 

0641 

REF 

1 

06,2511 

1 2500 

1 

TCF 

0642 

06,2512 

63434 

1 

-70DEGS 

DEC 

0643 

06,2513 

7 52  52 

0 

-15DEGS 

DEC 

3:  15  DEC 


2,1970  AP11AID  .001  PAGE  170 


CDU 1ND 

CA+ECE 

USER ' S PAGE  NO.  16  E6  S4 

BIT6 

SET  CLOCK 

TURN  ON  GIMBAL  LOCK  LAMP. 

ZERO 

DSPTAB  + 1 1 D 

8 I T6 

GLOCKOK 

SEE  IF  PRESENT  STATE  OF  GIMBAL  LOCK  LAMP 
AGREES  WITH  DESIRED  STATE  BY  HALF  ADDING 
THE  TWO. 

OK  AS  IS. 

DSPTAB  + 1 1 D 

A 

IF  OFF,  DONT  TURN  ON  IF  I MU  BEING  CAGEO. 

GLAMPTST 

B 1 T 6 

1 M0DES30 

A 

GLOCKOK 

TURN  OFF  UNLESS  LAMP  TEST  IN  PROGRESS. 

DSPTAB  + 1 1 D 

31  TZ 

INVERT  GIMBAL  LOCK  LAMP. 

B IT  1 5 

DSPTAB  + L1D 

OC  T 37  737 
DSPTAB  + 1 1 D 
GLOCKOK 

TO  INDICATE  CHANGE  IN  DSPTAB  +110. 

LAMP TEST 

GLOCKOK 

GLINVERT 

TURN  OFF  UNLFSS  LAMP  TEST  IN  PROGRESS. 

-.3F388 

-.08333 

-70  DEGREES  SCALED  IN  HALF-REVOLUTIONS. 

» 


GAP: 

L 

P 06^4 

P.  0645 
R 064  7 
R 0645 

R 065  O 

R 065  1 

P 065  2 

R 0653 

R 065  5 

R 0656 


ASSEMBLE  PE  VISION  OGI  CF  AGC  PROGRAM  APllKOPfc  BY  EYLES  3:15  DEC.  2 

T4RUPT  PROGPAM  USER' 

PROGRAM  NAME:  TLIM. 

F UNO  1 1 UK A I DESCRIPTION:  THIS  PR LG RAH  MAINTAINS  THE  TEMP  LAMP  (BIT  4 OF  CHANNEL  11 
THE  TEMP  SIGNAL  FROM  THE  ISS  (BIT  15  OF  CHANNEL  30).  HOWEVER,  THE  LIGHT  WILL  NOT 
IS  IN  PROGRESS. 

CALI  I G SEQUENCE:  CALLED  BY  IMUMON  ON  A CHANGE  OF  BIT  15  OF  CHANNEL  30. 

JOBS  Os  TASKS  INITIATED:  NONE. 

SUBROUTINES  called:  LAMPTEST. 

ERASABLE  INITIALIZATION:  FRESH  START  AND  RESTART  TURN  THE  TFMP  LAMP  OFF. 

ALARMS:  TEMP  LAMP  T OR NED  CM  WHEN  I MU  TEMP  GOES  CUT  OF  LIMITS. 

EXIT:  NXTI FAI t . 


,1970  AP1LATD  .001  PAGE  171 
S PAGE  NO.  17  E6  S4 

) ON  THE  DSKY  TO  AGREE  WITH 
BE  TURNED  OFF  IF  A LAMP  tEST 


[ 


R 0657  OUTPUT:  SERVICE  OF  TEMF  LAMP. 


0659 

REF 

1 

06,2514 

1 47%3 

0 TLIM 

MASK 

0660 

RTF 

5 

LAST 

168 

06,2515 

5 4 071 

0 

TS 

066  1 

rFF 

1? 

LAST 

no 

06,2516 

11*302 

0 

CCS 

0662 

REF 

1 

06,2517 

1 2525 

0 

TCF 

0663 

REF 

2 

LAST 

171 

r6,2520 

1 2525 

0 

TCF 

IN  A,  EXCEPT  FOR  TLIM. 

PCS  MAX  REMOVE  BIT  FROM  WORD  OF  CHANGES  AND  SET 

RUPTr  EG2  DSKY  TEMP  L A M D ACCORDINGLY. 

I MODEc  30 

TEMPOK 

TEMPOK 


066/.  LR  11  LAST  169 

0665 

0666  OFF  1 

0667  REF  1 


06.2521  3 4750  1 

06.2522  0 0006  1 

06.2523  05  011  1 

06. 2524  1 2225  1 


CAF  B I TA  TURN  ON  LAMP. 

EXTEND 

WCR  DSALMOtJT 

TCF  NXTI FA  I L 


0663 

066° 


RET 

REF 


LAST 

L7C 

06,252a 

Q: 

2 7'.-.  1 1‘EMPOK 

LAST 

171 

09,2526 

1 

2225  1 

LC  LAMPI6S7 

TCF  NXTI  FA  it. 


IF  TEMP  NOW  OK,  DONT  TURN  OFF  LAMP  IF 
LAMP  TEST  IN  PROGRESS. 


0670 

oEF 

14 

LAST 

17  1 

06,2527 

4 / T50 

0671 

06,2530 

0 CO  06 

0672 

REF 

2 

LAST 

171 

06,2531 

03  011 

0673 

REF 

3 

LAST 

171 

06,2532 

1 2225 

0 CS  BIT/ 

1 EXTEND 

1 WAND  DSALMOUT  TURN  OFF  LAMP 

1 TCF  NXTIFAIL 
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P 0674 

R 067  5 
R 06  77 
R 067 9 
P 06  8 1 
R 068  3 
R 0685 
R 06  86 


USER  ' S PAGE  flO.  18 


E 6 S4 


PROGRAM  NAME: 


I TUF  NON 


functional  description  this  program  is  called  by  ikumon  when 

REQUES'  ) IS  DETECTED.  1 ; ENTRY,  ITU  01  ECK S IF  A TURN-ON 

IF  NOT,  IT  CHECKS  W F F T H E ‘ THE  TURN-ON  REQUEST  CHANGE  IS  TO  ON  OR 
THAT  T Mi  'N  T F ST  WTU  I N I T I AT  F T H E ISS  I N IT  I AL I Z ATJf'N  SEQUENCE.  IF 


A CHANGE  OF  BIT  14  OF  CHANNEL  30  { T SS 
DELAY  SEQUENCE  HAS  FAILED,  AND  IF  SO, 
OFF.  IF  ON,  IT  SETS  BIT  7 OF  IM0DES30 
OFF,  THE  TURN-CN  DELAY  SIGNAL.  CHANNEL 


TURN-ON 

IT  EXITS. 

1 SO 
BI  T 


TO 

12 


15,  TS  CHECKED  AND  IF  IT  IS 
OF  I MODE  S 30  IS  SET  TO  1 AND 
THE  SETTING  OF  BIT 


ON,  I TURNON  EXITS. 
THE  PROGRAM  EXITS. 
2 OF  I MODE  S3C  (ISS 


IF  THE  DELAY  SIGNAL  IS  OFF,  PROGRAM  ALARM  00207  IS  ISSUED,  RTT  2 
DELAY  SEQUENCE  FAIL)  INHIBITS  THIS  ROUTINE  AND  IMUOP  FROM 


R0688 

PROCESSING  AMY 

CHANGES.  THIS 

BIT  WILL  BE 

RESET 

BY  THE 

EMDTNON  ROUTINE 

WHEN  THE  CURRENT  °C  SECOND  DELAY 

PER  IOD 

R 0690 

ENDS 

R 069  1 

CALLING 

SEQUENCE: 

FROM  I MU  MOM 

WHEN  I 

SS  TUP.N-CN 

REQUEST 

CHANGES  STATE. 

R 0692 

JOBS 

OR 

TASKS 

INITIATED:  NONE 

• 

R 0693 

SUBROUTINES  CALLED: 

: ALA  9,  IF 

’•HE  ISS  TURN-ON 

REQUEST 

IS  NOT  PRESENT  FOR.  90  SECONDS. 

R0695 

ERASABLE  INITIALIZATION:  FRESH  START 

AND 

RESTART  SET  BIT  15  OF  CHANNEL 

12  AND  BITS  2 AND  7 OF  IM0DES30 

TO  0, 

R 0697 

AND 

BIT 

1 4 OF 

I MODE S30  TO  1. 

R 06  9 R 

ALARMS : 

PROGRAM  ALAR-'  00207  1 

S ISSUED  IF 

THE  RSS  TUCN- 

’ . REQUEST  SIGNAL  IS  NIT  PRESENT  FOr  °0  SECONDS, 

R 070C 

EXI  T 

: NX  T I FAIL. 

R 070 1 

OUTPUT : 

BIT  7 

of  : 

! modes 30  to 

START  I 

SS  INITIALIZATION, 

OP  BIT  2 OF  I MODES 30  AND  PROGRAM  ALARM  00207  TO 

INDICATE 

R 0703 

A FAILED  TURN- 

ON  SEQUENCE. 

0704 

RFF 

13 

LAST 

164 

06,2533 

3 47  52 

0 I TUF NON 

CAF 

B IT  2 

IF  DEI  AY  REQUEST  HA r GONE  OFF 

0705 

RfcF 

19 

LAST 

17  1 

06, 2534 

7 13  02 

0 

MASK 

I MODE  S30 

PREMATURELY,  DO  MOT  PPOCESS  AMY 

CHANGES 

0706 

REF 

14 

LAST 

170 

06,2535 

10  000 

0 

CCS 

A 

UNTIL  THE  CURRENT  SO  SEC  WAIT  EXPIRES. 

0707 

REF 

4 

LAST 

17  1 

06,2536 

1 2225 

1 

TCF 

NXTIFAIL 

0708 

RFF 

20 

LAST 

1 f.  4 

06,2537 

3 4736 

1 

CAF 

3IT1  4 

SEE  IF  JUST  ON  OP  OFF. 

0709 

REF 

1 

LAST 

172 

06 , 2540 

7 1302 

0 

MASK 

I MODES 30 

0710 

06,2541 

0 0006 

1 

EXTEND 

071  1 

REF 

1 

06,2542 

1 2556 

1 

BZF 

I TURN0M2 

IF  JUST  ON. 

0712 

REF 

14 

LAST 

170 

06,2543 

3 4735 

1 

CAF 

BIT15 

0713 

06,2544 

0 C 006 

1 

EXTEND 

SFF  IF  DEI  AY  PRESENT  DISCRETE  HAS  BEEN 

0714 

REF 

7 

LAST 

169 

06,2545 

02  012 

0 

RAND 

CHAM  12 

SENT.  IF  SO,  ACTION  C 0 M P L E T E 

071  5 

06,2546 

0 0006 

1 

EXTEND 

0716 

06,2547 

1 2551 

0 

BZF 

+ 2 

0717 

REF 

5 

LAST 

172 

06,2550 

1 2225 

1 

TCF 

NXTIFAIL 

0718 

RFF 

16 

LAST 

172 

04,2551 

3 4 752 

0 

CAF 

BIT2 

IF  NOT,  SET  BIT  TO  INDICATE  REQUEST  NOT 

0719 

REF 

20 

LAST 

172 

06,255  2 

27 • 302 

0 

ADS 

l MODF  S3  0 

PRESENT  FOR  FULI  DURATION. 

0720 

REF 

2 

LAST 

164 

05,2553 

0 5567 

0 

TC 

ALARM 

0721 

06,2554 

00207 

1 

OCT 

207 

072  2 

REF 

6 

LAST 

172 

06,2555 

1 2225 

1 

TCF 

NXTIFAIL 

SAP:  ASSEMBLE  -.t  VISION  001  OF  AGC  PROS  AM  API  IP  PE  BY  EYi.ES 


I.  'r4R  'JPT  ( OGf  AM 

0723  REF  21  LAST  172  06,2556  4 1302  0 ITURN0N2  CS 

0724  REF  16  LAST  164  06,2557  7 4745  1 MASK 

0725  REF  22  LAST  173  C6,256C  27*302  0 ADS 

0726  REF  1 06,2561  3 2564  1 CAF 

07261  REF  2 LAST'  154  06,2562  54  110  0 TS 

0727  7 I AST  17?  06,2563  i 2225  1 TCF 

07271  06,2564  00102  1 RRINIT  OCT 


3:15  DEC 
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USER  * S PAGE  NO.  19 

I MODES 30  SET  BIT7  T^  INDICATE  WAIT  OF 

B IT7 

I M0DES30 
RRINIT 
R ADMr.rjES 
NXTI FAIL 


E6  S4 
1 SAMPLE 


00102 


AP:  ASSfc'  BLE  REVISION  001  OP  ABC  R&fiSMM  AP11RUPE  BY  EYLES 


3:15  DEC 


2,1970  AP11AID  .001  PAGE  174 


L T4r  UPT  PD  OG?  AM  USER'S  PAGE  NO.  20  E6  S4 

P 072 ° PROGRAM  NAME:  IMUCAGE. 

P.0729,,  F U ‘ f r J AL  DE1C  IP  7 ION  * .HIS  PROG- AH  PROCESSES  CHANGES  i.F  HE  IMUCAGE  INBIT,  CHANNEL  30  BIT  11.  IF  THE  BIT 
P 07  31  CHANGES  Is  0 (CAGE  BUTTON  PRESSED),  THE  ISS  IS  CAGED  ( ICDU  ZERO  + COARSE  ALIGN  + NO  ATT  LAMP)  UN T I L THE 

R0733  A-  i f I AUT  S ELECTS  A NO  THE  P1'  'GRAM  TO  ALIGN  THE  ISS.  ANY  PULSE  TRAINS  TO  THE  ICDU'S  AND  GYRO'S  APE  TERMINATED, 

F,  07  3 5 THE  ASSOCIATED  DttTCPUNTF  S A P E >ED  AND  THE  GY7  1 S ARE  DE-SELECTED.  NO  ACTION  OCCURS  WHEN  THE  BUTTON  IS 

R 0737  RELEASED  ( INBIT  CHANGES  TO  1). 

R, 07 3 £ CALLING  SEQUENCE:  BY  IN.U40N  WHEN  tMU  CAGE  BIT  CHANGES. 

R 07  3 9 jr-BS  C TASKS  INITIATED:  NONE  • 

R 0740  SUBROUTINES  CALLED:  CAGESUB. 


R 074 1 ERASABLE  INITIALIZATION:  FRESH  START  AND  RESTART  SET  BIT  11  OF  I MGDES30  TO  1. 
R 0743  ALARMS:  NOME. 

R 0744  EXIT:  NXTIFAIL. 


R 0745 

OUTPUT : 

ISS  CAGED, 

COUNTERS 

ZERCFQ, 

PULSE  TRAINS  TERMINATED  AND  NO 

ATT  LAMP  LIT. 

0747 

REF 

15 

LAST 

172 

0 6,25  . 5 

10  000 

0 IMUCAGE 

CCS 

A 

NO  ACTIPN  IF  GOING  OFF. 

074  ft 

' EF 

1 

06,2566 

1 2361 

0 

TCF 

isszero 

0749 

RFF 

1 

06,2567 

4 3002 

1 

cs 

0CT77000 

TERMINATE  ICDU,RCDU,  GYRO  PULSE  TRAINS 

0750 

06,2570 

0 00  06 

1 

EXTEND 

0751 

REF 

1 

06,257  1 

03  014 

1 

WAND 

CHANI4 

0752 

REF 

1 

06,2572 

4 2 7 76 

1 

CS 

0CT27? 

KNOCK  DOWN  DISPLAY  INERTIAL  DATA,  I MU 

07521 

06,2573 

0 0006 

1 

EXTEND 

ERROR  CHUNTER  ENABLE,  ZERO  ICDU,  COARSE 

07522 

REF 

8 

LAST 

172 

06,2574 

03  C 1 2 

1 

WAND 

C HAIM  1 2 

ALIGN  ENABLE,  RR  ERROR  COUNTER  ENABLE. 

075221 

REF 

1 

06,2575 

4 4745 

1 

CS 

ENGONBIT 

INSURE  ENGONFLG  IS  CLEAR. 

075222 

REF 

2 

LAST 

157 

06,2576 

7 0101 

0 

MASK 

F LAGWRD5 

075223 

REF 

3 

LAST 

174 

06,2577 

54  101 

0 

TS 

FL AGWRDC 

075  2 3 

<?FF 

1 

06,2600 

4 4355 

1 

CS 

PRI030 

TURN  ENGTNE  OFF. 

07524 

06, 2601 

0 0006 

1 

EXTEND 

0752  5 

REF 

3 

LAST 

171 

06,2602 

02  011 

0 

RAND 

DS ALMOUT 

075251 

REF 

21 

LAST 

172 

06,2603 

6 6 736 

1 

AD 

BIT14 

07525? 

06,2604 

0 0006 

1 

EXTEND 

075253 

REF 

4 

LAST 

1 T4 

06,2605 

01  011 

0 

WP  ITE 

DSALMOUT 

FOP  CF  BIT  14'=  1 , B I T 1 3=  0 . 

07526 

REF 

1 

06 , 2606 

0 2743 

0 

TC 

CAGESIJB1 

07527 

REF 

4 

LAST 

169 

06,2607 

0 4 6 74 

0 

TC 

IBNKC ALl 

KNOCK  DOWN  TRACK,  P.EFSMMAT,  DRIFT  FLAGS 

07528 

REF 

1 

06,2610 

17175 

1 

CADR 

RNDREFDP 

0753 

REF 

5 

LAST 

170 

06,2611 

4 475.5 

0 

CS 

ZERO 

0754 

REF 

1 

06,2612 

54  050 

0 

TS 

C DUX  C MD 

0755 

REF 

1 

06, 26  1 3 

54  051 

1 

TS 

COUYCMD 

GAP:  ASSEMBLE  .LVISIIN  001  CF  AGC  PROGRAM  AP11R0PE  BY  EYLES 


0756 

0757 

075  8 

075  c 

0760 

0761 


T4RUPT  PROGRAM 

REF  1 06,2614  54  052  1 TS 

RFF  1 06,2615  54  047  0 TS 

REF  1 06,2616  4 3001  1 CS 

06,2617  0 OG 06  1 EXTEND 

RFF  i LAST  1 7 0*  , 2620  03  «4  1 W AND 

REF  0 LAST  173  06,2621  1 2225  1 TCF 


CDUZCMD 

GYROCMD 

0CT740 

CHAM  14 
NXTIFAIL 
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USER'S  PAGE  NO.  21 


E6  S4 


HAVING  WAITED  AT  I EAST  27  MCT  FROM 
GYPO  PULSE  TRAIN  TERMINATION,  WE  CAN 
DE-SELECT  THE  GYROS 


GAP 


ASSEMBLE  REVISION  001  OF  AGC  PROGRAM  APlltCPt  BY  EYLti 


3:15  DEC 


PAGE  176 


P 0762 

R 0763 
R 07  6r- 
R 0767 
R 0760 
R 077  1 

P.0773 

R 077^ 

R 0775 

R077t. 

R 077 8 

R 0780 

R 07  8 1 

R 07  8 2 

078* 

0785 

07  dfc 

0787 

0788 

07885 

07886 

07887 

07888 

0789 
07891 

0790 

0791 

0792 

0793 

0794 
07°6 

0796 

0797 

0798 

0799 

0800 


. 2,1970  AP11AI0  .001 


T4R0PT  PROGRAM  USER’S  PAGE 

PROGRAM  NAME:  IMUOP. 

FUNCTIONAL  OESCL  IPTU  u:  THIS  PROGRAM  PROCESSES  CHANGES  IN  THE  ISS  OPERATE  DISCRETE,  BIT 
IE  THE  INBIT  CHANGES  TO  > , INDICATING  ISS  ON,  IMU0°  GENERALLY  SETS  BIT  7 OF  I MODE S 30  TO 
I ! ' t T I AL  I Z AT  I rv  VIA  "0  1 1 J ’ ' T 6 F T . AN  EXCEPTION  IS  DURING  A FAILED  ISS  DELAY  DURING  WHICH  BIT 
T 1 A NO  NO  FJFTHFi  1 ' I T T A I I Z AT  I ON  IS  REQUITED.  WHEN  THE  INBIT  CHANGES  TO  1,  INDICATING 
TESTFD  TO  SHF  IF  ANY  PROGRAM  WAS  USING  THE  ISS.  IF  SO,  PROGRAM  ALARM  00214  IS  ISSUED. 

CALLING  SEQUENCE:  BY  IMUMUN  WHEN  BIT  9 OF  CHANNEL  30  CHANGES. 

JOBS  OR  TASKS  INITIATED:  NCNE . 

SUBROUTINES  CALLED:  ALARM,  IF  ISS  IS  TURNEO  OFF  WHILE  IN  USE. 

Ei  A SABLE  IU  IT  I AL  I Z AT  I TO : FkESH  START  AND  RESTART,  BIT  C OF  IM0DES30  IS  SET  TO  1 EXCEPT  WHEN  THE  GIMBAl  LOCK 

LAMP  I R ON,  IN  WHICH  CASE  IT  IT.  SET  T3  0.  THIS  PREVENTS  ICDU  ZERO  BY  TNONTEST  WITH  THE  ISS  IN  GIMBAl.  LOCK. 

ALARM';:  PPOGp  AM  At  A-«  or  214  T F THE  ISS  IS  TURNED  IFF  WHILE  IN  USE. 

EXIT:  NXTIFAIL. 


NO.  22  E6  S4 


9 OF  CHANNEL  30. 

1 TO  REQUEST  ISS 
2 OF  I MQDES30  IS  SET 
ISS  OFF,  IMUSEFLG  IS 


OUT  pi  I-'-:  1ST  It"  I T I a ! ! Z N1  i ON  REQUEST  {IMUDES30  BID  7)  CL  PROGRAM  ALARM  00216. 


06,2622 

0 0006 

1 

IMUOP 

EXTEND 

REF 

1 

06,2623 

1 2643 

0 

BZF 

IMU0P2 

REF 

10 

LAST 

168 

C6, 2624 

4 1303 

1 

CS 

IMODES33 

DISABLE  DAP 

REF 

20 

LAST 

170 

06,2625 

7 47  4 6 

1 

MASK 

BIT6 

REF 

1 1 

LAST 

176 

06,2626 

27*303 

1 

ADS 

I MODES  33 

REF 

5 

LAST 

174 

06,2627 

0 4674 

0 

TC 

I BNKCALL 

KNOCK  DOWN  TRACK,  REFSMMAT,  DRIFT  FLAGS 

REF 

2 

LAST 

174 

06,2630 

17175 

1 

CADR 

RNDREFDP 

REF 

2 

LAST 

164 

06,263 1 

4 2777 

0 

CS 

BITS7S8 

KNOCK  DOWN  RENDEZVOUS,  IMOUS-E  FLAGS 

REF 

3 

LAST 

166 

06,2632 

7 0074 

0 

MASK 

FLAGWRDP 

REF 

4 

LAST 

176 

06,2633 

56  07* 

1 

XCH 

EL  AG W 8 DO 

IF  GOING  OFF,  ALARM  IF  PROG  USING  IMU. 

06,2634 

4 0000 

0 

COM 

REF 

1 

06,2635 

7 4744 

0 

MASK 

IMUSEFLG 

REE 

16 

LAST 

174 

06,2636 

10  000 

0 

CCS 

A 

REF 

9 

L AST 

175 

06,2637 

I 2225 

1 

TC  F 

NXT 1 F A I L 

RFF 

3 

LAST 

172 

06, 2640 

0 5567 

0 

TC 

ALARM 

06,2641 

00214 

0 

OCT 

214 

REF 

10 

LAST 

176 

06 , 2642 

1 2225 

1 

TCP 

NXTIFAIL 

REF 

17 

LAST 

172 

06,2643 

3 4752 

0 

IMU0P2 

CAF 

BIT2 

SEE  IF  FAILED  ISS  TURN-ON  SEQ  IN  PPOG. 

REF 

23 

LAST 

173 

06,2644 

7 1302 

0 

MASK 

I MODES 30 

RFF 

17 

LAST 

176 

06,2646 

10  000 

0 

CCS 

A 

i F 

1 1 

LAST 

176 

06,2646 

1 2225 

1 

TC  F 

NXTIFAIL 

IF  SO,  DON'T  PROCESS  UNTIL  PRESENT  90 

RFF 

2 

LAST 

172 

06,2647 

1 2556 

1 

TC  F 

I TURN0N2 

SECONDS  EXPIRES. 

SAP:  ASSEMBLE  RE VISI3N  001  OF  AGC  PROGRAM  APll-OPfc  BY  EYLES 
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L T4RUPT  PROGRAM  USER’S  PAGE  NO.  23  E6  S4 

p 080 1 PROGRAM  NAME:  PIPFAIl 

R 0802  FUNCT1CNAL  DESCRIPTION:  THIS  PROGRAM  PROCESSES  CHANGES  OF  BIT  13  OF  CHANNEL  33,  PIPA  FAIL.  IT  SETS  BIT  10  OF 
R080*  I MODE  S 30  TO  AGREE.  IT  CALLS  SETISSW  IN  CASE  A PIPA  FAIL  NECESSITATES  AN  ISS  WARNING.  IF  NOT , I . E . , IM0DES30 
R 0806  BIT  1 = 1,  AND  A PIPA  FAIL  IS  PRESENT  AND  THE  ISS  IS  NOT  BEING  INITIALIZED,  PROGRAM  ALARM  00212  IS  ISSUED. 

R 0808  CALLING  SEQUENCE:  BY  C33TEST  ON  CHANGES  OF  CHANNEL  33  BIT  13. 

R080S  JOBS...  O'  TASKS  -INITIATED;  NONE. 

R 08 10  SUB  JUNES  CALLED:  1)  SETISSW,  ANO  2)  ALARM  (SEE  FUNCTIONAL  DESCRIPTION). 

R 08 1 2 E'  AS ABLE  INITIALIZATION:  SEE  IMUMON  FOR  INITIALIZATION  OF  IM0DES30.  THE  RELAVANT  BITS  Ap  E 5,  7,  8,  9,  AND  10. 

R 08 1 A-  ALARMS:  PROGRAM  ALARM  0 112  IF  PIPA  FAIL  IS  PRESENT  BUT  NEITHER  ISS  WARNING  IS  TO  RE  ISSUED  NOR  THE  ISS  IS 

RQR1A  BEING  INITIALIZED. 

R 08 1 7 EXIT:  NXTFL33. 

R 08 1 8 OUTPUT:  PROGRAM  AI.A;  i 0C212  AND  ISS  WARNING  MAINTENANCE. 


0819 

REF 

18 

LAST 

176 

06 , 265  0 

10  000 

0 PIPFAIl 

CCS 

0820 

REF 

14 

LAST 

131 

0 6,26  5 1 

3 474  2 

1 

CAP 

08  21 

RFF 

24 

l AST 

176 

06,2652 

57*302 

1 

XCH 

0822 

REF 

1 

06 , 2653 

7 3004 

1 

MASK 

08  2 3 

REF 

25 

L AST 

177 

06,2654 

27  • 302 

0 

ADS 

082'. 

RFF 

2 

LAST 

1 6 5 

06,2655 

0 2 703 

1 

TC 

082c' 

P F F 

L A 9 T 

17  7 

HA- A 

1 x ■ ? 

o 

r c, 

C.  C 

1 j D J i.  O " 

0826 

REF 

13 

LAST 

88 

06,2657 

7 4753 

0 

MASK 

0827 

RFF 

19 

LAST 

177 

06,2660 

10  oco 

0 

CCS 

0828 

REF 

l 

1 2432 

1 

Tr  F 

V f f • X 

X 

1 L.  1 

082c 

REF 

21 

LAST 

177 

C 6 , 26'  2 

3 1302 

1 

CA 

0830 

PFF 

1 

0^,2663 

7 3000 

a 

MASK 

0831 

REF 

20 

LAST 

177 

06,2664 

10  000 

0 

CCS 

0832 

REF 

2 

LAST 

177 

06,2665 

1 2432 

i 

TC  F 

0833 

REF 

4 

LAST 

176 

06 ,2666 

0 5567 

0 

TC 

08  3 4 

06,2667 

00212 

0 

OCT 

0835 

PEF 

3 

1 AST 

177 

06, 2670 

1 2432 

1 

TC  F 

A SET  BIT  10  IN  I MODE  S30  SO  ALL  ISS  WAPNING 

8IT1.0  INFO  IS  IN  ONE  REGISTER. 

I MODPS30 
-BIT  10 
I MODE  S30 

SETISSW 

I M0DES3C  IF  PIP  FAIL  DOESNT  I.IGHT  ISS  WARDING,  DO 

BIT1  A PROGRAM  ALARM  IF  IMU  OPERATING  BUT  NOT 

A CAGED  OR  BEING  TUPNED  ON. 

NXTFL33 

IM0DES3G 
OCT  1720 
A 

NXTFL33  ABOVE  CONDITION  NOT  MET. 

ALARM 

212 

NXTFL33 


GAP:  ASSEMBLE  TVISKL  ' '-'1  CF  AGC  PROGRAM  APllROPE  bY  EYLES 


L T4RUPT  PROGRAM 


P 0836 

PROGRAM 

NAMES : 

DNTMFAST,  UPTMFAST 

R 0837 

FUN C V I OH A L DESCRIPTION:  THESE 

PROGRAMS  PROCESS  CHANGES 

UF  BITS 

R 0839 

0,  A 

PROGRAM  ALARM  IS  ISSUED. 

THE  ALARMS  ARE: 

BIT 

At  ARM 

CAUSE 

R0841 

— 

R 0842 

12 

01  1C5 

DOWNLINK  TOC  FAST 

R 0843 

1 1 

01106 

UPLINK  TOC  FAST 

R 08  A A 

CALL 

IMG 

SEQUENCE:  BY  C33TEST 

ON  A BIT  CHANGE. 

R 0845 

SUBROUTINES  CALLED:  ALARM,  IF 

A SIT  CHANGES  TO  A 

0. 

R 0346 

Er  ASABLE  INI  I T AL  I /.AT  I ON  : FRESH  START  JR  RESTART, 

BITS 

12  AND  1 

R0348 

AL  ARMS: 

SEE  F 'JNt  '•  I ONAI.  DESCRIPTION. 

R 0849 

EXIT 

: NXTFL33 

• 

R 085  C 

OUTPUT : 

PROGRAM  ALARM  Cl\  A BIT  CHANGE  TO  0. 

085  1 

RTF 

21 

LAST 

L77  06,2671 

l 0 000  0 DNTMFAST 

CCS 

A 

0852 

REF 

4 

LAST 

177  06,26  7 2 

1 2432  1 

TCP 

NXTFL33 

0853 

REF 

5 

LAST 

177  06,2673 

0 5567  0 

TC 

ALARM 

0854 

06,2674 

01105  1 

OCT 

1 105 

0855 

REF 

5 

LAST 

178  06,2675 

1 2432  1 

TC  F 

NXTFL33 

0856 

REF 

22 

LAST 

178  06,2676 

10  000  0 UPTMFAST 

CCS 

A 

0857 

REF 

6 

LAST 

178  06,2677 

1 2432  1 

TC  F 

NXTFL33 

0858 

REF 

6 

LAST 

178  06,2700 

0 5567  0 

TC 

ALARM 

0859 

06,2701 

01106  1 

OCT 

1106 

0860 

P.EF 

7 

LAST 

178  06,2702 

1 2432  I 

TCF 

NXTFL33 

3: 15  DEC 


2,1970  AP11AID  .001  PAGE  178 


USER'S  PAGE  NO.  24 


EA  S4 


12  AND  L 1 OF  CHANNEL  33.  IF  A BIT  CHANGES  TO  A 


UF  l MODE S33  ARE  SET  TO  1. 


DO  PROG  ALARM 


IF  TM  TOO  FAST. 


SAME  AS  DNLIWK  TOO  FAST  WITH  DIFFERENT 
ALARM  CODE. 


GAP  : 

L 

P 086  1 

R0862 
R 0864 
R 0 866 
R 086  8 

R 086  9 
R 0871 
R 087? 

P 0878 

R 0877 

R0878 

R C87° 

R 0880 
R0881 

R 088? 

R 08821 
R 08822 
R 088 2 3 
R 0832 4 
P 0382  6 
R 088 2 6 
P 08827 
R 0882  8 

R 0883 

R 0884 

0885 

0886 
0887 
08  38 

0889 

0890 

0891 
089? 

0893 

0894 

0895 

0896 

0897 
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T4‘ UPT  PR OG' AM  USER'S  PAGE  NO.  25  E6  S4 

PROGRAM  name:  SET1SSW 

FUNCTIONAL  DESCRIPTION:  THIS  igOGRAM  TUr  OS  THE  ISS  WARNING  LAMP  ON  ANO  OFF  (CHANNEL  11  BIT  1 = 1 FOP  ON, 

0 FH  EM  DEPENDING  iVJ  HE  SVUS  OF  I MODES  30  BITS  13  ( I MU  FAIL)  ANO  4 (INHIBIT  I MU  FAIL),  12  ( I CDU  FAIL)  AND 
3 (INHIBIT  I CDU  FAIL),  ANO  10  (PIPA  FAIL!  AND  1 (INHIBIT  PIPA  FAIL).  THF  LAMP  IS  LEFT  ON  IF  A LAMP  T EST  IS  IN 

ppoiitss. 

CAl ! TNG  SEQUENCE:  CALLED  BY  IMUMON  ON  CHANGES  TO  IMU  FAIL  ANO  ICDU  FAIL.  CALLED  BY  IFAILOK  AND  PFAILOK  UPON 
REMOVAL  OF  THE  FAIL  INHIBITS.  CALLED  BY  P1PFAIL  WHEN  'HE  PIPA  FAIL  DISCRETE  CHANGES.  IT  IS  CALLED  BY  PIPUSE 
SINCE  THE  PIPA  FAIL  P!  "L  AS  ACaRM  MAY  NECESSITATE  AN  ISS  WARNING,  AND  LIKEWISE  BY  PIPFREE  WHEN  THE  ALARM  DEPARTS 
AND  IT  IS  CALLEO  BY  IMU7FRP3  AND  ISSUP  AFTER  THE  FAIL  INHIBITS  HAVE  BEEN  REMOVED. 


JOBS  OR  TASKS  INITIATED:  NOIE. 

SUBROUTINES  CALLED:  NONE. 

FP A SABLE  INITIAI  I 2 AT  ION: 

1 ) I MODE S30  - SEE  IMUMON. 

2)  I MODE  S 33  BIT  1 = 0 (LAMP  TEST  NOT  IN  PROGRESS). 


a ARMS:  ISS  WANNING. 


"HE  F 0 i I n 9 1 ! 1 ~ Pr  OGR  A " MAMS  WILL  Show  WHICH  FAILURE  CAUSED  THE  ISS  WARN 
PROGRAM  ALARM  00777  PIPA  FAIL 
ICDIJ  FAIL 
ICCU  , PIPA  FAILS 
IMU  FAIL 

IMU  , PIPA  FAILS 

IMU  , ICDU  FAILS 

IMU  , ICDU  , PIPA  FAILS 


PROGRAM  ALARM  03777 
PROGRAM  ALARM  04777 
PROGRAM  ALARM  07777 
PROGRAM  ALARM  10777 
PROGRAM  ALARM  1377? 
PROGRAM  ALARM  14777 


EXIT:  VIA  Q. 

OUTPUT:  ISS  WARNING  LAMP  SET  PROPERLY. 


REF 

1 

06,2703 

3 

4761 

0 

SETI SSW 

CAF 

OCT  15 

SET  TSS  WARNING  USING  THE  FAIL  BITS 

I N 

RFF 

28 

LAST 

177 

06,2704 

7 

1302 

G 

MASK 

I MODE  S30 

BITS  13,  12,  AND  10  OF  IM0DES30  ANO 

THE 

06 ,2705 

0 

0006 

1 

EXTEND 

FAILURE  INHIBIT  BITS  IN  POSITIONS 

REF 

15 

LAST 

177 

06,2706 

7 

4742 

0 

MP 

B I T 1 C 

4,  3,  AND  1. 

REF 

29 

LAST 

179 

06,2707 

3 

1302 

1 

CA 

I MODE  S30 

06,2710 

0 

CO  06 

1 

EXTEND 

REF 

5 

LAST 

167 

06,2711 

04 

• 001 

1 

ROR 

LCHAN 

0 INDICATES  FAILURE 

06,2712 

4 

0000 

0 

COM 

REF 

1 

06,2713 

7 

502  5 

1 

MASK 

OCT  1 5000 

RFF 

2 3 

LAST 

178 

06,2714 

10 

000 

0 

CCS 

A 

REF 

1 

06 ,2715 

1 

2 726 

1 

TCF 

ISS WON 

FAILURE. 

REF 

14 

LAST 

177 

06, 2716 

3 

4753 

1 

I SSWOFF 

CAF 

BIT1 

DONT  TURN  OFF  ISS  WARNING  IF  LAMP  TEST 

REF 

12 

LAST 

176 

06,2717 

7 

1303 

1 

MASK 

I MO DE  S3 3 

IN  PROGRESS. 

GAP: 


ASSEMBLE  :E VISION  001 


f:F  AGC  Pa, ..GRAM  API)  ROPE  BY  EYLES 


L TAPdpT  PROGRAM 


0898 

REF 

24 

LAST 

179 

06,2720 

10  000 

0 

CCS 

0899 

REF 

3 

LAST 

157 

06,2721 

0 0002 

0 

TC 

0900 

REF 

18 

LAST 

179 

Ofc , 7122 

4 4753 

0 

cs 

0901 

•>  ,2723 

0 0006 

1 

EXTEND 

0°02 

RFF 

5 

LAST 

]74 

04,2724 

03  011 

1 

WAT)  0 

0903 

REF 

4 

LAST 

180 

06,2725 

0 0002 

0 

TC 

0904 

06,2726 

0 00  06 

1 

ISSWON 

EXTEND 

090402 

PEF 

1 

0 6.  , 27  27 

22  0 66 

1 

QXCH 

090404 

REF 

1 

06, 2.730 

0 5744 

0 

TC 

09041 

REF 

16 

LAST 

180 

06 , 27  31 

3 4753 

1 

CAF 

0°05 

06,2732 

0 0006 

1 

EXTEND 

0906 

REF 

6 

LAST 

130 

06,2.733 

05  011 

1 

WOR 

0907 

REF 

2 

LAST 

180 

06,2734 

0 0066 

1 

TC 

0908 

R E F 

1 

06,2735 

4 3003 

0 

CAGE  S!Ji 

CS 

0909 

06,2736 

0 0006 

1 

EXTEND 

0910 

REF 

9 

l AST 

174 

06,2737 

03  012 

1 

WAND 

091 1 

REF 

2 

LAST 

1 > 

06, 2740 

3 4763 

1 

CAF 

0912 

06,2741 

0 1006 

1 

EXTEND 

0913 

REF 

10 

LAST 

130 

06,27' 2 

05  012 

1 

WOR 

091  4 

REF 

11 

LAST 

170 

06, 274 3 

4 1036 

1 

C AGE  SUB  1 

CS 

0915 

REF 

1 

06,2744 

7 2773 

1 

MASK 

0916 

REF 

12 

LAST 

180 

06,2745 

27 ' 0 3 6 

1 

ADS 

0918 

RFF 

30 

LAST 

179 

06,2746 

4 1302 

0 

CAGESUB2 

CS 

09 19 

REF 

1 

06,2747 

7 7775 

1 

MASK 

0920 

RFF 

31 

LAST 

180 

06, 27c0 

27 '302 

0 

ADS 

0922 

REF 

13 

LAST 

179 

06,275  1 

4 1303 

1 

CS 

092  3 

.REF 

21 

LAST 

176 

06, 2752 

7 474  6 

1 

MASK 

0924 

REF 

14 

LAST 

130 

06,275? 

27 ' 303 

1 

ADS 

0925 

REF 

5 

LAST 

L 8 0 

06,2754 

0 0002 

0 

TC 

0926 

REF 

3 

LAST 

177 

06,2703 

1MIJFA1L 

EQUALS 

092  7 

REF 

4 

LAST 

18.0 

06, 2703 

ICDUFA  It. 

EQUALS 

I 


i 


l 


I 

i" 


l 


A 

Q 

BIT1 

OS Al  Mpijt 
0 


ITEMP6 
V ARAL ARM 
8 IT1 

DSALMOUT 

ITEMP6 

B-ITS5C15 

CHAM  12 
B IT  S A £ 5 

CHAN  1 2 

D SPTAB  + 1 1 D 

0C400 1 0 
DSPTAB  +110 

IM0DES3C 
0CT7  5 
I MC0FS30 

I MODES  33 
BIT6 

I MODE  S33 

Q 

SETISSW 
SET  ISSW 


3:15  DEC.  2,1970  APU  AID  .001  PAGE  180 
USER'S  PAGE  NO.  26  E6  S4 


TELL  EV  ERYON F WHAT  CAUSED  THE  ISSWAPNING 


SET  OUTBITS  AND  INTERNAL  FLAGS  FOR 
SYSTEM  turn-ON  OR  CAGE.  DISABLE  T HE 
ERROR  COUNTEF  AND  REMOVE  I MU  DELAY  COMP. 
SEND  ZERO  AND  COARSE. 


TURN  ON  NO  ATT  LAMP 


SET  FLAGS  Tn  INDICATE  CAGING  OK 
AMD  INHIBIT  ALL  ISS  WARNING 


TURN-ON 

INFO 


DISABLE  DAP  AUTO  AND  HOI  D MODE c 


SAP: 


P 092  8 

0929 
093  0 
0931 
093? 
093  3 

0934 

0935 

0936 

093  7 

R 093  8 

0939 

0940 

094  1 
094? 

0943 

0944 
094  5 
0947 
094? 

094  8 5 

0949 

0950 

095  1 

0952 

0953 

0954 
095  5 

0956 

0957 
095  8 


AS S t MjjL C REVISION  001  OF  AGO  PROGRAM  APllROPF  BY  EYLES 


T4RUPT  PROGRAM 


JUMP  TABLES  AND  CONSTANTS. 


REF  1 
REF  1 
REF  1 
REF  1 

REF  l 


06,2755  1 2533 

0 6 ,2756  1 2703 

06,2757  1 2703 

Q<b  ,2760  1 2565 

06.2761  76400 

06.2762  1 2622 


1 IFAILJMF  TCF 
0 TCF 

0 TCF 

1 TCF 

1 30RDMSK  OCT 
1 TCF 


I TURNON 
I MU FA  I L 
1C0UFA1L 
IMUCAGE 

76400 

IMUOP 


REF 

1 

06,2763 

1 

2650 

1 C33J,  P 

TCF 

PIPFAI L 

RFF 

1 

06,2764 

1 

26  71 

1 

TCF 

DNTMFAST 

°EF 

1 

04, 2765 

l 

2676 

0 

TCF 

IJotmFAST 

SUBROUTINE  TO  SKIP  IF  LAMP  TEST  NOT  IN  PROGRESS. 


REF 

15 

LAST 

IRC 

0.6,2746 

4 13  03 

1 

LAMP TEST  CS 

I MODES  33 

REF 

17 

LAST 

1 ■ 0 

04,2767 

7 '753 

0 

MASK 

BIT  1 

REF 

25 

LAST 

18C 

06,2770 

10  000 

0 

CCS 

A 

OCC 

A 

1 ACT 

13  0 

i'  4 . ? 77  1 

24  002 
0 0002 

n 

TNC° 

0 

K u r 

REF 

7 

LAO  i 

LAST 

181 

06, 2772 

0 

TO 

Q 

REF 


REF 


1 5026 

06.2773  40010  1 

06.2774  0CC54  0 

06.2775  00075  0 

06.2776  00272  0 

06.2777  00300  1 

06 , 300 C 01720  0 

L 4 ,3001  00740  1 

1 502  5 

04.3002  77000  1 

06.3003  4C040  1 

06.3004  76777  1 


33RDMSK 
r'C4001G 
OCT54 
0CT7  = 
0CT272 

EQUALS 

OCT 

OCT 

OCT 

PRI01G 

40010 

54 

7 5 

CiCT 

00272 

BITS7C8 

OC  T 

300 

OCT  17  20 

OCT 

1720 

0CT740 

OCT 

0 074  0 

OCT  15000 

EQUALS 

PR  1015 

r CT77C00 

OCT 

77000 

BI  TS6-C15 

OCT 

40040 

-BIT10 

OCT 

-1000 

06,3005  21450  0 

REF  1 5751 

REF  4 LAST  160  5270 


90 SECS  DEC  9000 
120MS  = 0CT14 

glqckok  equals  resume 


15  DEC 


2,1970  AP11AI0  .001  PAGE 


181 


USER’S  PAGE  NO.  27  E6  S4 

CHANNEL  30  DISPATCH. 

(BIT  1C  NOT  SAMPLED  HERE). 

CHANNEL  33  DISPATCH. 

BIT  1 OF  I MODE  S33  = 1 IF  LAMP  TEST  IN 
PROGRESS. 


( DEC12 ) 


AP:  ASSEMBLE  REVISION  OOl  OF  AGC  PROGRAM  API  IROPE  BY  EYI.E 


3:  15  DEC 


2,1970  AP 1 1 A ID  .001  PAGE  182 


L T4RUPT  PROGRAM 


USER'S  PAGE  NO.  28 


E6  S4 


P 095  9 PROGRAM  NAME_  RRAUTCHK 


P 0560  FUNCTIONAL  DESCRIPTION 

P.0961  AUTCHK  IS  THE  f FNfH-ZVOUS  RADAR  INBIT  ON  i;  T'  ■;> . INITIALLY  THE  Rf 

R 096  2 POWER  ON  A JTO  (CHAN  33  BIT  2)  INBIT  IS  CHECKED.  IF  NO  CHANGE,  THE 

R Oc  6 3 op  00  RAM  EXITS  TO  vCOUCHK.  TF  A CHANGE,  R AOMnoES  IS  UPDATED 

DE  IF  IE  HAS  JUST  COME  ON.  IF  JJST  OFF , A CHECK 

R 096 c IS  MADE  TO  SEE  IF  A PROGRAM  WAS  USING  THE  RR  (STATE  BIT  7).  IF  NO, 

R096(  THE  G I AM  EXIT  T(  CDUCHK.  IF  YES,  PROGRAM  ALAI  ' 00514 
R 09  6 7 is  1 F DUES TED  BEFORE  EXITING  TO  RRCOUCHK.  IF  RR  POWER  HAS  JUST  COME 

R 0968  OK,  A CHECK  IS  MADE  TL  SEE  IF  A P"1  OGRaS  WAS  USING  THE  RF  ( ST  ATE  BIT  ?)  . 

vi  the  P OGPAM  EXITS  TO  RRCOUCHK  WITHOUT  REQUESTING  THE  TURN-ON 
R 097 0 SEQUFNCE . IF  NO,  RADMODES  IS  UPDATED  TO  INDICATE  RR  COU  ZERO  AND 
R 097 1 RF  TURN-ON  SEQUENCE  (BITS  13,  I).  A 10  MILLISECOND  WAITLIST  CALL 

R0972  IS  THEN  SET  FOP  RF  TU-  J|  BEFORE  THE  PROGRAM  EXITS  TO  NORRGMON. 

R 097  3 CALLING  SEQUENCE. 

R0976  TAtUPT  EVERY  6 ro  M T t L I S E*f  OM  Jl 

R 0975  ERASABLE  INITIALIZATION  REQUIRED. 

R 0976  KADMOQ.ES,  STATE 

R 0977  SUB  I- 1 U TINES  C A 1 LED. 

R0°7  8 WAITLIST 


R 0979  JOBS  OR  TASKS  INITIATED_ 

R 0980  RPTUPNGN 

R 098  1 ALARMS.  PROGRAM  ALARM  (0‘  1*  - RADAI  GOES  OUT  OF  AUTO  MODE  WHILE  BEING 
R Oop  2 USED 


R 0983 

EXIT. 

, RRC DUCHK 1 

r NOFFGMCN 

0984 

PEF 

3 

LAST 

173 

06,3006 

098  5 

06, 3007 

0986 

REE 

2 

LAST 

167 

06,3010 

0987 

REF 

1 

06,3011 

0988 

06,3012 

0989 

REF 

I 

06,3013 

0990 

REF 

4 

LAST 

182 

06, 3014 

0991 

06 , 30 1 5 

0992 

REF 

6 

LAST 

179 

06,3016 

09925 

PEF 

1 

06,3017 

0993 

REF 

5 

LAST 

182 

06 , 3020 

0994 

REE 

IB 

LAST 

176 

06,3021 

0995 

REF 

26 

LAST 

181 

06 , 3022 

0996 

REF 

2 

LAST 

1 «2 

06 ,3023 

0999 

REF 

1 

06,3024 

1000 

REF 

fo 

LAST 

182 

06,3025 

3 0110 

1 

PR AUTCHK  CA 

RADMODES 

0 0006 

1 

EXTEND 

06  033 

1 

R XOR 

CHAN33 

7 4752 

1 

MASK 

AUTOMBIT 

0 0006 

1 

EXTEND 

1 3037 

1 

BZF 

HR CDUCHK 

22  110 

1 

LXCH 

R ADMCDES 

0 0006 

1 

EXTEND 

06  001 

0 

R XOR 

L CHAN 

7 3033 

0 

MASK 

0CT05776 

56  110 

0 

TS 

RADMODES 

7 ‘-752 

1 

MASK 

8 IT  2 

10  000 

0 

CCS 

A 

1 3034 

1 

TCF 

R R CDUCHK  -3 

3 76  63 

0 

CA 

OCT  10001 

26  no 

0 

ADS 

RADMODES 

SEE  IF  CHANGE  IK  PF  AUTO  MODE  BIT. 


UPDATE  RADMODES. 


CLP  CONT.  DES.,  PEMODE,  REPOS,  CDUZERO, 
AND  TURNON  BITS. 

FFE  IF  JUST  ON . 

OFF.  GO  DISABLE  PE  CDU  ERROR  COUNTERS. 
SET  RRCDUZRO  AND  TURNON  BITS. 


GAP:  ASSEMBLE  REVISION  001  IF  AGC  Pi  jG  ,AM  API  1m. PE  BY  E YL  E S 

L T 4R UPY  PROGRAM 


1001 

REF 

5 

LAST 

168 

C6  , 

1002 

REF 

5 

LAST 

169 

C6  , 

1003 

REF 

1 

E7, 

1004 

REF 

1 ' 

06, 

1004 

REF 

1 

06, 

1005 

REF 

1 

06, 

1006 

Of  , 

3026 

3 4753 

1 

CAF 

3027 

1456 

0 5203 

0 

TC 

EBANK 

3030 

02062 

1 

2C  APR 

303  1 

52107 

0 

3032 

1 3132 

0 

TCF 

3033 

05776 

1 

i,C  TC  77 1 OCT 

3: 15  DEC 


2 


GOl 


PAGE 


183 


,1970  AP11AID  . 


USER'S  PAGE  MO.  29 


E6  S4 


ONE 

WAITLIST 
LOS COURT 
RETURN'.  7 


MORRGMON 

5776 

..e 


« 

i 

i 


i 
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L T4RU°T  PROGRAM  USER'S  PAGE  NO.  30  E6  S4 

P 1007  PROGRAM  N AME_  PRCDUCHK 
R 1008  FUNCTIONAL  DESCRIPTION. 

R 1009  C DU C HK  CHECKS  FC  CDIJ  FAIL  (CHAN  30  BIT  7).  INITIALLY  THE 

R 101 1 PR  CD'!  FAIL  81"  1 SAMPLED  (CHAM  30  BIT  7).  IF  00  CHANGE,  THE 

R 101 1 P O'-t  A -i  EXITS  r0  s-GIMrr.  ip  A CHANGE,  THF  "T  AUTO  MODE 

R 1 01 2 ( ADMPOES  BIT  2)  BIT  IS  CHECKED.  IF  NOT  IN  RR  AUTO  MODE,  THE 

R 10 1 3 P 0<  A1'  EXITS  TO  NORRGMPN:.  IF  IN  AUTO  MODE,  PADMODES  BIT  7 

R 10 1 ' (;  COIJ  OK)  IS  UPDATED  AMD  IF  P-20  IS  OPERATING  PROGRAM  ALARM  00515  IS 

R 10  3 5 REQUESTED.  CONTROL  IS  TRANSFERRED  TO  SETTRKF  TO  UPDATE 

R 10  If  THE  T . ACK  ER  FAIL  LAMP  (0  PTAB+11D  BIT  8).  CjL'T'.OI  RETURNS  TO 


R 101  7 RPGTMON. 

R 1018  CALI  ING  SEQUENCE. 

R 10-19  EVERY  480  MILL  IS  ECC  ND5  F ON  R RAUTCHK  (VIA  T4RUPT) 
R 1020  TO  -on  SEQUENCE  HAS  JUST  BEEN  INITIATED. 

R 102 1 ERASABLE  I N 7 T ' A l IZATICN  REQUIRED. 

R 1022  RAOMODES 

R 102  3 SUBROUTINES  CALLED 
R 1024  SETTRKF 


P 102  8 

JOBS 

OR 

TASKS 

INITIATED. 

R 1026 

NONE 

R 102  7 

ALARMS. 

P 1028 

TRACKER 

FAIL 

R 1029 

PE  OCCAM 

A L AT  M 

on:  i : 

- ’ "COO 

FAIL  DURING 

P-20 

R 1030 

EX  I T_ 

R 1031 

RRGIMON, 

, NORRGMON 

10315 

REF 

1? 

1 AST 

18  2 

06, 3034 

4 4752 

1 

-3 

10316 

06 , 303  5 

0 0006 

1 

10317 

REF 

1 1 

LAST 

180 

06,3036 

03  012 

1 

1032 

REF 

7 

LAST 

182 

06,3037 

3 0110 

1 

RRCDUCHK 

1033 

06,3040 

0 0006 

1 

1034 

REF 

2 

LAST 

161 

06,304  1 

06  030 

1 

1035 

REF 

1 

06,3042 

7 4 745 

1 

1036 

06 , 304 3 

0 0006 

1 

1037 

REF 

1 

06 ,3044 

1 30  71 

0 

1038 

REF 

2 

last 

182 

06 , 3045 

3 47  52 

0 

1039 

REF 

8 

t AST 

184 

06,3046 

7 0110 

0 

1040 

REF 

27 

LAST 

182 

06,3047 

1C  000 

0 

1041 

RFF 

2 

LAST 

183 

06,3050 

1 3132 

0 

1042 

REF 

2 

LAST 

184 

06,3051 

3 4745 

0 

UNLESS  A 


CS 

BIT2 

EXTEND 

W A NO 

CHAN  12 

AT  TURNON,  DISABLE  CD'J 

ERROR  COULTERS. 

CA 

RADMODES 

LAST  SAMPLED  BIT  IN  RADMODES. 

EXTEND 

RXOR 

CHAN30 

MASK 

RCDUFBIT 

EXTEND 

BZF 

RRGIMON 

CAF 

AUT0M3I T 

IF  RR  NOT  IN  AUTO  MODE 

, DON'T  CHANGE  BIT 

MASK 

P ADMODE  5 

7 OF  PADMODES.  IF  THIS 

WERE  NOT  DONE, 

CCS 

A 

THE  TF  ACKER  PA  II  MIGHT 

COME  ON  WHEN 

TCF 

NORRGMON 

JUST  READING  LP  DATA. 

CAF 

RCDUFBIT 

SET  BIT  7 OF  RADMODES 

FOR  SETTRKF. 

GAP  : 


1043 

I 

1045 

1046 

1047 
104P 
1( 

1050 
105  1 
1052 
105  3 
105* 
1055 
1 05  r 
1057 


ASS  EMBLIs  REVISION  001  OF  AGO  PM. GRAM  AP11R0PE  BY  EYLES 

T4PIJPT  PR  OGR  A M 


REF  o LAST  184  06,3052  22  110  1 LXCH 

06, 3053  0 0006  1 EXTEND 

REF  3 LAST  167  06,3054  06  001  0 RXOR 

REF  10  LAST  135  06,3055  54  110  0 TS 

P.EF  11  EAST  185  06,3056  3 0110  1 CA 

RFF  3 LAST  184  06,3057  7 *745  1 MASK 

REF  28  LAST  184  06,3060  10  000  0 CCS 

REF  1 06,3061  1 3070  1 TCF 

RFF  5 LAST  176  06,3062  4 0074  0 CS 

PEF  1 06,3063  7 4745  1 MASK 

RFF  29  LAST  185  06,3064  10  000  0 CCS 

REF  2 l AST  185  06,3065  1 3070  1 TCF 

REF  7 LAST  178  06,3066  0 5567  0 TC 

Qc , 3067  00515  0 OCT  g 


FF  1 0‘.,3070  0 *564  1 TR  KF  I.CDU  TC 


RADMODES 

L 

R ADMODES 

RADMODES 
RCDUFB  IT 
A 

TRKFlCDU 
FLAGWRDO 
R NDVZ3IT 
A 

TRKFl C DU 
ALARM 
00615 
SETTRKF 


3:15  DEC 
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USER'S  PAGE  NO.  31  E6  S4 

UPDATE  RADMODES. 


DID  P F CDU  FAIL 

NO 

•'NDVFLG  P 20  OR  P22  OPERATING 

NO 

YES 

UPDATE  T-  ACKER  FA!t  LAMP  OF  DSKY. 


GAP: 

L 

P 105  R 


ASSEMBLE  RE  V I S I 3 !•-  001  OF  AGC 
T4RUPT  PROGRAM 
PROGRAM  NAME_  RPGIMON 


PROGRAM  APIIkGPE  BY  EYL 


ES 


3 


R 1060 
R 1062 
R 106  A 
R 106  5 
] 

R 1067 
R 106  8 
R 106' 
R 107C 
R 1071 
R 1072 


FUNCTIONAL  DESCRIPTION. 

RPGIMON  IS  THE  R'  G I m 3 A l LIMIT  MONITOR 
CHECKED.  RE MODE,  p f COUIS  BEING  Z EG 0 FD 
NOT  IN  AUTO  MODF  (RADMODFS  BITS  1 a , 13 
EXIST  THE  PROGRAM  EXITS  TO  GPMATRIX.  I 
IS  CALLED  TO  SEE  IF  THE  PRESENT  'R  CDJ 
THE  LIMITS  OF  THE  CU  EN I MODE.  IF  WIT 
TO  NO  ' G ION . IF  NLT  WITHIN  LI  ‘ITS,  THE 
BIT  11)  IS  SET,  THE  RR  AUTO  TRACKER  AN 
( CHAN1  12  BITS  14,  2)  /Hi  E 01  c ABLER , AMD 
CALL  TS  SET  FOR  DOPFEPOS  AFTER  WHICH  T 


. INITI ALLY  THE  FOLLOWING  IS 
, REPOSITION,  AND  RR 
, 11  2 ) . IF  ANY  hf  THESE 
F NONE  ARE  PRESENT  RRLIMCHK 
ANGLES  (OPTY,  OPTX)  ARE  WITHIN 
HIN  LIMITS,  THE  PROGRAM  EXITS 
REPOSITION  FLAG  (RADMODES 
D RR  ERROR  COUNTER 
A 20  MIL!  I SECOND  WAITLTST 
HE  PRO  GRAM  EXITS  TO  NORRGMON. 


R 1 1 ■ 

R 1074 

R 1075 

R 1076 

R 1077 

CALLING  SEQUENCE. 

EVE I Y 4«0  MILLISECONDS  FROM  --‘-CDUCHK 
HAS  JUST  BEE'  INITIATED  VIA  RRAUTCHK 
THE  ' CD  U P A T L BIT  (CHAN  30  BIT  7) 
(RADMODES  BIT  2). 

( VI 

OR 

AND 

R 1078 

ERASABLE  INITIALIZATION.  RADMODES 

R 1079 

R 1080 

SUBROUTINES  CALLED 
• i I CHK , HAITI  1ST 

R1081 

R 1L  12 

JOBS  OR  TASKS  INITIATED 

DORR EPOS 

R 108  3 

ALARMS. 

R 1084  NONE 


R 1085 

EXIT 

R 1036 

NORRGMON 

1087 

REF 

4 

LAST 

1 ■ 

06,3071 

30  101 

1 

1 08  P 

»EF 

1 

06,3072 

7 4750 

0 

1089 

REF 

30 

LAST 

185 

06,3073 

10  000 

0 

1090 

REF 

3 

LAST 

184 

06,3074 

1 3132 

0 

I09C1 

i F 

1 

06  ,3075 

4 0103 

1 

10902 

PEF 

I 

06 ,3076 

7 4747 

0 

1 0°  C 3 

REF 

31 

LAST 

186 

06,3077 

10  COO 

0 

1 0904 

06 ,3100 

1 310  5 

1 

10905 

REF 

I 

06 , 310  1 

3 0102 

1 

10906 

REF 

1 

06,3102 

7 4744 

0 

10907 

REF 

32 

LAST 

136 

06,3103 

10  000 

0 

1090  £ 

REF 

4 

LAST 

186 

06,3104 

1 3132 

0 

1091 

REF 

1 

06,3105 

3 312  7 

0 

1092 

REF 

12 

LAST 

185 

06,3106 

7 0110 

0 

1093 

REF 

33 

LAST 

186 

06,3107 

10  000 

0 

1094 

REF 

5 

LAST 

186 

06,3110 

1 3132 

0 

A T4'<  iJP T ) UNLESS  TU  -ON 
IF  THERE  HAS  BEEN  A CHANGE  IN 
THE  IS  NOT  IN  THP  AUTO  MODE 


ft  GIN  ON  CAE 
MASK 
CCS 
TCF 
CS 

MASK 

CCS 

TCF 

CA 

MASK 

CCS 

TCF 

+ 5 CAF 
MASK 
CCS 
TCF 


FLAGWP.D5 
NOR P MB  I T 
A 

NORRGMON 
FLAGWRD7 
AVEGF3 I T 
A 

+ 5 

FLAGWRD6 
MUMFLBI T 
A 

NORRGMON 
n C T 32  002 
R AUMODES 
A 

NORRGMON 
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E AUTO  MODE  EXCEPT  WHEN  THE  PP  CDUS  ARE 

TIER  IS  INITIATED  BY  THIS  MONITOR  WHEN 
ED  TO  DP T V E THE  GIMBALS  TO  T = 0 AND 


IS  NO  ANGLE  MONITOR  FLAG  SET 


YES  - SKIP  LIMIT  CHECK 
IS  SERVICER  PUNNING? 


NO.  DO  R 2 5 

YES.  IS  MUNFLAG  SET? 


YES.  DON'T  DO  R?5 

INHIBIT  BY  REMODE, ZEROING, MONITOR. 

OR  RR  NOT  IN  AUTO. 


GAP: 


ASSEMBLE  > ' 6 V I S 1 3 N 001  F AGC  PROGRAM  APU^OPE  BY  EYLfcS 


L T 4F  OPT  PROGRAM 


1095 

REF 

1 

06,3111 

0 4523 

1 

1096 

REF 

1 

06,3112 

C 003  5 

1 

TC 

ADRES 


1097  REF 


06,3113  1 3115  0 TCP 


109  P 

109° 

1100 

1101 

110? 

1103 

1104 

1105 
11 

ft  07 
1107 


°FF 

REF 

REF 

C'EF 

RFF 

REF 

REF 

REF 

PEE 

PFF 


5 
1 

13 

1 

12 

2 

6 
2 
1 
1 


LAST  136  0*, 3114  1 3132  0 TC F 

06,3115  3 4741  1 MONRE POS  CAF 

LAST  136  06,3116  26  110  0 ADS 

06, 31  17  4 3130  1 CS 

04,3120  0 0006  1 EXTEND 

LAST  184  06,3121  03  012  1 WAND 

LAST  37  06, 3122  3 4752  0 CAF 

LAST  183  06,3123  0 ^203  0 TC 

LAST  1.8  3 E7 , 1456  EBANK  = 

0* ,3124  02127  1 2CADR 

06,3125  52107  0 


1106  t-  EF  < LAST  L 37  06,3126  1 3132  0 TCP 


1109 

1110 
1111 


06 ,3127 

0 -,3130 

06,3131 


32002  1 0 C 7 3 2 0 0 2 C 

2000?  1 OF  T?r.  0?  0#T 
02100  1 OCT02100  OCT 


RRLI MCHK 
C OUT 

MONREPOS 

N np 8 G MON 

REPOSB IT 
RAQMODES 

0CT2CQ0? 

CHAN12 

TWO 

WAITLIST 
LCSCOUt  T 
DORR  EPO  S 


NORRGMOM 

32002 

20002 

02100 


3: 15  DEC.  2,1970 
USER'S  PAGE 
SEE  IF  ANGLES  IN 


AP11 AID 

.001  PAGE 

NO.  33 

E 6 S4 

1 IMITS. 

187 


(ADDITIONAL  CEDING  MAY  Gn  HEFEI. 

SET  FLAG  TO  SHOW  REPOSITION  IN  PROGRESS. 

DISABLE  TRACKER  AND  ERROR  COUNTED. 


P20.P22  MASK  BITS 


GAP:  ASSEMBLE  REVISION  001  OF  AGC  PROGRAM  API  LR'JPE  BY  EYLES 


3: 15  DEC 


2,1970 


API! AID 


001  PAGE  188 


L 

P 1 1 1 2 

R 1 1 1 3 

711131 

R 1 1 1 4 
r 1 1 i f 
R 1118 

R 1 1 1 c 
R 1121 

R 1123 

R 112* 

R 1 1 2 8 

R 1130 

R 1131 

R 1132 

R 1133 
R 1 1 3 A 
R 1 130 

P 1 136 
R 1137 
R 1138 

1163 
1146 
P 1145 

1146 

1147 

1148 

1 146 

1150 

1151 

1152 
1163 
1184 

1155 


T4RUPT  PROGRAM  USER'S  PAGE  NO.  34  E6  S4 

PROGRAM  NAME:  GPMATRIX  ( CAPT4S ) MOD.  NO.  2 DATE:  OCTOBEP  27,  1966 
AUTHOR:  J GNATHAU  D.  ADOEISTON  (ADAMS  ASSOCIATES) 

TDTRTED:  7FE!-.  19(0  BY  '•  . S.  WEISS'^AN  TO  DELETE  COMPUTATION  OF  MR12  AND  MR13,  WHICH  APE  NO  LONGER  R EQ I UR  ED. 

THIS  PROGRAM  CALCULATES  ALL  THE  S I N GL.E-PREC  I S ION  M A T R IX  ELEMENTS  WHICH  ARE  USFD  BY  LEM  DAP  tn  Tf  ANSFORM  VECTORS 
FROM  G I MB  A L TO  PILOT  ( BODY)  AXES  AND  BACK  AGAIN.  THESE  ELEMENTS  APE  USED  EXCLUSIVELY  BY  BASIC  LANGUAGE  ROUTINES 
AND  THEREFORE  ARE  NUT  ARRAYED  FOR  USE  BY  INTERPRETIVE  PROGRAMS. 


CALLING  SEQUENCE:  Gf"  AT''  IX  I S vANSEE'UEO  Ti  FI  CM  DAPT4$  AND  IS  THUS  EXECUTED  4 TIMES  A SECOND  BY  T4RUPT. 

DAP1  ' ‘ iC  LISTED  ! T 4H  imp  'ABLE  TwTCE  EXPLICITLY  A "'0  ALSO  OCCURS  AFTER  PRAUTCHK  (WHICH  IS  ALSO  LISTED  TWICE). 

SUBROUTINES  CALLED:  SPSIN,  SPCOS. 

N >'R MAI  EXIT  MODE:  TCF  RESUME 

A L A T M AND  ABORT  'MODES:  NONE. 

INPUT:  CDIJX,  CDUY , CDUZ. 


OUTPUT:  Mil,  421,  M3 1 , ?2 , '32. 


AOG  = CDU X,  AIG  = CDUY,  AMG  = CDUZ:  MNEMONIC  IS:  JIM  = XYZ 


* * SIN  (MG)  0 1 * 

-M  = * C S ( G)ClS(UG)  SIN(UG)  0 * 

GP  * -COS  (MG)  SIN!  Oil)  COS  COG)  * 


* * 0 COS ( nG ) /COS ( MG ) -SIN(GG)/COS(MG)  6 

M = * 0 SIM(OG)  COS(OG)  * 

* 1 - S IN ( MG ) COS ( OG ) /CuS ( MG ) S I N ( MG ) S I N ( OG ) /CO  3 (MG)  * 


n EF 

5 

LAST 

16  6 

16, 1414 

REF 

1 

04,3132 

DAPT4S 

T4RIJPT  ] 

DAP  LOGIC: 

REF 

2 

LAST 

169 

06,3132 

30  034 

0 

GP  MA  TP  I X 

REF 

I 

06,3133 

0 .5  0 33 

1 

REF 

6 

t.  AST 

188 

C6 ,3134 

55 ' 41 4 

0 

RFF 

3 

LAST 

1°8 

06 ,3135 

30  034 

0 

REF 

I 

06,3136 

0 5032 

0 

R EE 

1 

06,3137 

54  061 

1 

RET 

1 

06,8140 

30  032 

0 

REF 

2 

LAST 

188 

06 ,3141 

0 r 033 

1 

REF 

1 

0'  ,3142 

55*417 

0 

REF 

2 

LAST 

188 

06, 3143 

4 1417 

0 

E B A N K = Mil 
EQUALS  GPMATRIX 


CAE  CDUZ  SINGLE  ENTRY  POINT 


TC 

SPSIN 

SIN< CDUZ ) 

= 

S IN (MG) 

TS 

Mil 

SCALED  AT 

1 

CAE 

CDIJZ 

TC 

SPCOS 

COS  ( C DU  Z ) 

= 

COS  I MG ) 

TS 

ccsmg 

SCALED  AT 

1 

(ONLY  A FACTOR) 

CAE 

C DUX 

TC 

SPSIN 

SI  NIC  DUX  ) 

= 

SIN(OG) 

TS 

M22 

SCALED  AT 

1 

(ALSO  IS  MR22 ) 

CS  M22 


ASSEMBLE  REVISION  CC1  OF  AGC  PM. GRAM  AP11ROFE  BY  FYLES 


SAP: 

L TARUPT  PROGRAM 


1156  06, 

1157  REF  2 LAST  1B8  06, 

1158  REF  1 06, 


115° 

n a A 

REF 

c p p 

2 

9 

L AST 

1 A C T 

13  P 

j 

06  t 

n a . 

llDU 

116] 

1 162 
116  3 

1 1 6 

“ rr 

REF 

C. 

1 

LA  o » 

CO  1 

06  , 

06  , 
06, 
03  , 

PLF 

PEE 

3 

1 

LAST 

189 

1191 

110  9 

REF 

DOC 

5 

3 

6 

LAST 

1 ACT 

181 

1 Ct  Q 

06  , 

A A. 

I i ~ • 

1193 

tr 

REF 

L Ao  I 
LAST 

J.  ..  . i 

1«  1 

Ur  j 

0 0006  1 EXTEND 

7 0061  1 MP  COSMG 

5 5’ 6 1 6 1 TS  M31 

30  032  0 CAE  CO'JX 

0 5032  0 TC  S-PCPS 

55 '420  1 TS  M 32 

0 0006  1 EXTEND 

7 C 06 1 1 M P CCS”'; 

35 <415  1 TS  M2 1 

0 5270  1 TC  RESUME 

NGRRGMOfc  EQUALS  DAP ITS 

ENODAPT 4 EQUALS  RESUME 


3144 

3145 

3146 

3147 

3150 

3151 

3152 

316  3 

3 154 

315  5 

3132 

5270 
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-SI N( OG ) COS ( MG ) 

SCALED  AT  1 


COS (C DUX)  = COS (00) 

SCALED  AT  1 (ALSO  IS  MR23 ) 


COS  ((G)  COS(  MG) 
SCALED  AT  1 


GAP; 

l. 

R0C01 

R0002 

R 00025 

R 0003 
R 000  5 
R 0007 
R 000c 
R001  1 
R001  3 
R0015 
R 0017 

R001  E: 
R002T 
R 0022 
R '00.2  4 
R 002  6 
R002  6 
P 003  0 
R 0032 
R 003/ 

R 0036 

R0C37 

R 003  8 
0039 

R 0040 

R 004 1 
R 0042 

R 0043 
R 0045 
R 00^5 5 

R 0047 

R 0048 

0052 

005  ° 
0060 
0061 
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R CS  FAILURE  MOMTOF  USER'S  PAGE  NO.  1 EO  S4 

PROGRAM  DESCRI PTION 
AUTHOR  : .1  S MILLER 

MODIFIED  6 MAS  CH  1 St  BY  P S . F I $ S M A N TO  SET  UP  JOB  FOR  1/ACCS  WHEN  THE  MASKS  ARE  CHANGED. 

THIS  ROUTINE  IS  ATTACHED  T(  1 . J.:  , AND  IS  ENTERED  EVERY  480  MS.  ITS  FUNCTION  IS  TO  EXAMINE  THE  LOW  8 BITS 

IF  CHA  NEt  12  TO  SEf  [I  IT  I N-VALVE  CLOSURE  BITS  HAVE  APPEARED  UP  DISAPPEARED  (THE  CP  F IS  WARNED  OF  JET 

FAILURES  .BY  LAMPS  L I 1 BY  THE  GRUMMAN  FAILURE-DETECTION  CL  CUHIY;  THEY  MAY  RESPOND  BY  OPERATING  SWITCHES  WHICH 
lf  MATE  PAIRS  CF  JET  ' Fr  t • THE  Pf  OPELL  AN't  TA:  K S AND  SET  BITS  IN  CHANNEL  32).  IN  THE  EVENT  THAT  CHANNEL  32  BITS 
DIFFER  F!  ■ 'PVALVEST',  THE  RECORD  F ACTIONS  TAKEN  BY  THIS  ROUTINE,  THE  APPROPRIATE  BITS  IN  ' CH5  MASK ' & 

' C H 6 1 ' ' K ' , USED  BY  The  OA"  JET-S  El  ECTI  ON  LC-'-IC,  A E UPDATED,  Ar  IS  'PVALVEST'.  TO  SPEED  UP  6 SHORTEN  THE 
: :U  IMF,  NO  MOPE  THAN  ONE  CHANGE  IS  ACCEPTED  PEP  ENTRY.  THE  HIGHEST-NUMBERED  BIT  IN  CHANNEL  32  WHICH  REQUIRES 
ACTION  IS  THE  ONE  PROCESSED. 

THE  COOING  II'  THE  FAILURE  MONITOR  HAS  BEE"  WRITTEN  SO  AS  TO  HAVE  ALMOST  COMPLETE  RESTART  PROTECTION . FOR 

EX  A RLE,  f ASSlhPTILi  IS  ADE  w #E  N SETTING  A ' C H T " A S l<  ' BIT  TO  1 THAT  THE  PREVIOUS  STATE  IS  0,  ALTHOUGH  IT  OF 

COURSE  SHOULD  BF.  ONE  CASE  WHICH  MAY  BE  SEEL  TC  EVADE  PROTECTION  IS  THE  OCCURRENCE  CF  A RESTART  AFTER  UPDATING 
ONE  CP  BOTH  DAP  MASK -WORDS  BUT  BEFORE  UPDATING  ’PVALVEST',  COURLED  WITH  A CHANGE  IN  THE  VALVE-BIT  BACK  TC  ITS 

Ff  ME P STATE.  THE  CONSEQUENCE  OF  THIS  IS  THAT  THE  NEXT  ENTRY  WOULD  NOT  SEE  THE  CHANGE  INCOMPLETELY  INCORP- 

I ' BY  r Hf  I PA!  I ■ IT  WE  AWAY  A1  JU  THE  IG.H1  1 1 ME).,  BUT  THE  DAP  MASK-WORDS  WILL  BE  INCORRECT. 

THIS  C IL'B  IN  ATI  CU  OF  EVENTS  SEELS  QUITE  REMOTE,  BUT  ' 'T  IMPOSSIBLE  UNLESS  THE  CLEW  OPERATES  THE  SWITCHES  AT  HALF- 
SECOND  INTERVALS  OR  I CNGER.  IN  AMY  EVENT,  A DISAGREEMENT  BETWEEN  REALITY  AMD  THE  DAP  M ASKS  WILL  BE  CURED  IF 
THE  fiTU'MF  PPFTED  ''LircH  1 ■ EVFF5ED  AND  THEN  kBSTOEO  TO  ; r c CLIRPECT  POSITION  (SLOWLY). 

CALL  ING  SEQUENCE: 

TCF  S'C  SM  ON  IT  (|N  INTE  RUPT  MODE,  EVEPY  460  MS.) 

EX  r : TCF  PCS  YON EX  (ALL  OATHS  EXIT  VTA  SUCH  AM  INSTRUCTION) 

REF  7 LAST  189  5270  RCSMONEX  EQUALS  RESUME 

ERASABLE  INITIALIZATION  , EQUIRED: 

VIA  I t S H START : PVALVEST  = +0  (ALL  JETS  E'ABI.ED) 

CHS  MAS  K , CH6MASK  = +0  (ALL  JETS  OK) 

OUTPUT:  CH5MASK  £ CH&MASK  UPDATED  ( 1 • S WHERE  JETS  NOT  TC  BE  USED,  IN  CHANNEL  566  FORMAT) 

PVAL  TEST  UP  LA  TED  ( 1 , S WHEN  VALVE  CLOSURES  HAVE.  BEEN  TRANSLATED  INTO  CH5MASK  6 CH6MASK5  CHAN  32  FORMAT) 
JOB  TO  DC  1/ACCS. 

DEB)  TS:  A,  L,  Q AND  CEBITS  OF  NOV  AC . 


SUBROUTINE  CALLED: 

NOVAC. 

P EF 

1 

126  2 

E B A N K = 

CH5MASK 

23,2000 

BANK 

23 

REF 

1 

06,2000 

SETLOC 

RCSMONT 

06,3156 

BANK 

GAP:  ASSEMBLE  RE  Vision  001  OF  AGC  PROGRAM  AP1IR0PE  BY  EYLES 

L CS  FA  Hi!  F FT  ' ITO ■: 

0062  REF  1 COUNT*  $$/T4RCS 


00625 

REF 

1 

06, 3156 

0063 

REF 

6 

LAST 

174 

, 3156 

0064 

r f.  3 1 t 7 

0065 

REF 

2 

LAST 

158 

06, 3160 

0066 

REF 

1 

06,3161 

0067 

REF 

8- 

LAST 

1 81 

06, 3162 

KCSMONI T EQUALS  RCSMQN 

4 475?  0 RCSMON  CS  ZERO 

0 0006  1 EXTEND 

06  032  0 R XOR  CHAN 32 

7 43  57  0 MASK  LOWS 

54  002  1 TS  Q 


0068 
on  ac 

R E F 

n c c 

1 

Q 

L a <:T 

1 9 1 

0- ,316 ? 
04,3164 

0070 

Li  I 

REF 

4 

LAST 

185 

06,3165 

0071 

REF 

10 

LAST 

19  1 

06, 3166 

C072 

REF 

2 

LAST 

191 

06,3167 

0073 

7 FF 

9 

LAST 

191 

07,3170 

4 

1276 

1 

CS 

PVAL VEST 

7 

0002 

1 

M A ^ K 

0 

f 

54 
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06,3176 

24 

001 
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6 

0000 

1 
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54 
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0 

06, 3201 

1 

3176 
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A n 1 

n 

J VJ 

’ / o 1 

06,3203 

3 

4743 

0 

06,3204 

54 

002 

l 

06, 3205 

7 

1276 

l 

06,3206 

10 

000 

0 

06,3207 

1 

3223 

0 

06,32  10 

4 

12  62 

1 

06,3211 

50 

001 

0 

06,22 12 

7 

326-2 

1 

06 ,3213 

27 

'262 

1 

06,3214 

4 

1263 

0 

06,3215 

50 

001 

0 

06, 3216 

7 

3252 

0 

06,3217 

27 

'263 

0 

06,3220 

3 

0 002 

0 

06, 3221 

27 

•2  76 

1 

06,3222 

1 

3236 

1 

3 I NCR  L 

DOUBLE 
OVSK 

TCF  -3 

INDEX  1 

CA  BITS  -1 

TS  0 

MASK  P VAL VEST 

CCS  A 

TCF  VOPENED 

CS  CH5MASK 

INDEX  L 
MASK  5FATLTA8 
AOS  CH5MASK 

CS  CH6 "ASK 

INDEX  L 
MASK  6FAILTA3 
ADS  CH6MASK 
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ADS  p V Al  VEST 

TCF  1/ACCFIX 
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E?  S4 

PICK  UP  + INVERT  INVERTED  CHANNEL  32. 
KEEP  JET-FAIL  BITS  ONLY. 


FORM  PC  + PC. 

(P  = PREVIOUS  ISOLATION  VALVE  STATE, 
C = CURRENT  VALVE  STATE  (CH  32)). 

RESULT  NZ  INDICATES  ACTION  REQUIF.FD. 


QUIT  IF  NO  ACTION  REQUIRED. 


MOVE  BITS  B - 1 OF  A TO  14  - 7 OF  L. 
ZERO  TP  L IN  THE  PROCESS. 


BOUND  TO  GET  OVERFLOW  IN  THIS  LOOP, 
SINCE  WE  ASSURED  INITIAL  NZ  IN  A. 


SAVE  THE  RELEVANT  BIT  ( 8 - 1). 

LOOK  AT  PREVIOUS  VALVE  STATE  BIT. 
THE  V At  V E HAS  JUST  BE E'l  OPENED. 

THE  VALVE  HAS  JUST  BEEN  CLOSED. 

SET  INHIBIT  BIT  FOR  CHANNEL  5 JET. 


SET  INGIBIT  BIT  FOP.  CHANNEL  6 JF.T. 

F ECO P D ACTION  TAKEN. 


SET  UP  1 / ACC JOB  AND  EXIT 
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50  001 

0 
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I NDEX 

L 

A VALVE  HAS  JUST  BEEN  OPENED. 

0101 
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2 
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06,3224 

4 3242 

1 

cs 
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0102 

REF 

4 
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...  06, 322  5 
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1 
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CH5MASK 

0103 

REF 

c 

LAST 
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06,3226 
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1 

TS 

CH5MASK 

REMOVE  INHIBIT  BIT  FOR  CHANNEL  5 

JET. 

0104 

RFF 

12 

LAST 

192 

06,3227 

50  001 

0 
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L 

■ ' 

REF 

2 

LAST 

191 

06,3230 

4 3252 

0 

CS 
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0106 

REF 

3 

LAST 

191 

06,3231 
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0 
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CH6MASK 

0107 
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LAST 
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Cfe  » 32  3 2 

55*263 

0 

TS 
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.REMOVE  INHIBIT  BIT  FOR  CHANNEL  6 

JET. 

0103 
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1 3 
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06,3233 
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1 

CS 

Q 

C 1 
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3 
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06,3234 

7 1276 

1 
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0110 
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6 
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06,3235 

55*276 

1 

TS 
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01 1 1 
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1 

06,3236 
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0 

1 / ACCF I X 

CAF 

PR I 02 7 

SET  UP  1/ACCS  SO  THAT  THE  SWITCH 
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0112 

RFF 

2 
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96,3237 

0 c C7  2 

1 

TC 

NOV  AC 

FOP  TJETLAW  CAN  BE  MODIFIED  IF 

CH5MASK 

0113 
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4 
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133 

F 6 , 1537 
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AOS  Q 
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0114 

RFF 

] 
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0 
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01 1 
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1 

06,3241 
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1 
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0 
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06,3241 
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5 
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32 
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5 
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06,3244 
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0 
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7 
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06,3245 
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0 
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6 
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06,3246 
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5 
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06,3247 
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0 
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4 
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2 
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1 

0126 

06,3251 
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6 
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BIT 
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06,3253 
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06 , 32  54 
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013  4 

06 , 32fc  2 

00100 

0 
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L DOWNLINK  LISTS  USER'S  PAGE  NO.  1 


R 000  5 SPECIAL  DOWNLINK  OP  CODES 

A 0006 

A 0007 

A00C-8 

A0009 

A 00  IP 

A 001  1 

A0C12 

A 00 13 

A 001  4 

A 00  1 r- 
A 001  6 
A 00 1"7 
A 00 1 P 
A 0CL9 


OP  COD F ADDRESS! EXAMPLE ) SENDS. . 


BIT  IP  BITS  14-12  BITS  11 

-0 


1 DM A DP  TTME2 
2DNADR  TFPHEM 
3DNADR  VGBOOY 
4DNADR  STATE 
5DNADR  IJPBUFF 
6 ON AD-  DSPTAB 
DNCHAN  30 


DNPTF  NEXTLTST 


(2  AGC  WDS ) 0 

(4  AGC  WDS)  0 

(6  AGC  WDS)  0 

(8  AGC  WDS)  0 

( 10AGC  WDS) 

( 12 AGC  WDS)  0 

CHANNELS  0 

POINTS  TO  NEXT  0 
LIST. 


0 EC  ADR 

1 ECADR 

2 ECADR 

3 ECADR 

4 ECADR 

5 ECADR 

7 CHANNEL 

ADDRESS 

6 ADRES 


R 0020  D.  v ! I FORMAT  DEF  I MTI  CMS  AND  f ULES- 

P 002 1 1 . END  >F  A II  ST  = -XDNAO-  ( X = 1 TO  6 ) , - DN P T r , CP  -DNCHAN 4 

R 002  2 2.  SNAPSHOT  SUBLIST  = LIST  WHICH  STARTS  WITH  A - 1 DN ADR  . 

R 0023  3.  SNAPSHOT  SUBLIST  CAN  ONLY  CONTAIN  1DNADRS. 

R 0024  4.  1IME2  1DNADN  UJST  BE  LOCATED  IN  THE  CONTROL  LIST  OF  A DOWNLIST. 

R 002  5 5.  ERASABLE  DOWN  TEIEMET  Y WORDS  SHOULD  BE  OF  DUPED  IN  SEQUENTIAL 

R 002  6 LOCATIONS  A'  MUCH  AS  POSSIBLE  TO  SAVE  STORAGE  USED  BY  DOWNLINK  LISTS. 
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1 
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EQUALS 
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0C3C 
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2 LAST  193 

r 007 

SPARE 
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ERAS  ZERO 

USE 

SPAFE  TO  INDICATE  AVAILABtF  SPACE 

0032 

05,2065 

77340  0 L0W1DC0D 

PCS 

773^0 

LOW 

TO  CODE 

0033 

REF 

1 

05,2172 

NOMDNLST 

EQUALS 

L MCSTADL 

FRESH  START  AND 

POST 

P27  DOWNLIST 

00  34 

REF 

1 

05, 24C7 

A G S L I ST 

EQUALS 

L MAGS  I DL 

0035 

REF 

2 LAST  193 

05 , 24C7 

UPON LI  ST 

EQUALS 

L MAGS  I DL 

UPDATE  PROGRAM 

( P 27  ) 
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193 
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DNTM8UFF 

0041 
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1 
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1DNADR 

DELLT4 
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REF 
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0 

3 DMA DR 
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REF 

1 
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1 
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ELEV 
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0 

1DNADP 
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REF 
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13700 

1 

3DNADR 

VGT  I G 
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1 
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00024 
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REF 
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01331 

1 
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05.212  1 
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REF 
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0 

DNPTR 
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Q 0074 
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0076 
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01723 
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01725 

0 
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01727 

1 
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4 
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01731 

0 
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V-OTHER  F4 
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05,2134 

01570 

1 
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REF 
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ELEV, +1 

T EVENT , +1 
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TCS I , + 1 
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TIME2/1 
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DELVE  ET  2 + 0 . . .+5 
TTPI ,+l 
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DNP  RANGE , DNPPDQT 
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DIFFALT  , + l 

LEM MASS » CSMMAS  S 

I MODES 30 , IMCDES33 

T I G » + 1 

COMMON  DATA 

COMMON  DATA 

FORMERLY  PIF 

T GO , + 1 


F-OTHEF  + 2 , +3  SNAPSHOT 

R-OTHER+4  , +5 

V-OTHER, +1 

V-OTH  EL  +2 , +3 

V-OTHER+4  , + 5 

T-OTHER , +1 

R-OTHER +0 » +1 


194 
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05.2140 
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REF 
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05,2143 

26074 
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05,2144 
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2DNADR  OMEGAP 
20NADr  CDUXO 
2DNADR  CDUX 
6DNADR  STATE 
— 6DN  AD°  DSPTAB 


► 008°  REF 

0090  REF 
C09 1 REF 

* 00°2  REF 

00Q  3 C'EF 

009 A REF 

► 0095  REF 


1 05,2145  76555  0 

' i A 1 05,2146  U1224  1 

1 0 c » 2 1 4 7 01226  0 

2 LAST  195  05,2150  01230  1 
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1 DN ADR 
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+ 4 

VN 
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PI 
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RN 
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REF 
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LAST 
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0 
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REF 

1 

05,2155 
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D 
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REF 

16 
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1F)T 
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0 
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3DNADR 
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C ADR  FL  SH 
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PEF 

REF 

6 

R 

LAST 
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REF 

- 
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LAST 

0102 

PEF 

1 

0103 

RFF 

1 

0104 

0105 

0106 

0107 

0108 

REF 
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LAST 

0109 

REF 
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LAST 

L 05,2157 

195  05,2160 

195  05,2161 

05.2162 

05.2163 

05.2164 

05.2165 

05.2166 

05.2167 


07021  0 LMORBMO 

07235  1 

04032  1 

03024  1 

03113  1 

34011  0 

34013  1 

34030  0 

43745  0 


2DNADP,  OMEGAP 
2 DMA  DR  CDUXD 
2 ON ADR  CDUX 
1 DN  ADR  ALPHAO 
ION  ADR  pcs  rpf  KP 
DNCHAN  11 
DNCHAN  13 
DNCHAN  30 
-DNCHAN  32 


147  05,2170 

99  05,2171 


03560  1 I M0PSM06  1 D! i ADR  PIPTIMF1 
67453  1 -3DNADR  DELV 


R 01 10 
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RSB8Q ,+l 

OMEGAP.OMEGAQ, OMEGAP , GARBAGE 
CDUXO, CDUYD.CDUZD, GARB AGE 
CDUX, CDUY ,CDUZ ,CDUT 
STATE+C. . . +11D  (FLAGWORDS) 

DSPTAB  TABLFS 

RN  +2,4-3  SNAPSHOT 

RN  +4, +5 
VN,  +1 
VN  +2, +3 

VN  +4, +6 

PIPTIME  , + l 
RN , +1 


OMEGA PD, OM EGA QD, OMEGAP  D, GARBAGE 
CADRELSH,+1,+2,FAILREG,+1 ,+2 
P ADMODES , DAPBOOLS  COMMON  DATA 

OMEGA P,OME GAO, OMEGAP, GARBAGE 
CDUXD,CDUXC,CDUZO,GAF BARE 
CDUX, CDUY, CDUZ.CDUT 

ALPHAQ, ALPHAR  COMMON  DATA 

DnSTnPKP,MEGTnRKP 
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CHANN  EL  S 1 3 , 14 

CHANN  ELS3C,3] 

CHANNEL  S32  ,33 

PIPTIME, +1  COMMON  DATA 

DELV+O. . .+5 
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LMCSTADL  EQUALS 

01H 

REF 

1 

05,2172 

32127 

1 

DNPTR 
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0115 

REF 

5 
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05,2173 
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0 

6 ON  ADR. 

DNTMBUFF 

Oil  fi 

REF 

l 

05,2174 

02020 

1 

1DNADR 

AGSK 
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REF 

2 
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1 

1DNAQR 

TALI GN 
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REF 

2 

LAST 

194 
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G 

2'bNADP 
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0120 

REF 

3 

1 AST 
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01333 

0 

1DNADR 
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0 

DNPTR 

LMLSAL09 

0282 

REF 

4 

LAST 

116 

05,2375 

12230 

0 

3 DN ADR 

G S AV 

0283 

KEF 

2 

LAST 

196 

05, 2376 

02020 

1 

1 DN  ADR 

AGSK 

028  A 

R EF 

6 

LAST 

200 

06,2377 

00112 

0 

1 DNADP 

i ASTYCMD 

0285 

p EF 

5 

LAST 

20  0 

05,2400 

'.'1331 

1 

1DNADP 

I.  EMMASS 

0286 

REF 

36 

LAST 

200 

05,2401 

C 1 302 

1 

1 DN  ADR 

I MOOES  30 

0287 

REF 

5 

LAST 

200 

05,2402 

03441 

0 

10r  ADR 

TIG 

0238 

REF 

1 

05,2403 

32157 

0 

DNPTR 

LMLSAL05 

0289 

REF 

1 

05,2404 

32170 

0 

DNPTR 

LMLSAL06. 

0290 

REF 

7 

LAST 

200 

0 5 , 2 4 0 5 

Of  C07 

0 

1DNA0F 

SPA  • 6 

029] 

REF 

0 

LAST 

20? 

0 5 , 240  6 

77770 

1 

- 1 DN ADR 

SPAR  E- 

R 029  2 

U 13  l.  I i 1 o 

029  3 

■,?REF 

<4 

LAST 

198 

05,2127 

LMLSALQ1 

EQUALS 

LM0RBM01 

0296 

PFF 

5 

LAST 

200 

05 , 2136 

LMLSAL02 

EQUALS 

L.  MQ  P.  8 MO  2 

0295 

REF 

5 

LAST 

200 

05,2145 

L.MLSAL03 

EQUALS 

LMORBM03 

0296 

KEF 

5 

LAST 

200 

05,2154 

LMLSAL04 

EQUALS 

LMGRBMG4 

0297 

REF 

5 

LAST 

20  0 

05,2157 

L ML SAL 05 

EQUALS 

LMOR 8 MO 5 

0298 

REF 

3 

LAST 

200 

05,2170 

LMLSAL06 

EQUALS 

LM0RBM06 

0299 

REF 

2 

LAST 

198 

05,2276 

L.MLSAL07 

EQUALS 

LMRRND07 

0300 

REF 

4 

LAST 

201 

05, ?2  24 

LMLSAL08 

EQUALS 

LMCSTAf 6 

0301 

REF 

2 

LAST 

196 

05,2226 

LMLSAL09 

EQUALS 

L MOST  A07 

3: 15  DEC 


2,1970  AP11AID  .001  PAGE  202 


USER'S  PAGE  NO.  1C  EO  S4 


S END  ID  BY  SPECIAL  CODING 

COI  L FCT  SNAPSHOT 

SEND  SNAPSHOT 

COLLECT  SNAPSH!Jt 

SEND  SNAPSHOT 

TAL IGN , + 1 

REF SMMAT+O. . . +11D 

YNBSAV+O. . .+6  , ZNBSAV+O. . . +5 

COMMON  DATA 

COMMON  DATA 

TIME/1 

COLLECT  SNAPSHOT 
SEND  SNAPSHOT 
COMMON  DATA 
COMMON  DATA 
GSAV+O. . . +5 
AGS  K » + 1 

lastyci  d, l ASTXCMD 
LEMMA SS ,CSMMASS 
I MODE  S 30 , ' MODE  S 3 3 
T I G , + 1 
COMMON  DATA 
COMMON  DATA 


COMMON 

DOWNL 1ST 

DATA 

COMMON 

DOWNL T ST 

DATA 

COMMON 

DOWNl 1ST 

DATA 

COMMON 

DO WML  1ST 

DATA 

COMMON 

DOWNL.  I ST 

DATA 

COMMON 

DOWNL I ST 

DATA 

COMMON 

DOWNL 1ST 

DAT  A 

COMMON 

DOWNL 1ST 

DATA 

COMMON 

DOWNL 1ST 

DATA 

I 


GAP: 

L 

R 0302 


ASSEMBLE  REVISION  001  OF  AGC  PROGRAM  APilROPE  BY  EYLfc'S 
DOW  ML  INK  LISTS 


3:15  DEC.  2,1570  AP11AID  .001  PAGE  203 
USER'S  PAGE  NO.  11  EO  S4 


< 

< 

< 

< 

I 

t 

I 


I 


GAP  : 

L 

P 0303 

ASSEMBLE  REVISION  001  OF  AGO  PF OG" .AM  API 1K0PE  BY  EYLES 

DOWNLINK  LISTS 

LM  AGS  INITIALIZATION  AND  UPDATE  DOWNLIST 

3:15  DEC.  2,1970  AP11AI0  .001  PAGE 

USER*  S PAGE  NO.  12  EO  S4 

R 0 3 0 4 

0305 

05,2407 

L MAGS l DL 

EQUAL  S 

SEND  ID  BY  SPECIAL  CODING 

030  5 

REF 

2 

LA'-T 

117 

05,2*07 

12200 

0 

3DNADR 

AGS BUFF  +0 

AGC  BU  FF+O • . . +K 

0307 

REF 

3 

LAST 

2 04 

05,2410 

02  214 

1 

1DNADP 

AGSBUFF  +1 2D 

AGS BUFF + 1 2D .GARBAGE 

0308 

REF 

A 

LAST 

05,2411 

12201 

1 

3DNADP 

AGS  BUFF  +1 

AGSBUFF  + I.  ..+6 

0309 

' F 

5 

LAST 

20  4 

0 5 , 24 1 2 

02215 

0 

1DNADP 

AGSBUFF  +130 

AGSBUFF+130, GARBAGE 

031  0 

REF 

6. 

LAST 

204 

05,2413 

1220  6 

0 

3 ON A DR 

AGS  HUFF  +6 

AGSBUFF+6...+11 

031 1 

REF 

7 

l A c v 

204 

05,2414 

0221  4 

1 

ljbNADR 

AGSBUFF  +12D 

AGSBUFF +12, GARB AGE 

0312 

PEF 

A 

LAST 

2 04 

05,2415 

12207 

1 

3DMADR 

AGSBUFF  +7 

AGS  BU  FF+7...+12D 

0313 

REF 

q 

LAST 

204 

05 ,2416 

02215 

0 

1DNADR 

AGSBUFF  + 1 3D 

AGSBUFF+1 3D, GARBAGE 

03 1 A- 

RFF 

2 

LAST 

104 

05,2417 

25  170 

0 

6DNADF 

CGMPNUMB 

COMPNUMB , UPOL DMOD , UPV ER B , UPCOUNT , 

A 03 1 5 

UPBUFF+0...+7 

0316 

REF 

1 

05, 2420 

25204 

0 

Ion ADR 

UPBUFF  + 3D 

UPBUFF  +8D...+19D 

0317 

REF 

1 

05,2421 

32136 

1 

DNPTR 

L MAG  SI  02 

COMMON  DATA 

0318 

REF 

6 

LAST 

20? 

05,2422 

00024 

1 

1DNADR 

TIME? 

TIME2/1 

0319 

REF 

1 

05,2423 

32145 

0 

DNPTR 

L MAGS  103 

COLLECT  SNAPSHOT 

0320 

REF 

16 

LAST 

202 

05,2424 

24340 

0 

6 D i\  A DP 

DNTMBUFF 

SEND  SNAPSHOT 

0321 

REF 

1 

05,2425 

321  54 

0 

DNPTR 

L MAGS  I 04 

COMMON  DATA 

0322 

REF 

5 

LAST 

200 

05,2426 

07115 

0 

ZONADR 

pgstorku 

POSTORKU* NEGTORKU,POSTOFKV,NEGTQPKV 

032* 

REF 

9 

LAST 

202 

05,2427 

00007 

0 

ION A DO 

SPARE 

03  2 5 

RFF 

10 

LAST 

204 

05,2430 

00007 

0 

1DNADF 

SPARE 

0326 

REF 

3 

LAST 

202 

05 , 243  1 

02020 

1 

1DNADR 

AGSK 

AGSK, +1 

0327 

REF 

2 

LAST 

2 04 

05 , 2432 

25174 

1 

6DNADR 

UPBUFF 

UPBUFF+O . • . + 1 ID 

0323 

REF 

3 

LAST 

2Q4 

0 5, 24  3 3 

15210 

0 

4DNADR 

UPBUFF  +120 

UPBUFF  + 12D. . . + 19D 

032  9 

REF 

6 

LAST 

202 

05,2434 

01331 

1 

ID  !ADR 

LEMMASS 

L EMMASS , CSMMAS S 

0330 

REF 

37 

LAST 

202 

05 , 2435 

01302 

1 

1 ON A DR 

I MODES 30 

I MODE  S 30 , 1 MODE S33 

0331 

REF 

1 L 

LAST 

204 

05,2436 

0 0 007 

0 

1 DMA  OF 

SPARE 

0332 

REF 

1 

05,2437 

32157 

0 

DNPTR 

L MAGS  I 05 

COMMON  DATA 

0333 

REF 

15 

LAST 

196 

05,2440 

52754 

0 

-6DN ADR 

DSPTA8 

DSPTAP+O + 1 ID 

R 03 3 A 

! o 

0335 

REF 

6 

LAST 

20? 

05,2136 

L NAGS  102 

EQUALS 

LM0RBM02 

COMMON  DOWNl 1ST  DAT A 

03  3 6 

REF 

6 

LAST 

202 

05,2145 

L MAG  SI 03 

EQUALS 

LM0RBM03 

COMMON  DOWNLIST  DATA 

0337 

RFF 

6 

LAST 

202 

05,2154 

L MAG  SI  04 

EQUALS 

i MOP.ftMO* 

COMMON  DOWNLIST  DATA 

0338 

REF 

6 

last 

202 

05,2157 

L MAGS  105 

EQUALS 

LM0RBM05 

COMMON  DOWN!  1ST  DATA 

R 033q 

03A0 

REF 

2 

LAST 

193 

05,2441 

0217  2 

1 

dntable 

GEN A DR 

EMC  ST  ADI 

l.M  COAST  AND  ALIGN  DOWNLIST 

03A1 

REF 

LAST 

193 

05,2442 

024  07 

0 

GENADP 

LMAGSIDL 

LM  AGS  INITIAL  I Z AT  ION /UPDATE  DOWNLI 

03A? 

REF 

I 

05,24*3 

02232 

0 

GENADP 

LMPENDDL 

LM  RENDEZVOUS  AND  PRE-THRUST  DOWNLI 

03A  3 

REF 

I 

05,2444 

02066 

0 

GEN  ADR 

L MORBMDL 

LM  ORBITAL  MANEUVERS  DOWNLIST 

0 3AA 

REF 

1 

05,2445 

02303 

0 

GENADR 

LMDSASDL 

LM  DESCENT  AND  ASCENT  DOWNLIST 

204 


]" 


GAP: 

ASSEMBLE  EIVISIDL  001 

JF  AC-C  PROGRAM  API  1R0PE 

BY  E YLLS 

3:  15 

DEC. 

2,1970 

AP11 AID 

.001  PAGE 

L 

DOWNLINK  LISTS 

USER 

»S  PAGE 

NO.  13 

EO  S4 

03  A 5 

R 0346 

REF  I 

05,2446  02357  I 

GEN A DP  LMLSALDL 

LM 

LUNAR 

SURFACE 

ALIGN  DO 

WNL 1ST 

< 

,1 

< 

* 

.z 

< 

< 

.£ 

I 

< 

< 

( 


I 


GAP: 

L 

R 000  1 

R0002 

R 0003 
R 000' 
R 000? 

R 0006 
R 0007 
ROCOB 

P 0009 
R001 1 

P0C1  3 
P 001  c 
P 001 9 
R 002  1 

R 002  2 

R 002  3 
R 0024 


P 0026 
R 0027 

R0C28 

P 002° 
R 0030 

R 0032 
R 00  3 3 
R 0034 
R 0 0 3 6 
R 003  8 

003° 

0040 

0041 

0042 

0043 

004^ 

0C45 

0046 


ASSEMBLE.  REVISION  001  OF  AGO  PROGRAM  API  1 ROP E BY  EYLES 
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3:15  OEC.  2,1070  AP11AID  .001  PAGE  206 
USER'S  PAGE  NO.  1 EO  S4 


PROGRAM  NAME: 
WR I TT EN  BY  : 


MOD  'JO. 
DATE 

MOD  BY 


AGS  INITIALIZATION  (R47) 
'.HIDE  / KILROY  / FLcLETT 
0 

23  MARCH  1967 
KILROY 


MOD  NO. 
DATE 
MOO  BY 


l 

2?  OCT 0 B E 1 1967 

FPL  LE  TT 


FUNCT.  DESC.: 


(1)  TO  PROVIDE  THE 
( P 0 S I T I C '■  , VELOCITY 


AGS  ABORT  ELECTRONICS  ASSEMBLY  IAEA)  WITH  THE  LEM  AND  CSM 
TIME)  IN  LEM  IMU  COORDINATES  BY  MEANS  OF  THE  LG C DIGITAl 


STATE  VECTORS 
DQWNL INK. 


(?)  T ZE!  THE  I C DU , LGC  AO  AE  A G I v B A i ANGLE  COUNTERS  SIMULTANEOUSLY  IN  ORDER  TO  ESTABLISH  A 
COMMCP  ? -0  REFER E N C E FOR  the  MEAMJREMEM  of  GTMBAL ( §ULEr  ) ANGLES  WHICH  DEFINE  I EM  ATTITUDE 
(3)  i E A 3L I H the  GRHUt  D El  APSED  TIME  OF  AEA  CLOCK  ZERO. (IF  AN  AE A CLOCK  ZEE'  IS 

REQUESTED  DUPING  THIS  PROGRAM 


LOG  -EC" I ON 


ag:  INI! IAL I ZATION 


CALLING  SEQ 


PRIG;  AM  IS  ENTERED  ’.'HEN  AStr  ONAUT  KEYS  V47E  IN  DSKY. 

R47  MAY  BE  CALLED  AT  ANY  TIME  EXCEPT  WHEN  ANOTHER  EXTENDED  VERB  IS  IN  PROGRESS 


SUBROUTINES 

CALLED 


NORMAL  EXIT 


ENOEXT 


AL  AT  M/ ABORT 


ALARM  - BAD  'EFSMMAT  - C0DE:220 

OPERATOP  ERROR  IF  V47  SELECTED  DURING  ANOTHER  EXTENDED  VERB. 


EF  ASABIES 
USED 


SAMP TIME 
AGSK 
AG  SB  LIFE 
AGS WOP D 


(2)  TIME  OF  : ENTER:  KEYSTROKE 

(2)  GROUND  ELAPSED  TIME  OF  THE  AEA  CLOCK  :ZERO: 

( 14D ) CONTAINS  AGS  INITIALIZATION  DATA  (SEE  :OUTPUT:  BELOW) 
(1)  PREVIOUS  DOWN 1 1 ST  SAVED  HERE 


REF  10  LAST  20'-  £4,1600 


E B A N K = AGS BUFF 


40,2000 

BANK 

40 

REF 

1 

32,2000 

SETLOC 

R47 

32,2005 

BANK 

REF 

1 

COUNT* 

$ $ / P 4 7 

REF 

1 

32,2005 

3 4737 

0 

AGSINTT  CAF 

r FF5  MBIT 

REF 

1 

32,2006 

7 0077 

0 

MASK 

FLAGWRD3 

CHECK  REFSMFLG . 

REF 

35  LAST  191 

32,2007 

10  000 

0 

CCS 

A 

ASSEMBLE  i V I S i Ji  001  f F AGO  PROGRAM  API IRC  PE  BY  EYLES 


GAP  : 

L AGS  INITIALIZATION 

TC 
TC 

OCT 

TC 


0047  REF  1 32,2010  0 2017  0 

004-8  REF  8 LAST  185  32,201  1 0 5567  0 

0049  32,2012  00220  1 

0050  REF  l 32,2013  0 5472  0 


0061 
0062 
006  3 


3 2 ,201  *■  0*  6006  1 NEWAGS  EXTEND 

RFF  1 32,2015  3 0014  1 DC  A 

REF  4 LAST  204  32,2016  53*421  0 DXCH 


0064 

0065  REF 
006*  «F 

0067  REF 

0068  REF 
0065  REF 

0070  REF 

0071  REF 

00711  REF 

00712  REF 

00713 

00714  REF 


3 L AST  207 
2 l AST  1H2 
1 
1 
1 

2 LAST  207 
1 

22  t A ST  IRC 
12  LAST  98 

l 


32,2017 

32.2020 

32.2021 
3? , 2022 

32.2023 

32.2024 

32.2025 

32. 2026 

32.2027 

32. 2030 

32 . 2031 

32 .2032 


0 0 0 0 6 1 
3 1421  1 
53*052  0 

3 2 1 2 1 
0 4616  1 

20334  1 
0 5472  0 

0 2036  0 

4 4 74  6 1 
6 0154  1 
0 0006  1 

1 2014  1 


KEDSPTEH 


AGSDI SPK 


EXTEND 

CCA 

DXCH 

CAF 

TC 

CADR  | 

TC 

TC 

CS 

AD 

EXTEND 


0072 

007'5 

0074 
A 007  5 


RFF  3 

REF  2 


LAST  207 
LAST  207 


32,203? 

32 . 2034 

32.2035 


0 0006  1 
3 1052  1 
0 2016  1 


EXTEND 
DC  A 
TC 


0076 
0076  1 
00762 

REF 

REF 

1 

1 

1 

32.2036 

32. 2037 

32.2040 

32.2041 

32. 2042 

0 6037 
77614 
01076 
77414 
02076 

0 

1 

1 

0 

1 

AGSVCALC  TC 

SET 

0077 

0076 

REF 

SET 

007  9 

RFF 

2 

LAST 

207 

32,2043 

3 2172 

1 

CAF 

00705 

REF 

2 

LAST 

207 

32,2044 

0 4616 

1 

TC 

00796 

REF 

1 

32,2045 

20 6 20 

1 

CADF 

0082 

REF 

2 

last 

207 

32,2046 

0 6037 

0 

TC 

0083 

32,2047 

77634 

0 

RTB 

008^ 

PFF 

1 

32,2050 

215  7 3 

0 

0085 

e EF 

l 

32, 205  1 

34  041 

0 

S T C A L L 

0086 

REF 

2 

LAST 

37 

32, 2052 

2 7 057 

0 

0087 

32,2053 

77624 

1 

CALL 

0088 

REF 

1 

32, 2054 

64132 

0 

0089 

.REF 

11 

LAST 

206 

32,2055 

16201 

0 

STOOL 

OOP  0 

REF 

1 

32,2056 

0 0015 

0 

00<- 1 

REF 

2 

LAST 

207 

32,2057 

34041 

0 

STCAL L 

009? 

REF 

2 

LAST 

37 

32 ,2060 

27043 

0 

0093 

32,2061 

77624 

1 

CALL 

0094 

REF 

2 

LAST 

207 

32, 2062 

64132 

0 

F EDS PTE M 

ALARM 

220 

ENDEXT 


S AMPTIME 
AGSK 


AGSK 

DSPTFMX 

V06N16 

BANKCALL 

GQMARKF 

ENDEXT 

AG  SVC A LC 

BITS 

MPAC. 

NEWAGS 


DSPTEMX 

LEDSPTEM 


I NT  PR ET 

NOOOFL AG 
EXIT 

XDSPFLAG 

V06N1.6 
8 AMKXAL  I 
EXDSPRET 

INTPRET 

l OADTIME 
TDEC1 
LEMPR EC 

SCALEVEC 
AGSBUFF 
TAT 
T DEC  1 
CSMPREC 

SCALEVEC 


3: 15  DEC.  2 , 

USER'S 

FEFSMMAT  IS 
REFSMMAT  IS 


970 

AP11 AID 

PAGE 

NO.  2 

OK 

BAD 

.001  PAGE  207 
E 4 S3 


TIME  OF  THE  : ENTER : KEYSTROKE 
BECOMES  NEW  AE  A CLOCK  :7ER0: 


R 1 = OOXXX.  HRS.,  R 2 = OOOXX  MIN., 
P3  = OXX.XX  SEC. 

TERMINATE  RETURN 
PROCEED  RETURN 
IS  ENTFP  VIA  A V32 


YES,  USE  KEYSTROKE  TI«E  FOR  MEW  AGSK 

NO,  NEW  AGSK  LOADED  VIA  V25 
LOADED  INTO  DSPTFMX  BY  KEYING 
1 V 25  E FOLLOWED  3Y  HR S . , MI N S . , SEC S . 

DISPLAY  THE  MEW  K 


DONT  ALLOW  V?  7 


EXTF  APOLATE  LEM  AMD  CSM  STATE  VECTORS 
TO  THE  PRESENT  TIME 
LOAD  MPAC  W I TH  TIME2,TIME1 
CALCULATE  LE^  STATE  VECTOR 

CALL  ROUT  IMF  TO  CONVERT  TO  SM  COORDS  AMD 
PROVIDE  PROPER  SCALING 

(LEMPREC  AND  CSMPREC  LEAVE  TDEC1  IN  TAT) 
TAT  = TIME  Tfi  WHICH  R ATT  1 AND  VATT1  ARE 
COMPUTED ( CSEC  SINCE  CLOCK  START  P - 2 8 ) . 
CALCULATE  CSC  STATE  VECTOR  FOR  SAME  TIME 


GAP:  ASSE  'RLE  RE  VISION  OC 1 i-+  AGC  PrCGf.AM  AP11ROPE  BY  EYLES 


AGS  INITIALIZATION 


0098 

REF 

12 

LAST 

207 

32,2063 

16207 

0 

STOOL 

0096 

REF 

2 

LAST 

207 

32, 2064 

00015 

0 

0097 

32,2065 

56225 

1 

DSU 

009  R 

REF 

6 

LAST 

207 

32,2066 

02021 

0 

0099 

REF 

1 

32,2067 

2'  17  5 

1 

0100 

REF 

13 

LAST 

20« 

3 2 , 2C7P 

02215 

0 

STORE 

0101 

32,2071 

77776 

1 

EXIT 

0102 

REF 

1 

32,2072 

3 4 7 5 3 

1 

CAF 

0103 

P.EF 

2 

LAST 

99 

32,2073 

34  33  2 

1 

T 5 

0104 

PEF 

1 

32,2074 

3 2176 

0 

CAF 

0105 

REF 

3 

LAST 

207 

32,2075 

0 4616 

1 

TC 

0106 

REF 

1 

32,2076 

01735 

1 

C ADR 

0107 

PEF 

1 

32,2077 

3 1324 

0 

CA 

0108 

REF 

3 

LAST 

208 

32 ,2190 

54  332 

1 

TS 

0109 

PEF 

3 

LAST 

166 

32, 210  1 

3 4744 

1 

CAF 

0110 

REF 

6 

LAST 

185 

32,2102 

7 0074 

0 

MASK 

0111 

P.EF 

36 

LAST 

206 

32,2103 

10  000 

0 

CCS 

0112 

REF 

1 

32,2104 

0 2122 

1 

TC 

01121 

REF 

1 

32,2105 

11 '304 

0 

CKST  ALL 

CCS 

01122 

32 ,2106 

1 2111 

0 

TC  F 

01123 

32,2107 

1 2115 

1 

TCP 

01124 

32,2110 

1 2111 

0 

TC  F 

01125 

REF 

1 

32,2111 

3 ' 3 63 

0 

+ 3 

CAF 

01126 

REF 

4 

LAST 

2 08 

32,2112 

0 4616 

1 

TC 

01127 

REE 

2 

LAST 

208 

32,2113 

01735 

1 

CAD' 

01128 

REF 

1 

32,211' 

1 2105 

c 

TC  F 

0113 

REF 

5 

LAST 

208 

32,2115 

0 4616 

1 

+ 6 

TC 

0114 

REF 

1 

32,2116 

16714 

1 

CADR 

0115 

REF 

6 

LAST 

208 

32,2117 

0 4616 

1 

TC 

0116 

PEF 

1 

32,2120 

17716 

1 

CADR 

0117 

REF 

2 

t AST 

208 

32,2121 

0 2122 

1 

TC 

0118 

REF 

1 

3 2 , PI  2? 

0 5516 

0 

AGSEND 

TC 

0119 

REF 

2 

LAST 

207 

32,2123 

00054 

0 

ADRES 

0120 

RE  F 

1 

32,2124 

3 2173 

0 

CAF 

0121 

REF 

7 

LAST 

208 

32,2125 

0 ■ - J 

1 

TC 

01211 

PEF 

1 

32, 2126 

2036  2 

0 

CADR 

01212 

REF 

3 

LAST 

207 

32,2127 

1 5472 

1 

TCF 

01213 

REF 

4 

LAST 

208 

32,2130 

1 54  72 
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SELFCHK 

0535 

REF 

2 

LAST 

221 

09,3363 

00400 

0 

VAC1 ADRC 

ADPES 

V AC  1 US  E 

0536 

05,3354 

32001 

1 

OCT  3 2 r'  0 1 

OCT 

32001 

05  37 

05,3355 

00054 

0 

LTHVACA 

DEC 

44 

GAP 


ASSEMBLE  HE  VISION  001  OF  AGC  PROGRAM  API1R0PE  BY  EYLES 


L FRESH  START  AN®  RESTART 


0538 

053° 

0540 

0541  REF  1 

0542  REF  1 

0543 

0544 

0545 

0546  RtF  2 

054  7 

0548 

054° 

0550 

0551 

0552 

0553 

0554 

0555 

0556 


05, 

05, 

05, 


05  , 

05, 

05, 

LAST  181 

05, 

05, 

05, 

05, 

05, 

05, 

05, 

Ofi, 

05, 

05, 


3356  27470  1 

3357  7*160  0 

336  0 3C0C1  0 

5007 

4756 

3361  77755  0 

3362  37411  1 

3363  37000  0 

5026 

3364  0 0450  0 

3366  00102  1 

3366  00000  1 

3367  00000  1 

3370  00000  1 

3371  G2G00  0 

3372  00000  1 

3373  00000  1 

337*  00000  1 

3375  00100  0 


OCT27470  OCT 
0CT74160  OCT 
OC  T 3000  1 UCT 
STAFTEB  EQUALS 
NUMGRPS  EQUALS 
-El  R OCT 

IM301NIF  OCT 
IM3CINIR  OCT 
1M33INIT  = 

9,6,4  OCT 

P MOD  I NIT  OCT 
SWINTT  OCT 
OCT 
OCT 
UCT 
OCT 
OC  T 

oct 

OCT 


055  7 

05,33  lb 

00000 

1 

0558 

05,3377 

00000 

1 

0550 

05,3400 

OC  000 

1 

0560 

0 5 , 3*01 

< r r 00 

0 

OCT 
OCT 
OCT 
D C 'I 


27470 
74160 
30001 
t HANK  3 
FIVE 
-22 
3741  1 
37000 
PR  I 0 1 6 
450 
CC102 
0 
0 
0 

0200C 

0 

0 

0 

00100 

0 

0 

0 

40000 


I 
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.001  PAGE 

USER  * S PAGE 

MO. 

13 

E3  S3 

i 
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-ERROR  LIGHT  RESET  KEY  CODE. 

INHIBITS  IMU  FAIL  FOR  5 SEC  AND  PIP  ISSW 


NO  PIP  OF  TM  F A 1 1 


SIGNALS. 


i 


,.z 


{ 

I 


l 


I 

BIT  II  = NOP  29FLG 


I 


BIT  15 


LRBYPAS? 


GAP:  ASSEMBLE  REVISION  OCX  OR  AGG  PRU&SAM  AP11ROPE  BY  EYLES 


L FRESH  START  AMD  RESTART 


P 056 1 
R0562 

PROGRAM  N AM F GOTO POOH 

LOG  SECTION  FRESH  START  , 

AND  RESTART 

ASSEMBLY 

SUNDANCE 

R 056  3 

FUNCTICNA 

L DESCRIPTION 

R 056^ 

FLA 

SH  V 37  ON  DSKV  S'MM 

CHANGE  ! 

REQUEST  " 

R0565 

INPUT/OUT 

put  informat i nr 

R 056  ( 

A. 

CALLING  SEQUENCE 

TC 

GOTOPOPH 

R05t  7 

B. 

ERASABLE  INITIALIZATION 

NOME 

R 056  8 

C. 

OUTPUT  F L ASF 

1 V 37  CN  DSKY 

R 0569 

D. 

DE BP  IS 

l 

R 0570 

DU  nr.D  A \*  A hi  A 1 VC  T Q 

R 057 1 

A. 

SUBROUTINES 

CALLED 

PI  IODSPR 

* 

LINUS 

R 0572 

B. 

NORMAl  EXIT 

TCF  ENDOFJOB 

R0573 

C. 

ALARM  AND  ABORT  EXITS 

NONE 

0574 

6001 

BL  OCK 

03 

057  5 

REF 

2 

LAST  40 

6000 

SETLOC 

FFTAG5 

057( 

6001 

BANK 

0577 

P EF 

COUNT  * 

tt/pnn 

-P  / r 1 J 

0578 

REF 

1 

6001 

3 4764 

0 

GOTUPOOH 

CAF 

0CT33 

0579 

REF 

13 

l AST  192 

6002 

54  001 

1 

TS 

L 

0580 

60,  Q 3 

4 COCO 

0 

COM 

05  81 

REF 

2 

LAST  214 

6004 

52  761 

0 

DXCH 

-PHASE4 

0592 

REF 

3 

LAST  ?13 

6005 

0 463  5 

0 

TC 

DOST JUMP 

0583 

REF 

1 

6006 

10024 

0 

CADR 

GOPOOF I X 

0584 

6C07 

00024 

1 

0CT24 

MM 

20 

0585 

6010 

00031 

0 

OCT  31 

MM 

25 

0586 

20,2004 

BANK 

20 

0K67 

REF 

1 

04 , 2000 

sen  oc 

VERB37 

0588 

04,2024 

BANK 

0589 

REF 

1 

count* 

$ $ / P C 0 

0590 

REF 

2 

LAST  2 08 

04,2024 

0 5516 

0 

GOPOOFIX 

TC 

DOW NF LAG 

0591 

REF 

1 

04,2025 

00311 

1 

ADRES 

XOVI NFLG 

0592 

REF 

3 

LAST  224 

04,2026 

0 5516 

0 

TC 

DOWN FLAG 

0593 

REF 

1 

04,2027 

00314 

1 

ADRES 

ULLAGFLG 

3: 15  DEC 


PAGE 


224 


. 2,1970  AP11AID  .001 

USER  'S  PAGE  NO.  14  E3  S3 


4.33SP0T  FOR  GOPOOFIX 


VERB  37  AND  POO  IN  BANK  4. 
ALLOW  X-AXIS  OVERRIDE 

INSURE  THAT  ULLAGE  IS  OFF 


ASSEMBLE  REVISION  003  UP  AGC  PROGRAM  API LROPE  BY  EYl ES 


GAP  : 


FRE  SH 

STAr- T AMD 

05935 

0594 

0595 

REF 

REF 

REF 

1 

1 

8 LAST  , 

0596 

05  9^ 
0598 

REF 

1 

0599 

0600 

,2030  0 54-76  1 TC 

, 203  1 3 2037  1 CAF 

,2032  0 4-616  1 TC 

,2033  20476  0 CADR 

, 2034  1 2031  0 TCP 

,2035  1 2031  0 TCF 

,2036  1 2031  0 TCF 


,2037  11343  0 V37N99  VN 


STAR  T 

04 

04 

04 

04 

04 

04 

04 

04 


3: 15  DEC.  2,1970 

A P 1 1 A ID 

.001  PAGE 

USER'S  PAGE 

NO.  15 

E3  S3 

CLEARMRK  +2  RELEASE  MARK  DISPLAY  SYSTEM. 

V37N99 

BANKCALL 

GOFLASH 

-3 

-4 

-5 

3799 
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2,1970 
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L 

P 0601 

R 0602 

R 0603 

R 0604 
R 0606 
R0608 
R0609 
R 06 1 0 
R 06  1 1 
R 06  1 2 
P 06 1 3 
R 06 1 A 
R 06 1 5 
R 06 1 6 
R 0617 
R 06 1 8 
R 061 
R 0 6 2 0 
R0621 
R 062  7 
R 062  6 
R 0626 
R 0627 
R 062  9 
R0o31 
R 0633 
R 0634 
R 06  3 6 
R 0636 
R 0637 
R 06  3 8 
R 06  3 6 
R 064  1 
R0643 

R 0644 

R 064  6 

R0646 
R0647 
R 0648 

R 0649 

R 065  0 
R 065  1 


FRESH  START  AMD  P E START 


USER  * S PAGE  NO.  16 


E 3 S3 


PROGRAM  NAME 


V3  7 


ASSEMBLY 


SUNDANCE 


LOG  SECTION 


FLESH  START  AND  RESTART 


FUNCTIONAL  DESCf  IPTICN 

1.  CHECK  IF  NEW  PROGRAM  ALLOWED.  IF  BIT  1 OF  FLAGWRD2 < NODOFL AG > IS  SET,  AN  ALARM  1520  IS  CALLED. 

2.  CHECK  Fi  VALIDITY  OF  PROGRAM  SELECTED.  IF  AN  INVALID  PROGRAM  IS  SELECTED,  THE  OPERATOP  ERROR  LIGHT  IS 
SET  AND  CURRENT  ACTIVITY,  IF  ANY,  CONTINUES. 

3.  SE  VICE'  IS  TE  I NAT ED  IF  IT  HAS  BEEN  FUNNING. 

INSTALL  IS  EXECUTED  TO  AVi  ID  INTERRUPTING  INTEGRATION. 

6.  THE  ENGINF  IS  "MIRNE®  OFF  AND  THE  DAP  IS  INITIALIZED  FOR  COAST. 

6.  TRACK  AND  UPDATE  FLAGS  ARE  SET  TO  ZERO. 

7.  DISPLAY  SYSTEM  IS  R FLEAS  E D . 

8.  THE  FOLLOWING  ARE  PERFORMED  FOR  EACH  OF  THE  THREE  CASES. 

A.  PROGRAM  SELECTED  IS  POO. 

1.  RENDEZVOUS  AND  P25  FLAGS  ARE  RESET. (KILL  P20  AND  P25) 

2.  STAfi'NTl  TS  SCHEDULED  BY  SETTING  RESTART  GPQUP  2. 

3.  MAJOR  MODE  00  IS  STORED  IN  THE  MODE  R EG  I ST ER ( MODREG  ) . 

4.  SUPERBANK  3 IS  SELECTED. 

5.  NQDCFLAG  IS  RESET. 

ALL  RESTART  GROUPS  EXCEPT  GROUP  2 ARE  CLEARED.  CONTROL  ISTRANSFERRED  T0  RESTART  PROGRAM  (G0PR0G2) 
WHICH  CAUSES  ALL  CURRENT  ACTIVITY  TC  BE  DISCONTINUED  AND  A 9 MINUTE  INTEGRATION  CYCLE  TO  BE 
I M I T T AT  E D . 

B.  PROGRAM  SELECTED  IS  P20  OR  P25. 

1.  IF  THE  CURRENT  MAJOR  MODE  IS  THE  SAME  AS  THE  SELECTED  NEW  PROGRAM,  THE  PROGRAM  TS  RE-INITIALIZED 
VIA  V 3 7 X E 0 , ALL  RESTART  GROUPS,  EXCEPT  GROUP  4 ARE  CLEARED. 

2.  IF  THE  CU10GNT  MAJO  . MODE  IS  MOT  EQUAL  TO  THE  NEW  REQUEST',  A CHECK  IS  MADE  TO  SEE  IF  THE  REQUEST- 
ED  MAJO1'  mode  HAS  BEEN  RUNNING  IN  THE  BACKGROUND, 

AND  IF  IT  HAS,  NO  NEW  PROGRAM  IS  SCHEDULED,  THE  EXISTING 
P20  OP  P25  IS  RESTARTED  TO  CONTINUE,  AND  ITS  M M IS  SET. 

3.  CONTROL  IS  TRANSFERRED  TO  G0PR0G2. 

C.  PROGRAM  SELECTED  IS  NEI'HER  P<iO,P2C,  NOR  P25 

1.  V37XEQ  IS  SCHEDULED  (AS  A JOB)  BY  SETTING  RESTART  GROUP  4 

2.  Ail  CUI  ' ENT  ACTIVITY  EXCEPT  RENDEZVOUS  AND  TRACKING  IS  DISCONTINUED  BY  CLEARING  ALL  RESTART 
GROUPS.  IF  THE  RENDEZVOUS  OP  "r  HE  P25  FLAG  IS  ON , GROUP  2 IS  NOT  CLEANED,  ALLOWING  THESE  PROGRAMS 
TO  CONTINUE. 

IRPUT/OUTP JT  INFIKMATICN 
A.  CALLING  SEQUENCE 


CONTROI  is  DIRECTED  TO  V 37  BY  THE  VERB  FAN  ROUTINE. 

V ER  BF AN  GOES  TO  C ( V ERBT AB  + C ( V ERBREG ) ) . VERB  37  = MMCHANG . 

TC  POSTJUMP,  CADR  V37. 


MMCHANG  EXECUTES  A 
B.  FR AS ABLE  INITIALIZATION 


NONE 


OUTP  JT 


GAP: 

L 

R 065  2 

R 06  53 
R065' 
R 0656 

R 0657 

R06 
R 065  9 
R 0661 

R 066  2 

R 06,6  3 

066  A 
066r; 
0666 

0667 

066  5 

0669 

0670 

067  L 

0672 

0673 

067  i- 

0675 

0676 

0677 

06  7 8 
06  7 f 
0680 

0681 

0682 

068  3 
068^: 
068  6 
0686 

0687 

068  8 
06  8 9 

0690 
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fPESH  STA^T  AND  RESTART  USER'S  PAGE  NO.  17  E3  S3 

MAJOR  MODE  CHANGE 
C.  DEBRIS 

MMNUMBER,  MPAC  +1,  MINOEX,  BASETEMP  +C(MINOEX),  Ft.  AGWRDO » FLAGWRQ1  , FL  AGWF  D2 » MODREG,  GOLOC  -1, 

GOLPC,  GOLOC  +1,  GOL  Of.  + 2,  BASETP  - =>,  -PHASE?,  PHASE? , -PHASE4 

PROGRAM  ANALYSIS 

A.  SUBROUTINES  CALLED 

ALARM,  k'ELDS  P»  P I NB  N CH , INTSTALl,  ENGTM1F2 , ALLCOAST,  V37KLEAM,  G0PR0G2,  F ALTON*  FINDVAC*  SUPER  SW, 
DS°MM 


B.  NORMAL  EXIT  TC  ENDCFJUB 

C.  ALARMS  1520  (MAJOR  MODE  CHANGE  NOT  PE;-  IITTED) 


REF 

1 

04,2040 

5 4 77^ 

0 

V37 

TS 

MMNUMBER 

SAVE  MAJOR  MODE 

REF 

4 

1 AST 

213 

04 , 2041 

o 

CAP 

or  t n^n 

pcc  T A P T AT  D T \l  ft  A 1 1 PP  T OP  T TV 

D i J ' 

5 r 1 ' j o u 

r C o 1 A r 1 A i 1 In  D A L l r M lr  I 1 T 

REF 

2 

LAST 

211 

04 , 2042 

54  366 

0 

TS 

RESTREG 

REF 

41 

LAST 

216 

04,2043 

3 1302 

l 

CA 

I M0DES30 

IS  I HU  BEINB  INITIALIZED 

REF 

23 

(.AST 

222 

04,2044 

7 4746 

l 

MASK 

B ITfc 

REF 

42 

LAST 

217 

04,2045 

10  000 

0 

CCS 

A 

P.EF 

1 

<!/,  . ?r)66 

1 2 0 65 

I 

TC  F 

r amt  r i r, 

■ J f C-  T U 

REF 

2 

LAST 

227 

04,2047 

4 0775 

0 

CS 

MMNUMBER 

IS  P70  REQUESTED? 

REF 

1 

04,2050 

6 2400 

1 

AD 

DEC70 

P4 , 205 1 

0 0006 

1 

EXTEND 

PEP 

] 

(7  , 2('5  2 

1 2373 

0 

87  F 

SETUP 70 

YES 

REF 

1 8 

LAST 

222 

0'  , 205  3 

6 6753 

1 

AD 

ONE 

IS  P71  T EQUEST  £07 

06 , 2054 

0 0006 

1 

EXTEND 

REF 

1 

04,2055 

1 2372 

1 

BZF 

SETUP71 

YES 

REF 

3 

LAST 

22  7 

06,2056 

3 0775 

1 

CA 

MMNUMBEF 

IS  NEW  REQUEST  POO 

04 ,2057 

0 0006 

1 

EXTEND 

PEE 

1 

06,2060 

1 2 107 

1 

BZF 

I SS  FR VON 

YE'5,  CHECK  S EP VIC EP  STATUS 

REF 

3 

LAST 

165 

04,206 1 

4 0076 

1 

CS 

FLAGWRD2 

NO,  IS  NODO  V37  FI  AG  SET 

REF 

1 

04,2062 

7 4 753 

0 

MASK 

NODOB  1 T 

REF 

4 3 

LAST 

22  7 

04,2063 

10  ( oo 

0 

CCS 

A 

IFF 

1 

06 , 2064 

1 2072 

1 

TCP 

CHECKTAB 

NO 

REF 

10 

LAST 

217 

04 , 2065 

0 5567 

0 

CANTROCI 

TC. 

ALAI  M 

04, 2066 

01520 

1 

OCT 

1520 

REF 

1 

04,2067 

0 4457 

0 

V37BAD 

TC 

RELDSP 

RELEASES  DISPLAY  FROM  ASTRONAUT 

REF 

4 

LAST 

224 

04,2070 

0 463  5 

0 

TC 

POST  JUMP 

BRING  BACK  t. AST  NORMAL  DISPLAY  IF 

REF 

1 

06, 2071 

21050 

1 

CADP 

P INBf-  NCH 

WAS  ONE.  OTHERWISE  DO  AN  EOJ. 

REF 

1 

04,2072 

3 2477 

1 

CHECKTAB 

CA 

N0V37MM 

INDEX  POP  MM  TABLES. 

GAP:  ASSEMBLE  REVISION  001  OF  AGC  PROGRAM  AP11R0PE  BY  EYIES 


L FRESH  START  AMD  I 


0691 

REF 

28 

LAST 

221 

04,2073 

54  15  5 

1 

AGAINMM 

TS 

0692 

REF 

29 

LAST 

228 

04,2074 

50  155 

0 

NDX 

HA  5f)7c; 

a 9AA  1 

1 

C A 

Uo  -i  3 

Ktr 

1 

UH  ft .U  i 3 

J C.  *T  S:  JL 

i 

0696 

REF 

1 

04,2076 

7 6074 

0 

MASK 

06  9 r 

04 , 29 77 

4 0000 

0 

COM 

0696 

REF 

4 

LAST 

227 

04, 2100 

6 0775 

1 

AD 

0697 

REF 

44 

LAST 

227 

04,2101 

10  cco 

0 

CCS 

0698 

REF 

30 

LAST 

228 

04,2102 

10  155 

1 

CCS 

06  9 V 

REF 

1 

04,2103 

1 2073 

0 

re  K 

0700 

REF 

1 

04 ,2104 

1 2322 

1 

TCP 

0701 

REF 

31 

LAST 

228 

04,2105 

3 0155 

0 

CA 

0702 

REF 

1 

04,2106 

54  774 

1 

TS 

0703 

REF 

2 

LAST 

136 

04,2107 

4 0103 

1 

I SSELVQN 

CS 

0706 

REF 

1 

04,21 10 

7 4746 

1 

MASK 

070? 

REF 

45 

LAST 

228 

04,2111 

10  000 

0 

CCS 

0706 

REP 

1 

0 / . 9 1 1 7 

1 ? 1 3 A 

TCP 

l r 

f _ 1 J.  c. 

1 C.  J-  D ' 

0707 

REF 

4 

LAST 

224 

04,2113 

0 5516 

0 

TC 

0700 

REF 

1 

04,2114 

00  163 

0 

a DP  E S 

0709 

REF- 

1 

04, 21  15 

3 23  66 

0 

CAF 

0710 

REF 

1 

04,2116 

vr . 2^0 

0 

TS 

0711 

REF 

1 

04,2117 

1 5155 

1 

TCP 

0712 

REF 

9 

LAST 

217 

04,2120 

4 0074 

0 

V37RET 

CS 

0713 

REF 

2 

LAST 

185 

04,2121 

7 4745 

1 

MASK 

07 1 4 

PFF 

46 

l AST 

228 

04,2122 

10  000 

0 

CCS 

0715 

04,2123 

1 2125 

1 

TC  F 

0716 

REF 

1 

06,2124 

1 2132 

1 

TCP 

0717 

REF 

10 

LAST 

2 28 

r 4 . ? i ? 5 

4 0074 

0 

r v 

0718 

REF 

1 

04,2126 

7 4743 

1 

MASK 

0719 

REF 

47 

LAST 

228 

06,2127 

10  000 

c 

CCS 

0720 

REF 

1 

04,21 30 

3 2367 

1 

2.0SPT 

CA 

07  21 

REF 

14 

LAST 

218 

04,2131 

6 4747 

1 

2. 1 1SPT 

AD 

0722 

P EF 

1 

04,2132 

6 2370 

1 

2. 7SPT 

AD 

0723 

REF- 

1 

04 , 2133 

0 5357 

0 

TC 

0724 

REF 

15 

LAST 

221 

04 ,2134 

3 47  5 5 

1 

CANV37 

CAF 

0725 

04, 2135 

0 no06 

1 

EXTEND 

0726 

REF 

2 

LAST 

215 

C4 , 2136 

01  007 

1 

WRITE 

0727 

REF 

1 

OR, 2137 

3 23  65 

0 

CAF 

0728 

FEE 

1 

04,2140 

54  374 

0 

TS 

0729 

REF 

1 

04,2141 

0 r353 

1 

TC 

0730 

04, 2142 

00014 

1 

ncT 

3: 15  DEC 
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USEF ' S PAGE  NO.  18  E3  S3 

MPAC  +1 

MPAC  +1 

PREM  n 

LOW? 

OBTAIN  WHICH  MM  THIS  IS  FOR 

HMNUMBER 

A 

MPAC  +1 
AGAINMM 
V37NONO 

IF  GP,  SEE  IF  ANYMORE  IN  LIST 

YES,  GET  NEXT  ONE 

LAST  TIME  Or  PARSED  MM 

MPAC  +1 

M INDEX 

SAVE  INDEX  FOR  l.ATER 

F L AGWKD7 
V37FLBIT 

A 

V 37  FLAG  SET  - I.E.  IS  SERVICER  GOING 

CANV37 

NO 

DOWNFL AG 
AVEGFLAG 

V37P  ETAD 

OUT?- OUT F 

ENDOFJOB 

YES, TURN  OFF  THE  AVERAGE  FLAG  AND 

WAIT  FOR  SEFVTCER  TO  RETURN  T0  CANV37 

FL AGWROO 

R N D V 7.  B I T 

A 

IS  P20  OR  P22  RUNNING? 

+ 2 

2.7SPT 

FLAGWP.DC 

P25FLBIT 

A 

0CT37667 

BITS 

OCT  4007  2 
PHSCHNGA 

ZERO 

SUP  ERBNK 

NO.  CHECK  FOP  P25. 

YES.  DO  2.7SP0T 

IS  P25  RUNNING? 

ROOAD 

TEMPFLSH 

PHASCHMG 

14 


GAP 


ASSEMBLE  REVISION  (,01  OF  AGC  PROGRAM  API  1ROPE  BY  EYLES 


L FRESH  START  AMD  RESTART 


0731 

REF 

3 

LAST 

207 

04.2143 

04. 2144 

04.2145 
04,214-6 

0 6037 

77624 
27414 
77  776 

0 

1 

0 

1 

ROO 

TC 

CALL 

EXIT 

0732 

0733 

0734 

REF 

1 

dummyad 

0735 

REF 

5 

LAST 

228 

04,2147 

0 5516 

0 

TC 

0736 

REF 

1 

04,2150 

00124 

0 

ADRES 

0737 

REF 

1 

04 , 2151 

3 4735 

1 

caf 

0738 

REF 

1 

04,2152 

54  107 

0 

TS 

07382 

REF 

6 

LAST 

22Q 

04,2153 

0 5516 

0 

TC 

07384 

REF 

2 

LAST 

71 

04,2154 

00063 

1 

ADR  FS 

073  8 1: 

REF 

7 

L A 5 T 

229 

04 ,2155 

0 5516 

0 

TC 

07388 

REF 

1 

04,2156 

0(141 

0 

A D 1 FS 

0739 

REF 

a 

LAST 

229 

04,2157 

0 5516 

0 

TC 

0740 

REF 

2 

LAST 

224 

04,2160 

00311 

1 

ADRES 

0741 

REF 

I ACT 

2 

n 4.  ,5ut 

1 f)  77R 

n 

ff  C 

L r\  O 1 

c.  c,  U 

V , i-  i O i. 

v L O 

0742 

REF 

1 

04,2162 

1 2310 

0 

TCF 

0743 

REF 

2 

LAST 

227 

04, 2163 

0 4457 

0 

poph 

TC 

0744 

REF 

1 

04 ,2164 

3 5017 

1 

CAF 

0745 

REF 

1 

04,2165 

55 ' 056 

1 

TS 

0746 

REF 

1 

04,2166 

0 6 C 1 1 

1 

TC 

074  7 

REF 

2 

LAST 

227 

04,2167 

4 4753 

0 

CS 

0748 

REF 

4 

LAST 

227 

04,2170 

7 CO 7 6 

1 

MASK 

0749 

REF 

5 

LAST 

229 

04,217  1 

54  076 

1 

TS 

075  0 

REF 

2 

1 AST 

223 

04,2172 

3 47  56 

1 

CA 

0751 

REF 

14 

LAST 

2 24 

04,2173 

54  001 

1 

TS 

075  2 

04,2174 

4 COOO 

0 

COM 

0753 

REF 

2 

LAST 

214 

04,2175 

52  755 

1 

DXCH 

0754 

REF 

1 

04,2176 

4 2371 

1 

CS 

0755 

REF 

1 1 

LAST- 

228 

04,2177 

7 0074 

0 

MASK 

0756 

REF 

12 

LAST 

229 

04, 2200 

54  C74 

0 

TS 

0757 

REF 

1 

04, 2201 

3 4755 

1 

CAF 

0758 

REF 

6 

LAST 

214 

04,2202 

54  332 

1 

SEUDOPOO 

TS 

07c  9 

REF 

4 

LAST 

216 

04 , 2203 

55' 324 

1 

TS 

A 0760 

0761 

REF 

6 

LAST 

176 

04,2204 

0 4674 

0 

TC 

0762 

REF 

1 

04,2205 

75555 

0 

C.ADR 

3:15  DEC 


2,1970  API 1 AID  .001  D AGE  229 


I KTPRET 

USER'S  PAGE  NO.  19  E3  S3 

I NTST  AL  L 

WAIT  FOR  INTEGRATION  TO  FINISH 

DOWNFLAG 

3AXISFLG 

RESET  3-AXIS  FLAG 

lrbybit 

FLGWRD1 1 

CLEAN  UP  THE  R12  FLAGWORD. 

DCwNFLAG 

R04FI.AG 

INSURE  THAT  THE  R04FLAG  IS  CLEAR. 

DOWNFLAG 

MUNFLAG 

INSURE  MUMF1 AG  IS  CLEAR. 

DOWNFLAG 
XOVINFL G 

ALLOW  X-AXIS  0 VFr  P IDE . 

MMNUMBER 

NOUVEAU 

IS  THIS  A POOH  REQUEST 

NO,  PICK  UP  NEW  PPOGRA^ 

R ELDSP 

RELEASE  DISPL  AY  SYSTEM 

PR  I 05 
PHSPRDT2 

SET  VARIABLE  RESTART  PRIORITY  FOR 

POO  INTEGRATION. 

CLRAQMOD 

C LR  AD  MUD  DOES  AN  INHINT. 

NODOBIT 

FLAGWPD2 

FLAGWRD2 

TURN  OFF  NODOFLAG. 

FIVE 

L 

-PHASE2 

SET  R E ST  A F T FOR  STATE  I N'T  1 

0CT700 

FLAGWRDO 

TURN  OFF  P20  » P25 , I MU  IN  USE  FLAG 

FLAGWRDC 

DNLADPOO 

RENDFLG 

DNLST  COD 

AGS WORD 

I BNKCALL 
ENGIN0F1 

SET  UP  APPROPRIATE  DOWNl  I ST  CODE 
(CURRENT  LIST  WILL  BE  COMPLETED  BEFORE 
NEW  ONF  IS  STARTED) 

GAP: 
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L 

FRESH 

START  AND 

RESTART 

USER'S  PAGE  NO.  20  E3 

0763 

REF 

7 

LAST 

229  04,2206 

0 4674 

0 

TC 

T BNKCALL 

INSURE  ALLCOAST. 

0764 

REF 

1 

04,2207 

40204 

0 

CAOR 

ALLCOAST 

DOES  A RESTORDB. 

076? 

REF 

1 

04 , 2210 

4 4 7 75 

1 

cs 

OCT  120 

TURN  OFF  TRACK,  UPDATE  FLAGS 

0766 

REF 

2 

L AST 

211  04,2211 

55*072 

1 

TS 

EBANKTEM 

0767 

REF 

5 

EAST 

217  04,2212 

7 f 075 

1 

MASK 

FLAGWRD1 

0768 

REF 

fe 

LAST 

230  04,2213 

54  075 

1 

TS 

FLAGWRD1 

0769 

REF 

8 

LAST 

23C  04,2214 

0 4674 

0 

TC 

I BNKCAL.  L 

KILL  GROUPS  1,3, 5, 6 

0770 

REF 

1 

04,2215 

12652 

0 

CADE 

V37KLEAN 

0771 

REF 

6 

LAST 

22°  04,2216 

10  7 75 

0 

CCS 

MMNtJMBEP 

IS  IT  POOH 

0772 

REF 

1 

04,2217 

1 2226 

1 

TC  F 

RENDVOO 

NO 

0773 

REF 

9 

LAST 

230  04,2220 

0 4674 

0 

GDMCD 

TC 

IBNKCALL 

REDUNDANT  EXCEPT  FOF  GROUP  4 

0774 

REF 

1 

04,2221 

12647 

1 

CADR 

POOKLEAN 

0775 

REF 

7 

LAST 

230  04,2222 

3 0775 

1 

CA 

MMNUMBEP 

A77A 

CPI- 

•j 

I APT 

’>  i 7 n 4 . 7 7 7 •» 

55*011 

] 

T S 

, incpr,  . 

U f i 

r l r 

D 

L h O I 

6.  1 f V ■ f C.  fL  C.  ZJ 

v_  ■ L_  'J  m 

0777 

REF 

5 

LAST 

? 27  04,2224 

0 4635 

0 

GOGOPROG 

TC 

POSTJUMP 

077ft 

R F F 

1 

04 . 2 ? 2 5 

1 7110 

l 

CADR 

GOPROG2 

X 

• , i~  t—  i—  - ’ 

It  M W 

vur  i * v?  c~ 

0779 

REF 

4 

LAST 

230  04,22  26 

4 1011 

1 

R ENDVOO 

CS 

MOD REG  * 

IS  CURRENT  PROGRAM  22 

0780 

REF 

1 

04,2227 

6 2326 

1 

AD 

0CT2t 

078  1 

04,2230 

0 0006 

1 

EXTEND 

0782 

REF 

1 

04,2231 

1 2250 

0 

BZF 

RESET22 

YES  - CLEAR  RENDEZVOUS  FLAG 

0783 

REF 

8 

LAST 

230 

04,2232 

4 

07  75 

0 

CS 

MMNUMBEP 

TS  NEW  PROGRAM  »22 

0784 

REF 

2 

LAST 

230 

n L . 

6 

? i ? A 

AD 

OCT26 

V " , C.  C.  D D 

C.  D C.  V 

0785 

04,2234 

0 

0006 

1 

EXTEND 

0786 

REF 

2 

LAST 

230 

04,2235 

l 

2250 

0 

BZF 

RESET22 

0787 

REF 

1 

04, 2236 

6 7746 

0 

AD 

NEG? 

IS  NEW  PROGRAM  = P20 

OR  P 2 5 

0788 

04,2237 

0 0006 

1 

EXTEND 

0789 

REF 

1 

04, 2240 

1 22  62 

1 

BZF 

RENDNOO 

YES 

0790 

REF 

3 

LAST 

229 

04, 2241 

6 4756 

1 

AD 

FIVE 

25 

0791 

04,2242 

0 C 006 

1 

EXTENO 

0792 

REF 

2 

LAST 

230 

04,2243 

1 22  62 

1 

BZF 

RENDNOO 

YES 

0793 

REF 

1 

04,2244 

3 2324 

0 

CA 

OCT  500 

NO,  IS  ETfHEF  P 20  OR 

P 25  RUNNING 

0794 

REF 

13 

LAST 

229 

04,2245 

7 CC74 

0 

MASK 

F LAGWRDO 

0795 

REF 

4 8 

LAST 

228 

04 , 2246 

10  000 

0 

CCS 

A 

0796 

REF 

1 

04,2247 

L 2257 

1 

TCP 

POOFIZZ 

YES,  LEAVE  GROUP  2 TO 

PICK  UP  P2C 

0797 

REF 

2 

LAST 

229 

04,2250 

4 23  71 

1 PESET22 

CS 

OCT 700 

C.LFAR  FEUDEZVCUS,P25 

07  9 4 

REF 

14 

LAST 

23  0 

06,2251 

7 0076 

0 

MA  S K 

F LAGWRDO 

AND  I MU  IN  USE  FLAGS 

0799 

REF 

15 

LAST 

230 

04,2252 

54  074 

0 

TS 

FLAGWRDO 

0800 

REF 

2 

LAST 

229 

04,2253 

0 601  1 

1 

TC 

CLRADMOD 

GAP : 

L 

0801 

0802 

0803 

0804 

0805 

0806 

080  7 

0808 

0809 

0810 

0611 

0612 

0813 

0814 

0815 

0816 

0817 

081P 

' 1 

0820 

0821 

082  2 

0823 

0824 

0825 

0826 

0827 

082  6 

0829 

0830 

0831 

083  2 

0833 

083' 

0835 

08  36 

083  7 

0838 

0839 
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FRESH  START  AMD  RES1 ART 


USES 'S  PAGE  NO.  21  F3  S3 


REF 

REF 


3 LAST  214 
3 LAST  229 


04.2254  0 0006  1 KI LI  2 

04.2255  3 4755  1 

04.2256  52  755  1 


EXTEND 

DC A NEGO 

DXCH  -PHASE2 


• EF  1 f ' , 2.257  3 2364  i 

REF  2 LAST  228  C ,2269  5'  3 74  0 


PLTFIZZ  CAF  V37QCAD 

T c TE  MPF  L SH 


REF 


04,2261  1 2224  0 


TCP  GOGOPROG 


REF  5 LAST  230  04,2262 

REF  1 04,226? 

O'- , 2264 

REF  1 04,2265 


4 

1011 

1 

RENDNOO  CS 

MODREG  v 

6 

6007 

0 

AD 

OCT  2 4 

0 

1 

0006 

2254 

1 

1 

FyTtwn 

LA  1 L U 

BZF 

KILL2 

NO  , K 1 1 L 2 


PE START  POINT  FOR  V37XEQ 


P 20  OF  P 2 5 ON  TOP  OF  P20  OF  P25  - 


r%  EF 

4 

LAST 

2 30 

04 , 22  66 

6 

47  56 

1 

04,2267 

0 

0006 

1 

REF 

2 

LAST 

2 31 

04,2270 

1 

2254 

1 

AD  FIVE 

EXTEND 

8ZF  XILL2 


REF  2 
REF  16 
REF 

REF  1 


REF  1 
REF  1 

REF  2 
REF  3 


LAST  230 
LAST  230 
LAST  230 


LAST  231 
LAST  231 


04, 227  1 

04.2272 

04.2273 

04.2274 

04.2275 


04,2277 

04.2300 

04.2301 

04.2302 

04.2303 


3 2324  0 
7 0074  0 
6 0775  1 

4 COCO  0 
•;»  23  2 7 0 

0 9006  1 

1 2304  0 
6 2325  1 
0 0006  1 
1 2304  0 
1 2254  1 


04,2276 


CA 

MASK 

AD 

OCT 5 00 

FLAGWRDO 

MMNUMQEE 

COM 

AO 

EX T END 

P20REG 

I S 

IT 

STAT  QUO 

YES 

BZF 

AD 

EXTEND 

OCT  305 

IS 

IT 

STATQUD 

YFS 

» 

BZF 

TCF 

KILL.2 

20  AND  IS  RENDEZVOUS  FLAG  ON 

25  AND  IS  P 25  BIT  ON 
LEAVE  AS  IS 


P EF 

7 

LAST 

230 

04,2304 

4 0075 

1 

STAT  QUO 

CS 

FLAGWRD1 

SET  TRACKFLAG 

REF 

2 

LAST 

230 

04,2305 

7 4775 

1 

MASK 

0CT120 

UPDATE  FLAG 

REF 

8 

A 

2 31 

04. 7306 

36  076 

A 06 

FI  Ail Ui f n 1 

CU  u ( J 

1 

F L.  MVj  v'i  - U i- 

REF 

1 

94,2307 

1 22  20 

1 

TCF 

GOMQD 

REF 

3 

LAST 

231 

04,2310 

3 2324 

0 

NOUVEAU 

CAF 

0CT500 

IS  P20  OR  P25  FLAG  SET 

REF 

17 

LAST 

231 

04,231  1 

7 0074 

0 

MASK 

FLAGWRDO 

REF 

49 

LAST 

230 

04,2312 

10  000 

0 

CCS 

A 

0 4,2313 

1 231 6 

0 

TCF 

+ 3 

YES 

REF 

9 

LAST 

220 

04, 2314 

0 5516 

0 

TC 

OOWNF LAG 

NO, RESET  IMUIN  JSL  FLAG 

REF 

1 

04,2315 

00007 

0 

ADRES 

I MUSE 

REF 

2 

LAST 

228 

04,2316 

5 0 774 

0 

INDEX 

MINDEX 

REE 

1 

04, 2317 

3 2500 

0 

CAF 

DNLADMM1 

OBTAIN  APPROPRIATE  DOWNL I ST  ADDRESS 

04, 23 20 

0 COO 4 

0 

INHINT 

REF 

1 

04, 2321 

1 2202 

1 

TCF 

SEUDOPOD 

REF 

1 

04,2322 

0 '3  64 

1 

V37N0N0 

TC 

F ALTON 

COME  HERE  IF  MM  REQUESTED  DOESNT  EXIST 

ASSt  IDLE  REVISION  '01  UF  AGC  PROGRAM  AP11R0PE  BY  EYLES 


GAP: 


T1 

7D 

m 

SH  START  AND  RE  STAR T 

0840 

REF 

1 

04, 2323 

1 2067 

0 

TCP 

V37BAD 

0841 

REF 

17 

LAST 

216 

*•750 

OCTOOOIG 

EQUALS 

BIT4 

0642 

04, 2324 

00500 

1 

0CT500 

OC  I 

500 

084  3 

04,2325 

00305 

1 

OCT305 

OCT 

305 

084* 

04, 2326 

"0026 

0 

DCT26 

OCT 

26 

0845 

04, 2327 

00124 

0 

P20R  EG 

OCT 

124 

0846 

04, 2330 

0 0004 

0 

V37XEQ 

IN  HI  NT 

0847 

REF 

3 

LAST 

231 

04,2  33  1 

5 0 774 

0 

INDEX 

MINDEX 

0648 

REF 

2 

LAST 

228 

04,2332 

3 244  ] 

1 

CAE 

PR EMM 1 

0849 

REF 

1 

04,2333 

55*060 

1 

rs 

MMTEMP 

0850 

REF 

1 

04 , 2334 

54  020 

1 

TS 

C YR 

0851 

REF 

2 

LAST 

232 

04,2335 

3 0020 

0 

CA 

CYR 

0852 

REF 

1 

04,2336 

7 7725 

1 

MASK 

PP I 037 

0853 

REF 

I 

04, 2337 

55*062 

0 

TS 

PHSPRDT a 

OP  6 A 

REF 

i 

ni . 9^40 

•■)  ^ 063 

o 

TS 

KjFWpc  TO 

UO  J‘T 

I 

1 I L »1  1 J 

085  5 

REF 

2 

LAST 

232 

04,?341 

3 1060 

0 

CA 

MMTEMP 

n p,  a 

0 4.  ? 4 ? 

0 0006 

1 

F X TF  wn 

'JG  ju 

Jlf  t.  jTfi 

1 

L A 1 L 1 N t_ 

0857 

REF 

l r 

LAST 

213 

04,2343 

7 4744 

0 

Mp 

BIT8 

0858 

P EF 

l 

04, 2344 

7 47  57 

1 

MASK 

LDW3 

0859 

REF 

15 

L AST 

2?« 

04,2345 

54  001 

1 

TS 

L 

0860 

REF 

4 

LAST 

232 

04,2346 

50  774 

0 

INDEX 

MINDEX 

0861 

REF 

1 

04,2347 

3 2403 

1 

CAP 

FCADRMM I 

086  2 

REF 

1 

04,2350 

65*061 

0 

TS 

BASETEMP 

0863 

P EF 

3 

LAST 

215 

04,2351 

1 4350 

1 

MASK 

H £ 5 

086A 

REF 

16 

LAST 

2 3 2 

0 a j 2352 

?£  00 1 

1 

ADS 

F 

1 

0865 

REF 

2 

LAST 

232 

04,2353 

3 1061 

1 

CA 

BASETEMP 

0866 

REF 

04 . 

7 501 2 

o 

MASK 

i nwi  o 

• f C-  ~J  -■  » 

0867 

REF 

15 

LAST 

165 

04,2355 

6 4741 

1 

AD 

BITll 

0868 

REF 

1 

04, 2356 

0 5116 

1 

TC 

SPVAC 

0869 

REF 

3 

LAST 

23  2 

04,2357 

3 1060 

0 

V37XEQC 

CA 

MMTEMP 

0870 

REF 

2 

LAST 

2 28 

04,2360 

7 6074 

G 

MASK 

LGW7 

0871 

REF 

1 

04,2361 

0 5314 

1 

TC 

NEW MODE A 

REF 

3 

LAST 

2 2° 

04,2362 

0 a 4 57 

0 

TC 

RELDSP 

0873 

REF 

2 

LAST 

228 

04,2363 

0 5155 

0 

TC 

ENDOF JOB 

0874 

REF 

1 

5660 

NEG7 

EQUALS 

0CT7777G 

0878 

REF 

1 

1061 

MMTEMP 

EQUALS 

PHSPRDT3 

0876 

REF 

1 

1061 

BASETEMD 

EQUALS 

TBASE4 

0877 

REF 

1 

04,2364 

10333 

0 

V37QCAD 

CADR 

V37XEQ  +3 

0878 

REF 

1 

04,2365 

10146 

0 

ROOAD 

CADR 

DUMMY  AD 
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BITS  7 AMD  0 


OBTAIN  PRIO,  E3ANK,  AND  MM 
SHIFT  RIGHT  TO  BITS  14  - 10 

PRESET  GROUP  4 RESTART  PRIORITY 
STUPE  PRIO  FOR  SPVAC. 

OBTAIN  EBANK  - BITS  8,9,  10  OF  MMTEMP. 


MAKE  BBCQN  BY  ADDING  HIC  OF  FCADF 


OBTAIN  GEN ADP  PUPTION  OF  2CADR. 


UPON  RETURN  FROM  FINDVAC  PLACE  THE 
NEW  MM  IN  NODREG  (THE  LOW  7 BITS  OF 
PHSPRDT 1 ) 

RELEASE  DISPLAY 
AND  EXIT 


G AP : 

L 

0879 

0880 

0881 

08  8 2 

R0833 

0384 

0835 

0886 

0887 

08  88 

0839 

0890 

089  1 

089? 

0892 

R 0893 

P 089* 

R 0895 

R 08  96 

R 0897 

R V 98 

A 

A 

AO-H 

P 090  2 

R 0or'  ? 

0904 

0905 

0906 

0907 

0908 

0909 

0910 

0911 

0912 

0°  1 3 

0914 

0915 

0916. 

09 1 7 

0918 

0°19 

0920 

0921 
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FIE  PH  START  AND  RESTART 


USER'S  PAGE  NO.  23 


E 3 S3 


REF 

1 

04,2366 

10120 

0 

V37RETAD 

CADR 

V37RET 

04,2367 

37667 

1 

GCT37667 

OCT 

37667 

04,2370 

40072 

0 

OCT 40 072 

oc  r 

4007  2 

04,2371 

00700 

0 

QCT700 

OCT 

700 

o p C 

1 

3 4 2 6 3 

1 

SETUP71 

C A F 

T ut>  p p 

J 

V *T  J C.  J 1 C. 

1 

in  c iz 

REF 

18 

LAST  222 

04,2373 

54  002 

1 

SETUP70 

TS 

Q 

04,2374 

0 0006 

1 

EXTEND 

REF 

1 

04, 2375 

3 2402 

0 

DC  A 

P7QCADR 

REF 

19 

LAST  233 

04,2376 

6 0002 

0 

AO 

Q 

04,2377 

52  0 06 

0 

DTC  B 

04, 2400 

00106 

0 

DEC70 

DEC 

70 

REF 

3 

LAST  147 

E 7 , 1520 

EBANK 

= R 

REF 

1 

04,2401 

02072 

0 

P 7 OCA DR 

2 C A D a 

P70 

REF 

1 

04,2402 

42  067 

0 

FOF 

vr  b 

37  TWO  T ABLE  . ARE  MAI  NT  A I NED, 

EACH  TABLE 

HAS 

AN  ENT'  Y ' 

MAJOR  MODE  THAT  CAN|: 

BE  STARTED 

FROM 

THE 

KEYBOARD. 

THE 

ENTRIES  \] 

INTO  THE  TABLE  WITH  THE  ENTRY  FOR  THE  HIGHEST  MAJOR  MODE  COMING  FIRST, 


Tl  THE  LOWEST  MAJi.R  M IDE  WHICH  IS  THE  LAST  ENTRY  IN  EACH  TABLE. 

THE  FCADRMM  TABLE  CO  TAI:S  THE  FCAOR  OF  THF  STARTING  JOB  OF 
the  MAJOF  MODE.  F( r-  EXAMPLE , 


FCADP.MM1  FCAOR 

P79 

START 

OF 

P 

79 

FCADR 

PROG 18 

START 

OF 

P 

1 6 

FCAOR 

P01 

START 

OF 

P 

01 

mote,  THE  FIRS#  FNT'  Y MUST  BE  L ABLE  0 FC ADF  mm  1 . 


REF 

1 

04,2403 

71526  0 

FCADRMM1  FCADR 

P79 

REF 

1 

04,2404 

71274  0 

FCADR 

P 78 

REF 

1 

04,2405 

26207  0 

F C A D '' 

P76 

P EF 

1 

04,2406 

72731  1 

FCADR 

P75 

REF 

1 

04,240  7 

72547  1 

FCADR 

P 74 

REF 

1 

04,24  10 

72220  1 

FCADR 

P73 

REF 

1 

04,241  1 

72031  u 

FCADC 

P72 

REF 

1 

04,2412 

82144  1 

FC  AD? 

LAND JUNK 

REF 

l 

04,241 3 

64776  0 

FCADr 

P63L  M 

REF 

1 

04,2414 

3331*'  1 

FC  ADR 

P57 

REF 

1 

04, 2415 

32050  0 

FCADR 

PR0G52 

REF 

1 

04, 2416 

31427  1 

FCADR 

P 5 1 

REF 

1 

04 , 24  1 7 

$ 1 

FCADR 

P4  71  M 

P.EF 

1 

04,2420 

75410  0 

FCADR 

P42LM 

R FF 

1 

06,2421 

75272  1 

FCAOP 

P4  1 LM 

RFF 

1 

)/-  ,24?? 

75167  1 

FCADP 

P40LM 

REF 

1 

04,2423 

71621  1 

FCADR 

P 3 9 

REF 

1 

04,2424 

71271  0 

FCADR 

P 38 
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0922 

REF 

1 

04,2425 

72725 

1 

FC  ADR 

P35 

092  3 

REF 

1 

04,2426 

72545 

0 

FC  ADR 

P 34 

092^ 

REF 

1 

04,2427 

722  16 

1 

FC  ADR 

P33 

0925 

P.EF 

1 

OS  2430 

72027 

1 

FC  ADR 

P32 

0926 

REF 

1 

0 - ,24  31 

7245  0 

0 

FC  ADR 

P31 

09  2 t 

r EF 

1 

04,2432 

72000 

1 

FC  ADR 

P30 

0928 

REF 

1 

04,2433 

50404 

1 

FC  ADR 

PROG25 

0929 

REF 

1 

04,2434 

50000 

1 

FCADR 

PROG 2 2 

093C 

REF 

1 

04,2435 

51505 

0 

FCADR 

PP0G21 

0Q31 

REF 

1 

04,2436 

50000 

1 

FCADR 

PROG20 

0932 

p EF 

1 

04,2437 

oC06l 

0 

FCADR 

P 1 2 L M 

093  3 

REF 

1 

04, 2440 

77655 

1 

FCADP 

P06 

R 0°34 

THE 

PREMM 

TABLE  CONTAINS  THE  E-BANK, MAJOR  MODE, 

, AND  P 

R 093  5 

INFOPMATI ON, 

IT  IS 

IN  THE  FOLLOWING 

FORM, 

R0936 

PPP 

P PE  E EM  MMM  WMM 

r 0937 

IJUfDC  TUC 

7 3 0 T f C r 1 T A T r 

uP  MA  I:  ‘ sssnP  'JltMUCD 

n L_  • v.  1 ■ 1 < 

R 0938 

3 E BITS 

CONTAIN 

THE  E-BANK 

NUMBER 

P 0939 

5 P BITS 

CONTAIN 

THE  PRIORITY  AT  WHICH  THE 

R 0940 

TO  BE 

QT  AD  T P n 

' ' 

R 0941 

FOK 

EXAMPLE, 

A 

PREMM 1 

OCT 

6721  3 

A 0943 

A 0944 

A 0G4S 

OCT 

25437 

A 09 

A 0 '■■■  7 

R 0948 

NOTE  , 

THE 

F IRST 

ENTRY  MUST 

BE  LA8ELFD  PREMM1 

0949 

0 A . ? 4 1 

27717 

0 PR EM Ml 

OCT 

7 7717 

t C-  • 1 

0950 

04,2442 

27716 

1 

OCT 

27716 

0°5  1 

04,2443 

27714 

0 

OCT 

27714 

095  2 

04, 24  4 4 

27713 

I 

OCT 

27713 

0953 

04,2445 

27712 

0 

OCT 

27712 

0954 

04,2446 

27711 

0 

CCT 

27711 

095  5 

04,2447 

27710 

1 

OCT 

27710 

0956 

04 , 24t-0 

27  704 

1 

OCT 

2 7704 

0957 

04,2451 

2 7677 

1 

OCT 

27677 

095  8 

04,245? 

27271 

0 

OCT 

27271 

0959 

04,2453 

27264 

1 

OCT 

27264 

0960 

04, 2454 

27263 

0 

OCT 

27263 

0961 

04,2455 

27657 

0 

OCT 

27657 

096  2 

04,2456 

27652 

0 

OCT 

27652 

0963 

04 , 2457 

276  51 

0 

OCT 

27651 

096^- 

04 , 244 0 

27650 

1 

OCT 

27650 

096  5 

04, 2461 

27647 

1 

OCT 

2 7647 

0966 

04, 2462 

2 7646 

0 

OCT 

27646 
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MM 
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EB  ANK 

5 
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10 
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PR 

10 

13 
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7 

PR 
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PR 
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PR 

10 

13 
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0968 

0969 

0970 

0971 

0972 

0973 

0974 
OS  7 5 

0976 

0977 

0978 
R ( ' 

R 0980 
R 0981 

0982 

0983 
0934 

0985 

0986 

0987 
098  P 

0989 

0990 

0991 
09-32 
0993 
0906 

0995 

0996 

0997 
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0999 
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1003 
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1009 
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101  1 
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NOTE  , 
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REF 

REF 

1 

2 

3 

KEF 

4 
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5 
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6 
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7 
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1 

REF 

2 

REF 

I 

REF 

1 

R F F 

p 
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1 
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2 
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3 
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4 
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3 
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q 
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10 
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1 1 
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12 
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14 
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16 
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16 
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2 
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1 7 
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18 
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O 

REF 

3 

REF 

16 

04, 2463 

27643 

0 
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04,2464 

27642 

1 
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27642 

04.2465 

04 . 2466 

2 7641 
27640 

1 

0 

* QGI 
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27641 

27640 

04 ,2467 

2763  7 

0 
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27637 

04,2470 

27636 

1 
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27636 

04,2471 

27631 

0 

OCT 
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04 , 2472 

27626 
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1 

1016 
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2 
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OESASCNT 

= 

L 
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LUNR  SAL.N 
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1020 

13,2026 
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1 3,2000 

SETLOC 
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1022 
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BANK 
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2 
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46  TO 
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2 
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1024 
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2 
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E3 , 1556 

E8ANK= 

r-  R F C T d S M 

R 102  5 
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ROUT INE  l 

DOES  THE 

POO  INTEGRATION 

1026 

13,2026 

43  014 

0 

ST  AT  EUR 

SET 

BCF 

1027 
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1 

13, 2027 
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I 
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102  8 
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1 

1 3,2030 
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26036 
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45014 
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DO  I NT 
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1 

13,2037 

01667 

I 
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1036 
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1 

13,2040 

27134 

1 

INTEGRV 
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13, 204 1 

712  1 4 

0 

BON 
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103  3 

REF 
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236 

13,2042 

04  30  7 

I 

SURFFLAG 

103c 
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1 

1 3 , 204  3 

26  063 

0 

1-  I 17 

1 

REF 

3 
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1 1 1 

13,2044 

01571 

0 

TETCSM 

1041 

REF 

3 
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13,2045 

34041 

0 

ST  CAL  L 

T DEC  1 

1042 
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2 
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1 3,2046 

2741* 

0 
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1043 
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45014 

0 
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1046 

RFF 

2 
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2 16 

13,2050 

016  74 

0 

V INTFLAG 

104p 
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1 

13,2051 

26646 

0 

SET  I FLGS 

1046 

13,2052 

77614 

1 

BOF 

1047 

REF 

2 

LAST 

236 

13,2053 

02756 

1 

RENDWFLG 

1048 

REF 

1 

13, 2o 54 

2 6060 

0 

D0INT2 

1049 

13,2055 

43014 

0 
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SET 

1050 

REF 

2 

LAST 

236 

1 3,2056 

01476 

0 

D I MO FLAG 

1051 

REF 

1 

1 3 , 2057 

01475 

0 

D60R9FLG 

1052 

13,2060 

45014 

0 

D0INT2 

SET 
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1053 

REF 

2 

LAST 

236 

13,2061 

01467 

0 

PRECIFLG 

1056 

REF 

2 

LAST 

236 

13, 2062 

27134 

1 

INTEGRV 

1055 

1 3 , 2063 

7 7 6 1 4 

I 

NO- I NT 

CL  RGO 

1056 

RFF 

3 

LAST 
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13,2066 

0 1 2 3 6 

1 

NCDi  FI  AG 

1057 

REF 

1 

13,2065 

76632 

1 
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L 

R II 


FRESH  START  AMD  RESTART  USER'S  PAGE  NO.  27  E3  S3 

TH I 5 VINT  IS  CALLED  BY  MIDT0AV1  AN  D2 


1 OB  9 

1060  REF 


3 LAST  23': 


13.2066  43414  1 THISVINT  CLEAR  R VQ 

13.2067  01674  0 VINTFLAG 
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..1 


L 

R F ctar  T TABLES  USER’S  PAGE  NO.  1 EO  S3 

P0001 

R 0002 

RESTART  TABLES 

R 0003 

R 000  5 

R 0007 

R 0009 
ROOK 
ROOK 

R 0014 

THERE  APF  TWO  FORMS  OF  r 5 T A T TABLES  FOR  EACH  GPO'JP.  THEY  ARE  KNOWN  AS  THE  EVEN  REST  A F T TABLES  AND  THE  ODD 
i.  CSTA'-T  TABLES.  THE  ' )D  TABLES  HAVE  ONLY  ONE  E i TRY  OF  THREE  LOCATIONS  WHILE  THE  EVEN  TABLES  HAVE  TWO  ENTRIES 
EACH  USING  THREE  LOCATIONS.  THE  INFORMATION  AS  TO  WHETHER  IT  IS  A JOB,  WAITLIST,  OR.  A LON  GCAL  L IS  GIVEN  BY  THE 
WAY  THINGS  ARE  PUT  INTO  THE  TABLES. 

A JOB  HAS  ITS  f ! I ' I T Y STORED  IN  PRDTTAB  OF  THE  CORRECT  PHASE  SPOT  - A POSITIVE  PRIORITY  INDICATES  A 

F INC VAC  JOB,  A NEGATIVE  r;  1 ITY  A NOV  AC.  THE  2 CAD'  OF  THE  JOB  IS  STORED  IN  the  CADPTAB. 

FOR  EXAMPLE, 

A 001  5 

A 001  6 

5.7SP0T  OCT  23000 

2CADR  SOMEJOB 

R 001  7 

A ESTA  T OF  GROUP  r T T H PHASE  SEVE'  WOULD  THE;:  CAUSE  SOMEJOB  TO  BE  RESTARTED  AS  A FINDVAC  WITH  PRIORITY  23. 

A 001° 

A 00  20 

5. 5 SPOT  rcT  -23000 

2CADR  ANYJOB 

R0021 

R 002  3 

P 002  5 
R0027 

HE  E A r ST  A T OF  GROUP  " WITH  PHASE  7 WOULD  CAUSE  ANYJOB  TO  BE  RESTARTED  AS  A NOVAC  WITH  PRIORITY  23. 

A LPUGCALL  HAS  ITS  KNAO  OF  ITS  2 G A OF  SO:  ED  NEGATIVELY  AND  ITS  BBC  ON  STORED  POSITIVELY.  IN  ITS  PF  DT  T A B IS 
PLACED  THE  L.  CAT  ■ 'N  (F  A DP  ESI  STEP  THAT  CONTAINS  THE  DELTA  TIME  THAT  LOMGCALL  HAD  BEEN  ORIGINALLY  STARTED 

WITH.  EX  AM  PI  E , 

A0028 

A 002' 

A 00 30 

3.6SP0T  GENADR  DELTAT 

-GENADR  LONG  TASK 

R8C0N  LONGTASK 

A 003  1 

A 003  2 

OCT  31000 

2CADR  JOBAGAIN 

R 003  3 

R 0035 

R 0037 

THIS  WOULD  START  UP  LONGTASK  AT  THE  APPROPRIATE  TIME,  OK  IMMEDIATELY  IF  THE  TIME  HAO  ALREADY  PASSED.  IT  SHOULD 

BE  f ' TED  THAT  JF  EL  TAT  S IN  A SWITCHED  F BANK,  THIS  INF  0 R M AT  0 1 f SHOULD  M IN  THE  BBC ON  OFTHE  2CADP  OF  THE 

TASK.  FR CM  ABOVE,  wE  SEE  THAT  THE  SECOND  PART  OF  THIS  PHASE  WOULD  BE  STARTED  AS  A JOB  WITH  A PRIORITY  JF  31. 

R 0039 
R0G41 

R OCA  3 

R 004-5 

R 0047 

R 0040 

WAITLIST  CALLS  ARE  IDENTIFIED  BY  THE  FACT  THAT  THEIR  2CA0R  IS  STORED  NEGATIVELY.  IF  PRDTTAB  OF  THE  PHASE  SPOT 

IS  POSITIVE,  THEN  IT  CONTAINS  THE  DELTA  TIME,  IF  PRDTTAB  IS  NEGATIVE  THEN  IT  IS  THE  -GENADR  OF  AN  ERASABLE 
LuCA'-INN  CONTAINING  THE  DELTA  TIME,  THAT  IS,  THE  TIME  IS  STORED.  INDIRECTLY.  IT  SHOULD  BE  NOTED  AS  ABOVE,  THAT 

IF  THE  ' TE  IS  STOKIJ  I'-' DIRECTLY,  THE  BBCr,N  MUST  CL  NT  ATI  THE  NECESSARY  E BANK  INFORMATION  IF  APPLICABLE.  WITH 

I T l 1ST  WE  HAVE  NNL  F JR  T HE  R OPTION,  IF  -r  IS  STOKED  IN  P R D 1 A B , IT  WILL  CAUSF  AN  ["MEDIATE  RESTART  OF  THF 

TASK.  EXAMPLES, 

A 005  0 

A 005  1 

OCT  77777  THIS  WILL  CAUSE  AN  IMMEDIATE  RESTART 

-2CADR  ATA.SK  OF  THE  TASK  : AT  ASK : 

A 005  2 

A 0053 
A0054 

A 005  5 

DEC  200  IF  THF  TIME  OF  THE  2 SECONDS  SINCE  DUMMY 

-2CADR  DUMMY  WAS  PUT  ON  WAITLIST  IS  UP,  IT  WILL  BEGIN 

IN  10  MS,  OTHERWISE  I T WILL  BEGIN  WHEN 

IT  NORMALLY  WOULD  HAVE  BEGUN. 
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0083  KEF  3 
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01 .2013 
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0 0010  J 
0 002  0 0 
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0 A02  3 0 
0 GO  10  0 
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0 006?  0 
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0 0160  0 
0 0010  0 
0 Cl  7 1 0 

21000  1 

05155  0 


SI ZET AB 


i . 2 S f 1 


COUNT*  $$/RSTAB 
TO  1.2SPDT  -12006 

TO  1.3SP0T  -12004 
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TC  6 . 3 S POT  -12004 
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2.5SP0T  OCT 

05000 

0096 

REF 

4 

LAST 

239 

E 3 , 1554 

EB  ANK  = 
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00031 

0 

2 . 2 1 SPOT  DEC 

25 

0114 

REF 

3 

LAST 

239 

E7, 1515 

E B A M K = 

DVCMTR 

0115 

REF 

1 

■1  ,205  5 

75771 

1 

-2  C ADR 

'<10,11 

0115 

REF 

1 

01, 2056. 
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0135  RFF  1 0 1 , 2 1 HO 

0136  01,2101 
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3 
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E7 , 1515 

0150 
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2 
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0150 
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0151 

0 1,212  0 

0152 
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3 

LAST 

12* 
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1 
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REF 

1 
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0154 
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015  5 
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REF 

1 
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01  56 

REF 

1 

0 1,2125 

0157 

REF 

3 
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01,2126 

0158 

REF 

1 
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REF 

4 
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241 
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REF 

2 
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REF 

10 
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74235  0 -2CADR  ENGOFTSK 

037  10  1 

12000  1 4.13SPCT  OCl  12000 

E 3 A N K = TRKMKCNT 

03223  1 2CADR  POSTBURN 

74067  0 

(.0764  1 4.15SPCT  DEC  SCO 

E L A N K = TTOGO 

75501  1 -2CADP  tig-30 

03710  1 

77777  0 4 . 1 75 POT  OCT  77777 

E B A N K = DVCNTR 

75423  0 -2CADR  TIG-5 

03710  1 
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EBANK=  STAR 
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o c c 
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]. 
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1 
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REF 

1 
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0 
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0 1,2137 
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1 

4.33SP0T 
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REF 

12 
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E8ANK= 

0169 

REF 

2 
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0 
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016? 

0 1,214  1 

10  0 1 

1 
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1 
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REF 

13 
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0172 

REF 

1 

0 l, 214  1 
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1 
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REF 
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1 
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1 
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REF 
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REF 
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0 2 57  3 

0 
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l 
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0 
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4.CDD 
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GO 
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1 
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14 
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1 
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REF 

1 
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0 
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REF 
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REF 
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24  2 
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0 
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2CQ0Q 

0 
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REF 
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• i f c l • 

U D 1 U 

. O r L.1  i 
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REF 

18 
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24  2 

E7 , 1515 

EBANK= 
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REF 
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242 
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0 

-2CADF 
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0 1,2166- 
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0 
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77777 

0 
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Ci 
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19 
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E BANK  = 
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REF 

1 
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1 

-2CA0R 
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REF 

1 
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0 
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0 
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REF 

20 

LAST 
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0198  REF  1 
0198  REF  1 

R 019?  ANY  MORE  GR.GUP  5.  ODD 


01.2173  7 A 3 6 1 0 -2CA0R 

01.2174  ° 1 7 1 0 0 

h START  VALUES  SHOULD  GO  HERE 


0200  OFF  4 LAST  Rao  01, 

0201  01, 

0202  REF  6 LAST  202  E7, 
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0203  REF  1 01, 

0204  01, 

020 c RFF  2 L A S T 112  F3  , 

0206  REF  1 01, 

0206  REF  1 01, 

0207  01, 

0208  i t-  2 LAST  2'-0  F7, 

0204  REF  1 01, 

0209  PFF  1 01, 
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6.2SP0T 

equals 

2175 

0 0144 

0 

6. 3 SPOT 

DEC 
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E8ANK= 
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-2CADR 

0 17  7 

1 
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2200 

30000 

1 

r . 5 S P 0 T 
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0 
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2202 
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0 

2203 
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1 
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0 
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REF 
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L0W9 

0237 

REF 

8 

LAST 

246 

07 , 2206 

7 131? 

1 

MASK 

MARKSTAT 

0238 

REF 

9 

LAST 

252 

07,2207 

55*312 

1 

TS 

markstat 

0241 

REF 

1 
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2,  RE-DISPLAY  VERB  41. 

?.  SC Hi  OU if  ' R 0 E S K 2 W ITH  PRIORITY  20. 

* . r EtEA^E  EXT  VE°  B 1)1  9 P LAY  SYS. 


P 0187 


AUPLOKON 


R018P 
5 01  ; V 
R 01 or 
R 0194 
R 01 9 e 
R 01951 
r*  0 1 9 c 2 


P 0196 

ROIF7 

0198 

REF 

0190 

REF 

02  00 

REF 

P 0 2 0 1 

1.  FLASH  VO 4 N 12  FI  = 0000b  02  = DC 002 
f ESPOUSES 

A.  TEf M I NATE 

B.  PROCEED 

1.  RESET  LOCK-ON  SWITCH 

2.  SET  CONTINUOUS  DESIGNATE  FLAG 

3.  DISABLE  (25 

C.  V22  E 1 E,  1 1 = 00001,  PROCEED 
1.  Sn  l OCK-ON  SWITCH 

2 LAST  265  43,2171  0 2174  1 VBCOARK  TC  OP/INERT 

1 43,2172  0 2205  1 TC  IMUCOARK  RETURN  HERE  IF  NOUN 

1 43*2173  0 2227  1 TC  oRQESNBK  RETURN  HERE  IF  NOUN 

n E TU?  NS  TO  ! +1  ( F T U K L + 2 IF  PF  . 


I CDU ( 20 ) 
RCDU (72) 


0202 
0203 
02  0^ 


REF 

REF 


3 LAST  263 
2 LAST  222 


- 3,217* 
» 3 » 2 1 
4 3 , 2 1 7 6 


4 6007  1 OP/ INERT  CS  OCT 24 

6 1002  I AD  NCUNREG 

0 0006  1 EXTEND 
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0205 

REF 

2 

LAST 

264 

43,2177 

1 6742 

1 

BZF 

TCQ 

nrr 

1 

a a oonn 

A 5 9 i t a. 

n 

A 

DDT  Ml  111  T P 

IVU  / 

At  r 

) 

‘i-Tt  V 

u 

A U 

In r\  l n uui  r 

02  OS 

43,2201 

G 0006 

i 

EXTFND 

0209 

REF 
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LAST 

157 

^-3, 2202 

1 P-737 

0 

BZF 

Q + l 

0210 

REF 

15 

LAST 

264 

43,2203 

0 2120 

0 

TC 

ALM/END 

0211 

43,2204 

111  13 

1 

LR I MUD I F 

DEC 

-52 

0213 

R EF 

2 

LAST 

265 

43,2205 

0 2375 

1 

IMUCOARK 

TC 

CKMODCAD 

021  A 

REF 

I 

43,2206 

0 2 076 

1 

TC 

rES  FX  ACT 

0215 

REF 

1 

43,2207 

3 222  5 

0 

CAF 

VNLODCDU 

0216 

REF 

19 

LAST 

265 

43,2210 

0 4616 

1 

TC 

B ANKCALL 

0217 

REF 

1 

43,2211 

20334 

1 

CADR 

GUXDSPF 

0213 

REF 

I 

43, 2212 

0 54  72 

0 

TC 

T E is  M EXT  V 

021° 

43,2213 

1 2214 

0 

TC  F 

+ 1 

0220 

•-  EF 

i 

43,2214 

3 22  2 6 

o 

i r nt- 1<  ? 

r a F 

t mi  ir  n a " m 

I 

i vx  u r-  in  c. 

1 I lUVyUAl'  V 

0221 

REF 

20 

LAST 

268 

43,2215 

0 4616 

1 

TC 

BANKCALL 

0222 

REF 

2 

LAST 

207 

43,2216 

20620 

1 

CADR 

EXDSPP  FT 

0223 

REF 

21 

LAST 

26  3 

43,2217 

0 4616 

1 

TC 

B ANKCALL 

0226 

REF 

1 

43,2220 

1 7000 

1 

CADR 

I MUCOARS 

0225 

REF 

22 

LAST 

268 

43,2221 

0 4616 

1 

TC 

BANKCAl L 

0226 

REF 

3 

LAST 

265 

43, 2222 

17716 

1 

CADR 

I MU  ST  ALL 

0227 

REF 

1 

43, 2223 

0 5472 

0 

TC 

ENDEXTVB 

022P 

REF 

2 

LAST 

2 6 8 

43,2224 

0 5472 

0 

TC 

ENOEXTVB 

0229 

43,2225 

062  26 

1 

VNLODCDU 

VH 

2522 

0230 

43,2226 

12200 

0 

IMUCOARV 

VN 

4 100 

3:15  DEC 


AP11AID  .COl  PAGE 


268 
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IF  = 20. 


-52 


ILLEGAL . 

THE  1 MU 

COARSE  ALIGN  FROM  KEYBOARD. 
CALL  FOP  THETAD  LOAD 


FE-DJSPLAY  COARSE  ALIGN  VERB. 


CAL!  MODE  SWITCHING  PROG 


STALL 


GAP 


ASSEMBLE  E VISION  001  f.F  AGC  PROG  AM  AP11RUPE  BY  EYLES 
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L EXTE  ND  VERBS  USEF'S  PAGE  NO.  8 E5  S4 

P 0231  DESIGNATE  TO  DESIRED  GIM8AL  ANGLES. 


0232  REE  3 LAST  2-  . 4 3,222  7 C 2642  0 M DESN6K  7 L ^ DRUSE  C.M 


02 3 p “FF  2 LAST  2s S < 3,2230  0 2076  1 

0235  REF  3 l A " 22'  -3,2231  3 4745  0 

0236  C'£F  18  LAST  231  43,2232  7 0C74  0 

0237  REF  65  LAST  263  43,2233  10  COO  0 

0238  REF  1 43,2234  1 2114  0 

0239  REF  1 -3,  22  35  4 2321  1 

0240  3,2236  0 C004  0 

0241  -EF  U LAST  220  43,2237  7 0110  0 

0242  REF  1 LAST  2-9  43,2240  54  110  0 


TC 

TESTXACT 

CA 

RNDVZB IT 

IS  D 2 C TUNNING? 

MASK 

FI  AGUE  DO 

CCS 

A 

TCP 

X ACT  A L M 

OPERATOP  ERROR  IF 

IN  P 20 

cs 

C C I - I DuO 

TERMINATE  PRESENT 

DES  IGNAT  ION 

IN  HI  01 

PEL  I N?  DONE  IN  GOXDSPF 

MASK 

P ADMODFS 

TS 

p ADMQOFS 

0243 

0244 

REF 

REF 

1 

23 

■ LAST 

268 

43,2241 

4:3,2242 

3 22  60 
0 4616 

1 

1 

CAF 

TC 

V NL  DR CDU 
BANKCALL 

ASK 

FOR 

GIMBAL  ANGLES. 

0245 

A EF 

2 

LAST 

?- 

4 3,224  3 

20334 

L 

CADR 

GOXDSPF 

0246 

024? 

REF 

2 

LAST 

26  8 

4 3, 2244 

4 3 , 2 7 < -7 

0 54  72 

1 2241 

0 

0 

TC 

TC  F 

TERMEXTV 

-4 

V33 

02  4 P 

REF 

24 

LAST 

269 

43,2246 

0 4616 

1 

TC 

BANKCALL 

ASK 

OP 

FOF  LOCK  ON  REQUIREMENTS. 

0240  REF  1 4.3,2247  46000  0 CADP  A UR  L OK  F K 


0250  REE  1 

0251  P EF  ?'  L A CT  2 6° 

0252  REF  3 LAST  268 


43,2250  3 2226  0 

' 3,2251  0 4616  1 

4 3* 22  5 2 20620  1 


CAF  OPTCOAR.  V RE-DISPLAY  CUR  OWN  VERB 

TC  BANKCALl 

CADR  EXDSPRET 


0253  REF  1 

0254  REF  3 LA'"': 

0255  PEE  t LAST 

0256  RFF  1 

0256  REF  1 


43,  2:25  3 3 47  36  1 

244  4 3 , 2254  0 5105  0 

240  E7 , 145  6 

43,225*  02261  0 
43,2256  66107  1 


CAF  PR  I 020 

TC  f I NOV  AC 

E 6 A N K = LOSCOUNT 
2CADF  PPDESK2 


0257 


REF 


3 FAST  269  43,2257  1 5472  1 


TCP 


TERMEXTV 


FREES  DISPLAY. 


0258 

025°  REF  2 LAST  268 


+ 3,226 C 06111  0 VNLD>  CDU  VN  2473 

'3,2226  OPTCOAR V EQUALS  IMIJCOAPV 


DI  FFF r ENT  NOUNS. 


0260 

0261 


REF  26 
" FF  1 


LAST  269 


43,2261 
-r  3, 22  6 2 


0 4616  1 
52475  0 


RRDE5K2  TC 

CADE' 


BANKCALl. 

KRDESNB 


0262 
0262  1 

p Bf 

6 

1 a c t 

02622 

REF 

5 

LAST 

02623 

REF 

66 

LAST 

02624 

REF 

67 

LAST 

0262  5 

P EF 

68 

LAST 

02626 

02627 

RFF 

10 

1 AST 

0263 

REF 

27 

LAST 

0266- 

REF 

3 

LAST 

43,2263 

0 22  o4 

0 

221 

43, 2264 

3 <167 

1 

2.6  8 

43, 2265 

7 5004 

1 

269 

43,2266 

10  000 

0 

26S 

43,2267 

50  000 

1 

26  9 

43,2270 

54  000 

0 

43,2271 

4 0000 

0 

26  9 

43,2272 

26  167 

0 

269 

43,2273 

0 4616 

1 

265 

43,2274 

17714 

0 

TC 

+ 1 

DUMMY  NEEDED  SINCE  DfESRETRN  DOES 

I NCR 

CA 

op IC'ITV 

MASK 

L0W9 

CCS 

A 

INDEX 

A 

TS 

A 

RELEASE  THIS  JOBS  VAC  ARF  A . 

COM 

INSURE  ENDOFJOB  DOES  A MOVAC  END 

(BZMF) . 

ADS 

o c?  x P r;  r T V 

TC 

BANKCALL 

WAIT  FOR  COMPLETION  OF  DESIGNATE 

CADR 

RADSTALL 
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0265 

0266 

REF 

4 

1 AST 

239 

026  7 

REF 

18 

LAST 

26  5 

026  8 
0269 

REF 

5 

LAST 

270 

43.2275  0 2211  1 TC 

43.2276  0 5155  0 TC 

-.3, 227  7 0 5567  0 TC 

4 3,2300  00503  1 OCT 

• 3,2301  0 c155  0 "C 


0270 

0271 
027? 
0277 

02  74 

REF 

REF 

PEF 

p ff 

20 

7 

8 

2 

027  5 
0276 

REF 

21 

0277 

REF 

22 

02771 

REF 

3 

02773 

PEF 

1 

0277** 

P ef 

28 

02775 

REF 

3 

0278 

REF 

1 1 

0279 

REF 

1 

02  60 

REF 

o 

02p  1 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

! AST 


269 
266 

270 

260 

270 

270 

230 

269 
208 
266 

270 


43.2302  10  110  0 

43.2303  1 21210 

63. 2304  1 2121  0 

43.2305  1 2306  1 

43,2366  4 2321  1 

43,2307  0 0004  0 

43,2310  7 0110  0 

'+3,2311  54  110  0 

43.2312  0 6011  1 

43.2313  3 4777  1 

43.2314  0 4616  1 

43.2315  01735  1 

43.2316  0 5516  0 

43.2317  00126  1 

'3,2320  1 2121  0 

43,2321  41000  1 


RKDESEND  CCS 
TCF 
TC  F 
TCF 
Cc 

INHINT 

MASK 

TS 

TC 

CAF 

TC 

CADR 

TC 

ACRES 

TCF 

LCT41C0C  OCT 
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+ 2 

ENDOF JOB 
ALARM 

BADEND-NO  LOCKON  OP  OIJT  OF  LIMITS 
GOODEND-LOCKON  ACHIEVED 

503 

EN  DCF  JOB 

TURN  ON  ALArN  UGHT  -603  DESIGNATE  FAIL 

RADMODES 

GCPIN 

GOP  I N 

+ 1 

TERMINATE  CONTINUOUS  DESIGNATE  ONLY 

OCT  4 1000 

RADMODES 

R ADMCDES 

CLR  ADMOD 

1 S EC 

B ANKCALl 
DELAY  JOB 

BEGDES  GOES  TO  EMDRADAR 

RELINT  DONE  IN  OOWNFL AG 

DOWN FLAG 
NORRMON 

GOP  IN 

ENABLE  F 2 5 GIMBAL  MONITOR 

41000 

CO  !TI  NUOIJS  DESIGNATE  - DESIGNATE 

SAP: 


ASSEMBLE  KE  VIS  I Sly  SOI  UP  A GC  PROGRAM  APUROPE  BY  E YL  E S 


L EXTENDED  VERBS 


028  1 2 
0281  4 

REF 

1 

23,2000 

23,2000 

0 2 O TLA  A 

BALK 
SETLOC 
a a w K 

23 

EXTVB1 

02816 

D M In  IN 

023  1 F 

REF 

1 

COUNT* 

$$/EXTVB 

02°  2 

RFF 

1 

2 3, 2000 

0 464.5 

1 

AURLOKON 

TC 

MAKECADR 

0283 

REF 

2 

LAST 

103 

23 ,200 1 

55'  113 

1 

TS 

DESRET 

0284 

REF 

5 

LAST 

263 

23, 2002 

3 4752 

0 

CAF 

TWO 

0285 

REF 

O 'X  on  A 2 

C C | A tO 

n 

T <; 

noT  T AMY  j.  l 

1 

tt  0 f £\J  V D 

u 

i o 

U r i J,  J lv  A +1 

02  9 6 

REF 

LAST- 

259 

23,2004 

3 6 2 42 

0 

CAF 

SIX 

0286  2 

REF 

2 

LAST 

271 

2 3 , 200  5 

5 c 1 05  1 

0 

TS 

OPTIONX 

02  864 

REF 

1 

23,2006 

3 2037 

1 

-5 

CAF 

V04N1272 

02366 

REF 

29 

LAST 

270 

23,2007 

0 4616 

1 

TC 

BANKCAL L 

02868 

REF 

1 

23, 2010 

20353 

0 

CADR 

GOMARKFR 

02R6C 

REF 

■> 

! AST 

26  4 

23,2011 

1 54  72 

1 

TCF 

ENDEXT 

02  8 7 

2 3 , 20  1 2 

1 2C17 

1 

TC  F 

+ 5 

HOOC 

O 2 >A  I 2 

1 or,  A A 

1 

Trp 

_ c: 

JdL  - 

d J f C\J  1 D 

1 Tl'uO 

1 

1 v_,  1 

0289 

REF 

14 

LAST 

254 

23,2014 

3 4751 

0 

CAF 

B I T 3 

0290 

REF 

1 

23,2015 

0 5464 

1 

TC 

BLANKET 

0291 

REF 

6 

LAST 

27C 

23,2016 

0 5 155 

0 

TC 

ENDGF JOB 

0292 

REF 

3 

LAST 

271 

23, 2017 

3 10  52 

1 

+ 5 

CA 

3 P T T ) N X +1 

029? 

RFF 

21 

LAST 

244 

23 , 2020 

7 4752 

1 

MASK 

BIT2 

0294 

REF 

69 

LAST 

269 

23,202  1 

10  000 

0 

CCS 

A 

0295 

REF 

1 

23,2022 

1 2026 

0 

TCF 

NOLOKON 

0296 

REF 

2 

LAST 

266 

23,2023 

0 5504 

0 

TC 

UPFLAG 

0297 

REF 

1 

23,2024 

00012 

1 

AD6ES 

l.  CKO  NSW 

0298 

REF 

1 

23,2025 

1 2034 

0 

TCF 

AU  ■ IKON  1 

0299 

REF 

12 

LAST 

270 

23,2026 

0 551 

0 

NOLOKON 

TC 

DOWNFLAG 

029°  1 

REF 

2 

LAST 

271 

23,2027 

00012 

1 

ADi  E S 

LOKONSW 

02992 

REF 

3 

LAST 

271 

23,2030 

U 5504 

0 

TC 

UPFLAG 

029°  3 

RFF 

1 

23,2031 

0C2  64 

1 

A Dp  Fr 

COES  FI  AG 

030  2 

REF 

4 

LAST 

271 

23, 2032 

0 5504. 

0 

TC 

UPFLAG 

0303 

REF 

2 

LAST 

270 

23,2033 

00126 

1 

ADRES 

ncrrmon 

0304 

23,2034 

0 0003 

1 

A UP  1 KON 1 

RELINT 

0305 

REF 

3 

LAST 

271 

23,2035 

3 1113 

0 

CA 

DESRET 

0306 

REF 

1 

23,2036 

1 4o40 

0 

TCF 

BANK JUMP 

03C64 

23,2^37 

01014 

0 

V04N1272 

VN 

412 

03065 

23,2040 

77757 

1 

-LOKONFG 

OCT 

-20 

03066 

-‘3,2322 

DANK 

43 

0306  7 

REF 

2 LAST 

262 

43, 20 C (.; 

SETLOC 

EXTVERBS 

0306  e 

43,2322 

BANK 

0306  9 

REF 

2 LAST 

2'- 2 TO 

271 : 

210  210* 

COUNT  * 

$$/EXTVB 

0307 

RFF 

5 LAST 

271 

43,2322 

0 5504 

0 

LRO  N 

TC 

UPFLAG 
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R2  00001  LOCK-ON 


V34 
V33 
V 32 


IF  NO  LOCK-ON,  SET  BIT15  OF  RADMODES  TO 
INDICATE  THAT  CONTINUOUS  DESIGNATION  IS 
WANTED  (TO  BE  TERMINATED  BY  V44.) 

SET  NO  f p ANGLE  MONITOR  FLAG. 

( OT  SABLE  p 25  PR  GI^BAL  MONITOR  t I t^RUPT 


PERMIT 


INCORPORATION  OF  LR  DATA 


V 57 


GAP:  ASSEMBLE  REVISION 001  if  A Go  PPQGl.AO  AP11ROPF  BV  PYLES 


L EXTENDED  VERBS 


0308 

REF 

1 

43,2323 

002  54 

1 

ADRES 

030° 

REF 

10 

LAST 

270 

43,2324 

1 2121 

0 

TCF 

0310 

ELF 

13 

LAST 

21 1 

43, 2325 

0 5 516 

0 LPCFF 

TC 

0311 

REF 

2 

LAST 

27? 

43,2326 

002  54 

1 

A Dr  ES 

0312 

P F F 

1 1 

l A ST 

27  7 

43,2327 

1 2121 

o 

TC.  F 

l l 

031297 

REF 

4 

L A S T 

262 

E5 , 1737 

EbANK 
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GOP  IN 
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P 03 1 3 
R 031  A 
R0315 
R0317 
R 0 3 1 r 
R 03  1 c' 
R 0320 
R 03  2 1 
R 0322 
R 0 3 2 3 
R 0324 
R 032  c 
R 0 3 2 6 
R 032  7 
R 0328 
R 03? c 


IMUFINEK  VE'R  42  DESCRIPTION 

FINE  ALIGN  I MU 

1.  TfrUlkE  EX''  VERB  DISPLAY  AVAILABLE  AND  SET  BUSY  FLAG  OR  TURN  ON  OPEN  ERROF  AND  GO  TO  PINBPNCH. 

2.  DISPLAY  PLASH  I - G V25»N93....MAD  DELTA  GYRO  ANGLES.... 

RESPONSES 

A.  TP'  M I NAt  F 

1.  RELEASE  EXT  VERB  DISPLAY  SYSTEM. 

B.  PROCEED  OR  ENTER 

1.  E-Di SPLAY  VERB  42 

2.  EXECUTE  IMUFINE  ( IMU  FIVE  ALIGN  MODE  SWITCHING). 

3.  EXECUTE  I MUSI  ALL  (ALLOW  FOR  DATA  TRANSFER ) 

A.  FA  I*  FO 

1.  RELEASE  EXT  VERB  DISPLAY  SYSTEM. 

B.  GOOD 

1.  EXECUTE  IMUPULSE  (TORQUE  IRIGS) . 

2.  EXECUTE  SMUS  'AU  AND  RELEASE  EXT  VET  B DISPLAY  SYSTEM. 


0331 

0332 

0333 

0334 

- F F 

REF 

REF 

REF 

3 

3 

1 

30 

LAST 

LAST 

LAST 

268 

269 

271 

'■3,2330 

43.2331 

43. 2332 

43.2333 

0 2375 
0 207c 
3 2357 
0 4616 

1 

1 

1 

1 

IMUFINEK  TC 

TC 

CAP 

TC 

033  c 

REF 

3 

LAST- 

2 ' 

4 3, 2334 

2 0334 

1 

CAD  R 

0336 
033  7 

REF 

4 

LAST 

26  ? 

43 , 23  35 
•'  1,2  33' 

0 5472 
0 2337 

0 

1 

TC 

TC 

REF 
a EF 

1 

31 

LAST 

273 

0338 

0339 

4 3,  2337 

4 3 , 2340 

3 2 3 60 
0 4616 

0 

1 

CAP 

TC 

0340 

REF 

4 

LAST 

26  9 

43,2341 

2 CL  2 0 

1 

CADR 

CKMODC A D 

TESTXACT  FINE  ALIGN  WITH  GYPO  TORQUING. 

VNLODGYR  CALL  FOR  LOAD  OF  GYRO  COMMANDS 

8ANKCALL 

GGXDSPF 

TEFMEXTV 

+1  PROCEED  WITHOUT  A LOAD 

IMUFINEV  RE-DISPLAY  OUR  OWN  VERB 

BAMKCALL 

EXDSPRET 


0341  rTF  32  L AST  273  3, 2 3''  2 4616  l 

034?  REF  1 43,2343  17210  1 


rC  BANKCALL  CALL  MODE  SWITCH  PFOG 

C ADR  IMUFINE 


0343 

REF 

0344 

REF 

0345 

REF 

0346 

REF 

0347 

REF 

0348 

REF 

0349 

TF 

0355 

PEP 

0351 

REF 

0352 

REF 

0353 

REF 

0354 

035  * 

R 0356 

R 0357 

33 

LAST- 

27  3 

43,2344 

0 46  1 6 

1 

TC 

BANKCALL 

L 

LAST 

26  P 

43, 2345 

17716 

1 

CADS 

I MUST ALL 

3 

LAST 

26  8 

4 3,2346 

0 5472 

0 

TC 

ENOEXT VB 

1 

43,2347 

3 2356 

0 

FINEK2 

CAF 

L GY ROB  IN 

34 

LAST 

273 

43,  2350 

0 4616 

1 

TC 

BANKCALL 

A Q OOP  1 

1 70  0 9 

n 

r a r\.D 

T W i 1 D 1 1 1 C C 

■ i 

1 i pxi 

v 
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+ 2 

V33 

0498 

REE 

2 

l AST 

27  3 

43,2547 

1 25  4 2 

1 

TCF 

R04LR 

V32 

06  9 9 

REF 

i 

43, 2550 

3 2634 

1 

TAP 

VI  A M t 7 

nicpi  ay 

ID  V/  I ✓ . l/CI  V. 

VELZ 

( 1/SFC) 

L 

1 

i-A  • 

V 1 Olvu  f 

i.  /\  y v » i ? 

0500 

REF 

42 

LAST 

278 

43,2551 

0 4616 

1 

TC 

BANKCALL 

p 1 

+-  XXXXX. 

FPS 

LR  V( X) 

0501 

REF 

8 

LAST 

278 

43,2552 

2 03  34 

1 

CADP 

GOMARKF 

R2 

+-  XXXXX. 

FPS 

L R V ( Y ) 

0502 

REF 

6-  : 

LAST 

278 

43.7663 

1 2603 

1 

T r f 

o n/.  PM  n 

\/ 

p 3 

+—  XXXXX 

FPS 

LP  V ( Z ) 

O f 6 7 ..0 

1 

V D ~r 

0503 

•REF 

2 

LAST 

278 

43,255/ 

1 2 556 

1 

TCF 

R 04Y 

V33 

0504 

REF 

3 

LAST 

27  6 

43,2555 

1 2542 

1 

TCF 

R041.R 

V32 

0505 

REF 

28 

LAST 

276 

43,2556 

3 4755 

1 

R04Y 

CAF 

ZERO 

TO  TERMINATE 

SAMPLING 

0506 

REF 

2 

LAST 

276 

43,2557 

55 ' 755 

0 

TS 

RSAMPDT 

0507 

REF 

1 

43,2560 

3 5000 

1 

CAF 

2 SECS 

WAIT  FOR 

LAS 

T RADAR UP T 

0508 

fi  EF 

43 

LAST 

278 

43,2561 

0 4616 

1 

TC 

BANKCALL 

0509 

REF 

4 

LAST 

?70 

4 3,256  2 

017  35 

1 

CADR 

DELAYJOB 

0510 

REF 

2 

LAST 

276 

43,2563 

3 2640 

1 

CAF 

1SEC  + 1 

SAMPLE  ONCE 

PER  SECOND 

0511 

REF 

3 

LAST 

278 

43,2564 

55*755 

0 

TS 

RSAMPDT 

0512 

REF 

29 

LAST 

278 

43,2565 

3 4755 

1 

CAF 

ZERO 

FOR  STORING 

RESULTS 

0513 

REF 

3 

LAST 

276 

43,2566 

35 1 754 

1 

TS 

RTSTLQC 

0514 

• E F 

8 

LAST 

27  6 

4 3, 256  7 

3 6 2 +2 

0 

CAF 

SIX 

051  5 

RFF 

5 

LAST 

278 

43,2570 

7 1751 

1 

MASK 

RTSTDEX 

0516 

RFF 

75 

LAST 

27ft 

43,2571 

10  000 

0 

CCS 

A 

0517 

REF 

13 

LAST 

276 

43,2572 

4 4753 

0 

cs 

ONE 

WAS  LR 

051  8 

REF 

7 

LAST 

277 

43,2573 

6 4752 

0 

AD 

TWO 

WAS  RF 

SAP:  ASSEMBLE  REVISION  OOI  OF  AGC  PROGRAM  AP11RUPF  BY  EYLES 


L EXTENDED  VERBS 


0519  REF 


43,2574  1 2462 


TCF 


05191  REF  I 43,2575  3 476c  1 K04K 

05192  REF  4 LAST  273  <4-3,2526  55*755  0 


CAF 

TS 


0520 

RFF 

8 

LAST 

"'2-7  8 

43 , 2577 

3 6 752 

0 

R04-L 

0521 

REF 

2 

LAST 

277 

43,2600 

55*753 

0 

0522 

REF 

9 

LAST 

278 

43,2601 

3 6242 

0 

0523 

REF 

2 

LAST 

277 

43,2602 

1 2511 

1 

0524 

REF 

30 

LAST 

278 

4 3,  2603 

3 67  55 

1 

!■  04  END 

052  c 

REF 

5 

LAST 

279 

43,2604 

55*755 

0 

AC  O 

;lc 

1 a 

L AST 

43, 2605 

3 4744 

1 

U_»  d D 

K-  r r 

tU  O 

0527 

REF 

44 

LAST 

278 

43,2606 

4 6 1 6 

1 

0528 

REF 

5 

LAST 

27  8 

43,2607 

01735 

1 

C52q 

43,2610 

0 0004 

0 

0530 

3 F F 

31 

I AST 

277 

43,2611 

■4  4736 

0 

nccM 

43 .261 2 

43.2613 

0 C 006 
03  012 

1 

1 

U?  J I 

0532 

REF 

18 

LAST 

277 

CAF 

TS 

CAF 

TCF 

CAF 

TS 

CAF 

TC 

CADR 

INHINT 

CS 

EXTEND 

WAND 


0533  REF  1-  LAST  272  +3, 

0534  REF  4 i AST  276  3, 

0535  c-EF  14  LAST  275  43, 


2614 

0 5 516 

0 

TC 

261  5 

00063 

1 

AD:  ES 

2616 

0 5472 

0 

TC 

05351  REF  2 

05352  REF  6 
0535  3 f'EF  31 
05354  REF  6 
053^5  PFF  31 

05356  REF  45 

05357  REF  6 


LAST 

276 

43 

LAST 

276 

43 

LAST 

279 

43 

LAST 

275 

4 3 

LAST 

261 

4 3 

LAST 

279 

43 

LAST 

279 

43 

,2617  3 4741  1 

,2620  54  C 03  0 

,2621  3 '755  l 

,2622  55*755  C 

, 2623  3 '-746  0 

,2624  0 4616  1 

,2625  01735  1 


R77END  CAF 
TS 
CAF 
TS 
CAF 
TC 

CADR 


0 5 3 5 P 

REF 

15 

LAST 

2 79 

43, 2626 

0 c 5 16 

0 

053551 

REF 

2 

LAST 

276 

43,2627 

00117 

0 

053592 

PFF 

1 3 

LAST 

27  8 

43, 2630 

1 2121 

0 

TC 

ADkES 

TCF 


0536 

0537 

0538 
053  c 

05395 

05396 

0540 

0541 

0542  REF  1 
054? 


43,2631 

04110 

0 

43,2632 

04  1 1 6 

0 

43, 2633 

04102 

0 

43 , 2634 

0 4 10  3 

1 

43, 2635 

01014 

0 

43,2636 

14431 

1 

43,2637 

00201 

1 

43 , 264C 

JO  145 

1 

4 76  6> 

43  , Pc'*  1 

00444 

0 

V16N72  VN 
V16N73  VN 
V 1 61)66  VN 

V16N67  VN 
V04N12X  VI 
V50N25X  VN 
2 0 1 F 0 4 OCT 

1SEC+1  DEC 
250MS+1  EQUALS 
L R Pi  SCAL  OCT 


R04X  -1 

250HS+ l 
P SAMP  DT 

TWO 

FT  ST  BAS  E 
SIX 

P 04 C +4 
ZERO 
R SAM POT 
BITS 

BANKCALL 
DELAY  JOB 


B I T 1 4 

CHAN12 

DOWNFLAG 

"04FLAG 

ENDEXT 

EBAMK4 

EBANK 

ZERO 

FSAMPDT 

BIT6 

BANKCALL 
DELAY  JOB 

DOWNFLAG 
1 7 t F L A G 

GOP  IN 

1672 
1678 
1666 
1667 
412 
5025 
0020  1 
101 

CALL  CODE 
444 


3: 15  DEC.  2,1970  AP11 AID  .001  PAGE 
USER ' S PAGE  NO.  13  E4  S4 


SAMPLE  4 LR  CLMPQNENTS  PER  SECOND. 


FOR  LP  EASE  = 2,  MAX  = 3 


ZERO  r S AM P CT 
TO  TERMINATE  5 AMP  L I MG 
WAIT  i.2S  SECONDS  FOR  POSSIBLE 
PENDING  RUPT. 


D I SABLE  PR  AUTO  TRACKER 


SIGNAL  END  OF  104. 


TO  TEFMINATE  SAMPLING 


279 


WAIT  320  MS  FOR  "OSSIBLE 
PENDING  RUPT. 


GAP: 


ASSEMBLE  REVISION  OOl  L)F  AGC  PROGRAM  AP11R0PE  BY  F.YLL  , 


L EXTENDED  VERBS 


054301 

REF 

8 

LAST 

2?7 

43,2642 

4 0077 

0 

RDRUSECK 

CS 

FLAGWRD3 

054302 

REF 

2 

LAST 

220 

43,2643 

7 '741 

0 

MASK 

NR29FBIT 

r t:  a 'i  ( ' ji 

C CC 

7 A 

! A CT 

? 7 P 

11.  ja A 4 

i n no  o 

o 

r rs 

A 

i - cr 

i o 

LA  j 1 

C.  1 O 

V v>  O 

054304 

REF 

1 8 

LAST 

276 

43,264 5 

0 2120 

0 

TC. 

ALM/END 

0543 C 5 

EF 

10 

LAST 

220 

43,2646 

3 0101 

1 

CA 

FLAGWRD5 

054306 

OFF 

2 

LAST 

220 

63,2647 

7 4741 

0 

MASK 

P 77FLBI T 

054307 

REF 

77 

LAST 

280 

43,2650 

10  000 

0 

CCS 

A 

054308 

REF 

19 

LAST 

280 

43,265  1 

0 2120 

0 

TC 

ALM/END 

05431 

REF 

3 

LAST 

228 

43  ,2652 

4 0 1 03 

1 

CS 

FLAGWRD7 

054315 

REF 

2 

LAST 

22  8 

43,2653 

7 4 746 

1 

MASK 

V37FLBIT 

05432 

REF 

78 

LAST 

28  0 

43,2654 

1C  COO 

0 

CCS 

A 

054325 

REF 

1 

63,2655 

1 2662 

0 

TC  F 

CHECKRR 

05433 

REF- 

2 

LAST 

229 

43,2656 

4 0107 

0 

CS 

FI  IRD11 

054335 

REF 

2 

LAST 

229 

43 , 2657 

7 473  5 

0 

MASK 

LRBYBI T 

05434 

REF 

79 

LAST 

28  0- 

43,2660 

10  000. 

0 

CCS 

A 

054345 

REF 

20 

L A S T 

280 

43,2661 

0 2120 

0 

TC 

ALM/END 

05435 

REF 

Q 

LAST 

231 

43,2662 

4 0075 

1 

CHECKRR 

CS 

F LAGwRDl 

054355 

OFF 

F 

43,2  66  3 

7 6747 

o 

M A S K 

T„A(  ]<  R T T 

05436 

REF 

80 

LAST 

280 

43,2664 

10  000 

0 

CCS 

A 

054365 

REF 

1 

43,2665 

1 2672 

1 

TC  F 

CHECKP22 

0t-4366 

REF 

19 

LAST 

2 6 9 

43,266 6 

3 0074 

1 

CKENDBI T 

CA 

FLAGWKDG 

054367 

R E F 

4 

LAST 

26  9 

4 3 , 266 7 

7 4745 

1 

MASK 

' NDVZBIT 

054368 

RFF 

81 

LAST 

280 

43 , 2670 

10  000 

0 

CCS 

A 

054369 

REF 

21 

LAST 

280 

43,267 1 

0 2120 

0 

TC 

ALM/END 

054372 

REF 

7 

LAST 

264 

43 , 2672 

4 1011 

1 

CHECKP22 

CS 

MODREG  « 

C54373 

REF 

1 

43,2673 

6 2677 

0 

AD 

DEC22 

054374 

43,2674 

0 C 006 

1 

EXTFND 

054376 

REF 

2 2 

LAST 

280 

43,2675 

1 2120 

1 

BZF 

ALM/END 

054376 

£>FE 

24 

LAST 

2^3 

43,2676 

r,  r ( ; o 2 

0 

TC 

n 

054377 

43,2677 

00026 

0 

DEC22 

DEC 

22 

0546 

REP 

3 

L AST 

271  TO 

275  : 

50  26C  * 

COUNT  * 

$ $/ ExTV  B 

054  5 

REF 

1 

43,2700 

9 2123 

0 

VB6' 

TC 

CHKPUnH 

0546 

REF 

7 

LAST 

276 

43,2701 

0 2076 

] 

TC 

TESTX ACT 

0547 

REF 

2 

LAST 

27  4 

43,2702 

3 4740 

0 

CAP 

PR  I 04 

0548 

REF 

5 

LAST 

27  4 

43,  27C  3 

0 5105 

0 

TC 

FI NOV AC 

056  o 

REF 

3 

LAST 

118 

E4 , 1600 

EB ANK= 

AL  PH  AS  B 

0550 

REF 

1 

43,2704 

03606 

1 

2C  ADR 

S BANDANT 

055  0 

REF 

1 

43,7705 

66  104 

0 

0551 

REF 

9 

LAST 

277 

43,2706 

0 5155 

0 

TC 

ENDOF JOB 

3:15  DEC.  2 , 197C  API!  AID  .001  PAGE  280 
USER  * S PAGE  NO.  19  E4  S4 

IS  R29  ON? 


YES 

IS  R 77  RUNNING? 


YES. 

IS  SERVICER  RUNNING  AND  HENCE  POSSIBLY 
12  USING  THE  L p ? 

NO 

YES,  IS  P.12  ON? 


YES 

IS  THE  TRACK  FLAG  SET  AND  HENCE  POSSIBLY 
P 20  USING  THE  RP? 

NO,  CHECK  EOF  P22. 

YES,  BUT  IS  IT  P25? 


DEMAND  PROGRAM  OC. 

IF  DISPLAY  SYS.  MOT  BUSY, MAKE  IT  BUSY. 


CALC.  , DISPLAY  S-BAND  ANTENNA  ANGLES 


G AP  * 

L 

P 0552 

ft  0553 

R055* 

R 0555 

ft  0556 

ft  05K7 

R 055  8 

0559 

0560 

056  1 

0562 

0563 

0564 

0565 

0566 

0567 

0568 

0569 

057  6 

0571 

0572 

0573 

0574 

0575 

0576 

0577 

0578 

0579 

058  0 

0581 

058? 

0583 

C584 

053  5 

0586 

0587 

C587 

0588 

0589 

0590 

0591 

0592 


ASSEMBLE  REVISION  11  OF  AGC  PROGRAM  API  H OPE  BY  EYL.ES 
EXTENDED  VERBS 


3: 15  DEC.  2,1970  AP11AI0 
USER’S  PAGE  NO.  20 


.001  PAGE 
E4  S4 


281 


IMUATTCK  VERB  43  DESCRIPTION 

LOAD  I MU  ATTITUDE  EftPCIP  METERS 
1.  tfcQUI  E PGU  Oft  FRESH  START. 

?.  Pr.UUIRE  COAR'  E ALIGN  ENABLE  AND  /. E 1 CDU  SITS  OFF. 

3.  REQUIRE  TEfAT  NEEDLES  BE  OFF. 

4.  EQUFST  L nA0  OF  N22  (VAl'ES  TO  BE  DISPLAYED). 

c.  ON  PR  'CEED  OP  ENTER  RE-DISPLAY  V43  AND  SEND  PULSES. 


REF 

2 

LAST 

260 

REF 

3 

LAST 

180 

REF 

19 

LAST 

279 

REF 

82 

LAST 

280 

ft.  E F 

23 

LAST 

280 

~ EF 

1 

REF 

1 

REF 

2 

LAST 

281 

REF 

24 

LAST 

28  1 

REF 

8 

LAST 

280 

REF 

2 

LAST 

268 

REF 

4 fe 

L A S T 

27-5 

REF 

5 

l AST 

275 

REF 

i - 

! A ^ T 

57  Q 

1 J 

L MQ  1 

REF 

1 

REF 

47 

LAST 

23  1 

REF 

5 

LAST 

273 

KEF 

32 

LAST 

279 

REF 

20 

LAST 

28  1 

REF 

9 

LAST 

279 

REF 

m 9 

LAST 

277 

REF 

i. 

LAST 

99 

REF 

1 

°EF 

1. 

REF 

16 

LAST 

281 

43,2707 

0 

2123 

0 

43,2710 

3 

47  6 3 

1 

47 . 571 1 

n 

PPPA 

T J | £ f 1 i 

UUuU 

1 

43,2712 

02  012 

r\ 

43 ,2713 

10  000 

0 

43,2714 

1 

2120 

l 

43 ,2715 

3 

4355 

0 

43 ,2716 

0 

0006 

1 

43,2717 

06  C31 

0 

43,2720 

7 

4 355 

1 

43,2721 

0 

0006 

1 

43,2722 

1 

2 724 

0 

43,2723 

1 

212  0 

1 

43,2724 

0 

2076 

1 

43,2725 

3 

2225 

0 

43,2726 

0 

4 6 16 

1 

43,2727 

2C.3  34 

1 

43,2730 

0 

5472 

0 

43,2731 

0 

2732 

0 

43,2732 

3 

2745 

0 

43,2733 

0 

4616 

1 

43, 2734 

2 0620 

1 

43,2735 

3 

4 746 

0 

43,2736 

0 

C006 

1 

43,2737 

0 

5 012 

1 

43,2740 

3 

4752 

0 

43,2741 

0 

5203 

0 

032  I 

43,2 74 2 

C2C3  5 

0 

4 3,2743 

64100 

1 

43,2744 

1 

5472 

1 

IMUATTCK  TC 


CHKPOOH 

BITSAE5 


CAP 
EXT  END 

RAND  C HAN 1 2 

CCS  A 

TCP  AIM/ END 

CAF  3 IT  13-14 

EXTEND 

RXOR  CHAN31 

' BIT  13-14 

EX  I' END 
BZE  +2 

rCF  ALM/EMD 


TC 

CAF 

TC 

CAD" 

TC 

TC 

CAF 

TC 

CADP 

CAF 

EX  l' END 
WGR 
CAF 
TC 

FB AMK= 
2 CADP. 


TESTXACT 

VNLOOCDU 
BANK CALL 
GOXDSPF 
ENDEXT 

+ 1 

V43K 

BANKCALL 
EXDSPRET 
B I T 6 

CHAM  2 
TWO 

WAITLIST 

THETAD 

ATTCK2 


TCP 


ENDEXT 


VB  76  - LEAD  I MU  ATT.  ERROR  METERS 

SEE  IF  CO APS F ALIGN  ENABLE  AND  ZERO  I MU 
C DU c B I T c APE  ON 


NOT  ALLOWED  IF  I MU  COA  .SE  OP  IMU  ZERO  ON 

BOTH  PITS  13  AND  14  MUST  BE  1 
INDICATING  THF  MODE  S EL  FC  TED  IS  OFF. 


NEEDLES  IS  OFF. 

EXIT.  NEEDLES  TP  ON. 


V34 

REDISPLAY  OUR  VERB. 


ENABLE  ERROR  COUNTERS. 

PUT  OUT  COMMANDS  IN  .32  SECONDS. 


REF  1 


42,2035 

42,2000 

42,2035 


BANK  42 

SETL  1C  PINBALL?  SOMETHING  II  B42. 

BANK 


REF 


COUNT  * $$/ EXTVfi 


GAP:  ASSEMBLE  ' E V I SI  BN  001  OF  AGC  PROGRAM,  API  IP  OPE  BY  E YLES 


3: 15  DEC 


2,1970  AP11AID  .001  PAGE  232 


L EXTENDED  VERBS 


USER'S  PAGE  NO.  21  E4  S4 


0593 

REF 

10 

LAST 

231 

42 , 2035 

3 4752 

0 

C594 

REF 

25 

LAST 

230 

42,2036 

54  002 

1 

05  95 

REF 

83 

LAST 

20  1 

42,2037 

50  COO 

1 

0596 

REF 

5 

t A S’7' 

23  1 

42,2040 

3 >321 

1 

0597 

42, 2041 

0 0 C 0 6 

1 

059  P 

RFF 

1 

'-,7,2  04  2 

7 2053 

I 

0599 

REF 

26 

LAST 

282 

42,2043 

50  002 

0 

0600 

REF 

2 

LAST 

174 

42,2044 

56  050 

l 

0601 

REF 

27 

LAST 

282 

42,2045 

10  0 .02 

1 

0602 

REF 

2 

LAST 

2-:  1 

42,2046 

1 2036 

1 

0603 

rSf 

1 

42 , 2047 

3 7740 

0 

0604 

42, 2050 

0 0006 

1 

0605 

REF 

6 

LAST 

220 

42,205 l 

05  014 

1 

0606 

REF 

, 4 

LAST 

239 

42,2052 

1 5261 

0 

ATTCK2 
+ 1 


CAF  TWO 

TS  Q 

INDEX  A 

CA  THETAD 

EXTEND 

MP  ATTSCALE 

INDEX  Q 

XCH  CDUXCMD 

CCS  Q 

TCE  ATTCK2  +1 

CAF  13,11,15 

EXTEND 

WOR  CHAN  14 

TCP  TASKOVEP 


PUT  OUT  COMMANDS. 

C DU  WILL  LIMIT  EXCESS  DATA. 


LEAVE  ERROR  COUNTERS  ENABLED. 


0605  I 


42,2053  03146  1 


ATT;'  CAL  E DEC 


0.1 


0607 

0608 

REF 

0609 

061  0 

REF 

061 1 

R 06 1 3 

R 06 1 4 

R0615 

1 . 

R 06  1 6 

R 06 1 7 

R0618 

R 06 1 9 

R 0620 

R 062  1 

R 0622 

R 062  3 

R 0624 

R 0625 

R 0626 

R 0627 

R 062 8 

R 0629 

R 0630 

2. 

R 063  1 

R 06  32 

R 0633 

R 0634 

R 063  5 

R 063  6 

4 

LAST  276 

07,2667 
43,2000 
43, 2745 

BANK 

SETLOC 

BANK 

7 

EXT VERBS 

4 

LAST  280  TO 

29  1 : 

37  297* 

COUNT  * 

$$/ EXTVB 

43,2745 

12600  1 

V43K 

VN 

4300 

V82PERF 

VERB  82 

DESCRIPTION 

REQUEST  f)  BIT  PARAMETERS  DISPLAY  (R3Q) 

AVERAGE  G I S OFF: 

FLASH  DISPLAY  VC4-NC~  . R2  INDICATES  WHICH  SHIP'S  STATE  VECTOR  IS 
T"  BE  : ip  DATED . T M 'IAL  CHOICE  I S THIS  SHIP  (12  = 1).  ASTRONAUT 
CAM  CHANGE  TO  OTHER  SHIP  BY  V22EXE,  WHERE  X NOT  EQ  1. 

SELECTED  STATE  VECTOR  UPDATED  BY  "HISPREC  (OTHPREC ) . 

CALL-.  S i • 30 . 1 (WHICH  CALLS  IFF  CON  MU  + TFFRP/'  A ) TO  CALCULATE 
'■PER  (PEW  I GEE  RADIUS),  PA  PC'  (APOGEE  RADIUS)  , HP  ER  (PE-  I GEE 
HEIGHT  ABOVE  LAUNCH  J AL)  0;  LUNA'  LANDING  STTF),  HAPO  (APOGEE 
HEIGHT  AS  A6  VE)  , <>!  ( T T ME  T 0 >F  - T(3€E  ) , IFF  (TIME  TO 

INTERSECT  300  KFT  ABOVE  PAD  OR  35KFT  ABOVE  LANDING  SITE). 

FLA!  I VI  ( > ),  H PER , 1 F F ) . TFF  IS  -59M59S  IF  IT  WAS 

NOT  COMPUTABLE,  OTHERWISE  IT  INCREMENTS  ONCE  PER  SECOND. 
ASTRONAUT  HAS  OPTION  TO  MONITOR  TP  ER  BY  KEYING  IN  N 32  E. 
DISPLAY  IS  I"  HNS,  IS  NEGATIVE  (AS  WAS  TFF),  ANO  INCREMi&TS 
ONCE  P Er‘  SECOND  ONLY  IF  TFF  DISPLAY  WAS  -5QM59S. 

AVERAGE  G IS  ON: 

CALLS  S'  30.1  AgPRLX  EVERY  TWO  SECS.  STATE  VECTOR  IS  ALWAYS 
FOR  THIS  VEHICLF.  V82  DOES  NOT  DISTURB  STATE  VECTOR.  RESULTS 
OF  S L 30. 1 ARE  RAPO,  "PE”,  HAPO,  HPE  , TPE  , TFF. 

FLASH  MOM  T TO'’  V16N44  (HAPO,  HPEP  , TFF). 

IF  MODE  IS  PI),  THEN  CALL  DEL  RS  PL  SO  ASTRONAUT  CAN  MONITOR 
RESULTS  BY  N50F.  SPLASH  COMPUTATION  DONE  ONCE  PER  TWO  SECS. 
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0637  REF  9 LAST  281  63,2746  0 2076  1 V82PERF  TC  TESTX ACT 


06  3 6 
063  9 
06A0 

0641 

0642 


REF  2 
REF  2 

REF  1 
REF  1 


LAST  273 
LAST  275 


43, 2747 
43,2750 
4^,2751 

43. 2752 

43.2753 


3 5021  1 
0 5146  I 
0 0006  1 
3 2755  1 

0 5165  0 


CAE  PRI07  LESS  THAN  LAMBERT.  R30,V82 

TC  PRIOCHNG 

EXTEND 

OCA  V82C0N 

TC  SUPOXCHZ  V82CALL  IN  DIFF  SUPERBANK  FROM  VE2PERF 


0643 

0644 
0644 


REF  2 LAST  117  £4,1716  EBANK=  HAPO 

■ EF  1 43,2754  03242  0 V32CON  2CADR  V82CALL 

-'EF  l 43,2755  44  104  1 


R06A5 
R 0646 
R 0647 
R 064  8 
R 064  c 
R 0650 
R 065  1 
R 065  2 


VB83PERF  V EE  B 83  DESCRIPTION 

..REQUEST  RENDEZVOUS  PARAMETER  DISPLAY  (R31 ) 

1.  SET  E XT  VEf  B O'. .PLAY  BUSY  Ft  AG. 

2.  SCHEDULE  - ? 1 CALL  WITH  PRIORITY  r- . 

A.  DISPLAY 

R1  RANGE 
R 2 RANGE  RATE 
R3  THETA 


0653 

REF 

10 

LAST 

283 

43,2756 

0 2076 

1 

Vi:  3PE'  F TC 

TESTXAC  T 

0654 

REF 

23 

LAST 

277 

43,2757 

3 47  52 

0 

C AF 

B IT2 

0655 

0656 

REF 

REF 

10 

1 

LAST 

281 

43,2760 
E7 , 1611 

0 5203 

0 

TC 

E B A N K = 

WAITLIST 

TSTRT 

0657 

REF 

1 

43,276  1 

0367'+ 

1 

2CADR 

R 31  CALL 

0657 

REF 

1 

43,276 2 

60  107 

1 

065  a 

REF 

10 

LAST 

230 

43 , 2763 

n 515  5 

0 

TC 

ENDOF JOB 

R0659  VERB  89  DESCRIPTION  RENDEZVOUS  FINAL  ATTITUDE  ROUTINE  (P63) 


R 06 6 C CALLED  BY  VERB  89  £ HT E ’ HU  ! ' 3 POO.  PRIG  10  USED.  CALCULATES  AND 
R0661  DISPLAYS  FINAL  F 0 A 1 BALL  ANGLES  ' 0 POINT  LM  +X  ’r  +Z  AXIS  AT  CSM. 

R 066 2 1.  KEY  IN  V 89  E ONLY  IF  IN  PROG  00.  IF  NOT  IN  POO,  OPERATOR  ERROR  AND 

R 066  3 EXIT  P63,  OTHERWISE  CONTINUE. 

R 06  6^  2.  IF  > H PC' , DO  I MU  STATUS  CHECK  1 IT  I N E <r  L 2BC-TH)  . IF  IMU  nN  AMD  ITS 

R 066  5 ORIENTATION  KNOWN  Tf  LGC , CONTINUE. 

R 0666  3.  FLASH  DISPLAY  V 04  N 06.  R2  INDICATES  WHICH  SPACECRAFT  AXIS  IS  TO 

R 0667  BE  POINTED  AT  CSM.  INITIAL  CHOICE  IS  PREFERRED  (+Z>  AXIS  (F.2=L). 

R 0668  ASTRONAUT  CAN  CHANGE  Ti  (+X)  AXIS  (R2  NOT  = 1)  BY  V 22  E 2 E.  CONTINUE 

R 0669  AFTER  KEYING  IN  PROCEED. 

R 0670  4.  8nTH  VEHICLE  STATE  VECTi  CS  UPDATED  BY  CONIC  EOS. 

R0671  3.  HALF  MAGNITUDE  UNIT  LOS  VECTOR  (IN  STABLE  MEMBER  COORDINATES)  AND 


3:15  OEC 


001 


PAGE 


284 


SAP: 

L 

R Of  72 
R 0673 

R 0674 
R 0675 


R Of  7f 
R 0fc77 
R 067  8 


0670 
0680 
06  8 1 
0682 
0683 
068* 
068* 
0685 

R0686 
R 068  7 
R Of  3 8 
r 06  8° 
R 0690 
R0691 
R 0692 
R 0693 
DOfc  > 4 
P 060  R 

0696 

0697 

0698 

0699 

0700 

0700 

0701 
R 0702 
R 07  03 
R 0704 

0705 

0706 

0707 
070P 
0709 

R 07  1 0 

P 071  1 
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HALF  MAGNITUDE  UNIT  SDACECPAFT  AXIS  VECTUF  (IN  BODY  COORDINATES) 
PREPARED  FOR  VECPOINT. 


6.  TIMBAL  ANGLES  FROM  VECPOINT  TRANSFORMED  INTO  FDA!  BALL  ANGLES  BY 
PAL  LANGS.  FLASH  DISPLAY  J 06  N 18  AND  AWAIT  RESPONSE. 


7.  RECYCLE  - RETURN  TO  STEP  4. 

TERMINATE  - EXIT  P63. 

D CALL  RoOlEH  FOR  ATTJ  TIJDE  MANEUVER. 


PEF 

3 

LAS'" 

281 

43, 2764 

0 

2123 

0 

P.EF 

1 1 

LAST 

283 

43,2765 

0 

2076 

1 

REF 

1 

43, 2766 

3 

4737 

0 

REF 

6 

LAST 

280 

43,2767 

0 

5105 

0 

REF 

3 

LAST 

118 

E4 , 1606 

F FF 

1 

43,2770 

02022 

0 

REF 

REF 

I 

11 

43 , 277  1 

5**  1 Q4 

o 

LAST 

283 

43,2772 

0 

5 155 

0 

REF 

REF 

REF 

EF 

PEF 

REF 

REF 


3 

7 

2 

1 

1 

12 


TO 

OAF 

TO 


CHKPOOH 
TESTXACT 
PRI CIO 
FINDVAC 


EB ANK  = RONE 
2CADR  V89CALL 


TO 


ENDOF JOB 


V9QPEFF  VERB  90  DESCRIPTION 

■■I  QUEST  o' : UEZ  VO  US  TUT-  IF  -P  L A' ! f DISPLAY  ( .36) 

1.  SET  EX'  VERB  DISPLAY  BUSY  FI  AG. 

7.  ''  CMEDULE  3 6 CALL  KITH  PRIORITY  10 
A.  DISPLAY 

TIME  OF  EVENT  - HOURS  , MINUTES  , SECONDS 
Y TUT-  F-fLANE  PDSIT..U  - NAUTICAL  MILES 
YODT  OUT-OF-PLANE  VELOCITY  - FFET/SECOND 
PSI  ANGIE  BTW  LINE  OF  SIGHT  AND  FORWARD 

I) I ' FCT  1'  N VECTOR  I N HOP  IZORTAL  PLANE  - DEGREES 


12  LAST 


LAST 
l AST 
LAST 


284 
283 
2 84 

i ie 


43,2773  0 2076  1 V90PERF  TO 


TESTXACT 


LAST 
HI  NT  HP 


284 


43.2774 

43.2775 
E4 , 16  0/ 

43.2776 

43.2777 
43,3000 

VERB  76 


3 5021  1 
0 5105  0 


02656  0 
10104  0 
1 5155  1 


OAF  PFIC7 

TC  FINDVAC 

EB  ANK=  R PASS 3 6 
2CA0R  R 36 


R 3 6 , V 9 0 


TC  F 

description 


ENDOF JOB 


MINIMUM  IMPULSE  MODE 

1.  SET  vi NT  MUM  IMPULSE  RHC  MODE  FLAG  TO  I. 


43,3001 

0 

0004 

0 

MINIMP  INH 

RFF 

4 

LAST 

219 

^3,3002 

4 

011  1 

1 

CS 

REF 

1 

43, 3003 

7 

4 73  5 

0 

MAS 

REF 

5 

LAST 

284 

43 , 3004 

26 

1 1 1 

1 

ADS 

PEF 

14 

LAST 

279 

43,3005 

1 

2121 

0 

TC  F 

NOMIM 

IMP 

VERB  77 

DESCRIPTION 

DAPBCOLS 
PULStS 
DAP BOOLS 
GOP  IN 


PULSES  = 1 INDICATES  MIN  IMP  MODE 
RETURN  VTA  P I N BENCH 


RATE  COMMAND  MODE 


GAP:  ASSEMBLE  REVISION  001  OF  AGC  PROGRAM  AP11RUPP  BY  EYLES 

L EXTENDED  VERBS 
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R 07  1 2 1.  SET  MINIMUM  IMPULSE  RHC  MODE  FLAG  TO  0.  (ZERO  INDICATES  NOT  MINIMUM  IMPULSE  MODE.). 

R 071 4.  2.  MOVE  CDUX  ,CDUY  ,CDUZ  INTO  CDUX  D,  C DUY  D , CDU  Z D . 


0716 
0719 
07  ? n 

REF 

D f. 

2 

• £ ■ 

LAST 
! AST 
LAST 

2 84 

2 #4 
285 

43 , 3CC6 
43 , 3007 

43 .3010 

43.3011 

U f z.1 

0721 

E 1 

REF 

o 

7 

0722 

REF 

1 1 

LAST 

245 

43, 3012 

0723 

072* 

REF 

REF 

1 

15 

L4ST 

284 

43.3013 

43.3014 

0 0004 
4 4735 

7 Dili 

0 

0 

1 

Nt  MIN  IMP-  JMHINT 
CS 

MASK 

PULSES 
DAP BOOLS 

54  111 

1 

TS 

DAPBOOLS 

0 46  7* 

0 

TC 

I BNKCAL! 

*0153 

1 

CADR 

Z ATT  I 

0 212  1 

1 

TC 

GOP  IN 

PULSES  = 0 NOT  IN  MINIMUM  UMPULSE  MODE 


GAP: 

ASSEMBLE  REVISION  CC1  OF  AGC  PROGRAM  API  HOPE  BY  EYLES 

3: 15  DEC.  2, 

1970 

AP  1 1 A I D 

.001  PAGE 

L 

EXTENDED  VERBS 

USER • S 

PAGE 

NO.  2 5 

E4  S4 

P 07?  f1 
R 073c 
R0740 
R 0741 
R 0742 
R 0743 


CREWMANU  VERB  4°  DESCRIPTION 

START  AUTOMATIC  ATTITUDE  MANEUVER 

1.  REQUIRE  PRQGRA<;  00  ACTIVE. 

2.  SET  EXT  VERB  DISPLAY  BUSY  Ft  AG. 

3.  SCHEDULE  R62DISP  WITH  PRIORITY  10. 

. i-  LEASE  EXT  VEER  DISPLAY. 


..z 


R 0744 
R 07 45 
R 074  6 
R 0747 
R 0748 
R074P 
P 0750 
P 0752 
R 0753 
R 0754 


P62DI  SP 

1.  DI SPLAY , FLASHING  V06,N22. 

RESPONSES 

A.  TERMINATE 

1.  GC  TO  GOT'  1 POnH . 

B.  PROCEED 

1.  SET  3AXISFLG  TO  INDICATE  MANEUVER  IS  SPECIFIED  BY  3 AXIS. 

2.  EXECUTE  A fc  CL  EM  (ATTITUDE  MANEUVER). 

C.  ENTER 

1.  REPEAT  FLASHING  V06.N22. 


0755 

REF 

4 

LAST 

2 84 

43,3015 

0 

2123 

0 

CREPMANU  TC 

CHKPOOH 

075  6 

REF 

13 

LAST 

284 

43,3016 

Q 

2 C 76 

1 

TC 

TESTX ACT 

075  7 

REF 

2 

LAST 

284 

43, 3017 

3 

4737 

0 

CAF 

PR  101 0 

075  R 

REF 

9 

LAST 

284 

43,3020 

0 

5105 

0 

TC 

F T MOV AC 

075° 

REF 

2 

LAST 

135 

E6 , 1676 

EBANK= 

BCDU 

076  0 

REF 

1 

43,3021 

02103 

1 

2C  ADR 

R62D I SP 

0760 

REF 

1 

43,3022 

46106 

1 

07  6 1 

REF 

13 

L AST 

2 8 4 

43, 3023 

0 

5155 

0 

TC 

ENDOF JOB 

)" 
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P 0762  TPMTRACK  VERB  56  DESCRIPTION 

R 076 3 TERMINATE  TRACKING  ( P20  AND  P25 ) . 

R0764  1.  KNOCK  DOWN  RENDEZVOUS,  TRACK,  AND  UPDATE  FLAGS. 

R 0765  2.  - EOUIRE  P 2 C H P25  MOT  RUNNING  ALONE  OP  GO  TO  GCT0POOH  (REQUEST  PROGRAM  00). 

R0767  3.  SCHEDULE  Vr  3T0VAC  WITH  PRIORITY  30. 


R 076  P 
R 07  69 
R 077  1 
R 077 2 


V56TPVAC 

1.  EXECUTE  INTSTALL  (IF  INTEGRATION  IS  RUNNING,  STALL  UNTIL  IT  IS  FINISHED.). 

2.  ZERO  G;  ''UP  2 TQ  HALT  P20. 

3.  TPANSFE-  Control  ti  go  prog 2 (Software  restart). 


0773 

REF 

1 

63 , 3026 

3 3044 

1 

TRMTRACK 

CA 

B ITS°  + 7 

IS  REND  HI  P25  FLAG  ON 

0776 

REF 

20 

LAST 

280 

63 , 3025 

7 CO 76 

0 

MASK 

FLAGWRDO 

0775 

63,3026 

0 0006 

1 

EXTEND 

07  76 

REF 

16 

LAST 

2,85 

43,3027 

1 2121 

0 

BZF 

GOP  I N 

NO 

0777 

REF 

16 

LAST 

279 

43,3030 

0 5516 

0 

TC 

DOWN FLAG 

/\  ny  r c 

r?  Mi  n/  ? p i n 

0779 

REF 

17 

LAST 

287 

63,3032 

0 5516 

0 

TC 

DOWNFLAG 

A7«n 

AIVJC.C 

D ocrjr  i A n. 

07803 

REE 

IP 

LAST 

2 87 

63,3036 

0 5 516 

0 

rc 

DOWNFL  AG 

ENSURE  SEARCH  FLAG  IS  OFF 

07806 

REF 

1 

63,3035 

00037 

0 

AD°  ES 

SPCHOPTN 

0781 

REF 

2 

LAST 

280 

63,3036 

3 4747 

1 

CA 

TRACKBIT 

IS  TRACK  FLAG  ON? 

0762 

REF 

10 

LAST 

230 

63,3037 

7 007  5 

1 

MASK 

FLAGWRD1 

078  3 

63,3060 

0 0006 

1 

EXTEND 

0786 

REF 

17 

LAST 

287 

4 3 , 306  1 

1 2121 

0 

BZ  F 

GOP  IN 

07861 

REF 

10 

LAST 

275 

63,3062 

0 4635 

0 

TC 

POSTJUMP 

0736  2 

REF 

1 

63,  3063 

64054 

1 

CADR 

TRMTEAK1 

078625 

63 ,3064 

005  DC 

1 

B1TS9+7 

OCT 

900 

078^3 

nEF 

3 

LAST 

42, 2000 

setloc 

SB  AND 

BANK  42 

07866 

42,2054 

BANK 

0786  5 

REF 

2 

LAST 

28  1 TL 

282: 

15 

13  4 

COUNT * 

SSZtXTVB 

0765 

REF 

19 

LAST 

287 

42,2056 

0 5516 

0 

1 MTP AK  1 

TC 

DOWNFLAG 

0786 

REF 

1 

42,2055 

00027 

1 

ADP  ES 

UPDATFI.G 

UPDATE  FI  AG  DOWN 

0787 

REF 

20 

LAST 

287 

42, 2056 

0 5516 

0 

TC 

DOWNFLAG 

0788 

REF 

1 

42,2057 

00031 

0 

ADRES 

TRACKFl G 

TRACK  FLAG  DOWN 

0789 

r E F 

21 

LAST 

237 

42,2060 

0 5516 

0 

TC 

DOWNFLAG 

0790 

REF 

2 

LAST 

2 31 

42,206  1 

00007 

0 

ADrj  E S 

I MUSE 

0791 

REF 

6 

LAST 

25  2 

62,2 062 

0 6037 

0 

TC 

INTPRET 

0792 

42,2063 

77624 

1 

CALL 

0793 

REF 

3 

LAST 

236 

42, 2064 

27414 

0 

INTSTALL 

DONT  INTERRUPT  INTEGRATION 

287 
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0794 

42,2065 

77776 

1 

EXIT 

0795 

REF 

2 

LAST 

2 28 

42,  20,66 

0 53.53 

1 

TC 

PHASCHNG 

0796 

42 , 206  7 

Of;  0 02 

0 

oc  r 

2 

07°7 

> 2,  3070 

0 0004 

0 

INHINT 

0798 

REF 

12 

LAST 

235 

42,2071 

0 4674 

0 

TC 

I BNKCALL 

0799 

REF 

1 

42, 2072 

40165 

1 

CADR 

STOPRATE 

0800 

REF 

13 

LAST 

288 

42, 2073 

0 46  79 

0 

TC 

I BNKC.AL  L 

OE  0 1 

REF 

1 

42,2074 

40123 

0 

CADR 

R ESTORDB 

0802 

REF 

4 

LAST 

270 

42,2075 

0 6011 

1 

TC 

CLRADMOD 

0804 

REF 

, 32 

LAST 

279 

42,2076 

4 4736 

0 

CS 

BIT14 

0805 

42,2077 

0 n 0 06 

1 

EXTEND 

0806 

REF 

21 

LAST 

231 

42, 2100 

0 3 012 

1 

WAND 

CHAN 12 

0807 

REF 

l i 

LAST 

2 37 

42,2101 

0 

TC 

pr<U  P |M  r 

\J  , J 

0808 

REF 

2 

LAST 

230 

42,210 2 

12770 

1 

CADR 

GGPP0G2 

R081Q 

DNEOJHP 

VERB  74 

□ESC  IPTICN 

R 08  I 1 

INI';  I A L I Z E DOW'1- 

-TELEMETRY  PROGRAM 

FOR  E r A S 

ABI  F MEMORY 

P 06  1 2 

1 

c ' El 

EXT  VET  B 

DISPLAY 

BUSY  FLAG. 

R 081  3 

2 

. REPLACE  CURRENT  DCWNLIST 

WITH  ERASABLE 

MEMORY. 

R 08 1 4 

3 

. PELE 

ASE  EXT  ' 

VERB  DISPLAY 

• 

§814  5 

KEF 

5 , 

LAST 

2 8.2 

43,2060 

SETLCC 

EXTVERBS 

08196 

43,3045 

BANK 

08197 

s EF 

: 8 

L ART 

28?  TO 

287: 

64  361  * 

COUNT* 

$$/EXTVB 

oeis 

0400 

EB ANK= 

400 

0816 

n ef 

1 

43,3045 

3 3050 

1 

DNEDUMP 

CAF 

LDNDUMP I 

0817 

REF 

3 

LAST 

2 19 

4 3, 304  6 

54  335 

0 

TS 

DNTMGOT f 

08  1 8 

REF 

1 

LAST 

287 

4 3 , 3G4  7 

0 2 121 

1 

TC 

GOP  IN 

0819 

REF 

2 

LAST 

262 

43,3045 

V74 

EQUALS 

DNEDUMP 

0820 

REF 

1 

43,3050 

03707 

1 

LDNDUMP 

1 REMADR 

DNDUMPI 

R 0821 

P 0822 

R 0823 

LEMVEC  V C F.  B 3 0 

UPDATE  LEM  STATE 
RESET  VFHUPFLG 

VECTOR 
TO  0 

DESCRIPTION 

0825 

REF 

22 

LAST  237 

43,3051 

0 5 516 

0 

LEMVEC  TC 

DOWN FI  AG 

0826 

REF 

1 

43,3052 

00026 

0 

ADR  ES 

VFHUPFLG 

082  7 

R 0828 

R 0829 

RFF 

1 

CSMVEC 

UPDATE 

43 , 3053 
VERB  81 

CS  M STATE 

0 3056 

VECTOR 

1 

TC 

DESCRIPTION 

N OOP DOWN 

3:15  DEC.  2,1970  AP11AID  .001  PAGE  288 
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KILL  GROUP  2 to  HALT  P20  ACTIVITY 

ZERO  THE  COMMANDED  RATES  TO  STOP 
MANEUVER 


CLEAR  BITS  10  + 15  OF  RAOMODES. 
DISABLE  LOCKON 

CAUSE  RESTART. 

DUMP. 


VB  80 


VF  HUP  F LG  DOWN  INDICATES  LFM 


GAP  : 


l 

R 0630 


083? 
083  3 


0634 

083? 


0836 

R 084? 
R 0843 
P 0844 

0845 

0846 


084  7 


ASS  t •'■Mil.  E REVISION  001  OF  AGO  PkUG-AM  APIIkCPE  BY  £ Yl  t S 
EXTENDED  VERBS 


SET  VEHUPFLG  TO  1 


REF 

8 

LAST 

276 

■“  3,3054 

0 5504 

0 

CSMVEC 

TC 

REF 

2 

LAST 

2«  8 

43,3055 

0 0026 

0 

ACRES 

n c c 

23 

1 AST 

28  8 

43, 3CC6 

0 5 5 1 

0 

NCI  UP  DOWN 

TC 

■ tr 

REF 

I 

43,3057 

000  30 

1 

ADRES 

REF 

19 

LAST 

3 - 

..  4 3,  3060 

1 2121 

0 

TC  F 

UP DAT  OFF  VERB°5  DESCRIPTION 

INHIBIT’ 'STfir£  VFCTnr  UP  DA  TE  S BY  INC  O'  P 


SFT  NOUPPLAG  TO  1 


REF 

, 9 , 

LAST 

2 o 9 

43,3061 

0 5504 

0 

UPDATOFF  TC 

REF 

2 

LAST 

2 89 

43,3062 

0CC30 

1 

ACRES 

REF 

20 

LAST 

289 

4 3,3063 

0 2121 

l 

TC 

3:15  DEC.  2,1470  AP11AID  .001  PAGE 
USER'S  PAGE  NO.  28  El  S4 

U PEL  AG 

V EH 'JP  FI  G VB  81  - VEHUPFLG  UP  INDICATES  CSC 

OOWNFLAG 

NOUPFLAG 

GOP  IN 


UPFLAG  VB  95  SET  NOU°FLAG 

!\ CUPFLAG 

GORIN 


289 
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L EX'  ENDED  VFP'3 


P 0848 

SYSTE 

ST 

VERB  92 

DESCRIPTION 

R084S 

OPE 

RATE  I 

MU  PERFORMANCE  T 

EST 

• 

ROSSO 

1 

. REQU 
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122° 

1230 

REF 

1231 

REF 

1232 

1233 

REF 

1234 

REF 

123  5 

REF 

1 


2 LAST  3? 
2 LAST  299 


2 LAST  299 
2 LAST  299 


2 LAST  299 
4 LAST  299 

2 LAST  270 
A LAST  2°9 
7 LAST  2?o 


40,2047 

40.2050 

40 .2051 

40.2052 

26203 

0C001 

7 7 A 4 1 

1 

0 

1 

0 

06516 

40,2053 

24023 

0 

40 ,2054 

>0001 

0 

40,2055 

77641 

1 

40,2056 

00007 

0 

40,2057 

34021 

0 

40,2060 

47320 

0 

40,206  l 

43244 

1 

40,2062 

60064 

0 

40,2063 

06530 

1 

40 , 2064 

02201 

0 

, 40,2065 

77776 

I 

40,2066 

3 A 77  7 

1 

40,2067 

0 46  16 

1 

40,2070 

01735 

1 

STOVL 

DOT 

STOVL 

DOT 

STCALL 

BPL 


STORF 

EXIT 

CA 

TC 

C ADR 


R R— EL  E V 
OD 

UNITY 
S I NTH 
OD 

6D 

COST  H 
ARC':’  RIG 
DAD 
+ 2 

OPPCSMAX 

RR-AZ 


1 SEC 

3 AN KC ALL 
DELAY  JOB 


1236 

1237 

1238 

REF 

REF 

16 

7 

90 

LAST 

LAST 

254 

263 

40, 207  1 
4 0, 207  2 

r.  ef 

LAST 

2^4 

3,2073 

1235 

REF 

2 

LAST 

299 

40 ,2074 

1240 

REF 

25 

LAST 

295 

40,2075 

3 

4747 

1 

CA 

R IT5 

7 

J 

1 

MASK 

EXTVBACT 

10 

000 

0 

CCS 

A 

0 

2 0 1 7 

0 

TC 

RRIOSDSP 

0 

5 47  2 

0 

TC 

ENDEXT 

1241 


40,2076 


04070  1 V16N56  VN 


1656 


3: 15  DEC 


2,1970 


API  LAID 


001  PAGE  300 


USER'S  PAGE  NO.  39 


E4  S4 


INSURE  DISPLAY  Of  0 - 360  DEG. 


INTRODUCES  AN  ERROR  OF  B-28  REVS 


SAP : 
L 

P II 


R 1001 

R 1002 
R 101 
R l 

RIO  5 
R 100 
R 1007 


R 1006 

R 100° 

R 1010 
R 1011 
R 1012 
R 1013 
R 1014 
R 1015 
R 1016 
R 101  7 
R 1018 
R 1 01 0 
R 102C 
R 1021 
R 1022 
R 10221 
R 10222 
R 102  2 3 
R 10224 
R 1023 


R 1024 

R 1025 
R 1026 
R 1026 5 
R 1027 
R 102  8 
R 102  0 
R 1030 
R 1031 
R 1032 
R 103? ) 
P 10322 
R 1034 


ASSEMBLE  RE  VIS  I JN  001  OF  AGO  PROGRAM  API IROPE  BY  EVLES 
PINBALL  NOUN  TABLES 

THE  FOLLOWING  REFERS  TO  THE  NOUN  TABLES 


3:15  OFC.  2,1870  AP11AID 
USER'S  PAGF  NO.  1 


.001  PAGE 
FO  54 


COMPONENT  CODE  NUMBER  INTERPRETATION 


00000 

00001 

00010 

X1XXX 

1 xxxx 

END  OF  COMPONENT  CODE  NUMBER 5 


1 C(  TP ON ENT 

2 COMPONENT 

3 COMPONENT 

BIT4  = 1.  DECIMAL  ONLY 
B I T c = 1.  NO  LOAD 


SF  ROUTINE  CODE  NUMBER 


INTERPRETATION 


00000 
00001 
00010 
00011 
0 K 
00101 
CC  1 10 
00111 
010"" 

010C  1 


010  1 " 
"1011 

01100 

01101 
END  OF 


OCTAL  ONI Y 
STRAIGHT  FT  ACTIONAL 
COU  DEGREES  ( XXX. XX ) 

ARITHMETIC  SF 

ARITH  DPI  OUT (MULT  BY  2EXP14  AT  END) 

ARITH  DP2  OUT (STRAIGHT) 

LANDING  r A 0 A ' ‘ PPG  IT  ION  (+OOOOX) 

A'  ITH  DP 3 OUT  ( SI.  7 AT  END  ) IN  ( 

WHOLE  HOURS  IN  PI,  WHOLE  MINUTES  ( MOD  60) 

SECONDS  (MOD  60)  OXX.XX  IN  R3  . ***  ALARMS  IF  USED  WITH  OCTAL 
MINUTES  (MOD  601  IN  D1D2,  D3  BLANK,  SECONDS  (MOD  60)  IN  D4D5 
LIMITS  TO  59B59  IF  MAG  EXCEEDS  THIS  VALUE. 


I N ( STRAIGHT  ) 

IN (SI  7 AT  END) 

STRAIGHT ) 

IN  R2  , 


ALA-  MS  IF  USED  WI TH  OCTAL 
ARITH  DP4  OUT  (STRAIGHT) 

APITH1  SF  OUT ! MULT  BY  2FXPI4  AT  FNO ) 

2 INTEGERS  IN  D1D2,  D4D5,  D3  BLANK. 

ALARMS  IF  USED  WITH  OCTAL 
3LA-C  D0  DEG  EES  (XXX.  XX) 

SF  ROUTINE  CODE  NUMBER  S 


********  If  (ALARM) 
IN  (SL  3 AT  END) 

I M ( ST"  A I GHT ) 

********  I hi  (ALARM) 


SF  CONSTANT  CODE  NUMBER 


INTERPRETATION 


00000 
00000 
00000 
OOP.  01 
00010 
00010 
000.11 
DC  1 OP 
00101 
00101 

00110 


WHOLE 

DP  TIME  SEC  ( XXX. X 
L POSITION  (+0000 
SPARE 

COU  DEGREES 
3 6o- COU  DEGREES 
UP  DEGREES  (90)  XX 
DP  DEGREES  (360)  X 
DEG-  FES  (1-80)  XXX. 
OPTICAL  TRACKER  AZ 


USE  A-,  ITH 

X SEC)  USE  ARITHDP1 
X)  USE  IP  POSITION 

USE  C DU  DEGREES 
USE  360-CDU  DEGREES 
•XXX  DEG  USE  ARITHDP3 
XX.  XX  DEG  USE  AH  IT  HD P4 
XX  DEG  USE  M ITH 
IMUTH  A IGL E ( XXX.XXDEG) 
USE  ARITHDP1 
USE  ARITH1 


301 


WE  I GHT  2 (XXXXX.  LBS) 


GAP:  ASSEMBLE  EVISIgN  001  OF  AGO  PROGRAM  APllRCPt  BY  EYLES 


3:15  DEC 


PAGE 


302 


. 2,1970  API 1 AID  .001 


L P 1 N BA  I 1 NOUN  TABLES 


USER'S  PAGE  NC.  2 


EO  S^ 


R 103  5 00111 

R 10351 

R 1037  01000 

R 10371 

R103P  010  01 
P 103  ° 01010 

R 1040  01011 

R 1041  01100 

R 1042 

R 1043  01101 

R 1044 

R IC45  0111 
R 1046 

R 1047  01111 

R 1048 

R 104c  10000 

P105C  100C1 

P 1051 

R 1052  10010 

R 1053 

R 1 0 5 A icon 

R 1055 

F 105 T 101 00 

R 1057 

R 1058  10101 

R 1059 

R 1060  10110 

R 10601  10111 

R 106  1 1 1000 

R 106 101 
P 106  102  11001 
R 106 1 03  11010 
R 106  1 04,  11011 
R 106  1 05  111(0 

R 106  2 END  OF  F CONr  ANT  CCDE  f'UMSt  S 


VELOCI TY? 
VELOCI TY3 
ELEVAT  I Or. 
RENDEZVOUS 


( XXXXX  . FT/SEC  ) 
(XXXX.X  F T /SEC) 

DEG  IE E S ( 8 9 . 9 99M  A X S 
RADAR  RANGE  ( X XX , 


POSITIONS  (XXX. XX  NAUTICAL  MILES) 

USE  ARITHDP3 

! OS  I fl  QN4  (XXXX.X  NAUTICAL  MILES) 

USE  ARITHDP3 
USE  AR ITHDP4 
USE  AR IT HOP 3 
I USE  AR.ITH 
.XX  NAUT  MI) 
USE  AR IT  HD PI 

P ENOEZ VUUS  i ADA!  RANGE  r ATE ( XXXXX. F T/SEC 

USE  APITHDP1 

( ADDING  ' ADA-  At  T I T U D E ( XXXXX . FEET ) 

USE  ARITHDP1 

INITIAL/FINAL  ALT  ITU DE ( XXXXX. FEET ) 

USE  ARITHDP1 

ALTITUDE  RATE (XXXXX. FT/SEC)  USE  AR I TH 

FOP.  K ARO/ L AT F AL  VEl.CC  ITY  ( XXXXX  . F EET/S  EC  ) 

USE  AR  I TH 

ROTATIONAL  HAND  CCNTROLL  ER  AN GIF  RATES 

XXXXX . DEG/SEC  USE  APITH 

LANDING  RADAR  V E LX  ( XX X XX . FE E T/S EC  ) 

USE  ARITHDP1 

LANDING  r ADA!  VE L Y ( XXX XX . FE F T/ S EC  ) 

USE  APITHDP1 

LANDING  FADA’  VE  I Z ( XX  X XX  . FE  E T/S  EC  ) 

USE  ARITHDP1 

PUS  III  UN7  (XXXX.X  NAIJT  MI)  USE  A1.ITHDP4 

T-  IM  DEGREES2  (XXX. XX  DEG)  USE  ARITH 

COMPUTED  ALTITUDE  (XXXXX.  FEET) 


DP  DEGREES  ( XXXX.X  DEG) 
P0SITI0N9  (XXXXX.  FT) 
VELOCI TY4  (XXXX.X  FT/SEC) 
F AD  I AN  S (XX. XXX  f-  AO  I ANSI 


USE  AR IT  HOP  1 
USE  ARITHDP3 
USE  ARITHDP3 
USE  AR IT  HOP 2 
USE  API  THDP4 


RI063  FOR  GREATER  THAN  SINGLE  PRECISION  SCALES,  PUT  ADDRESS  OF  MAJOR  PART  INTO 
R1C64  NOUN  TABLES. 

R106r  OCTAL.  LOADS  PLACE  +0  IMTr  TAJ'  - FART,  DATA  IN'Oj  MU  ; PA'-  T. 

R 1066  OCTAL  DISPLAYS  SHOW  I '•  ° AR  T N L Y . 

R 1067  TO  GET  AT  BOTH  MA  JOR  AND  M I NOR  PARTS  ( I N OCT AL  ) , USE  NOp  01. 


R 1068  A N TUN  HAY  BE  DEC  L Ar  ED  : CEO i HAL  ONLY:  BY  MAKING  BIT4=1  OF  ITS  COMPONENT 
5 IRC-  CODE  MUTBFk.  IF  THIS  NOUN  IS  USED  WITH  AMY  OCTAL  DISPLAY  VERB,  OR  IF 
R 1070  DATA  IS  LOADED  IN  OCTAL,  IT  ALA  MS. 

R 107 1 IN  LOADING  AN  :HOUPS,  MINUTES,  SECONDS:  NOUN,  ALL  3 WORDS  MUST  RE 

R 1072  LOADED,  OR  ALARM. 


GAP:  ASSEMBLE  REVISION  001  CP  AGO  PROGRAM  APllpQPE  BY  fc  YLE  S 

L PINBALL  NOUN  TABLES 


3:15  DEC.  2,1970  AP11A1D 
USEP ' S PAGE  NO.  3 


.001  PAGE 
EO  S4 


303 


R 1C7  3 
R 1074 


A L A R M IF  AN  ATTEMPT  IS  v ADE  TO  LOAD  :SPLIT  M I NUT ES / SECONDS : (MMBSS) 
THIS  IS  USED  FOR  DISPLAY  ONLY. 


CAP:  ASSEMBLE  REVISION  001  CF  AGC  PROGRAM  APilROPE  BY  t YL  t S 

L PINBALL  NOUN  TABLES 


3:15  DEC.  2,1570  AP11AI0  .001  PAGE  304 
USER’S  PAGE  NO.  4 EO  S4 


P 107  5 THE  FOLLOWING  ROUTINES  ARE  FOP  > FADING  THE  NOUN  TABLES  AND  THE  SF  TABLES 

R1C76  (WHICH  ARE  IN  A SEPARATE  BANK  FROM  THE  REST  OF  PINBALL).  THESE  READING 

R1C77  ROUTINES  ARE  IN  THE  SAME  BANK  AS  THE  TABLES.  THEY  A,E  CALLED  BY  DXCH  Z. 


R 1078 
R 1C79 
R 1080 
R 1081 
R 108  2: 

1 2f'f 
12002 

1200  3 
12005 

1201 
1202 
1203 
1 20A 

1205 

1206 
1207 
120  •> 
12QP 
1210 
1211 
1212 

1213 

121 4 
121  c 
1216 

1217 

1218 
121  c 
122  0 
1221 
1222 

1223 

1224 

1225 
122- 


LODNNTAB  LOAD'-.  1 JMAOT  VftH  THE  NHADTAB  ENTRY,  NNTYPTEM  WITH  THE 
NNTYPTAB  ENTRY.  IF  THE  NOUN  IS  MIXED,  IDADITEM  IS  LOADED  WITH  THE  FIRST 
IDADDTAB  ENTRY,  IDAD2TEM  THE  SECOND  IDAODTAB  ENTRY,  I0A03TEM  THE  THIRD 
IDADDTAB  ENTRY,  .UTNXTEM  WITH  THE  NJTMXTAB  ENTRY.  MIXBR  IS  SET  FUR 
MIXED  OR  NORMAL  NOUN. 


REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

PEE 

REF- 

REF 
REF 
REF 
REF 
REF 
REF 
REF 
REF 
P FF 
REF 
REF 
REF 
REF 
REF 
KEF 


1 

1 

3 
1 
1 

4 
1 

1 

5 
1 

1 

14 

1 

1 

1 1 

2 

6 

1 
1 

2 
2 

2 8 
91 

1 

l 


LAST  281 


LAST  267 


LAST  304 


L A r ' 


304 


LAST  278 


LAST 

LAST 

LAST 


LAST 

LAS*' 

LAST 

LAST 


2«2 

304 

304 


732 

304 

282 

300 


0 6 ,3263 
42,2000 
42  ,2103 

42,2103 
^2,21 04 

42. 2105 

42.2106 

42.2107 

42.21 10 

42.2111 
-7,2)12 

4 7.2113 

42.2114 

42.2115 

42 . 2116 

42.2117 

42.2120 

42.2121 

42.2122 

42.2123 
7,2124 

42.2125 

42 . 2126 

42 .2127 

42.2130 

42.2131 

42.2132 
42,2  13  3 
42,2134 


52  152  0 
51*002  1 
3 2154  0 
54  146  0 
5 1 ' 002  1 

3 2320  1 
54  1 4 7 1 

4 1002  0 

6 4771  I 
0 0006  1 
6 2121  1 
3 4753  1 
54  140  0 
0 2137  0 
3 4752  0 
54  140  0 
51*002  1 
3 3064  0 
54  153  1 
3 5012  1 

7 0146  0 
54  002  1 
50  000  1 
3 2650  0 
54  150  1 
0 0006  1 


BANK 

SETLOC 

BANK 

COUNT* 

LODNNTAB  DXCH 
INDEX 
CAP 
TS 

I NDE  X 

CAF 

TS 

CS 

AD 

EXTEND 

BZMF 

CAF 

TS 

TC 

t ODMiXNN  CAE 
TS 

I NDEX 

CAF 

TS 

CAF 

MASK 

TS 

INOEX 

CAF 

TS 

EXTEND 


P INBALL3 

$$/NOUNS 

IDA02TFM 

NO UNPEG 

MNADTAB 

NNADTEM 

NOUNREG 

NNTYPTAB 

NNTYPTEM 

NOUNREG 

MIXCON 

LOOM I XNN 

ONE 

■'MX  BE 

L JON L V 

TWO 

MIXBR 

NOUNREG 

4.  -.,i  D 
RUTMXTEM 
L0W10 
NNADTEM 
Q 
A 

IDADDTAB 
I DAD1TEM 


SAVE  RETURN  INFO  IN  I 0AD2TEM,  I0AD3TEM. 


NOUN  NUMBER  G/ E FIRST  MIXED  NOUN 
NOUN  NUMBER  L/  FIRST  MIXED  NOUN 
NORMAL  . +1  INTO  MIXBR  . 

MIXED.  +2  INTO  MIXBR. 


FI1' ST  NIXED  NOUN  = 40. 


TEMP 


. 0 AD  IDADITEM  WITH  FIRST  IDADDTAB  ENTRY 


1227 

REF 

29 

1 AST 

304 

42,2135 

5 0002 

0 

INDEX  0 

LHAD 

I DAD2  T EM  WITH  2ND 

IDADDTAB 

ENTRY 

1228 

REF 

2 

LAST 

304 

42 ,2136 

3 2652 

1 

DC A IDADDTAB  +1 

LOAD 

IDAD3TEM  WITH  3D  D 

I D ADDT  AB 

ENTRY. 

1229 

REF 

2 

LAST 

304 

42, 2137 

52  152 

0 

LODNLV 

DXCH  I DAD2TEM 

PUT 

RETURN  INFO  INTO  A, 

L . 

1230 

REF 

1 

42,2140 

52  006 

0 

DXCH  Z 

1231 

REF 

1 

4 7 7 1 

MIXCON 

= OCT 50 

( DEC 

4C  ) 

1232 

GTS 

FOOT 

L O ADS 

S'FTFMPl 

, RFTEMP2 

WITH 

TH  E 

OP  SF0UTA8  ENTRIES. 

123? 

REF 

1 

42,2141 

52  124 

1 

CTSFOUT 

DXCH  SFTEMP1 

2 X ( SF  CONUM ) ARRIVES  IN 

SF TEMPI . 

ASSfc  >BLt  - fc  V I S I 3 M JOI  CF  A GC  PRCG^AM  AP11P.GPE  BY  E YL  b $ 


GAP  : 


L 

PINBALL 

NOUN 

TABLES 

1234 

42,2142 

1235 

REF 

92 

LAST 

304 

42,2143 

1236 

REF 

1 

42,2144 

123^ 

PEF 

2 

1 AST 

304 

42, 2145 

12  3 H 

REF 

2 

LAST 

304 

*2 ,2146 

R 1239 

GTSFIN  1 

..DADS 

S FTEMP 1 

, S FTEMP 2 

12  A 0 

REF 

3 

LAST 

305 

42,2147 

124) 

42,2150 

12^2 

PEF 

Q3 

LAST 

30c 

42,2151 

124? 

124^ 


REF 

PEF 


0 C006  1 
5 GOOD  I 
3 4G  7 1 
r2  124  1 


32  124  1 
0 0005  1 
5 0000  1 
3 2465  1 


42,2152 
42,2153.  1 2145  1 


EXTEND 
INDEX  A 
DC A SFGUTAB 

SECT  Y -)XC H SFTEMPl 

DXCH  Z 


DP  SF INTAB  ENTRIES. 

GTS  F I N DXCH  SFTEMPl 
EXTEND 
INDEX  A 
DC  A SFINTAB 

TCF  SFCOM 


A lv  0 0 

1401 

1402 

1403 
141  * 


1405 

REF 

1' 

REF 

1407 

PEE 

1408 

REF 

l l 

.14082 

14  ( 

REF 

1MC 

PEF 

141  1 

1412 

REF 

l^l  ? 

PEF 

.14131 

14  14 

REF 

1415 

R EF 

. 14151 

1416 

1417 

REF 

141- 

1419 

REF 

142  0 

1421 

REF 

1422 

REF 

14  2 3 

REF 

1424 

1425 

REF 

1424 

REF 

1 1 

142  7 

REF 

1428 

REF 

3 

4 

i 

LAST 

LAST 

277 

305 

1 

2 

LAST 

ICS 

4 

LAST 

211 

3 

LAST 

198 

7 

LAST 

277 

3 

l AST 

198 

4 

LAST 

207 

5 

LAST 

305 

1 

■ 6 

LAST 

254 

1 

6 

LAST 

202 

3 

LAST 

275 

5 

L AST 

305 

6 

LAST 

305 

4 

LAST 

2^0 

42  ,21  c/’ 

00000 

1 

NNADTAB  OCT 

00000 

42,2155 

4 C 0 0 0 

0 

OCT 

40000 

42,2156 

4CC00 

0 

OCT 

40000 

/.  o o -i  g ~7 

if  nr.  n 

A 

r,  f T 

AAAAA 

1 4.  f C ..  . 

nr ' 'J  ' . J 

u 

*T  'J  U U U 

42,2160 

0 1045 

1 

ECADR 

DSPTEM1 

42,216  1 

01045 

1 

EC  A DP 

OS  PT  EM  1 

42, 2162 

0114  4 

1 

ECADR 

OPT I Oil 

42,2163 

01003 

0 

ECADR 

XREG 

42,2164 

'.13  63 

0 

ECADR 

ALMCADR 

A 2 ,2165 

0 C 3 7 5 

0 

ECADR 

FAIL/ EG 

42,2 166 

77776 

1 

OCT 

7 77  76 

42,2167 

03633 

1 

ECADR 

TCSI 

42, 217C 

01051 

1 

ECADR 

OPTIONX 

42,2171 

01776 

0 

ECADR 

T COH- 

42,2172 

010  51 

1 

ECADR 

OS  P T E M X 

42,2173 

77777 

0 

OCT 

77777 

42 ,2174 

01051 

1 

ECADP 

DSPTEMX 

42,2175 

DC  000 

1 

OCT 

00000 

42,2176 

02344 

0 

ECADR 

FDA  T X 

42,2177 

ocooo 

1 

OCT 

COOOO 

42,2200 

0'  032 

0 

ECADR 

CDUX 

42 , 2201 

00037 

0 

ECADR 

P IPAX 

42 , 2202 

00321 

1 

ECADR 

THETAD 

42 ,2203 

OCCOO 

1 

OCT 

oocco 

42,2204 

0 1051 

1 

ECADR 

OS PTE M2 

42,2205 

01045 

1 

ECADR 

DSP' EMI 

42,2206 

01045 

1 

ECADR 

DSPTEM1 

4 2 , 7207 

01362 

1 

ECADR 

SMODE 

3:  15  DEC 


2 ,1470  AP11 AID 


001  PAGE 


305 


USER’S  PAGE  NO. 


EO  S4 


2 X ( SFCONUM ) ARRIVES  IN  SF  TEMPI . 


+ 1 


NN 

00 

01 

02 

03 

04 
0 5 
06 
07 


08 

09 

10 
1 1 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 
27 


NORMAL  NOUNS 
NOT  IN  USE 
SPECIFY  MACHINE 


ADDRESS  (FRACTIONAL) 
MACHINE  ADDRESS  (WHOLE) 
MACHINE  ADDRESS  (DEGREES) 
ERROR/ DIFFERENCE 
EPF.  OP/DIFFERENCE 
CODE 

T0  BE  MODIFIED 
TO  BE  MODIFIED 
TO  RESET  SELECTED  BITS 


S D E C I FY 
SP  ECIFY 
ANGUL AR 
ANGUL  Ah 
OPTION 

ECADR  OF  WORD 
ONES  FOR  BITS 
I TO  SET  OR  0 
ALARM  DATA 
ALARM  CODES 

CHANNEL  TO  BE  SPECIFIED 
TIG  OF  CSI  (HRS, MIN, SEC) 
OPTION  CODE 

(USED  BY  EXTENDED  VERBS 
TT G OF  CDH  (HRS , MIN, SEC) 


ONI  Y ) 


CHECKL I ST 

(USED  BY  EXTENDED  VEPBS  ONLY) 
INCREMENT  MACHINE  ADDRESS 
TIME  OF  EVENT  ( HRS , M I N , S EC ) 

SPAKE 

AUTO  MANEUVER  BAIL  ANGLES 
SPARE 

I C DU  ANCLES 
PI  PAS 

NEW  I C DU  ANGLES 
SPAN  E 

DELTA  TIME  FOR  AGC  Cl OCK ( HRS , M IN , S EC ) 
CHECKL I ST 

(USED  WITH  PLEASE  PERFORM  ONLY) 
PRIO/DELAY,  ADRES,  BBCON 
SELF  TEST  ON/OFF  SWITCH 


GAP: 

L 

1429 

1430 

1431 

1432 


ASSEMBLE  REVISION  001  LF  AGC  ?M  G AM  APLIRLPE  BY  EYLES 
PINBALL  NOUN  TABLES 


42.2210 

42.2211 

42.2212 

42.221 3 


00000  1 
00000  1 
a ooo  l 
00000  1 


1440 
R 14401 


42,2223 

END  OF  NNADTAB  FOR  NORMAL  NOUNS 


000  0 0 1 


OCT 

OCT 

OCT 

OCT 


143  3 
1434 

OFF 

SfH 

1 

7 

LAST 

2A3 

42,2214 
/ 7 ,22  15 

02142 

03441 

01045 

1 

o 

ECADP 
FC  ADR 
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42,2251 

64077 

0 

OCT 

64077 

61 

42,2252 

64102 

0 

OC  T 

64102 

6 2 

42, 2253 

24105 

0 

OCT 

24105 

63 
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51  2C0MP  DPDEG( 360) * DPDEG(360) 

(DEC  ONLY) 

52  1CPMP  CPDEG ( 360 ) 

53  SPATE 

54  3C0MP  P0S5,  VEL3,  0PDEG(360) 

(DEC  ONLY) 

55  3CCMP  WHOLE,  DFDFG(360),  DPDEG(360) 

( DFC  ONLY) 

56  2CCJMP  0PDEG(360),  DP0EG(360) 

57  1 COMP  P0S4 

(DEC  ONLY) 

58  3CCMP  PC S 4 » V EL 3 * VEL  3 

(DFC  ONLY) 
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60  3 COMP  VEl  3 » VEL3,  COMP  ALT 
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62  3 COMP  VEL3 , MIN/SEC,  VEL3 
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68  3C0MP  P0S7,  MIN/SEC,  COMP  ALT 

(NC  LOAD,  DEC  ONLY) 

69  SPARE 

70  3C0MP  OCTAL  ONLY  FOR  EACH 

71  3C0MP  OCTAL  ONLY  FOR  EACH 
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0 
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0 
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232  7 

2328 

2328 

2330 

2331 

2332 
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00714  0 
31463  1 
134 12  1 
07534  1 
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03656  1 
0(001  0 
16170  0 
00441  0 
34306  0 
07176  0 
21603  1 
15340  1 
15340  1 
01031  1 
21032  0 
34631  1 
23146  0 
00636  1 
14552  0 
74  562  0 
70307  1 
0 5 5 ? 0 0 
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14226  1 
31757  0 
02476  0 
05  531 
02727  1 
16415  0 
00007  0 
13734  0 
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OCT 
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2DEC 
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VEL0CITY3  (POINT  BETWN 

ELEVATION  DEGREES 
RENDEZVOUS  RADAR  RANGE 
RENDEZVOUS  RADAR  TANGE  "ATE 
LANDING  r ADAS  ALTITUDE 
INITIAL/FINAL  ALT  I TUDE 


ALTITUDE  RAT  F 


FBRWARD/L ATEPAL  VELOCITY 


ROT  HAND  C3NT  ANGLE  RATE 


42,2624 

74  477 

0 

2 DEC 

-.6440 

E-5 

B 14 

LANDING  RACAF 

VEL  X 

42,2625 

5 0643 

0 

32,2626 

0626  5 

0 

2DEC 

1.21  2 

E-5 

B 14 

1 ANDING  RADAR 

VELY 

42,2627 

16004 

1 

42,2630 

04-426 

0 

2DEC 

.8668 

E-5 

B14 

LANDING  RADAR 

VELZ 

42,2631 

31433 

1 

42,2632 

34  7 72 

1 

OCT 

34772 

POSIT I0N7 

42,2633 

(.’7016 

1 

OCT 

0701o 

42,2634 

01030 

0 

OCT 

010  30 

TRIM  DEGREE0? 

42,2635 

33675 

0 

OCT 

33675 

42,2636 

01046 

1 

OCT 

01046 

COMPUTED  ALTITUDE 

42,2637 

1 5700 

1 

OCT 

15700 

42,2640 

0 C 3 2 1 

1 

OCT 

003  21 

DP  DEGREES 

42,264  1 

26706 

1 

OCT 

2 j7C6 

42,264? 

04  23  1 

0 

2DEC 

17.201 
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r- 

l 

CD 
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42,2643 

27400 

0 

42,2644 
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1 
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.032808399 

VELOC ITY4 

42,2645  2103?  0 
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42,2647 
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PEF 

9 
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42, 2650 

03453 

0 I DADDTAB 

2402 
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1 

42,2651 

C3663 

1 

240  3 
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2 

1 AST 
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42,2652 

L 3 5 0 7 

0 

2*04 

0 E F 

8 
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306 

42,2653 

01045 

1 

o l . n e 
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o 
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6 2,7  A t;  4 

0 1 C46 

1 

C.  > V 

2406 

42,2655 
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1 
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3 
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42, 2656 

02316 

1 

240  6 
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1 

42 ,2457 

02320 

1 
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2 
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42,2660 

036  63 

1 
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0 

24 1 1 
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1 
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42 , 2664 
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1 
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1 
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0 
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UNIT  THF  PROJECTION  OF  THE  VFCTOP 
IN  THE  X-Z  PLANE 
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LAST 
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BUF  +2 
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1 
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0 

MP 

DELVX 
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REF 
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LAST 
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54  002 

1 

TS 

Q 

0127 

REF 

26 

LAST 
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3 0001 

0 

CA 

L 
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EXTEND 
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REF 
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LAST 
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REF 
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LAST 
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0134 

REF 
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LAST 
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PEF 
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LAST 
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06,3312 
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REF 
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LAST 
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06,3313 
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DELVX 

0137 

REF 
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LAST 
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06,3314 
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013  + 

PEF 
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1 

CS 
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0139 
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1 

EXTEND 

0140 

REF 
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LAST 
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MP 
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06,3320 

0 0006 
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EXTEND 
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REF 
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LAST 
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MP 
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REF 
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LAST 
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PEF 
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1 
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RFF 
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1 
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SAVE  EBANK  OF  CALLING  PROGRAM 

BYPASS  IF  GCOMPSW  NEGATIVE 

RETURN 

PIPAZ,  PIPAY,  PIPAX 

(P.P.M.)  X 2 (-9) 

(PP)  X 2 ( + 14 ) NOW  (PIPA  °ULSES ) X 2(+5) 
SAVE  MAJOR  PART 

MINOR  PART 

SCALE  2 (+9)  SHIFT  o Ight  c 
FRACTIONAL  PIPA  PULSES  SCALED  21+14) 
MAJOR  PART 

SCALE  2 ( +9 ) SHI FT  P IGHT  9 
(PIPAI ) + (PIPAI ) ( SFE ) 

(pfpA  PULS  ES ) / ( CS ) X 2 (-5  ) * 

(CS)  X 2 ( +3 ) NOW  ( 9 T P A PU1SES)  X 2(+3)* 
SCALE  21+11)  SHIFT  RIGHT  n * 

(PIPAI)  + (PIPAI) (SFF)  - ( BIAS) ( DELTAT ) 


PIPAZ,  PIPAY,  PIPAX 


GAP: 
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0148 

06,3327  13  330  0 

NCQP 

LESS  THAN  ZERO  IMPOSSIBLE 
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REF 
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LAST 
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REF 
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LAST 
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REF 
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LAST 
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0 

TCP 
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REF 
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REF 

4 

LAST 
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/ TC 
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0 1 

REF 
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3 

I 

LAST 
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1 1 
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1 
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0150 

REF 

2 

LAST 
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06,3353 
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0 I R I G 1 

CT5 
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REF 

9 

LAST 
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06,3354 

54  003 

0 
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0 1 

P.EF 

2 

LAST 

244 

06,3355 
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TCF 
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INDICATE  COMMANDS  2 PU1SES  OR  LESS. 

INDEX  COUNTER  . IRIGX,  IRIGY,  IRIGZ. 

COMPENSATE  ACCELERATION  TEPMS 

(GYRO  PULSES) /(CM  X 2(-5) 

-(NBDX ) (DELTAT  ) (GYRO  PULSES)  X 2(+14) 

COMPENSATE  ACCELERATION  TERMS 

(GYRO  PULSES) / ( CS ) X 2(-5) 

-<N80Y)  (DELTAT  ) (GYRO  PULSES)  X 2(+L4) 

COMPENSATE  ACCELERATION  TEPMS 

(GYRO  PULSES)  / ( CS ) X 2(-5) 

+ (NBDZ)  (DELTAT)  (GYRO  PULSES)  X 2(+lM 


ARE  GYRO  COMMANDS  GPEATEP  THAN  2 PULSES 
YES  SEND  OUT  GYRO  TORQUING  COMMANDS. 

NO  RETURN 

PR  10  GP  FATEP  THAN  SERVTCER 
SEND  OUT  GYRO  TORQUING  COMMANDS. 


RESTORE  CALLFPS  FBANK 
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REF 
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LAST 
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REF 
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LAST 
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EXTEND 
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REF 
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LAST 
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06,3413 
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REF 
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LAST 
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MPAC 
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REF 
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LAST 
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EF  55  LAST  330  06,3424  0 015fc  0 


TC 


GCOMPSUB 


DELVZ 
•‘PAC 
ADI  AZ 

GCOMPSUB 


DELVX 
'IP  AC 
A DO  A Z 
GCOMPSUB 

MPAC  +2 


3:15  DEC 


2. , 1 c 7 0 AP11AID  .001  PAGE  330 


..i 
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-( ADSRAZ ) (PIPAY)  ( GY D 0 PULSES)  X 21+14) 


(PIPA  PULSES)  X 21+14) 

(GYPO  PULSES) /( PIPA  PULSE)  X 2 ( -6 ) 4 

- ( ADI  AZ  ) I P IPAZ  ) ( GYC  0 PIJISFS)  X 2(  + 14) 

4*4  (PIPA  PULSE)  X 2 ( + 1 4 ) 

*44  (GYRO  PULSES)/ (PIPA  PULSE)  X 2(-M  * 

44*  +IADOAZ) (PIPAX)  (GYRO  PULSES)  X 2 ( + 1 4 ) 
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REF 

20 

LAST 
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REF 
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MP 
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REF 

18 

LAST 
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REF 
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REF 
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LAST 
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REF 
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MP 
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LAST 
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ADIA  OF  ADSPA  COEFFICIENT  ARRIVES  IN  A 
C(MPAC)  = (PIPA  PULSES)  X 2(+14) 

( GYF  0 PULSES)/(PIPA  PULSE)  X 2(-6)  * 

NOW  = (GYRO  PULSES)  X 2(+3)  * 

MINOR  PART  PIPA  PULSES 

ADIA  OR  ADSRA 


NOW  = (GYRO  PULSES)  X 2<+8)  * 

PARTIAL  RESULT  - MAJOR 

SCALE  21+61  SHIFT  RIGHT  6 * 

'ESULT  = (GY!  Q PULSES)  X 2 (+14) 

HI (ADIA)  (P  IPAI  ) hr  HI ( ADSRA ) f P IPAI ) 

PARTIAL  RESULT  - MINOR 

SCALE  2 (+6)  SHIFT  RIGHT  6 * 

RESULT  = (GYRO  PULSES)  X 21+14) 

( ADIA )( P IPAI  ) OP  (ADSRA  ) (PIPAI  ) 


GAP:  ASSEMBLE  F V ISi:  N 001  OF  A GC  p:  OGFAM  AP11  JPE  8Y  EYLES 
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REF 
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LAST 
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1 

DR  I ft  sub 

EXTEND 

QXCH 

BUF  +1 

0224 

06,3456 

0 0006 

1 

EX END 

0225 

REF 
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LAST 
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06,3457 
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0 

MP 

1 /PI PADT 

0226 

REF 
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LAST 
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06, 3*60 

22  155 
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LXCH 

M P AC  +1 

0227 
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0 0006 

1 

EXTEND 
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RFF 

20 

LAST 

326 

06,346? 

7 47  50 

0 

MP 

BIT4 

0229 

REF 

21 

LAST 

332 

06,3463 

50  130 

0 

INDEX 

BUF 

0230 

REF 

5 

LAST 

331 

05, 3464 

21 '472 

0 

DAS 

GC-jYP 

0231 

REF 

6 1 

LAST 

332 

06 , 3465 

3 015  5 

0 

CA 

Mp AC  +1 

0232 

06,3466 

0 0006 

1 

EXTEND 

0233 

REF 

21 

LAST 

332 

06, 3467 

7 4750 

0 

MP 

B I T 6 

02  34 

REF 

29 

LAST 

331 

C6, 3470 

54  GDI 

1 

TS 

l. 

0235 

REF 

35 

LAST 

331 

C 6 , 36-71 

3 6 7 55 

1 

CAF 

ZERO 

0236 

REF 

22 

LAST 

332 

06,3472 

50  130 

0 

INDEX 

BUF 

P?  3 7 

d r,  c 

A 

| KT 

X X X 

n A . 7 l.  7 ^ 

21 1 4 7 2 

Q 

DAC 

GfllM  P 

C ->  1 

ia  L.  r 

o 

V O 1 V-  I D 

L/Ui  1 1 

0238 

REF 

12 

LAST 

304 

06,3474 

3 4752 

0 

dp  FTSIJB2 

CAF 

TWO 

0239 

REF 

23 

LAST 

332 

06,3473 

b 0130 

c 

AD 

BUF 

0240 

REF 

IL 

LAST 

332 

06,3476 
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R 0 0 1 6 1.  KEY  IN  V 3?  E • LY  IF  I N P 3G  00.  IF  NUT  IN  POO,  OPERATOR  ERRC'P  AMD 

R 0017  EXIT  !■  3,  OTHERWISE  CONTINUE. 

R0C1P  2.  IF  IN  POO,  DO  I MU  STATUS  CHECK  ROUTINE  ( R 02 BOTH ) . IF  I MU  ON  AND  ITS 
R 0019  ORIENTATION  KNOWN  TP  LGC , CONTINUE. 


,.z 


R002C 
R 002  1 
R 0022 
R 0023 


3.  FLASH  DISPLAY  V 04  N 06. 
BE'  POINTED  AT  CS'V.  INITIAL 
ASTRONAUT  CAN  CHANGE  TO  (+X 
AFTER  KEYING  IN  PROCEED. 


,2  INDICATES  WHICH  SPACECRAFT  AXIS  IS  TO 
CHOICE  IS  PREFERRED  ( + Z ) AXIS  (1-2  = 1). 

) AXIS  ( P ? NOT  = 1)  BY  V 2 2 E 2 E.  CONTINUE 


R 0024 


4 


BOTH  VEHICLE  STATE  VEC.T(  OS  UPDATED 


BY  COMIC  EQS. 


RQ02C  HALF  MAGNITUDE  UNIT  LC  VFC'OP  (IN  STABLE  MEMBER  COORDINATES  ) AND 

ROC?-'  HAI  F MAGNITUDE  HOT  SPACECRAFT  AXIS  VECTOf  UN  BODY  C’KVDINATE'  ) 

R 0027  PREPARED  FOR  VECPOINT. 

R 002  8 6.  G 1 148 AL  ANGLES  FRC-  VECPOINT  TRANSFORMED  INTO  FCAI  BALL  ANGLES  BY 

R 002  5 BA!  LANGS.  FLASH  DISPLAY  V 06  N U AND  AWAIT  RESPONSE. 

R 003 0 7.  RECYCLE  - RETURN  TO  STEP  t . 

R0031  TERMINATE  - EXIT  P63. 

R 00  32  PROCEED  - RESET  3AXISFLG  AND  CALL  R.  60L  EM  FOR  ATTITUDE  MANEUVER. 


R 003 3 CALI  ING  SEQUENCE:  V 89  E. 


i" 


R 0034 

SUBROUTINES 

CALL  FD: 

CHKPOCH, 

R02  BOTH,  GOXDSPF,  CSMCONIC,  LEMCONIC 

R 003  5 

VECPOI NT 

, BALLANGS,  R6CLEM. 

R 003 1 

NOR  MAI  EXIT 

MODES  : 

TC  EMDEXT 

R 0037 

ALARMS  : 

1 . 

OP  EP ATOP 

ERROR 

I F 

NOT  IN  POO. 

R 0038 

2. 

PROGRAM 

ALARM 

I F 

IMU  IS  OFF. 

R 003c 

3. 

PROGRAM 

ALARM 

I F 

1 MU  ORIENTATION  IS  UNKNOWN. 

R 0040 

OUTPUT  : 

NONE 

R 0041 

ERASABLE 

INITIALIZATION  PE 

QIJ I 

FED:  NONE 

R 0042 

DEBR  IS: 

0PTI0N1,  +1 

, TD  EC 

1, 

POINTVSM,  SCAXIS,  CPHI,  C THE  TA , CPSI, 

ASSEMBLE  RE  VISION  001  uF  AGO.  PROGRAM  AP11R0PE  BY 


GAP; 

L 

R 0043 


R 63 


3AXI SFLG. 


00  4-' 

0045 

0046 

0047 


PFF  4 LAST  284 
* EF  l 


E4 , 16  0 6 
32,2217 
26 , 2000 

26,2022 


004° 

004  c 

005  0 

0051 

0052 

0053 

0054 
005* 

0056 

0057 

0058 

0059 

006  0 


REF 
REF 
3 EF 
REF 
PEF 
REF 
PEF 
REF 
REF 
REF 
REF 


1 

58 
1 
3 
8 

15 

9 

1 

59 
2 

2 ^ 


LAST  336 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


293 
3 05 
304 
3 39 

339 

225 

300 


26,2022 

26 . 2023 

26.2024 

26.2025 

26.2026 
26,2027 

26 . 2030 

26.2031 

26. 2032 

26.2033 

26.2034 

26. 2035 


0 461c  1 
11254  i 
3 6245  1 
55*051  0 
3 4753  1 
55*052  0 
3 2117  l 
04616  1 
2 0476  0 
0 5472  0 
0 2 C 36  0 
G 2.03L  0 


006] 

REF 

11. 

LAST 

323 

26,2036 

0 6 037 

0 

0062 

26  ,2037 

432  34 

0 

0063 

PEF 

2 

L AST 

207 

26, 2040 

21573 

0 

00635 

REF 

1 

26,2041 

14122 

0 

00  o 4 

REF 

1 

26, 2042 

02  205 

1 

0065 

PEF 

4 

LAST 

236 

26 ,204  3 

3404  1 

0 

006  6 

PFF 

1 

26,2044 

27066 

1 

nry.  7 

7 A . 7 0 t <~ 

7777c 

1 

c.  0 , ty*T  . 

f / f I Zj 

1 

006  8 

REF 

1 

26, 2046 

GCOOl 

0 

0069 

REF 

5 

LAST 

339 

26 , 2047 

16207 

0 

0070 

REF 

2 

LAST 

33  9 

26, 205 u 

02205 

1 

0071 

REF 

5 

LAST 

339 

26,2051 

3404  1 

0 

0072 

PEF 

1 

26 , 205  2 

27100 

0 

0073 

26,2053 

52375 

1 

0074 

REF 

6 

LAST 

339 

2 6,205  4 

02207 

0 

007* 

REF 

2 

LAST 

339 

26,2055 

00001 

0 

0076 

26,2056 

47121 

0 

0077 

R EF 

6 

LAST 

20° 

26,2087 

017  34 

0 

00771 

PEF 

1 

26, 2060 

21726 

1 

00  7 P 

REF 

2 

LAST 

1*2 

2 6 , 2 0 6 1 

03773 

1 

0079 

26, 2062 

77776 

1 

0080 

REF 

10 

LAST 

3x9 

26,2063 

4 1052 

0 

0031 

REF 

16 

LAST 

33  9 

26 , 2064 

6 4753 

1 

008? 

26,2065 

0 00  06 

1 

oce^ 

REF 

1 

26,2066 

1 2113 

1 

00«4 

REF 

12 

LAST 

339 

26,2067 

0 6037 

0 

0085 

26,2070 

77775 

1 

0086 

REF 

4 

LAST 

299 

26,2071 

06520 

0 

V89CAL L 


V89R FCL 


Al  T NE  X 


EYLES 


3:15  DEC 


2,1970 


AP11AID  .001  PAGE  339 


USER'S  PAGE  NU.  2 EO  S3 


E B A N K = PONE 
BANK  32 
5ETL0C  BAWL  AMGS 
BANK 


COUNT*  $ $ / P 6 3 
TC  BANKCALt 

CADR  R02B0TH 

CAF  THREE 

TS  OPT  I ON  X 

CAE  ONE 

TS  OPTIONX  +1 

CAF  VB04N12 

TC  BANK CALL 

CADF  GOF  LASH 

TC  ENDEXT 

TC  +2 

TC  -5 

TC  I NT P RET 

PTB  DAD 

LOADTIME 

DP1MIN 

STORE  TSTART  :2 
STCAIL  T DEC  1 

CSMCCNIC 

VI  HAD 

RATT 
STODL  RONE 

T ST  A T 82 
ETC ALL  T DEC  1 

L EMC  ONI C 
VLOAO  VSU 

RCNE 
RATT 

MX  V RTB 

REFS  MM AT 
NORMUN I T 
S~  0®.  F POT  NT  Vc  M 
EXIT 

CS  OPTIONX  +1 

AD  ONE 

EXTEND 

BZF  A 1.  INEZ 

TC  T NT  PR  ET 

VLOAD 


I MU  STATUS  CHECK.  RETURNS  IF  ORIENTATION 
KNOWN.  ALARM*  IF  NOT. 

ALLOW  ASTRONAUT  TO  SELECT  DESIRED 
TRACKING  ATTITUDE  AXIS. 


V 04  N 12 


TERMINATE 

PROCEED 

DATA  IN.  OPT  I ONI  + 1 = 1 FOR  Z AXIS 
= 2 FOR  X AXIS 


READ  PRESENT  TIME 

SAVE  TIME  FUR  LEMCONIC  CALL 
STORE  TIME  FOR  CSMCONIC  CALL 
CSM  STATE  VECTOR  UPDATE 
CSMCONIC  LEFT  R VECTOF  IN  RATT 

SAVE  FOP  LINE  OF  SIGHT  (LOS)  CHMPUT  ATT  ON 

STORE  TIME  Fi  ' LFMCONIC  CALL 
LEM  STATE  VECTOP  UPDATE 
CSM  POSITION  - LEM  POSITION  = l OS 
LOS  VECTOR  LEFT  IN  MPAC 

(REFS M MAT  X LOS).  TRANSFORMS  LOS  FROM 
REFERENCE  COP" D TO  STAB  MEMB  COOFD. 

c T 0 r<  F L0C  For  VK  POINT  CALL 

1 FOR  Z AXIS.  2 FOR  X AXIS. 


X AXIS  ALIGNMENT 


UNITX 


READ  (.5,  0,  0) 


GAP:  ASSEMBLE  REVISION!  IG1  OF  AGC  PROGRAM  AP11ROPE  BY  EYLES 

L R 63 


3: 15  DEC.  2, IE  70  AP11AID  .001  PAGE  340 
USER'S  PAGE  NO.  3 E4  S3 


0087  PEF  11  LAST 

0088  REF  1 

0089  REF  1 

0090 


0090  5 
00q  1 

REF 

PEE 

60 

1 

1 

LAST 

0092 

REF 

0093 

REF 

61 

LAST 

0094 

REF 

3 

LAST 

0095 

REF 

27 

LAST 

0096 

0097 

REF 

1 

0098 

REF 

25 

LAST 

0099 

REE 

2 

LAST 

OK  C 

REF 

62 

LAST 

0101 

REF 

1 

0102 

REF 

28 

LAST 

251  26,2072  37765 

26.2073  56040 

26.2074  00322 

26.2075  77776 

339  26,2076  0 4616 

26,2077  54266 

26,2100  3 2120 

340  26,2101  0 4616 

339  26,2102  20476 

33C  26,2103  0 5 *-72 

26,2104  0 210t> 

26 , 2 1PK  0 2036 
298  26,2106  0 5516 

229  26,2107  00124 

34Q  26,21  10,  0 6616 

26,2111  54123 

340  26,2112  1 5472 


1 

0 

1 

1 

1 

L 

0 

1 

0 

0 

1 

0 

0 

0 

1 

0 

1 


V89CALL1  STCALL 


STORE 

EXIT 

TC 

CAQP 

CAF 

TC 

CM),! 

TC 

TC 

TC 

TC 

ADRES 

TC 

C A 0r 
TC  F 


SCAXI S 
V EC  POINT 
C PH  I 

BANK  CALL 

8ALLANGS 

VB06N18 

BANKCAl L 

GCFLASH 

ENDEXT 

+ 2 

V89RECL 
DCWNFL AG 
3 AX  I SFLG 
8ANKCALL 
R601 EM 
ENDEXT 


STORE  SELECTFD  ALIGNMENT  AXIS 

PUTS  DESIRED  G I M ANG  (OG,IG,MG)  IN  TMPAC 

STORE  GIMBAL.  ANGLES  FOR  BALLANGS  CALL. 


PUTS  DES 1 0 ED  BALL  ANGLES  IN  FDAIX,Y,Z 
V 06  N 18 

NOUN  18  REFERS  TO  FDAIX,Y,Z 

TERMINATE 

PROCEED 

RECYCLE 

RESET  3 AXIS  FLAG 
RESET  B I T 6 FLAG  WORD  5 

PERFORMS  LEM  MANEUVER  TO  ALIGN  SELECTED 
SPACECRAFT  AXIS  TO  CSM. 

TERMINATE  R63 


0103 

REF 

13 

LAST 

339 

26,2113 

0 6037 

0 

0104 

26,2114 

52175 

0 

0105 

REF 

4 

1 AST 

299 

26 ,21  15 

06514 

1 

0106 

PEF 

1 

26,211  c 

54  072 

0 

ALINEZ 

TC 

VLOAD 

INTPRET 

GOTO 

Z AXIS  alignment 

UNITZ 

VSGCALI 1 

READ  (0,  0,  .5) 

0107 

0108 


26,2117 

01014  0 

V BOOM  12 

VN 

412 

26,2120 

01422  1 

VBGGN13 

VN 

0618 

GAP:  ASSEMBLE  RE  VIS  I GN.  001  F AGO  PE  GG-  A'-'  APlLR&pE  BY  EYLES 

L P 6 3 


01 

01085 


26.2121  00000  1 DP1MIN  2.0EC  6000 

26.2122  13560  0 


3:15  DEC.  2,1070  AP11AID 
USER'S  PAGE  NO.  4 


.001  PAGE 
E6  S3 


341 


GAP : 

L 

P0001 


R OOO  2 
R 000  A 

R 000^ 
R 0006 
R 0008 
R001C 
R 001  2 

ROOIA 
R001  5 
R 00 1 1 

R 001  7 
R 001  o 
R 002 1 
R 0023 
R 0025 
R 0027 
R0028 
R003P 
8 003  1 
R 0033 
R 003  5 
R0C37 
R 003  8 
R 0040 
R 004-2 
R 0044 
R0046 
ROOA8 
R Q049 
R 005  1 
R 0052 
R 0056 
R 0 0 ,;>  6 
R 0058 
R0060 
‘5  0052 
R0064 
R 0064 


R 0067 

R006P 
R 0070 


ASSEMBLE  OVISION  001  OF  AGO  PROGRAM  APllROPE  BY  EYLeS 
ATTITUDE  MANEJVER  ROUTINE 

BLOCK  2 L GC  ATTITUDE  MANEUVER  ROUTINE- KALCMANU 


3:15  DEC.  2,1970  AP11AID  .001  PAGE  342 
USF  P ’ S PAGE  NO.  1 EO  S3 


MUD  2 DATE  5/1/67  BY  DON  KEENE 

PROC-P  Af-'  DESCP  I PTION 


KALC 
DURING  FR 
ORIENT ATI 
MOD  2 VER 
SINGLE  PR 


MAMU  IS  A ROUTINE  WHICH  GENERATES  COMM 
EE  FALL.  IT  IS  DESIGNED  TO  MANEUVER  T 
ON  SPECIFIED  BY  THE  PRIGRAN  WHICH  CALL 
SION,  THIS  DESIRED  ATTITUDE  IS  S'PECIFI 
EC  I SI  ON  ANGLES  IN  THE  THE  E E CONS E CUT  IV 


ANDS  FOR  THE  LM  DAP  TO  CHANGE  THE  ATTITUDE  OF  THE 
HE  SPACECRAFT  FROM  ITS  INITIAL  ORIENTATION  TO  SOM 
S KALCMANU , AVO I DING  GI MBAL  LOCK  IN  THE  PROCESS. 
ED  BY  A SET  OF  THREE  COMMANDED  CDIJ  ANGLES  STORED 
E LOCATIONS,  C P H I , CTHETA,  CPS  I , WHERE 


SPACECRAFT 
E DESIRED 
IN  THE 
AS  2 S COMPL 


EMENT 


CPHI  = COMMANDED  OUTER  GIMBAL  ANGLE 
CTHETA  = COMMANDED  INNER  GIMBAL  ANGIE 
CPSI  = COMMANDED  MIDDLE  GIMBAL  ANGLE 


,iHF  r-o  KITING  A SPACECRAFT  AXIS  (E.I.  X,  Y,  Z,  THE  AO  T * THRUST  AXIS,  FTC)  THE  SUBROUTINE  VECP01NT  MAY  BE 
i ED  ‘ i 3ENEFATF  F ' “ F DESIRED  C DU  ANGLES  ( SEE  DESCRIPTION  IN  R60) 

WITH  THIS  INFCRMATI  N KALCMANU  DETERMINES  THE  DIRECTION  OF  THE  SINGLE  EQUIVALENT  ROTATION  (COF  ALSO  U)  AND  THE 
MAGNITUDE  OF  THE  ROTATION  (AM)  TO  BRING  THE  S/C  FROM  ITS  INITIAL  ORIENTATION  TC  ITS  FINAL  ORIENTATION. 

7 H I : • DLRECTK  'I  E M A I . FIXED  B 01  H Hi  INEMIAL  COORDINATES  AND  I N COMMANDED  S/C  AXES  THROUGHOUT  THE 

MANEUVER.  ONCE  CO  F AND  AM  HAVE  BEEN  DETE''  MINED,  KALCMANU  THEN  EXAMINES  THE  MANEUVER  TO  SEE  IF  IT  WILL  BRING 


THE  S/C  THROUGH  G I VB AL  LOCK.  IF  SC, 
LOCK  ZONE  AND  ALIGN'  THE  X-AXIS.  IN 
NEEDLESS  TC  SAY,  NEITHER  THE  INITIAL 


COF  AND  AM  ARE  READJUSTED 
GENERAL  A FINAL  YAW  ABOUT 
MOR  THE  FINAL  ON  I ENT  AT  I ON 


SO  THAT  THE  S/C  WILL  JUST  SKIM  THE 
X WILL  BE  NECESSARY  TO  COMPL  ET  F TH 
CAN  BE  IN  GIMBAL  LOCK. 


GIMBAL 
E MANEUV 


Ep  . 


FT!  PROPER  ATTITUDE  CONTROL  THE  DIGITAL  AUTOPILOT  MUST  BE  GIVE!  AN  ATTITUDE  REFERENCE  WHICH  IT  CAN  TF ACK . 
KALC  MANU  D<  ES  THIS  BY  GENE-  ATI  !G  % REFERENCE  ■ F DCS!  ED  GIMBAL  ANGLES  (CDUXD,  CDUYD,  CDUZD)  WHICH  ARE  UPDATED 
EVERY  ONE  SECOND  DURING  THE  MANEUVER.  TC.  ACHIEVE  A SMOOTHER  SEQUENCE  OF  COMMANDS  BETWEEN  SUCCESSIVE  UPDATES, 
THE  PROGRAM  ALSO  GENERATES  A SET  OF  INCREMENTAL.  COU  ANGLES  (DELDCDU)  to  BE  ADDED  TO  CDU  DESIRED  BY  THE  DIGITAL 
AUT:  PILOT.  KALC  '.AND  ALSO  CALCULATES  THE  COMPONENT  MANEUVER  RATES  (OMEGA PD,  OMEGAQO,  QMEGARD),  WHICH  CAN 


BE  LSterm  INFO  S 'N‘tY  BY  'I  TTPI.  YI  G CJ  F BY  S‘  ME  SC  A l A:'  (APATE)  COF  RESPOND  I NG  TC  THE  DESIRED  ROTATIONAL  '‘ATE. 

AUTOMATIC  MANEUVERS  APE  TIMED  WITH  THE  HELP  OF  WAITLIST  SO  THAT  AFTER  A SPECIFIED  INTERVAL  THE  Y AND  Z 
DESIRED  PATES  APE  SET  TO  ZERO  AND  THE  DESI'ED  CDU  ANGLES  (CDUYD,  CDUZD)  APE  SET  EQUAL  TO  THE  FINAL  DESIRED  CDU 
ANGLES  (CTHETA,  CPSI).  IF  ANY  YAW  REMAINS  UtJE  TO  GIMBAL  LOCK  AVOIDANCE,  THE  FINAL  YAW  MANEUVER  IS 
CAL  C'Jt  A:' ED  A •'  0 'HI  Si  ' ' i:D  YAW  PATE  SET  "0  ■ 1 v;  C FiXED  VALUE  ( ROLL  RATE  = + OR  - 2 DEGREES  PER  SEC). 

I-  THIS  CASE  JULY  an  N'O  OMENTAL  CDUX  ANGLE  (DELFROLL)  IS  SUPPi  I ED  TO  THE  DAP.  AT  THE  END  OF  THE  YAW 
MANEUVER  OR  I m THF  EVENT  that  THESE  WAS  NO  FINAL  YAW,  CDUXD  IS  SET  EQUAL  TO  CPHT  AND  THE  X-AXIS  DESIRED 
"ATE  SET  TO  ZERO.  THUS,  UPON  COMPLETION  OF  THE  MANEUVER  THE  S/C  WILL  FINISH  UP  IN  A LIMIT  CYCLE  ABOUT  THE 
DESIRED  FINAL  GIMBAL  ANGLES. 


PROGRAM  LOGIC  FLOW 


UP 


KALCMANU  IS  CALI  ED  AS  A 
THE  CURRENT  CDU  ANGLES  TO 


HIGH  PRIORITY  JOB  WITH  ENTRY  POINTS  AT  K ALCMAN3  AND 
BE  USED  AS  THE  BASIS  FOR  ALL  COMPUTATIONS  INVOLVING 


VECPOINT.  IT  FIRST  PICKS 
THE  INITIAL  S/C  ORIENTATION. 


GAP: 

ASSEMBLE 

REVISION  00 1 OF 

AGC  PROGRAM  API 

1R0PE  BY  EYLES  3:1S 

DEC.  2,1970 

API 

1 AID 

.001 

P 

AGF  343 

L 

ATTITUDE  MALfMVr'  ROUTINE' 

USEr  « S PAGE 

NO. 

2 

EO 

S3 

R 0072 

IT  THEM 

DETERMINES  tee 

DIRECT  ION 

COSIN 

E MATRICES  RELATING  BOTH  THE  INITIAL 

AND  FINAL  S/C 

OR  I 

ENTAT 

ION 

TO 

STABLE 

R 0074 
R0076 

M EM  B Er 

* * 

AXES  (MIS,  MRS) 

. IT  ALSU 

C 0 MPU 

TES  THE  JATMX  ELATING  FINAL  S/C  AXES  TO  INITIAL 

S/C 

AXES 

* 

(MF  I 

) . 

THE 

R0078  ANGLE  OF  ROTATION  (AN)  IS  THEN  EXTRACTED  FROM  THIS  MATRIX,  AND  TESTS  ARE  MADE  TO  DETERMINE  IF 
R 0080 

ROOS1  A)  AM  LESS  THAN  DEG1' EES  (MINANG  ) 

R 008  2 B)  AM  GREATER  THAN  170  DEGREES  (MAXANG) 

RQ0G3  IF  AS  LESS  THAN  *<2s>  DEGREES,  NO  COMPl.  TCAT  ED  AUTOMATIC  MANEUVERING  IS  NECESSAR 

ROC0'-  SET  COO  DESIRED  EQUAL  TO  THE  FINAL  C DU  DESIRED  ANGLES  AND  TERMINATE  THE  JOB. 

ROOST 

R 008 p T F AM  IS  CD  EATER  THAN  . 2^  DFGREES  BUT  (ESS  THA':  170  DEGREES,  THE  AXES  OF  THE 

R0G90  - * 

R 009 1 (COF)  IS  EXTRACTED  ERGO  THE  SKEW  SYMMETRIC  COMPONENTS  OF  ME  I . 

R0093  IF  AM  CREATES  THAT  17G  DEGREES  AM  ALT  l-  NATE  METHOD  EMPLOYING  THE  SYMMETRIC  PA 

rOOQR 

R 0096  TO  DETERMINE  COF. 

R 0097  THE  PROGRAM  THEN  CHECKS  TO  SEE  IF  THE  MANEUVER  AS  COMPUTED  WILL  BRING  THE  S/C 

R 009°  SO,  A NEW  MANEUVE'  I?  CALCULATED  WHICH  WILL  JUST  SKIM  THE  GIMBAL  LOCK  ZONE  AND  ALI 
R0101  METHOD  ASSURES  THAT  TOE  ADDITIONAL  MANEUVERING  TO  AVOID  GIMBAL  LOCK  WILL  BE  KEPT  T 
R 01 03  P AXIS  YAW  WILL  BE  NECESSARY,  A SWITCH  IS  RESET  (STATE  SWITCH  31)  TO  ALLOW  FOI  THE 
R 0105  YAW, 

p 0106  AS  STATED  PREVIOUSLY  KALCMANU  GENERATES  A SEQUENCE  OF  DESIRED  GIMBAL  ANGLFS  WHICH  ARE  UPDATED  EVERY 

R 0108 

RCUO  SfcCi  D.  THI:  IS  ACCC  -.PI.  INKED  BY  A SMALL  I A T I ON  OF  THE  DESIRED  S/C  FR  A ME  ABOUT  TEE  VECTOR  COF.  THE  NEW 
R 01 1 ? DESIRED  ' EFEr  ENCt  MAT  MX  (S  THEN, 

P 0 1 1 3 * * * 

R0114  MIS  = MIS  DEL 

R 01 1 5 N+l  N 


Y.  THEREFORE  WE  CAN  SIMPLY 


S INGLE  EOUI  V At  ENT  ROTATION 

RT  OR  MF  I (MFISYiM)  IS  USED 


THROUGH  GIMBAL  LOCK.  IF 
GN  THE  S/C  X-AXIS.  THIS 
0 A MINIMUM.  SINCE  A FINAL 
COMPUTATION  OF  THIS  FINAL 


R 0 1 1 6 * 

ROUT  WHIM  DEL  IS  THE  'AT  IX  C ESRMDING  TO  THIS  SMALL  MAT  ION.  THE  NEW  CDU  ANGLES  CAN  THEN  BE  EXTRACTED 
R 01 1 ° * 

R 0120  FROM  MIS. 

R 0121  AT  THE  BEGINNING  of  The  MANEUVER  THE  AUTOPILOT  DESIRED  RATES  (GMEGAPO,  OMEGAQD,  OMEGARO)  AND  THE 

R0123  MAN  RIVES'  TIMINGS  APE  ESTABLISHED.  CM  THE  FIRST  PASS  AND  UN  ALL  SUBSEQUENT  UPDATES  THE  CDU  DESIRED 
R0125  ANGLES  AT E LOADED  WITH  THE  APPROPRIATE  VALUES  AND  THE  INCREMENTAL  CDU  ANGLES  ARE  COMPUTED.  THE  AGC  CLOCKS 

R 01 27  ( TIMM  AND  TIME2)  ARE  THAN  CHECKED  tq  SEE  IF  rHE  MANEUVER  WILL  T E-  MI NATF  BlFOPE  tHE  NEXT  UPDATE. 

R 0 1 2 9 NOT,  KALCMANU  CALLS  FOR  ANOTHER  UPDATE  ( RUN  AS  A JOB  WITH  PRIORITY  TBD)  IN  ONE  SECOND.  ANY  DELAYS  II:  THIS 

R0131  CALLING  SEQUENCE  ARE  AUTCMAT ICALLY  COMPENSATED  IN  CALLING  FOR  THE  NEXT  UPDATE. 

R 0 1 3 3 

R0134  IF  IT  IS  FOUND  THA'  THE  MANEUVER.  IS  TO  TERMINATE  BEFORE  THt  NEXT  UPDATE  A 

R013L  LIST  TASK)  TO  STOP  THE  MANEUVER  AT  THE  APPROPRIATE  TIME  AS  EXPLAINED  ABOVE. 

9013P 


ROUTINE  IS  CALLED  (AS  A WAIT- 


GAP: 

L 

R 0139 

RQ140 
R 0142 
R 0 1 > * 
P0146 

R 0147 
R 0 148 
R0144 
R 01  “5  0 
R 0 1 5 1 
R0152 
R 0 1 53 

R 01  5^ 
R 01  56 

R 015  7 
R 0 1 5 8 
R0159 
R 0 1 6 0 

R 0161 
R0163 
R0165 

R 0166 
R 01  6 8 
R 0169 
R 017  1 
R 017  3 
R 017  5 

R0176 
R 01 78 
R 0190 
R 018  1 
R0132 

R 0 1 8 3 
R 01  85 

R0186 
R 0187 
R 0 1 6 8 
R01P9 
R 01 90 
R 019  1 
R 019  2 
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CALI  ING  SEQUENCE 

IN  1KDEI  0,0  PEFF.'pf  a KALC-'ANU  SUPERVISED  -ANEUVEl  , THE  COMMANDED  GIM3AL  ANGLES  MUST  BE  PRECOMPUTED  AND 
STO  1 0 IN  L<  C A T I n i S CPHI,  C THETA,  CPSI.  THE  USE  :S  P : OGC  AM  MUST  THEN  CLEAR  STATE  SWITCH  NO  33  TO  ALLOW  THE 
ATTITUDE  MANEUVER  ROUTINE  T PERFORM  ANY  FINAL  P-AXIS  YAW  IN  CURT  ED  BY  AVOIDING  GIM8AL  LOCK.  THE  MANEUVER  IS 
THEN  INITIATED  BY  ESTABLISH 'NG  THE  FOLLOWING  EXECUTIVE  JOB 


* 

CAF  PRIG  XX 

I NHI NT 

TC  F INDVAC 

2CADP  K ALCMAM3 

RELINT 

rHE  USER : S °P1G  AM  ? n,y  E':H6'  CONTINUE  L WAIT  FT  THE  t|rm  I NATION  OF  THE  MANEUVER.  JF  THE  USER  WISHES  TC 
WAIT,  HE  MAY  PUT  HIS  JOS  TO  SLEEP  -i  I TH  THE  FOll  OW  ING  INSTRUCTIONS 


L TC  BANKCALL 

L+l  CADF  ATTSTALL 

L+2  (BAD  RETURN) 

L+3  ( G ( CD  '-ETURW) 

IJPI  J COHO  LET  I or.'  E THE  + A'lluVE'1  , THE  PP.uGPA*  ILL  BE  A W A K F N E 0 AT  L+3  IF  THE  MANEUVER  WAS  COMPLETED 
SUCCESSFULLY,  OR  AT  L+2  IF  THE  MANEUVER  WAS  ABORTED.  THIS  ABORT  WOUID  OCCUR  IF  THE  TNITIAL  OR  FINAL  ATTITUDE 
WAS  IN  GIMBAL  LOCK. 

***f  T A BENE***  IT  IS  ASSUMED  THAT  THE  DESIRED  MANEUVERING  RATE  <0.5,  2,  5,  10,  DEG/SEC)  HAS  BEEN  SELECTED  BY 
KEYBOARD  entry  PRICE  to  the  execution  of  KALCMANU. 

TT  IS  ALSO  ASSUMED  THAT  THE  AUT  'PILOT  IS  I A THE  AUTO  MODE.  IF  THE  MODE  SWITCH  IS  CHANGED  DURING  THE 
MANEUVER,  KALCMANU  WILL  TERMINATE  VIA  GOODEND  WITHIN  1 SECOND  SC  THAT  R60  MAY  REQUEST  A TRIM  OF  the  S/C  ATTITUDE 
THIS  IS  THE  ONLY  MEANS  FOR  MANUALLY  TERMINATING  A KALCMANU  SUPERVISED  MANEUVEF . 

SUBROUTINES 

KALCMANU  USE*  A UUWBEf  OF  INTERPRETIVE  SUBROUTINES  WHICH  MAY  BE  OF  GENFRAL  INTEREST.  SINCE  THESE  ROUTINES 
WERE  programmed  EXCl  m -'VELY  FI"  KALCMANU,  THEY  APE  NOT,  AS  YET,  GENERALLY  AVAILABLE  FOR  USE  BY  OTHER  PPDWAMS. 

MXM3 


THIS  SUBROUTINE  HUi  II  PLIES  TWO  3X3  MAT:  ICE'  AND  LEAVES  I HF  RE  SUIT  IN  “HE  FI  ST  18  LOCATIONS  OF  the  PUSH 
DOWN  LIST,  T.E. , 


( M M M ) 

( C 1 2) 

* ( ) 

M = ( M M i ) 

(3  4 5) 

( ) 

( M M M ) 


Ml 


X 


* 

M2 
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R 0193 

(6  7 8) 

R 01 94 

R 0 1 9 6 
R0198 

$ 

INDEX  FE3TSTE  XI  RUST  BE  L0AOE > WITH  THE  CCMPl  EM  ENT  UF  THE  STARTING  ADDRESS  FDR  Ml,  AND  X2  MUST  BE 

R 01 9 ° 

R 020 1 

R 0203 

R 020  5 

LOADED  WITH  THE  COMPLEMENT  OF  THE  STARTING  ADORE- - FOR  M2.  THE  ROUTINE  USES  THE  FIRST  20  LOCATIONS  no  THE  PUSH 

DOWN  L I ST . THE  FIRS’  ELEMENT  OF  THE  MATRIX  APPEARS  IN  PDO.  PUSH  UP  FOR  M . 

8 

R 0206 

R 0207 

TR  AN  SPG S 

R 020  8 

R 0 2 1 0 

THIS  ROUTINE  TRANSPOSES  A 3x3  MATRIX  AN D LEAVES  THE  RESULT  IN  THE  PUSH  DOWN  LIST,  I.E., 

R 02 1 1 

R 0 2 1 2 

* 0 T 

Ml 

R 02 1 3 

R 0215 

R 02  1 6 

R 02 1 8 

INDEX  • EG  1ST1  ' XI  MUST  f ::TAI'  THE  COMPLEMENT  nF  THE  ST  A;  ID'S  ADO'  ESS  FOR  Ml.  PUSH  UP  FOR  THE  FIRST  AND  SU8- 

* 

SEQUENT  COMPONENTS  OF  M.  THIS  SUBROUTINE  ALSO  USES  THE  FIRST  20  LOCATIONS  OF  THE  PUSH  DOWN  LIST. 

R.  02  1 c 

R 0220 

C DU  TO  DC  M 

R 022  1 

R 022  3 

R 022  5 

THIS  SUBROUTINE  CONVERTS  THREE  CDU  ANGLFS  IN  T(MPAC)  TO  A DIRECTION  COSINE  MATRIX  (SCALED  BY  2)  RELATING 

THE  CDf RESPONDING  S /C  ORIENTATIONS  TO  THE  STABLE  MEMBER  FRAME.  THE  FORMULAS  FOR  THIS  CONVERSION  ARE 

R 022  6 
R0227 

M = COSY  COcZ 

0 

R 022  8 

R 0229 

M = -COSY  SINZ  COSX  + SINY  SINX 

1 

R0230 

R 023  1 

R = CL-SY  Sir  7 SINX  + ST  NY  COSX 

2 

R 023  2 
R0233 

M = SINZ 

3 

R023* 

R 0 2 3 5 

m = cnsz  cosx 

4 

R 0236 

R 0237 

M = -COSZ  SINX 

5 

R 02  3 8 

R 0 2 3 c 

-SI UY  CNSZ 
ft 

R 0240 

R 024 1 

M = SINY  SINZ  COSX  + COSY  SINX 

7 

’ V SIN Z COSX  + COSY  SI  NX 
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R 0242 
R0243 

R 0244 
R0245 
R 0246 
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-SINY  SINZ  SINX 


COSY  C.OSX 


INHERE 


INTER  G I M SAL  ANGLE 
INNER  GIM3AI  ANGLE 
Sole  gimbal  angle 


R 0247  the  INTERPRETATION  OF  THIS  MATRIX  IS  AS  FOLLOWS 

R 024  P IF  A , A , A rh'  ESENT  THE  COMPONENT  S F A VECT'V  IN  S/C  AXES  THEN  THE  COMPONENTS  OF  THE  SAME  VECTOR  IN 

R025C  X Y Z 

R 025 1 STABLE  EMBE  AXES  (fi  , 6 , B ) ARP 
R0252  X Y Z 


R 0253 
R 0254 
R 025  5 
R0256 
R0257 
R025S 
R0259 
R 0260 
R0261 


( B ) ( A ) 

( X ) ( X ) 

( ) ( ) 

( ) * ( ) 


( B ) 
( Y) 
( ) 
(B  ) 
( / ) 


( A ) 
( Y ) 
( i 
(A  ) 
( Z) 


R 026  2 THE  SUBROUTINE  WILL  STORE  THIS  MATRIX  IN  SEQUENTIAL  LOCATIONS  OF 

R 0264 

R 0266  PROG:  AM.  TO  DC  THIS  THE  CALLING  PROGRAM  MUST  FIRST  LOAD  X2  WITH  THE 

S 026  3 

R 026  - INTERNALLY,  THE  ROUTINE  IISES  THE  FIRST  16  LOCATIONS  OF  ■ HF  PUSH 

R 027 1 REG T STEP  X?. 


ERASABLE  MEMORY  AS  SPECIFIED  BY  T HF  CALLING 

* 

COMPLEMENT  OF  THE  STARTING  ADDRESS  FOR  M. 

D OWN  LIST,  ALSO  STEP  PEG! STEP  SI  AND  INDEX 


R 0272 
R 0 2 7 ? 
R 0276 
R 027  6 
P 027 8 
R02B0 
R 0232 
R 0284 


DCs!  TO  CDU 


THIS  ROUTINE  EXT’  ACTS  THE  CDU  ANGLES 


FROM  A DIRECTION  COSINE  MATRIX 


* 

( M SCALED  BY 


RELATING  S/C  AXIS  tq 


STABLE  MEMBER.  AXES.  XI  MUST  CONTAIN  THE  COMPLEMENT  OF  THE  STARTING  ADDRESS  FOR  M.  THE 
CORRESPONDING  GI MBAt  ANGLES  IN  V (MP  AC)  AS  DOUBLE  PRECISION  1 :S  COMPLEMENT  ANGLES  SCALED 
FOR  "HIS  CONVERSION  A”F 


SUBROUTINE  LEAVES  THE 
BY  2 P I . THE  FORMULAS 


R0285  Z = ARCS  IN  («  ) 

R 0286  3 


R 0287  Y = ARCS  IN  (-M  /COSZ) 

R 0288  6 


R 028*5  TF  w TR  NEGATIVE,  Y I c ! EPl  ACED  BY  PI  SGN  Y - Y 
R 0290  0 
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L ArilTUOE  maneuver  routine 

R 029 1 X = ARCSIN  (-M  /COSZ) 

R 0292  5 

R 02°  3 IF  M IS  NEGATIVE  X IS  REPLACED  BY  PI  SGN  X - X 

R 0294  a 

R 0295  THIS  ROUTINE  DOES  NOT  SET  THE  PUSH  DOWN  POINTEt  , BUT  USES  THE  NFXT  8 LOCATIONS  OF  THE  PUSH  DOWN  LIST  AND 

R 0297  RETURNS  THE  POINTER  TO  ITS  ORIGINAL  SETTING.  THIS  PROCEDURE  ALLOWS  THE  CALLER  TO  STORE  THE  MATRIX  AT  THE  TOP  OF 
R 029  9 THE  PUSH  DOWN  I.  1ST. 
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R030P  DELCOMP 

R 030  1 


R 0302  * 

R 030  3 THIS  ROUTINE  COMPUTES  THE  DIRECTION  COSINE  MATRIX  (DEL)  RELATING  IN 

R 0304 

R 0306  IS  OTATEO  WITH  ESPECT  T'  THE  FIS-ST  BY  Af  ANGLF,  A,  A B 0 • T A UNIT  VECTOR,  U.  THE  FORMULA  FOR  THIS  MATRIX  IS 
R 0308 

R 0309  * * — T * 

R 03 1C  DEL  - I CoS  A + UU  ( 1-COSA  ) + V SINA 

R0311  X 


R 03 1 2 WHE'E  * 

R 03 1 3 I 

R 03  1 4 


(1  0 0 ) 

(0  1 0) 

( 0 0 1 ) 


R 031 c 
RC316 
R0317 
R 031  8 
R 03  1 9 
R0320 
R 032! 
R 0 3 2 2 
R 032  3 
R 0324 
R 032  5 


C. 

( IJ  u u 

(X  X Y 

( 

— T ( 2 

UU  = (U  U II 

( Y X Y 

( 

( 

( U U U U 

( Z X Z Y 


U U ) 

X Z) 


) 

U U ) 

Y Z) 
) 

2 ) 
U ) 

Z ) 


R 03  26 
R 0327 
R 0328 

R 032  9 

■ 

R 033  1 
R 0332 
R 033  3 


(0  -IJ  U ) 

( Z Y ) 

* ( ) 

V = (U  0 -U  ) 

X ( Z X) 

( ) 

(-U  li  0 ) 

( Y X ) 
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R0334 

R0335 

R 0336 

U = UNH'  rotation  vector  resolved  into  s/c  axes 

a = rotation  angle 

R 03  3 7 

P 0338 

* 

THE  INTERPRETATION  fF  DEL  !S  AS  FOLLOWS 

R 0339 

P 034  1 

R 0342 

R 034-3 

IF  A , A , A REPRESENT  THE  COMPONENT  OF  A VECTOR  IN  THE  ROTATED  FRAME,  THEN  THE  COMPONENTS  OF  THE  SAME 

X Y Z 

V EC TO 5 IN  THE  ORIGINAL  S/C  AXES  ( B , 8 , B ) ARE 

X Y Z 

R0344 

R 0345 
R034L 

(B  ) (A  ) 

( X ) ( X ) 

( ) * ( ) 

R 034  7 

R 03*  8 
R03A9 

(8  ) = DE!  (A  ) 

( Y)  ( Y) 

( ) ( ) 

R 0350 

R 035  1 

(B  ) (A  ) 

( Z ) ( Z) 

R 0352 

R 0354 

'•'HE  c 0 itT  I N F WILL  SvEk-E  ‘‘HI1  MAORI  X (I  CAL  ED  UNITY)  I A SEQUENTIAL  LOCATIONS  OF  ERASABLE  MEMORY  BEGINNING  WITH 

R 0356 

R 0358 

R 0360 

THE  LOC AT ION  CALLED  DEL.  IN  ORDER  TO  USE  THE  ROUTINE,  THE  CALL  1 NG  F'OGPAM  MUST  FIRST  STUFF  U (A  HALF  UNIT 

DOUBLE  PRECISION  VECTOR)  IN  THE  SET  OF  ERASABLE  LOCATIONS  BEGINNING  WITH  THE  ADDRESS  CALLED  COF.  THE  ANGLE,  A, 
MUST  THEN  BE  LOADED  INTO  D(MPAC). 

R0361 

R 036  3 

INTERNALLY,  THE  PROGRAM  ALSo  USES  THE  FTRS1  10  LOCATIONS  OF  THF  PUSH  DOWN  LIST. 

R 0364 
R0365 

RE AD  CD UK 

R 0366 

R 0368 

THIS  BASIC  LANGUAGE  SUBROUTINE  LOADS  T(MPAC)  WITH  THE  THREE  CDU  ANGLES. 

R 0369 
R.0370 

S I GUM P AC 

R 037  1 

R 0373 

THI8  IS  A BASIC  LANGUAGE  SUBffuTINE  WHICH  L '4  MIT'S  ~ H F MAGNITUDE  OF  O(MPAC)  TO  + OP  - DPOSMAX  ON  OVERFLOW. 

R 0376 

PROGRAM  STORAGE  ALLOCATION 

R 0375 

R 0376 

R 0377 

1!  FTXED  MEMORY  1059  WORDS 

2)  ERASABLE  MEMORY  98 

3)  STATF  SWITCHES  3 

SAP:  ASSiMBL t REVISION  OOl  OF  AGO  PROGRAM  AP11RUPE  BY  EYLES 
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R0379  JOB  PRIORITIES 

R 038C  1)  KAl CWANU  T BO 

R 038 1 ?)  ONE  SECOND  UPDATE  TBD 

R 0382  St. MY  A!'  Y OF  STATE  SWITCHES  AND  FLAGWORDS  USED  BY  KAICNANU. 


R 038  3 STATE  FLAGWi  D 2 SETTING  MEANING 

R 038 A SWITCH  NO.  BIT  NO. 


R 03  8 5 
R 0386 
R 03  3 8 
R 0390 
R 03°  1 
R 039  2 
R 0393 


£ 


31 


1 A 


32 


13 


0 MANEUVER  WENT  THROUGH  GIMBAL  LOCK 

1 MANEUVER  DID  N0T  GO  THROUGH  GIMBAL  t OCK 


0 CONTINUE  UFOATE  PROCESS 

1 START  UPDATE  PROCESS 


039* 

0396 

0398 

33 

12 

0399 

0400 

34 

11 

0 PEnFO-  M FINAL  P-AXIS  YAW  IF  ^EQUIPED 

1 IGNORE  ANY  FINAL  P-AXIS  YAW 

0 SIGNAI  END  OF  KAL  CMANU 

1 KALO'ANU  IN  PROCESS  USER  MUST  SET  SWITCH  BEFORE  INITIATING 


R 0402  * INTERNAL  TO  K ALCMANU 


R 0403  SUGGESTIONS  FOP  P'-IGRA'-*  INTEGRATION 


R 06  0* 


THE  FOLLOWING  VARIABLES  SHOULD  RE  ASSIGNED  r0  UN ‘•.WITCH  ERASABLE 


R 0405 
R 0406 
R 040? 
R 0408 
P 040° 
R 041  o 
RO*  1 1 
R 04 1 2 
R 041  3 


C PH  I 
CTHFTA 
CPS  I 

POINTVSM  +5 
SCAXTS  +5 
DEL DC DU 
DEL  DCDU l 
DEL  DCDU2 
' AT  E I NDX 


R 06 1 * 
R 04  1 5 


THE  FOLLOWING  SUBROUTINES  M AY  BE  PUT  II  A DIF  F F ENT  BANK 


M X M 3 
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R 04- 1 6 

TRANSPCS 

R 04 1 7 

S IGNMP AC 

R0A18 

r,  EADCDUK 

P 0419 

CDU TOD CM 
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042  0 

0421 

0422 

0423 

R0424 
R 0426 

0427 

042  B 
04  29 

0430 

0431 

043  7 
043 1 

0439 

0440 

0441 

0442 

0443 
0*44 

0445 

0446 

0447 

0448 

0449 

0450 
045  i 
04  5 2 

0453 

0454 
045  5 
045  6 

045  7 

0458 

0459 

0460 

0461 

0462 

0463 

0464 

0465 

0466 

0467 

046  8 
046° 

0470 

0471 

0472 


ATTttUOF  MA'EJVL"  ROUTINE 


REF  1 


15,2050 
22 , 2000 
22,2004 


BANK  15 
SETLOC  KALC^ONl 
BANK 


REF  3 LAST  236  E6,1676 


EBANK=  BC  DU 


f HE  THREE  DESIRED  CDU  ANGLES  MUST  BE  STORED  AS  SINGLE  PRECISION  TWCS 
LOCATIONS,  CPH1,  CTHETA,  CPSI. 
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1 
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1 
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1 

3 

R EF 

5 

LAST 

351 

REF 
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REF 

4 

LAST 

1 16 

REF 

2 

LAST 

340 

REF 

2 

LAST 

? 5 1 

REF 

4 

LAST 

351 

REF 

1 

RFF 

12 

LAST 

135 

REF 
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LAST 

351 

REF 

14 

LAST 

351 

REF 

15 

LAST 

351 

REF 

5 

LAST 

353 

REF 

1 

REF 

1 

'"EF 

2 

L A c T 

351 

REF 

3 

LAST 

351 

22 , 2004 

0 6 0 37 

0 

90  9 A (■  4~ 

7 7 A 9 >6 

0 

<L  C.  f (lUv” 

f f Ojt 

22,2006 

444  03 

0 

22,2007 

03277 

0 

2 2 , 20  1 0 

51535 

0 

22,20 1 1 

OC  3 24 

1 

22,2012 

c 1 0 2 5 

1 

A/.Afn 

1 

el  f L J 

V.  *-  -cT  v/  9 

1 

22,2014 

44724 

0 

22,2015 

72364 

0 

22,2016 

0 324  6 

1 

22,2017 

03277 

0 

22,2020 

77624 

1 

2 2,20?  1 

4 A4  10 

1 

22 , 2022 

72364 

0 

22,2023 

02230 

1 

22,2024 

00  32  2 

1 

22 , 202  5 

77  624 

1 

22, 2026 

44410 

1 

22 ,2P?7 

4 t 160 

1 

22 , 2030 

03246 

1 

22,203  1 

44326 

0 

22,2032 

45575 

1 

22, 2033 

5 04  5 7 

1 

22,2034 

77626 

0 

22 , 20  ? 9 

50465 

o 

22,2036 

77626 

0 

22 , 2037 

74  473 

1 

22, 2040 

75160 

1 

22,204  1 

0330  3 

1 

2 2 , 204 2 

022  30 

1 

22, 2043 

77624 

1 

22, 2044 

44312 

1 

22 , 2045 

45573 

1 

22,2046 

51532 

1 

22,2047 

776  26 

0 

22,2050 

51540 

1 

22,2051 

77626 

0 

22,2052 

75546 

1 

22,2053 

45001 

1 

KALCMAN3 


COUNT*  $$/KALC 
TC  INTP-ET 

RTB 


SECAD 


0 E ADCDUK 
STORE  BCDU 
6 LOAD  ABS 
CPSI 

DSU  B PL 

LOCKANGl 
TOOBADF 
AXC , 2 T LOAD 
MIS 
BCDU 

CALL 

C OUT  -DC M 
AXC, 2 TLOAD 
MFS 
C PH  I 

CALL 

CCUTCOCf- 
AXC , 1 CALL 
MIS 

TRANSPOS 
VLOAD  STADR 
5 TOVL  T MI S +120 
STADR 

STOVL  T^IS  +6 
STADR 

STORE  T MI  S 
AXC , 1 AXC, 2 
T MI  S 
MFS 

CALL 

MXM3 

VLOAD  STADR 
STOVL  MFI  + 1 2 D 
STADR 

STOVL  MFI  +6 
STADe 

STORE  MFI 
SETPD  CALL 
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COMPLEMENT  ANGLES  IN  THE  THREE  SUCCESSIVE 


PICK  UP  THE  CURRENT  CDU  ANGLES  AND 
COMPUTE  THE  MATRIX  FROM  INITIAL  S/C 
AXES  TO  FINAL  S/C  AXES 
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gap:  assemble  eevisitn  001  f agc  pfug'-am  apijrope  by  fyles 


L ATTITUDE  MANEUVER  ROUTINE 


0689 

0690 

REF 

15 

LAST 

351 

22.2360 

22.2361 

0 6037 
77616 

0 

0 

TC 

R VO 

INTPRET 

06  91 

1 5,2050 

BANK 

15 

0692 

REF- 

2 

LAST 

351 

22, 2000 

SETLCC 

KALCM0N1 

n t-  c o 

B A N K 

UC  7 0 

A C t 4 “C  (0 

06  94 

REF 

7 

LAST 

356 

E6 , 1676 

E B AN  K = 

BCDU 

Ofc9c 

22,236 2 

00013 

0 

M I M AM  G 

2DEC 

0.00069375 

0695 

22,2363 

135-73 

0 

r>A  o a 

7 . 7 3 6 * 

17  07  o 

1 0 

MAVA  C 

? D E C 

n o 7 7 ’0  7 9 ? 9 ? 

UO  - n 

4 2_  f 6 J C 

' i M A W 1 

0696 

22,2365 

36  343 

1 

R 0697 

GIMBAL  LOCK 

CONSTANTS 

R 0690 

D = 

M G A 

C ? '•  f E S P " D I N G i 0 G T B A L 1 OCK 

= 

60  DEGREES 

R 06  99 

NGL  = 

BUFF  E f ANGLE  (TO  AVOID  DIVISIONS 

BY  ZERO 

) = 2 DEGREE 

0700 

22,2366 

1 5666 

0 

SD 

2DEC 

.433015 

0700 

22,2367 

20443 

0 

0701 

22,2370 

33555 

1 

K3S1 

2DEC 

.86503 

0701 

22,2371 

01  KG 

1 

0702 

22,2372 

67777 

1 

K4 

2DEC 

-.25 

070? 

22,2373 

7 7777 

0 

0703 

22,2374 

04000 

0 

K4SQ 

2DEC 

. 125 

0703 

22,2375 

OOCOC 

1 

0704 

22,2376 

002  1 c. 

1 

SNGLCD 

2DEC 

.008.72  5 

0704 

22,2377 

3 F 3 2 3 

0 

0705 

22,2400 

1 7773 

1 

CNGL 

2DEC 

.-+7  0- c 5 

070  5 

09057 

A 

4 4 f ' TU  I 

b 

0706 

22 , 2402 

14344 

1 

LOCKANGL 

DEC 

.388889 

R0707 

INTERPRETIVE  SUBROUTINE  TO  READ  THE  CDU 

ANGLES 

0708 

REF 

5 

LAST 

254 

22,2403 

3 0034 

0 

F EADCOUK 

CA 

CDUZ 

07  09 

REF 

67 

LAST 

3 3f 

2 2,2404 

54  156 

1 

TS 

MP AC  +2 

0710 

22,2405 

0 9006 

1 

EXTEND 

0711 

REF 

7 

LAST 

305 

22 , 24C  6 

3 0033 

1 

DCA 

C D!J  X 

0712 

REF 

1 

22, 2407 

1 64  76 

0 

TCP 

T LOAD  +6 

0713 

22,2410 

6 6370 

0 

C OUT 9 DC M 

AXT  , 1 

SSP 

07  1 4 

22, 2411 

00003 

1 

OCT 

3 

0715 

REF 

1 

22,2412 

0 005  1 

0 

S 1 

0716 

22, 241 3 

0C001 

0 

OCT 

1 

0717 

22,2414 

COO  10 

0 

STORE 

7 

07 18 

22,2415 

776C  1 

0 

SETPD 

07 1 c 

22,2416 

0 0001 

0 

0 

0720 

22,2417 

47133 

0 

LOOP^  IN 

S L 0 A D * 

RT8 

0721 

22,2420 

00013 

0 

10D,  1 

0722 

REF 

9 LAST  324 

22,2421 

21576 

0 

C.DULOGIC 

15  DEC 


2 


1970  AP11AID 


001  PAGE  357 


USfcf • c PAGE  NO.  16  E6  S3 


= S I N ( D ) 

$2 

= SINiD) 

$1 

= -COS(D) 

$2 

= CnstD)COS(D) 

£2 

= SIN (NGL ) COS ( D ) 

$2 

COS (NGL i 

$2 

= 70  DEGREES 

LOAD  T ( M P A C ) WITH  CDU  ANGLES 

AND  CHANGE  MODE  TO  TRIPLE  PRECISION 


SET  X F 1 


SI,  AND  PD  FOR  LOOP 


I 

GAP  : ASSEMBLE  <E  V I S I 3 K C01  ■ *F  AGC  PCOG.  AN  API  1 ; ’ ( P E 8Y  EYLfcS 
I L ATT  I JOE  -TANEUVE ft  ROLLINE 


0723 

22,2422 

OC  013 

0 

STORE 

0724 

22 , 2423 

65356 

1 

SIN 

D7  9 R 

? ? . 24.24 

0 00  1 3 

0 

0726 

22,2425 

4 1 r 4 6 

0 

COS 

0727 

22 , 2426 

71300 

1 

T I X , 1 

0728  PEE  1 

22,2427 

4 ! 7 

0 

0729 

22 , 2430 

00007 

0 

0730 

22,2431 

72405 

0 

DMP 

07  31 

22,2432 

0C013 

:Q 

0732 

22,2433 

1C001 

1 

STORE 

073  3 

22 , 2434 

41345 

0 

DL i > AD 

07  3 l 

22, 2435 

0 C 0 0 5 

1 

0735 

22,2436 

00001 

0 

0736 

22,2437 

41325 

0 

PDDL 

22. 2440 

0CC07 

0 

U 1 J (■  ■ 

0738 

22,2441 

OOC  1 1 

1 

07  3 9 

22,2442 

7 240  5 

0 

DMP 

07AP 

2 2 , 2443 

0000  3 

x 

0741 

22,2444 

7 2 4 21 

0 

BDSU 

0742 

22,2445 

CC015 

0 

074  3 

22,2446 

10003 

0 

STORE 

074^ 

22,2447 

41345 

0 

DLOAD 

074  5 

22,2450 

00003 

1 

074.6 

2 2,2-51 

00005 

1 

0747 

22, 2452 

41325 

0 

PDDL 

0748 

22,2453 

00007 

0 

0749 

22,2454 

00011 

1 

0750 

22,2455 

72405 

0 

DMp 

0751 

22,2456 

00  001 

0 

075? 

2 2 , 2457 

7 ?4 1 5 

1 

DAD 

0753 

22,2460 

00017 

1 

0754 

22,2461 

10005 

0 

STORE 

075  5 

•?  o . A 2 

77  745 

1 

ni  had 

4-  41  T J 4- 

L>  l..  y M U 

0756 

22,2463 

0 0011 

1 

0757 

22 , 2464 

10(0  7 

1 

STOr  E 

075  8 

22, 

7774  5 

1 

DLOAD 

0759 

22,2466 

00013 

0 

0760 

22,2467 

72405 

0 

DMP 

0761 

22,2470 

0CCQ3 

1 

0762 

22,2471 

iron 

0 

STORE 

0763 

22, 2472 

41345 

0 

DLOAD 

0764. 

2? , 2473 

0 0013 

0 

076? 

22 , 2474 

0C001 

0 

0766 

22,2475 

72476 

1 

OCOMP 

0767 

22,2476 

10013 

1 

STORE 

0768 

22,2477 

41345 

0 

DLOAD 

0769 

2.2,2500 

00005 

1 

0770 

22 , 25C 1 

0('0 1 3 

0 

0771 

22 , 2502 

72476 

1 

DCOMP 

0772 

22,2503 

10015 

1 

STORE 
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LOAD  PD  WITH  0 SIN ( PH  I ) 

2 COS( PHI ) 

4 SIN(THETA) 
fc  COS (THETA) 

8 SI N ( PS  I ) 

10  COS(PST) 


CO=COS( THETA)COS( PSI ) 


( PD6  S INdWETA  ) SIN  (PHI  ) ) 


Cl  = -Crs (THET  A) jIN( p S I )C(  S(PHT  ) 


( PD7  COS (PHI  )SIN (THETA) ) SCALED  4 


C2=C0S(THETA)SIN(PSI)SIN!PHI ) 


C3  = S I N ( PS  ! ) 


C4=  COS ( P S I )CC S ( PH  I ) 


C5=-C0S  (PS  I ) S I 4 ( P H I ) 


C6  = -S  IN  ( THET  A ) CQ'$(  PSI  ) 


10D 

PDDL 

10D 

PUSH 

□ LOAD 

LOOPS  I N 

6 

SL1 

10D 

0,2 

DMP 

A 

0 

DMP 

6 

3D 

SL1 

2 

SL1 

1 2D 

2,2 

DMP 

2 

4 

DMP 

6 

8 D 

SL1 

0 

SL1 

14D 

4,2 

9.  D 

6,2 

10D 

SL1 

2 

8 D , 2 

DMP 

1 00 

0 

SL1 

10D  ,2 

DMP 

i 

10D 

SL1 

1 2D  , 2 


i" 


GAP:  ASSEMBLE  REVISION  Od  OF  AGO  PRQfRAft  AP11ROPE  BY  EYLES 

L A ' ' I UOl  MANEUVER  TL  ‘I’1' 


0773 

0774 
07  7 5 

0776 

0777 
0773 

0779 

0780 

0781 

0782 

0783 

078' 

0788 

0736 

0737 
078  8 
078c’ 

0790 

0791 


R 07  - 3 
9 079' 

R 0795 
R 07  96 
R 0798 

R 0790 

R 0800 

0801 

0802 

0803 

0806 

0805 

0806 

0807 

0808 
080° 

R 08  1 0 

08]  1 
0812 
0613 
081' 

0815 

0816 
0817 


22.2504 

22 . 2505 

22.2506 
22, 25C7 

22.2510 

22.2511 

22. 2512 

22.2513 
2 2 , 2 5 1 4 
22,25  1 5 

22.2516 

22.2517 

22.2520 

22.2521 

22.2522 

22.2523 
22, 2526 

22.2 5 2 5 

22.2526 


77745  1 
72405  0 
00011  1 
41325  0 
00CC7  0 
61 001  0 
72615  1 
77626  0 
67760  1 
7774"  1 
72405  0 
00011  1 
41325  0 
00 007  0 
00003  1 
7 242 r-  1 
77626  0 
67749  1 
77616  0 


DLOAD 

DMP 

POOL 


DAD 
STADR 
STl  E 
Dt  OAU 
DMP 

P DDL 


DSD 

STAD9 

STORE 

rvq 


SLl 
6 D 
DMP 
6 
0 

SLl 

14D,2 

SLl 

°D 

DMP 

6 

2 

S L 1 
1 6D , 7 
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(PUSH  UP  7) 

(P07  COS (PHI ) SIN(THETA) SINK  PSI ) ) SCALE4 


( PUSH  UP  7) 

C 7 = C0  S ( P H I ) SIN(  THETA)  SIN(  PSD 
+COS (THETA)STU(PHI ) 

(PUSH  UP  6) 

( PD6  SIN(THETA)SIN(PHI ISINIPSI 


SCALE4 


(PUSH  UP  6) 

C3  = -STN( THETA) SIN ( PHI  ) SIN (PS  I ) 
+COS (THETA)CPS(PHI ) 


R0792  CALCULATION  OF  THE  MATRIX  DEI 


■f  * J if 

DEL  = ( 1 Dv  AT  - rx  )C  'M  A )+!iu  ( 1- COS  U ) ) +UX  S I N < A 


SCALED  1 


WHERE  U IS  A UN;  r V F C T P E (UP  SCALED  2)  ALONG  THE  AXIS  OF  ROTATION. 
A IS  THE  ANGLE  IF  STATION  (DP  SCALED  2) 


REF 

2 

LAST 

353 

REF 

2 

LAST 

35  3 

COMPILE 

THE  DIAGONAL 

REF 

27 

LAST 

355 

REF 

3 

LAST 

359 

THE  ET'iSfP T T f\ 

JG  ADO' 

"ESS  OF  U IS 

CnF  , 

AND  A IS  Ti 

22,2527 

41401 

1 DELCOMP 

SE  TPD 

PUSH 

22,2530 

0 GOG  1 

0 

0 

22 ,25  3 1 

65356 

1 

SIN 

PDDI 

22,2532 

41546 

0 

COS 

PUSH 

22 , 25  3 3 

6 5 302 

0 

SR  2 

POOL 

22, 2534 

41021 

1 

BDSU 

BCVB 

22 , 2535 

06520 

0 

DPHALF 

22,2536 

21712 

0 

S IGNMPAC 

22,2537 

77  725 

1 

POD! 

COMPONENTS 

f F DEL 

22,2540 

03271 

0 

COF 

22,254  1 

4 1 3 1 G 

0 

DSQ 

DMP 

22 , 2542 

6(005 

1 

4 

22,2543 

5241  5 

0 

DAD 

SL3 

27,2564 

(CO  0 3 

1 

2 

22 ,2545 

77606 

0 

BO  VB 

22,2546 

21712 

0 

SIGNMPAC 

MP AC  CONTAINS  THE  ANGLE  A 


D00 

PD2 

PD2 


S 1 1 ( A ) 
COS ( A) 
COS  ( A) 


$8 


P04  = 1-COS ( A ) 


I" 


GAP:  ASSEMBLE  EVISION  001  OF  AGO  fir- uGRAW  API  IK  OPE  BY  fcYLES 


L ATTITUDE  MANEUVER  ROUTINE 


0618 

PEF 

1 

22,2547 

16231 

0 

STGDL 

0819 

PEE 

28 

LAST 

359 

22,2550 

03273 

1 

up  ? n 

? ? . 2 J5  5 1 

413  1 6 

q 

nc.  n 

O £. 

0821 

22,2552 

00005 

1 

0622 

22,2553 

52415 

0 

DAD 

0823 

2 p>  , 7 1 c 4 

00003 

0824 

22,2555 

77604 

0 

BO  VB 

0825 

REF 

4 

LAST 

359 

22 , 2556 

21712 

0 

0826 

REF 

2 

LAST 

360 

22,2557 

16241 

1 

STOOL 

0827 

REF 

29 

LAST 

3 60 

22,256' 

032  75 

1 

082  8 

2?  ,256  1 

41316 

0 

DSQ 

082° 

3 2 , 2 5 6 2 

00005 

0830 

22,2563 

524  15 

0 

DAD 

0831 

22 , 2564 

0 0 C 0 3 

1 

0832 

22,2565 

7 7604 

0 

BC  VB 

0833 

REF 

5 

LAST 

360 

22 , 25c  4 

21712 

0 

0834 

PEF 

3 

LAST 

3 60 

22  , 2 5t>7 

022  5 1 

0 

STORE 

R 0835 

COMPUTE 

THE  OFF  DIAGONAL  TERMS 

OF  DEL 

0836 

22,2570 

4134  j 

0 

DLUAD 

0837 

PEF 

30 

LAST 

360 

22,2571 

0 3271 

0 

0833 

REF 

31 

L AST 

360 

22,257? 

03273 

1 

083c 

22,2573 

7 24-05 

0 

DMP 

0840 

22 , 2574 

000C5 

1 

0841 

22,2575 

41325 

0 

P DDL 

0642 

REF 

32 

LAST 

360 

22,2576 

03275 

1 

0643 

22, 2577 

00001 

0 

0844 

22,2600 

4 3206 

1 

PUSH 

084  5 

? ? . />  •.  n l 

00007 

0 

l-  C.  1 ' w \ I 1 

0846 

22,2602 

4-1112 

0 

SL  2 

0647 

DEF 

6 

LAST 

360 

22 , 2603 

21712 

0 

0848 

REF 

LAST 

3 60 

? ? . 9 Afl  4 

16237 

0 

C Tfini 

o I ljUL 

0849 

??, 260r 

62421 

1 

8DSU 

0850 

22,2606 

77604 

0 

BU  VB 

0851 

REF 

7 

l AST 

360 

22,2607 

21712 

0 

085  2 

REF 

5 

LAST 

360 

22,2610 

16233 

1 

STGDL 

0853 

REF 

33 

LAST 

360 

22,2611 

03271 

0 

0854 

22,2612 

41205 

0 

DMP 

0855 

PEF 

34 

LAST 

360 

22 , 26 13 

0 3275 

1 

0856 

22,26  14 

000  0 5 

1 

0857 

? 2 , 26  1 9 

65352 

0 

SL  1 

0858 

REF 

35 

LAST 

360 

22,2616 

03273 

1 

0659 

22,2617 

41405 

0 

DMP 

0860 

22,2620 

00001 

0 

086  1 

22,2621 

6 2415 

0 

CAD 

086? 

22,2622 

Ot  007 

0 

0863 

22,2623 

77604 

0 

H0V8 

0864 

REF 

8 

LAST 

360 

22, 2624 

21712 

0 

0865 

REF 

6 

LAST 

360 

22 ,2625 

162  35 

1 

STODL 
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KEL  UX  UX ( 1— COS ( A ) ) +CPS(A)  $1 

COF  +2 
DMP 
A 

SL3 

? 

S IGNMPAC 

KEL  +8 D UY  UY ( 1-COS ( A ) ) +COSIA)  $1 

COF  +4 

DMP 

A 

SL3 

2 

S IGNMPAC 

KEL  +16D  UZ  UZ ( 1-COS ( A ) ) +COSIA)  $1 


DMP 

COF 

COF  +2 
SL1 

4 

DMP  D6  UX  UY  ( 1-COS  A ) $ 4 

COF  +4 
0 

DAD  D8  U Z SIN  A $ 4 

6 

BOV  B 

5 IGNMPAC 
KEL  +6 
SL2 

SIGNMPAC 
KEL  +2 
CCF 
DMP 

CCF  +4 

4 

PDOt  D6 

COF  +2 

PUSH  D8 

0 

SL2 
fo 

5 IGNMPAC 

KEL  +4  UX  UZ  ( 1-C.OS  ( A)  ) + UY  SIN(A) 


UX  UZ  (1-COS  A ) $ 4 

UY  SIN (A) 


9 


GAP: 

L 

0866 

0867 

0868 
0860 

0870 

0871 
087? 
087  8 
08  74 
0878 

0876 

0877 

0878 
0870 
0880 
08  81 
0882 

0883 

0884 

0885 

0886 
0887 


R 0888 
R 0380 
R 0800 
R 089 1 

8 0802 

R 0804 
R 089  5 
R 080  6 
R 0897 
R089P 
R 0890 
R 0900 
R 000  1 
0 0902 
R 0903 
R0904 
R 0906 
R 0906 
R 0907 
8 090  8 
R 0909 
R 091 0 
R 091 1 
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ATTITUDE  MANEUVER  POUHNE 


USER’S  PAGE  MO.  20 


E6  S3 


REE 

9 

L AS  1 

360 

REE 

7 

L AST 

360 

REF 

36 

LA  SI- 

360 

REF 

37 

LAST 

36  1 

RFF 

39 

LAST 

36  1 

REF 

IT 

LAST 

3 6 1 

REF 

3 

LAST 

361 

REF 

1 1 

LAST 

361 

REF 

; ■,  9 

LAS  f 

361 

22, 2626 
22,2627 
22,2630 

62421 

77604 

21712 

1 

0 

0 

22,2631 

1 624  5 

0 

22,2632 

03273 

1 

2 2 , 26  3 3 

4 1 2 C 5 

0 

22,2634 

03275 

1 

22,2635 

0C005 

1 

22 , 2o36 

c 53  52 

0 

22, 2637 

03271 

0 

22,2640 

41405 

0 

22, 2641 

CO  001 

0 

22 , 2642 

62415 

0 

22 , 2643 

00007 

0 

22, 2644 

77604 

0 

22,2645 

21712 

0 

22,2666 

1 6 247 

1 

' 22 , 2647 

6 24  2t 

1 

22,2650 

77604 

0 

22,2651 

21712 

0 

22,  i 2 

02243 

0 

2 2 , 26  5 3 

7 7516 

0 

BDSU  SL2 
BUVB 

SIGNMRAC 


sum 

DMP 

KEL  + 1 ? D 

COF  +2 

DMP 

COF  +4 

4 

UX 

UZ 

(l-CGS(A) ) — U Y SINIA) 

SL  1 

PODL 

CCF 

D6 

UY 

UZ  (l-CQS(A)) 

$ 4 

DMP 

PUSH 

0 

D9 

UX 

SIMA) 

CAD  SL2 
6 

BOVS 

SISNMPAC 

STOOL  KEL  +1  D UY  UZ!1-CCS(A))  +UX  SIMA) 

BDSU  SL? 

BOVS 

SIGNMPAC 

STORE  KEL  +10D  UY  UZ  (1-COS! A))  -UX  SIM(A) 

R VO 


DIRECTION  COSINE  MATRIX  TO  CDU  ANGLE  ROUTINE 

XI  CONTAINS  THE  COMPLEMENT  OF  THE  STARTING  ADDRESS  FOR  MATRIX  (SCALED  2) 
LEAVES  CDU  ANGLES  SCALED  2P I IN  V(MPAC) 

COS ( MG A ) L t LL  BE  LEFT  IN  SI  (SCALED  1) 


rHF  Dj  ° EC  T I ON  COSINE  "I X RELATING  S/C  AXES  Tr'  STABLE  MEMBER  AXES  CAM  BE  WRITTEN  AS*** 
C =C3S (THETA ) COS(  PSI) 

TrTTTTirrTr^tri^|r..„  ‘•TrtTIlirfrr’-^nTmTfTl"'-  ■ 

C =-Cr'S(  THETA)  S.  ( PSI  ) COS  ( PHI  ) +SI  ( 1 MET  A)  S I • 1 (PHI) 

1 

C =CnS(THETA)SI"(9S!)SIf'  (PHI)  + • f<(  THETA  ) COS  (PHI  ) 

2 

C =SI N( PSI ) 

3 

C =CO$(PSI ) C IS (PHI ) 

4 

c =-cns« p ' r ic • • (dm  - ) 

5 

C =-S I N ( T H E T A ) CO  S ( P S I ) 

6 

C =S  1 N (THE  1 A)  S IN{  PS  I ) COS  ( PHI  ) +COS  THETA  ) S 1 11  (PHI) 

7 

C =— S rUTHHTA  ) S IN  ( PS  I )S  If  ( PHI  )+CC  ( THETA  )COS  (PHI) 

8 


1" 


GAP: 
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0 

INDEX 

KSPNDX 

0113 

R EF 

“ 5 

LAST 

133 

22, 31  * 4 

1 1 ' 530 

1 

DV 

1 J ACC 

0114 

REF 

5 

LAST 

367 

22,3155 

51 '701 

0 

INDEX 

KSPNDX 

0115 

RFF 

1 

22,3156 

55*277 

0 

TS 

DELPEPOP 

0116 

REF 

6 

LAST 

3©7 

22,3157 

11*701 

1 

CCS 

KSPNDX 

0117 

REF 

1 

22,316 0 

1 3 133 

1 

TCP 

RATEBIAS 

m ?r 

3CC 

7 

| A C T 

■7  7 7 1 1 

7 A A 7 

n 

r a 

t T M P 1 

wit'. 

A C 1 

D 

Lhu  i 

_>  D . 

■id,  j lu  l 

u 

X A 

J nr  1 

0121 

REF 

3 

LAST 

367 

22, 3162 

6 3166 

0 

AD 

ONE  S FK  +1 

0122 

REF 

1 

22,3163 

57  *706 

1 

XCH 

NEXT  I ME 

0123 

r c p 

3 

| ACT 

"X  A A 

0 7 ,1/1/ 

1 

Tf  P 

t Mrc?  nr  m 1 

r C r 

C 

L A u s 

jOO 

/ 1 1 J J 

i.  3 U 3 

X 

l U r 

1 In  Ur  UX  UU 

012  4 

22,3165 

00000 

1 

ONESEK. 

DEC 

0 

0125 

22 , 31 66 

0 0144 

0 

DFC 

100 

0126 

22,3167 

75777 

1 

BT  ASCALE 

OCT 

75777 

0127 

REF 

4 

LAST 

367 

22,3170 

4 0025 

1 

CONTMANU 

cs 

T I M E 1 

0128 

REF 

2 

LAST 

367 

72, 317  1 

6 1706 

1 

AD 

NEXT* ME 

012° 

REF 

100 

LAST 

367 

22,3172 

10  000 

0 

CCS 

A 

0130 

REF 

19 

LAST 

366 

22,3173 

6 4753 

1 

AD 

ONE 

0131 

REF 

1 

22,3174 

1 3177 

1 

TCF 

MANUCALL 

0132 

R E F 

1 

22,3175 

6 4735 

1 

AD 

NEGMAX 

0133 

22,31 76 

4 0000 

0 

COM 

0134 

22,3177 

G 0004 

0 

MAI  J CALL 

INHINT 

0139 

REF 

14 

LAST 

366 

R2 ,320 0 

0 5203 

0 

TC 

HAITI  1ST 

0136 

REF 

7 

LAST 

3 66 

E6 , 1707 

EBANK= 

ITEM  P 

0137 

REF 

1 

22,3201 

03206 

0 

2C  ADR 

UPDT  CALL 

0137 

REF 

1 

22, 3202 

44066 

1 

STORE  MANEUVER  RATE  IN 
OMEGAPD,  OMEGAQD,  OMEGARD 

COMPUTE  ATTITUDE  ERROR 
OFFSET  = ( WX) A3S( WX1/2AJX 
WHERE  A JX  = 2-JET  ACCELERATION 
= -1/16 


A JX  $ a0  DEG/SEC-SEC 
$ 180  DEG 


= -1/16 

R.  E S F T FOR  NEXT  DCDU  UPOATE 


CALL  FOP  NEXT  UPDATE  VIA  WAITLIST 


GAP: 

ASSEMBLt  f 

EVISION  001. 

OF  AGC  PROGRAM  AP11K0PE 

BY  EYLES 

L 

KAL 

CM  A NO 

ST  EE  5 ING 

0138 

RFF 

4 

LAST  367 

22,3203 

3 3166 

0 

CAF 

01 3C 

REF 

3 

LAST  367 

22,3204 

27*706 

0 

ADS 

0140 

REF 

32 

LAST  366 

22,3205 

l 515  5 

1 

TCP 

0141 

-EF 

1 

22, 3206 

3 7714 

1 

LIPDTCA!  L CAF 

0142 

REF 

13 

LAST 

299 

22 , 3207 

0 5105 

0 

TC 

0143 

REF 

8 

LAST 

367 

E6 , 1707 

EBANK 

01  t 

REF 

1 

22,3210 

0300,3 

1 

2CADR 

014^ 

R EF 

1. 

72 ,321  1 

44066 

1 

0145 

REF 

5 

LAST 

282 

22,3212 

0 52  61 

1 

TC 

3:15  DEC.  2 , lc  70 

AP11 AID 

.001  PAGE 

USER’S  PAGE 

NO.  4 

E6  S3 

ONES  EK  +1  INCREMENT  TIME  FOR  NEXT  UPDATE 

NEXT  I ME 
END OF JOB 


PRIG76  SATELLITE  PROGRAM  TO  CALL  FOR  UPDATE 

FINOVAC  OF  STEEPING  COMMANDS 

TTEMP 
NEWUELH  l 

T ASKOVFP 


368 


GAP  : 


ASSEMBLE  RFVISIIN  ©Cl  OF  AGC  PROGRAM  API IRURf  BY  EYLhS 


L KALCMAM.J  '••rtt/'  " G 


P 0 1 46  ROUTINE  FOR  TERMINATING  AUTOMATIC  MANEUVERS 


0147 

0148 

0149 
015C 

0151 

0152 

0153 
015' 

0155 

0156 

0157 

0158 
0155 
0160 
0161 
0162 
0163 
0166 
0165 


REF  60  LAST 

REF  1 

REF  l 

RFF  1 

REF  1 

REF  1 

REF  1 

REF  2 LAST 

REF  1 

r’EF  1 

RFF  1 

REF  4 LAST 

REF  .8,.  LAST 

r EF  4i  LAS' 

REF  5 LAST 

REF  2 LAST 

REF  2 LAST 

REF  1 

REF  2 LAST 


3 3 6 22,3213 

22, 32  14 
22,3216 

22.3216 

22.3217 

22.3220 

22.3221 

351  22,3222 

22.3223 

22. 3224 

22 . 3225 

352  22,3226 

366  22,3227 

369  22,3230 

367  22,3231 

3t,r'  22,323  2 

367  22,3233 

22,3234 
232  22,3235 


3 4755  1 
55*642  1 
55*645  0 
55*301  0 
55*641  1 
55*644  1 
55*300  1 
3 0323  0 
55*637  0 
3 0322  1 
55*636  1 
3 0321  1 
55*635  1 
3 4755  1 
55*643  0 
55*640  0 
55*277  0 
3 1311  0 
5h  063  0 


MAT:  US  TOP  CAf 

TS 

TS 

TS 

TS 

TS 

TS 

CA 

TS 

CA 

TS 

ENDFOLL  CA 

TS 

CAF 

TS 

TS 

TS 

GOO DM AN U CA 
TS 


0166  REF  42  I. AST  369 

0167  -EF  3 LAST  222 


22,323'  3 4755  1 

2 3 , 3 2 3 5 3 * 3 1 n 0 


CA 

nxcH 


0168 

REF 

2 

LAST 

232 

22 , 3240 

0 

5116 

1 

016  9 

REF 

6 

! AST 

368 

72,3241 

0 

52  61 

1 

TC 

TC 


3:  15  DEC 


2,1970 


AP11  AID 


001  PAGE  369 


USER'S  PAGE  NO.  5 F6  S3 

ZERO 

0EL0CDU2 

OMEGARD 

DELPEPOF 

ZERO  MANEUVER  RATES 

DELDC0U1 

OMEGAOD 

DELQEROF 

CPSI 

CDUZD 

CTHFTA 

CCU  YD 

SET  DESIRED  GIMRAL  ANGLES  TO 

DESIRED  FINAL  G ! MBAL  ANGLES 

C PH  I 

CDUXD 

ZERO 

NO  FINAL  YAW 

OMEGA PD 
dfldcdu 
DELPEROP 

I.E.  MANEUVER  DIO  NOT  GO  THRU 

GIMRAL  LOCK  OF  I GINAI  L Y 

ATTPR 10 

NEWPF I 0 

RESTORE  USERS  PRIO 

ZERO 

ATTCADR 

ZERO  ATT C A OF 

SPVAC 

TASK  V- 

FETURN  TO  USER 

GAP:  ASSEMBLE  AE  VIST  .M  01  OF  AGC  PROGRAM  AP1LR0PE  BY  EYLES  3:15  DEC.  2,1970  AP11AID  .001  PAGE  370 

L SYSTEM  TEST  STANDARD  LEAD  INS  USER'S  PAGE  MO.  1 EO  S3 


0001 

REF 

4 LAST  320 

E 5 , 164  2 

E B A N K = 

XSM 

0002 
000  3 
000* 

REF 

1 

33,2045 

0* , 2000 

04, 2576 

BANK 

S ET  L DC 
BANK 

33 

E/P  ' G 

000  5 

REF 

1 

COUNT  * 

$ $/P07 

R0006  SPECIAL  PROGRAMS  TO  EASE  THE  PANGS  OF  ERASABLE  MEMORY  PF  OGR AMS . 

R 0007  E/BKCALL  FOR  DOING  8ANKCALLS  FP.OM  AND  RETURNING  TO  ERASABLE. 

ROODS  THIS  ROUTINE  IS  CALLABLE  FROM  Ef  AS  ABLE  OR  FIXED.  LIKE  BANK CALL  * HOWEVER , SWITCHING  8ETWEFN  S3  AND  S4 

R0C10  IS  MOT  POSSIBLE. 

ROCll  THE  CALLING  SEQUENCE  IS: 


A 00 1 2 
A 00 1 3 
A001  * 
AQO  1 
A 00 1 : 
A001  T 


TC 

CADR 
C ADR 
RETURN 
REV' J ' N 
RETURN 


BANKCAL I 
E/BKCALL 
ROUTINE 
HERE  FROM 
HERE  F t;  0 M 
HERE  Ff  FM 


WHERE  YOU  WANT  TO  GO  IN  FIXED. 
DISPLAY  TERMINATE,  BAD  STALL  OR  TC  Q. 
DISPLAY  PROCEED  0 GOOD  RETURN  FROM  STALL. 
DISPLAY  ENTER  np  r-  FC  YCL  E . 


R OF  IP 
R002C 


THIS 

OTHEF  EMEMQPY 


ROUTINF  REQUIRES  TWO  ERASABLES  (EBUF2, 
PROGRAMS . 


+ 1 ) 


IN  UNSWITCHED  WHICH  ARE  UNSHARED  BY  INTERRUPTS  AND 


0021 

or  ?? 

REF 

3 

A + L 

LAST 

AS  E 

24t' 

PrESE-VED 

0023 

REF 

1 

V/*T  f c.  - f CD 

04,2577 

002* 

REF 

2 

LAST 

370 

04, 2600 

0C25 

REF 

10  . 

LAST 

L 54 

04 , 260 1 

002( 

REF 

3 

I AST 

304 

0*-,  260  2 

002  7 

F EF 

3 

LAST 

370 

<y  ,2603 

002B 

0029 

REF 

4 

LAST 

370 

04.2604 

04 . 2605 

0030 

0031 

0032 

0033 

REF 

2 

LAST 

217 

04,2606 

04 ,2617 
04 , 26  1 0 

0034 

REF 

5 

LAST 

370 

04, 261  1 

0035 

REF 

6 

LAST 

370 

04 , 26  1 2 

00  V 
0037 

REF 

7 

LAST 

37  0 

04.2613 

04 . 2614 

TV  L UGH 

BANKCALL  AND 

' E/BKCALL. 

52  13* 

0 

E /BKCALL 

DXCH 

BUF2 

53 ' 170 

1 

DXCH 

EBUF2 

25* 167 

0 

INCR 

EBUF2 

3 0006 

1 

CA 

B BANK 

T 5012 

0 

MASK 

LOW  10 

2? ' 170 

1 

ADS 

EBUF2  +1 

51  ' 167 

0 

NDX 

FBUF2 

2' 7777 

0 

CA 

0 -I 

0 4622 

0 

TC 

SWCAl L 

0 20  13 

1 

TC 

+ 4 

0 26  12 

0 

TC 

+ 2 

25' 167 

0 

INCR 

EBUF2 

25' 167 

0 

INCR 

EBIJF2 

53' 170 

1 

E/SWITH 

DXCH 

EBUF2 

52  006 

0 

DTCB 

SAVE  A , L ANn  GET  DP  RETURN. 

SAVE  DP  RETURN. 

RETURN  +1  BECAUSE  DOUBLF  CADP. 

GET  CURRENT  EBANK.  { SBANK  SOMEDAY ) 
FORM  B8C0N.  (WAS  EBANK) 

GET  CADF  OF  ROUTINE. 

GO  TO  ROUTINE,  SETTING  Q TO  SWRETURN 
AND  RESTORING  A + L. 

TX  Q,  V 3 4 , OR  BAD  STALL  RETURN. 
PROCEED  OF  GOOD  STALt  RETURN. 

ENTER  Of  RECYCLE  RETURN. 


GAP:  ASS  G"  HI.  E --tVISIDP  01  OF  AGC  P>  OGRAM  APllROPt  BY  EYLES  3:15  OEC.  2,1070  AP11AI0  .001  PAGE  371 

L SYSTEM  TEST  STANDARD  LEAD  INS  USER’S  PAGE  NO.  2 E^  S3 

P0C38  E/CALL  FOP  CALLING  A FIXED  MEMORY  INTERPRETIVE  SUBROUTINE  FROM  ERASABLE  AND  RETURNING  TO  ERASABLE. 


R 00 4 1 THE  CAL  L IMG  SEQUENCE  IS... 

A 00  A I 
A 0042 
AOOA? 

A 0044 


PTb 

E/CALL 

CADR  ROUTINE  THF  INTERPRETIVE  SUBROUTINE  YO'J  WANT. 

RETURNS  HERE  IN  INTERPRETIVE. 


0045  REF 
005 A RFF 
0047  R E F 
004 R RFF 

0049  REF 

0050  REF 

0051  REF 


0052 
005  3 
0054 
005  5 

REF 

q 

LAST 

371 

04.2624 

04.2625 

04, 26'? 6 
04,2627 

REF 

10 

LAST 

371 

0056 

REF 

13 

LAST 

371 

04, 263C 

22  164 

1 E/CALL 

LXC  H 

LOC 

5G  001 

0 

INDEX 

L 

3 0001 

0 

CA 

L 

24  001 

0 

i r o 

i 

1 I L- 

L 

24  001 

0 

I NCR 

L 

53' 170 

1 

DXCH 

EBUF2 

0 6037 

0 

TC 

INTPRET 

776  24 

1 

CAL' 

( 116  7 
77776 

0 

1 

Fxr 

EBUF2 

23'170 

0 

LXCH 

EBUF2  +1 

1 6041 

0 

TCP 

INTPRET  +2 

1 

33 

3 Lr 

■a  C 

t AST 
LAST 

} ACT 

336 

371 

37] 

371 

04. 2615 

06 .2616 
04,2617 

04 , 26 20 
04,262  1 

36 

L-  l-\  j 1 

LAST 

3 

LAST 

370 

04,2622 

17 

LAST 

36  5 

0-T  , ?o23 

ADRES  -1  OF  CADR. 

CADR  IN  A. 

RETURN  ADRES  IN  L. 
STORE  CADR  A*!  D RETURN. 


INDIRECTLY  EXECUTE  ROUTINE.  IT 
tEAVE  VIA  PVQ  OR  EQUIVALENT. 
PICK  UP  RETURN. 

SET  LOC  AND  RETURN  TO  CALLER. 


MUST 


GAP:  ASSEMBLE  REVISION  001  OF  AGO  PROGRAM  AP11R0PE  BY  E Y|_. E S 

L SYSTEM  TEST  STANDARD  LEAD  INS 

P 0057  E/JOBWAK  FOP  WAKING  UP  ERASABLE  MEMORY  JOBS. 

R 00  5 P THIS  OUTINE  tiJS'l  BE  CALLED  IN  INTERRUPT  Cl  WITH  IN’>  ERe-  OPTS  INHIBITED. 

R OOF 0 THE  CALLING  SEQUENCE  IS: 


3:15  DEC.  2,1970  APL1AI0  .001  PAGE  372 
USER'S  PAGE  NO.  3 E5  S3 


A 0061 

> A 0062 
A 006  ? 
A 00  c 4 

I A 006 r 

A 006  a 

A 0067 

> A006B 
A 0069 
A 0070 

I 


INHINT 


• 

CA  WAKE A DP  ADDRESS  op  SLEEPING  JOB 

TC  IBNKCALL 

CADR  E/JOBWAK 

. RETURNS  HERE 


R EL  T NT 


IF  YOU  DID  AN  INHINT. 


0071 

33, 2045 

BANK 

33 

0072 

REF 

2 

LAST  370 

04,2000 

SETLOC 

E/PROG 

0073 

04,2631 

BANK 

00P4 

REF 

2 

LAST  170  TO 

372  : 

27 

27* 

COUNT* 

$ $ / P 0 7 

0076 

REf 

1 

04,263 1 

0 5 13  7 

1 

E/JOBWAK  TC 

JCBWAKE 

ARRIVE  IWT  H 

ADRES  IN  A. 

0076 

REF 

17 

LAST  255 

C4 , 2632 

4 4741 

0 

CS 

BIT11 

0077 

REF 

1 

04,2633 

50  064 

0 

NDX 

LCCCTR 

007  E 

REF 

2 

LAST  371 

04,2634 

26  164 

0 

ADS 

LOC 

KNOCK  FIXED 

MEMORY  BIT  OUT 

007  9 

REF 

1 

04,2635 

0 CO  7 2 

1 

TC 

RUPTPEG3 

RETURN 

2" 


SAP:  ASSl.  -1BLE  RE  VISION  001  OF  AGC  PROGRAM  APllRQftf  BY  EYLES 

L MU  PERFORMANCE  tFST$  2 

ROOOl  NAME-  IMU  PERFORMANCE  TESTS  2 

R0002  DATE-  MARCH  20,1967 

R 0003  BY-  SYSTEM  TEST  GPCUP  ' EXT.  1 2 7* 


3: 15  DEC.  2,1970  AP11 AID 
USER  » S PAGE  NO.  1 


.001  PAGE 
EO  S3 


373 


R0004  MOONO.-  ZERO 
R 0005  FUNCTIONAL  DESC-I PTIGN . . 

P OOC ' POSITIONING  ROUTINES  HOF  THE  MU  PERFORMANCE  TESTS  AS  WELL  AS  SOME  OF 
ROOD?  THE  TESTS  THEM s FI  VES . FT;  A DESCF  f PT  T 6fM  f-F  THESE  SUBROUTINES  AND  THE 
R 0008  OPERATING  PROCEDURES  (TYPICALLY)  SEE  STG  MEMO  685. THEORETICAL  REF.E-1973 


OOQc 
00 1 C 
001 1 
0012 
00121 


REF 

REF 

REF 


2 

2 LAST 


33,2045 

1 AST 

44 

37,2000 

37,2002 

LAST 

127 

Ec , 1416 

44  TO 


44: 


2 * 


BANK  33 
SETLOC  T "J2 
BANK 

EB A NK  = POS  MON 
COUNT  * *$/P07 


00122 

REF 

1 

37, 2002 

D 5311 

1 

REDO 

TC 

NEWMOOEX 

00124 

37,2003 

00007 

0 

MM 

07 

002 1 

PEF 

1 

37, 2004 

0 2325 

1 

GEC J MUTT 

TC 

IMtflEPR 

0022 

REF 

43 

LAST 

369 

37,2005 

3 4755 

1 

IMUBACK 

CA 

ZERO 

0023 

REF 

2 

LAST 

127 

37,2006 

55*414 

0 

TS 

NDXCTR 

0024 

R EF 

1 

37,2007 

55 ' 440 

1 

TS 

TORQNDX 

0025 

REF 

2 

LAST 

37  3 

37 , 20  10 

55  *441 

0 

yc. 

TORQNDX  +1 

002  5 1 

REF 

1 

37,20  1 1 

55* 576 

0 

TS 

nVFLCWCK 

002  6 

002  7 
0028 

0029 

0030 

0031 

003  2 

003  3 
0034 
0G35 

0036 

0037 

0038 

0039 

004  0 
004  1 
0042 
00^-3 
00 4 A 

0045 

0046 


PEF 

REF 

REF 

REF- 

REF 

REF 

REF 

REF 

REF 

REF 

PEF 
REF 
REF 
REF 
REF 
REF 
p EF 


1 

1 

1 

1 

3 

1 

19 


LAST  336 


LAST  371 


2 LAST 
13  LAST 
2 LAST 


1 

68 

14 

1 

6 6 

o 0 

i 


LAST 

LAST 

LAST 

LAST 


127 

317 

127 


357 
3 73 

365 

340 


37.2012 

37.2013 

37.2014 
37,2015. 

37. 2016 

37.2017 

37.2020 

37.2021 
37,202? 

37.2023 

37.2024 

37.2025 

37. 2026 

37.2027 

37.2030 

37.2031 

37.2032 

37.2033 

37.2034 

37.2035 

37.2036 


3 4 361 
1 571 
3 2476 
0 2367 
3 4736 
55*664 
0 60  3 7 
62545 
02403 
15047 
02401 
77434 
21614 
56  154 
55*045 
3 2 473 
0 46  16 
2 C4  76 
0 2270 
0 2037 
0 2031 


NBP0SP1 


GUESS 
L ATAZCHK 


CA 

TS 

CA 

TC 

CA 

TS 

TC 

DLGAD 

STQDL 

RTB 

XCH 

TS 

CAF 

TC 

CAD"' 

TC 

TC 

TC 


DEC  1 7 

ZERONDX 

XNBADR 

ZEROING 

HALF 

XNB 

INTPRET 

SL2 

LATITUDE 
DSPTEM1  +1 
AZIMUTH 
EXIT 
1STD2S 
HP  AC 
DSPTEM1 
V NO 641 
BANKCALt. 
GQFLASH 
ENDTEST 1 
+ 2 
-5 


GAP:  ASSEMBLE  REVISION  001  CF  AGO  PRpG  ,AM  API  i-  ..PE  BY  EYLES 


L I MU  Pfr  Fr;'  1AMCE  TESTE  2 


004  7 

REF 

0048 

004  9 

REF 

005  0 

REF 

0051 

PEF 

0052 

0053 

REF 

0054 

REF 

0055 

0056 

COS  7 

EF 

005  8 

P EF 

0059 

0060 

REF 

0061 

REF 

0062 

0063 

REF 

006^- 

PEF 

0065 

0066 

REF 

006  7 

0068 

P.EF 

0069 

REF 

0070 

0071 

REF 

0072 

PEF 

0073 

REF 

007' 

REF 

0075 

007'' 

0077 

REF 

0078 

P EF 

0079 

REF 

0080 

rj  p p 

0081 

R E E 

0082 

REF 

0084 

REF 

0085 

0081  1 

REF 

008  5 2 

PEF 

008525 

R F F 

00853 

REE 

00853 

REF 

00854 

REF 

00855 

REF 

008  5 6 

PFF 

00857 

R E F 

0085  8 

REF 

0085  9 

REF- 

0086 

REF 

20 

LAST 

373 

15 

LAST 

37  3 

10 

LAST 

3 5 7 

3 

1.  AST 

373 

16 

LAST 

374 

3 

LAST 

373 

1 

4 

LAST 

374 

1 

4 

LAST 

3 74 

1 

1 


2 

LAST 

374 

2 

LAST 

374 

1 

67 

LAST 

373 

2 

LAST 

268 

3 5 

LAST 

293 

9 

LAST 

28  0 

3 

26 

1 

1 

4 
1 
1 


I AST  373 
LAST  340 


LAST  37' 


1 

1 

3 

1 

1 

1 

1 

2 

2 

7 

1 

44 


LAST  373 


LAST  37 < 
LAST  372 
LAST  36° 

LAST  373 


37,2037 

37.2040 

37.2041 

37.2042 

37.204 3 
37 , 204-4 
37,2046 

37. 2046 

37.2047 
37, 2050 
37,205  1 
37,2052 
37 , 205  3 

37.2054 

37.2055 

37.2056 

37.2057 

37. 2060 

37.2061 

37.2062 

37.2063 

37.2044 

37.2065 

37.2066 

37.2067 
37,2070 
37,207  1 

37.2072 

37.2073 
3 7 , 2074 

37.2075 

37. 2076 

37.2077 
3 7,2100 
37,210  1 

37.2102 

37.2103 

37. 2104 
3 7 , 2 1 C 5 

37.2106 
E 5 , 14-16 

37.2107 

37.2110 

37.2111 

37.2112 

3 7.2113 

37.2114 

37.2115 

37.2116 

37.2117 


0 6037  0 
47135  0 

01046  1 
21576  0 
02401  0 

5 35  1 

01047  0 
02403  1 
57546  1 
77752  1 
16437  0 
02403  1 
72556  1 
16435  1 

. 02401  0 
73406  1 
02675  1 
16705  1 
77746  1 
02677  0 
77676  0 
36703  0 
47353  1 
77776  1 
0 46 1 6 1 
17000  1 
3 4736  1 
7 0077  0 

0 OC  06  1 

1 2^76  0 

2 5 ' 4 14  1 
0 5516  0 

00056  1 
0 2315  1 
11*414  0 
0 2126  0 
0 2320  1 
0 0006  1 

3 1575  1 
0 c2 77  0 

02113  0 
76065  0 
3 2116  0 
0 5133  0 
3 2116  0 

0 4137  1 

0 5261  1 
76500  0 
3 4755  1 


TC 

SI  OAO 


STORE 

SLoSb 

STORE 

COS 

SL1 

STOOL 

SIN 

STOOL 

PUSH 

STORE 

STOOL 

COS 

STORE 

DC  CMP 

PL  SC  MOL  STCALl. 

EXIT 

TC 

CAD° 

CAP 

MASK 

EXTEND 

BZF 

1 NCR 
TC 

ADRES 

TC 

CCS 

TC 

TC 

EXTEND 

DCA 

TC 

EBANK= 

2 C A DP 

CA 

TC 

GCESTIMS  CA 
TC 
TC 

ESTICADR  CADR 
TORQUE  CA 


INTPRET 

RTB 

DSPTEM1 
C DU l ' i G I C 
AZIMUTH 
Sc  7 

DSPTEM1  +1 

LATITUDE 

DCOMP 

WANG  I 

L A r r 'MU- 
SH 
WANGO 
AZIMUTH 
S I N 

YNB  +2 

ZNB  +4 

YNB  +4 

ZNB  +2 
CALCGA 

BANKCALl 
1MUC0ARS 
B I T 14 
F LAGWRD3 

+ 2 

NDXCTP. 
DCWNFLAG 
GLOKFAIL 
IMUSL I 1 G 
N DXC  T 
P IPACHK 
FINIMUDD 

P6RFPLAY 
l ONGCALL 
POS I TON 
GCESTIMS 

ESTICADR 

JOBSLEEP 

ESTICADP 

JOBWAKE 

TASKOVEf 

EST  IMS 

ZERO 


i 


3:15  DEC.  2,1970  AP11AID  .001  PAGE  374 
USER*  S PAGE  NO.  2 E5  S3 


IF  BIT14  SET,  GIM8AL  LOCK 

+1  IF  IN  GIMBAL  LOCK, OTHERWISE  0 

RESET  GIMBAI  LOCK  FLAG 

IF  ON E GO  AND  DO  A PIPA  TEST  ONLY 
ALIGN  AMD  MEASURE  VEFTICAL  PTPA  '-ATE 


« 


DELAY  WHILE  SUSPENSION  STABILIZES 


GAP:  ASSEMBLE  RE  VIS  UN  0(1  OF  AGC  PROGRAM  API  1R0PE  BY  EYl  Es 

L I MU  PERFORMANCE  T E S t S 2 


0087 

REF 

7 

LAST 

317 

37,2120 

55 ' 0 50 

1 

IS 

0088 

REF 

1 

37, 212  1 

3 1504 

1 

CA 

008° 

REF 

8 

LAST 

375 

37,212? 

35' l >1 

0 

TS 

0090 

REF 

4 

LAST 

376 

37,2123 

5 1 ' 4 1 6 

c 

INDEX 

0091 

REF 

2 

L AST 

] 27 

37,2124 

35 '4  20 

1 

TS 

AAQ  O 

D C C 

117  > 1 ? F 

■-i  ? 6.  cc  7 

n 

TT 

UUV  <L 

r c r 

i 

D f f C I c.  D 

\J  6TJ  f 

vJ 

T u 

009  3 

RFF 

5 

LAST 

3 74 

37,2126 

51 '4  14 

l 

PIPACHK  INDEX 

0094 

37,2127 

0 2130 

l 

TC 

009  ~ 

P EF 

1 

37,2130 

0 2447 

1 

TC 

0096 

RFF 

2 

l A CT 

373 

37,2131 

3 *<351 

l 

CA 

nno  7 

ppc 

1 

7 . 717  7 

5 ^ » l.  7 f 

1 

T c 

UL  " I 

n r r 

Dr  t D iL 

1 

1 - 

0098 

REF 

1 

37,2133 

3 2474 

l 

CA 

0099 

REF 

2 

1 A ' 

127 

37,2134 

55 '412 

0 

TS 

0100 

REF 

2G 

LAST 

367 

37,2135 

3 4753 

l 

CA 

0101 

REF 

1 

37,2136 

55*537 

0 

TS 

0102 

R E F 

45 

l AST 

3 74 

37, 2137 

3 4 75  5 

1 

CA 

0103 

P F F 

•> 

I *CT 

127 

37,2140 

0 

T K i r\  c y 

c. 

L A -j  I 

I r 1 - 

llNOLA 

01 04 

REF 

2 

LAST 

30  5 

37,2141 

54  037 

1 

TS 

0105 

REF 

2 

LAST 

375 

37, 2142 

55 ' 472 

0 

TS 

0106 

REF 

1 

37,2143 

0 2 3 32 

1 

TC 

0107 

37,2144 

0 C006 

0 

INHINT 

0108 

REF 

16 

LAST 

367 

37, 2145 

3 47  52 

0 

CAF 

oiop 

REF 

1 

3 7,21-6 

0 5173 

1 

TC 

0110 

REF 

5 

LAST 

370 

E5 , 1662 

E B A N K = 

01 1 1 

REF 

1 

37,2147 

02151 

0 

ADRES 

0112 

REF 

3 3 

LAST 

368 

37,2150 

0 5155 

0 

TC 

0113 

37,2151 

0 0006 

1 

PI  PA TASK 

EXTEND 

0114 

REF 

3 

LAST 

375 

37 ,2152 

27 '412 

0 

DIM 

0115 

REF 

4 

LAST 

375 

37,2153 

3 1412 

1 

CA 

0116 

37,2154 

0 0006 

1 

EXTEND 

0117 

REF 

1 

37,2155 

6 2161 

0 

BZMF 

011  8 

KEF 

13 

LAST 

334 

37,2156 

3 47^2 

1 

CAF 

one 

REF 

2 

1 AST 

375 

37,2157 

0 5173 

1 

TC 

0120 

RFF 

6 

LAST 

375 

E 5 , 1642 

EBAMK= 

012  1 

REF 

2 

LAST 

375 

37,2160 

02151 

0 

A DECS 

0122 

REF 

2 

LAST 

269 

37,216  1 

3 4736 

1 

ST  ARTPI P 

CAF 

0123 

= EF 

14 

LAST 

3 66 

37,2162 

0 5105 

0 

TC 

0124 

REF 

7 

LAST 

3 75 

E 5 , 1642 

EB ANK= 

0125 

RFF 

1 

37,2163 

02166 

1 

2CADP 

012  5 

REF 

1 

37,2164 

76065 

0 

01  26 

REF 

8 

LAST 

374 

37,2165 

0 5261 

1 

TC 

0127 

0128 

REF 

6 

LAST 

375 

37.2166 

37.2167 

51 

0 

•414 

2170 

1 

0 

PIPJOBB  INDEX 
TC 

01  29 

REF 

2 

LAST 

375 

37,2170 

0 

2447 

1 

TC 

0130 

REF 

5 

LAST 

375 

37,2171 

3 

1412 

1 

CA 

DSPTEM2 
OR  I FT  I 
0SPTEM2  +1 
P CS  I TON 
SOUTH DP  -1 
SHOW 

MOXCTP 

+ 1 

EARTHR* 

DEC  17 
0 AT  AP  L + 4 
DEC58 
LENGTHPT 
ONE 

' ESDI TCT 
ZERO 

PIPINDEX 
PI  PAX 
DAT  APL 
CHECKG 

TWO 

TWIDDLE 

XSM 

P IPATASK 
EN DOF JOB 


LENGTHPT 

LENGTHOT 

STARTPIP 
B I T 10 
TWIDDLE 
XSM 

P IPATASK 
PRI02C 
FINOVAC 
XSM 

PTPJOBB 
T ASKOVEP 


NDX.CTP 

+ 1 

EARTHR* 

LENGTHPT 


3:15  DEC.  2,1970  AP11AID  .001  PAGE  375 
USER’S  PAGE  NO.  3 E5  S3 


PIPA  TEST 


ALLOW  PIP  COUNT EP  TD  OVERFLOW  17  TIMES 
IM  THE  ALIOTED  TIME  INTERVAL 


GAP:  ASSEMBLE  HE  V T S 1 3 P 001  OF  AGO  PROGRAM  AP11R0PE  BY  EYL.ES 


L 

I MU 

PEP  FORMANS 

E TEST 

S 2 

0131 

37,2172 

0 0006 

1 

EXTEND 

0132 

37,2173 

6 2175 

0 

BZMF 

+ 2 

0133 

REF 

34 

LAST 

375 

37,2174 

, 0 5155 

0 

TC 

E ND OF  JOB 

0136 

PEF 

7 

LAST 

261 

37,2175 

3 4756 

1 

CA 

FIVF 

0135 

REF 

2 

LAST 

375 

37,2176 

55*537 

0 

TS 

0 ESULTCT 

0136 

REF 

2 

LAST 

375 

37,2177 

0 2332 

1 

TC 

CHECKG 

0137 

REF 

3 

LAST 

375 

37 , 2200 

11  ’473 

1 

CCS 

DAT  API  +1 

0138 

37, 2201 

0 2205 

1 

TC 

+ 4 

013? 

REF 

1 

37,2202 

0 5 7 0 5 

0 

TC 

CCSHOLE 

0140 

PEF 

4 

LAST 

37  6 

37,2203 

4 1476 

1 

CS 

DAT  APL  +4 

0141 

REF 

5 

l AST 

3 7 6 

37 , 2204 

55147 6 

1 

TS 

D A T A P t +4 

0142 

37,2205 

0 C 006 

1 

EXTEND 

0143 

REF 

6 

LAST 

376 

37,2206 

4 1473 

1 

DCS 

DAT  APL 

0144 

REF 

7 

LAST 

376 

37,2207 

21  ’477 

0 

DAS 

DAT  APL  + , 

0145 

REF 

21 

LAST 

37  4 

37,2210 

0 6 037 

0 

TC 

I NT  PR ET 

0146 

37, 221  1 

45345 

1 

DL  OAD 

DSU 

0147 

REF 

8 

LAST 

376 

37,2212 

02501 

1 

DAT  AP  L +6 

0148 

REF 

9 

LAST 

376 

37,2213 

02475 

0 

DAT  APL  +2 

0149 

37 , 2214 

45044 

0 

8P  L 

f At  l 

0150 

REF 

l 

37,2215 

762  17 

1 

A I NGOTN 

0151 

PEF 

1 

37,221 6 

76275 

0 

0VEPFF1 X 

0152 

37,2217 

56  3 25 

0 

Ai NGOTN 

POOL 

DDV 

0153 

REF 

10 

LAST 

376 

37,2220 

02477 

1 

DAT  APL  +4 

0154 

37,2221 

47C75 

0 

DM  PR 

RTB 

0155 

REF 

1 

37,2222 

37056 

0 

DEC585 

0156 

k E F 

1 

37,2223 

216  12 

1 

SGN AGREE 

0157 

REF 

Q 

LAST 

375 

37,7224 

01051 

1 

STORE 

0SPT6M2 

015  8 

37,2225 

77776 

1 

EXIT 

0159 

REF 

7 

LAST 

375 

37,2226 

1 1 ‘414 

0 

CCS 

NDXCTR 

0160 

REF 

1 

37,2227 

0 2301 

1 

TC 

COAAL IGN 

0161 

REF 

2 

LAST 

3 75 

37,2230 

0 2457 

n 

7 r 

5 Hfl  LaJ 

0 n v j v v 

0162 

REF 

1 

37,223  1 

3 2471 

1 

VERTOPFT 

CA 

3 990 DEC 

0163 

REF 

6 

LAST 

375 

37 , 2232 

55*412 

0 

TS 

1 ENGTHOT 

0164 

RFF 

5 

LAST 

375 

37,2233 

61*416 

0 

INDEX 

PCS! T0N 

0165 

REF 

3 

LAST 

375 

37, 2234 

4 1417 

0 

CS 

SOUTHDR  -2 

0166 

RFF 

1 

37,2235 

55 '442 

0 

TS 

DRIFTT 

01661 

PEF 

3 

LAST 

375 

37,2236 

11 '415 

1 

CCS 

PIPINQEX 

01662 

REF 

1 

37,2237 

1 2 2 45 

1 

TCF 

PON  4 

016  6 3 

PEF 

17 

LAST 

300 

3 7 , 224  0 

4 474  7 

0 

PCN2 

CS 

BITS 

01664 

REF 

1 

37,2241 

27*  565 

1 

ADS 

ERCOMP  +2 

016,  I 

REF 

18 

LAST 

376 

37, 2242 

3 4747 

1 

CA 

B IT  5 

01666 

REF 

2 

LAST 

376 

37,2243 

27 ' 567 

0 

ADS 

ERCOMP  +4 

01667 

REF 

1 

37,2244 

1 2251 

1 

TCF 

PON 

01668 

REF 

1 ° 

LAST 

376 

37,2245 

4 0747 

0 

P0N4 

CS 

BIT5 

01669 

REF 

3 

LAST 

376 

37, 2246 

27  *565 

1 

ADS 

ERCCMP  +2 

016691 

PEF 

20 

LAST 

376 

37 , 2247 

3 4747 

1 

CA 

B I T r 

016692 

REF 

4 

LAST 

376 

37 , 2250 

27 ' 563 

1 

ADS 

ERCOMP 

0167 

PEF 

3 

LAST 

'37  5 

37 , 2251 

0 2447 

1 

PON 

TC 

EAKTHR4 

3:15  DEC 


2 


19  70  API! A ID 


001 


PAGE  376 


USER’S  PAGE  NO.  4 E5  S3 


DEC  58  5 HAS  BEEN  REDEFINED  EOF  LEM 

TAKE  PLATFORM  OUT  OF  GIMBAL  LOCK 
ABOUT  1 HC UP  VERTICAL  DRIFT  TEST 


OFFSET  PLATFORM  TO  MISS  PIP  DEAD-ZONES 
Z UP  IN  PCS  4 
X UP 


GAP 


ASSEMBLE  REVISION  001  F AGC  PROGRAM  APllRUPE  BY  RYLES 


L I MU  PERFORMANCE  TESTS  2 


0168  REF  46  LAST  375  37,2252  3 4755  1 CA 

0160  REF  2 LAST  127  37,2253  55*404  1 TS 

017C  REF  3 LAST  377  37,2254  35*405  0 TS 

0171  REF  4 LAST  21-  3 7,22'-  5 3 '<733  1 GUES  ■■  1 CAF 

0172  REF  3 LAST  373  ?7,22c6  55*440  1 TS 

0173  RFF  1 L A c T 377  37,22£;7  55  * 4*  1 0 TS 

0174  REF  8 LAST  357  37,2260  3 0032  0 CA 

0175  REF  2 LAST  127  37,2261  55'413  1 TS 

0177  REF  2 LAST  374  37,2262  u 2500  0 TC 

0177  RFF  1 37,2263  3 1502  1 VALM1S  CA 

0178  REF  10  LAST  37o  37,22"  * 55*C51  0 TS 

017«  RFF  4 7 i AEt  377  •'?,??  : 3 4?55  1 CA 

0180  REF  11  LAST  377  37,2266  55*050  1 TS 

0181  REF  3 LAST  376  37,2267  0 2457  0 F C 


0182 

018? 

0184 

REF 

DOC 

27 

3 

48 

LAST 

LAST 

LAST 

374 

287 

377 

37 

37 

37 

IT  1 

REF 

0185 

REF 

2 

LAST 

232 

37 

01S6 

REF 

29 

LAST 

340 

3 7 

2270 

0 

5 516 

0 

ELDTEST1  TC 

22  71 

00007 

0 

ADRES 

2272 

4 

4755 

0 

CS 

7 27  3 

0 

5314 

1 

TC 

2274 

0 

5472 

0 

TC 

3:15  DEC 


2,1970  AP11AID 


001  PAGE  377 


USER'S  PAGE  NO.  5 E5  S3 

ZERO  ALLOW  ONLY  SOUTH  GYRO  EARTH  PATE  COMPENS 

ERVFCTPF, 

ERVECTOF  +1 
PCS  MAX 
TORQNDX 
r ORQNDX  +1 
CDUX 
LOSVEC 
ESTIMS 
DR  IF  TO 
DSPTEM2  +1 
ZERO 
DSPTFM2 
SHOW 


D 0 W N FLAG 
I MUC  E 
ZERO 

NEWMODEA 

ENDEXT 


GAP:  ASSEMBLE  r.EVJSIDIV  001  OF  A 


L I MU  pH-FORMANCE  TESTS  2 


0157 

37, 

0 18  £ 

REF 

3 LAST  300 

37, 

0189 

D PF 

l 

37  . 

. r r 

0150 

37, 

0191 

37, 

0192 

REF 

2 

LAST 

37  3 

37, 

0153 

REF 

49 

LAST 

377 

37, 

0194 

REF 

7 

1 AST 

305 

37, 

01  oc 

REF 

8 

l AST 

378 

37, 

0196 

r-  EF 

; 9 

LAST 

378 

37, 

0197 

REF 

68 

LAST 

3 74 

37, 

0198 

REF 

3 

LAST 

374 

37, 

0194 

REF 

69 

LAST 

378 

37, 

020  0 

RTF 

7 

LAST 

333 

37, 

0201 

REF 

1 

37, 

020? 

?FF 

3 

1 AST 

3?  A 

37, 

0203 

0204 

0205 

REF 

REF 

4 

1 

LAST 

378 

37, 

37, 

37, 

0206 

37, 

0207 

REF 

5 

LAST 

378 

37, 

020 

REF 

70 

LAST 

378 

37, 

0205 

kEF 

2 

!.  AST 

273 

37, 

0210 

REF 

2 

LAST 

378 

37, 

0211 

37, 

0212 

REF 

6 

l AST 

378 

37, 

0213 

RE  F 

7 i 

LAST 

373 

1 7 . 

t 

0214 

RFF 

3 

LAST 

265 

37, 

02  lc 

REF 

3 

LAST 

378 

37, 

0216 

3T, 

0217 

REF 

4 . 

LAST 

290 

37, 

02  U 

37, 

0214 

37, 

0220 

REF 

2 

L AST 

221 

37, 

0221 

37  , 

0222 

37, 

0223 

REF 

1 

37, 

0224 

37, 

0225 

P.  EF 

4 

LAST 

376 

37, 

0226 

REF 

3 

LAST 

375 

37, 

0227 

REF 

7 

LAST 

378 

37, 

0228 

37, 

OGRAM  API  1 ROPE  BY  FYLES 


43215  0 0VE1FFIX  DAD  0 AD 

06530  1 DPPPSMAX 

37064  1 ONE DP  P 

776  16  0 RVQ 


C 0006 

1 

COAAL IGN 

EXTEND 

23  * 571 

0 

QXCH 

Z ERONDX 

3 47  55 

1 

CA 

ZERO 

54  321 

0 

TS 

THETAD 

54  322 

0 

TS 

THETAD  +1 

54  323 

;[ 

T S 

TH  H T A D +? 

0 4616 

1 

TC 

BANKCALL 

17000 

1 

CADP 

IMUCOARS 

0 461o 

1 

ALIGNCUA 

TC 

BANKCALL 

17716  1 CAOR  TiUS r ALL 

0 3047  1 TC  SCMEPP.2 

0 1571  0 Tt  ZERCNDX 


0 GO 06 

1 

IMIJSLI  LG 

EXTEND 

23  *5  71 

0 

QXCH 

ZERCNDX 

0 2U1 

0 

TC 

ALIGNCUA 

0 00  06 

1 

FIN1MUDD 

EXTEND 

23' 571 

0 

QXCH 

ZERCNDX 

0 4 616 

1 

TC 

BANKCALL 

17210 

1 

CADP 

IMUFINE 

o 2311 

0 

TC 

AUGNCOA 

0 0006 

1 

IMUZERR 

EXTEND 

23*571 

0 

QXCH 

ZERCNDX 

0 4616 

1 

TC 

BANKCALL 

1 6714 

1 

CAD" 

I MU ZERO 

0 2311 

0 

TC 

ALIGNCCA 

0 

C006 

1 

CHECKG 

EXTEND 

23 

•417 

1 

QXCH 

QPLACE 

0 

2342 

0 

TC 

+■  6 

0 

OC  0 3 

1 

CHFCKG1 

RE  LINT 

3 

0067 

0 

CA 

NEW  JOB 

0 

OC  06 

1 

EXTEND 

6 

2346 

1 

BZMF 

+ 6 

0 

5122 

0 

TC 

CHANG  1 

0 

0004 

0 

IN  HI  NT 

51 

' 4 1 5 

0 

INDEX 

PIP  INDEX 

4 

0037 

1 

CS 

PIPAX 

55 

' 571 

1 

TS 

Z ERONDX 

0 

C 004 

0 

INHINT 

,GC  PRi 

2275 

2276 

2277 

23C0 

2301 

2302 

230  3 

2 304 

2305 

2306 

2307 

23  10 

2311 

2312 

2313 

2314 

2315 

2316 

2317 

2320 

232  1 

2322 

2321 

2324 

2325 

23  26 

2327 

23  30 

23  3 1 

2332 

233  3 

2 3 34 

2335 

2336 

2337 

2340 

234  1 

2342 

2343 

2344 

234  5 

2346 


3:  15  DEC 


PAGE  378 


USE° 


COARSE  A 


,1970 

AP11 AID 

.001  PAGE  378 

S PAGE 

NO.  6 

E^  S3 

IGF  SUBROUTINE 


PIP  PUL SE  CATCHING  ROUTINE 


GAP:  ASSEMBLE  RE  VISION  001  GF  AGC  PROOF  AM  API  1 _ - < EYLE 


L I My  PERFORMANCE  TESTS  ? 


0229  REF 

0230  : EF 

0231  REF 

0232 

0233  REF 
023  4 RFF 

0235  REF 

0236  REF 

0237  REF 
023P  REF 
0239  REF 
024°  REF 
02  A 1 REF 

0242  REF 

0243 

0244  REF 


5 LAST  378 

4 LAST  378 
fi  LAST  378 

1 

6 LAST  3",r 

5 LAST  379 

3 LAST  376 

11  LAST  376 
1 

4 LAST  37 

12  LAST  379 

5 LAST  379 

13  LAST  379 

5 LAST  378 


37,2347 

37.2350 

37.2351 

37.2352 

37.2353 

37.2354 

37.2355 

37.2356 

37.2357 

37.2360 

37.2361 
37,235 2 

37.2363 

37.2364 

37.2365 
37,2316 


51 '4 15  0 
3 0037  0 
6 1571  0 
0 0006  1 
1 2335  1 
-I'M-'  0 
3 0037  0 
51*537  1 
55*472  0 
0 4102  0 
51*537  1 
55  * 473  1 
51*537  1 
23*474  1 
u 0003  1 
0 14  17  1 


ENDCHKG 


INDEX 

CA 

AD 

EXTEND 
82  F 
INDEX 
CA 

INDEX 

TS 

TC 


INDEX 

TS 

INDEX 
LXCH 
RE  LI  NT 
TC 


0245 

REF 

37 

LAST 

371 

37,2367 

54  001 

1 
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DLOAD 

INTVAL 
STOVL  SI 

DEL  VX 

VXM  VSL1 

XSM 

DLOAD  DCCMP 

MPAC  +3 
STUDL  DPIPAY 
MPAC  +5 
STUPE  D P i P A Z 

SETPD  A XT  , 1 
0 

80 

SHAD  DCGMP 

GEOCOMPS 

BMN 

PERFERAS 
SLOAD  BMN 

ALT  IMS 
ALFLT3 

AXT,2  L XA , 1 LOADS  SLOPES  AND  TIME  CONSTANTS  AT  RQST 

1 2D 
ALX1S 

DLOAD*  I NCR , 1 

ALFDK  +1440,1 
DEC  -2 

STORE  ALDK  +1CD,2 
T I X , 2 S X A , 1 
ALKCG2 
ALX1S 

AXT  ,1 

8D 

OL'TAD*  DMP 

DPIPAY  +8D, 1 
P IPASC 

SLR  BDSU* 

9D 

INTY  +8D, 1 
STORE  INTY  +8D,1 
PDDL  DMP* 

VELSC 
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L 

T MU 

P F F FOR M AM C E 

TESTS 

4 

0117 

REF 

1 

37,2657 

02521 

0 

0118 

37,2660 

77732 

1 

SL2R 

0119 

37, 26  61 

4 5425 

0 

DSU 

012  0 

REF 

1 

37.2662 

712  If. 

1 

STORE 

0121 

REF 

2 

LAST 

3 86 

37,2663 

065  63 

1 

STORE 

0122 

37,2664 

77  IC  O 

0 

T I X , 1 

0123 

REF 

1 

37,2665 

76646 

1 

0124 

37 , 2666 

00004 

0 

012  5. 

37 ,2667 

56743 

1 

AL  I L P 

DLOAD* 

0126 

REF 

2 

LAST 

128 

37,2670 

75324 

0 

0177 

F.EF 

2 

LAST 

335 

37, 2671 

7 5240 

G 

012  8 

RFF 

3 

LAST 

3 36 

37,2672 

12453 

0 

STORE 

0129 

37,2673 

77104 

1 

T I X , 2 

0130 

REF 

1 

37,2674 

76667 

1 

0131 

37,2675 

0001  0 

0 

0132 

3 7 ,2676 

6 6 1 40 

1 

ALKL  P 

LXC  , 1 

0133 

REF 

1 

37,2677 

02445 

0 

013 1 

REF 

2 

LAS  T 

3 86 

3 7,27  00 

; 02445 

o 

0135 

37,2701 

56743 

1 

□LOAD* 

0136 

REF 

4 

LAST 

386 

37,2702 

02450 

1 

0137 

REF 

3 

LAST 

386 

37,2703 

7 52  1 6 

0 

0138 

37,2704 

77613 

0 

DAD* 

013° 

REF 

3 

l AST 

3 85 

37,2705 

7 5276 

0 

0140 

REF 

4 

LAST 

386 

37, 2706 

1 2 50  1 

0 

STOP  E 

0141 

3 7 , 27  G7 

42743 

1 

DL.OAD* 

0142 

REF 

5 

LAST 

386 

37,2710 

75314 

0 

0143 

...  REF 

3 

LAST 

3 86 

37,2711 

7 5230 

1 

0144 

REF 

6 

LAST 

386 

37,2712 

1 2463 

0 

STORE 

014  + 

37,2713 

. 42673 

0 

0MP  " * 

0146 

RFF 

A 

LAST 

336 

37, 2714 

7 5 2 1 fc 

0 

0167 

REF 

5 

LAST 

386 

37,2715 

75266 

1 

0148 

REF 

6 

LAST 

386 

37, 27  16 

12511 

1 

STORE 

0149 

40743 

0 

ni  nin$ 

J 1 f 4 » JL  1 

0151 

REF 

1 

37,2720 

3710  5 

1 

0151 

REF- 

5 

LAST 

3 86 

37, 2721 

7 5216 

0 

0152 

37 , 2722 

42772 

0 

SL  1R 

0153 

REF 

2 

LAST 

386 

37,  272  3 

75256 

1 

0154 

REF 

3 

LAST 

386 

37,2724 

12521 

1 

STORE 

0155 

76104 

0 

« f t.  f £.  -7 

i A a j 

0156 

REF 

1 

37,2726 

76676 

1 

0157 

37,2727 

00010 

0 

0 1 5 8 

37 , 2730 

64  743 

0 LOOSE 

DLOAO* 

0155 

REF 

1 

37, 273  1 

02523 

1 

0160 

REF 

4 LAST  336 

37,2732 

02521 

0 

0161 

37,2733 

5 r 52  3 

0 

POOl.* 

0162 

RFF 

1 

37,2734 

02531 

1 

0163 

37,2735 

76521 

0 

MX  V 
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VLAUN  +8D , 1 
STADR 

0 El.  -1  + 30,1 
DELM  + 1 0 D » 1 
A XT  ,2 
DELMLP 
4 

DMPR* 

ALK  +4,2 
ALOK  + ' ,2 
ALK  +4,2 
AXT  ,2 
ALIL  P 
8D 

SXA  , 1 
CMPX1 
CM  P X 1 
DMPR* 

ALK  +1,1 
OELM  +8  D , 2 

I NT Y +8  D , 2 
I NTY  +80,2 
OAD* 

ALK  +120,2 
ALOK  +120,2 
ALK  +120,2 
DAD* 

OELM  +80,2 
I NTY  +160,2 
INTY  +160,2 
DMP* 

ALSK  +1,1 
DELM  +80,2 
DAD* 

VLAUN  +80,2 
VLAUN  +80,2 
AXT  , 1 
ALKLP 
8D 


PDO  L.* 

ACC WO  +80, 1 
VLAUN  +80,1 
VDEF 

PHSMV  + 8 D , 1 
VS  L 1 
TP.ANSM1 


386 


I 
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0165 

I 0166 

0167 

0168 

I 01uc< 

017C 
0171 

I 0172 

0173 

0174 

I 0175 


REF 

REF 

R F.  F 
RFP 

RFF 

REF 

REF 


71 

2 

L AST 
LAST 

385 

386 

37 ,2737 

37.2740 

37. 2741 

77745 
00155 
065  31 

37, 2742 

77745 

72 

LAST 

387 

17, 274 3 

00160 

c 

LAST 

3 36 

37,2744 

06  521 

J 

37,2745 

77745 

73 

LAST 

387 

37,2746 

00162 

2 

LAS  T . 

3 86  ; 

37,2747 

06523 

37,2750 

77700 

1 

37,275  1 

76  7 30 

1 

□ LOAD 

0 

M P AC 

0 

STORE 

POSNV  +80,1 

1 

QUOAD 

0 

MPAC  +3 

1 

STORE 

VLAUN  +80,1 

1 

DLOAD 

1 

M P AC  +5 

G 

STORE 

ACCWD  +80, 1 

0 

T I X , 1 

1 

LOOSE 

I 0176  37, 

0177  37, 

0178  37, 

I 017,  37, 

0130  REF  1 37, 

0181  REF  1 37, 

I 0182  37, 

0133  37, 

0184  37, 

I 01  r-  • EF  2 LAST  252  37, 

0136  3 7 , 

0187  37, 

I 0188  37, 

0189  37, 

0190  37, 

> 0191  PEF  1 37, 


2752 

76174 

1 

A X T ,2 

AXT  , 1 

275  3 

0CG06 

1 

6 

2754 

0 C 002 

0 

2 

2755 

57343 

1 BOOP 

DLCAD* 

DNPr 

9 7 r i 

n T c n ^ 

A 

A , , V 4.  9 1 

u 

A ! , O A T <1  , 1 

2757 

37110 

0 

GEOPGCJ 

2760 

77722 

0 

SR2R 

2761 

73406 

1 

PUSH 

S IN 

276  ? 

56072 

1 

SL3P 

X AD  , I 

2763 

C 0046 

0 

XI 

276  4 

10021 

0 

STORE 

160,2 

2765 

77745 

1 

DLOAD 

2766 

77746 

1 

COS 

2 767 

1002  7 

0 

STORE 

22D , 2 

27  7 C 

7 7704 

1 

T I X , 2 

2771 

76  755 

1 

BOOP 

> 

> 

> 

3" 

> 

2" 

> 

» 


0192 

37,2772 

77776 

1 

PERFEP AS 

EXIT 

0193 

£ F 

1 

**7..  ?7  7 "a 

9 qni  4 

n 

r a 

P R A 7 

25  v i o 

V 

\.y  A 

LUA';N( 

01 9^ 

RER 

1 1 

i AST 

336 

37,2774 

54  00  3 

U 

TS 

EBANK 

0194 

r E F 

I 

E 7 , 1400 

EBANK 

= ATI G INC 

0196 

F E F 

2 

LAST 

387 

37,2775 

0 1400 

1 

TC. 

A TIG  INC 

10197 

CAUTION 

' 019  8 

THE 

ERAS  ABLE 

PROOF  AM  THAT  CUES  THE  i 

CALCULATIONS 

MUST 

BE  LOADED 

Q19c 

BEFhrf 

ANY  ATTEMPT 

IS  M ADF  TQ 

RUN  THE 

I MU  PERFORMANCE 

TEST 

01955 

REF 

5 

LAST 

37^ 

E5 , 1400 

EBANK 

= AZIMUTH 

0290 

REF 

8 

LAST 

384 

37,2776 

11 ' 412 

0 

CCS 

LENGTHOT 

029  1 

REF 

2 

LAST 

383 

37,2777 

0 3 03  4 

0 

TC 

SLEEPI E 

0292 

REF 

6 

LAST 

383 

37, 300C 

11 '440 

1 

CCS 

TORQMDX 

029  3 

37,3001 

1 3003 

0 

TCP 

+ 2 

02°^ 

REF 

1 

37,3002 

0 3005 

1 

TC 

SETUPER 1 

0295 

REF 

9 

LAST 

377 

37, 3003 

3 (032 

0 

CA 

C DU  X 

0296 

REF 

3 

LAST 

377 

37,3004 

55*414 

0 

TS 

LOSVEC  + 

i 
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EVALUATE  SINES  AND 


COSINES 


COSINES 


GOTO  ERASABLE  TO  CALCULATE  ONLY  TO  RETN 


FOR  TROUBLESHOOTING  VD  POSNS  2$< 


AP  : 

ASSEMBLE 

kE  V I S I DA 

00  1 

I MU 

PERFORMANC F 

TEST 

0297 
029  P 
0299 
03  CO 
0301 

REF 

REF 

REF 

25 

1 

1 

LAST 

385 

0302 

0303 

REF 

2 

L A ST 

387 

0304 

0305 

REF 

2 

LAST 

387 

0306 

REF 

1 5 

LAST 

385 

0307 
03  OP 

REF 

10 

LAST 

3 8 1 

0309 

REF 

1 

0310 

REF 

74 

LAST 

335 

031  1 

REF 

3 

LAST 

333 

03  1 ? 

RFF 

3 

La.ct 

3 P 0 

0313 

PEF 

7 

LAST 

387 

0314 

REF 

1 

0315 

REF 

26 

LAST 

38S 

03  1 5 1 

0314? 

REF 

2 

LAST 

3 8 3 

0315  3 

0316 

REF 

1 

031  7 

REF 

9 

LAST 

38  7 

0318 

D EF 

8 

LAST 

38  8 

031  ° 
0320 

F E F 

4 

1 A ST 

376 

REF 

35 

LAST 

376 

0321 

REF 

1 

0321  1 

REF 

12 

L A T 

38  7 

03212 

REF 

22 

LAST 

384 

03213 

REF 

3 

LAST 

384 

03214 

REF 

20 

LAST 

363 

032  2. 

0323 

REF 

3 

LAST 

3 H 1 

032  A 

REF 

1 

032c 

RFF 

2 

LAST 

1«0 

033n 

REF 

28 

LAST 

377 

0331 

REF 

4 

LAST 

377 

033  2 

REF 

36 

LAST 

388 

033? 

0334 
033  5 

0335 
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3005 

0 6037 

0 

SETUP  EF  1 TC 

3006 

65345 

0 

□LOAD 

3007 

02473 

0 

3010 

02477 

1 

3011 

5 5 5 2 5 

0 

POOL 

30 1 2 
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1 

3013 

74276 

1 

VCQMP 

3014 

37110 

0 

3015 

74521 

1 

MXV 

30  16 

P2843 

1 

30  17 

02  740 

0 

STORE 

3020 

777  76 

1 

EXIT 

30  21 

3 2475 

G 

CA 

3022 

0 4616 

1 

TC 
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17323 

0 

CAD  \ 

3 ° 2 4 

0 2315 
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TC 

3025 

11 '440 

1 

GEQSTRT4  CCS 

3026 

0 2263 

1 

TC 

3027 

0 6037 

0 

TC 

30  30 

77624 

1 

CAl.  1 

3031 

76601 
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3032 

77776 

1 

EXIT 

3033 

0 2117 

1 

TC 

3034 

55 

•412 

0 

SLEFPI E IS 

3039 

11 

•440 

1 

CC 

30  3 6 

0 
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TC 

3037 

0 

5155 
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TC 

3040 

3 5 0 14 

1 

SOMEERRR 

CA 

304  1 

54  003 

0 

TS 

304  2 

3 47  53 

1 

CA 

3043 

55 ' 576 

0 

TS 

3044 

0 5567 

0 

TC 

3045 

01600 

0 

OCT 

3046 

0 22  70 

0 

TC 

3047 

3 3054 

c 

St' ME  PE  2 

CAP 

3050 

0 5744 
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TC 

3051 

0 5516 

0 

TC 

3052 

00007 

0 

ADR  ES 

3053 

0 5 155 

0 

T C, 

3054 

01601 

1 

0 C T 1 6 0 1 

OCT 

3055 

06200 

0 

DEC.585 

OCT 

3056 

00000 
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SCHZEROS 

2 DEC 

3057 

POO  00 

1 

OF 

5 4 

37 

37 

37 

37 

3 7 

37 

37 

37 

37 

37 

37 

37 

37 

37 

37 

37 

37 

37 

37 

37 

37 

37 
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37 

37 

37 

37 

37 

3 7 

37 

37 

37 

37 

37 

3 7 

37 

37 

37 

37 

37 

37 

37 

37 
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INTPRET 

PDDL 

ANGZ 

A MG  Y 

VDEF 

A MG  X 

VXSC 

GEORGEJ 

VSR  1 

XSM 

I'.GC 

ANGLES  FROM  DRIFT  TEST  ONLY 

CGCPL 

BANKCALL 

I MUPULSF 

1 MUSl.LLG 

TORQMDX 

VALMIS 

INTPRET 

ERTHRVSE 

TORQUE 

ONLY  POSITIVE  IF  IN  VERTICAL  DRIFT  TEST 

LENGTHOT 

TORQMDX 

EARTHR* 

ENDOF JOB 

1 EST  NOT  OVER  -OECREMEN"  LENGTHPT 

ARE  WE  DOING  VERT  DP  I FT 

E8ANK5 

EBANK 

ONE 

OVFLOWCK 

ALARM 

1600 

E NOTES  f 1 

OCT  1601 

VAR A LAP M 
DOWNFLAG 

I MU  S E 

ENDOF JOB 

STOP  ALLOOP  FRUM  CALLING  ITSELF 

01601 

06200 

.00000000 

3200  B+14  ORDER  IS  IMPORTANT 
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L T f 1 U Pfc  FC FRANCE  TESTS  4 


0336 
0336 
033? 
033  « 
03  3 ° 


37.3060 

37.3061 
37 , 3 Of  2 
37,3063 
37,  306* 


00000  1 
• C 000  1 
00000  1 
•••f  ( 00  1 

oroo  i o 


GNEDPP 


2 DEC 

oc  r 
OCT 
OCT 


•COOOOOOO 

00000 

00000 

00001 


0340 
034  L 
0342 
034? 
0344 

0344 

0345 
034  5 


37. 3065 

37. 3066 

37.3067 

37.3070 

37. 3071 

37. 3072 

37.3073 

37.3074 


00004  0 INTVAL 
0(002  0 
00220  1 
77776  1 

3 r-  7 3 0 0 SOUP!  Y 
00035  1 
10317  0 
17550  1 


OCT 

OCT 

4 

2 

DLC 

144 

DEC 

-1 

2DEC 

.93505870 

2 DEC 

. 26266423 

0346  37,3075 

0347  REF  4 LAST  385  37,3076 

0348  37,3077 

0348  37,3100 

034°  37,3101 

0349  37,3102 

0350  37,3103 

0350  37,3104 

0351  37,3105 

0351  37,3106 


0 0115 

1 

77DECML 

DEC 

77 

01443 

0 

ALXXXZ 

GENADR 

A LX  1 S -1 

04133 

1 

P I PA  SC 

2DEC 

. 13055869 

02265 

1 

5 7 2 23 

0 

VEL  SC 

2 DEC 

- .522234  It 

6 64  51 

1 

05427 

c 

alsk 

2 DEC 

. 17329031 

12577 

1 

77567 

0 

2DEC 

- .00835370 

44202 

1 

0352 

37,3107 

24276 

1 

GEORGE J 

2 DEC 

. 63641977 

0352 

37,3110 

14066 

1 

0353 

37,3111 

23073 

1 

GEORGEK 

2DEC 

.59737013 

0353 

37,2112 

1 1773 

1 
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INITIAL  GAINS  F0°  PIP  OUTPUTS 
INITIAL  GAINS/4  FOR  ERECTION  ANGLES 


512/98 1.402 

S SWAY  VEL  C-AIN  X 980.402/4096 


389 


SSWAY  ACCEL  GAIN  X 980.402/4096 
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R 000  1 
R 0002 
R 0003 
R 0004 


PROGRAM  NAME  - KEYBOARD  ANO  DISPLAY  PROGRAM 

NO  - A DATE  - 27  APRIL  1967  ASSEMBLY  - PINDANCE  r'EV  IB 

MOD  BY  - FILEME 

LOG  SECT  I CM'  - PINBALL  GAME  BUTTONS  AND  LIGHTS 


R 00 )c  FUNCTIONAL  DES §f T PT I ON- 

ROOIO  THE  KEYBOARD  AND  DISPLAY  SYSTEM  PROGRAM  OPERATES  UNDER  EXECUTIVE 

R 001 1 CONTROL  AND  PROCESSES  INFORMATION  EXCHANGED  BETWEEN  THE  AGC  AND  THE 
R 001 2 COMPUTER  OPEL  ATOP  . THE  INPUTS  Tf  THE  PROGRAM  ARE  ETON  THE  KEYBOARD, 
R0013  FROM  INTERNAL  PROGRAMS,  AMD  F '0:-  THt  UPLINK. 

R 001 A THE  LANGUAGE  OF  6CMMU'-1  IC  AT  I f 'N  WITH  THE  PROGRAM  IS  A R A I R If  WORDS 

P 001 5 KNOWN  AS  VERB  AND  NOUN.  EACH  OF  THESE  IS  REPRESENTED  BY  A 2 CHARACTER 

R0016  DEC  I MM  NUMBE ' . THE  VE  B CODE  INDICATES  WHAT  ACTION  IS  TO  BE  TAKEN,  THE 

R0017  NOUN  CODE  INDICATES  TO  WHAT  THIS  ACTION  IS  APPLIED.  NOUNS  USUAILY 

R 001  E f-EFE-  0:  A GROUP  OF  L-ASA3LF  REGISTERS. 

R 0020  VERBS  ARE  GROUPED  INTO  DISPLAYS,  LOADS,  MONITORS  (DISPLAYS  THAT  ARE 

R 002 1 UPDATED  ONCE  PER  SECOND),  SPECIAI  FUNCTIINS,  AND  EXTENDED  VERBS (THESE 

R 002  2 ARE  OUTSIDE  OF  THE  DOMAIN  OF  PINBALL  AND  CAN  BE  FOUND  UNDER  LOG  SECTION 

R 002  3 : EXTENDED  VERBS:). 

RC024  A LIST  OF  VERBS  AMD  NOUNS  IS  GIVEN  IN  LOG  SECTION  : ASSEMBLY  AND 
R 002  9 OPE  I AT  ION  INFORMATION:. 


R 0026  CALLING  SEQUENCES- 
P 0027  KEYBOARD: 

R 002  B EACH  DEPRESSION  OF  A KEYBOARD  BUTTON  ACTIVATES  INTERSUPT  KEY  R UP  T 1 

R 00  2 c AMD  PLACES  THE  k RTT  KEY  CODE  INTO  CHANNEL  1‘.  KEYRUPT1  PLACES  THE  KEY 

R003C  CODE  INTO  MPAC,  ENTERS  AN  EXECUTIVE  REQUEST  FOR  THE  KEYBOARD  AND  DISPLAY 
R 003 1 PROGRAM  (AT  :CHA?.IN:),  AMD  EXECUTES  A RESUME. 

R0032  UPLINK: 

RCC33  EACH  WORD  PFCEIVEI  BY  THE  UPLINK  ACTIVATES  INTERRUPT  UPRUPT  WHICH 

R00?<  PLACER  THE  5 BIT  KEY  CODE  I NT  f MPAC,  ENTERS  AN  EXECUTIVE  REQUEST  FOP.  THE 

R 003  5 KEYBOARD  AND  DISPLAY  PROGRAM  < AT : C HAR IN:)  AND  EXECUTES  A RESUME. 

R 0036  INTERNAL  PROGRAMS : 

R0037  TMTEJtNAL  PROGRAMS  CAL!  PINBALL  AT  :NVSUB:  WITH  THE  DESIRED  VEbB/NOUN 

R0C3E  CODE  IN  A (LOW  7 BITS  FCR  NOUN,  NEXT  7 BITS  FOR  VERB).  DETAILS 

S003*  DESC  T BED  ON  »£WaPR<*  CARDS  JUST  BEFORE  : NVSUB  : AND  JNVSBWAIT:  (SFE 

R 0040  SYMBOL.  TABLE  FOR  PAGE  NUMBERS). 


R 004 5 NORMAL  EXIT  MODE 


R 004  6 
R 004605 
R 00461 


IF 


PJNB  Al 

I WAS  CAL 

LED  BY 

EXTERNAL 

1 ) 

ALL  BUT  ( 

2 ) , (3 

),  AND  (4 

2 ) 

EXTENDED 

VERBS 

GO  TO  THE 

ACT  CM,  THERE 
) EXIT  DIRECTLY 
EXTENDED  VERB 


APE  FOUR  EX-TS 
TO  ENDOF JOB . 
FAN  AS  PART  OF 


THF 


f 
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R 0040  1 5 
R 0046  2 
R00463 
R 00*0'"  3 5 

R OCA a / 

R 004  6 5 
R 0046  6 
R 0046  7 
R 0046  fc 
R 0066 9 


PINBALL  EXECUTIVE  JOB  WITH  PRIORITY  30000.  IT  IS  T HE 
RESPONSIBILITY  nr  the  EXTENDED  VERB  CALLED  TO  EVENTUALLY 
CHANGE  Pf.IuKITY  (IF  NEC  ESS  ARY)  AMD  DO  AN  ENDUE  JOB. 

ALSO  PI  NOAH  IS  A NO  VAC  JOB.  EBANK  SET  EOT  COMMON. 

3)  VERB  37.  CHANGE  OF  P!  OGP  AM  (MAJ  . MODE)  CALLS  :V37:  IN  THE 
SE'  VICE  'ITI'ES  AS  PA;  T OF  THE  PINBALL  -XEC  JOB  WITH  PRIO 
30000.  THE  NEW  PF'JGRAM  CODE  ( MAJOR  MODE)  IS  LEFT  IN  A. 

4)  KEY  RELEASE  BUTTON  CALLS  : P I NBRNCH : IN  THE  DISPLAY  INTERFACE 
ROUTINES  .$  PART  OF  THE  PINBALL  EXEC  JOB  WITH  PRIO  30000  IF 
THE  KEY  > EL  EASE  LIGHT  IS  OFF  AND  :CADTSI!'P : IS  NUT  +0. 


R 0047  IF  “i^BALL  WAS  CALL  FD  RY  INTERN  AL  P’- OGRA  "S,  EXIT  F"PM  PINBALL  IS  BACK 

ROO^-R  TO  CALLING  ROUTINE.  DETAILS  DESCRIBED  IN  REMARKS  CARDS  JUST  BEFORE 

R 00 '■  9 : J V S U B : AND  : 1 VS  BW  A I I : (SEE  ‘ Y 1BC  I TABLE  FC*  PAGE  NUMBERS). 


R C05  D ALARM  OR  ABORT  EXIT  MOOES- 
R 005 1 EXTERNAL  INITIATION: 

R0C52  IF  SOME  IMPROPER  SEQUENCE  OF  KEY  CODES  IS  DETECTED,  THE  OPERATOR 

R0053  . ERROR  LI3H‘  IS  TURNED  Of  AMD  EXIT  I:  TO  : MD‘  FJOB:. 

R 0054  T fjTEP'S  AL  PROGRAM  INITIATION: 

P005c  IF  AN  ILLEGAL  V/N  COMB  INAT I ON  I S ATTEMPTED,  AN  ABORT  IS  CAUSED 

R0056  (WITH  OCTAL  01501). 

R00561  IF  A SECOND  ATTEMPT  IS  MADE  TO  GO  TO  SLEEP  IN  PINBALL,  AN  ABORT  IS 

R 005  62  CAUSED  (WITH  OCTAL  Cl/  ■ ).  THERE  ARE  TWO  WAY  TO  GO  TO  SLEEP  IN  PINBALL: 

P 005  6 3 1)  FMOIDLE  HAVA  AIT. 

R CO  5 6 4 2)  NVSBWA1T , P’riVBSY,  0 iVSUBUSY. 

R 0057  CONDITIONS  LEADING  TP  THE  ABOVE  ARE  DESCRIBED  IN  FORTHCOMING  M IT  / I L 
P 005  B E-FEPORT  DESCRIBING  KEYBOARD  AND  DISPLAY  OPERATION  FOR  278. 


R 005  S OLTPUT- 

R 006  0 I NFCRM  AT I ON  To  BE  SENT  TO  THE  DISPLAY  PANEL  IS  LEFT  IN  THE  : DSPTAB : 

EG  I ST  ERS  ( U (v  0 Ef  EXEC  CONTROL).  :DSPOUT:  (A  ' I FT  )PT) 
R0C62  HANDLES  THE  PLACING  OF  THE  '.DSPTAB:  INFORMATION  INTO  OUTPUT  CHANNEL  10 
P 006 3 IN  INTERRUPT. 


R 006'  ERASABLE  INITIALIZATION- 

R 00c  ‘ F 'ESN  START  AMD  RESTART  I'  ITJALIZE  THE  NECESSARY  E REG  1ST  EPS  FOP 

R0G6F  PINBALL  IN  :ST  A TSIJB:.  1 EG  1ST)  S ARE:  DSPTAB  BUFFER,  CADRSTOP, 

ROC  6 REQ!’ET  , CLPAM  , DSPl.CCK,  MOHAVE,  M<  -NS  AVE1  , V I : *■  B PEG,  MOUNTED,  DP^l  1ST, 

P006«  DSPCOUNT,  NOUT . 

0 0069  A COMPLETE  LIST  F ALL  THE  ERASABLES  (BOTH  RESERVED  AND  TEMPORARIES)  FOR 
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L PINBALL  GAME  button:  AMO  lights 

R 007  0 PINBALL  IS  GIVEN  BELOW. 


. 2,1  9 70  API  LAID  .001 

USER'S  PAGE  NO.  3 


R 007 1 THE  FOLLOWING  ARE  OF  GENERAL  INTFREST- 

ROC72  REMARKS  CA“PS  P^Ef.EOF  THE  REFERENCED  SYMpPl  DEFINITION.  SEF  SYMBOL 

P 0073  TABLE  TO  FIND  APPROPRIATE  PAGE  NUMBERS. 

ROOT/,  NVSU8  CAI  I.ING  POINT  FOR  INTERNAL  USE  OF  PINBALL. 

ROOTS  OF  'ELATED  INTEREST  NVSBWAIT 

R 0076  NVSUBUSY 

R 0077  PREMVBSY 


R 0083  ENDIDLE  ROUTINE  FOF.  INTERNAL  PROGRAMS  WISHING  TO  GO  TO  SLEEP  WHILE 

RG034  AWAITING  OPERATORS  RESPONSE. 


RC0851  DSP''  ROUTINE  BY  WHICH  AN  INTERNAL  PROG- AM  MAY  DISPLAY  A DECIMAL 

R OUR  5 2 PROGRAM  CODE  (MAJ>'"-  MODE!  IN  THE  P’  OGRAM  {MAJOR  MODE)  LIGHTS. 

R008525  ( DSPMM  DOES  NOT  DISPLAY  DIRECTLY  BUT  ENTERS  EXEC  REQUEST 

R 008 5 27  FOR  DSPMMJB  WITH  PRIO  30000  AND  RETURNS  TO  CALLER.) 


R 008  3 
R OCA  54 


RL ANKSUB 


ROUTINE  RY  WHICH  AN  INTERNAL  PROGRAM  MAY  BLANK  ANY 
COMBINATION  OF  THE  DISPLAY  REGISTERS  R1 , R2,  R3. 


F 00855 
R 00356 


JAMTEFM  ROUTINES  BY  WHICH  AM  INTERNAL  PROGRAM  MAY  PERFORM  THE 
JAMPROC  TERMINATE  (V  34)  OF.  PROCEED  (V  33)  FUNCTION. 


R 0086 


MRNiiOF  VERBS  hi  1 PEC  IODIC  { 1 PER  SEC)  DISPLAY. 


R 00  8 6 1 PLEASE  PERFORM,  PLEASE  MARK  SITUATIONS 

R 00862  REMARKS  DESCRIBE G HOW  AN  INTERNAL  ROUTINE  SHOULD  HANDLE 

R 0086  3 THESE  SITUATIONS  CAN  BE  FOUND  JUST  BEFORE  :NVSUB:  (SEE 

R 0086  4 SYMBOL  TA8LE  FOR  PAGE  NUMBER  ) . 

R 0087  THE  NOUN  SABLE  EOF  NAS  IS  DESCRIBED  ON  A PAGE  OF  REMARKS  CARDS  JUST 

R oop b Before  jdspabc:  (Sff  symbol  table  for  pagf  number). 

R008°  THF  NOUN  TABLES  THEMSELVES  ARE  FOUND  IN  I OG  SECTION  :p INBALL  NOUN 

R 0089  I TAB l ES  : . 


R 0090 

FOR  FURTHER 

OF 

R 009  1 

PROGRAM,  SE 

E T 

R 0092 

DESCPI BING 

KEY 

R 01  50 

THE  FOLLOWING 

R 0151 

: : T T WI L 

R 01  52 

USUALLY  TALK  0 

tails  Annus  operation  of  the  keyboard  and  display  system 

HE  MISSION  PLAN  AND/OR  MIT/IL  E-2I29 
BO  ARC  AND  DISPLAY  OPERATION  FOR  278. 


QUOTATION  IS  PROVIDED  THROUGH  THE  COUF  TESY  OF  rHE  AUTHORS. 

L BE  PROVED  TO  THY  FACE  THAT  THOU  HAST  MEN  ABOUT  THEE  THAT 
F A NOUN  AND  A VERB,  AND  SUCH  ABOMINABLE  WORDS  AS  MO 


PAGE 
EO  S3 


SAP  : 

L 

R 0153 


R 01  5 c 


P.0156 

R0197 
R 0158 
R 015° 

R 0 160 
R 016  1 
R 01  6 2 
R0163 
P 0164 
R 016  5 
R 0166 
R 0167 
d ni 
R 0 1 6 9 
P 01 7 f 
R 0 1 7 1 
R0172 
R 0173 
R 01 74 
R 01 7 5 
D 017  * 
R0177 
R 017  8 
R 0179 
R 01 75 5 
R 0180 
R 018  1 
P 0182 
R0183 
R 0184 
P 01  8 5 
R0186 
R 0 1 8 7 
R0188 
R 0189 
R019C 
R,  019  1 


R 0192 


AP11AI0  .001  PAGE  393 
NC.  6 EO  S3 

CHRISTIAN  EAR  CAN  ENDURE  TC  HEAP.:: 

HENRY  6 , ACT  2,  SCENE  4 

the  FPttOWl  m'G  AS  5 I GN'M-E1'1"  5 F°F  PT  08  ALL  ARE  MADE  ELSE  WH  E P E 


ASSEMBLE  REVISION  KOI  OF  AGC  PROGRAM  AP11R0PE  BY  PYLES 
PINBALL  GAME  BUTTONS  AND  LIGHTS 


3:15  DEC.  2,1970 
US'EF’S  PAGE 


i.  Si  VEQ  FOR  PINBALL  EXECUTIVE  ACTION 


DSPOOUNT 
DEC  B 
VERBREG 
NOUNLEG 
X K t G 
YPEG 
Zh  EG 
XREG1  P 
YREGLP 
HITEMOUT 


E ' ASF. 
Er  AS  E 
ERASE 
ERASE 
ERASE 
ERASE 
Ei  ASE 
ERASE 
ERASE 


ZFEGLP  ERASE 
LOT  EM OUT  = 


MODE  EG 

DSPLOCK 

REQRET 

LCADST  AT 

CLPASS 

NOUT 

NOUNCADF 

MONSAVE 

MQNSAVE1 

M0NSAVE2 

DSPTAB 

CADPSTOP 

NVQTEM 


ER  ASE 
ERASE 
ERASE 
ERASE 
ERASE 
E»  ARE 
ERASE 
EP  ASE 
ERASE 
ERASF 
ET  ASF 
E1-1  ASE 
ERA 5 E 


V Er  BSAVE 
DSPLr  ST 
E XT  VB ACT 
DSPTEMi 

DSPTEM2 


ERASE 
ERASE 
P EASE 
ERASE 
ERASE 


Y r EGLP 


ZP EGL  P 


NVBNK-TEM  ERASE 


+ L3D 


END  OF  EE  AS  ABIES  'ESP' 


+ 2 

+ 2 

VED  FUR 


DISPLAY  PO?I>  I >N 
+ DEC  , - DEC,  OCT 
VERB  CODE 
NOUN  CODE 


INDICATOR 

INDICATOR 


P 1 

R 2 

K3 

LO 

LO 


INPUT  BUFFER 
INPUT  BUFF  E’’ 
INPUT  BUFFER 
PART  OF  XREG 
PART  OF  YREG 


TEMP  FOR 


.AY 


( FOR 
(FOR 
OF 


DEC 
DEC 
HRS  , 


CON  V 
CCNV 

MIN, 


ONLY  ) 
ONLY  ) 
SEC 


ONLY) 

SEC 


D I SPI 

MUST  = LUTEMOUT-1. 

10  PA  T OF  Z EG  (PC'  DEC  CCNV 
TEMP  FOR  DISPLAY  OF  HRS,  MIN, 

MUCT  = HI TEMOUT  + 1 . 

MODE  CODE 

KEYBOARD/SUBPOUT INE  CALL  INTERLOCK 
RETURN  REGISTER  FOR  LOAD 
STATUS  INDICATOR  FLU  LDAOTST 
TASS  INDICATOR  CL  LA 

activity  cnu^EP  Pop  dsptab 

MACHINE  CADR  FOR  NOUN 
t / V CODE  FOR  MOMTOi  . (=  M0NSAVF1-1) 
LQUNCADi  FO!  M IN  I T(  i ( '1 ATBS ) =MONSAVE  +1 
NV  MONO  PT  OPTIONS 

0-10, DISPLAY  PANEL  BUFFER • 1 J - 1 3 , C RELAYS 
FNDTDL  E STORAGE 

NV SUB  STORAGE  FOR  CALLING  ADDRESS 

MUST  = NVBNKTEM-1 

NV  SUB  STORAGE  FOR  CALI  ING  BANK 

MUST  = NVQTEM  i-l 

NEEDED  FOP  RECYCLE 

WAITING  REG  FOR  DSP  ‘ YSV  INTERNAL  USE 
EXTENDED  VEF  B ACTIVITY  INTERLOCK 
BUFFER  STORAGE  AREA  1 (MOSTLY  FOR  TIME) 
BUFFE..  STORAGE  AREA  2 (MOSTLY  FOR  DEG) 
PINBALL  EXECUTIVE  ACTION 


TEMPORARIES  FOR  PINBALL  EXECUTIVE  ACTION 


GAP  : 

ASSEMBLE  TEVIS1 

QH  001  OF 

AGC 

PLUG  AM  API  HOPE  BY  EYLES 

3:15  DEC.  2,1970 

AP11AID  .001 

PAGE 

L 

PINBALL  GAME 

BUTTONS 

AND  l 

IGHTS 

USER'S  PAGE 

NO.  5 

EO  S3 

R 0193  DSEXIT  = JMTB15  + 

R 01 94  EXITEM  = INTB15+ 

R 0195  BLANKF  F.R  = I MB  15  + 


RETURN  FOR  D S D I N 

RETURN  FOR  SCALE  FACTOR  ROUTINE  SELECT 
RETURN  FUR  2 BLANK 


R 0196 

R 0197 

R 0198 
P 0199 


WP  DR  ET 

WORET 
DECPET 
21/22 REG  = 


IKTBIT15 

i ntS it i ? 

TBIT15 
I NT  B I T 1 5 


f E T URN  FOR  5 BLANK 
RETURN  F ''!•'•  OSPWD 
RETURN  FOR  PUTCOMIDEC  LOAD) 
TEMP  FOR  CHARIN 


P02C  <■  U P DA"  E"‘  = P:  L ■ SH  > ET'JRN  F(  UPDATNN,  UPDATVB 

P 020 1 CHAT  = POLISH  TEMP  FOR  CHA'  II 

R 0202  ERCNT  = POLISH  COUNTER  FOR  ERROR  LIGHT  RESET 

R 0203  DECOUNT  = POLISH  COUNTER  FOR  SCALING  AND  DISPLAY  (DEC) 


R 0204  SGiNCU 
R 020  r MOUNT FM 

P 0206.  DI  STEM 
R 0207  DECTFM 


VBUI 

TEMP  FOR 

+ ,- 

• ON 

VBUF 

C C U NT  E R 

FOR 

MIXNOUN  FETCH 

VBUF 

COUNTER 

FOF 

OCTAL 

DISPLAY  VE?BS 

VBUF 

COUNTE  R 

FOR 

FFTCH 

{ DEC  D I c P L AY  VERB? ) 

R 0208 

SGNOFF 

= 

VBUF 

+ 1 

R 0209 

NVTEMF 

= 

VBUF 

+ 1 

R 02  IC 

SFTEMP1 

= 

VBUF 

+ 1 

R 02 1 1 

H ITEM  IN 

= 

VBUF 

+ 1 

R 0212 

R 0 2 1 3 

CODE 

= 

VBUF 

+ 2 

P 02 1 4 

SFTEMP2 

= 

VBUF 

+ 2 

R 0 2 1 5 

LOT  EM  I N 

= 

VBUF 

+ 2 

R 02 1 fc 

R 02 1 7 

MlXTfMP 

= 

VBUF 

+ 3 

R 02 1 8 

R 0219 

c;  i r.Mo  p t 

_ 

VRl  IE 

+ 3 

ALSO  M I XT  EM  P+1 

= VBUF+4, 

, M 

TEMP  FOR  +,-  ON 
TEMP  FOR  NVSJB 

ST  OK  AGE  F C ' • SF  CONST  HI  P AST { = K FT  E M P 2- 1 ) 
E M p FOR  LOAD  OF  HRS , MIN,  SEC 
MUST  = LOT  EM  I N-  1 . 

FOR  DSPIN 

STORAGE  FOR  SF  CONST  LO  P AR T ( =S FTE MP  1 + 1 ) 
TEMP  FOR  LOAD  OF  HRS,  MIN,  SEC 
MUS  s = HITEMTN+1. 

Fnp  mixnoun  data 

RETURN  FOF  +,-  ON 
+2  = VBUF+5. 


R 0220 

ENTRET 

= 

DOT  INC 

EXIT  FROM  ENTER 

R 022  1 

R 022  2 

WDCNT 

I NR  E L 

= 

OOTRET 

DOTRET 

CHAP  COUNTER  FCP  DSPND 

INPUT  BUFFER  SELECTOR  ( X,Y,Z, 

R 02?  3 
R022A 

DSPMMTEM 
M I X B P 

= 

MATING 

MAT  INC 

DSP  COUNT  SAVE  FOR  DSPMM 
INDICATOR  FOR  MIXED  CP  NORMAL  1 

P 022  c 

R 02  2 6 

T EM  1 

DSRFL 

ERASE 

TEM1 

EXEC  TEMP 

PEL  ADDRESS  FOP  DSPIN 

P 0227 
R022P 

R 02 2? 

TEM2 

DSMAG 

I DADDTEM 

ERASE 

TEM? 

TEM2 

EXEC  TEMP 

MAGNITUDE  STORE  FOI  DSPIN 
"I  XK  )U N INDIRECT  ADDRESS  STfSA 

R 0230 

R 023  1 

TEM3 

COUNT 

ERASE 

TEM3 

EXEC  TEMP 

FOR  DSPIN 
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R 0232  TEM4  ERASE 

R0233  LSTPTR  = TEM4 

RC234  RELRET  = Tf 

R 023  5 FREERCl  = TEM4 

R023F  DSPWORET  = TEM4 

R 0237  SFPSC&FT  = T EM<4 

R 023  8 SFPMNRET  = TE  M4 


EXEC  T 
LIST  P 
RETURN 
RETURN 
RETURN 
r F TURN 
RETURN 


EMP 

OINT 

ER  FOR  GF 

FOP 

A EL  DSP 

FOR 

FREEDSP 

FOP 

DR  PSI GN 

FOR 

SEPSEC 

FOR 

S EPMIN 

R 02 39  T EM 5 ERASE  EXEC  TEMP 

R 0240  KOUMADD  = T EM5  TEMP  STORAGE  FOR  NOUN  ADDRESS 


P 024 1 
R 0242 
R 0243 
R 024^ 
R024f- 
R024f 
P 0247 
P 0248 
R 024° 
R025C 


ADTEM  E ° A S F TEMP  FOR  NOUN  ADDRESS  TABLE  FIFTY 

NNTYPTEM  ERASE  TEMP  FOR  NOUN  TYPE  TABLE  ENTRY 

IDAD1TEM  ERASE  TFMP  FOR  INDIR  ADRESS  TABLE  ENTRY ( MI XNN) 

MUST  = 10AD2vEi-'-l  , = I DAD 3T EM- 2 . 

T0A02TE-  ER ASF  T E MP  FOR  INDIR  ADRESS  TABLE  ENTRY!  MI  XNN) 

MUST  = IDAD1tEM+1,  = IDAD3TEM-1 . 

TW03TEM  r A - TEMP  F OP  INDIR  AORESS  TA8LE  ENTRY!  Ml  XNN) 

MUST  = IDAD1TEM+2?  = IDAD2TEM+1. 

RUTMXTEM  ERASE  TEMP  FOR  SF  TOUT  TABLE  ENTRY! MI XNN  ONLY) 

END  OF  TEMPORARIES  EOT  PINBALL  EXECUTIVE  ACTION 


R 0250 1 ADDITIONAL  TEMPOPAPIF'  FOP  PINNA!  ! EXECUTIVE  ACT  ION 

P 02502  MPAC,  THRU  MPAC  +6 
R 0250 3 BUF,  +1,  +2 
R02504  BUF  2 , +1,  +2 
R 02506  MPT E« P 
R 02  50  7 ADDRWD 

RG2509  END  OF  ADDITIONAL  TEMPS  EOF  PINBALL  EXEC  ACTION 


3" 


R 025 1 RESERVED  FOP  P I ' i BALL  I IF  Un I ACTION 


R 0252 
P 0253 
A 0254 
R 025  5 


DSPCNT  ERASE 
UPLOCK  ERASE 


COUNTER  FOP  DSPOUT 

BIT1  = UPLINK  INTERLOCK  (ACTIVATED  BY 


END  OF  £R  ASABL  ES  t-  tSEPVbD  FOR  PINBALL  INTLRRUPT  ACTION 


RECEPTION  OF  A BAD  MESSAGE  IN  UPLINK) 


R 025 A 

TBMPnp.A'  I ES  FT 

PINBALL 

INTERRUPT  ACTION 

R 0257 

KEYTEiMPl  = 

WAITEXIT 

TEMP  FOfi 

KEYRUPT , 

UPRUPT 

R 0258 

DSN  UP  T EM  = 

UAITEXIT 

TEMP  FOR 

DSPi  UT 

R 0259 

KEYTEMP2  = 

RUPTAGN 

TEMP  FOR 

K EYRUPT, 

UPRUPT 

? 02  f 0 

END  OF  TEMPO-APT 

ES  FGF  r 

INBALt  IMEPPUPT 

ACTION 
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P 026 1 THE  INPUT  CODES  ASSUMED  FOR  THE  KEYBOARD  ARE, 


R 026  2 0 10000 

R0263  1 OGOOl 

R0264  9 01001 

ft  026  5 VERB  10001 

R 0 2 6 6 ERROR  '"FSIOOI  0 

ft  0267  KEY  nLSE  11001 

R 026  8 + 1 1010 

R 0269  - 11011 

R 02 7 0 ENTER  11100 

R 027 1 CLEAi  11110 

R 027  2 NOUN  11111 


R 027  3 OUTPUT  FORMAT  FOR  DISPLAY  PANEL.  SET  DUTO  TO  AAAABCCCCCDDDOD. 

ft  627*  A-S  SELECT  A LI  AY,  OP.D.  1 HI  S DETERMINES  WHICH  PAIR  OF  CHARACTERS  ARE 

R 0 2 7 r-  ENEFGIZFD. 

R0276  B Ffft-'  SPECTAl  RELAYS  SUCH  AS  SIGNS  ETC. 

R 0277  C-S  5 BIT  RELAY  CODE  FOR  LEFT  CHAR  OF  PAIR  SELECTED  BY  RELAYWORD 

R 027 8 D-S  5 BIT  RELAY  CODE  EOT  RIGHTCHAR  OF  PAIR  SELECTED  BY  RELAYWORD. 


R 027  9 

THE 

PANEL  APPEAPS 

AS  F 01  1 OWS, 

R 02  80 

MD1 

MD2 

R 02  8 1 

V01 

VO  2 

( VFf  8 ) 

N01 

NO  2 

R 0282 

R ID  1 

RID  2 

R1D3 

R 1D4 

R1D5 

R 0283 

R2D  1 

ft.  2 D 2 

R203 

R2DA 

R2D5 

R 028  A 

i\3Dl 

E3D2 

R3D3 

R3D4 

T 30  5 

R 023  5 

EACH 

OF  THESE  IS  GIVEN  A 

DSPC0UN1 

R 0236 

MD1 

25 

3 20  1 

1 1 

Al  t 

R 0287 

MD2 

24 

R 2D2 

10 

R 028  8 

VD1 

23 

R2D3 

7 

R 0,23  9 

VD2 

22 

R2D4 

g 

RU290 

ND1 

21 

R2D5 

r 

R 0291 

ND2 

20 

1 301 

i. 

R 0292 

R 1D1 

16 

» 3D  2 

3 

R 02Q3 

R1D2 

15 

R3D3 

2 

R 0294 

R1D3 

14 

ft  3D4 

1 

R 0295 

RID*; 

13 

R3D5 

0 

P 0296 

R1D5 

12 

( -A  J HE  ) 

I NOUN ) 

( R1  ) 

(R2  ) 

( R3  ) 

NUMBER  FOR  USE  WITHIN  C0MPU~4T IQN  ONLY 
Af  6 OCTAL 


R 0297  THEIE  iS  AN  11  REGISTER  TABLE  (DSPTAB)  FOR  THE  DISPLAY  PANEL. 


R 0298 

0 0290 

DSP  TAB 
REL ADD 

RELAYWD 

B I T 1 1 

BITS 

10-6 

BITS 

5-1 

R 0 3 0 0 

10 

10  11 

MD1 

(25) 

MD2 

( 24  ) 

R 0301 

9 

1010 

VD1 

(23  ) 

V02 

(22) 

R 0302 

P 030  3 

8 

7 

1001 

1000 

ND1 

(2  1) 

ND2 

R ID  1 

( 20  ) 
(16) 
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R0304  6 0111 

R 030  5 5 01  10 

R 0.3  06  ,4  0101 

R 0307  3 0100 

R 0308  2 001  1 

R 0309  1 0010 

R0310  0 0001 

R0311  0000 


+R1  R 1 02 

— R 1 R 1 04 

+ R2  R 2 0 1 

- ? 203 

R2  05 

+ o 3 P ? 0 2 

-R3  R 30  4 

NO  RELAYWORO 


(15) 

(13) 

(11) 

R 1 D 3 

R 105 
P2D2 

( 14) 

( 12  ) 

( 10  ) 

(7  ) 

02  PA 

( 6 ) 

(5  ) 

R3D1 

(4  ) 

(3  ) 

P3D3 

(2) 

(1  ) 

"3  05 

(0) 

R 0 3 1 2 THE  5 6IT  OUTPUT  RE l.  AY  CCOES  APE  : 
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R 0934  +C  INDICATES  v H I J . I USEdI  - El  TRY  INDICATES  MACHINE  CADME  09  F)  7° 
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R 0950  EACH  ENTRY  CONTAINS  ONE  ECADP.  TDADDREL  IS  THE  RELATIVE  ADDRESS  OF 

R 095  1 THE  F I p ST  OF  THESE  ENTRIES. 

R 0952  THERE  IS  ONE  ENTRY  IN  THIS  TABLE  FT.  EACH  COMPONENT  OF  A MIXED  NOUN 

R095?  THEY  ARE  LISTED  10  DDF!  OF  ASCENDING  K . 
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R095P  - A T THE  SF  ' T W T F ? O’DE  jU’-'BL 
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5-  O’  ■ ' C*  :T  Hi.r  JS  7 S ATI.  (O),  Al  A-"'  T|-  V I ( 1 L A T I 'I. 

R 096  P IN  tWCIMAL  LOADS  OF  PATA  , ’ NUMERICAL  CHARAC  ~>-L  '•  1UST  BE  KEYED  IN 

R 0970  B EE  r R p EACH  ENTEP.  IF  NOT,  ALARM. 


GAP:  ASSfc  v‘BLE  ,E  VIS1  U.'«  001  Of:  AliC  Pi-  L G8  A API  lKi-PC  BY  C YLt  j 
L PI  i BALL  GAME  BUTfi  ,S  .V  U L T GHT  S 


P 097  1 

DISPl. 

AY 

VERBS 

0972 

RFF 

20 

[.AST 

410 

41,2353 

4 7-7  8 2 

1 

DSP ABC 

CS 

0973 

REF 

1 

41  ,2354 

0 2 ‘+24 

1 

TC 

0974 

REF 

3 

LAST 

410 

41 ,23c  5 

50  14  5 

1 

INDEX 

0975 

4 1, 2356 

4 0 002 

1 

C.S 

QQJts 

RFF 

4 1 

L AST 

3 36 

4 1 , 2 3 c 7 

56  13  2 

1 

X C H 

0977 

RFF 

34 

LAST 

411 

41 , 2360 

4 4753 

0 

DSPAB 

CS 

0978 

REF 

2 

LAST 

414 

41,2361 

0 2424 

1 

TC 

0979 

REF 

4 

LAST 

414 

41,2362 

50  145 

1 

INDEX 

0980 

41, 2363 

4 C 00  l 

1 

CS 

0931 

REF 

42 

LAST 

414 

41,286 4 

5o  131 

1 

XCH 

0982 

RFF 

] 

-rl  , 2368 

0 2443 

0 

DS  P A 

TC 

0983 

REF 

1 

41,2366 

0 2466 

1 

TC 

0984 

REF 

5 

LAST 

414 

41 , 2367 

50  145 

1 

INDEX 

0985 

41,2370 

4 0000 

0 

CS 

0986 

REF 

43 

LAST 

414 

; 1,2371 

5.  130 

0 

DSPCUM1 

XCH 

0987 

REF 

1 

41,2372 

0 2405 

1 

TC 

0938 

REF 

35 

LAST 

414 

41 ,237  3 

4 4753 

o 

DS  PB 

CS 

0989 

REF 

1 

4 1 , 2374 

0 2437 

0 

TC 

0990 

PEF 

6 

LAST 

414 

41 ,2375 

50  145 

1 

INDEX 

0991 

4 1, 2376 

4 C001 

1 

CS 

0992 

REF 

l 

41 , 2377 

0 2371 

0 

TC 

099  3 

R EF 

21 

LAST 

414 

41,2400 

4 <,752 

1 

DSPC 

CS 

0994 

REF 

2 

LAST 

414 

41 , 2401 

0 2437 

0 

TC 

0995 

REF 

7 

LAST 

414 

41,2402 

50  145 

1 

INOEX 

0996 

41 , 2403 

4 COO 2 

1 

CS 

0997 

REF 

2 

LAST 

414 

41,2404 

0 23  /1 

0 

TC 

095  8 

REF 

27 

LAST 

414 

41 ,2405 

4 < 7 52 

1 

DSPC0M2 

CS 

0999 

REF 

16 

l AST 

612 

41,2406 

6 1001 

1 

AD 

1000 

RFF 

1 1 5 

LAST 

410 

/■I  ,7407 

10  000 

g 

r r •: 

1001 

REF 

1 

41,2410 

0 2413 

0 

u V V 

TC 

1002 

REF 

3 

LAST 

41  1 

41,2411 

0 0136 

0 

TC 

1003 

41 , 2 4 1 2 

0 2413 

o 

rr 

1004 

REF 

1 

4 1 , 34 1 3 

54  122 

1 

DSPCCM3 

TS 

1005 

REF 

116 

LAST 

414 

41,2414 

50  000 

1 

INDEX 

1006 

RFF 

4 

LAST 

411 

/.  i ,7^19 

3 4317 

q 

C AF 

100 

REF 

27 

LAST 

412 

41,2416 

54  777 

1 

TS 

1008 

REF 

2 

LAST 

414 

41,2417 

50  122 

0 

INDEX 

1005 

REF 

44 

LAST 

1 

41,2420. 

4 0130 

1 

CS 

1010 

REF 

2 

LAST 

40E 

61,2421 

0 3363 

1 

TC 

1011 

REF 

3 

LAST 

414 

71,2422 

56  122 

0 

XCH 

1012 

R EF 

2 

LAST 

414 

41 , 742  3 

0 2407 

0 

TC 

R 1013 

COMPTEST 

ALARMS  IF 

COMPONENT 

NUMBER  l 

JF 

V ERB<  LOAD 

OR  OCT 

R l 1 

GREATER 

THAN  THE  HIGHES,'  COMPONENT  NUMB  El  OF  NOUN 

!. 

1016 

PEF 

4 

LAST 

305 

41,2424 

54  123 

0 

COMPTEST 

TS 

1017 

RFF 

67 

LAST 

41  1 

41 ,2425 

22  002 

0 

LXCH 

1022 

REF 

1 

41,2426 

0 2515 

1 

COMPTSJI 

TC 

1023 

REF 

1 

41,2427 

0 4331 

1 

TC 

1024 

REF 

10 

LAST 

406 

41 , 2430 

7 6245 

0 

MASK 

3:  13  OEC 


2 , 1 c 7 0 APIIAID  .001  PAGE  414 


USER'S  PAGE  NO.  25  EO  S4 


TWO 

COMPTEST 

NCUNADD 

2 

BUF  +2 

ONE 

COMPTEST 
NOUN A DO 

1 

BUF  +1 

OECTEST 
TSTFORDP 
NOUN ADD 
0 

BUF 

DSPC0M2 

ONE 

DCOM PT ST 
NOUNADD 

1 

DSPC0M1 

TWO 

DCOM PT ST 
NOIJNADD 
2 

DSPCCM1 


TWO 

A 

B 

c 

AE 

ABC 

VERB REG 

-1 

-0 

+ 1 

+ 2 

+ 3 

A 

+ 0 

+ 0 

+ 0 

+ 1 

+ 2 

DSPCCM3 

ENTEXIT 


IN  A 

IN  A AFTER  CCS 


+ 1 

DISTEM  +0,+l,+2  INTO  DISTEM 

A 

? ID  I 

DSPCOUNT 

DISTEM 

BUF 

DSPCCTWD 
DISTEM 
DSPCPM2  +2 


DISPLAY)  IS 


SFTEMP1 

Q 

GET COMP 

LEFT5 

THREE 


-VERB  COMP 


NOIJM  CCMP 


» 


GAP:  ASSEMBLE  REVISlON  Ol'l  GF  AGC  PROGRAM  AP11RUPE  BY  EYt.ES 

L PINBALL  GAME  BlP'TtNS  A NO  LIGHTS 


1025  REF  5 l AST  414  41,2431  5 0123  1 AD 

1026  REF  117  LAST  414  41,2432  1C  000  0 CCS 

1027  cF  46  LAST  ^05  41,2433  3 0001  0 TC 

1026  4EF  ‘ LAST  ' O'  A 1,2' 3'-  > 5 700  q tc 

1029  RFF  16  LAST  410  41,2435  C 2351  1 TC 


1030  REF  47  LAST  M 5 4 1,2436  0 A001  0 NDCMPTST  TC 


SFTEMP1 

A 

L 

CCS HOLE 
GODS  PAL  A 
L 


R 1031 
R It  3? 
1033 

103  4 

1035 

1036 

1037 

1038 

IO30 

1040 

1041 

1042 

1043 


DCOMPTST  ALARMS  IF  DECIMAL  ONLY  BIf  (BIT-  OF  C _<MP  C-OE  NUMBER)  = 1. 
IF  LOT,  TT  PER  FOR  -S  R6GUI.AF  CGMPTEST. 


REF 

6 

LAST 

415 

41 , 2437 

54 

123 

0 

p EF 

63 

LAST 

414 

'•  1 ,2*  40 

22 

502 

0 

REF 

2 

LAST 

414 

41,2441 

0 

2443 

0 

REF 

1 

41 ,2442 

0 

2426 

0 

41,2 44 3 

0 

0006 

1 

REF 

87 

L AST 

40  8 

41 , 2644 

22 

1 5 0 

0 

RFF 

7 

I AST 

414 

'1  . ? 4 / s 

0 

2515 

REF 

36 

LAST 

374 

4 1 , 2446 

7 

4736 

0 

REF 

118 

LAST 

41  5 

41,2447 

10 

OGO 

0 

REF 

17 

LAST 

615 

: 41,2450 

Q 

2 3 5 1 

1 

REF 

88 

LAST 

415 

4 1 , 245  1 

0 

01  56 

0 

DCOMPTST  TS  SFTEMP1 

LXCH  Q 

TC  DECTEST 

TC  C0MPTST1 

DECTES'i  EXTEND 

QXCH  MPAC  +2 

TC  GETCGMP 

MASK  BIT14 

CCS  A 

TC  GODS PAL  4 

TC  MPAC  +2 


•• 


1044 

REF 

69 

LAST 

41  5 

41 ,2452 

22 

002 

0 

DCTSTCYC  LXCH 

Q 

1045 

REF 

3 

LAST 

41  5 

41 ,2453 

0 

25  15 

1 

TC 

GETCOMP 

1 

REF 

37 

LAST 

415 

41,2454 

7 

4736 

0 

MASK 

BIT14 

10'  7 

REF 

1 1 Q 

L A c T 

41  5 

41,245? 

10 

000 

0 

CCS 

A 

104  8 

REF 

3 

LAST 

4 1 2 

41 ,245  6 

0 

4 1 4 5 

0 

TC 

ALMCYCLE 

104  Q 

REF 

43 

l AST 

M 5 

41 >245 7 

6 

L 0 0 1 

0 

TC 

L 

R1C5C 

R 1051 

NOUN  FE  ST 

IF  NOT, 

ALARMS  IF 
r T RETURNS 

NO-LOAD  BIT 

(BITS 

OF 

COMP  CODE  : UMBE  ) = 1. 

1C5  2 

REF 

7 0 

LAST 

1 5 

41,2469 

22  002 

0 

NOUN TEST  LXCH 

Q 

1053 

REF 

u 

L AST 

415 

41,2461 

0 2515 

1 

TC 

GETCOMP 

1054 

REF 

120 

LAST 

41  5 

41  >246  2 

10  000 

0 

CCS 

A 

1055 

REF 

49 

L A ST 

41  5 

41 ,2463 

0 0001 

0 

TC 

L 

1056 

REF 

50 

LAST 

415 

41,2464 

0 C001 

0 

TC 

L 

105  7 

REF 

13 

LAST 

415 

41,2465 

0 235  1 

1 

TC 

GODS  PAL  1 

1051 

REF 

71 

LAST 

415 

41 ,2466 

22 

002 

0 

TSTFORDP  LXCH 

Q 

1059 

REF 

6 

LAST 

41  l 

41, 2467 

3 

0146 

1 

CA 

NNADTEM 

1060 

REF 

3o 

LAST 

414 

41 ,2470 

6 

4753 

1 

AD 

ONE 

106] 

41,2471 

0 

0006 

1 

EXTEND 

106? 

REF 

1 

41,2472 

1 

25  04 

0 

BZ  F 

C HAND  SP 

106  3 

REF 

4 

1 AST 

407 

41 ,2473 

50 

140 

1 

INDEX 

m I X B R 

1064 

41 , 2474 

0 

2474 

1 

TC 

+ 0 

1065 

41,2475 

0 

2477 

1 

TC 

+ 2 

3:15  DEC.  2,1970  AP11AID  .001  PAGE  415 

USER'S  PAGE  NO.  26  EO  S4 

NOUN  COMP  - VERB  COMP 

NOUN  COMP  G/  VERB  COMP 

NOUN  COM°  L/  V EG  B COMP 
NOUN  COMP  = VERB  COMP 

- VERB  COMP 

ALARMS  IF  CEC  INLY  BI  T = 1 (BIT4  OF  COMP 
CODE  NUMBER).  RETURNS  IF  NOT. 


ALARMS  AND  RECYCLES  IF  DEC  ONLY  BIT  = 1 
( BIT4  OF  COMP  CODE  NUMBER).  RETURNS 
IF  NOT.  USED  BY  LOAD  VERBS. 


TEST  FOR  DP.  IF  SO,  GET  MINOR  PART  ONLY. 
IF  NN AD"' E M = -1,  CHANNEL  TO  BE  SPECIFIED 

NORMAL 


GAP:  AS  S t 10L  F • V I S 1 ! 01  )F  AoC  PROGRAM  AR11RGPE  .BY  CYLES 


L ° IZRAIL  GAME  3UTTLNS  AND  t I GH  f S 


1066 

REF 

51 

LAST 

41  5 

41,2476 

0 

0 001 

0 

TC 

1 

REF 

1 

41,2477 

0 

3026 

c 

TC 

106£ 

REF 

2 

LAST 

410 

41,2500 

0 

2, 26J 

G 

TC 

106  - 

REF 

52 

L AST 

416 

4 1 , 25  0 1 

0 

1 

0 

TC 

1070 

REF 

8 

LAST 

414 

1 ,2502 

24 

145 

1 

INC- 

1071 

P FF 

53 

LAST 

416 

41 ,2503 

0 

cooi 

0 

TC 

107  2 

REF 

3 

LAST 

4Q8 

41 , 25G4 

3 

1017 

0 

CHAN DSP  CA 

1073 

P FF 

6 

LAST 

26  9 

41,2505 

7 

5004 

1 

MASK 

107  31 

4 1 , 2506 

0 

0006 

1 

EXTEND 

107  ^2 

REF 

1 2 1 

LAST 

41  c 

4 1 , 2507 

5 

0000 

1 

I N D F X 

1 

41,2510 

00 

000 

1 

READ 

1075 

REF 

122 

LAST 

416 

41,2511 

4 

0000 

0 

CS 

1076 

REF 

3 

LAST 

414 

41,2512 

1 

2371 

1 

TCP 

1077 

REF 

2 

LAST 

30  4 

4 1, 2513 

00147 

0 

COMPICK 

ADRES 

1078 

REF 

7 

LAST 

415 

41,2514 

00146 

1 

ADRES 

1079 

REF 

E _ 

LAST 

4 1 5 

41,2515 

50  140 

1 

GETCOMP 

INDEX 

1080 

REF 

1 

41,2516 

3 2512 

0 

CAE 

1081 

REF 

123 

LAST 

416 

41,2517 

50  000 

1 

INDEX 

108  2 

41,2520 

3 0000 

1 

CA 

1 

REF 

4 

LAST 

232 

41,2521 

7 4350 

1 

MASK 

1084 

REF 

72 

LAST 

415 

41,2522 

0 0002 

0 

TC 

1085 

1 086 

PEF 

REF 

5 

? 

LAST 

LAST 

415 

414 

41,2523 
41 ,2^24 

0 2515 

0 4 3 3 i 

1 

1 

DECDSP 

TC 

TC 

1 

1087 

REF 

1 1 

LAST 

414 

41 ,2525 

7 6245 

0 

MASK 

1C 

REF 

4 

LAST 

410 

41,2526 

54  117 

I 

TS 

1089 

REF 

1 

41.2527 

54  122 

nspnr  r,FT 

TS 

> i y c.  C-  « 

1 

REF 

9 

LAST 

41  6 

41 ,25  30 

6 C 1 4 5 

1 

AD 

1091 

REF 

124 

LAST 

41  f 

41,2531 

50  0 00 

1 

INDEX 

10°  2 

41,2532 

4 9000 

0 

CS 

1093 

REF 

2 

LAST 

416 

41,2533 

50  122 

0 

INDEX 

1094 

REF 

2 

LAST 

305 

41,2534 

57'003 

0 

XCH 

lr 

REF 

3 

LAST 

416 

41,2535 

1C  122 

1 

CCS 

l C ( 

REF 

1 

4 I , 2536 

0 2527 

0 

TC 

1097 

REF 

66 

LAST 

407 

41 , 2537 

3 4755 

I 

D5PDCPUT 

CAF 

1 09  P 

PEF 

89 

LAST 

415 

41,2540 

54  15C 

1 

TS 

i : 

REF 

90 

LAST 

416 

4 1, 254  1 

54  15b 

1 

TS 

1100 

REF 

5 

L AST 

416 

41,2542 

50  117 

0 

INDEX 

1101 

REF 

5 

LAST 

414 

4 1, 2543 

3 4317 

0 

CAF 

1102 

REF 

28 

LAST 

414 

41,2544 

54  777 

1 

TS 

110  3 

REF 

6 

LAST 

416 

41 , 25*  5 

5 0 117 

0 

I NDEX 

1104 

REF 

3 

LAST 

416 

4 1, 2546 

4 1003 

1 

CS 

1 1 ! 

REF 

91 

LAST 

416 

41 ,2547 

54  154 

0 

TS 

11C 

REF 

1 

41,2550 

0 304  7 

1 

TC 

3:15  DEC.  2,1970  AP11AID  .001  PAGE  416 

USER’S  PAGE  NO.  27  EO  S4 

L MIXED  CASE  ALREADY  HANDLED  IN  MIXNOUN 

SFRUTNOR 
D PTE  ST 

l NO  DP 

NOUN  ADD  DP  fc+1  INTO  NOUNADD  FOP  MIND  • PART. 

L 


NQUNCADR 
LOW  9 


A 

0 

A 

D S P C • ' 1 


NNTYPTEM 

NNADTEM 

M I X B R NORMAL  MIXED 

COMPICK  -1  ADRES  NNTYPTEM  ADRES  NNADTEM 

A 

0 C(NMTYPTEM)  C ( NNADTEM ) 

H I 5 GET  H 1 5 OF  NNT YPT AB ( NORM ) OF  NNAOTAB(MIX) 

Q 


GETCOMP 
LEFTS 
THREE 
DECOUNT 
DECTEM 
NOUN ADD 
A 
0 

DECTEM 
XREG 
DECTEM 
DSPDCGFT 
2 E°  L 

M P AC  +1 

MPAC  +2 

DECOUNT 
R1D1 

DSPCOUNT 
DEC  C’JNT 
XREG 
MPAC 
SFCONUM 


COMP  NUMBER  INTO  DECOUNT 
PICKS  UP  DATA 

DECTEM  1 COMP  +0,  2C0MP  +1,  3CDMP  +2 


CANT  USE  BUF  SINCE  DMP  USES  IT. 

MORE  TO  GET 
DISPLAYS  DATA 

WECOUNT  ICO  M P +0,  2C3MP  +1,  3C0MP  +2 


?X(  SF  CON  NUMB  ) IN  A 


GAF:  ASSEMBLE  L-  VT  S 1 1-  N 001  OF  AGC  PROG?  AM  API  1*0PE  BY  EYLES 


3:1?  OF  C. 


2,1070  AP11AID 


001  PAGE  417 


1107 
1 108 
1104 
1110 
1111 
1112 

1113 

1114 

1115 

1116 

1 1 1 « 
Ills 
111 


112c 
1121 
1122 
1123 
112  ft 
1 1 2 c 
112  6 


1127 

1128 
1124 

113C 
1131 
113? 
1133 
113^ 
1135 
1 13fc 
1137 
113? 

113  0 
1141” 

11401 

1 1 4 C 2 
11403 
1141 


R 1142 
R 11^3 


PINBALL  GAME  BUTTONS  AND  LIGHTS 


USER'S  PAGE  NO.  28  EO  S4 


REF 

Q LL  Cl 

7 

1 

ft 

LAST 

415 

r tf 

REF 

LAST 

41  1 

KEF 

6 

LAST 

416 

PEF 

REF 

1 

2 

LAST 

410 

REF 

1 

41.2551  54  123  0 

41.2552  0 0006  1 

41 .2553  3 2565  0 

61  , 2 5 E-  4 r 2 0 06  ) 

41,2545  50  140  1 

41.2556  0 255 6 0 

41.2557  0 2562  1 

41.2560  0 3034  0 

41.2561  0 2575  1 


TS  SFTEMP1 

EXTEND  SWITCH  BANKS  TO  SF  CONSTANT  TABLE 

DCA  GTSFGUTL  READING  RUUT I NE . 

DXCH  Z LOADS  SFTEMP1,  SFTEMP2. 

INDEX  *•'  I X B R 
TC  +0 

TC  DSPSFNOR 

TC  SFRUTMI X 

TC  DEC DSP  3 


REF  2 L A f-  T 41ft  41,2562  0 3023.  0 USPSFNL  TC  Si- RUT  NO  F 

REF  2 LAST  41?  41 ,2563  0 2575  1 TC  DECDSP3 


REF  29  LAST  416  0777 

-EE  1 41, 25 64 

REF  1 41,2565 


E B A N K = DSPCOUNT 

02141  1 GTSFUUTI  2CADR  GTSFOUT 

.—  101  0 


REF 

77 

LAST 

41  1 

41,2566 

0 4616 

1 

DSPDCEND  TC 

BANKCAL  L 

REF 

1 

41,2567 

612  2 6 

0 

CADR 

DSPDECWD 

REF 

7 

LAST 

416 

41,2570 

If  117 

1 

CCS 

DECOUNT 

41,2571 

0 25  73 

1 

TC 

+ 2 

PEF 

4 

LAST 

414 

41,2572 

0 0136 

0 

TC 

ENTEXIT 

c'  EF 

: 8 

LAST 

417 

41 , 2573 

54  117 

1 

TS 

DEC  0!JNT 

REF 

1 

41,2574 

0 2537 

1 

TC 

DSP DC  PUT 

REF 

125 

LAST 

416 

41 ,2575 

50  000 

1 

DEC0SP3 

INDEX 

A 

REF 

1 

41,257ft 

3 2600 

0 

CAE 

S FOUTABF 

REF 

3 

LAST 

4HR 

41, 2577 

0 4640 

1 

TC 

BANK JUMP 

REF 

1 

41  ,2600 

6 1416 

0 

SEOUT  ABF 

CADR 

PREDSPAL 

P.  EF 

1 

4 l,  2601 

62  566 

0 

CADR 

DSPDCEND 

REF 

1 

41,2602 

ft  06  1 5 

0 

CADR 

DEGOUTSF 

ppp 

1 

4 1,260  3 

60677 

1 

CAOr 

ART OUTS E 

PEF 

1 

4 1 , 2604 

60710 

1 

CADP 

DPI  n ' ) T S F 

REF 

1 

41,2605 

60715 

1 

CADR 

DP20UTS  F 

REF 

1 

41 , 2606 

60635 

1 

CADP 

LRPOSPUT 

REF 

1 

41,2607 

60717 

0 

CADR 

DP30UTSF 

REF 

1 

41,2610 

65230 

0 

CADP 

HMSOUT 

REF 

1 

41,2611 

65303 

1 

CADP 

' /S< JUT 

REF 

2 

LAST 

41.7 

41,2612 

6 0715 

1 

CADR 

DP20HT  S F 

REF 

1 

41,2613 

6 0704 

] 

CADP 

AR0UT1SF 

RFF 

1 

41,2614 

60732 

1 

CADR 

2 INTOUT 

REF 

1 

41  ,2615 

60623 

0 

CADP. 

3 60 -C DUO 

41,2616 

END!  TOUT 

EQUALS 

ALL  SEOUT  ROUTINES  END  HERE 


MORE  TO  01  SPLAY 


ALARM  IF  DEC  DISP  WITH  OCTAL  ONI Y NOUN 


THE  FOLLOWING  IS  ATYPICAL  SF  ROUTINE  . IT  USES  MPAC.  LEAVES  RESU 
LTS  IN  MPAC,  MPAC+1.  ENDS  WITH  TC  DSPDCEND 


I 


I 

GAP:  ASSEMBLE  :E  VISION  001  CF  AGC  Pf  0G!  AM  Afcll&OPE  BY  EYLES 


L PI:'  BAH  GAME  BUTTONS  AND  LIGHTS 


1144 

REF 

2 

LAST 

405 

40,2615 

ifcTLOC 

BLANKCON 

11+45 

REF 

2 

LAST 

3 93  TO 

4C  fe  : 

334 

334* 

COUNT* 

$ $ / P I N 

R 1145 

DEGCUTSF  SCALES  BY 

.11  THE 

L ' 1 

BITS  OF  ANGLE  , ADDING  .16 

R 1146 

NUMBERS 

IN  THE 

NEGATIVE  (AGC) 

r’AI  GE. 

1147 

REF 

67 

LAST 

416 

4C , 2615 

3 

47  55 

1 

DEGf  UTSF 

CAF 

ZERO 

1148 

REF 

92 

LAST 

41t 

40 ,2616 

54 

156 

1 

TS 

MPAC 

1149 

REF 

1 

40,2617 

0 

?o52 

1 

TO 

FIXKANGE 

1150 

40, .262  0 

0 

2622 

0 

TC 

+ 2 

1151 

REF 

1 

AC, 2621 

0 

2645 

1 

TO 

S ET  AUG 

11*11 

PFF 

1 

40,2622 

0 

2663 

0 

TC 

DEGCOM 

R 1152 

360- 

C D UO  COMPUTES  360  - CDU  ANGLE  IN 

MPAC,  STORES  RESULT 

' IN  MPAC 

R 11 52  1 

GOES 

TO 

DEGOUT 

SF. 

11522 

REF 

1 

40,2623 

0 

262  5 

1 

360-CDUO 

TC 

360-CDU 

115?3 

REF 

2 

LAST 

417 

40  ,26?* 

0 

26  1 * 

L 

TC 

D F Ci ( ] IT  ( F 

11524 

REF 

93 

LAST 

418 

40,2625 

3 

0154 

1 

360-CDU 

CA 

MPAC 

11525 

REF 

6 

LAST 

381 

40,2626 

7 

6 733 

0 

MASK 

POSMAX 

11526 

40  t 2627 

Q 

00  06 

1 

EXTEND 

11527 

REF 

1 

60,2630 

1 

2 636 

0 

BZF 

360— CDU E 

115  28 

REF 

94 

LAST 

*18 

40, 2631 

4 

1 

0 

CS 

MPAC 

1152  9 

REF 

37 

LAST 

41  5 

40,2632 

6 

4753 

1 

AD 

ONE 

115291 

REF 

95 

LAST- 

418 

40,2633 

54 

154 

0 

TS 

MPAC 

115292 

RFF 

73 

LAST 

416 

40,2634 

0 

0002 

0 

3 60- C DUE 

TC 

Q 

01153  1 P -1U  DISPLAY".  +'  ,1,2,.  - 3 ( HOLE)  FOf  CHANNEL  33, BITS  7--  = 11,10, 

R 1 1 5 * 01,00  ■ ESPECTI  VFLY.  


1155 

40,2635 

0 0006 

1 

1 ^ 

EXTEND 

1156 

REF 

6 

LAST 

2 77 

40,2636 

00  033 

1 

READ 

CHAN3>^ 

1157 

40,2637 

0 0006 

1 

1158 

REF 

?C 

LAST 

375 

40,2640 

7 *74  2 

0 

MP 

BIT  10 

115Q 

40,2641 

4 0000 

0 

COM 

1160 

REF 

12 

LAST 

416 

40,2642 

7 6245 

0 

MASK 

THREE 

1161 

REF 

96 

LAST 

418 

40,2643 

54  154 

0 

TS 

MPAC 

1162 

REF 

2 

LAST 

417 

40,2644 

0 2677 

0 

TC 

ARTCUTSF 

1176 

40,2645 

0 0006 

1 

SET AUG 

EXTEND 

1 175 

RFF 

97 

LAST 

418 

40,2646 

5 0156 

0 

INDEX 

MPAC  +2 

1176 

REF 

1 

40,2647 

3 2674 

0 

DC  A 

DEGTAB 

11  77 

REF 

8 

LAST 

417 

40,2650 

52  124 

1 

DXCH 

SFTEMP1 

11  78 

REF 

74 

LAST 

1 

40,265  1 

0 0002 

0 

TC 

Q 

1179 

REF 

98 

LAST 

418 

40,2652 

10  154 

0 

FI XRANGE 

CCS 

MPAC 

1 1 

PFF 

75 

LAST 

6)  8 

4D,  2653 

0 0002 

0 

TC 

0 

1181 

REF 

76 

LAST 

418 

40,2654 

0 0002 

0 

TC 

Q 

1182 

40,2655 

1 2656 

1 

TC  F 

+ 1 

i" 


: 15  DEC.  2,1970  AP11AID 
US  F ^ • S PAGE  NO.  2<r 


.001  PAGE 
EO  S4 


41  8 


SET  INDEX  FOR  FULL  SCALE 

NO  AUGMENT  N:  EE  OED  (SFTEMP1  AND  2 ARE  0) 
S FT  AUGMEWTEr  ACCORDING  T0  CIMPAC  + ?) 


IF  ANGLE  IS  0 OR  180  DEGREES,  DO  NOTHING 

COMPUTE  360  DEGREES  MINUS  ANGLE 


BITS  7-6  TO  BITS  2-1 


DISPLAY  AS  WHOLE 

LOADS  SFTEMP1  AND  S FT  EMP  2 WITH  THE 
DD  AUGMENT ER  CONSTANT 


IF  MPAC  IS  + RETUPN  T0  l.  + l 
IF  MPAC  IS  - RETUPN  TO  1+2  AFTER 
MASKING  OUT  THE  SIGN  BIT 


f 


GAP  : 

ASSEMBLE 

RE 

VISION  001  OF 

A SC  PROGRAM  AP11KUPE  BY  L YL  fi  S 

3:15  DEC.  2,1970 

AP11 

AID  .001 

P AG  F 

L 

PINBALL 

G 

AMF  BUrTONS 

AMD  LIGHTS 

USER'S  PAGE 

NO. 

30 

EO  S 4 

1183 

REF 

21 

1184 

REF 

99 

1 1 S 

REF 

100 

1186 

c F F 

77 

1187 

LAST 

LAST 

407 

41  8 

40 

40 

L Ab  f 
LAST 

419 

413 

4-  T-  4 

o o <: 

,2656  4 4735  0 
,2657  7 0154  0 
, 2660  54  154  0 
,2661  50  002  0 
,2662  ) 0001  0 


CS  BIT15 

MASK  MPAC 
TS  MPAC 

INDEX  Q 
TC  1 


1181 
1 1 8 « 

1 ) 

116  1 
11°? 

1193 

1194 

1195 


REF  101  LAST 
f.  ( 2 LAST 

i F 102  LAST 
REF  2 L A 5-  T 
REF  Q LAST 
REF  103  LAST 
REF  1 


40, 

,2663 

419 

40, 

,2664 

41 8 

40 , 

-266  5 

419 

40, 

, 2666 

400 

40  i 

,26  67 

41  ? 

40 , 

, 267  o 

419 

40  , 

, 267  1 

40  , 

,2672 

- )6  1 DEGCOM 

5 0156  0 
3 2674  0 
52  155  1 
0 7 3 C 7 1 
52  124  1 
20  155  1 
0 2702  0 


EXTEND 

INDEX  MPAC  +2 

DC A OEGTAB 

DXCH  MPAC 

TC  SHORTMP 

DXCFI  SFTEMP1 

DAS  MPAC 

T C SCOUTEND 


LOADS  MULTIPLIER  , DOES  SHORTMP,  AND 
ADOS  AUGMENTER. 

ADJUSTED  ANGLE  IN  A 


1196  40,2673 

1197  40,2674 

1198  40,2675 

119°  40,2676 


05605 

1 DFGTAB 

OC  T 

05605 

03656 

1 

OCT 

0 36  c6 

16314 

0 

OCT 

16314 

31463 

1 

OCT 

31463 

1201 

REF 

1 0 

1202 

REF 

1 ( 4 

1200 

REF 

1 

1204 

REF 

21 

1205 

REF 

2 

1 2 0 r 1 

RFF 

11 

120  5 2 

REF 

105 

1 2 0 5 3 

CPF 

2 

12 

REF 

1 

LAST 

LAST 

4 1 9 
419 

40 

40 

40 

LAST 

412 

40 

LAST 

417 

40 

LAST 

1 

40 

1 AL- 

4  1 9 

40 

LA  ST 

4 1 Q 

40 

“ JL  - 

4C 

2677 

52 

124 

i 

2700 

52 

135 

1 

2701 

0 

44  15 

0 

2702 

0 

463  5 

0 

27 C 3 

62566 

0 

2704 

52 

124 

1 

2705 

52 

155 

1 

270  6 

0 

4415 

0 

27C7 

0 

2711 

1 

Af  T OUT SF 

DXCH 

DXCH 

Tf 

SFTEMP1 

MPAC 

ORCUDTWD 

SCOUTEND 

I 

TC 

r O n ( 5 > 

POST JUMP 

CADR 

D SP  DC  END 

A,-  OUT  1 S F 

DXCH 

S FT  EM PI 

DXCH 

MPAC 

TC 

PRSHRTMP 

TC 

L 14 /OUT 

HI 

PA 

RT 

OF 

.18 

LOW 

D 

AFT  OF 

.18 

HI 

PA 

RT 

OF 

.45 

LO 

PA 

RT 

OF 

.45 

ASSUM 

ES 

POINT 

AT  LEFT 

OF 

DP 

SFCON 

IF 

C< 

A) 

= -o, 

SHORTMP 

FA  I 

LS 

T 3 G T VF  -0 

ASSUMES  POINT  BETWEEN  HI  AND  1.0  PARTS  OF 
DP  SFCON.  SHIFTS  RESULTS  LEFT  14,  BY 
TAKING  RESUL'S  FROM  MPAC+1,  M°AC+2. 


1206 

REF 

1 

4 0, 2710 

0 2 72  3 

0 

DP1GUTSF 

TC 

OPOUT 

SCALES  MPAC,  MPAC  +1  BY  DP  SCALE  FACTOR 

120  7 

REF 

1 06 

LAST 

419 

40,271 1 

156 

0 

LI  4/ GUT 

XCH 

MPAC  +2 

IN  SFTFMP1,  S F TEMP  2 . THEM  CCAL E fESULT 

1208 

REF 

I 0 7 

LAST 

419 

40,2712 

56  155 

0 

XCH 

MPAC  +1 

BY  B14. 

120° 

REF 

1C8 

LAST 

419 

40,2713 

54  154 

0 

TS 

MPAC 

121  . 

REF 

2 

LAST 

419 

40,2714 

0 2702 

0 

TC 

SCOUTEND 

1211 

F EF 

2 

LAST 

419 

40,2715 

0 

2723 

0 

DP2LUTSF  TC 

D POUT 

SCALES  MPAC  , MPAC  +1  BY  DP  SCALE  FACTOR 

1212 

RFF 

3 

LAST 

419 

40,?716 

0 

2702 

0 

TC 

SCOUTEND 

1213 

REF 

3 

LAST 

4 1 9 

•>•0,2717 

0 

2723 

0 

DP3UUTSF  TC 

DPOUT 

ASSUMES  Pi  INT  BETWEEN  BITS  7-8  np  HIGH 

1214 

RFF 

11 

LAST 

410 

40,2720 

3 

6 242 

0 

CAF 

SIX 

LEFT  BY  7,  ROUNDS  MPAC+2  INTO  MPAC+1. 

1 2 1 c 

REF 

1 

*0,2  721 

0 

3153 

0 

TC 

TPLFFTN 

SHIFT  LEFT  7. 

1216 

REF 

4 

LAST 

41.9 

40,2722 

0 

2702 

0 

TC 

SCOUTEND 

i" 


AP:  AS  S EM  .It  b VIS  I Si,  001  CF  AGC  PA  uGPAM  API  HOPE  BY  EYLES 


PINBAIL  GAME  BUTTONS  AN  D LIGHTS 
12165  REF  109  LAST  419  0162 


1217 

1218 

1219 

1220 
1221 
1222 
1223 

R 12231 
R 12232 
R 12233 
R 12234 


REF 

REF 

REF 

RFF 

REF 

REF 

REF 


78 

1 
1 

2 
2 

12 

2 


LAST  419 


LAST 

LAST 

LAST 

LAST 


21 

400 

419 

420 


40.2723 

40.2724 
40 , 272  5 

40.2726 

40.2727 
40, 2730 
‘,0,2731 


MPAC+6 


DP  OUT 


MPAC  +6 


5c-  002  C 
54  162  0 
0 2747  1 
0 7257  0 
0 7103  1 
00123  1 
0 0162  1 

THE  FOLLOWING  F OUT 1 NE  DISPLAYS  1 WC  CONTIGUOUS  SP  POSITIVE  INTEGERS 
AS  T ■ 0 PSITIVE  DECIMAL  I 1 :‘GE  S 10  X D 1 - XD2  AT'  0 XI)  4-'  XD5  ( • XD  3 IS 
BLANKED).  THE  INTEGER  IN  THE  LOWER  NUMBER  ED  ADORES*  I DISPLAYED  IN 
RXD1-RXD2 . 


XCH 

TS 

TC 

TC 

TC 

ADRES 

TC 


Q 

fPAC+6 

READLO 

TPAGRFE 

DMP 

SFTEMP1 

MPAC+6 


12235 

REF 

3 

LAST 

41  1 

40,2732 

0 2536 

0 

2 I NT  OUT  TC 

5BL ANK 

122355 

REF 

2 

LAST 

402 

40,2733 

0 2413 

0 

TC 

+CN 

1223  6 

REF 

110 

LAST 

420 

< 0, 2736 

3 0154 

1 

CA 

MPAC 

12237 

R FF 

1 

40 ,27  35 

0 7 3 06 

1 

TC 

DSP DEC VN 

122371 

REF 

13 

LAST 

418 

40,2736 

4 6245 

0 

cs 

THREE 

122372 

REF 

9 

LAST 

417 

40,2737 

50  117 

0 

INDEX 

DECOUNT 

122373 

REF 

LAST 

4 1.6 

40,2740 

6 4317 

0 

AD 

NIDI 

122374 

° EF 

30 

LAST 

417 

4 0,274  1 

54  777 

1 

TS 

DSPCCUNT 

122375 

P FF 

2 

LAST 

42  0 

■-  0 , 274  2 

0 2747 

1 

TC 

READLO 

122  3 76 

REF 

1 1 i 

EAST 

420 

4.0 , ?lt>  3 

3 C 1 5 5 

o 

C A 

MPAC  +1 

122377 

KEF 

2 

LAST 

420 

)C  , 2 744 

0 3 3 06 

1 

TC 

DSPDECVN 

122378 

REF 

22 

LAST 

419 

40,2745 

0 4 6 35 

0 

TC 

POSTJUMP 

122379 

REF 

3 

LAST 

419 

40,2746 

62570 

1 

CAUR 

DSPDCEND 

R 1 2 2 4 

TEADir  PICKS  JP  F-  ESN  DATA  (FPR  BOTH  HI 

AND  1 n AND  l EAVES 

IT  IN 

R 1225 

MPAC 

, MPAC+1. 

THIS 

IS  NEEDED 

FOR  T IMF 

DISPLAY.  IT  ZEROES 

MPAC+2 , 

R 1226 

DOES 

NOT 

FORCE 

TP  AGP  EE. 

1227 

REF 

79 

LAST 

420 

40,2747 

56  002 

0 

READLO  XCH 

Q 

1228 

P E F 

8 

1 AST 

98 

40,2750 

54  144 

1 

TS 

T EM4 

1229 

REF 

7 

LAST 

417 

40, 275 1 

50  140 

1 

INDFX 

MI  XBP 

1230 

40,2752 

0 2752 

0 

TC 

+ 0 

1231 

REF 

1 

40,2753 

0 2767 

0 

TC 

RDLONOR 

1232 

REF 

10 

LAST 

420 

40,2754 

50  117 

0 

INDFX 

DECl UNT 

1233 

REF 

3 

LAST 

4 1 0 

40,2755 

3 0150 

0 

CA 

I D ADI TEN 

1234 

REF 

4 

LAST 

410 

40,2756 

7 4356 

1 

MASK 

L0W1 1 

1235 

RFF 

2 

LAST 

410 

40,2757 

0 4313 

1 

TC 

SI  TE  TANK 

1236 

40,2760 

0 0006 

1 

READLO 1 EXTEND 

1237 

REF 

126 

LAST 

417 

40,276  1 

5 0000 

1 

INDEX 

A 

1238 

40,2  76  2 

3 000  1 

0 

DCA 

9 

1239 

REF 

1 12 

LAST 

420 

40,2763 

52  155 

1 

DXC.H 

MPAC 

1240 

REF 

68 

LAST 

4 1 8 

40 ,2764 

3 *755 

1 

CAF 

ZERO 

1241 

REF 

I 1 3 

LAST 

42n 

40,2765 

54  156 

1 

TS 

MPAC 

1242 

RFF 

9 

LAST 

420 

40,2766 

0 0144 

0 

TC 

TEM4 

+ 2 


3:15  DEC 


2,1970  AP11AID 


001  PAGE  420 


USER'S  PAGE  NO.  31  EO  S4 

USE  MPAC  +6  INSTEAD  OF  OVFIND 

GET  FRESH  DATA  FOP  BOTH  HI  AND  LO. 
MAKE  DP  DATA  AGREE 


TO  BLANK  RXD3 
TURN  ON  + SIGN 

DISPLAY  1ST  I NTEGE!  (LIKE  VE R 8 AND  NOUN) 

P>  XD4 

GET  2ND  INTEGER 

DISPLAY  2ND  ITiTEGEF  (LIKE  VF^B  AND  NOUN) 


GET  IDADDTAB  E NT:J Y FOR  COMP  K OF  NOUN. 
E SUBK 

SET  EB,  LEAVE  EADRES  IN  A. 

MIXED  NORMAL 

C(ESUBK)  C ( E ) 

C ( ( E SUBK ) +1 ) 


C! E+l  ) 


GAP:  ASSEMBLE  REVISION  001  Of  AGC  PROGRAM  APlIRliPE  BY  EYLES 


3:15  DEC 


2,1970 


1243 

1244 


1245 
124*01 
1 2 4 5 C 2 

1245,5 
125  5 
1247 

124  8 
1249 

A 1250 

1251 

1252 

125  3 

1254 

1255 

1256 

1257 
125£ 
125  c 
1260 
1261 
1262 
1263 

A 1264 

1265 

1266 

1267 

1268 
1265 

1270 

1271 

1272 

1273 
A 1274 

12  75 
12  76 

1277 

1278 

1279 

1280 
1280 
1281 
1282 
1283 
12  84 


AP11AID  .001  PAGE  421 


PINBALL  GAME  BUT  TOP'S  AND  LIGHTS 


USER*  S PAGE  NO.  32 


EO  S4 


REF 

10 

LAST  416 

40,2767 

3 

0145  1 

F.DLONOP 

CA 

NOUNADD 

REF 

1 

40,2770 

0 

2760  1 

ENDPDLO 

TC 

PEADL01 

rfp 


LAST  306 


42,3230 

42,2000 

42,3230 


B ANY  42 
SETLnc  PI  NR  ALL 3 
BANK 


REF  1 
" EF  79 
REF  3 
REF  3 
P EF  1 

REF  3 
BEE  1 
REF  4 
r EF  31 
REF  79 
REF  2 
REF  1 
P£F  1 
REF  114 
OFF  1 
REF  2 
F E F 115 
REF  3 

REF  3 
REF  32 
REF  80 
REF  3 

R EF  1 
FEE  116, 
REF  2 
REF  4 

REF  7 
REF  33 
REF  81 
REF  4 
REF  5 


LAST 

417 

4 2,3230 

0 4616 

1 

LAST 

420 

42, 3231 

60747 

0 

LAST 

42  r 

4 2,3232 

0 72  57 

0 

42,3233 

0 3417 

0 

LAS' 

42  0, 

42,3234 

0 7103 

1 

42,3235 

D 3 2 7 1 

0 

LAST 

411 

42,3236 

3 '321 

0 

I.  A S v 

„ 42  0 

i 2,3237 

54  777 

1 

L AST 

42  1 

42 , 324-0 

0 6616 

1 

LAST 

417 

42,3241 

61226 

0 

42,3242 

C 343  5 

0 

42,3243 

3 3273 

1 

LAST 

4 20 

42,3244 

3 6 154 

1 

42, 324* 

5 5 1 007 

0 

LAST 

42  1 

42,3246 

3 3274 

0 

LAST 

421 

42,3247 

56  155 

0 

LAST 

415 

42,3250 

0 4415 

0 

LAST 

411 

42, 3251 

3 4 3 20 

1 

LAST 

421 

42,3252 

54  111 

1 

LAST 

42  1 

42,3253 

0 4616 

1 

LAST 

421 

42,3254 

61226 

0 

42,3255 

0 0006 

1 

42,3256 

3 3300 

1 

1 AST 

42  1 

4 2,32  57 

52  155 

1 

l AST 

421 

42 , 326  0 

3 1007 

1 

LAST 

42  1 

42,3261 

0 4415 

0 

LAST 

420 

4 2, 326  2 

3 4317 

0 

LAST 

42  1 

42, 3263 

54  111 

1 

LAST 

421 

42,3264 

0 46  16 

1 

LAST 

421 

42, 3265 

612  2 6 

0 

LAST 

417 

42 , 3266 

0 0136 

0 

42,3267 

26660 

0 

42,3270 

31742 

1 

42,3271 

01727 

1 

4?, 3272 

012  L 7 

1 

42,3273 

C C 0 1 1 

1 

42,3274 

32445 

0 

COUNT  4 

S$/P IN 

HMSOUT 

TC 

BANKCALt 

B EA  D FRESH  DATA  FOF  HI  AND  LC  INTO  MPAC, 

CAD  R 

r FAD  L 0 

MPAC+ 1. 

TC 

T PAGE  EE 

MAKE  DP  D AT A AGREE 

TC 

SEPSECNR 

LEAVE  FF ACT  SEC/60  IN  MPAC,  MPAC+1. LEAVE 

WHOLE  MIN  IN  BIT13  OF  L0T EMOUT  AND  ABOVE 

TC 

OMP 

USE  ONLY  FPACT  SEC/oO  MOD  60 

A OFFS 

SEC ON 2 

MULT  BY  .06 

CAF 

R 3D  1 

GIVES  CENT  I- SEC /1QEXP  5 MOD  66 

tc 

ncpr  Ml Mt 

f J 

UjrPL'u  Ml  ’ 

TC 

B ANKCALL 

DI SPLAY  SEC  MOD  60 

CADR 

DSPDECWD 

TC 

SEP MIN 

REMOVE  PEST  GF  SECONDS 

CAF 

MINC0N2 

LEAVE  FR  AC  T MIN/60  IN  MPAC+1.  LEAVE 

XCH 

HP  AC 

WHOLE  HOURS  IN  MPAC. 

TS 

HITE-OUT 

SAVE  WHOLE  HOURS. 

CAF 

MINC0N2  +1 

XCH 

MPAC  +1 

USE  ONLY  FRACT  MIN/60  MOD  60 

TC 

PE  SHRIMP 

IF  CIA)  = -0,  SHORTMP  FAILS  TO  GIVE  -0. 

MULT  BY  .0006 

CAF 

' 2D1 

GTVES  MIN/10EXP5  MOD  60 

TS 

DSPCOUNT 

TC 

BANKCALL 

DISPLAY  MIN  MOD  60 

CADR 

DSPDECWD 

EXTEND 

MINUTES,  SECONDS  HAVE  BEEN  ' EMOVEQ 

OCA 

hp  cor  4 

DXCH 

MPAC 

CA 

hitemout 

USE  WHOLE  HOURS 

TC 

PRSHRTMP 

IF  CIA)  = -0,  SHOFTMP  FAILS  TO  GIVE  -0. 

MULT  BY  .16384 

CAF 

mo  i 

GIVES  HOUF  S / 1 0 EXP 5 

TS 

DSPCOUNT 

TC 

BANKCALL 

USE  TEGULAR  DSPDECWD,  WITH  ROUND  OFF. 

CAOP 

DSPDFCwn 

TC 

ENTEXI T 

SECCN1 

2 D E C 4 

1 . 6co666666 

E-4  B 1 2*  2EXP 12/6000 

SEC0N2 

OCT 

01727 

.06  FOR  SECONDS  DISPl  AY 

OCT 

012  17 

MINC0N2 

OCT 

0001  1 

.0006  FOR  MINUTES  DISLPAY 

OCT 

3 244  5 

GAP:  ASSEMBLE  REVISION  001  OF  A GC  PROGRAM  AP11R0PE  BY  EYLES 


L PF  BALL  C-AME  BUTTONS  AGO  { I GHTS 


128  5 

42,3275 

02104 

0 

MINC0N1 

OCT 

1286 

42, 3276 

10422 

1 

( 

1287 

4 2 , 32  7 7 

05174 

0 

HF.C0N1 

2DtC 

1267 

42,3300 

1326  1 

0 

1288 

+2,3301 

orooo 

1 

OCT 

12  8° 

4 2 i 330? 

0006  2 

0 

rNdcon 

OCT 

1 29C 

REF 

,82 

LAST 

421 

42,3303 

0 4fc  1 6 

1 

M/SGUT 

TC 

1291 

P E F 

4 

l AST 

421 

42, 330-6 

6 0747 

0 

CAOP 

1292 

REF 

4 

LAST 

42  1 

42,3305 

0 7257 

0 

TC 

1293 

REF 

1 17 

LAST 

421 

42,330  6 

10  154 

0 

CCS 

1294 

42,3307 

0 3311 

1 

TC 

1295 

REF 

1 

42,3310 

0 3342 

1 

TC 

1296 

REF 

1 

42,3311 

6 33  77 

1 

AD 

1297 

REF 

127 

LAST 

420 

4 2,-312 

10  OpO 

0 

CCS 

1298 

REF 

1 

42,3313 

0 33  26 

0 

TC 

1 ?r  " 

■>  FF 

2 

1 a SI- 

4?  ? 

42,33  liu 

0 3 34? 

x 

T C 

1300 

REF 

3 

LAST 

422 

4-2,33  15 

0 3342 

1 

TC 

1301 

REF 

118 

LAST 

422 

42,3316 

10  155 

1 

CCS 

1302 

42,3317 

0 3321 

x 

TC 

1303 

REF 

4 

L AST 

4 22 

42,3120 

0 3342 

1 

TC 

130  4 

REF 

1 

42,3321 

6 3400 

0 

AD 

1305 

REF 

128 

LAST 

422 

42,3322 

10  OCO 

0 

CCS 

1306 

REF 

2 

LAST 

422 

42, 3323 

0 3326 

0 

TC 

1307 

REF 

5 

LAST 

42  2 

42,3324 

0 3342 

1 

TC 

1 3 L 8 

REF 

6 

LAST 

422 

42,3325 

0 3342 

1 

TC 

130° 

REF 

11 

LAST 

42? 

42,3326 

10  154 

0 

M/SL  IM  IT 

CCS 

13) 

REF 

1 

42,3327 

3 3402 

1 

CAF 

1311 

REF 

1 

42, 3330 

0 3337 

0 

TC 

1312 

REF 

2 

LAST 

42  2 

42,3331 

4 3402 

0 

CS 

1313 

REF 

120 

LAST 

422 

42, 3332 

54  154 

0 

TS 

1314 

REF 

3 

LAST 

422 

42,3333 

4 3403 

1 

CS 

1315 

P FF 

121 

LAST 

422 

4 2, 3.33  4 

9+  155 

1 

LI  MI TC DM 

TS 

1316 

REF 

1 

42,3335 

3 3401 

1 

CAF 

1817 

REF 

2 

LAST 

421 

4 2 , 33  36 

0 3620 

1 

TC 

1318 

REF 

122 

LAST 

422 

42, 3337 

54  154 

0 

+ L I M T T 

TS 

1319 

REF 

4 

L AST 

422 

42,3340 

3 3403 

0 

CAF 

1320 

REF 

1 

42 , 334 1 

0 3334 

0 

TC 

1321 

REF 

1 

42,3362 

0 3404 

1 

/ !'  +■" 

TC 

A 132? 

1323 

R EF 

1 

42,3343 

3 3 37  5 

0 

CAF 

1324 

REF 

3 

LAST 

419 

42 , 3344 

0 7307 

1 

TC 

1325 

REF 

14 

LAST 

420 

42,3345 

4 6245 

0 

CS 

1326 

REF 

34 

LAST 

42  1 

42,3346 

26  777 

1 

ADS 

1327 

REF 

8.3 

L AST 

42  2 

42, 3 34  7 

) 4616 

1 

TC 

1328 

REF 

1 

42,33+0 

61266 

1 

CADr- 

1329 

KEF 

69 

LAST 

42C 

42,3351 

3 4755 

1 

CAF 

133C 

RFF 

5 

LAST 

405 

42, 3352 

54  124 

1 

TS 

1331 

REF 

23 

LAST 

414 

42,3353 

4 4752 

1 

CS 

3:  15  DEC 


2,1970  AP11AID  .001  PAGE 


42  2 


USER'S  PAGE  NO.  33  EO  S6 

02104  .066. .66  UPPED  BY  2EXP-28 

10422 
. 16384 


OUCOO 

00062  .5  SEC 


BANKCALL 
F EADLO 
T PAGE  EE 
MP  At 

+ 2 

M/SNORM 
M/ SC UNI 
A 

M/S!  I M 1 1 

M/SWOFM 

M/SNORM 
MPAC  +1 
+ 2 

M/SNORM 

M/SXCN2 

A 

M/SLIMIT 

M/SNORM 

M/SNCRM 

MPAC 

M/SC0N3 

+LI MI T 

M/SC0N3 

MPAC 

M/SCGN3  +1 
MPAC  +1 
NOR MADE 
SEPSECNP  +1 
MPAC 

M/SC  ON 3 +1 

LIHI7CGM 

SEPSEC 


HIS  EC  ON 

SHORT MP 

THREE 

DSP COUNT 

BANKCALt 

DSPDC2NL 

ZERO 

CODE 

TWO 


READ  FRESH  DAT A FOR  HI  AMD  LC  IN^O  MPAC, 
MPAC+1. 

MAKE  DP  DATA  AGREE 

IF  MAG  OF  (MPAC,  MPAC+1 » G/  59  M 59  S, 
DISPLAY  59B59 , WITH  PROPER  SIGN. 

MPAC  = +0.  L/  59M58.5  S 

- oi  PARI  OF  ( 59M58..5S ) +1  EOF  CCS 
MAG  OF  MPAC  - HI  PA'T  OF  (59M58.CS) 

G/  59M58.5S 

OR  TGI F AL  MPAC  = -0.  L/  59M58.5S 
If  59M58.5S 

MAG  OF  MPAC  = HI  PART  OF  5°M58.5S 

MPAC+1  = +0.  I / 59M58.5S 

- LO  PART  OF  (59M5  8.5S)  +1  F OF  CCS 
MAG  OF  “PAC+1  - LC  PART  0 F ( 69M5  fi . 5 S ) 

G / 59M58.5S 

ORIGINAL  MPAC+1  = -0.  L/  59M58.5S 
L / 59M58.5S 
= 59M56.5S  LIMIT 

MPAC  CANM'T  BE  + /-  0 AT  THIS  POINT. 

FORCE  MPAC,  MPAC+1  TO  +/-  59M59.+S 

WILL  DISPLAY  59M59S  IN  DSPDECNF 


SET  RETURN  TP  M/SNORM +1. 


LEAVE  FF AC  T SEC/60  TN  MPAC,MPAC  + I.  LEAVE 

WHOLE  MIN  IN  BIT13  OF  LOTEMOUT  AND  ABOVE 

USF  ONI  Y F r AC T SEC/60  MOD  60 

MULT  BY  .6  + 2EXP-14 

GIVES  SEC/100  MOD  60 

DSPCOUI\'r  ALREADY  SET  TO  PXD1 

DISPLAY  SEC  MOD  60  IN  06Q  5 . 


GAP: 


ASSEMBLE  REVISION  001  OF  AGO  PROGRAM  AP11R0PE  BY  fcYl.ES 


L PINBALL  GAME  BUTTONS  AND  LIGHTS 


1332  REF  11 

1333  REF 

1334  REF  3 

133  5 REF 

1336  RFF  3 

1337  REF  2 

1338  REF  123 

133° 

134  0 FEE  1 

1341  REF  124 

1342  DEf  12 

1343  REF 

1344  REF  35 

1345  REF  85 

1346  REF  2 

1347  EF  23 


LAST  420 
LAST  421 
LAST  40': 
LAST  422 
LAST  405 
LAST  421 
LAST  422 


I A-  423 
LAST  423 
LAST  4 33 
LAST  422 
LAST  423 
LAST,  422 
LAST  420 
LAST  420 


42.3354 

42.3355 

42.3356 

42.3357 
42 , 33fc  0 

42 .3361 

42.3362 
4 2, 3 36  3 
42  , 336.4, 

42. 3365 

42.3366 

42.3367 

42,3370 
42,  13  71 

42.3372 

42. 3373 

62.3374 


50  117  0 

6 4317  0 
>4  143  0 
0 4616  1 

61322  0 
0 ’M5  0 
56  155  0 
0 0006  1 

7 3376  1 
52  155  1 
50  117  0 
3 431  7 0 
54  777  1 
0 4616  1 

61266  1 
0 4635  0 
6257  C 1 


1NDFX  DECOUNT 

AD  R1D1 

TS  COUNT 

TC  BANK CAL.  L 

CADP  DSP  IN 

TC  SEPMIN 

XCH  MPAC  +1 
EXTEND 

MP  HIMINCON 

DXCH  MPAC 

INDEX  DECCUNT 

CAF  R 101 

TS  DS  PC  OUNT 

TC  BANKCALL 

CADR  DSP DC 2NR 

TC  POST  JUMP 

CADP  DSPDCEND  +2 


1349 

1350 


42.3375  23147  1 HISFCON  OCT  23147 

42.3376  23346  1 HIMINCON  OCT  23346 


1351  42,3377 

1352  42,3400 

1303  rFF  7 LAST  622  •'  2,346 1 

1354  42,3402 

1355  42,3403 


77753 

0 

M/ SC  ONI 

nc  T 

77753 

41126 

1 

M/I  i . 2 

OCT 

41126 

03343 

0 

N0D  M ADR 

ADRES 

M/SNORM  +1 

0002  5 

0 

M/SC0N3 

OCT 

00025 

37016 

I 

OCT 

37016 

135'.: 
1 3 5 7 

1358 

1359 

1360 

1361 
136  2 
136? 
1364 
1 3< 

1366 

1367 
136  8 
136  9 

1370 

1371 

1372 

1373 

1374 

1375 

1376 

1377 


REF 

P EF 

1 2 c 
] 

LAST 

6?3 

42 , 3404 

A ? .A  4 0 S 

10  1 'S 

1 1 A.  1 A 

1 

1 

sfpsfc 

CCS 

Tf  F 

MPAC 

Dpc  FT 

1 D “ 1 i 

1 

I r 

REF 

2 

LAST 

423 

42, 3406 

1 3414 

1 

TC  F 

POSFC 

42,3407 

1 3410 

0 

TC  F 

+ 1 

n r nn  a 

i 

p v T F M n 

J. 

l a i c:  u 

REF 

1 

42,3411 

4 3302 

1 

DCS 

RNOCON 

REF 

126 

LAST 

423 

42,3612 

2C  155 

1 

SEPSFCl 

DAS 

MPAC 

0 EF 

3 

LAST 

422 

42,341? 

1 3417 

1 

TC  F 

SEPSECNf 

42,3414 

0 0006 

1 

POSEC 

EXTEND 

REF 

2 

LAST 

423 

42,3415 

3 3302 

0 

DC  A 

RNDCON 

REF 

1 

42,3416 

1 3412 

1 

TC  F 

SEP  SEC  1 

REF 

80 

LAST 

420 

42,3417 

56  002 

0 

SFPSEC.UK 

XCH 

Q 

REF 

1 

4?, 3420 

5 i 144 

1 

TS 

SEPSCRET 

REF 

u 

LAST 

621 

62,3421 

0 7 103 

1 

TC 

DMP 

R EF 

1 

42,3422 

03267 

1 

ADRES 

SEC0N1 

42,3423 

0 0006 

1 

EXTEND 

REF 

127 

LAST 

423 

42,3424 

3 Cl  5 6 

0 

DC  A 

MPAC 

P EF 

3 

LAST 

421 

42,3425 

53*010 

0 

DXCH 

HITEMOUT 

REF 

1 

42, 3426 

0 44  04 

0 

TC 

TPSL  1 

RFF 

2 

LAST 

6?  3 

42 , 3427 

0 6404 

0 

TC 

TPSL1 

REF 

70 

LAST 

42  2 

42,3430 

3 4755 

1 

CAF 

ZERO 

REF 

128 

LAST 

423 

42, 3431 

56  156 

0 

XCH 

MPAC 

3:  15  DEC 


2 , 1970 


AP  1 1 A T D .001  PAGE  423 


USER'S  PAGE  MO.  34  EO  $4 


FXD3 

BLANK  MIDDLE  CHAP 

REMOVE  REST  OF  SECONDS 
LEAVE  Ff  ACT  MIN/60  IN  MPAC+1 
USE  ONLY  F R ACT  MIN/60  MOD  60 
MULT  BY  .6  + 2EXP-7 
GIVES  MIN/ ICC  MOD  6G 

PXD1 

DISPLAY  MIN  MOD  60  IN  D1D2. 


.6  + 2 EX  P- 14 
.6  + 2EXP-7 

- HI  PAPT  OF  ( 5 ° M 5 8 . 5 S ) +1 

- LO  PART  OF  (59M58.5S)  +1 

59M  59. 5S 


IF  +,  ROUND  BY  ADDING  .5  SEC 
IF  P 1'JND  BY  SUBTRACTING  .c  SEC 
FINOS  TIME  IN  MPAC,  MPAC+1 
POUNDS  OFF  BY  +/-  .5  SEC 
LEAVES  WHOLE  MIN  IN  BIT13  OF 
L OTEMOUT  AND  ABOVE. 

LEAVES  FF  AC  f SEC/60  IN  MPAC,  MPAC+1. 


THIS  EN!FPY  AVOIDS  POUNDING  BY  .5  SEC 
MULT  BY  2EXP 12/6000 

GIVES  ENACT  SEC/60  IN  BIT12  OF  MPAC+1 
AND  BELOW. 

SAVE  MINUTES  AND  HOURS 


GIVES  FT  AC. T S EC/60  IN  MPAC+1,  MPAC+2. 
LEAVE  FRACT  SEC/60  IN  MPAC,  MPAC+1. 


GAP:  ASSEMBLE  E V I S I 3 N 001  OF  AGC 

L PIN  BAIL  GAME  BUTTON : AN  0 


PL  LG.  A.1  API  HOP  E BY  EYLES 
[ GUTS 


3:  13  DEC.  2,1970 
USER'S  PAGE 


A P 1 1 A 1 0 
NO.  35 


.001  PAGE 
En  S4 


424 


1375 
137° 
13  l 


REF 

129 

LAST 

423 

42, 

3432 

56 

1 r 

0 

XCH 

MPAC 

REF 

130 

LAST 

424 

42, 

343  3 

56 

154 

1 

XCH 

MPAC 

REF 

2 

LAST 

42  3 

42, 

3434 

0 

0144 

0 

TC 

SEP  SCR ET 

1381 

REF 

81 

1382 

REF 

1 

1383 

RFF 

1 

1384 

1385 

REF 

20 

1 386 
1387 

REF 

22 

1388 

REF 

131 

A 1389 
1390 

REF 

, 4 

139  1 

REF 

132 

13°  2 

REF 

5 

1393 

OFF 

1 

2 

1394 

REF 

LAST  423 


LAST  299 

L AST  2°  2 
LAST  424 

LAST  423 
LAST  424 
LAST  423 

LAST  424 


42.3435 

42.3436 

42 . 3437 
42,3440 
•‘2,344  1 
<2,3442 

42.3443 

42 . 3444 

42.3445 

42.3446 
•4  2,3447 
42 , 34EQ 
42,3451 


5 1-  002  0 
54  144  1 
3 1010  1 
0 0006  1 
7 -.74  1 1 
0 CO 06  1 
3 1 1 
22  155  0 

3 1007  1 
54  154  0 
0 7103  1 
03276  i 
0 0144  0 


SEPMIN  XCH  Q 

TS  SEPMNRET 

CA  LOTEMOUT 

EXTEND 
MP  BIT  3 

EXTEND 

MP  BIT  13 

LXCH  MP AC  +1 


FINDS  WHOLE  MINUTES  IN  BIT13 
OF  LOTEMOUT  AND  ABOVE. 

REMOVES  REST  OF  SECONDS. 

LEAVES  FRACT  MIN/60  IN  MPAC+1. 
LEAVES  WHOLE  HOU-S  IN  MPAC. 

S . 12,  THROW  AWAY  LP. 

SR  2,  TAKE  FROM  LP.  = SI  12. 
THIS  FORCES  BITS  12-1  TO  0 IF  + . 
FORCES  BITS  12-1  TO  ] IF  -. 


CA  HITEMGUT 

T<  MPAC 

TC  DMP  MULT  BY  1 / 1 6 

AD  Ec  M INC  1 GIVES  FFACT  MTN/60  MPAC  + 1. 

ENDSPMIN  TC  SEPMNRET  GIVES  WHOLE  HOURS  IN  MPAC. 


P 1396 
R 13^6 
R 135  7 
R 1398 
F 139  9 
R 14CC 


THIS  IS  A SPEC  I A 1 PURPOSE  VERB  FOR  DISPLAYING  A DOUBLE  PRECISION  AGC 
WOOD  AS  10  DECIMAL  DIG! " S ON  THE  AGC  DISPIAY  PANEL.  IT  CAN  BE  USED  WITH 
ANY  "•'•UN,  EXCEPT  -IXED  MUI'S.  IT  DISPLAYS  THE  CONTENTS 

OF  THE  REGISTER  NOUNADD  IS  POINTING  TO  . IF  USED  WITH  NOUNS  WHICH  ARE 
INHERENTLY  NOT  DP  SUCH  AS  THE  CDU  COUNTERS  THE  DI  SP  LAY  WILL  BE  GARBAGE. 
DISPLAY  IS  IN  R1  AND  R2  ONLY  WITH  THE  SIGN  IN  Rl. 


140  3 

PFF 

] 

40 , 9 77  1 

>•  i v i i i r 

f M n j;  m r 4.  i 

1 • 

PEF 

3 

LAST 

418  TO 

421: 

10«  4 42  * 

COUNT* 

$ $/ P IN 

1402 

REF 

8 

LAST 

42  0, 

40,277 1 

50  140 

1 

DS POP DEC 

I NOEX 

MIX  BR 

JL 

1403 

40,2772 

0 2772 

1 

TC 

+ 0 

1404 

40,2773 

0 2775 

0 

TC 

+2  NORMAL  NOUN 

1405 

REF 

3 

t AST 

412 

40,2774 

0 3420 

1 

TC 

DS»  A!  ATM 

1406 

40,2775 

0 0006 

1 

EXTEND 

1407 

REF 

1 1 

LAST 

421 

40,2776 

5 0145 

1 

INDEX 

NOUNADD 

1408 

40,2777 

3 0001 

0 

DCA 

0 

1405 

REF 

133 

LAST 

424 

4C , 3000 

52  L 5 5 

1 

DXCH 

MPAC 

1410 

REF 

10 

LAST 

42  3 

4 C , 3 0 0 1 

3 4317 

0 

CAF 

P 101 

1411 

PEF 

36 

LAST 

423 

40,3002 

54  777 

1 

TS 

DSPCOUMT 

1412 

REF 

71 

LAST 

423 

40,3003 

3 Y 7 5 5 

1 

CAF 

ZERO 

1413 

REF 

134 

LAST 

426 

40,3004 

64  156 

1 

TS 

MPAC  +2 

1414 

REF 

5 

LAST 

422 

40,3005 

0. 7257 

0 

TC 

TP AGREE 

1415 

REF 

1 

40, 3006 

0 32  7 3 

1 

TC 

DSP2DEC 

1416 

REF 

6 

l AST 

42  1 

4 C , 3 0 0 7 

0 (.136 

0 

E NOD PDF  C 

TC 

ENT EX  IT 

• Op  1 PAGE  425 
EO  S4 

P 1417  LOAD  VERBS  IF  ALARM  CONDITION  IS  DETECTED  DUPING  EXECUTE, 

R 14 1 B CHECK  FAIL  LIGHT  T S TURNED  ON  AND  ENDOFJOB.  IF  ALAR'’  CONDITION  IS 
R 1 4 1 4 DETECTED  DU-  IMG  ENTER  GF  DATA,  CHECK  FAIL  IS  TURNED  ON  AND  IT  RECYCLES 

R 1*  20  T(  EXECUTE  OF  ORIGINAL  LOAD  VF  B.  , EC  YCL  E CAUSED  BY  1)  DECIMAL  MACHINE 

R 142 1 CADf  2)  M J X T U E nC  TAL /DEC  J MAL  DATA  3)  GCTAI  DATA  INTO  DECIMAL 

R 142?  ONLY  NOUN  ! OF f DATA  I NT ( OCT  ONI  Y NOUN  c)  DATA  TOO  L ARGF  FOP-  SCALE 

R 1423  6)  FEWF'  THAN  3 DATA  WORDS  LOADED  FOP  HPS,  MIN,  SEC  NOUN .8 ( 2 J - ( 6 ) ALARM 

R 1424  AND  RECYCLE  OCCUR  AT  FINAL  ENTER  OF  SET.  (1)  ALARM  AND  FECYCLE  OCCUR  AT 

R 1425  ENTER  OFCADR. 


GAP:  ASSF  IBLL  .EVISIGN  001  F A.iC  rROG:-A H AP11HOPE  BY  E Y L E S 3:15  DEC.  2,lc70  AP11AID 

L PINBALL  GA’iC  BUTTONS  AND  LIGHTS  USER'S  PAGE  NO.  36 


1426 

° EF 

1 

41,2616 

SET).  PC 

END ' TOUT 

14265 

REF 

2 

LAST 

406  TO 

418  : 

398 

3 98- 

COUNT  * 

$$/P  IN 

1427 

REF 

24 

LAST 

422 

41,2616 

, 4 

4752 

1 ABCL04D 

CS 

TWO 

14  20 

REF 

3 

L AST 

414- 

41,2617 

0 

2424 

1 

TC 

COMPTEST 

1429 

REF 

1 

41 , 2 62  C 

0 

2460 

1 

TC 

NOUNTEST 

T EST  IP  NOUN  CAN  BE  LOADED. 

1*30 

DCC 

I 

7 D D 4 

1 

r a c 

v / Q c r>  i f TV 

K Li 

1 

D 

1 

1/  A i 

VoM  i L V 

1431 

REF 

2 

LAST 

404 

41 , 2622 

0 

2337 

1 

TC. 

UPDATVB  -1 

1432 

REF 

1 

41,2623 

0 

2303 

0 

TC 

REQDATX 

143  3 

REF 

1 

41,2624 

3 

3 Qu7 

G 

CAF 

VBSP2L0 

14  3' 

REF 

3 

LAST 

4-25 

41,2625 

0 

2337 

l 

TC 

UPDA1VR  -1 

14  35 

REF 

1 

41 ,2626 

0 

2305 

0 

TC 

f EQDATY 

14  36 

P EF 

1 

4 1 , 26  27 

3 

3010 

0 

CAF 

VBSP3LD 

1437 

REF 

4 

LAST 

425 

41,2630 

0 

2337 

1 

TC 

UPDATVB  -1 

1438 

REF 

2 

LAST 

407 

41,2631 

0 

2307 

1 

TC 

REQDATZ 

14  39 

REF 

12 

LAST 

419 

41, 2632 

4 6242 

1 PUTXYZ 

CS 

SIX 

TEST  THAT  THE 

3 DATA  WORDS 

LOADED  ARE 

1440 

P FF 

i 

41 ,2633 

0 3011 

■j 

TC 

a i i n r / r<  r 

aii  n p r n p a i i 

nr  t 

i 

ML  LUU/  1 I 

ALL  UCl  Ur  ALI 

Ut  1 • 

1441 

41 , 26  34 

0 0006 

i 

EXTEND 

1442 

REF 

4 

LAST 

41  1 

41,2635 

3 2114 

i 

DC  A 

LODNNLOC 

SWITCH  BANKS  TO  NOUN  TABLE 

READING 

1443 

FF 

7 

LAST 

417 

41, 26  36 

52  006 

0 

DXCH 

Z 

ROUTINE. 

1444 

REF 

72 

1 AST 

424 

4 1 , 26  37 

3 4755 

1 

CAF 

ZERO 

X COMP 

1445 

REF 

1 

1,2640 

0 3075 

0 

TC 

PUTCOM 

14.46 

P EF 

12 

LAST 

*74 

4 1,264  1 

50  14  5 

1 

I NDEX 

!Y PUN ADD 

1447 

41,2642 

54  000 

0 

TS 

0 

1448 

RFF 

38 

LAST 

41P 

41,2643 

3 4 7 53 

1 

CAF 

ONE 

Y COMP 

1449 

REF 

2 

LAST 

425 

41,2644 

0 3075 

0 

TC 

PUTCOM 

1450 

RFF 

1 3 

LAST 

4 R 5 

4 1 , 2645 

50  145 

1 

INDEX 

NOUN ADD 

1451 

41,2646 

54  001 

1 

TS 

1 

1452 

REF 

25 

L A^T 

425 

41, 2647 

3 47^2 

0 

CAF 

TWO 

Z COMp 

1453 

REF 

3 

LAST 

42  5 

41,2650 

0 3C75 

0 

TC 

PUTCOM 

1454 

REF 

14 

LAST 

425 

41,2651 

50  145 

1 

INDEX 

NOUNAOD 

1455 

41,2652 

54  C 02 

1 

TS 

2 

145501 

REF 

2 

LAST 

155 

4 1 , 2653 

4 4757 

1 

CS 

SEVEN 

IF  NOUN  HAS 

JUST  BEEN  LOADED,  SET 

145502 

REF 

10 

LAST 

41  1 

61  ,2654 

6 1002 

] 

AD 

NCUNR EG 

FLAG  BITS  AS 

SPECIFI ED. 

145503 

4 1 , 265  5 

0 COO 6 

1 

EXTEND 

145504 

41 ,2656 

1 2660 

1 

BZF 

+ 2 

145! 

REF 

2 

LAST 

406 

41,2657 

0 2775 

0 

TC 

LOADLV 

GAP : 


ASSEMBLE  E V ' 01  GF  A 3C  PROGRAM  APilRG[>E  BY  FYLCS 


L PT:  BAL  l GAME  BUTTONS  AGO  ! IGHTS 


145506 

REF 

4 

LAST 

416 

41 ,2660 

3 

1003 

0 

CA 

XREG 

145507 

REF 

5 

LAST 

4 1 1 

41,2661 

0 

4304 

1 

TC 

SETNCADP 

145503 

RFF 

2 

LAST 

407 

4 1 , 266  2 

3 

100  5 

0 

CA 

ZREG 

145509 

41 , 2663 

0 

f.  004 

0 

INHINT 

14551 

41,2664 

0 

C 006 

1 

EXTEND 

145 511 

REF 

1 

41,2665 

1 

26  74 

1 

B7F 

B ITSOFF 

145512 

REF 

15 

1 AST 

42  5 

4 1 , 2666 

50 

145 

1 

INDEX 

NOUNADD 

145513 

41 , 2667 

4 

COOO 

0 

CS 

0 

145514 

REF 

1 

41,2670 

7 

1004 

0 

MASK 

YREG 

1'  55 15 

REF 

16 

L AST 

42  6 

41,2671 

50 

145 

1 

INDEX 

NOUN A DO 

145516 

4 1 ,267  2 

26 

000 

0 

ADS 

0 

145517 

REF 

1 

41  ,2673 

n 

2701 

0 

TC 

B ITSOFF 1 

145518 

REF 

2 

L AST 

426 

41,2674 

4 

1 004 

0 

BI TSOFF 

CS 

YREG 

145519 

REF 

17 

LAST 

426 

41,2675 

50 

145 

1 

INDEX 

NOUNADD 

15552 

41 , 2676 

7 

COCO 

0 

MASK 

0 

145521 

REF 

16' 

L AST 

426 

41 , 2677 

50 

145 

1 

INDEX 

NOUN ADD 

145522 

4 1 ,2700 

54 

COO 

0 

TS 

0 

145523 

•'1,2701 

r) 

r o o b 

1 

T V <m  F F 1 

REt TNT 

L2*  j oi  l r 1 

1456 

REF 

3 

1.  AST 

425 

41,2702 

0 

2775 

0 

TC 

LOADLV 

1457 

ref 

39 

LAST 

42  5 

41 ,2703 

4 

4753 

0 

ABLUAD 

CS 

ONE 

1458 

REF 

4 

LAST 

425 

41,2704 

0 

2424 

1 

TC 

CGMPTESr 

14  5 9 

REF 

2 

LAST 

425 

4 1 , 270 5 

0 

246  0 

1 

re 

NOUNTES r 

14  An 

REF 

2 

LAST 

42c 

41,2706 

3 

3006 

1 

C AF 

VBS  P 1 ! D 

1461 

REF 

5 

LAST 

425 

41 ,27C7 

0 

2337 

1 

TC 

UPDATVR 

1462 

RFF 

2 

LAST 

425 

41,2710 

0 

2303 

0 

TC 

REQDATX 

1463 

REF 

2 

LAST 

42  5 

41,2711 

3 

3007 

0 

CAF 

VBSP2LD 

14  64 

REF 

6 

LAST 

4 2 6 

1,2712 

0 

2337 

1 

TC 

UPDATVB 

14  65 

REF 

2 

LAST 

42  5 

“1,2713 

0 

2305 

0 

TC 

c EQDATY 

146  6 

r EF 

9 

i AST 

408 

41,2714 

4 

a 7 56 

o 

PUTXY 

CS 

FIVE 

1467 

REF 

2 

LAST 

42  5 

41,2715 

0 

3011 

1 

TC 

ALLDC/OC 

1468 

4 1,2716 

0 

0006 

1 

EXTEND 

1469 

REF 

5 

l AST 

42  5 

41,2717 

3 

2114 

1 

DC  A 

LODNNLGC 

U 70 

RFF 

8 

LAST 

625 

41  ,2720 

52 

006 

0 

DXCH 

Z 

1671 

REF 

73 

LAST 

42  17 

41,2721 

3 

4755 

1 

CAF 

ZERO 

1472 

RFF 

a 

LAST 

425 

41,2722 

0 

3075 

0 

TC 

PtJTCOM 

1473 

REF 

19 

LAST 

42  6 

41,2723 

50 

145 

1 

INDEX 

NOUNADD 

1474 

41,2724 

54 

COO 

0 

TS 

0 

1475 

REF 

40 

LAST 

426 

41,2725 

3 

47  53 

1 

CAF 

ONE 

1476 

REF 

K 

LAST 

426 

41,2726 

0 

3C75 

0 

TC 

PUT CCM 

1477 

REF 

20 

LAST 

426 

41,2727 

50 

145 

1 

index 

NOUN A0# 

1478 

41,2730 

54 

I 

1 

TS 

1 

1479 

REF 

4 

LAST 

426 

41,2731 

0 

2775 

0 

TC 

LOADLV 

1431 

REF 

2 

LAST 

426 

41  ,2732 

0 

2303 

0 

ALOAD 

TC 

REQDATX 

148  2 

41 , 2733 

0 

CO  06 

1 

EXTEND 

1483 

R EF 

6 

LAST 

426 

41,2734 

3 

2114 

1 

DC  A 

LODNNL OC 

1484 

RFF 

9 

LAST 

4 26 

41 , 2735 

52 

006 

0 

DXCH 

Z 

1485 

REF 

74 

LAST 

426 

41 , 2736 

3 

4755 

1 

CAF 

ZERO 

1486 

REF 

6 

LAST 

426 

4 1, 2737 

0 

3075 

0 

TC 

PUTCOM 

3:15  DEC..  2,1070  AP11AID 
USER'S  PAGE  NO.  37 


.001  PAGE 
EO  S4 


426 


+ 1 


ECADR  OF  FLAG  WORD. 

SET  EBAMK,  NOUNADD. 

ZERO  TO  RESET  BITS,  NGN-ZERO  TO  SET  BITS 


BITS  TO  BE  PROCESSED. 
SET  BITS. 

BITS  TO  BF  PROCESSED. 

•TESET  BITS. 


TEST  IF  MOUi  CAN  BF  IOADED. 


1 


I 


TEST  THAT  THE  2 DATA  WORDS  LOADED  APF 
ALL  DEC  OR  Al L OCT. 

SWITCH  BANKS  TO  NOUN  TABLE  READING 
H OUT  I ME . 

X COMP 


Y COMP 


SWITCH  BANKS  TT  NOUN  TABLE  READING 
'-’OUT!  NE. 

X COMP 


GAP:  ASSEM8LE  REVISION  001  UF  AGC  PROG  AM  AP11RDPE  B Y EYLES 


L PINBALL  GAME  BUTTONS  AND  LIGHTS 


1487 

REF 

21 

LAST 

426 

4 1 , 2740 

50  145 

1 

INDEX 

1488 

41,2741 

5^  000 

0 

TS 

1489 

PEF  : 

5. 

LAST 

426 

-1,2742 

0 27  75 

0 

TC 

1490 

REF 

41 

LAST 

426 

41,274  3 

4 47  53 

0 

Bl  DAD 

r.s 

1/Cl 

t; 

1 ACT 

4 ? 6 

1 . 7 7 h fj 

0 2424 

x 

TC 

I . v 1 

r\  tr  r 

L A j 1 

1493 

REF 

22 

LAST 

419 

41,2745 

3 4735 

1 

CAF 

1494 

REF 

10 

LAST 

407 

41,2746 

5 5 ' 0 1 5 

0 

TS 

149  5 

REF 

3 

LAST 

426 

41,2747 

0 2305 

0 

TC 

149  6 

41,2750 

0 CO 06 

1 

EXTEND 

1497 

P EF 

7 

LAST 

426 

41,2751 

3 7 11 4 

1 

DC  A 

i (s  c: 

1 ACT 

A 1 -7  IC, 

A 

DXCH 

1 H V r 

r.  c r 

I J 

t_  A O 1 

c.  C 

I f 2S  \ . L- 

7 t.  v.?  w C 

VJ 

149° 

REF 

42 

LAST 

427 

41,2753 

3 4753 

1 

CAF 

1500 

REF 

7 

LAST 

426 

41,2754 

0 3075 

0 

TC 

1501 

RET 

22 

LAST 

42  7 

41 ,2755 

50  145 

1 

INDEX 

1502 

41,2756 

54  001 

1 

TS 

1503 

REF 

6 : 

LAS- 

427 

41,2757 

0 2775 

0 

TC 

150^ 

REF 

26 

LAST 

425 

4 1 , 2760 

4 47  52 

1 

CLOAD 

cs 

1505 

REF 

6 

LAST 

427 

41,2761 

0 2424 

1 

TC 

1507 

REF 

23 

LAST 

427 

41,2762 

3 473  5 

1 

CAF 

1508 

P EF 

1 1 

LAST 

427 

41,2763 

5 * ' 0 1 5 

0 

TS 

1CL'  ■ 

REF 

3 

LAST 

4 25 

41 ,2764 

0 2307 

1 

TC 

1510 

41 ,2765 

0 0006 

1 

EXTEND 

1511 

u_ 

UJ 

or. 

8 

LAST 

427 

41 , 2766 

3 2114 

1 

DC  A 

1512 

REF 

11 

LAST 

427 

41 ,2767 

52  006 

0 

DXCH 

1513 

REF 

27 

LAST 

427 

41,2770 

3 4752 

0 

CAF 

1514 

f EF 

p 

LAST 

42  7 

41  , 2771 

0 3075 

0 

TC 

1 5 1 r 

REF 

23 

LAST 

427 

4 1,2772 

50  145 

1 

INDEX 

1 SI  ( 

41 .9772 

«£✓.  an  A O 

T Q 

1 7 1 " 

7 1 1 A ' f 7 

7 . V.  U c. 

1 

1 j 

1517 

REF 

7 

LAST 

427 

41,2774 

0 2775 

0 

TC 

1511 

REF 

75 

LAST 

426 

41 , 2775 

3 4755 

1 

L E ADL  V 

CAF 

1519 

REF 

13 

L AST 

4C7 

41,2776 

55 ’ 000 

1 

TS 

1520 

REF 

76 

LAST 

427 

41 ,2777 

4 4755 

0 

CS 

1521 

C f f 

1 

41,3000 

55*01 4 

1 

TS 

15215 

REF 

5 

LAST 

408 

41  ,3001 

0 4457 

0 

TC 

152? 

REF 

6 

LAST 

41  1 

41 ,3002 

4 4360 

1 

CS 

1523 

REF 

37 

LAST 

424 

41 , 3003 

54  777 

1 

TS 

1524 

REF 

24 

LAST 

42  3 

- 1 , 3004 

0 463  5 

0 

TC 

152  5 

REF 

1 

1 , 3005 

6 1 547 

0 

C A DP- 

1526 

41,3006 

00025 

0 

VBSP1LD 

DEC 

1527 

41 ,3007 

00026 

0 

VBSP2LD 

DEC 

1528 

41,3010 

00027 

1 

VBSP3LD 

DEC 

1929 

REF 

13 

1 AST 

423 

4 1 , 3013: 

5 4 

117 

1 

ALLDC/OC  TS 

1530 

REF 

14 

last 

427 

41,3012 

4 

1000 

1 

CS 

1531 

REF 

3 

LAST 

405 

4 1 , 30  1 3 

54 

021 

0 

TS 

3:15  DEL 


2,1970  AP11AID  .001  PAGE  427 


NCUNADD 

0 

LOAQLV 

USER’S  PAGE  NO.  38  EO  $4 

ONE 

COMPTES  r 

B IT  1 5 

CLPASS 

P EQDATY 

SET  CLPASS  FOR  PASSO  ONLY 

L ODNNL  DC 

Z 

ONE 

PUTCOM 

NOUN ADD 

1 

LOADLV 

SWITCH  BANKS  TO  NOUN  TABLE  READING 

routine. 

TWO 

COMPTEST 

BIT  I 5 

CLPASS 

REQDATZ 

SET  CLPASS  FOR  PASSO  ONLY 

LODNNLOC 

Z 

TWO 

PUTCOM 

NOUN ADD 

2 

LOADLV 

SWITCH  BANKS  TO  NOUN  TABLE  READING 
ROUTINE. 

ZERO 

DECBRNCH 

ZERO 

L OAQSTAT 
RELDSP 

VD1 

DSPCGUNT 

POSTJUMP 

R ECALTST 

RELEASE  FOR  PRIORITY  DISPLAY  PROBLEM. 

TO  BLOCK  NUMERICAL  CHARACTERS  AND 

CLEARS  AFTER  A COMPLETED  LOAD 

AFTER  COMPLETED  LOAD,  GO  TC  PECALTST 
'0  SEE  IF  THEPE  IS  RECALL  FRC  M ENDIDLE. 

21 

22 

23 

VB2 1 = ALOAD 

V B22  = BLOAD 

VB23  = CLOAD 

DFCOUNT 

DECBRNCH 

SR 

TESTS  THAT  DATA  WORDS  LOADED  ARE  EITHER 
ALL  DEC  OF  ALL  OCT.  ALARMS  IF  NOT. 

p 


GAP:  ASSE  - Bit  * E V I S 1 3 f 0-01  GF  AGC  P - QGR  AM  AP11ROPE  BY  E YL  t S 3:15  DEC.  2,1970  AP11AID  .C01  PAGE  428 

L P I N BAL  t GAME  BUTTONS  AND  LIGHTS  USEP'S  PAGE  NO.  3=  EO  S4 


1532 

REF 

4 

LAST 

427 

41,3014 

4 

0021 

0 

CS 

SP 

1533 

REF 

5 

LAST 

4 28 

41,3015 

4 

0021 

0 

CS 

SR 

SHIFTED  RIGHT  2 

1 C "3  I* 

DPP 

1 9 c 

1 A -4  T 

A p 9 

lil  .301  4 

ID 

non 

n 

r r 8 

a&aummmm 

DFf  rny,p  rttc-  tm  i pui  ^ 

L Dj  • 

K c r 

- /A  1 

-r  P *L 

~f  1 , J U i o 

u.v  ^ 

^ C 'j 

ulo  OvJf.r  r>  1 _ I . L I.  W O 

1535 

4 1,30  17 

1 

3 021 

0 

TCF 

+ 2 

SOME  ON ES  IN  1 OW  3 

1536 

REF 

82 

LAST 

4 ? 4 

61 , 302  0 

0 

0002 

0 

TC 

Q 

ALL  ZEROS.  ALL  OCTAL.  OK 

1537 

REF 

14 

LAST 

4 27 

41 , 3021 

6 

0117 

0 

AO 

DEC  O' J NT 

DEC  COMP  = 7 FOR  3COM ° , =6  FOR  2C0MP 

153  8 

41 , 3022 

0 

0006 

1 

EXTEND 

(BUT  IT  HAS  BEEN  DECREMENTED  BY  CCS) 

1539 

41 ,302  3 

1 

3025 

1 

BZF 

+ 2 

MUST  MATCH  fc  FOR  3C0MR,  5 FOP  2C0MP . 

1:  ‘ 

REF 

. 4 

LAST 

415. 

41,3024 

0 

4145 

0 

TC 

ALMCYCLE 

ALARM  AND  RECYCLE. 

1541 

REF 

83 

LAST 

428 

4 1,3025 

0 

f 002 

C GOO 

TC 

0 

ALL  REQUIRED  ARE  DEC.  OK 

1542 

REF 

84 

LAST 

428 

41 ,3026 

56  002 

0 

SFRUTNI  1 

XCH 

Q 

GETS  SF  ROUTINE  NUMBER 

FOR  NORMAL  1 

CASE 

154  3 

REF 

1 

41, 3027 

- i i 

1 

TS 

EXITEM 

CANT  USE  L FOR  RETURN. 

TSTFOFDP  USES  L. 

1544 

REF 

l 

41 ,3030 

3 4347 

0 

CAF 

MID5 

156  5 

~EF 

3 

LAST 

416 

41,303  1 

7 Cl  47 

1 

MASK 

N NT Y PTEN 

1546 

1 EF 

1 

51, 3032 

0 4 3 2 2 

0 

TC 

■ IGHT5 

156  7 

RFF 

7 

1 APT 

42  3 

41 , 3 0 3 3 

0 0 1 1 L 

O 

TC 

EX  I T fM 

<;  F t OUT  tmf  MIlMBFr  TM  A 

Un  J 1 

OT  ' \J  l 1 . : l.'-J  'QC  I N 

1548 

REF 

85 

LAST 

428 

41 , 3034 

56  CO  2 

0 

SFRUTMI X 

XCH 

Q 

GETS  SF  ROUTINE  NUMBER 

FOR  MIXED  CASE 

1549 

REE 

3 

LAST 

428 

1 1,3035 

54  114 

1 

TS 

EXITEM 

1550 

R E F 

1 5 

LAST 

428 

41 ,3036 

50  117 

0 

INDEX 

DE COUNT 

1551 

REF 

1 

41,3037 

3 3066 

1 

CAF 

DISPLACE 

PUT  TC  GOG,  TC  R IGHT5 , 

OR  TC  LEFTS 

IN  L 

1552 

REF 

54 

last 

416 

41,3040 

54  i 01 

1 

T S 

L 

1 

REF 

16 

LAST 

428 

41 , 304 1 

50  117 

0 

I NDEX 

DECOUNT 

1 

REF 

2 

LAST 

399 

41,3042 

3 4346 

1 

CAF 

L0W5 

L 0 W 5 , MID5,  OR  HI6  IN 

A 

1 

REF 

2 

LAST. 

304 

41,3043 

7 Cl  53 

1 

MASK 

RUT  MXTF.M 

GET  H I 5 , M I D 5 , OR  LOWS 

OF  FUTMXTAB 

entry 

155- 

R EF 

5 r 

LAST 

42  8 

41,3 

50  001 

0 

INDEX 

L 

1557 

4 1 , 3045 

0 0000 

1 

TC 

0 

F 1 

DO 

r HDEC1UNT=0) 

, Dn  TC  r TOUT 5 ( OEC  3UNT= 1 ) , DC 

i TC  LEFTS! D ECO  UN  Y = ? ) . 

1 

REF 

4 

LAST 

428 

41 , 3046 

0 0114 

0 

SFPET1 

TC 

EXITEM 

SF  ROUTINE  NUMBER  IN  A 

156C 

REF 

36 

LAST 

428 

41 , 3047 

56  002 

0 

SFCONUM 

XCH 

Q 

GETS  2X(  SF  CONSTANT  NUMBEr ) 

1561 

REF 

r 

LAST 

42  8 

6 1 , 3050 

54  114 

1 

TS 

EX  IT  EM 

1562 

REF 

9 

LAST 

424 

4.1 , 3051 

50  14  0 

1 

INDEX 

MI  XRk 

1'  i 

6 1 ,3082 

0 3 05  2 

0 

TC 

+0 

1 

REF 

1 

41,3053 

0 3071 

1 

TC 

CCNUMNOR 

NORMAL  NOUN 

1565 

REF 

17 

LAST 

423 

41  ,3054 

50  117 

0 

I NDEX 

DECOUNT 

MIXED  NOUN 

1566 

REF 

2 

LAST 

42  8 

41 ,3055 

3 3066 

1 

CAF 

DISPLACE 

1567 

REF 

56 

LAST 

42  8 

41 , 3056 

54  001 

1 

TS 

L 

PUT  TC  GOO,  TC  RIGHTS, 

OR  TC  LEFTS 

IN  L 

1568 

REF 

18 

LAST 

428 

41 ,3057 

50  117 

0 

INDEX 

DECOUNT 

l 

R EF 

3 

LAST 

428 

41, 30*60 

3 4346 

1 

CAF 

LOW  5 

1 I 

REF 

4 

LAST 

428 

41 , 306  1 

7 0147 

1 

MASK 

NNTYP  TEN 

1571 

RFF 

57 

LAST 

428 

41  ,3062 

50  001 

0 

INDEX 

L 

157? 

41 ,306  3 

0 0000 

1 

TC 

R 1 5 7 3 

DO 

TC  G 10  ( DEC  1UNT  =0  ) 

, on  re  ' 

I GHT5 ( DEC  OUNT  = 1 ) , DO  TC  LEFT5(0EC0UNT  = 2 ) . 

1 5 74 

41 ,3064 

6 0000 

1 

SFRE7 

DOUBLE 

2X ( SF  CONSTANT  NUMBER 

) I N A 

1575 

P EF 

6 

LAST 

428 

41 , 3065 

0 4 114 

0 

TC 

EXITEM 

15  76 

REF 

1 

41 , 3066 

0 3025 

0 

DISPLACE 

TC 

GOQ 

" 


I 


GAP:  ASStMBLi"  KE  VISJON  001  Of  AGC  PROGRAM  AP11R0PE  BY  EYLES 

L P TMBAL!  G A'-  E BUTTONS  AMD  LIGHTS 


3:15  DEC.  2,1970  APUAID  .001  PAGE  429 
USE1'  1 S PAGE  NO.  40  EO  S4 


1577  ref  2 LAST  428  41,3067  0 4322  0 TC.  RIGHTS 

1578  REF  3 LAST  416  41,3070  0 4331  1 TC  l EFT5 


15  7° 

PEF 

| 4 ■ 

LAST 

42  8 

4 1 , 307  l 

3 

4396 

1 

CO  MU  •••OK  r CAR  LOWS 

1580 

REF 

C -■ 

LAST 

428 

41 ,3072 

7 

0147 

L 

MASK  NNTYPTEM 

i c:  q i 

41 .3073 

41 . 3074 

6 

0 

0000 
01 14 

1 

0 

DOUBLE 

TC  EXITEM 

1 0 O I 

1582 

REF 

7 

LAST 

428 

N1'  MAL  NOUN  ALWAYS  GETS  LOW  5 OF 
NNTYPTAB  FOP  SF  CONUM. 

2 X ( SF  CONSTANT  NUMBER)  IN  A 


1583 

1584 

1585 

1586 
1537 
1588 
1584 

1590 

1591 

1592 

1593 
159' 
1595 

15  96 

i 

1598 

1599 

1600 
160  1 
1602 
16<  ?. 
U 

1605 

1606 
1607 
160f 
1609 

16  1C 


REF  IF  i AST 
3 E F 8 7 LA  S T 
REF  l 
REF  77  LAST 
REF  3 LAST 
• LF  20  LAST 
PEF  3 LAST 
KEF  135  LAST 
REF  21  LAST 
PEF  5 LAST 
REF  136  LAST 
REF  10  LAST 

PEE  1 

IF  •' ' XNOU  N , »L 
REF  22  LAST 
REF  4 LAST 
REF  5 LAST 
fFF  a LAST 

PEF  23  I AST 
REF  2 4 LAST 
REF  15  LAST 
REE  1 
REF  1 
PEF  3 LAST 
REF  3 LAST 
REF  1 


428  41,3075 

428  41,3076 
4*1 , 3077 

427  4i,3ino 

420  41,3101 

429  41,3102 

405  4 1,3  10  3 

424  41,3104 

429  41,3105 

426  41,3106 

429  41,3107 

428  41,3110 
4 1,311 1. 
41,  >112 

ACE  ADDRESS  FOt 

429  41,3113 

420  41,3114 

420  41,31 15 

426  41,3116 
41,3117 

429  41,3120 

427  41,3121 

427  41,3122 

41,3123 

41 . 3126 
4 17  61,2125 

416  41 ,3126 

41.3127 


54  117  1 P tJ  T COM 
5o  GC2  0 
54  1 1 r-  0 
3 4755  1 
54  162  0 
50  117  0 
57 « 006  0 
54  155  1 
50  117  0 
57 1 0 03  0 
54  154  0 
50  140  1 
0 3111  0 
0 3137  1 

COMPONENT  K I NT H 
50  117  0 
3 0150  0 
7 4356  1 
0 4303  0 
C COO  6 1 
60  117  0 
54  145  0 
1 1 ‘COO  1 
0 3174  0 
0 2452  0 
0 3034  0 
0 2261  0 
0 3155  0 


TS  DECOUNT 

XCH  Q 

TS  DEC  PET 

CAF  ZERO 
TS  mpaC+6 

INDEX  DECOUNT 
XCH  XREGLP 
TS  MPAC  + 1 

INDEX  DECPUN7 
XCH  XREG 
TS  MPAC 

INDEX  MlXBR 
TC  +0 

TC  PUTNORM 

NOUN  ADD,  SET  EBANK  BITS. 
INDEX  DECOUNT 
CA  IDAD1TEM 

MASK  LOW 11 
TC  SETNCADF 


EXTEND 

SU  DECOUNT 

TS  NOUNADD 

CCS  DECBRNCH 

TC  PUTDECSF 

TC  DCTSTCYC 

TC  SFRUT  MT  X 

TC  DPTEST 

TC  PUTC0M2 


A 16  1 1 
A 1612 
A 161  3 


1614 

REF 

25 

LAST 

629 

41,3130 

24  145 

1 

RUTDPCOf' 

I NCR 

INADD 

1615 

REF 

26 

LAST 

6 2° 

41,0131 

3 0145 

1 

CA 

NOUNADD 

1616 

REF 

24 

LAST 

429 

41,3132 

26  117 

1 

ADS 

DECOUNT 

1617 

REF 

78 

LAST 

429 

41,3133 

3 4755 

1 

CAF 

ZERO 

1618 

REF 

2 5 

LAST 

429 

41,3134 

50  117 

0 

INDEX 

DECOUNT 

U 

4i,  n 3 ; 

5 3 ’ 777 

0 

TS 

0 

1620 

REF 

2 

LAST 

4 29 

*'  1 , 3 1 3 > 

0 3155 

0 

TC 

PUT COM 2 

1621 

REF 

2 

LAST 

407 

41,3137 

0 431  1 

0 

PUTNORM 

TC 

SETNADD 

1622 

REF 

16 

LAST 

429 

41,3140 

1 1 '000 

1 

CCS 

DECBRNCH 

-1 


NORMAL  NOUN 

GET  IDADDTAB  ENTRY  FOR  COMPONENT  K 
OF  NOUN. 

(ECADF)SUBK  F k<  CURRENT  COMP  OF  NOUN 
ECADR  INTO  NOUNC.AOR.  SETS  EB,  NOUNADD. 
C ( NOUN A DO ) IN  A UPON  RETURN 
PLACE  (ESUBK)-K  T NTO  NOUN  ADD 


+ DEC 
+0  OCTAL 

TEST  IF  DEC  ONLY  BIT  = I.  T F SC, 

ALARM  AND  RECYCLE.  IF  NOT,  CONTINUE. 

NO  DP 

TEST  FOR  DP  SCALE  FOP.  OCT  LOAD.  IF  SO, 
+0  INTU  MAJOR  PART.  SET  NOUNADD  FOR 
LOADING  OCTAL  WORD  INTO  MINOR  PARI. 

DP  ( ESUBK ) -K  + 1 OR  E + l 
NOUNADD  NOW  SET  FOR  M I NOr  PART 
( ESUBK )+l  OF  E+l  INTO  DECOUNT 
NOUNADD  SET  FDR  MINOR  PART 

ZERO  MAJOR  PART ( E SU BK  OP  E) 


ECADR  FROM  NCIJNC ADR . SETS  EB,  NOUNADD. 


" 
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L 

P I N 

R A L.  L 

CAME 

BUTTONS  AMD  LIGHTS 

1623 

REF 

2 

LAST 

429 

41,3141 

0 3174 

0 

TC 

PUT  DECS  F 

1624 

REF 

2 

LAST 

429 

41 , 3142 

0 2452 

0 

TC 

DCTSTCYC 

162? 

REF 

3 

LAST 

417 

41,3143 

0 3026 

0 

TC 

SFRUTNOT 

1626 

REF 

4 

LAST 

429 

41,31 44 

0 2261 

0 

TC 

JPTEST 

1627 

REF 

3 

LAST 

429 

41,3145 

0 3151 

1 

TC 

PUT COM 2 - 

16?  ?. 

REF 

79 

LAST 

42  9 

41,3146 

3 4756 

1 

CAP 

ZERO 

1629 

REF 

26 

LAST 

429 

4 1, 314,7 

54  117 

1 

TS 

DECOUNT 

1630 

REF 

1 

41 ,3150 

0 3130 

0 

TC 

PUTDPCOM 

1631 

REF 

8 

LAST 

416 

41,3151 

3 C 146 

1 

CA 

NNADTEM 

163  2 

REF 

4 3 

LAST 

427 

41 , 3152 

6 4 7 53 

1 

AD 

ONE 

1633 

41  , ^ 

0 0006 

EXTEND 

16  3^ 

REF 

1 

41 ,3154 

1 3161 

0 

BZF 

CHANLOAD 

163  5 

REF 

137 

LAST 

429 

41,3155 

56  154 

1 

PUT  COM2 

XCH 

M P AC 

1636 

RE! 

2 

LAST 

429 

41,3156 

0 0115 

1 

TC 

DEC RET 

163  7 

REF 

38 

LAST 

427 

C777 

EBANK= 

DSPCOUMT 

163  : 

RE  F 

1 

41 ,3167 

02147 

1 

GTSF  INLC 

2CADR 

GTS  F I N 

1638 

REF 

1 

41 ,3160 

64101 

0 

163c 

REF 

3 

1 AST 

4 25 

41,3161 

4 

-7  57 

1 

CHANLOAD  CS 

SEVEN 

163  1 

REF 

4 

LAST 

416 

41,3162 

6 

1017 

0 

AD 

N DUN  CAD?. 

1639  ? 

41,3163 

0 

0006 

1 

EX  TEND 

163c3 

REF 

8 

LAST 

427 

41 ,3164 

1 

27  7 5 

1 

BZ  F 

LOADLV 

16394 

REF 

5 

LAST 

430 

41,3165 

3 

1017 

0 

CA 

NOUNCADP 

1640 

REF 

7 

LAST 

416 

41,3166 

7 

50  04 

1 

MASK 

LCW9 

1641 

REF 

133 

l AST 

430 

4 1,  116  7 

56 

154 

1 

XCH 

MP  AC 

1641  1 

41 ,3170 

0 

0006 

1 

EXTEND 

164- 1 2 

REF 

139 

LAST 

4^0 

4*  1 , 3 1 7 1 

5 

Cl  54 

I N D E X 

(■I  p/\c 

1642 

41,3172 

01 

000 

0 

WRITE 

0 

1643 

PEF 

9 

LAST 

430 

41,3173 

0 

2775 

0 

TC 

LOADLV 

R 1644 

PUTOECSF 

FINDS 

MIX8R 

AND  DECOUNT  STILL 

SET  FROM 

PUT  COM 

164? 

REF 

2 

LAST 

416 

41,3174 

0 3047 

1 

PUTDECSF 

TC 

SFCONUM 

1646 

REF 

13 

LAST 

420 

41 , 3175 

54  123 

0 

TS 

SFTEMP1 

1647 

41,3176 

0 0006 

1 

EXTEND 

1648 

REF 

1 

41,3177 

3 3160 

0 

DC  A 

GTS F INLC 

1649 

REF 

12 

LAST 

427 

41 , 3200 

52  0C6 

0 

DXCH 

Z 

1650 

REF 

1 1 

t AST 

429 

41  ,3201 

50  140 

1 

INDEX 

MIX  RR 

1651 

41 , 3202 

0 3202 

1 

TC 

+ 0 

1652 

P.EF 

1 

41,3203 

0 3206 

0 

TC 

PUT  SFNOR 

1653 

REF 

4 

LAST 

429 

41 , 3204 

0 3 034 

0 

TC 

SFRUTMIX 

1654. 

REF 

1 

4i  1,3205 

0 32  07 

1 

TC 

PUT DCS F2 

165? 

REF 

4 

LAST 

430 

4 1,3206 

0 3026 

0 

PUT  SFNOR 

TC. 

SF-RUTNOR 

1656 

REF 

130 

LAST 

428 

41 , 3207 

50  OCO 

1 

PUTDCSF2 

INDEX 

A 

1657 

PEF 

1 

41,3210 

3 3212 

0 

CAP 

SFINTABR 

3 : 1 5 

DEC.  2 

, 1970 

AP 

11 

AID  , 

.001 

P 

AGF 

USER  • 

S PAGE 

NO 

• 

41 

EO 

S4 

+ 

DEC 

+ 0 

OCTAL 

' EST  I F DE 

C ONLY 

B I 

T 

= 1. 

IF 

SO, 

AL 

ARM  AND 

RECYCLE 

. 

IF 

NOT 

, CONTI 

MUF 

•4  NO  DP 

DD 


IF  NNADTEM 


-1,  CHANNEL  TO  RE  SPEC! 


DONT  LOAD  CHAN  7.  ( IT  = SUPERBANK). 


2X1 SF  CON  NUMB)  IN  A 

SWITCH  BANKS  TO  SF  CONSTANT  TABLE 
SHADING  ROUTINE. 

LOADS  SF TEMPI , SFTEMP2. 


430 


FI  ED 
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1658 
1?  17  ' 

A 1660 
1661 
1662 

1663 

1664 

1665 
16ts  6 

1667 

1668 
1669 
1671 

1671  1 
16712 
16  71  4 

1672 


R 1673 

R 1 


1675 

1675  5 
R 1676 

167^ 

1678 

167V 

1680 

1681 

16  82 
1683 
16  8“ 
1685 

1 

1687 

1668 

168V 

1 

1691 

1692 

1693 

1 ( 

1695 

1606 

1697 

1698 
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PINBALL  GAME  BUT  TOMS  AMD  LIGHTS 


USER'S  PAGE  NO.  42  EO  $4 


REF  4 LAST  417 

REF  1 

REF  1 

REF  1 

PFF  1 

REF  1 

REF  1 

RFF  4 LAST  424 

OFF  2 LAST  431 

RFF  1 

P EF  5 LAST  4*  1 

REF  1 

R EF  1 

REF  6 LAST  431 

REF  2 LAST  <.31 


41,3211  0 “640  1 

41,  3212  62350  0 

41.3213  61106  1 

4 1.32 14  61010  1 

1,3215  61076  l 

4 1, 3216  61114  1 

41,3217  61141  1 

4 1 . 3220  61420  C 

41.3221  J 114  1 

“1,3222  65452  1 

“ 1,3223  61420  0 


41,3224 

61146 

0 

41,3225 

6 1111 

1 

41 , 322o 

61420 

0 

1 ,322  7 

61010 

1 

41,3230 

TC  BANKJUMP 

SFINTABR  C ADC  GOALMCYC 

C A OR  B INROUND 

CADR  DEGINSF 

CA'r  APTHTN# 

CADR  DP  I NS  F 

CADR  DPINSF2 

CADR  DSP ALARM 

CADR.  DPI  N SF 

C ADr  HMS1N 

CAD1-  D S P A L A F f ' 

CADR  DPINSF4 

CADR  ARTIN1SF 

CADR  DSP  A LAP  fl 

CADR  DEGINSF 

E N DP i,JT  I N EQUALS 


SWITCH  BANKS  FOR.  EXPANSHION  FOOM 
ALARM  AND  RECYCLE  IF  DEC  LOAD 
WITH  OCTAL  ONLY  NOUN. 


L P PUS LU T CANT  BE  LOADED. 
SAME  AS  ARITHDP1 

MI N/S  EC  CANT  BE  LOADED. 


2 I NT  PUT  CANT  BE  LOADED. 
TESTS  At  END  F^!  360-CDU 


SCALE  FACTORS  FC  ! THOSE  i'JTINES  NEEDING  THEN  A,  E AVAILABLE  IN  SFTEMP1. 
ALL  OF  IN,  ROUT  1 NE  USE  ''PAC  MPAC+1 . LEAVE  ESULT  IN  A.  END  WITH.  TC  DECRET 


PEE  1 •''0,3010  * SET l nC  FNDDPDFC  +1 

REF  4 LAST  “24  TO  '+25:  15  457*  COUNT  * $$/PIN 

DEGINSF  APPLIES  1000/180  =5.55555(10)  = 5. “3434(8) 


REF  6 LAST 
RFF  1 
REF  140  LAST 
REF  19  LAST 

REF  20  1 AST 

REF  141  LAST 

REF  1 

REF  3 LAST 

RFF  4 LAST 

REF  1 

REF  5 LAST 

P E F 142  LAST 

REF  1 

REF  2 LAST 

REF  143  LAST 
REF  4 LAST 
REF  1 
P EF  1 
REF  144  LAST 
REF  5 LAST 


424  “0,3010  T 7103  1 DEGINSF  TC 

40,3011  03074  ] ADRFS 

430  40,3012  10  155  1 CCS 

403  40,3013  3 4741  1 CAP 

40, 3014  0 3016  0 TC 

431  40,30  15  4 4741  0 CS 

“31  40,3016  6 0155  0 AD 

40,3017  0 3 1 6 r'  0 TC 

423  40, 3020  0 4404  0 TC 

431  40,3021  0 4404  0 DEGINSF2  TC 

40,3022  0 3174  0 TC 

431  40,3023  C 4404  0 TC 

“31  40, 3024  10  154  0 CCS 

-0,3025  0 3031  0 TC 

431  40,3026  0 3031  0 TC 

40,3027  4 COOO  0 COM 

431  40,3030  54  154  0 TS 

429  - , 303  1 ID  1 62  0 S I GNF  I X CCS 

60.3032  0 3070  0 TC 

40.3033  0 3043  0 TC 

431  40,3034  10  154  0 CCS 

415  40,3035  0 5705  0 TC 


DMP 

DEGC0N1 
MPAC  + 1 

BIT  11 
+ 2 

31  T1  3 

MPAC  +1 

2!  OUND  +2 
TP  SL  1 
TPSL1 
TESTUFUF 
TPSLl 
MPAC 
SIGNFIX 
S IGNF  I X 

MPAC 

M 9 AC  + 6 

SGNTfl 

ENDSCALE 

MPAC 

CCSHOLE 


SF  ROUTINE  FOR  DEC  DEGREES 
MULT  PY  5.5  ' ( 10) X2EXP-3 

THIS  ROUNDS  OFF  MPAC+1  BE  FOR F SHIFT 
LEFT  3,  AND  CAUSES  360.00  TO  OF/UF 
WHEN  SHIFTED  LEFT  AND  ALARM. 


LEFT  l 
LEFT  2 

RETURNS  IF  NO  OF/UF  ( L E F T 3 ) 

IF+,  GO  TO  SIGNFIX 
IF  +0,  GO  TO  SIGNFIX 
IF  - , USE  -MAGNITUDE  +1 
IF  -0,  USE  +0 

IF  OVERFLOW 

MO  OVERFLOW/ UNDERFLOW 

IF  UF  FORCE  SIGN  TO  0 EXCEPT  -180 


4 
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PINBALL 

GAME 

BUTTONS  AND  LIGHTS 

USER'S  RAGE  NO.  43  EO  S4 

1699 

REF 

1 

40,3036 

0 30  66 

1 

TC 

NEG1B0 

1700 

40,3037 

0 3040 

0 

TC 

+ 1 

1701 

REF 

14  5 

LAST 

43  1 

40 , 304  0 

56  154 

1 

XCH 

, M PA  C 

1702 

R E F 

7 

LAST 

418 

40,3041 

7 473  3 

0 

MASK 

PCS  MAX 

1703 

REF 

146 

1 AST 

43  2 

40, 3042 

54  154 

0 

TS 

MPAC 

170* 

REF 

12 

LAST 

430 

40,3043 

50  140 

1 

FNDSCAt  E 

1 NDF  X 

MIXBE 

IF  ROUTINE  MO.  IS  MOT  CDU  DEGREES, 

1 

40,3044 

0 3044 

1 

TC 

+ 0 

THEN  THIS  IS  360  - CDU  DEGREES 

17041 

40,3045 

0 3050 

1 

TC 

+ 3 

AND  ANGLE  IN  MPAC  MUST  BE  REPLACED 

1704  2 

REF 

1 

40, 3046 

0 3060 

1 

TC 

Sf MI XCAL 

BY  360  DEGREES  MINUS  ITSELF. 

17043 

4 0 , 3047 

0 2 « 1 

0 

M I XBACK 

TC 

+ 2 

1704* 

REF 

1 

40,3050 

0 30  63 

1 

TC 

SFNORCAL 

170r 

REF 

13  1 

IAET 

43  o 

40,3051 

4 00  00 

0 

NOP BACK 

CS 

A 

17051 

REF 

24 

LAST 

283 

40,3052 

6 4752 

0 

AD 

BIT2 

17052 

40,3053 

0 COOfc 

1 

EXTEND 

17053 

40,3054 

1 3 056 

0 

BZF 

+ 2 

17054 

PEE 

2 

LAST 

413 

40,3055 

0 26  25 

1 

TC 

360— C DU 

1 7 0 r 5 

REF 

2 5 

L AS1" 

427 

40,3056 

0 463  5 

0 

ENDS  CALI 

TC 

POST  JUMP 

17056 

REF 

4 

LAST 

4'3>  0 

4Q , 3057 

6315  5 

o 

CAD r- 

p 1 1 t r < v,  ? 

r v_j  | 'w  1 'c. 

17057 

REF 

86 

LAST 

423 

40,3060 

0 4616 

1 

SEMI  XCAl. 

TC. 

8 AN KC ALL 

1 7 C 5 8 

REF 

5 

LAST 

430 

40 . ^06  1 

6 3034 

0 

C ADR 

c>  F R l JT  M IX 

f JO  J J. 

1705  9 

REF 

1 

' 0, 3062 

C 3 047 

1 

TC 

v I X B A C K 

1 

REF 

87 

la*t 

432 

40,3063 

0 4616 

1 

S END P CAL 

TC 

BANKCALl 

170592 

REF 

5 

LAST 

430 

40,3064 

63C26 

0 

CADR. 

SFRUTNOR 

170593 

REF 

1 

40,3065 

0 3051 

0 

TC 

NORBACK 

1706 

REF 

: a 

LAST 

4 3 2 

4 G,  3066 

4 473  3 

0 

MEG  180 

CS 

POSMAX 

1707 

REF 

2 

LAST 

431 

40,3067 

0 3042 

1 

TC 

ENOSCALE  -1 

1708 

REF 

147 

LAST 

432 

40, 3C70 

4 0154 

c 

SGNT01 

CS 

MPAC 

IF  OF  FORCE  SIGN  TO  1 

1 70c 

REF 

9 

LAST 

432 

40,3071 

7 4733 

0 

MASK 

POSMAX 

1710 

REF 

132 

LAST 

432 

40,3072 

4 0000 

0 

CS 

A 

1711 

REF 

3 

LAST 

432 

40,3073 

0 3042 

1 

TC 

ENOSCALE  -1 

1712 

*0, 3074 

26161 

0 

DEGCCN1 

20EC 

5. 55  5 55?  5 P-3 

1712 

40,3075 

30707 

1 

1715 

R EF 

7 

LAST 

431 

40,3076 

0 7103 

1 

ART Hi  NS E 

TC 

DM.P 

SCALES  MPAC,  +1  BY  SF  TEMP  1 , SF  TEMP  2 . 

1716 

R f F 

14 

! AST 

430 

40,3077 

OC  123 

1 

ADTES 

SF TEMPI 

ASSUMES  POINT  BETWEEN  HI  AND  LO  PARTS 

1717 

REF 

148 

LAST 

432 

4 0 , 3 1 0 0 

56  156 

0 

XCH 

MPAC  +2 

OF  S F CON . SHIFTS  RESULTS  LEFT  BY  14. 

171  » 

REE 

1 4g 

LAST 

432 

40,3101 

56  155 

0 

XCH 

MPAC  +1 

(3Y  TAKTnS  RESULTS  FROM  MPAC+1 , MPAC+2) 

1710 

REF 

150 

LAST 

432 

40,3102 

56  154 

1 

XCH 

MPAC 

1720 

40,3103 

0 0006 

1 

EXTEND 

1721 

REF 

? 

LAST 

43  1 

40,3104 

1 3106 

1 

BZF 

B IMPOUND 

1722 

REF 

5 

LAST 

428 

40,3105 

0 4145 

0 

TC 

ALMCYCL E 

TOO  LARGE  A LOAD.  ALARM  AND  RECYCLE. 

172  3 

9 FE 

2 

LAST 

431 

40,3106 

0 3163 

0 

B I N ROUND 

TC 

2 ROUND 

172* 

REF 

2 

LAST 

431 

40,3107 

0 3174 

0 

TC 

TEST  OFUF 

1725 

REF 

1 

40,3110 

0 3056 

1 

TC 

ENDSCAL1 

RETURNS  IF  NO  OF/UF 

# 
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172c  I 

REF 

g 

LAST 

432 

,3111 

0 7103 

1 

ART IN  IS F 

TC 

17252 

REF 

15 

LAST 

432 

40,3112 

00 123 

1 

ADRES 

D rc 

~x 

1 ACT 

a a 9 

A A 111^ 

Cl  9,  1 fl  A 

n 

Tr 

l ( £ J 1 

K L r 

■ -> 

LA.  ! 

; * .5  I I j 

V 

1 L. 

173° 

RFF 

Q " 

LAST 

433 

■ , m * 

0 710  3 

1 

DP  I Nc  F 

TC 

1740 

REF 

16 

LAST 

433 

,3115 

00123 

1 

ADRES 

1741 

REF 

151 

LAST 

43  2 

40,3116 

56  156 

0 

XCH 

1742 

40,3117 

6 0000, 

1 

DOUBLE 

l 7 -,3 

•'*  E F 

152 

L AST 

433 

40, 3120 

54  156 

1 

TS 

1 7 4 * 

REF 

80 

L AST 

430 

40 ,3121 

3 4755 

1 

CAF 

l 74c 

PFF 

1 ACT 

A M t;c 

AD 

I IT. 

L J 0 

L flo  i 

T “ .0 

' ■ t ->  i c.  C. 

U V 1 O A 

1746 

REF 

3 

L AST 

432 

40,3123 

0 3165 

0 

TC 

1747 

REF 

3 

LAST 

432 

40,3124 

0 3174 

0 

TC 

1746 

aEF 

13 

LAST 

432 

40,3125 

50  140 

1 

INDEX 

17*  c 

* 0 , 1 2 6 

0 3126 

1 

TC 

17^0 

REF 

1 

40,3127 

0 7 137 

1 

TC 

1751 

D E F 

27 

LAS7 

43° 

40,3130 

3 0117 

0 

CA 

1752 

F EF 

27 

LAST 

429 

40,3131 

3 0145 

1 

DPINCOM 

AD 

1753 

F 

98 

LAST 

429 

40,3132 

54  002 

1 

TS 

1754 

REF 

154 

LAST 

433 

40,3133 

56  155 

0 

XCH 

175  5 

RFF 

89 

LAST 

433 

40,3134 

50  002 

0 

INDEX 

175  5 

4 0 ,3135 

54  001 

1 

TS 

1757 

RFF 

2 

LAST 

43? 

40,3136 

0 3056 

1 

TC 

1758 

REF 

81 

LAST 

433 

40,3137 

3 4755 

1 

DPINORM 

CAF 

1759 

REF 

1 

40,3140 

0 3131 

1 

TC 

1760 

REF 

10 

LAST 

433 

4 0,3141 

0 7 103 

1 

DP INSF2 

TC 

176  1 

REF 

17 

LAST 

433 

40, 3142 

00123 

1 

ADRES 

1762 

REF 

13 

LAST 

425 

40,3143 

3 62.42 

0 

CAF 

1763 

R EF 

2 

i AST 

419 

z 0 . 3 1 A.4 

A s>,  l g;  si 

TC 

L.  M kj  1 

u 

176** 

REF 

3 

L AS'r 

43  1 

40,3145 

0 3116 

l 

TC 

1765 

REF 

1 1 

LAST 

433 

40,3146 

0 7103 

1 

DP INSF4 

TC 

1766 

REF 

1 8 

LAST 

433 

40,3147 

0 012  3 

1 

ADRES 

1767 

REF 

28 

LAST 

427 

40,3150 

3 4752 

0 

CAF 

176  8 

REF 

3 

LAST 

433 

40,3151 

0 3153 

0 

TC 

1765 

P EF 

4 

LAST 

**33 

-■0,315  2 

0 3116 

1 

TC 

1770 

REF 

90 

LAST 

433 

40,3153 

56  002 

0 

TPL EFTN 

XCH 

1771 

REF 

1 

40,3154 

54  124 

1 

TS 

177? 

P.EF 

r-  1 

LAST 

433 

40,3155 

56  CG2 

0 

XCH 

1773 

REF 

19 

LAST 

433 

40,3156 

54  123 

0 

l EFTNCOM 

TS 

1774 

' EF 

4 

LAST 

431 

40,315-7 

0 4404 

0 

TC 

1775 

REF 

20 

LAST 

433 

40,3160 

10  123 

0 

CCS 

1776 

REF 

1 

40,3161 

0 3156 

0 

TC 

3: 15  DEC 


2,1970  APIIAIO  .001  PAGE  433 
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DMP  SCALES  MPAC , + 1 BY  SFTEMPI , SFTEMP2 • 

SFTEMP1  ROUNDS  MPAC+I  INTO  MpAC. 

BINRUUMD 


DMP 

SCALES  MPAC,  MPAC  +1  BY  SFTEMPI, 

SFTEMPI 

SFTEMP2.  STORES  LOW  PAST  OF  RESULT 

MPAC 

+ 2 

IN  (E  SUBK)  +1  OR  E + l 

MP  AC 

+ 2 

ZERO 

MPAC 

+ 1 

2R0UND 

+ 2 

TESTOFUF 

MIX  SR 

RETURNS  IF  NC  OF/UF 

+ 0 

DPINORM 

DECOUNT 

MT  X ED NOUN 

NOUNADD 

MIXED  NORMAL 

Q 

E SUBK  E 

MPAC 

+ 1 

Q 

1 

PLACE  LOW  PAST  ?N 

END SC A LI 

(E  SUBK)  +1  MIXED 

ZERO 

E +1  NORMAL 

DPI NCOM 

DMP 

ASSUMES 

PFII'T  BETWEEN  BITS  7-9  OF  HIGH 

S FT EMP 1 

PART  OF 

SF 

CONST. 

DP  I N SF  2 SHI  FT  S F E SULTS 

SIX 

LEFT  BY 

7, 

ROUNDS 

MPAC+2  INTO  MPAC+1 

T PL  EFTN 

DPI N S F +2 

SHIFT  LEFT 

7 . 

DMP 

SFTEMPI 

TWO 

TPLEFTN 

DPI  NS F +2 

ASSUMES  POINT  BETWEEN  BITS  11-12  OF  HIGH 
PART  OF  SE  CONST.  DPINSF2  SHIFTS  RESULTS 
LEFT  BY  3,  ROUNDS  MPAC+2  INTO  MPAC+1. 
SHIP7  LEFT  3. 

Q 

SET  E 1P2 

Q 

SFTEMPI 

TPSL1 

SFTEMPI 

L EFTNCOM 

SHIFTS  MPAC,  +1,  +2  LEFT 
TO  +1  F0>-  OF,  -1  FOR  UF. 
CALL  WITH  N-l  IN  A. 

LOOP  TIME  .37  MSEC. 

N.  SETS 

OVFIND 

GAP: 


ASSEMBLE  REVISION  001  OF  AGC  PROGRAM  AP11RDPE  BY  EYLtS 


L 

1777 

PIN  BALL 

REF  2 

GAME 

LAST 

BUTTONS  AND  LIGHTS 

433  40,3162  0 0124 

0 

TC 

SFTEMP2 

17  7 + 

REF 

1 5 5 

LAST 

433 

40,3163 

56  15  5 

0 

2 ROUND 

XCH 

MPAC  +1 

177  5 

40,3164 

6 CCOO 

1 

DOUBLE 

1 7 g n 

R F F 

156 

LAST 

434 

40.3166 

54  155 

1 

TS 

MPAC  +1 

1781 

REF 

92 

LAST 

433 

, 0 ,3166 

0 0002 

0 

TC 

Q 

1782 

REF 

15  7 

LAST 

434 

40,3167 

6 0154 

1 

AD 

MPAC 

1783 

REF 

15  8 

LAST 

434 

40,3170 

5L  154 

0 

TS 

MPAC 

17,- 

REF 

9 3 

LAST 

•J.  3 4- 

-',3171 

0 0002 

0 

TC 

0 

173 ,r 

REF 

F, 

1 AST 

431 

40,3172 

54  162 

0 

TS 

M ° AC  + ' 

17 

q FF 

94 

LAST 

43  4 

40,3173 

0 0002 

o 

2 S’  NO  END 

T C 

0 

1781 

R EF 

6 

LAST 

434 

40,3174 

10  162 

0 

TEST  O FUF 

CCS 

NPAC+6 

17  ,5 

REF 

6 

1 AST 

4 32 

40,3175 

0 4 14  5 

0 

TC 

ALMCYCLE 

1735 

REF 

95 

t AC- 

434 

4 0,317  6 

0 ! 002 

0 

TC 

0 

1790 

p EF 

7 

LAST 

434 

40,3177 

0 414  5 

0 

TC. 

ALMCYCLF 

1 Z91 

REF 

1 

42,3452 

SE”  LOC 

ENDS P Mi  IN  +1 

17915 

R EF 

7 

LAST 

421  Tf 

4 2/  : 

146  146* 

COUNT* 

$ $ / P I N 

17c  2 

RFF 

1 

6?, 3452 

0 357  3 

0 HMSIN 

TC 

ALL3DEC 

1793 

REF 

12 

LAST 

433 

42,3453 

0 7103 

1 

TC 

DMP 

1794 

REF 

1 

42,3454 

03534 

0 

ADR  ES 

WHOL  EC ON 

1795  : 

REF 

1 

42,3455 

0 3543 

c 

TC 

KND/TST 

1796 

REF 

82 

LA5T 

433 

42,3456 

3 47  55 

1 

CAF 

Zjfoo 

1797 

CF 

159 

l AST 

434 

4 2,3457 

54  156 

1 

TS 

MPAC  +2 

179R 

REF 

1 

c.y  , 7.:  (-  n 

3 3536 

1 

CAF 

hro  fiW 

’ (PUUI 

179° 

REF 

160 

LAST 

434 

4 2, 346  1 

54  154 

0 

TS 

MPAC 

180 

REF 

2 

LAST 

434 

42,3462 

3 3537 

0 

CAF 

HRCON  +1 

1801 

5 EF 

l 6 L 

LAST 

434 

4 2 , 346  3 

56  15  5 

0 

XCH 

MPAC  +1 

1802 

REF 

4 

LAST 

422 

4 2 , 346 4 

0 7307 

1 

TC 

SHOP TMP 

If  '->3 

RFF 

1 

42,3465 

0 35  54 

0 

TC 

MPACTS7 

1804 

REF 

16? 

1 AST 

434 

42,3466 

52  156 

1 

DXCH 

MPAC  +1 

1805 

REF 

1 

42,3467 

52  124 

1 

DXCH 

H ITEM  I N 

1806 

REF 

3 

LAST 

42  6 

42,3470 

3 1004 

1 

CA 

YREG 

1807 

REF 

2 

LAST 

101 

42 ,3471 

23*007 

1 

L XC  H 

YFvEGLP 

1808 

REF 

163 

l AST 

4 34 

42,3472 

5 2 155 

1 

DXCH 

MPAC 

1809 

REF 

13 

LAST 

434 

42,3473 

0 7103 

1 

TC 

DME 

1 8 K 

RFF 

2 

t AST 

4 34 

42,3474 

03534 

0 

A ORES 

WHOL  ECO?/ 

1811 

REF 

2 

LAST 

434 

42,3/ 75 

0 3543 

0 

TC 

RND/TST 

1812 

REF 

1 

42 , 3476 

4 3541 

0 

CS 

59MIM 

1813 

REF 

1 

42,3477 

0,  35 0 1 

0 

TC 

S IZETST 

1814 

REF 

1 64 

LAST 

434 

42,3500 

56  155 

0 

XCH 

MPAC  +1 

181  c 

4 2 , 360] 

0 0006 

1 

EXTEND 

1816 

REF 

1 

42,3502 

7 3540 

1 

MP 

M 1NC0N 

1817 

REF 

2 

LAST 

434 

42,3503 

20  124 

1 

DAS 

HITEMIN 

1818 

42,3504 

0 0006 

1 

EXTEND 
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IF  MPAC+1  DOES  NOT  OF/JF 

IF  HP  AC  DOES  NOT  OF/UF 

RETURNS  IF  ML  OF/UF 
OF  ALARM  AND  RECYCLE. 

UF  ALARM  AMD  RFCYCL  E. 


IF  ALL  3 WOLDS  WPP  E NOT  LOADFD,  ALARM. 
XR  EG,  XF  EGLP  (=HOURS)  WERE  ALREADY  PUT 
INTO  MPAC,  MPAC+1. 

I-OUND  OFF  TO  WHOLE  HRS  IN  MPAC  + 1. 

ALARM  IF  MPAC  NON  ZERO  ( ,/  163P3  ). 


ALARM  if  mpac  NON  ZERO  ( G / 7*5) 
S T n o. E HOURS  CONST1'  I BUT  1 01' 

PUT  YPEG,  YP  EGLP  INTO  MPAC,  +1. 


'■•OUND  OFF  TO  WHOLE  MIN  IN  MPAC  + 1 
ALARM  IF  MPAC  NON  ZERO  (G/ 16383) 
ALARM  IF  MPAC+l  G/  59MIN 


LEAVES  MINUTES  CONTRIBUTION  IN  A ,L 

ADD  IN  MINUTFS  CONTRIBUTION 

IF  THIS  DAS  OVERFLOWS,  G/  745HR,39MIN 


I 


SAP:  ASSfMBLt  ^EVISidP  001  ui-  AGO  PROGRAM  API  LRr,PE  BY  fcYLES 

L PINBALL  GAME  BUTTONS  AND  LIGHTS 


181 v 

1820 
182  1 
182  2 
IP  2 3 
182' 
1 82 17 
1826 
182:7 
182" 
1 2' 

1830 

1831 

1832 
183  3 
1834 
1 P 3 r" 


REF 

REF  3 
REF  2 
"■  F r 168 


r cr 
REF 
REF 

REF:; 

REF 

REF 


1 4 
3 
3 
1 
2 
3 


REF  166 


KEF 

REF 


■ 9 
83 


REF  167 


I AST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 
LAST 
L A S "r 


LAST 

LAST 

LAST 


434 

42  6 
If  l 
434 
4 3 1‘. 
434 
434 

434 

434 

43  8 


435 
434 
43  5 


42.3505 

42.3506 
42 , 350  7 
42, 3510 
4 2 , 35  1 1 

42.3512 

42.3513 

42.3514 

42.3515 

42.351 6 

42.3517 
4 2 ,3520 

42.3521 

42.3522 

42.3523 

42.3524 

42.3525 


1 3501  1 
6 * 145  0 

3 1005  0 
23*010  1 
82  188  1 
0 “103  1 

03  534  0 
0 3543  0 

4 3542  0 

0 3561  0 
32  124  1 
20  155  1 
0 0006  1 

1 3524  0 
0 4145  0 
3 4755  1 

5 15.-.  1 


BZF 

TC 

CA 

LXCH 

DXCH 

TC 

ADRES 

TC 

CS 

TC 

DXCH 

DAS 

EXTEND 

BZF 

TC 

CAF 

TS 


1836 

RFF 

6 

LAST 

4 24 

/-  2 , 352  6 

0 72  p? 

0 

TC 

1837 

REF 

168 

LAST 

63  5 

42,3527 

52  155 

1 

DXCH 

1838 

REF 

28 

LAST 

433 

42,3530 

50  145 

1 

INDEX 

183  9 

42,3531 

52  001 

1 

DXCH 

1840 

REF 

26 

1 AST 

432 

42,3532 

0 46  3 5 

0 

TC 

1841 

REF 

10 

I AST 

430 

42,3533 

6 2 775 

c 

C ADR 

1842 

42,3534 

0C0  06 

1 

WHOLECON 

OCT 

1843 

42,3535 

03240 

1 

OCT 

1644 

42,3536 

GO  025 

0 

HRCON 

OCT 

186  5 

42,3537 

37100 

1 

OCT 

18  4/ 

42,3540 

13560 

0 

MINCON 

OCT 

1847 

/,  ? , 3 <5  4 ]_ 

t : 0 0 ~ 3 

n 

c 0 M T M 

p r t 

u 

2 V T 1 1 IN 

Li  L 1 

1 - 

42 , 3542 

13557 

1 

59.99SEC 

OCT 

184c 

REF 

169 

LAST 

43  4 

42,  3563 

56  156 

0 

! ND/TST 

XCH 

1 8 5 C 

42,3544 

6 0000 

1 

DOUBLE 

1 8 5 1 

- FF 

170 

LAST 

43  c 

42,3545 

54  156 

1 

TS 

1852 

REF 

84 

LAST 

435 

42, 3546 

3 47  55 

1 

CAF 

1853 

REF 

171 

LAST 

435 

42,3547 

6 0155 

0 

AD 

1854 

E f 

172 

LAST 

435 

42,35 50 

54  15  5 

1 

TS 

1 8+  5 

REF 

85 

LAST 

435 

42,3551 

3 4755 

1 

CAF 

185/ 

REF 

173 

LAST 

435 

4 2 , 35 5 2 

6 0154 

1 

AD 

1857 

REF 

174 

LAST 

43  5 

4 2,  35  5 3 

56  154 

1 

XCH 

185  8 

REF 

175 

LAST 

435 

42,3554 

10  154 

0 

MP ACT  ST 

CCS 

1 

REF 

10 

LAST 

435 

42,3555 

0 4145 

0 

TC 

1860 

REF 

96 

LAST 

434 

+2, 3556 

0 0002 

0 

TC 

1861 

RTF 

1 1 

LAST 

435 

42 ,3557 

0 PI  45 

0 

TC 

1 862 

REF 

97 

LAST 

435 

42,3560 

0 C 0 0 2 

0 

TC 

1863 

REF 

176 

LAST 

435 

42,3561 

54  156 

1 

SIZETST 

TS 

1864 

REF 

177 

LAST 

435 

42,3562 

10  155 

1 

CCS 

i” 
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+ 2 

ALMC YCLE 

ZREG 

ZREGLP 

MPAC 

OMP 

WHOLECON 
RND/TST 
5 9. 99  SEC 
SIZETST 
H IT  EM  IN 
MPAC 


+ 2 

ALMC YCLE 
ZERO 

*P AC  +2 

TRACK  FE 
MPAC 
N CUN ADD 
0 

POST  JUMP 
LOADLV 
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PUT  Z r EG,  Z!  EGLP  INTO  MPAC,  +1. 


ROUND  OFF  TO  WHOLE  CENTI-SEC  IN  MPAC+1 
ALARM  IF  MPAC  TON  ZERO  !G/163.d3  SEC) 
ALARM  IF  MPAC+1  G/59.99  SEC 
ADO  IN  SECONDS  CONTRIBUTION 
IF  THIS  DAS  OVEP FLOWS, 

G/  745  HR,  39  MIN,  14.55  SEC. 

ALARM  AND  RECYCLE 


00006 
03240 
COO  25 
37100 
13560 
COO  7 3 
13557 


( 10EXP5/2EXP 14  ) 2 E XP 14 

1 HOUR  IN  CENTI-SEC 

1 MINUTE  IN  CENTI-SEC 
59  AS  WHOLE 
c 999  CENTI-SEC 


-'PAC  +2  FOUNDS  NPAC  + 2 INTO  MPAC  + 1. 

ALARMS  FF  MPAC  NOT  0 

MPAC  +2 

ZERO 

MPAC  +1 

MPAC  +1 

ZERO 

MPAC  CANT  OVjFlOW 

MPAC 

MPAC  ALARM  IF  MPAC  NON  ZERO 

ALMCYCL  E ALARM  AND  RECYCLE. 

Q 

Al.MCYCI.C-  ALARM  AND  RECYCLE. 

Q 

MPAC  +2  CALLED  WITH  - CON  IN  A 

MPAC  +1  GET  MAG  OF  MPAC+1 


GAP: 


ASSEMBLE  REVISION  OOI  OF  AGO  PL3G;  AM  APIIROPE  BY  EYLES 


L PINBALL  GAME  BUTTONS  AN 0 LIGHTS 


1865 

RFF 

44 

LAST 

430 

42,3563 

6 

4753 

1 

AD 

ONE 

186 

42 , 3564 

1 

3566 

0 

TCF 

+ 2 

1667 

REF 

45 

LAST 

: 3 * 

42,  3565 

6 

+ 753 

1 

AD 

ONE 

11 

REF 

1 7 8 

L A S T 

43  5 

42,3566 

6 

0156 

0 

AD 

MPAC  + 

I860 

42,3567 

0 

0006 

1 

EXTEND 

1870 

4 2 , 35  70 

6 

3672 

1 

BZ  MF 

+ 2 

l 

REF 

12 

LAST 

435 

42,3571 

0 

4145 

0 

TC 

Al.MCYCLE 

1872 

REF 

98 

LAST 

435 

42,3572 

0 

0002 

0 

TC 

Q 

1873 

ALL 3 DEC 

TESTS 

THAT 

ALL  3 WORDS 

ARE  LOADED  IN  DEC 

( FOR 

HMS IN  ) . 

1874 

ALARM  TF 

NOT.  ( 

TEST 

THAT  BTTS 

3,4,5  r-  F 

DECBRNCH 

ARE  ALL  = 1) 

1875 

REF 

1 

42,3573 

4 3600  0 

AI.L3DEC 

cs 

0CT3':  BAR 

1876 

REF 

17 

L A ST 

42  9 

42,3574 

7 1000  1 

MASK 

DECBRNCH 

1877 

REF 

2 

LAST 

436 

. 42,3575 

6 3600  1 

AD 

OCT 34BAR 

1 1 7 

9 EF 

133 

LAST 

432 

42 ,3576 

10  000  0 

CCS 

A 

1879 

0 EF 

1 

42,3577 

0 3603  1 

TC 

F PP,  C E V 2 r 

1880 

u? , 3 a n o 

77743  l 

PCT3AB AF 

OCT 

77747 

1 £ 1 

RFF 

2 

LAST 

436 

42,3601 

0 3603  1 

TC 

F0RCEV25 

1882 

REF 

99 

LAST 

436 

42,3602 

0 0002  0 

TC 

Q 

18825 

REF 

2 

LAST 

209 

42,3603 

4 

6010 

1 

FORCE V25 

CS  OCT  3 1 

1832  6 

9EF 

2 

L AST 

407 

42 , 3604 

55 

• 041 

1 

TS  VERBSAVE 

18827 

1883 

REF 

13 

LAST 

436 

42.3605 

42.3606 

0 

4145 

0 

ENDHMSS 

TC  ALMCYCLE 

EQUALS 

3:15  DEC 


2,1970 


API! AID  .001 
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MAG  OF  MPAC+l  - CON 

MAG  OF  MPAC+1  G/  CON.  ALARM  AND  RECYCLE. 
MAG  OF  MPAC+1  L/=  CON 


GET  BITS  3,4,5  IN  A 

GET  BITS  3,4,5  OF  DECBRNCH  IN  A 

BITS  3,4,5  OF  DECBRNCH  MUST  ALL  = 1 


FORCE  VERB  25  TO  8E  EXECUTED  BY  RECYCLE 
IN  CASF  OPERATOR  EXECUTED  A LOWER  LOAD 
VERB.  ALARM  AMD  RECYCLE. 


GAP  : 


3 : 1 5 DEC 


2,1970  API! AID 


00  1 


ASSEMBLE  RL  VISION  Oi'l  OF  AGO  PF  OGryAM  APUROPE  BY  EYLEo 
L P ! h-  P A ! L GAME  BUTTONS  A*  0 LIGHTS 

P 1884  MONITOR  ALLOWS  OTHER  KEYBOARD  ACTIVITY.  IT  IS  ENDED  BY  VERB  TERMINATE, 

R 1835  VERB  PROCEED  WITHOUT  DATA,  VERB  RESEQUENCE, 

R 1 8 8 1 A-  IT  HE-'  ONHFTU  , 3 A Y .VSUB  CALL  THAT  PASSES  THE  DSPLJCK  (PL)VIOED 

R 18861  T H A ‘ "HE  OPERATOR  HA  - SOMEHOW  ALIC.kEO  THE  ENDING  PF  A MON  I TO-  WHICH 

R 13362  HE  HAS  , -<  ■ t - ED  TMrrUDH  CHE  KEYBOARD). 

R 1887  MONITOR  ACTION  IS  SUSPENDED,  BUT  NUT  ENDED,  BY  ANY  KEYBOARD  ACTION, 

i >8  EXCEPT  ERROR  LIGHT  PESE’r.  IT  BEGINS  AGAIN  WHEN  KEY  RELEASE  IS  PERFORMED. 

R.ie-Sc-  Li-.ITOr  SAVES  THE  NOUw  UU  API  , Pk  I ATE  DISPLAY  VERB  IN  MONSAVE.  IT  SAVES 
R18r'(  NONr'C  a Ok  IN  MG  NS  A V FI  , IF  NOUN  » NACHINE  CAOR  TO  BE  SPEC  IF  I EO.  BIT  15  OF 

R 1-8  c 1 - A V F 1 J>  'HE  KILL  LNiTT  ’-ILNAL  (KILLf  B.'i.  Hi"  IN  CF  - ' AV  L 1 

P 18911  I*  'ICATES  THE  CU  - F"1  • I T . r -'AS  EXTERNALLY  INITIATED  (EXTERNAL 

R 1 8 r I 2 MONT  OR  BIT).  IT  IS  OK-  NED  OFF  BY  ELDSP  AND  KILMONOM. 

R 1892  ' 'AVE  INDICATES  IF  ''  TIT  ,.  IS  Q"'(+=UN,  +0=CFF) 

R 18c3  IF  TNSAVE  IS  +,  MONITOR  ENTERS  NO  REQUEST,  NT  TURNS  KILLER  BIT  OFF. 

R l"'  < IF  : ~ AV  F IF  hd  , ■ F 1 1 T E • E QUEST  AND  OUSTS  KILLS'  BT  T FF. 


R 1895  HVSUB  (IF  EXTERNAL  'CMIT':  BIT  I 
R 1 8 Q fc  VB= RESEQUENCE , AND  VB=TERMINATE 


R 18*7 

IF 

KILLED  BIT 

is  no, 

MO NR  EG  ENTE 

R 1898 

AND 

HSA VE1  ( 

TIP  NO  6 OFF  KI! 

LER 

R 189c 

MON 

I TOR 

DOS  ENT 

TEST 

For,  matbs 

SI 

1900 

REF 

1 

41,3230 

190  0 7 

REF 

3 

LAST 

425  TO 

v 3 1 : 

26  4 

19r  1 

REF 

1 

1,7230 

4 

19  2 

PEF 

7, 

1 AFT 

43  0 

•.  i . -11  i 

7 

l_  M O i 

1 

1903 

REF 

179 

LAST 

436 

41  ,3232 

54 

19031 

REF 

7 

LAST 

424 

41, 3233 

4 

19032 

REF 

1 A A T 

tn? 

1 

w r\  G 1 

i 1 AC.  ph 

o 

190  3 3 

PEF 

134 

LAST 

436 

4 1,3235 

10 

1903  4 

REF 

1 

4 1,3236 

o 

1903  5 

oi ,3237 

6 

19036 

PEF 

2 

LAST 

437 

41 , 3240 

0 

19037 

P EF 

38 

LAST 

4!  5 

41,3241 

3 

1903  8 

REF 

180 

LAST 

437 

4 1 ,32^2 

26 

19038 1 

R FF 

86 

L AST 

435 

41,3243 

3 

lc  " 2 

R EF 

1 

41 , 324 4 

55 

1904 

R E F 

3 

LAST 

23? 

a 1 , 32  4 5 

3 

1905 

PEF 

17 

LAST 

414 

41,3246 

7 

1906 

REF 

4 

LAST 

429 

41 , 3247 

0 

1907 

REF 

5 

LAST 

400 

41,3250 

54 

1 90S 

REF 

6 

L AST 

437 

7 1 , 32  5 1 

4 

19  ■ 

REF 

7 

LAST 

437 

41 , 32  c 2 

56 

1910 

R E F 

1 1 

L A c T 

425 

4 1 , 325  3 

A 

1911 

REF 

181 

LAST 

437 

41 , 3254 

54 

1912 

R FF 

87 

LAST 

437 

41 ,3255 

3 

S IFF) , VB=P‘  HCEED  WITHOUT  DATA, 

TURN  KILL  MONITOR  BIT  ON. 

F JS  T H E r EQUEaTS,  ZEROS  Mf  NS  AV  E 

BIT  AND  EXTERNAL  MONITOR  BIT). 

NCE  MV SUB  CAN  HANDLE  INTERNAL  MATBS  NOW 
SETLOC  ENDP  JTIM 

• ''A-  <•-  COUNT*  $ $ / P I N 


3237 
1 0 1 7 

0 

1 

1 

1 

1 

0 
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TEMP  STORAGE 


EXTERNALLY  INITIATED  MONITOR, 
SET  BIT  14  FOR  MON  SAVE  1. 

ZERO  NVMONOPT  OPTIONS 


TEMP  STORAGE 
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DXCH  MPAC 

DXCH  MON  SAVE 
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TC  ENTRET 
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MCNSAVE1 

TC 
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TC 
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TC 
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+0  INTO  DSPLOCK  SO  MONITOR  CAN  RUN. 

TURN  OFF  KR  LITE  IF  CADRSTOR  AND  DSPLIST 
ARE  BOTH  EMPTY.  (LITE  COMES  ON  IF  NEW 
VIM  IT;  IS  KFYED  IN  OVER  OLD  MONITOR.) 


IF  MONSAVF  WAS  c,  NO  REQUEST 
IF  MGNSAVE  WAS  0,  REQUEST  MONREQ 


PLACE  MONITOR  VERB  AND  NOUN  INTO  MONSAVE 
ZERO  THE  KILL  MONITOR  BIT 
SET  UP  EXTERNAL  MONITOR  BIT 


CALLED  BY  WAITLIST 

TIME  IS  SNATCHED  IN  RUPT  FOR  NOUL  65 
IF  KILLER  BIT  = 0,  ENTER  REQUESTS 

IF  KILLER  BH  = 0,  ENTER  REQUESTS 

IF  K 1 1 LET  BIT  = 1,  NO  REQUESTS 

IF  KILLER  BIT  = 1,  NO  REQUESTS 

ENTER  WAITLIST  REQUEST  FOR  MONREQ 


ENT  Ec  EXEC  REQUEST  FOR  MONDO 


ZERO  MONSAVF  AND  TURN  KILLER  BIT  OFF 

TURN  OFF  KILL  ION  I TOR  BIT. 

TURN  OFF  EXTERNAL  MONITOR  BIT. 

FOR  1 SEC  MONITOR  INTERVALS 


CALLED  BY  EXEC 

IF  KILLER.  BIT  = 0,  CONTINUE 

IF  KILLER  BIT  = 0,  CONTINUE 

IN  CASE  TERMINATE  CAME  SINCE  LAST  MONREQ 

IN  CASE  TERMINATE  CAME  SINCE  LAST  MONREQ 


NVSUB  IS  BUSY 
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0 2c  ,6  1 ENDMi  NDC  1 C TEST  NN 
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SETLOC  FFTAG8 
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EXTEND 
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1 

CA 
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PAST EOPT 
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UPOATVB 

3 4755 

1 

CAF 

ZERO 
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EN DP  AST E 

TC 
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PLACE  NOUN  INTO  NOUNREG  AND  DISPLAY  IT 

CHANG  E mi  v n ’ VERB  TO  DISPLAY  VE^B 
-DEC  10,  STARtING  IN  BITS 
RIGHT  7 


SET  RETUP L TC  PASTEVB  AFTER  DATA  DISPLAY 


PUT  ECADR  INTO  MPAC  +2.  I NT  MC  TBS  WILL 
DISPLAY  IT  AND  SET  NOUNCADP,  NOUNADD, 
E8ANK  . 


MVMONOPT  PASTE  OPTION 


PASTE  PLEASE  VERB  FOR  MVMONOPT 

PASTE  MONITOR  VERB  - PASTE  OPTION  IS  0 

RIGHT  7 

PLACE  MONITOR  VERB  OR  PLEASE  VERB  INTO 
VERBPEG  AND  DISPLAY  IT. 

ZERO  REQRET  SO  THAT  PASTED  VERBS  CAN 
BE  EXECUTED  BY  OPERATOR. 

PROCESS  NVMONQD~  BLANK  OPTION  IF  ANY 


-DEC10,  STARTING  IN  BITS 


TURN  KEY  RELEASE  LIGHT 


GAP:  ASSEMBLE  5 VI ."  ! 3?  001  OF  AGC  PROGRAM  AP11RLPE  3Y  EYLF.S  3 

L PINBALL  GAME  BUTTONS  AND  LIGHTS 

R 1985  DSPFMEM  IS  USED  TO  DISPLAY  (IN  OCTAL)  ANY  FIXED  REGISTER. 

R 1986  IT  IS  USED  WITH  NOUN  = MACHINE  CADR  TO  BE  SPECIFIED.  THE  FC ADR  Of  THE 
R 198"  DESIRED  LOCATION  IS  THEN  PUNCHED  IN.  IT  HANDLES  F/F  ( FC ADR  4000-7777) 

R 19871  F,  BANK'.  L/E  27,  THIS  IS  ENOUGH. 

R 19  87  2 FC  1 BANKS  G/E  30,  THE  THIRD  COMPCNENT  Of  NOUN  26  (FRIO,  AORES,  BBCON) 

R 19  87  3 MUST  BF.  PREI.OA  DED  WITH  THE  DESIRED  SUPERBANK  BITS  (BITS  5,6,7). 

R 19374  V23N26  SHOULD  BE  USED. 


R 19875  SUMMARY 

R 1987 6 FO’  BANKS  l /E  27,  V27HO 1 E { FC ADR ) E 

R 1987  7 FOR  BANKS  G/E  30,  V23N26E ( SUPERB  I TS ) E V27N0 1 E ( FC ADR ) E 
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DSPCCTWD 
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IF  F/F,  DATACALL  USES  BANK  02  OR  03. 

SUPERBANK  BITS  WERE  PRELOADED  INTO 
3RD  COMP ON ENT  OF  NOUN  26. 

ORIGINAL  FCADR  LOADED  STILL  IN  NCUNCADR. 
CALL  WITH  FCADR  IN  A,  SUPERBITS  IN  L. 
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1995  REF-  4 LAST  433  4 1,3200 

199  5 5 ? EF  5 LAST  All  Tf  434:  120  577* 


199 1 

1 QQ  7 

REF 

QLC 

100 

1 
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I y ” I 

1 3 - 
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2004 

2005 

2006 
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187 
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49  1 
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0 , 3 2 C 1 5 4 144  1 
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4 C» 3204  0 3213  1 

4-0,3205  6 47  5 3 1 
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40.3210  4 0155  1 

40.3211  541551 

40.3212  0 0144  0 

40.3213  0 2413  0 

90.3214  0 0144  0 


St i 1 OG  TEST OFUE  +4 
COUNT  * 4>  $ / P I N 
XCH  0 
TS  OSPWDP ET 

CCS  MPAC 
TC  +8D 
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DXCH  MPAC 
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DSPDECaD  CONVERTS  C(  -1PAC,  MPAC  + 1)  INTO  A SIGN  AND  5 CHAR  DECIMAL 
STARTING  IN  IRC  SPECIFIED  IN  DSPCOUNT.  IT  POUNDS  BY  5 EXP-4. 


2021 

REF 

1 

40, 3227 

54  115 

0 

TS 

W DR  ET 

2022 

R EF 

1 

40,3230 

0 32  00 

0 

TC 

DSP  SIGN 

202  3 

REF 

1 

46,3231 

0 3215 

1 

TC 

DSPRND 

202* 

REE 

7 

LAST 

3 33 

40, 323? 

3 4751 

0 

CAF 

FOUR 

2025 

REF 

1 

40,3233 

54  137 

0 

DSP1CWD1 

TS 

W DC  NT 

2026 

REF 

1 

40,3234 

3 4363 

0 

CAF 

BINCON 

2027 

REF 

::  5 

L AST 

434 

40, 3235 

0 73  07 

1 

TC 

SHORTMP 

2028 

s EF 

1 90 

LAST 

441 

40,3236 

50  154 

l 

TRACE] 

INDEX 

MPAC 

202  c 

P EF 

3 

LAST 

3°° 

40,3237 

3 4 C 6 6 

0 

CAF 

f',  ELI  A3 

203  0 

REF 

5 

LAST 

42  9 

40, 3240 

7 434-6 

0 

MASK 

LOW  5 

2031 

REF 

6 

LAST 

422 

40,324 1 

54  124 

1 

TS 

CODE 

2032 

REF 

90 

LAST 

439 

40 , 3242 

3 47  55 

1 

CAF 

ZERO 

2033 

REF 

191 

LAST 

441 

40, 324  3 

56  156 

0 

XCH 

MPAC 

2034 

REF 

192 

LAST 

44  ] 

40,3244 

56,  155 

0 

XCH 

MPAC 

2035 

R EF 

193 

LAST 

44  1 

90, 3245 

5 4 1 O'- 

0 

rs 

MPAC 

2036 

REF 

43 

LAST 

440 

4-0 , 324  f 

5 6 7 7 7 

0 

vru 

iKPrnuMT 
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LAST 
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1 

TC 

WDRET 

2046 

40,3260 
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2047 

40,3261 
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0 
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R 2 04  c 

DSPDFCNP 

CQNVE  M'S  Cl 

iPAC,MPAC+l)  INTO 
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R 2049 
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DSPCOUNT. 

IT  DOES  NOT  BOUND 
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TC 
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DSPDC2NR 
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40,3275 

3 4755 

1 
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1 5 
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422 

40,3277 
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R 207  4 DS ! DECV"  DISPL  AYS  C ( A ) UPON  EM  v AS  A 2 GLIA'  DECIMAL  BEGINNING  IN  THE 

R 207  5 DSP  LOC  SPECIFIED  IN  DSPCOUNT. 
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2085  REF  3 LAST  423 
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CAP  ZERO 
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TC  DSPDC2NF  +3 
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20915  REF  !■:  LAST  439  TO  44.1 : 12  755*  COUNT*  $$/PIN 
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50  000  1 

3 4066  0 
7 4346  0 

124-  1 

56  777  0 
54  143  0 
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TC 
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MULT  BY  .01 
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NO  SIGN,  NO  FOUND,  2 CHAP 
.01  ROUNDED  UP 


THIS  TS  NOT  FOR  GENERAL  USE.  REALLY  PART 
OF  UP  DAT VB . 


MUST  USE  SAME  RETURN  AS  DSP2BIT. 
10  BLANK  SIGNS 


DECREMENT  OSPCOUNT  EXCEPT  AT  +0 


+ 

TO  BLOCK  NUMERICAL  CHARACTERS,  CLEARS, 
AND  SIGNS  AFTER  A COMPLETED  DISPLAY. 
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ROUTINES 
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CODE 
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10  000 

0 

CCS 

A 

2158 

REF 
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PAGE  444 
EO  S4 


MANY  OF  THE 
AS  RETURN. 
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40,3376 
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CnoF 

• 
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REF 
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40, 3406 
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LAST 
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40,3407 
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2199 

REF 

2 

LAST 
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5 
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2202 

p fF 
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CODE 
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1 

EXTEND 
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1 

BZF 
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1 
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C OUNT 
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1 

cs 
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1 

M ASK 
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1 v..  JL  *T 

1 
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0 

AD 
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0 
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0 
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1 

XCH 

DSPTAB 

Q 0006 

1 

EXTEND 
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0 

BZMF 
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1 

I NCR 

NOUT 
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1 

DSL  V 

R E L I N T 

0 Cl  14 

0 

TC 

DSEXIT 

00037 

0 

DSMSK 
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37 

01740 

0 

ncT 

1 74C 

02000 

0 

OCT 
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03740 

1 

OCT 

3740 

OF 

DSPTAB 

ENTRY  INTO  A, 

i in  en  ii 

54 

141 

1 

11DSPIN  TS 

DSREL 

3 

4752 

0 

CAF 
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54 

143 

0 

TS 

COUNT 

56 

002 

0 

XCH 

Q 

54 

114 

1 

TS 

DSEXIT 

o 

3347 

1 

TC 

DSP  INI 

0 3322 

1 

DSFOCTIN 

TC 
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1 

CAF 
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1 

TC 
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TC 

ENDOF  JOB  IN 

EM  LET 
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1 
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0 
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1 
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CS 
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22112 
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o 
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40 , 3425 
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0 

AD 
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22113 

22114 
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2212 
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BZF 

TC 
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TC 
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PUT  MONITOR  VERB  BACK  IN  VERBPEG 

NOT  NVSJB  INITIATED.  TURN  ON  OPR  ERROR 


A L'- CYCLE  TURNS  ON  CHECK  FAIL  LIGHT,  REDISPLAYS  THE  ORIGINAL  VERB  THAT 
WAS  EXECUTED,  AND  RECYCLES  TO  EXECUTE  THF  LUIGI'  AL  VERB /NOUN  COMBINATION 
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BAN KC ALL 

PUTS  ORIGINAL  VERB 

INTO  VERBREG  AND 

2231 

REF  8 

LAST 

439 

15  1 

62337  1 

CADR 

UPDATVB  -1 

DISPLAY*  IT  IN  VERB 

L IGHTS. 

2232 

REF  29 

LAST 

443 

4 152 

0 4635  0 

TC 

POST  JUMP 

2233 

REF  2 

LAST 

399 

4153 

62002  1 

FNDAI  M CADI- 

ENTER 

R 2 2 3 7 

MMCHANG 

USES 

NOUN  D 

I SPLAY  UNTIL  ENTER. 

THEN  IT  USES  MODE  DISP. 

R 22  3 r 

IT  GOES 

TO  MOD POUT 

WITH  THE 

NEW  M M GO 

DE  IN  A,  BUT  NOT 

DISPLAYED  IN 

P 2236 

MM  LIGHTS. 

R 2237 

IT  DEMANDS  2 

■NIUMEP  I 

CAL  CHARACTERS  BE  PUNCHED  IN  FO*  NEW 

MM  CODE. 

R 2238 

TF  NOT, 

I T RECYCL  ES 

• 

I 


I 


I 

) 

) 

i 

> 


i 


GAP:  ASSEMBLE  REVISION  001  OF  AGC  PROGRAM  AP11R0FE  BY  EYLtS 

L PINBALL  GAME  BUTTONS  A NO  LIGHTS 


3:15  DEC.  2, IS 70  API 1 AID  .001  PAGE  447 
USER'S  PAGE  NO.  58  EO  S* 


22  3 S 


REF 


41,3430 


SETLOC  DSP2B IT  +10D 


22.3  9 5 
2240 
A 2?4l 
A 2242 

2243 

2244 
22^5 
2246 
22*  7 
224R 

2249 

2250 
225  1 
2252 
2254 

2254 

2255 

2256 

2257 
22  58 
225  ■- 


REF  6 LAST  443  TO  444;  37  792*  COUNT*  $$/PIN 

REF  1 41,3430  0 3452  1 MFC  HANG  TC  < EO'-  M 


REF  21  LAST  376 
REF  51  LAST  446 


1 EF  14  LAST 
REF  °3  LAST 
REF  12 
REF  196 
REF 

REF  52 
REF  SO 
REF  4 
REF  10 
REF  53 
REF  197 
REF  30 
REF  1 


41 , 3431 
4 1 , 3432 

41.3433 

41 .3434 

4 1 . 3435 

41.3436  3 6755 
57 '002  1 
54  154  0 

6361  1 
54  777  1 
1 4616  1 
60601  0 
4 4360  1 
54  777  1 
3 G 154  1 
0 4635  0 
1 


CAF  B I T 5 

AD  DSPCOUNT 

EXTEND 
BZF  4-2 

TC  ALMCYCLE 

CAF  ZERO 

XCH  NCUNREG 

MPAC 
ND1 

DSPCOUNT 
TC  BANKCALL 

CADE  2 BLANK 

CS  VD1 

TS  DSPCOUNT 

CA  MPAC 

TC  POST  JUMP 

C ADR  MOOR OUT  B 


6 3 6 
443 

LAST  437  41,3437 

LAST  463  41,3440 

LAST  41 1 4 1 , 344 1 3 

LAST  447  :4 1,34*2 

LAST  646  41,3443 

LAST  405  41,3444 

LAST  446  41,3445 

LAST  447  41,3446 

LAST  447  41,3447 

LAST  446  41,3450 

41,3451  IOC 40 


3 4747  1 
6 0777  0 

0 CG06  1 

1 34  36  1 
0 4145  0 

1 


TS 

CAF 

TS 


ENTPASHI  ASSUMES  THE  TC  REQMW  AT  MMCHANG 
IF  THIS  MOVES  AT  ALL,  MUST  CHANGE 
MMADREF  AT  ENTPASHI. 

0CT20  = ND2 . 

DSPCOUNT  MUST  = -ND2. 

DEMAND  THAT  2 NUM  CHAP.  WERE  PUNCHED  IN. 

DSPCOUNT  NOT  = -ND2.  ALARM  AND  RECYCi  E. 
DSPCOUNT  = — ND2. 


BLOCK  NUM  CHAR  IN 


GO  THF  U STANDARD  LOC. 


2260 

2261 

2262 

2263 

22  6 6 

REF 

REF 

REF 

REF 

REF 

2 

1 11 

12 

5 

e4 

LAST 

LAST 

LAST 

LAST 

L A CT 

298 

445 

446 

447 

647 

C4 

41 
41 
4 1 

i,  i 

2265 

0 EF 

94 

LAST 

447 

41 

2266 

REF 

13 

LAST 

447 

41 

2267 

REF 

91 

LAST 

447 

41 

22  68 

REF 

5 

LAST 

447 

41 

2269 

REF 

3 

LAST 

411 

41 

2?~7n 

REF 

52 

L AST 

445 

* 1 

2271 

REF 

18 

LAST 

436 

41 

2272 

REF 

10 

LAST 

446 

41 

2040 

3452 

4 0002 

1 

MO DP  OUT B 
REQMM  : 

CS 

3453 

5 5 1 G 1 3 

0 

TS 

34  5 4 

3 4361 

1 

CAF 

345  5 

54  777 

1 

TS 

3456 

3 4755 

1 

CAF 

3457 

55*002 

0 

TS 

34  6 C 

0 46  16 

1 

TC 

346  1 

6 0601 

0 

CADE 

346  2 

0 4 4 27 

I 

TC 

346  3 

3 4 753 

1 

CAF 

3464 

55*000 

1 

TS 

3465 

0 0136 

0 

TC 

V 37 
Q 

PEQP 6T 
ND1 

DSPCOUNT 

ZERO 

NOUNREG 

BANKCALL 

2 BLANK 

FLASHON 

ONE 

DECBRNCH  SET  FOR  DEC 

ENTFXIT 


R 2273  VBPQEXEC  ENTERS  REQUEST  TO  FXLC  FOR  ANY  ADDPFSS  WITH  ANY  PRIORITY. 

R 22~t t IT  DOFS  ENQOF  JOB  AFTER  ENTERING  REQUEST.  DISPLAY  SYST  IS  RELEASED. 

R 227?  IT  ASSUMES  NOUN  26  HAS  BEEN  PRELOADED  WITH 

P 2276  Cl  1 PONENT  1 PR  I OF  I T Y (;&I  TS  10-14)  8IT1=0  FOP  NOVAC,  B I T 1=  1 FOR  FINDVAC. 

R 2277  COMPONENT  2 JOB  ADRES  (12  BIT  ) 

P 227  8 COMPONENT  3 BBC  'I! 

22 7 c p EF  20  LAST  464  *1,3466  3 4753  1 VBROEXEC  CAF  BIT1 

2280  REF  18  LAST  440  41,3467  7 1045  0 MASK  DSPTEM1 

2281  REF  142  LAST  4*-  5 41,347C  10  OCO  0 CCS  A 


GAP:  ASSEMBLE  REVISION  001  CF  AGC  PROGRAM  AP11RCPE  BY  tYLES 
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2282 

22P3 

2284 

22RB 

22. 

2287 

2288 
2 2 ' 
2? 

2271 

2292 

22c? 

2294 

2295 
229, : 


RFF 

1 

REF 

1 

REF 

198 

LAST 

46  7 

REF 

21 

LAST 

447 

REF 

19 

LAST 

44? 

REF 

1 9 g 

(AST 

44  8 

REF 

6 

LAST 

427 

REF 

5 

LAST 

437 

REF 

200 

LAST 

448 

REF 

20 

LAST 

448 

P EF 

20  1 

L A 5 T 

448 

REF 

202 

LAST 

446 

REF 

203 

L A ST 

448 

4 1.3471 

4 1 . 3472 
1 , 3473 

41 , 3474 
41,34"' 5 
41  ,3476 
4 1 , 3477 

41.3500 

41 . 3501 
u 1 ,3502 
‘ 1 ,350  3 

41 .3504 

41 . 3505 

41.3506 

41 . 3507 


0 3510  0 

3 4351  1 
54  154  0 

4 - 75  3 0 

7 ] 045  C 
‘4  160  l 

0 4457  0 
3 4217  1 
54  157  0 
0 61 06  1 
3 1047  0 
"2  156  1 
3 0160  0 
0 0004  0 
0 0154  1 


REQEX1 


FEQUESTC 


TC  S ET VAC 

CAP  TCNQVAC 

t PAG 

CS  3IT1 

MASK  0SPTEM1 

TS  M P AC  +4 

TC  P.ELDSP 

CA  END  INST 

VS ....  MPAC  +3 

EX  TEND 

OCA  0SPTEM1  +1 

DXCH  MPAC  +1 

CA  MPAC  +4 

INHTNT 
TC  MPAC 


2297  5 E F 1 '*1,3510  3 4354  1 SETVAC  CAP  TCFINDVC 

220P  P.E-P  1 41,3511  C 3473  1 TC  F.EQEX1 


F 2299 

VBROWA  T T 

ENTERS  REQUEST  TO  WAITLIST  FOR  ANY  ADDRESS 

WITH 

1 ANY  DELAY. 

R230C 

IT 

DOES  ENDOF JOB  AFTER  ENTERING  REQUES T.DISPL AY 

SYST 

IS 

R ELEASED. 

R2301 

IT 

ASSUMES  NOUN  26 

HAS  BEEN 

PREl  LADED  WITH 

R 2302 

COMPONENT 

I 

DELAY 

(L  i".'1  PITS  ) 

R 2303 

component 

2 

TASK 

ALICES  (12 

BIT) 

R 2304 

COMPONENT 

3 

BBCON 

2305 

REF 

1 

41,3512 

3 '352  1 V13RQWAIT 

CAF 

TCWA IT 

239/ 

REF 

204 

LAST 

44  8 

4 1 , 35  1 3 

54  154  0 

TS 

MPAC 

2307 

PEF 

21 

LAST 

44  8 

4 1 , 35  J 4 

3 1045  1 

CA 

DSPTEM1 

230B 

REF 

1 

61,351 5 

0 1 FNDROWT 

TC 

c CA| IF ct r _ i 

cwur  . 1 

R 2307 

R EOUESTC 

WI  LL 

PUT 

TASK  AORES 

AC + 1 , Ci- 

INTO 

MPAC+2 , 

R231C 

TC 

ENDOFJGB  INI!)  MPAC +3.  IT 

v-ill  TAKE  TIME  DELAY 

OUT 

OF 

MPAC+4  AND 

R 23 1 1 

IEAVF  IT 

IN  A 

, I NH I NT  AND  TC 

MPAC  . 

2312 

REF 

2 

LAST 

446 

40, 344  2 

SETLOC 

NVSBFNDI  +1 

2312  5 

REF 

7 LAST 

444 

TO  446: 

80  739  * 

COUNT* 

$ $/ P I N 

2313 

REF 

53 

LAST 

447 

40,3442 

3 47  53  1 VBPF-OC 

CAF 

ONE 

2314 

P.EF 

2 

LAST 

427 

40, 3443 

55*014  1 

TS 

LOADSTAT 

231  5 

REF 

2 

LAST 

446 

40,3444 

0 4204  0 

TC 

K 1 LM-.TNGN 

2316 

PEF 

7 

LAST 

44  n 

40,3445 

0 4457  0 

TC 

RELDSP 

2317 

REF 

3 

LAST 

406 

40 , 3446 

0 4433  1 

TC 

FLASHOFF 

2318 

REF 

2 

LAST 

427 

40,3447 

0 3547  1 

TC 

RECALTST 

2319 

REF 

54 

LAST 

44  8 

40 , 34  50 

4 4753  0 VBTEP.M 

CS 

CNE 

2326 

RFF 

2 

LAST 

409 

40,365 1 

0 3443  1 

TC 

VBPPnc  +1 

3:15  DEC.  2,1970  AF11AID  .001  PAGE  448 

USER'S  PAGE  NO.  59  EO  S4 

IF  BIT1  = 1,  FINDVAC 
IF  BIT1  = 0,  NOVAC 

TC  NOVAC  OF  TC  FINDVAC  INTO  MPAC 


PR  10  Tf‘TC  MPAC+4  AS  A TEMP 


TC  ENDCFJOB  INTO  MPAC +3 

JOB  AD(  E$  INTO  MPAC.+  I 
BBCON  I NT C MPAC  + 2 
PRIO  IN  A 


IC  WAITLIST  INTO  MPAC 
TIME  DELAY 


PROCEED  WITHCUT  DATA 
TURN  ON  KILL  MONITOR  BIT 

SEE  IF  THERE  IS  ANY  RECALL  FROM  ENDIDLE 


T Ec  M VERB  SETS  LOADSTAT  NEG 


GAP:  ASSEMBLE  REVISION  . v i Of  AGC  PROGRAM  API]  HOPE  BY  fcYLfcS 


3: L 5 DEC 


2,1970  APL1AJD 


001  PAGE  449 


R 23201 
R 2320  2 
232'  5 
232  06 
2320? 

23208 

23209 


R 232  1 
P 2322 
R 2323 
R2324 

2325 
23?  f 


PINBALL  GAME  BUTTONS  AND  LIGHTS 


PPOCKEY  PERFORMS  THE  SAME  FUNCTION  AS  VBPROC.  IT  MUS 
EXECUTIVE  CONTROL,  WITH  CHPPRIO. 


REF 

95 

LAST 

447 

40,3452 

3 ‘,7  55 

1 

PF-OCKEY  CAF 

REF 

13 

LAST 

447 

40,3453 

5 5 * 0 13 

0 

TS 

SEF 

11 

LAST 

447 

40 , 34  54 

4 4 3 60 

1 

CS 

?EF 

5 

LAST 

4 47 

40, 3455 

777 

1 

TS 

REF 

3 

LAST 

448 

40,3456 

0 3442 

0 

TC 

USER'S  PAGE  NO.  60  EO 

T BE  CALLED  UNDER 

ZERO  SET  REQRET  FOR  ENTER  PASS  0. 

REQRET 

VDI  BLOCK  NUMERICAL  CHAR  A CT  ER  S , SIGNS 

DSPCOUNT 

VBPROC 


VBRESEO  WAKES  END  tOJ.  E AT  SAME  LINE  FINAL  ENTER  OF  LOAD  (L  + 3). 

( '-'AIN  USE  IS  INTENDED  AS  -ESPOUSE  TO  INTERNALLY  INITIATED  FLASHING 
DISPLAYS  IN  ENOTDLE.  '-HriJLO  NOT  BE  USED  WITH  LEAD  VERBS, PfFASE  DERPtlRM, 

OP  PI FASE  MARK  \®RBS  BECAUSE  THEY  ALREADY  USE  L+3  IN  ANOTHER  CONTEXT.) 

REF  96  LAST  4^9  40,3457  4 4755  0 VBRESEQ  CS  ZERO  MAKE  IT  LOCK  LIKE  DATA  IN. 

REF  LAST  4,'  ? <0,3-(.  0 344  3 1 TC  VBPECC  +1 


S4 


, CLEAR 


P 2327 
R232E 


FLASH  IS  TURNED  OFF  BY  PROCEED  WITHOUT  DATA,  TERMINATE,  RESEQUENCE 
END  OF  LOAD. 


AP II  AID  .001  PAGE  450 
ND.  61  E0  S4 

P2329  KEY  RELEASE  ROUTINE 

R 2330  THIS  ROUTINE  ALWAYS  TLUNS  OFF  THE  UPACT  LIGHT  AND  ALWAYS  CLEARS  DSPLOCK. 

R 233 1 THE  HIGHEST  PRIORITY  FUNCTION  OF  T HE  KEY  RELEASE  BUTTON  IS  T HE 
R 2332  )L«c.u<oe  - DING  OF  A SUSPENDED  MONITOR  WHICH  WA<  EXTERNALLY  INITIATED. 

R 233  3 THIS  FUNCTION  IS  ACCOMPLISHED  BY  CLEARING  DSPLOCK  AND  TURNING  OFF 

R 2334  THF  KEY  RELEASE  LIGHT  IF  BOTH  DSPLIST  AND  CADRST  OR  APE  EMPTY. 

P 2 3 2 r IE  OF.  SUCH  MON  IT  EXTSTS,  THE  N RELDSP  IS  EXECLTFO  Tr  CLEAR  DSPLOCK 

R 233  E AND  THE  EXTERNAl  MONITOR  BIT  (FREEING  THE  DISPLAY  SYSTEM  FOR  INTERNAL 

P 2337  USE),  TURN  nFF  the  KEY  R€LE  ASL  LIGHT,  AND  WAKE  UP  ANY  JOB  IN  DSPLIST. 

R2338  IN  ADDITION  IF  THERE  IS  A JOB  IN  ENDIDLE,  THEN  CONTROL  IS  TRANSFERRED 

R2339  TO  PINBRNCH  (IN  DISPLAY  IF  , E-  FACE  ROUTINE)  TO  RE-EXECUTE  THE  SErIES  OF 
R 233°  1 IV..UB  CALLS  ETC.  T H AT  PRECEDED  THE  ENDIDLE  CALL  STILL  AWAITING  FESPONSE. 

R 234-0  THIS  FEATURE  IS  INTENDED  FOR  USE  WHEN  THE  OPERATOR  HAS  BEEN  REQUESTED  TO 

R 234 J RESPOND  Tr  RoyF  TNTFPNAL  AC  T I f ' 'HAT  USED  ENDIDLE,  B UT  HE  HAS  WRITTEN 

P 2342  OVEF  THE  INFORMATION  ON  THE  DISPIAY  PANEL  BY  SOME  DISPLAYS  OF  HIS  OWN 

R 234  3 INITIATION  WHICH  DO  NOT  SERVE  AS  RESPONSES.  HITTING  KEY  RLSE  WILL 

R 2 344  RE-ESTABLISH  ''HE  DISPLAYS  TO  THE  STATE  THEY  WERE  IF  BEFORE  HE  OBSCURED 

e 23‘trt  THE  , SO  THAT  HE  CAN  SEE  THE  WAITING  REQUEST . THIS  WORKS  ONLY  FOR 

R234-.  INTERNAL  PROGRAMS  THAT  USED  ENDIDLE  THROUGH  MARGARETS  DISPLAY 
R 2347  SUBROUTINES. 
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2343 
2349 
23  5G 

2351 

2352 

2353 


REF  21  LAST  424 


REF 

REF 

REF 

REF 


1 1 
2 
41 

6 


t AST 
LAST 
LAST 
LAST 


219 

39F. 

444 

439 


40.3461 

40 . 346 2 
■'■r  , 3463 

40 . 3464 

40.3465 

40 . 3466 


4 4751  1 
0 (006  1 
03  011  1 
10  1150 
3 4736  1 
7 1021  1 


2354 

2355 

REF 

REF 

143 

1 

LAST 

447 

40,3467 

40,3470 

40*3471 

10  000 
0 4.  7 7 

0 

n 

2356 

R E F 

8 

LAST 

448 

'J  JT  i / 

0 6 6 57 

u 

0 

2357 

REF 

5 

L AST 

4 3 6 

40*3472 

1 1 '042 

1 

2358 

2359 

REF 

53 

LAST 

446 

40,-34  7 3 
40,3474 

0 3475 
0 5155 

1 

0 

2360 

REF 

31 

LAST 

447 

40,3475 

0 4635 

0 

2361 

REF 

4 

LAST 

298 

40,3476 

210  50 

1 

2 36  2 

REF 

97 

LAST 

449 

40 , 3477 

3 4755 

1 

2363 

REF 

5 

LAST 

438 

40,3500 

55*012 

1 

23  64 

REF 

6 

LAST 

4.50 

40,3501 

1 1 '042 

1 

2365 

REF 

54 

LAST 

450 

40, 3502 

0 515  5 

0 

2366 

REF 

2 

LAST 

43  8 

40,3503 

0 6.  502 

1 

23661 

REF 

55 

LAST 

450 

40,3504 

0 5155 

0 

V BREL  DSP 

CS 

B I T 3 

EXTEND 

WAND 

DSALMQUT 

TURN  OFF  UPACT  LITE 

CCS 

21/22RFG 

OLD  DSPLOCK 

CAE 

BIT14 

MASK 

M0NSAVE1 

EXTERNAL  MONITOR  BIT  ( EMB ) 

CCS 

A 

TC 

UNSUSPEN 

OLD  DSPLOCK  AND  EMB  BOTH  1,  UNSUSPEND 

TSTLTS4 

TC 

RELDSP 

NOT  UNSUSPENDING  EXTERNAL  MONITOR, 

CCS 

C ADD  STOP 

RELEASE  DISPLAY  SYSTEM  AND 

TC. 

+ 2 

DO  RE-ESTABI  ISH  If  CAD^STCR  IS  FULL. 

TC 

ENDOF JOB 

TC 

PGSTJUMP 

CADR 

PINBRNCH 

UNSUSPEN 

CAE 

ZERO 

EXTERNAL  MONITOR  IS  SUSPENDED, 

TS 

DSPLOCK 

JUST  UNSUSPEND  TT  BY  CLEARING  DSPLOCI 

CCS 

CADRSTOR 

TURN  KEY  RELEASE  LIGHT  OFF  IF  BOTH 

TC 

ENDOF JOB 

CADRSTOf  AND  DSPLIST  ARE  EMPTY. 

TC 

RELDSP1 

TC 

ENDOF JOB 

2367 


40,3505 


FN  DP.  ELDS  EQUALS 
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P236P 

R 2369 

R 2 3 7 0 

R 2370 1 

R 23702 

NVSlJB  IS  USED  FOR  SUB  ROUTINE  CAILS  FROM  WITHIN  COMPUTER.  IT  CAN  BE 

USED  TO  CALL  THE  COMBINATION  OF  ANY  DISPLAY,  LOAD,  OR  MONITOR  VERB 

TUG ETHEL  WITH  ANY  NOUN  AVAILABLE  TO  THE  KEYBOARD. 

PLACE  OVVVVIVVNNNNI'  VN  INTO  A. 

V-c  ALE  THE  7 dll  VF’  B CODE.  N-S  ARE  THE  7 BIT  NOUN  CODE. 

R 237  03 

R 23704 

R 2 37  0 5 

IF  NVSUB  IS  CALLED  WITH  THE  FOLLOWING  NEGAT I VE  NUMBERS  (RATHER  THAN  THE 

VERB-NOUN  CODE)  TN  A,  THEN  THE  DISPLAY  IS  BLANKED  AS  FOLLOWS- 
-4  FULL  .BLANK,  -J  LEAVE  0 DE,  -2  LEAVE  MODE  AND  VE  3,  -1  BLANK  -S  ONLY 

R 2 37  1 

R 237  2 

NVSUB  CAN  BE  USED  WITH  MACH  CADR  TO  BE  SPEC  BY  PLACING  THE  CAD*  INTO 

MPAC+2  BE  FOP E THE  STANDARD  NVSUB  CALL. 

R 2373 

R 237  4 

F 2375 

R 2376 

P 2377 

NVSUB  RETURNS  TO  2+  CALLING  IOC  AFTER  PERFORMING  TASK,  IF  DISPLAY 

SYSTEM  IS  AVAILABLE.  EE  NEW  UDJN  AND  VERB  CODES  ARE  DISPLAYED. 

IF  V : S =0  , THE  ’DR  ! iu  f,  IDE  IS  DISPLAYED  ONI.  Y(  i-  ETURN  WITH  NO  FURTHER 

ACTION  1 . IF  NrS  =C,  THE  NEW  VERB  CODE  IS  DISPLAYED  ONLY ( R ETURN  WITH  NO 

FIL'TME'  ACTION  ) . 

P 2378 
R2379 

R 238  0 

R 23°  1 

IT  F'ETUPNS  TO  1+  CALLING  LOC  WITHOUT  PERFORMING  TASK,  IF  DISPLAY 

SYSTEM  IS  BLOCKED  (NOTHING  IS  DISPLAYED  IN  THIS  CASE). 

IT  D E5  TC  ABORT  (WITH  Cl  ID  (F  IT  ENCOUNTERS  A DISPLAY  PROGRAM 

ALARM  CONDITION  BEFORE  RETURN  TO  CALLER. 

R 2 382 

P 23  83 

R 238* 

R 2 3 8 r 

R 2 3 3 f 

P 23  ° 7 

R 2388 

THE  DISPLAY  SYSTEM  IS  BLOCKED  BY  THE  DEPRESSION  OF  ANY 

KEY,  EXCEPT  ERROR  LIGHT  RESET 

IT  I S RELEASED  BY  TEE  KEY  RELEASE  BUTTON,  ALL  EXTENDED  VERBS, 

PROCEED  WITHnjT  DATA,  ‘DOMINATE,  RESEQUENCE,  INITIALIZE  EXECUTIVE, 

3 EC  A 1 1 PAST  LF  ECAL  TST  IF  ENDIDIE  WAS  USED, 

Vfi  = PEOIJFCt  E XEC(Jt  T VP  , V8  = REQUEST  WAIT!  1ST, 

MONITOR  SET  UP. 

R 238  3 1 THE  0 1 5PI  AY  SYSTEM  IS  ALSO  BLOCKED  BY  THE  EXTERNAL  MONITOR  BIT,  WHICH 
R 238  82  INDICATES  AN  EXTERNALLY  INITIATED  MONITOR  IS  RUNNING  (SEE  ITOR) 


P 2389 

R 2389  1 

A NVSUB  CALL  THAT  '"ASSES  DS PL §fe K AND  THE  EXTERNAL  MONITOR  BIT  ENDS  OLD 

MONITOR. 

F 239C 

R 239  1 

Do P LOCK  IS  THE  INTERLOCK  FUR  USE  OF  KEYBOARD  AND  DISPLAY  SYSTEM  WHICH 

LOCKS  OUT  INTERNA!  USE  WHENEVER  THERE  IS  EXTERNAL  KEYBOARD  ACTION. 

P 2391  1 

R 2391  2 

R 23913 

R 23914 

R 239  1 f 

R 239  1 6 

R 23°  1 7 

N V f,  US’  SHOULD  BE  USED  TWICE  to  SUCCESSION  F0C  : PLEASE  PERFORM:  SITUATIONS 
(SIMILARLY  FOP.  PLEASE  MAPK).  FIRST  PLACE  THE  CODED  NUMBER  FOR  WHAT 

ACTION  IS  DESIRED  OF  QPE'ATnr  INTO  thE  REGISTERS  REFERRED  TO  BY  THE 
: CHECK  L I S 1 : ! 1 UN  • G(  1 t VSUB  WITH  A DISPLAY  VERB  AND  THE  : CHECKLIST.-: 

NF'Ulv.  GO  TO  NVSUB  AGAIN  wITH  THE  :PLEASE  PERFORM:  V FRB  AN  C ZEROS  IN  THE 

LOW  7 BITS.  THIS  : PASTES  UP:  THE  : PL  EASE  PERFORM:  VERB  INTO  THE  VERB 

LIGHTS. 

R 239 1 8 

NVMONOPT  IS  AN  ENTRY  SIMILAR  TO  NVSUB,  BUT  REQUIRING  AN  ADDITIONAL 

GAP:  ASSEMBLE  REVISION  001  OF  A GC  PROGRAM  AP11R0PE  BY  EYLES 

L PINBALL  GAME  BUTTONS  AMP  LIGHTS 


970 

AP11 

AID 

.001  PAGE 

PAGE 

MO. 

63 

EO  S 4 

R 239 1 £ 1 PARAMETER  IN  L.  . IT  SHOULD  BE  USED  ONLY  WITH  A MONITOR  VERB-NOUN  CODE  IN 
R23°182  A.  AFTER  EACH  ION  I OR  11  AY  A *PLEASE*  VFRB  WILL  BE  PASTED  IN  THE  VE^B 
R 239 1 83  LIGHTS  l)P  DATA  Will  BE  BLANKED  (OR  BOTH)  ACCORDING  TO  THE  OPTIONS 
R2391B4  SPECIFIED  IN  L.  IF  BITS  8-1-';  OF  L ARE  OTHER  THAN  ZERO,  THEN  THEY  WILL 
R 239 1 £ 5 BE  I'TEi  PRETED  AS  A VE^B  CODE  AND  PASTED  IN  'rHE  VERB  LIGHTS.  (THIS  VERB 
R 23°  1 £6  CODE  SHOULt)  DESIGNATE  ONE  OF  THE'  *PLEASE*  VERBS.)  IF  BITS  1-3  OF  L ARE 
R 2391 87  OTHER  THAN  ZERO,  THEN  THEY  WILL  BE  USED  TO  BLANK  DATA  BY  BEING  FED  TO 
R23<  1 8 { BLANKSUB.  IF  NVMONOPT  IS  USED  WITH  A VERB  OTHER  THAN  A MONITOR  VERB, 

R 23  9189  THE  PARAMETER  IN  l HAS  W3  EFFECT. 


R 239? 
R 2393 


NVSUB  IN  FIXED-FIXED  PLACES  2+CAl LING  LOC  INTO  NVQTEM,  TC  NVSUBEND  INTO 
EUTRET.  (THIS  WILL  RESTORE  "lD  CALLING  BANK  BITS) 


23  94 


REF 


4154 


SETLOC  ENDALM  +1 


2394  5 

2395 
239  6 


r-  EF 


RFF 


AS” 


446  TO 


i 7 ; 
4154 
4154 


24  * 

22  007  0 
54  123  0 


COUNT*  £ $ / P T N 


NVSUB 

NVMONOPT 


LXCH 

TS 


7 

NVTEMP 


ZERO  NVMONCPT  OPTIONS 


2397 

P EF 

42 

LAST 

450 

415  6 

3 473  6 

1 

CAE 

BI  T 14 

23971 

REF 

7 

LAST 

450 

4157 

7 1021 

1 

MASK 

M0NSAVE1 

EXTERNAL  MONITOR  BIT 

23972 

REF 

6 

l AST 

4 50 

41 6 0 

6 1012 

0 

AD 

DSPLOCK 

23973 

REF 

144 

LAST 

4 50 

416  1 

10  000 

0 

CCS 

A 

23974 

REF 

112 

LAST 

447 

h16  2 

0 C 002 

0 

TC 

Q 

DSP  SYST  BLOCKED.  RET  TO  1+  CALLING 

2398 

R E F 

55 

LAST 

44  8 

416  3 

3 4 75  3 

1 

oaf 

ONE 

OSP  SYST  AVAILABLE 

2399 

REF 

113 

LAST 

45  2 

4164 

6 0002 

0 

NVSBCOM 

AD 

Q 

2400 

REF 

1 

4165 

55'037 

0 

TS 

NVQTEM 

2+  CALLING  LOC  INTO  NVQTEM 

24001 

REF 

4 

LAST 

439 

4166 

23' 022 

0 

LXCH 

MGNSAVE2 

STORE  NVMONOPT  OPTIONS 

2401 

PvEF 

3 

LAST 

448 

416  7 

0 42  04 

0 

TC 

K I L MQNQN 

TURN  ON  KILL  MONITOR  BIT 

2402 

REF 

1 

4170 

3 '’20  1 

0 

NVSUBCOM 

CAF 

NVSBBBNK 

2403 

REF 

1 1 

LAST 

370 

4171 

56  006 

1 

XCH 

BBANK 

24031 

4172 

0 0006 

1 

EXTEND 

SAVE  OLD  SUPERBITS 

240  3 2 

REF 

4 

LAST 

274 

4 1 7 3 

04  007 

1 

ROR. 

SUPERBNK 

24  04 

REF 

1 

' 1 74 

55'040 

0 

TS 

NVBNKTEM 

2404  1 

REF 

2 

LAST 

2 74 

175 

3 9201 

0 

CAF 

PINSUPBT 

24042 

4-176 

0 0006 

1 

EXTEND 

2404  3 

REF 

5 

LAST 

452 

4177 

01  007 

1 

WP  ITE 

SUPERBNK 

2405 

REF 

1 

4200 

0 2000 

0 

TC 

NVSUBB 

GO  TO  NVSUB 1 THRU  STANDARD  LOC 

240  6 

REF 

5fc 

LAST 

449 

077  7 

EBANK= 

DSPCUUNT 

240  7 

REF 

2 

LAST 

406 

4201 

62101 

0 

NVSBBBNK 

BBCON 

NVSUB1 

24071 

P EF 

2 

LAST 

452 

4201 

PINSUPBT 

= 

NVSBBBNK 

CONTAINS  THE  PINBAIL  SUPERBITS. 

2412 

REF 

2 

LAST 

452 

4202 

53*  040 

0 

NVSUBEND 

DXCH 

NVQT  EM 

NVBNKTEM  MUST  = N VOTE  M+ 1 

2413 

REF 

2 

LAST 

283 

4203 

0 5165 

0 

TC 

SUPDXCHZ 

DTCB  WITH  SUPERBIT  SWITCHING 

2414 

REF 

1 

4 1 

, 3516 

SET LUC 

ENDRQWT  *1 

2^1405 

REF 

7 L 

AST 

447  TO 

448 : 

54  846* 

COUNT* 

$$/PIN 

R 241 4 12 

BLANKDSP 

BLANKS  DISPLAY 

ACCORDING  TO 

OPTION  NUMBER  IN  NVTEMP  AS  FOLLOWS 

I 
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R 241415 

-4 

FULL 

BLANK 

, -3 

LEAVE 

24 1 a L 9 

REF 

::  5 

LAST 

444 

41, 

241^22 

4 1, 

241425 

REF 

13 

LAST 

645 

41  , 

04 li JO 

P FF 

2 I 

L A ST 

2^4 

6 1 , 

241432 

REF 

14 

LAST 

45  3 

41  , 

241435 

REF 

26 

LAST 

445 

41  , 

OA  1 / *3Q 

c cp 

1 A R 

I JCT 

h L r 

1 # .J 

LA  . 1 

‘f  2 C- 

> 1 * 

24 1^42 

RFF 

8 

LAST 

445 

41 , 

241 4h5 

41  , 

241449 

REF 

15 

LAST 

45  3 

41, 

241452 

REF 

1 

41  , 

241455 

41, 

241'':  59 

REF 

2 

LAST 

452 

41, 

24 1 4 6 2 

Hi, 

241465 

41  , 

2 4 1 4 (-■  9 

RFF 

l AST 

47c 

u 1 . 

I " 

T D 

2414  72 

RFF 

14 

LAST 

447 

41  , 

241475 

REF 

12 

LAST 

427 

41, 

241475 

KEF 

12 

LAST 

4.45 

41, 

2M4  62 

R E F 

5 7 

1.  A ST 

45  2 

41, 

241'°* 

REF 

V. 

LAST 

44  8 

41  , 

24 1 4 P° 

REF 

] 

A 1 . 

= 1 9 

2415 

REF 

2 

L A$T 

453 

41  , 

|416 

REF 

6 

1 AST 

439 

41, 

2MF  1 

RFF 

3 

L A S T 

453 

' 1 , 

2M  >'  2 

4 1, 

24 1 f 3 

REF 

1 9 

LAST 

t 1 r 

1 . 

'If 

24164 

REF 

2 

LAST 

453 

41  , 

24165 

REF 

20 

LAST 

453 

41, 

26  17 

REF 

5 

Last 

439 

A 1 . 

• I-  t 

24  1 8 

RFF 

4 

LAST 

453 

41, 

24  15 

REF 

205 

LAST 

448 

41  , 

2420 

REF 

5 

L AST 

453 

4 1 , 

2422 

REF 

5 

LAST 

439 

41  , 

242  3 

REF 

6 

L AST 

453 

41  , 

2424 

REF 

206 

LAS- 

453 

41, 

A 242  r: 

2426 

REF 

207 

LAST 

453 

4 1 , 

2427 

REF 

1 

41, 

2428 

REF 

208 

LAST 

453 

41  , 

2429 

P.EF 

9 

LAST 

446 

41, 

2429  1 

REF 

98 

LAST 

450 

41, 

24292 

REF 

14 

LAST 

449 

41  , 

243C 

REF 

2 

LAST 

446 

41  , 

243  1 

REF 

209 

LAST 

453 

41  , 

2432 

41  , 

2433 

REF 

210 

LAST 

453 

41 , 

MODE,  -2  LEAVE  MODE  AND  VERB, 


3516 

6 47  2 7 

0 

BLANKDSP 

AD 

35  1 7 

0 0004 

0 

I i , H I NT 

3520 

54  12a 

1 

TS 

352  1 

a 4740 

1 

CS 

3522 

50  124 

0 

IN  DEX 

3523 

57 1 023 

1 

XCH 

7 CD  A 

in  n nn 

n 

rrc 

3 - d 

i.  U U Ul' 

u 

V V J 

35  2 5 

2';  '01.6 

1 

I NCR 

3526 

0 3527 

1 

TC 

7 4 2 7 

1 n \ 7 U 

1 

rrc 

ru  1 c.  “ 

1 

V v O 

3530 

0 3520 

0 

TC 

3531 

0 0003 

1 

PELINT 

353  2 

50  12  3 

1 

INDEX 

35  3 3 

0 3 5 6-0 

0 

TC 

3534 

0 3535 

1 

TC 

35  3 5 

55 '001 

0 

TS 

3536 

55 ' 002 

0 

TS 

35  37 

55 '015 

0 

TS 

354  0 

4 43  60 

1 

CS 

354  1 

54  777 

1 

TS 

354  2 

0 44  3 3 

1 

TC 

354  3 

0 3 56  6 

1 

TC 

3544 

3 3570 

0 

NVSUB 1 

CAF 

3545 

5*  136 

1 

TS 

3546 

1 ‘ 123 

0 

CCS 

3547 

0 3553 

1 

TC 

3*50 

n ? % r 1 

■j 

Tf 

U 6 JO  I 

1 

1 L- 

355  1 

0 3516 

G 

TC 

3552 

0 2351 

1 

TC 

355  3 

3 6074 

1 

CAF 

3554 

7 012  3 

0 

MASK 

35  5 5 

5a  157 

0 

TS 

35*6 

3 0123 

1 

CA 

3557 

54  02  3 

1 

TS 

3560 

3 0023 

0 

CA 

35 1 1 

5 4 160 

1 

TS 

356  2 

10  157 

0 

CCS 

3563 

0 3571 

1 

TC 

3564 

3 0160 

0 

CA 

3565 

0 2337 

1 

TC 

3566 

3 4755 

1 

CAF 

3567 

55 '013 

0 

TS 

3570 

0 42  02 

0 

ENTSET 

TC 

3571 

ID  160 

1 

NVSUB2 

CCS 

3572 

0 3576 

0 

TC 

3573 

3 0157 

1 

CA 

3: 


-1  BLANK  R-S  ONLY 

SEVEN 

CODE 

BTT12 

CODE 

DSPTAB 

A 

NOUT 
+ 1 

CODE 

BLANKDSP  +2 

NVTEMP 
+ 5 
+ 1 

VEPBPEG 

NOUNREG 

CLPASS 

VD1 

DSPCOUMT 
F LAS HOFF 
ENT SET  -2 

ENTSET 
ENTRET 
NVTEMP 
+ 4 

GODS PAL  1 

BLANKDSP 

GODSPALM 

LQW7 

NVTE  «P 

MPAC  +3 

NVTEMP 

EDOP 

EDOP 

MPAC  +4 

MPAC  +3 

NVSUB2 
MPAC  +4 

IJPDATVB  -1 
ZERO 
P EQRET 
NVSUB END 
MPAC  + 4- 
+4 

MPAC  +3 
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USER'S  PAGE  NO.  64  EO  S4 


7, 8, 9, CP  10  (A  HAD  0,1, 2, OF  3) 
BLANK  SPECIFIED  DSPTABS 


..E 


NVTEMP  HAS  -/■  (NEVER  TOUCH  MDDP  EG ) 
-3 
-2 
-1 


PROTECT  AGAINST  INVISIBLE  FLASH 
ZEROS  REQREt 

IN  BANK 

SET  RETURN  TO  NV SO BEND 
WHAT  NOW 

NORMAL  NVSUB  CALL  (EXECUTE  VI':  OF  PASTF) 
BLANK  DISPLAY  AS  SPECIFIED 


TEMP  FOR  NOUN  (CANT  USE  MPAC.  DSPDECVN 
USES  MPAC,  +1,  +2 

RIGHT  7 

TEMP  FOR  VERB  (CANT  USE  MPAC+1.  DSPDECVN 
USES  MPAC,  +1,  +2) . 

TEST  NOUN 

IF  NOUN  NOT  +0,  GO  ON 

IF  NOUN  = +0,  DISPLAY  VERB  . THE!  RETURN 
ZERO  REQRET  SO  THAT  PASTED  VERBS  CAN 
BE  EXECUTED  BY  OPERATOR. 

TEST  VERB 

IF  VERB  NOT  +0,  GO  ON 


I 


GAP:  ASSEMBLE  REVISION  001  PE  AbC  PF  0G - AM  API  1-ROPE  BY  f YU. 

L PINBALL  GAME  BUTT'  NS  AMD  LIGHTS 


243 A REF  2 LAST  439  41,3574  0 2317  0 TC 

2435  REF  3 LAST  453  41,3575  0 4202  0 TC 

2436  REF  211  LAST  453  41,3576  3 CL  56  0 CA 

2^3  7 REF  212  LAST  454  41,3577  5*  161  0 T$ 

24 3 F REF  213  LAST  454  41,3600  3 0160  0 CA 

2439  REF  JO  LAST  453  41,3601  0 2337  1 TC 

24.40  REF  214  LAST  454  41,3602  3 0157  1 CA 

2441  REF  3 LAST  454  41,3603  0 2317  0 TC 

244 2 REF  99.  LAST  433  41,3604  3 4755  1 CAF 

2443  REF  3 LAST  - 1,3605  55*014  1 TS 

2444  REF  13  LAST  453  '-1,3606  35*015  0 TS 

2445  REF  15  LAST  453  4®,  3607  55*013  0 TS 

2446  REF  215  LAST  454  41,3610  3 0161  1 CA 

2447  REF  216  LAST  454  41,3611  54  156  1 TS 


244  8 REF  3 LAST  406  41,3612  -0  2035  0 ENDNVSBl  TC 


3:15  DEC.  2,1970  AP11AID  .001  PAGE  454 


USER'S  PAGE  NO.  65  EC  S4 


UPDATNN 

-1 

IF  VERB  = +0,  DISPLAY  NOUN.  THEN  FETURN 

NVSU8END 

MPAC 

+ 2 

TEMP  FOR  MACH  CADR  TO  BE  SPEC.  (DSPDECVN 

M PA  C 

+5 

USES  MPAC,  +1,  +2) 

MPAC 

+ 4 

UPDATVB 

-1 

IF  BOTH  NOUN  AMD  VE°B  NOT  +0,  DISPLAY 

MPAC 

+3 

BOTH  AND  GO  TO  ENTPASO. 

UPDATNN 

-1 

ZERO 

l OADSTAT 

SET  FCF  WAITING  FOR  DATA  CONDITION 

CLPASS 

' FQRFT 

SET  REGRET  FOR  PASS  0. 

MPAC 

+ 5 

RESTORES  MACH  CADR  TO  BE  SPEC  TO  MPAC+2 

MPAC 

+ 2 

FOR  USE  IN  INTMCTBS  (IN  ENTPASO). 

ENTPASO 

« 


R 244C!  IF  I NT  ErM  AL  «ACH  CAPR  TO  RF  SPECIFIED,  MPAC+?  WILL  BF  PLACED  INTO 
R 245  0 NOUNCACR  IN  ENTPASO  (INTMCTBS  ). 


24c  1 

24  5 1 5 

A 24  5 2 

REF 

REF 

4 

4 

LAST 

LAST 

4 54 

■52  TO 

4204 
45  2 : 

24 

,:»8  * 

SETLOC 

COUNT* 

NV SUBEND  +2 
*$/P  IN 

24  5 3 
2454 

A 2455 
245  9 

REF 

REF 

24 

8 

LAST 

LAST 

427 

452 

4204 

4205 

3 4735 
55 '021 

1 

1 

KILMONON  CAF 

TS 

BIT15 

MONS  AV  El 

REF 

114 

LAST 

452 

4206 

0 0002 

0 

TC 

Q 

FORCE  BIT  15  OF  M0NSAVE1  TO  1. 

THIS  IS  THE  KILL  MONITOR  BIT. 
TURN  OFF  BIT  14,  THE  EXTERNAL 
MONITOR  BIT. 


R 2459  LOADSTAT  +0  I NACT I VE ( WA IT  I NO  FOR  DATA).  SET  BY  NVSUB 
R 2460  +1  PROCEED  NO  DATA.  S FT  BY  SPECIAL  VERB 

R 2461  -1  TERMINATE  SET  BY  SPECIAL  VERB 

R 2462  -0  DATA  f SET  BY  END  OF  LEAD  ROUTINE 

R 2463  OF  RESEQUENCE  SF  X BY  VERB  32 


R 2464  L TC  END  IDLE  (FIXED  FIXED) 

R2465  ROUTINES  THAT  REQUEST  LOADS  THROUGH  NVSUB  SHOULD  USE  ENDIDLE  WHILE 
R 246  i WAITING  FOR  THE  DATA  TO  BE  LOADED.  ENDIDLE  PUTS  CURRENT  JOB  TO  SLEEP. 
R 2467  ENDIDLE  CANNOT  BE  CALLED  FROM  ERASABLE  OF:  F/F  MEMORY, 

R 24  6?  SINCE  JOB  SLEEP  AND  JPRWAKF  CAN  HANDLE  ONLY  FIXED  BANKS. 

R 2469  R FC  ALT  ST  TESTS  LOADSTAT  AND  WAKES  JOB  UP  TO, 

R 2470  L + l FOR  TERMINATE 

R 247  1 L+2  FOR  PROCEED  WITHOUT  DATA 

R 2 4 7 2 L+3  FOR  DATA  IN,  ; RESEQUENCE 

R 2473  IT  DOES  NOTHING  IF  LOADSTAT  INDICATES  WAITING  FOR  DATA. 


R 2474  ENDIDLE  ABORTS  (WITH  CODE  01206)  IF  A SECOND  JOB  ATTEMPTS  TO  GO  TO  SLEEP 


GAP:  ASSEMBLE  REVISION  001  OF  AGC  PROGRAM  AP11R0PE  BY  LYLES 

L PINBALl  GAME  BUTTONS  AND  LIGHTS 


R 2475  IN  PINBALL.  IN  PARTICULAR,  IF  AN  ATTEMPT  IS  MADE  TO  GO  TO  END  IDLE  W 
R 247  f 1)  CADRSTOR  NOT=  +0.  THIS  IS  THE  CASE  WHERE  THE  CAPACITY  OF  ENDIDLE 
R 2477  EXCEEDED.  ( +-NZ  I NCI  CAVE  A JCB  IS  ALREADY  ASLEEP  DUE  TO  ENDIDLE.) 

R 24  7 f 2!  DSPLIST  NOT=  +0.  THIS  INCICATES  A JOB  IS  ALREADY  ASLEEP  DUE  TO 
P 2479  WVSUBUSY. 


2480  REF  115  LAST  ASA  A 20 7 

2A8 1 REF  1 4210 

2482  REF  1 4211 

2463  REF  59  LAST  440  4?  12 

2A6A  REF  LAST  370  4213 

?AP  t REF  1 4214 

2486  REF  7 LAST  450  4215 

2487  REF  2 LAST  37^  4216 


22  002  0 ENDIDLE  LXCH  Q 

0 4220  0 TC  I SC ADR  +0 

0 42 24  1 TC  ISLIST+O 

3 0001  0 CA  L 

7 5012  0 MASK  LOWIO 

6 0 004  0 AD  FRANK 

55*042  1 TS  CADRSTOR 

0 5133  0 TC  JOBSLEEP 


2488  KEF  56  LAST  450  8217  0 51  55  0 END IN ST  TC  ENDO F JOB 


2&QQ 
P4.Q  n 

RFF 
r(  pc 

8 

] 

I 1 6 

2 

LAST 

455 

4220 

A 9 9 1 

1 1 '042 
0 4227 
0 0002 
0 42  27 

1 

1 

0 

1 

I S CADR +0 

CCS 

TC 

TC 

TC 

CADRSTOR 

DSPABORT 

Q 

DSPABOPT 

24°  1 
24Q2 

L I 

REF 

REF 

LAST 

LAST 

455 

455 

M { C A. 

4222 

4223 

2493 

REF 

2 

LAST 

222 

4224 

11 ' 043 

0 

ISLIST+O 

CCS 

DSPLIST 

2494 

RFF 

3 

LAST 

45  5 

4225 

0 42  27 

1 

TC 

DSPABOPT 

2495 

REF 

117 

LAST 

455 

4226 

0 0002 

0 

TC 

Q 

2496 

REF 

3 

LAST 

44  4 

42  27 

0 56  6 2 

0 

DSPA  JDR  T 

TC 

PCODOO 

24Q7 

423  0 

C 1 2 06 

1 

OCT 

01206 

R 2498 

R 2499 

JAMTEPM 

I T DDF C 

ALLOWS  PROGRAMS 

FMDflF  mu 

TO  perform  THE 

TEf  MI  NATE 

FUNCTION. 

2500 

REF 

3 

LAST 

45  2 

42  31 

3 62  01 

0 

JAMTERM 

C AF 

P I NSUP91 

2501 

/no 

A A A A A 

1 

c y rpfun 

1(1  J6 

\j  v I'UO 

1 

C A 1 t IN  U 

2501  1 

REF 

6 

LAST 

452 

4233 

01  007 

1 

WRITE 

SUPERBNK 

25012 

REF 

2 

LAST 

209 

4234 

3 4242 

1 

CAF 

34DEC 

250 1 3 

REF 

16 

LAST 

454 

423  5 

55*013 

0 

TS 

REORET 

250? 

REF 

13 

LAST 

453 

4236 

4 43  60 

1 

CS 

VC1 

2503 

REF 

58 

LAST 

45  3 

4237 

54-  777 

1 

TS 

DSPCOUNT 

2504 

REF 

32 

LAST 

450 

4240 

0 463  5 

0 

TC 

POST  JUMP 

2505 

RFF 

2 

LAST 

409 

424  1 

614  50 

1 

CADR 

vbterm 

2506 

4 24  2 

00042 

1 

34DEC 

DEC 

34 

R 25 07 

JAMPROC 

ALL  nwS 

PROOF  AMS 

TO  PERFORM  THE 

PROCEED/ PROCEED 

WITHOUT  DATA 

R 2508 

FUNCTION 

. IT  DOES  ENDOEJOB. 

3: 15  DEC 


2 , 1 c 70 


API 1 A I D .001  PAGE 


455 


USER'S  PAGE  NO.  66 


EO  S 4 


EN 

IS 


RETURN  ADDRESS  INTO  L . 

ABORT  IF  CADRSTOR  NOT=  +0 

ABORT  IF  DSPLIST  NOT?  +0 

DONT  SET  DSPLOCK  TO  1 SO  CAN  USE 

ENDIDLE  WITH  NVSUB  INITIATED  MONITOR. 

S AM  F STRATEGY  FOP  CADR  AS  MAKECADP. 


ABORTS  (CODE  01206)  IF  CADRSTOR  NOT=  +0. 
RETURNS  IF  CADRSTOR  = +0. 


ABORTS  (CODE  01206)  IF  DSPLIST  NOT=  +0. 
RETURNS  IF  DSPLIST  = +0. 


LEAVE  ENTER  SET  FOR  ENTPASSO 
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ASSEMBLE 

REVISION  001  CF 

A GC  PROGRAM  AP 

1 

IROPE  BY  EYLES 

L 

PI  NBA! L 

G AM  E 

BUTTONS 

AMD  LIGHTS 

2509 

REF 

4 

LAST 

455 

4243 

3 4201 

0 

JAMPRGC  CAP 

2510 

4244 

0 0C06 

1 

EXTEND 

25101 

REF 

7 

LAST 

45  5 

4245 

01  007 

1 

WR  ITE 

25102 

REF 

L 

424  6 

3 4254 

0 

CAF 

25103 

REF 

1 7 

LAST 

455 

4 247 

55' 013 

0 

TS 

P S 1 1 

RFF 

1 4 

LAST 

455 

4250 

4 4360 

1 

c s 

C.  J J.  1 

2512 

REF 

59 

LAST 

455 

425  1 

54  777 

1 

TS 

2513 

REF 

33 

LAST 

455 

* 25  2 

0 *635 

0 

TC 

2514 

REF 

5 

LAST 

44  9 

4253 

61442 

1 

‘ CADE 

2515 

4254 

00G41 

1 

33DEC  DEC 

R2532 

BLANKSUB 

BLANKS  ANY  COMBINATION  OF  Rl, 

R2, 

R 3 . 

R 2533 

CALL 

W I TE 

1 BLANKING 

CODE  IN  A. 

P 2 534 

BIT1 

=1  BLANKS 

Rl, 

B I I 2 = 1 BLANKS  2, 

BI  T3=l 

BLANK S R3. 

R 2^35 

ANY 

COMBINATION  r,f 

THESE  BITS 

IS  ACCEPTED. 

R 2536 

DSPCOUNT 

IS  RESTORED  TO  STATE 

IT  WAS 

I N 

BEFORE  BLANKSUB 

253  8 

REF 

6 

LAST 

453 

,425  5 

7 4757 

1 

BL  ANKSUB 

MASK 

25381 

REF 

6 

LAST 

453 

4256 

54  123 

0 

TS 

2539 

REF 

43 

LAST 

-52 

4257 

3 *736 

1 

CAP 

2540 

RFF 

Q 

LAST 

454 

4 26  0 

7 1021 

1 

MASK 

25401 

REF 

7 

LAST 

45  2 

*2  6 1 

6 1 C 1 2 

0 

AD 

25402 

REF 

146 

LAST 

45  3 

426  2 

10  000 

0 

CCS 

2540  3 

REF 

113 

LAST 

455 

426  3 

0 0002 

0 

TC 

25404 

REF 

119 

LAST 

456 

426  4 

24  002 

o 

I NC  R 

A 2 5 4 1 

25*1  1 

REF 

7 

LAST 

456 

426  9 

10  123 

0 

CCS 

25412 

4266 

1 4270 

1 

TCF 

25413 

REF 

120 

LAST 

456 

4267 

0 0 002 

0 

TC 

2542 

REF 

121 

L AST 

456 

4270 

22  002 

0 

LXCH 

2 54* 

REF 

1 

4 271 

3 4 30  2 

1 

CAF 

2545 

REF 

12 

LAST 

45  2 

42  72 

56  0 06 

1 

XCH 

25451 

*273 

0 0006 

1 

EXTEND 

25452 

REF 

8 

LAST 

456 

4274 

04  007 

1 

ROR 

2546 

REF 

45 

LAST 

41* 

4275 

52  131 

0 

DXCH 

25461 

REF 

5 

LAST 

456 

4276 

3 4201 

0 

CAF 

25462 

4277 

0 0006 

1 

EXTEND 

2546  3 

REF 

9 

LAST 

456 

4300 

01  007 

1 

WR  TTE 

2547 

REF 

1 

4301 

0 3505 

1 

TC 

2548 

REF 

60 

LAST 

456 

0777 

E B ANK  = 

25481 

REF 

2 

L AST 

456 

*302 

60101 

1 

BLNKBBNK 

BBCON 

2549 

430  3 

ENL96LFF 

EQUALS 

2550 

REF 

1 

40,3505 

SETLOC 

25505 

REF 

3 LAST 

448 

TC  452: 

35  774* 

COUNT* 

255  1 

REF 

61 

LAST 

456 

40,3505 

3 0777 

0 

BLNKSUB1 

CA 

PINSUPBT 

SUPER8NK 
3 3DEC- 
REQRET 
V01 

DSPCOUNT 

POSTJUMP 

VBPROC 

33 


WAS  EXECUTED. 

SEVEN 

NVTEMP 

BIT14 

MONSAVE 1 

DSPLOCK 

A 

Q 

Q 

NvTFMP 

+ 2 

Q 

Q 

BLNKB8NK 
B BANK 

SUPER  BNK 
BUF 

PINSUPBT 

SUPER  BNK 
BLNKSUB1 

DSPCOUNT 
BLNKSUB 1 


EJTORELDS 
$ $ / P I N 
DSPCOUNT 


* 
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LEAVE  ENTER 


..z 

SET  FOR  ENTPASSO. 


STORE  BLANKING  CODE  IN  NVTEMP. 
EXTERNAL  MONITOR  BIT 


DSP  SYST  BLOCKED.  RET  TO  1+  CALLING  LOC 

DSP  SYST  AVAILABLE 

SET  RETURN  FDR  2+  CALLING  LUC 


NOTHING  TO  BLANK.  RET  TO  2+  CALLING  LOC 
SET  RETURN  FOR  2 + CALLING  LOC 


SAVE  OLD  SUPEPBITS. 


SAVE  OLD  DSPCOUNT  FOR 


LATER  RESTORATION 
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25511  PE F 

25512  REF 

2552  REF 

2553  REF 

2554  REF 

2555  P FF 

2556  REF 

2557  REF 

2558  REF 

2559  ref 

2560  REF 

2561  RFF 

2562  RFF 

2563  REF 

2564  REF 

2565  P FF 

2566  REF 


46  LAST 
22  LAST 

1 

12  LAST 

4 LAST 
25  LAST 

2 LAST 

5 LAST 
5 LAST 

22  l AST 

3 LAST 

5 LAST 

6 LAST 

47  LAST 
62  LAST 

48  LAST 
3 LAST 


456  40, 

448  40, 

40 , 

6-40  40, 

420  40, 

432  40, 

457  40, 

442  40, 

457  40, 

450  40, 

457  40, 

421  00, 

457  40, 

457  40, 

456  40, 

467  40, 

45?  40, 


3506  54  132  0 

4753  1 
3510  0 3527  1 

35  L 1 3 0317  0 

3512  0 2535  0 

3513  3 -'752  0 

3510  0 3527  1 

3515  3 A320  1 

3516  0 2535  0 

3517  3 ^751  0 

3520  0 3527  1 

3521  3 4321  0 

3522  0 2535  0 

3523  3 0132  1 

3524  54  777  1 

3525  52  131  0 

3526  0 5146  0 


TS  BUF  +2 

CAF  B IT  1 

TC  TESTBIT 

CAF  R1D1 

TC  58LANK  -1 

CAF  BIT? 

TC  TESTBIT 

CAF  R 201 

TC  5BLANK  -1 

CAF  BIT3 

TC  TESTBIT 

CAF  R 3D  1 

TC  5 BLANK  -1 

CA  BUF  +2 

TS  DSPCCUNT 

DXCH  BUF 

TC  SUPDXCH7  +1 


TEST  BIT1.  SEE  IF  R1  TO  BE  BLANKED. 


TEST  BIT  2.  SEE  IF  P2  TO  BE  BLANKED. 


TEST  BIT3.  SEE  IF  P3  TO  BE  BLANKED. 


RESTORE  DSP COUNT  TO  STATE  IT  HAD 
BEFORE  BLANKSUB. 

CALL  t +2  DIRECTLY. 

DTCB  WITH  SUPERBIT  SWITCHING 


2567 

REF 

8 

LAST 

45  6 

40,3527 

7 0123 

0 

TESTBIT 

MASK 

NVTEMP 

NVTEMP  CONTAINS  BLANKING  CODE. 

2568 

REF 

147 

LAST 

456 

40,3530 

10  COO 

0 

CCS 

A 

2569 

REF 

122 

LAST 

456 

40,3531 

0 0002 

0 

TC 

Q 

IF  CURRENT  BIT  = 1 , 

RETURN  TO  L+l. 

2570 

REF 

123 

LAS’" 

457 

40, 3532 

50  002 

0 

INDEX 

Q 

IF  CURRENT  BIT  = 0, 

RETURN  TO  L+3. 

2571 

49, 3533 

C 0002 

0 

TC 

2 

2572 

40,3530 

ENDBSUB1 

EQUALS 

R 2 57  205 

R 2572 96 

DSPMM  DOES  NOT 
PRIC  3 000  0 FDR 

DISPLAY  Mi  op  EC  DIF  E C T L Y . IT  PUTS 
DSPMMJB  AND  RETURNS  TO  CALLER. 

IN  EXEC 

P E QUEST 

R 257207 

IF  MODREG 

CONTAINS 

-0,  DSPMMJB 

BLANKS  THE  MODE  L 

IGHTS. 

R 2572 09 

DSP MM  MUST  BE 

IN  BANK  27  0 LOWE'  , SO  IT  CAP;  BE 

CALLED 

VIA  BANKC 

25721 

07,2667 

BANK 

7 

2572  15 

REF  1 

04,2000 

SET! GC 

PINBALt  4 

257217 

04,2636 

BANK 

257216 

REF  1 

COUNT* 

$$/PIN 

25722 

REF  124 

LAST 

457 

04 , 2636 

56  002  0 DSPMM 

XCH 

Q 

25723 

REF  217 

LAST 

454 

04,2637 

54  154  0 

TS 

MPAC 

25724 

04,2640 

0 0004  0 

INHINT 

25725 

REF  3 

LAST 

438 

04,2641 

3 4355  0 

CAF 

C HR  PR  I 0 

25726 

REF  6 

LAST 

43  8 

04,2642 

0 5072  1 

TC 

NCVAC 

25727 

REF  63 

LAST 

457 

0777 

EBANK= 

DSPCOUNT 

2572  P 

REF  1 

04,2643 

03534  0 

2C  ADR 

DSPMMJB 

25728 

REF  1 

04,2644 

6 C 101  1 

257285 

04,2645 

0 0003  1 

RE L I NT 

25729 

REF  218 

LAST 

45  7 

04,2646 

0 0154  1 ENDSPMM 

TC 

MPAC 
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MO 
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DSPMM  PLACE  MAJOR  MODE  CODE  INTO  MODREG 


25735  REE 


40,3534 


SETLOC  ENDBSUB1 


25736 

REF 

9 L AST 

456  TO 

457: 

23  797* 

COUNT* 

$ $ / P I N 

9 C.74 

Q R F 

40,3534 

3 6-362 

l 

DSPMM JR 

CAE 

MD1 

GETS  HERE  THRU  DSPMM 

2575 

REF 

64 

LAST 

457 

40, 3535 

56  777 

0 

XCH 

DSPCOUNT 

2576 

REF 

I 

40, 3536 

54  140 

0 

TS 

DSPMMTEM 

SAVE  DSPCOUNT 

2579 

REF 

8 

LAST 

28C 

40,3537 

11 'Oil 

1 

CCS 

MODREG  . 

2580 

REF 

56 

L AST 

452 

40,3540 

6 4753 

1 

AD 

ONE 

25801 

REF 

4 

LAST 

44  3 

40,3541 

0 3306 

1 

TC 

OSPDECVN 

IF  MODREG  IS  + OP  +0,  DISPLAY  MODREG 

25802 

40,3542 

0 3544 

TC 

-t-2 

Tf  MODREG  IS  -NZ,  DP  NOTHING 

25803 

REE 

6 

LAST 

447 

40,3543 

0 2601 

1 

TC 

2BLANK 

IF  MODREG  IS  -0,  BLANK  MM 

2581 

REF 

2 

LAST 

458 

40,3544 

5 > 140 

1 

XCH 

DSPMMTEM 

RESTORE  DSPCOUNT 

2582 

REF 

65 

LAST 

458 

40,3545 

54  777 

1 

TS 

DSPCOUNT 

2583 

REF 

57 

l AST 

455 

40 , 3546 

0 5155 

0 

TC 

ENDOF JOB 

R 2584 

R EC ALT  ST 

IS  EN 

TERED 

DIRECTLY 

AFTER  DATA 

IS  LOADED 

i (OP  RESEQUENCE  VERB 

IS 

R 25  85 

EXECUTED) 

, TERMINATE 

VERB  IS 

EXECUTED,  OR  PROCEED  WITHOUT  DATA  VERB  IS 

R 2586 

EXECUTED. 

IT  WAKES  UP  JOB  THAT  DIO  TC 

. END  I OLE. 

R 25  87 

IF  i 

C A DR  ST  OR  N3T=  +0 , 

IT  PUTS 

+0  INTO 

DSP LOCK , AML 

i TURNS 

OFF  KEY  RLSE 

R 2588 

LIGHT  IF 

DSPLIST  TS 

EMPTY  (LEAVES  KEY 

' RL 

SE  LIGHT 

ALONE 

IF  NOT  EMPTY). 

2589 

REF 

9 

LAST 

455 

40,3547 

1 1 '042 

1 

RECALTST 

CCS 

C ADPSTOP 

2590 

REF 

1 

40,3550 

0 3552 

0 

TC 

RECAL1 

2591 

REF 

58 

LAST 

45  8 

- 0 , 3r;  5 1 

0 515  5 

0 

TC 

ENDOF JOB 

NORMAL  EXIT  IF  KEYBOARD  INITIATED 

2592 

REF 

100 

LAST 

454 

40,3552 

3 4755 

1 

RECAL1 

CAF 

ZERO 

2593 

REF 

10 

LAST 

458 

40,3553 

57 ' 042 

0 

XCH 

C ADR  STOP 

259* 

40,3554 

0 0004 

0 

INHINT 

2595 

REF 

3 

LAST 

374 

40,3555 

0 5137 

1 

TC 

JOBWAKE 

2596 

REF 

4 

LAST 

454 

40,3556 

11*014 

1 

CCS 

LOADSTAT 

2597 

REF 

1 

40,3557 

0 3601 

0 

TC 

DOPROC 

+ PROCEED  WITHOUT  DATA 

2598 

REF 

59 

LAST 

45  8 

40,3560 

0 5155 

0 

TC 

ENDOF JCB 

PATHALOGICAI  CASE  E XT  t 

2599 

REE 

1 

40, 3561 

0 3577 

1 

TC 

DOTERM 

TERMINATE 

2600 

REF 

31 

LAST 

44  5 

40,3562 

3 47  52 

0 

CAF 

TWO 

-0  DATA  IN  OR  RESEQUENCE 

2601 

REF 

2 

LAST 

372 

40,3563 

50  0 64 

0 

RECAL2 

INDEX 

LOCCTR 

2602 

REF 

3 

LAST 

37  2 

40.3564 

6 0166 

1 

a n 

i nr 

i nr  i q + fdr  rastt  Kirs 

l \J  f ..J  J J r 

1 

H LV 

L UL. 

2603 

REE 

3 

LAST 

458 

40,3565 

50  0 64 

0 

INDEX 

LOCCTR 

2604 

RFF 

L 

LAST 

45  8 

40 , 3566 

54  164 

0 

TS 

LCC 

26041 

REF 

15 

LAST 

453 

40,3567 

3 1002 

1 

CA 

NOUNREG 

SAVE  VERB  IN  MPAC,  NOUN  IN  MPAC+1  AT 

26042 

REF 

60 

LAST 

455 

40,3570 

54  001 

1 

TS 

L 

TIME  OF  RESPONSE  TO  ENDIDLE  FOR 

26043 

REF 

20 

LAST 

453 

40,3571 

3 1001 

1 

CA 

VERBREG 

POSSIBLE  LATER  TESTING  BY  JOB  THAT  HAS 

260 

REF 

4 

LAST 

456 

40,3572 

50  064 

0 

INDEX 

LOCCTR 

BEEN  WAKED  UP. 

2604  5 

REF 

219 

LAST 

457 

40,3573 

52  155 

1 

DXCH 

MPAC 

2605 

40,3574 

0 0003 

1 

RELINT 

2606 

REF 

9 

LAST 

450 

40,3575 

0 *457 

0 

RECAL3 

TC 

PELDSP 

2607 

REF 

60 

LAST 

458 

40,3576 

0 5155 

0 

TC 

ENDOF JOB 
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2608 

REF 

101 

LAST 

458 

40,3577 

3 

4755 

1 

DOTERM 

CAF 

2609 

REE 

1 

40, 3600 

0 

3563 

1 

TC 

2610 

REF 

57 

LAST 

45  B 

40,3601 

3 

4753 

1 

DOPROC 

CAF 

2611 

REF 

2 

LAST 

459 

40,3602 

0 

3563 

1 

TC 
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D/FIXFD 


2613 

PEF 

1 

4303 

SET  IOC 

ENDBLFF 

26135 

REF 

5 L 

AST 

454  TC 

4S6 : 

6 3 111* 

COUNT * 

& $ / P I N 

R2614 

SET!  iC  ADR 

E CACR 

ARRIVES 

IN  A.  IT 

IS  STORED 

IN  NOUNCADR.  EBANK 

R 261  5 

ARE  SET 

. E ADRES  IS  DERI 

VED  AND  PUT  INTO 

NOUNADD. 

2616 

REF 

8 

LAST 

440 

6 303 

55*017  1 

SETNCADR 

TS 

NOUNCADR 

2617 

REF 

13 

LAST 

388 

43  04 

54  003  0 

TS 

EBANK 

26  ie 

PEF 

2 

LAST 

1 Q 1 

4305 

7 4357  0 

mask 

L QW  8 

261  9 

REF 

1 

430  6 

6 5007  0 

AD 

0CTI400 

262  0 

REF 

29 

LAST 

435 

43  0 7 

54  145  0 

TS 

NOUNADD 

2621 

REF 

125 

LAST 

457 

4 310 

0 0002  0 

TC 

Q 

R 262?  SETNADD 
R 262 3 


GETS  E CADR  FROM  NOUNCADR,  SETS  EBANK  BITS,  DERIVES 
E ADR.ES  AND  PUTS  IT  INTO  NOUN  ADD. 


2624 

REF 

• .9  , 

LAST 

460 

4 311 

3 1017 

0 

SETNADD  CA 

NOUNCADR 

262  5 

REF 

7 

LAST 

429 

4312 

1 43  06 

0 

TCF 

SETNCADR 

2626 

SETEBANK 

E CADR 

ARRIVES 

IN  A. 

EBANK  BITS  ARE  SET. 

E ADRES 

2627 

DERIVED 

AND  LEFT  IN  A 

• 

262  P 

REF 

14 

LAST 

460 

4313 

5 4 003 

0 SETEBANK  TS 

EBANK 

2629 

KEF 

3 

LAST 

46  0 

4 314 

7 -357 

0 MASK 

LOWS 

2630 

REF 

2 

LAST 

460 

4315 

6 5007 

0 AD 

OCT  1400 

2631 

REF 

126 

LAST 

460 

4316 

0 0002 

0 TC 

Q 

26  32 

4317 

00016 

0 

R1D1 

OCT 

16 

2633 

4 32  0 

00011 

1 

R2D1 

OCT 

1 1 

2634 

4 3 21 

00004 

0 

R 3D  1 

OCT 

4 

26  3r 

REF 

7 

LAST 

444 

4322 

54  020 

1 

R IGHT5 

TS 

CYR 

26  36 

REF 

8 

LAST 

460 

43  2 3 

4 0020 

1 

cs 

CYR 

2637 

REF 

9 

LAST 

46  0 

4324 

4 C020 

1 

C.S 

CYR 

263 

REF 

10 

LAST 

46  C 

::  43  2 5 

4 0020 

1 

cs 

CYR 

2639 

REF 

1 1 

LAST 

460 

l 3 2 6 

u 0020 

c s 

r VR 

264  r 

PEF 

12 

LAST 

460 

4327 

56  020 

0 

XCH 

v,  i r\ 

CYR 

2641 

REF 

127 

LAST 

460 

4330 

0 00C2 

0 

TC 

Q 

2642 

RFF 

13 

LAST 

X. 

4 3 3 1 

54  022 

0 

LEFT5 

TS 

CYL 

2643 

REF 

14 

l AST 

460 

4332 

4 0022 

0 

CS 

CYL 

2644 

REF 

I 5 

LAST 

460 

4333 

4 0022 

0 

cs 

CYL 

2645 

REF 

16 

LAST 

460 

4334 

4 0022 

0 

cs 

CYL 

264  6 

REF 

17 

LAST 

460 

4335 

4 0022 

0 

cs 

CYL 
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STORE  ECADR 
SET  EBANK  BITS 


PUT  E ADRES  INTO  NOUNADD 


SET  EBANK  BITS 
E ADRES  LEFT  IN  A 
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2647  REF  18  LAST  460  4336  56  022  1 XCH  CYL 

2648  REF  123  LAST  460  4337  0 C002  0 TC  Q 


2640 

2650 

2651 

2652 

2653 

2654  REF  129  LAST 


4340  6 0000 

4341  6 0000 

43^2  6 0000 

4343  6 0000 

4344  6 0000 

461  4345  0 0002 


1 SL  EFT  5 DOUBLE 

1 DOUBLE 

1 DOUBLE 

1 DOUBLE 

1 DOUBLE 

0 TC  Q 


2655  4346 

2656  4347 

2657  4350 


00037 

0 

LOWS 

OCT 

37 

01  740 

0 

MI  D5 

OCT 

1740 

76000 

0 

H I 5 

OCT 

76000 

2658 

2656 

2660 

REF 

REF 

D f.  C 

7 

17 

1 3 

LAST 

LAST 

1 AST 

2661 

u r 

REF 

16 

LAST 

457  4351  0 5072  1 
438  4352  0 5203  0 
438  4353  0 5261  1 
384  4354  0 5105  0 


TCNOVAC  TC 
TCWAI T TC 
TCTSKOVR  TC 
TCFINDVC  TC 


NOV  AC 
WAITLIST 
TASKOVER 
FINDVAC 


2662 


4355  30000  1 CHRPp  10  OCT' 


30000 


2663 

2664  REF  6 LAST  429 

2665 


4356  03777  0 L0W11 

4356  B 1 2—1 

4357  00377  1 L0W8 


OCT  3777 

EQUALS  L0W11 
OCT  377 


2667 

436  0 

00023 

0 

VD1 

OCT 

23 

2668 

4361 

0002  1 

1 

ND1 

OCT 

21 

2669 

4 36  2 

00025 

0 

MD1 

OCT 

25 

2670 

4363 

0C012 

1 

BINCGN 

ITEC 

10 

2671 

REF 

20 

LAST 

405 

4364 

3 474  5 

0 

F ALTON 

CA 

BIT7 

2672 

436  5 

0 0006 

1 

EX  TEND 

267  3 

PFF 

12 

LAST 

450 

4366 

05  011 

1 

WOR 

DSALMOUT 

2674 

REF 

130 

LAST 

461 

4367 

0 0002 

0 

TC 

Q 

2675 

RFF 

21 

LAST 

661 

h-370 

4 4745 

1 

faltof 

cs 

B IT  7 

2676 

4371 

0 0006 

1 

EXTEND 

2677 

REF 

13 

LAST 

461 

4372 

03  011 

1 

WAND 

DSALMOUT 

2678 

REF 

131 

LAST 

461 

4373 

0 0002 

0 

TC 

Q 

26  7° 

REF 

22 

LAST 

447 

437  4 

3 4747 

1 

RELDSPON 

CAF 

31  T5 

2680 

6-375 

0 0006 

1 

EXTEND 

26  81 

REF 

14 

LAST 

66  1 

4376 

05  011 

1 

WOR 

DSALMOUT 

2682 

PEF 

132 

LAST 

461 

43  77 

0 0002 

0 

TC 

Q 

3:15  DEC.  2,1570  AP11AID  .001  PAGE  461 
USER'S  PAGE  NO.  72  EO  S4 
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MUST  STAY  HERE 


EXEC  PRIORITY  OF  CHAP  IN 
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BIT  7 OF  CHANNEL  11 

TURN  ON  KEY  RELEASE  LIGHT 
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SHIFTS  MPAC,  +1,  +2  LEFT  1 

LEAVES  OVFIND  SET  TO  + /-  1 FOR  OF/UF 


TS  A DOES  NOT  CHANGE  A ON  OF/UF. 
NO  NET  OF/UF 

MPAC  +6  SET  TO  + /-1  FOR  OF/UF 


CIA)  +,  DC  REGULAR  SHORTMP 

CIA)  +0,  DO  REGULAR  SHORTMP 

CIA)  00  REGULAR  SHORTMP 

CIA)  -0,  FORCE  RESULT  TO  -0  AND  FETURN. 


TURN  ON  V/N  FLASH 
BIT  6 OF  CHANNEL  11 


TURN  OFF  V/N  FLASH 
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P 2720  INTERNAL  USE  OF  KEYBOARD  AND  DISPLAY  PROGRAM 

R 272  1 USER  MUST  SCHEDULE  CALLS  TO  NVSUB  So  THAT  THERE  IS  NO  CONFLICT  OF  USE  OR 

R 2722  CONFUSION  TO  OPERATE  . THE  OLD  GFABLOCK  ( INTERNAL/ INTERNAL  INTERLOCK) 

R 27  2 3 HAS  BEEN  REMOVED  AND  THF  INTERNAL  USER  NO  LONGER  HAS  THE  PROTECTION  THIS 

R 2724  OFFFRED. 

R 2725  THERE  ARE  TWO  WAYS  A JOB  CAN  BE  PUT  TU  SLEEP  BY  THE  KEYBOARD  + DISPLAY 

R 2726  PROGRAM.  1)  BY  END  1 OLE 

R 2727  2)  BY  M.'SUBUSY 

R272S  THE  BASIC  CONVENTION  IS  THAT  ONLY  ONE  JOB  WILL  BF  PERMITTED  ASLEEP  VIA 

R 2729  THE  KFYBPARD  + D T c PI  AY  PROGRAM  AT  A TIME.  IF  A JOB  ATl'EMPTS  TO  GO  to 

R2730  SLEEP  BY  MEANS  OF  (1)  OR  (2)  AND  THERE  IS  ALREADY  A JOB  ASLEEP  THAT  WAS 

R 273 1 PUT  TO  SLEEP  BY  (1)  OR  (2),  THEN  AM  ABORT  IS  CAUSED. 
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R2732 
R 273  3 
R 2 734 
R 2735 
R 2736 


THE  CALLING  SEQUENCE  FOR  NvSUB  IS 
CAF  V/N 

L TC  NVSUB 

L+l  RETURN  HERE  IF  OPERATOR  HAS  INTERVENED 

I.  + 2 RETURN  HERE  AFTER  EXECUTION 


R2737  A R OUT  INF  CALLED  NVSUBUSY  IS  PROVIDED  (USE  IS  OPTIONAL)  TO  PUT 

R2738  YOUR  JOB  TO  SLEEP  UNTIL  THE  OPERATOR  RELEASES  THE  KEYBOARD  + DISPLAY 
R 2739  SYSTEM.  NVSUBUSY  ALSO  TURNS  ON  THE  KEY  RELEASE  LIGHT. 

R 2740  NVSUBUSY  CANNOT  BE  CALLED  FROM  ERASABLE  Ok  F/F  MEMORY, 

R 2741  SINCE  JOBSLEEP  AND  JO  BRAKE  CAN  HANDLE  ONLY  FIXED  BANKS. 


R 2742  THE  CALLING  SEQUENCE  IS 

R 2743  CAF  WAKEFCADR 

R 2 7 4 4 TC  NVSUBUSY 


R 27*  ' 


R 274 , : NVSUBUSY  IS  INTENDED  FOR  USE  WHEN  AN  INTERNAL  PROGRAM  FINDS  THE  OPERATOR 

*2747  IS  US'  - THE  KEYBOARD  + DISPLAY  PROGRAM  (BY  HIS  OWN  INITIATION).  IT  IS 
R274R  NOT  INTENDED  FOR  USE  WHEN  ONE  INTERNAL  PROGRAM  FINDS  ANOTHER  INTERNAL 
R 274°  PROGRAM  USING  THF  KEYBOARD  + DISPLAY  PROGRAM. 


k 275 C NVSUBUSY  ABORTS  (WITH  CODE  01206)  IF  A S ECONO  JOB  ATTEMPTS  TO  GO  TO 

0 275 1 SLFFP  IN  DI  BAM  . IN  PARTICULAR,  IF  AN  ATTEMPT  IS  MADE  TO  GO  TO  NVSUBUSY 

R 2752  WHEN 

R 2753  I)  OSPL  TS  T MOT  = +•'.  THIS  TS  THE  CASE  WHERE  THF  CAPACITY  OF  THE  DSPITST 
R 2 7 5 ^ IS  EXCEEDED. 

R2L55  2)  CADS' ST  OR  NOT=  +0.  THIS  INDICATES  THAT  A JOB  IS  ALREADY  USING 
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R 2 75  6 ENDIDLE.  ( +-NZ  INDICATE  A JOB  IS  ALREADY  ASLEEP  DUE  TO  ENDIDLE.) 
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R 277  c NVSBWAIT  IS  A SPECIAL  ENTRANCE  FOR  ROUTINES  IN  FIXED  RANKS  ONLY.  IF 
R 277'-  SYSTEM  IS  NOT  BUSY,  IT  EXECUTES  V/N  AND  RETURNS  TO  L + l (L=  IOC  FROM 
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TURN  OFF  EXTERNAL  MONITOR  BIT 

LIST  EMPTY 


TURN  OFF  KEY  RELEASE  LIGHT 
(BIT  5 OF  CHANNEL  11) 


SET  DSPLOCK  to  +0.  NO  DSPLIST  SEARCH. 
TURN  KEY  RLSE  LIGHT  OFF  IE  DSPLIST  IS 
EMPTY.  LEAVE  KEY  RLSE  LIGHT  ALONE  IF 
DSPLIST  IS  NOT  EMPTY. 

+ NOT  FMPTY.  LEAVE  KEY  RLSE  LIGHT  ALONE 
+0  EMPTY.  TURN  OFF  KEY  RLSE  LIGHT 
- NOT  EMPTY.  LEAVE  KEY  RLSE  LIGHT  ALONE 
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0 f 003 

1 

PEL INT 

REF 

1 

41,3646 

3 36  61 

0 

CAF 

1 , 3647 

0 COO 4 

0 

INHINT 

REF 

18 

LAST 

461 

41  ,3650 

0 5203 

0 

TC 

REF 

32 

LAST 

467 

1023 

EBANK= 

REF 

1 

41 , 365  1 

03662 

0 

2CADR 

REF 

1 

41 , 365  2 

62102 

0 

REF 

61 

LAS* 

45  8 

41,3653 

0 5155 

0 

TC 

T STC0N1  TURN  ON  UPLINK  ACTIVITY,  TEMP,  KEY  RLSE, 

V/N  FLASH,  OPERATOR  ERROR. 

DSALMQUT 

TSTC0N2  TURN  ON  MO  ATT,  GIKSAL  LOCK,  TRACKER, 

DSPTAB  + 1 1 D PROG  AIM. 

B I T 1 0 TURN  ON  TEST  ALARM  OUTBIT 

CHAN13 

TEN 

ERCNT 

FULLDSP 

ERCNT 

DSPTAB 

ERCNT 

TSTLTS1 

FULLDSP! 

DSPTAB  +1  TURN  OR  3 PLUS  SIGNS 

DSPTAB  +4 

DSPTAB  +6 

ELEVEN 

NGUT 

SHOLTS 

WAITLIST 

DSPTAB 

TSTLTS2 

ENDOF JOB  DSPLOCK  IS  LEFT  BUSY  (FROM  KEYBOARD 

ACTION)  UNTIL  TSTLTS3  TO  INSURE  THAT 
LIGHTS  TEST  WILL  BE  SEEN. 


41,3654 

05675 

0 

FULL  DSP 

OCT 

05675 

DI SPLAY 

ALL 

8 : S 

41, 3655 

07675 

1 

FULL  DSP  1 

OCT 

07675 

DISPLAY 

ALL 

8 : S AND  + 

41 , 3656 

00175 

1 

TSTCflNl 

OCT 

00175 

UPLINK  ACTIVITY,  TEMP,  KEY  RLSE, 
V/N  FLASH,  OPERATOR  ERROR. 


GAP:  ASSEMBLE  f.E  VISION  001  OF  AGO  PROGRAM  APU.-xGPF  BY 


L PINBALL  GAME 

2862 
A2863 
2864 
A 286c 
2866 


BUTTONS  AND  L IGHTS 

61,3657  40674  0 
,1,3660  00115  1 
41,3661  00764  1 


2867 

REF 

4 

LAST 

457 

41 ,3662 

3 4355 

0 

286  8 

REF 

8 

LAST 

46  1 

41,3663 

0 5072 

1 

2 86° 

RFF 

33 

LAST 

467 

1023 

2870 

REF 

1 

41 ,3664 

03667 

0 

2870 

REF 

I 

41,3665 

62102 

0 

2871 

REF 

14 

LAST 

461 

41,3666 

0 5261 

1 

287? 

2873 

2876 

RFF 

1 

41 , 3667 
41 , 36  7 C 
41 , 367  1 

4 

0 

0 

3660 

0004 

0006 

0 

0 

1 

2878 

REF 

19 

LAST 

467 

41 ,3672 

03 

Oil 

1 

2876 

REF 

22 

LAST 

467 

4 1,  3673 

4 

4742 

0 

2877 

41,3674 

0 

0006 

1 

2878 

REF 

6 

LAST 

467 

41 , 3675 

03 

Cl  3 

0 

28781 

REF 

2? 

LAST 

3 3? 

41 , 3676 

3 

47  50 

1 

28782 

41 ,367? 

0 

0006 

1 

28783 

REF 

22 

LAST 

288 

41,3700 

02 

012 

0 

2879 

REF 

25 

LAST 

454 

41,370  1 

6 

47  3 5 

1 

2880 

REF 

34 

LAST, 

468 

41,3702 

55 

'036 

1 

2881 

R F F 

1 

' 1 , 370  3 

4 

37  26 

0 

2682 

REF 

21 

LAST 

467 

41  , 3 704 

7 

1303 

1 

28  8? 

Rfc  F 

3 

LAST 

2?3 

41 ,3705 

6 

8 02  6 

0 

2886 

REF 

22 

LAST 

468 

41 ,3706 

55 

' 303 

1 

2885 

REF 

1 

4 1, 370  7 

A. 

3730 

1 

n 

I 

2886 

p EF 

42 

LAST 

227 

41,3710 

7 

13  02 

0 

2887 

REF 

4 

LAST 

260 

41,3711 

6 

502  5 

0 

2838 

PFF 

43 

LAST 

468 

41 , 3712 

55 

' 302 

0 

2889 

REF 

1 

4 1, 37  13 

4 

3727 

1 

2e90 

REF 

27 

LAST 

323 

41 , 0714 

7 

0110 

0 

2891 

REF 

4 

LAST 

185 

41,3715 

6 

474  3 

0 

2892 

REF 

2? 

LAST 

46  8 

41,3716 

54 

1 10 

0 

2893 

4 1,3717 

0 

C003 

1 

28  94 

REF 

92 

LAST 

447 

41 , 3720 

0 

4616 

1 

2895 

REF 

1 

4 1 , 372  1 

1 0636 

0 

2896 

REF 

4 

LAST 

452 

41 , 37  2 2 

0 

^ 2 04 

0 

2897 

PFF 

5 

LAST 

453 

41, ?723 

o 

4433 

1 

1 

2896 

REF 

35 

LAST 

464 

41,3724 

0 

4635 

0 

2890 

P EF 

1 

41, 3725 

61471 

1 

TSTC0N2 
TSTCQN3 
SHOl TS 

TSTL TS2 


7 STL  7 S3 


4 


YLES 


3:15  DEC.  2,1970  AP11AID  .001  PAGE  468 
USER'S  PAGE  NO.  79  EO  S4 


OCT  40674  DSPTAB+11D  BITS  3, 4, 5, 6, 8, 9.  LR  LITES, 

NO  ATT,  GIFBAL  LOCK,  TRACKER,  PPOG  ALM.  < 

OCT  00115  CHAN  11  BITS  1,  3,  4,  7. 

UPLINK  ACTIVITY,  TE^p,  OPERATOR  ERROR. 

OCT  764  5 SEC 


CAE  C HR PR  1 0 CALLED  BY  WAITLIST 

TC  NOVAC 

EBANK=  DSPTAB 
2C ADR  TSTLTS3 

TC  TASKOVER 


CS  TSTC0N3  CALLED  BY  EXECUTIVE 

INHINT 

EXTEND  TURN  OFF  UPLINK  ACTIVITY,  TEMP, 

WAND  DSALMOUT  OPERATOR  ERROR. 

CS  BIT10  TURN  OFF  TEST  ALARM  OUTBIT 

EXTEND 

WAND  CHAN13 

CAF  BIT4  MAKF  NO  ATT  FOLLOW  BIT  4 OF  CHANNEL  12 

EXTEND  (NO  ATT  LIGHT  ON  IF  IN  COAPSE  ALIGN) 

RAND  CHAN  1 2 

AD  BIT15  TURN  OFF  AUTO,  HOLD,  FREE,  SPATE, 

TS  DSPTAB  +1 1 D GIMBAL  LOCK,  SPARE,  TRACKER,  PROG  ALM 

CS  13-11,1  SET  BITS  TO  INDICATE  ALL  LAMPS  OUT.  TEST 

MASK  T MODES  33  LIGHTS  COMPLETE. 

AD  PRT016 

TS  I MODE  S33 

CS  0CT550CG 

MASK  I M0DES30 

AD  PR  1 01 5 15000. 

TS  TMODES30 

CS  RFAILS2 

MASK  RADMODES 

AD  RCDUFBIT 

TS  RADMODES 

RE  LI  NT 

TC  BANKCALL 

C ADR  DSPMM 

TC  K I L M0N  IN 

TC  FLASHOFF 

TC  POSTJUMP 

C ADR  TST1TS4 


REDISPLAY  C(MODREG) 

TURN  ON  KILL  MONITOP  BIT. 

TURN  OFF  V/N  FLASH. 

DOES  PELDSP  AND  GOES  TO  PINBRNCH  IF 
ENDIDLE  IS  AWAITING  OPERATOF  RESPONSE. 


gap;  ASSEMBLE  REVISION  001  OF  AGC  PROGRAM  AP11R0PE  BY  EYLES 


3:15  DEC.  2,1970  AP11AID  .001  PAGE 


L PINBALL  GAME  BUTTONS  AMD  LIGHTS 


USER’S  PAGE  NO.  80  EO  S4 


2901 

2902 

2903 
290  A 


A 1,372  6 
41,3727 

41.3730 

41.3731 


16001  1 13-11,1 

00330  1 RFAILS2 
55000  1 QCT55000 

ENDPINS2 


OCT  16001 

OCT  330 

OCT  55000 

EQUALS 


FADAR  COU  AMD  DATA  FAIL  FLAGS. 


469 


GAP : 


P 2905 
- ! 

R 2907 
R 2908 
R 2^  r " 

R 2°  1 o 
R 29 1 ] 

2912 

2912  5 

2913 
2915 

2915 

2916 

2917 
29  IP 
291° 

292  r, 

2921 

2922 

2923 
2925 

2925 

2926 

2927 

2928 
292° 

2930 

2931 

2932 

2933 

293  6 

2935 
293  6 
29  3 7 

2938 

2939 

2940 

295  i 

2942 

2943 

2944 

2945 

2946 

2947 

2948 

2949 

2950 


ASSEMBLE  ■ EVISIPW  oul  .OF  A GC  PROGRAM  API  lROftE  BY  EYLES 
PINBALL  GAME  BUTTONS  AND  ! I GHTS 
ERROR  LIGHT  RESET  (PSET)  TURNS  OFF, 

UPLINK  ACTIVITY,  AUTO,  HOLD,  FREE,  OPERATOR  ERROR, 

PROG  ALM,  TRACKE'  FAIL. 

LEAVES  Cl MBAL  LOCK  AND  fU  ATT  ALONE. 

IT  AtSO  ZEROES  'HE  O'EV  ALARMS  CUT  BIT,  WHICH 4 * 6  7UFUS  OFF 
IT  ALSO  SETS  : CAT  T f'E  RESET : TO  1. 

IT  ALSO  FORCES  BIT  12  OF  AIL  OSPTAB  ENTRIES  TO  1. 


REF 

2 

LAST 

458 

40,3603 

R EF 

10 

L AST 

45  3 TP 

46  0: 

REF 

3 

LAST 

450 

4 C,  36  0 3 

1 ji 

LAST 

465 

40 , 3604 

4C, 3605 

REF 

23 

LAST 

468 

40,3606 

40, 3607 

REF 

20 

LAST 

46  8 

40 , 36 1 0 

REF 

1 

40 , 36 1 1 

P EF 

35 

LAST 

468 

40 ,3612 

REF 

26 

LAST 

46  8 

40,3613 

REF 

36 

LAST 

470 

40,3614 

REF 

4 

LAST 

468 

40,3615 

REF 

23 

LAST 

468 

< 0,36  1 6 

REF 

5 

LAST 

470 

40, 3617 

REF 

24 

LAST 

470 

40 , 3620 

REF 

24 

LAST 

47  0 

40,3621 

REF 

44 

LAST 

468 

40,3622 

REF 

25 

LAST 

47  0 

40,3623 

REF 

45 

LAST 

47  0 

40,3624 

9EF 

40, 3625 

REF 

29 

LAST 

46  8 

40 , 3626 

REF 

5 

LAST 

46  8 

40, 3627 

REF 

30 

LAST 

47  0 

40, 3630 

P EF 

2 5 

LAS1 

470 

40, 363  1 

4 n . ^ a, -3  o 

REF 

7 

LAST 

468 

40,3633 

REF 

1 

40,3634 

a n . 

ry  1 J 03 

REF 

21 

LAST 

470 

40,3636 

5 EF 

2 

LAST 

44  1 

40 , 3637 

PEE  4 LAST  467  40, 364 C 

40,3641 


REF 

5 

LAST 

47  0 

40, 3642 

REF 

37 

LAST 

47  0 

40,3643 

REF 

58 

L A RT 

459 

40,3644 

REF  1 40,3645 

REF  59  LAST  470  40,3646 


REF 

150  LAST  464 

40,3647 

REF 

1 

40,3650 

SETLQC 

39  836=5  COUNT* 

56  116  1 ERROR  XCH 
55*012  1 TS 

0 0004  0 INHINT 

3 4742  1 CAE 

0 CO 06  1 EXTEND 

05  011  1 WOR 

3 3672  1 CAP 

7 1036  1 MASK 

6 4735  1 AD 

55*036  1 TS 

4 5026  1 CS 

7 1303  1 MASK 

6 5026  0 AD 

55*303  1 TS 

4 4742  0 CS 

7 1302  0 MASK 

6 4742  1 AD 

56*302  0 TS 

4 3671  0 CS 

7 0110  0 MASK 

6 4745  0 AD 

54  110  0 TS 

4 4742  0 CS 

0 0006  1 EXTEND 

03  013  0 WAND 

4 3670  1 CS 

0 0006  1 EXTEND 

03  011  1 WAND 

3 4363  0 Y STAB  CAF 

54  117  1 TS 

0 0004  o INHINT 

50  117  0 INDEX 

11 '023  0 CCS 

6 ‘-753  1 AD 

0 3652  0 TC 

6 4753  1 AD 

4 0000  0 ERMINUS  CS 

7 3673  I MASK 


STBY,  f-  ESTAPT  . 


ftO  PMC  +2 
$$/P IN 
21/22REG 
DSPLOCK 

BIT10 

DSALMOUT 
GL+NOATT 
DSPTAB  + 1 1 D 
BIT  15 

DSPTAB  +1 1 D 
P R I 016 
I MODES 3 3 
P D I P 1 6 
I MODES33 
BIT10 
IM0DES30 
B IT  1 0 
I MODES  30 

RFAI LS 
P ADMODES 
PCDUFBIT 
RADMODES 

B IT  10 

C HAN  1 3 
ERCON 

DSALMOUT 

B1NC0N 

ERCNT 

ERCNT 

DSPTAB 

ONE 

ERPLUS 

ONE 

A 

NOT 8 1 T1  2 


5:15  DEC.  2,1970  AP11AID  .001  PAGE  470 

user's  page  np.  si  eo  S4 


RESTORE  OFIGINAL  C< DSPLOCK).  7HUS  ERROR 
LIGHT  RESET  LEAVES  DSPLOCK  UNCHANGED. 

TURN  ON  -.CAUTION  RESET:  OUTBIT 

BIT10  CHAN  11 

LEAVE  GIMBAL  LOCK  AND  NO  ATT  INTACT, 
TURNING  OFF  AUTO,  HOL  D , FREE, 

PROG  ALARM,  AND  TRACKER. 

RESET  FAIL  BITS  WHICH  GENERATE  PROG 
ALARM  SO  THAT  IF  THE  FAILURE  ST  ILL 
EXISTS,  THE  ALARM  WILL  COME  BACK. 


TURN  OFF  : T EST  ALARM:  OUTBIT. 


TURN  OFF  UPLINK  ACTIVITY, 
OPERATOR  ERROR. 

(DEC  10) 

ERCNT  = COUNT 


gap;  ASSEMBLE  REVISION  001  OF  AGC  PROGRAM  AP11RLPE  BY  EYLES 


3:  15  DEC 


2,1970  AP11AID  .001  PAGE  471 


2951 

2952 

2953 
2Q54 

2955 

2956 

2957 

2958 

2959 

2960 

2961 
2961  1 

2961  2 

2962 

2963 

296* 

A 2°6  9 

2966 
2°  4( 

2967 


2C68 


2969 


PINBALL  GAME  BUTTONS  AND  LIGHTS 


USER'S  PAGE  NO.  82  EO  S4 


REF  l 40,3651  0 3655  1 TC 

REF  151  LAST  470  40,3652  4 0000  0 ERPLUS  CS 

REE  2 LAST  470  40,3653  7 3673  1 MASK 

TEF  152  LAST  471  40,3654  4 0000  0 CS 

REF  6 LAST  470  40,3655  50  117  0 ERCOM  INDEX 

REF  38  LAST  47*0  40,3656  55*  023  0 TS 

40,3657  0 C ( 03  1 RELIN 

REF  7 LAST  471  40,3660  10  117  1 CCS 

REF  1 40, 3661  0 3640  0 TC 

9 EE  106  LAST  46t:  40,3662  3 4?55  1 CAF 

REF  5 LAST  30c'  40,36  63  54  375  1 TS 

r EF  6 LAST  471  40,  3664  54  376  1 TS 

REF  7 LAST  471  40,3665  54  377  0 TS 

n EF  2 LAST  108  40,3666  55'357  0 TS 

REF  62  LAS!  467  40,3667  0 5155  0 TC 


ERCOM 

A 

NOT  B I T 1 2 

A MIGHT  WANT  TO  RESET  CLPASS,  DECBFNCH, 

ERCNT  ETC. 

OSPTAB 

ERCNT 

TSTAB  +1 
ZERO 
F A 1 1 REG 
FAILREG  +1 
FAILREG  +2 
SFAIL 
ENDQF JOB 


40,3670 

00104 

1 

ERCCN 

OCT 

104 

CHAN  11  BITS  3,7. 

UPLINK  ACTIVITY,  AND  OPERATOP 
RADAR  COU  AND  DATA  FAIL  FLAGS 

40,3671 

00330 

1 

R FAILS 

OCT 

330 

40, 3672 

00050 

1 

GL+NOATT 

OCT 

00050 

NO  ATT  AMD  GIMBAL  LOCK  LAMPS 

40, 3673 

73777 

1 

NOTBI T12 

OCT 

73777 

40, 3674 


ENDPINS1  EQUALS 


REF  5 LAST  320  30,2000 


SB  ANK=  LOWSUPEf 


GAP:  ASSEMBLE  EVISIIH  001  OF  AGC  PROGR AN  AP11RQPE  BY  EYIES 

? 

: 0 DATE:  1 MAY  1968 

: DIGITAL  DCVEL  GEO  UP  LOG  SECTION  R6(  ,R62. 


L 

R60 

R0100 

MOD 

R0101 

MOD 

R 0 1 0 2 

FUN  i 

R 0103 

CALI 

R 0104 

ATT 

c 0105 

1 . 

R010F 

CAL 

R 0107 

2. 

R OIOS 

3. 

R 010  9 

4. 

R Olio 

A S T i 

R011 1 

5. 

RQ112 

R0113 

R01 14 

R011  5 

ROllr 

R 01 1 ^ 

6 . 

R 01 1 8 

R 01 1 9 

7. 

RQ120 

8.  : 

R0121 

9. 

R0I22 

10. 

R 0 1 2 3 

1 1 . 

R 01  29 

12. 

R0125 

P 0 1 2 6 

13. 

R0l2~ 

R012F 

RO 1 2° 

3:15  DEC.  2,1970  AP1LAID  .001  PAGE 
USER'S  PAGE  NO.  1 EO  S? 


A.  ENTER  - RESET  3— AX  I C FLAG  AMD  RETURN  TO  CLIENT. 

B.  T E F m T JATE  - IF  IN  POP  GO  TO  STEP  5A.  OTHERWISE  CHECK  IF  P61  IS 
THE  CALLING  PROGRAM.  IF  IN  R6 1 AN  EXIT  IS  MADE  TO  GO TO V 56 . IF 
NOT  IN  R61  AN  EXIT  IS  DONE  VIA  GOTUPOOH. 


C.  proceed 


(VECPOINT : 


Ct  > TIHUE  WITH  ' n GE  AM  AT  STEP 


G.IMBAL  ANGLES  (GQMANU.O. 


IF  SA-TT  S FACTORY  MANEUVEf  ,'TeP  5A  EXITS  °60. 

FGP  FURTHER  ADJUSTMENT  OF  THE  VEHICLE  ATTITUDE  ABOUT  THE 
DESIRED  VECTOR,  THE  ROUTINE  MAY  BE  PERFORMED  AGAIN  STARTING  AT 


472 


1" 


GAP:  ASSEMBLE  REVISION  uOl  OF  AGC  PROGRAM  AP11RQPE  BY  EYLES 

L Rc  ,R  62 

R 0 1 30  STEP  5C. 


R 01 3 1 CALLING  SEQUENCE:  TC  8ANKCAI L 
R0132  C AOP  ffeOLEM 

R 0 1 3 3 ERASABLE  INITIALIZATION  EQUIRED  : SCAXIS,  POINTVSM  (FOP  VECPOIMT) 
R 0 1 3 A 3AXISFLG. 

R 01 3 5 SUBTOU TINES  CA!  LEO:  VECPOIMT,  BALLANGS,  G0PERF2F , LINUS,  GODSPEF , 

R0136  GCMANJR,  DOWNFLAG,  PHASCHNG,  UPFLAG 

R 01 37  N C!!<  MAL  EXIT  MODES  : CAE  TEMPP60  (CALLERS  RETURN  ADDRESS) 

R013P  TC  BANK  JUMP 


R 0 1 3 ° AL  ARMS  : NOME 
R 01 AO  OUTPUT:  NONE 


R01A1 

DEBC IS: 

C PH  I , 

CTHETA 

, CPSI , 

TAX ISFLG 

TBASE2 

01A2 

34,2000 

BANK 

34 

1 

>/,  . yrir'n 

SETLOC 

M A \j  I JV  p G 

u ) . D 

r tr  i 

I 

c.  o t c.  -■ 

01 AA 

26,2123 

BANK 

01 A 5 

REF 

1 

1164 

EBANK= 

TEMPR60 

0 1 A 6 

PPF 

1 

COUNT* 

$ $ /R  06 

0 1 A 7 

RFF 

2 

LACT 

271 

26,2123 

0 4645 

1 

R60L EM 

TC 

MAKECADP 

01 AP 

REF 

2 

LAST 

A73 

26, 2124 

55 1 164 

1 

TS 

TEMPR60 

0149 

REF 

1 

26,2125 

3 4746 

0 

REDO MANN 

CAF 

3 AX  I SB  I T 

0150 

REF 

1 3 

LAST 

290 

2 6 , 2 1 2 6 

7 0101 

0 

MASK 

F LAGWRQ5 

0151 

REF 

153 

LAST 

A71 

26,2127 

10  000 

0 

CCS 

A 

015? 

REF 

1 

26,2130 

1 21  36 

0 

TCF 

TOBALL 

0153 

REF 

27 

LAST 

388 

26,2131 

0 6037 

0 

TC 

INTPPET 

015* 

26, 21 32 

77624 

1 

CALL 

0 1 5 r 

REF 

2 

LAST 

3 AO 

26,2133 

56040 

0 

V EC POINT 

0150 

PEF 

5 

LAST 

369 

2 1>,  2134 

0 0322 

1 

STORE 

C PH  1 

0157 

26,2135 

77  776 

1 

EXIT 

0158 

REF 

93 

LAST 

A68 

26,2136 

0 4616 

1 

TOBALL 

TC 

BANKCALL 

01585 

REF 

2 

LAST 

3A0 

26, 2137 

5 42  66 

1 

C ADR 

BALLANGS 

0159 

REF 

1 

26,2140 

3 2254 

0 

TO  BALL  A 

CAF 

V06N18 

01 

REF 

9A 

LAST 

A 73 

26,214  1 

0 46  1 6 

1 

1 C 

BANKCALL 

0161 

REF 

1 

26,21* 2 

20710 

0 

C A OR 

G0PERF2R 

0162 

REF 

1 

26,2143 

0 2242 

1 

TC 

R61TEST 

0 1 6 3 

PEF 

1 

26,2144 

0 2150 

1 

TC 

REOOMAMC 

016A 

REF 

1 

26 ,2145 

0 2175 

0 

TC 

E NDMANU1 

3:15  DEC.  2,1970  AP11AIQ  .001  PAGE  A73 
USER'S  PAGE  NO.  2 EO  S? 


IS  3-AXIS  FI  AG  SET 
YES 

TO  COMPUTE  FINAL  ANGLES 

ST03E  FINAL  ANGLES  - CDH I , CTHET A , CPS  I 

TO  CONVERT  ANGLES  TO  FOAI 

DISPLAY  PLEASE  PERFORM  AUTO  MANEUVER 
PROCEED 

ENTER  I.E.  FINISHED  WITH  R60 


gap:  ASSEMBLE  r.E  VIS!  JN  001  ' -F  AGC  PU0Gu  AM  AP11R0PE  BY  fcYLES 


L R 60  * R 6? 


0165 

REF 

1 

0166 

REF 

63 

LAST 

471 

0167 

REF 

2 

LAST 

A 73 

01  > * 

REF 

14 

LAST 

473 

016° 

REF 

154 

LAST 

473 

0170 

REF 

1 

0171 

REF 

28 

LAST 

473 

0172 

0173 

REF 

3 

LAST 

47  3 

017* 

REF 

fe 

LAST 

47  3 

0175 

0176 

REF 

95 

LAST 

473 

0 1 7 < ! 

REF 

3 

LAST 

473 

0177 

REF 

1 

01  7 ft 

RFF 

155 

LAST 

474 

017° 

R EF 

1 

‘.'1  ' D 

REF 

2 

LAST 

473 

0131 

REF 

96 

LAST 

474 

0132 

rEF 

1 

0]  83 

REF 

2 

LAST 

47  4 

0 1 

REF 

97 

LAST 

474 

0185 

REF 

1 

0186 

REF 

2 

LAST 

474 

01  O'7 

REF 

29 

LAST 

388 

0188 

REF 

3 

L AST 

3^0 

0 1 8 9 

REF 

3 

LAST 

473 

0190 

REF 

6 

LAST 

445 

0191 

REF 

3 

LAST 

263 

0192 

REF 

1 

0193 

REF 

156 

LAST 

474 

0194 

REF 

143 

LAST 

465 

0195 

REF 

144 

LAST 

474 

0196 

REF 

227 

LAST 

462 

0197 

REF 

16 

LAST 

442 

0198 

REF 

4 

LAST 

370 

019° 

RFF 

1 

0200 

REF 

3 

LAST 

288 

0201 

0202 

REF 

22 

LAST 

461 

0203 

REF 

1 

0204 

REF 

228 

LAST 

474 

,2146 

0 2201 

0 

TC 

,2147 

0 5155 

0 

TC 

,2160 

3 4 746 

0 

RE  on  PIANO 

CAP 

,2151 

7 0101 

0 

MASK 

,2152 

10  000 

0 

CCS 

,2153 

1 2161 

1 

TCF 

,2154 

0 6037 

0 

TC 

,2155 

77624 

1 

CALL 

,2156 

56040 

0 

,2157 

00322 

1 

STORE 

,2160 

77776 

1 

EXIT 

,216  1 

0 4616 

1 

TOBALLC 

TC 

,2162 

56  2 66 

1 

CADR 

,2163 

0 2255 

1 

TC 

,2164 

1C  0 00 

0 

CCS 

,2168 

1 2140 

x 

TCF 

, 2166 

3 2254 

0 

AUTOMANV 

CAF 

,2167 

0 6 616 

1 

TC 

,2170 

2 0451 

0 

CADR 

,2171 

0 2201 

0 

TC 

,2172 

0 4616 

1 

STAFTMNV 

TC 

,2173 

17750 

0 

CADR 

,2174 

1 2140 

1 

ENDM ANUV 

TCF 

,2176 

! 1 

0 

ENDMAN01 

TC 

,2176 

0 012  4 

o 

AD5  E S 

,2177 

31*164 

0 

CAE 

,2200 

0 4640 

1 

TC 

,2201 

4 E100 

1 

CHKLINUS 

CS 

,2202 

7 6 740 

1 

MASK 

, 2203 

10  000 

0 

CCS 

, 2204 

0 0002 

0 

TC 

, 2205 

3 0002 

0 

CA 

,2206 

54  156 

1 

TS 

,220  7 

4 6245 

0 

CS 

,2210 

6 0133 

0 

AD 

,2211 

55  * 055 

1 

TS 

,2212 

0 5353 

1 

TC 

,2213 

00132 

1 

OC  T 

, 22  14 

3 4 745 

0 

CAF 

,2215 

0 5464 

1 

TC 

, 2216 

0 0156 

0 

TC 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

2 6 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 
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USER’S  PAGE  NO.  3 E2  S3 

CHKLINUS 
ENDOF JOB 

TO  CHECK  FCR  PRIORITY  DISPLAYS 

3 AX  1 SB  IT 

..z 

F LAGWRD5 

A 

IS  3-AXIS  FLAG  SET 

TOBALLC 

I NTPRET 

YES 

VECPOINT 

CPH I 

T 0 COMPUTE  FINAL  ANGLES 

STORE  ANGLES 

BANKCALL 

6ALLANGS 

G+N , AUTO 

A 

TO  CONVERT  ANGLES  TO  FDA I 

CHECK  AUTO  MODE 

T OB ALL  A 

NOT  AUTO,  GO  P.  FREQUES  T AUTO  MANEUVER . 

V06N18 

BANKCALI. 

GODS  PR 

STATIC  DISPLAY  DURING  AUTO  MANEUVER 

CHKLINUS 

TO  CHECK  FOR  PRIORITY  DISPLAYS 

BANKCALL 

GQMANUR 

PERFORM  MANEUVER  VIA  KALCMANU 

TOBALLA 

DOW NO LAG 

3 AX  I SFLG 
TEMPR60 

BANK  JUMP 

FINISHED  MANEUVER. 

RESET  3-AXIS  FLAG 

FLAGWRD4 

PDSPFBIT 

A 

IS  PRIOPITY  DISPLAY  FLAG  SET? 

Q 

Q 

NO  - EXIT 

.MPAC  +2 

THREE 

BUF2 

TBASE2 

DHASCHNG 

00132 

SAVE  RETURN 

OBTAIN  LOCATION  FOR  RESTART 

HOLDS  0 OF  1 AST  DISPLAY 

BIT7 

LINUS 

MPAC  +2 

GO  SET  BITS  FOR  PRIORITY  DISPLAY 

GAP: 

L 

0205 

0206 

0207 

0208 
0200 
0210 

0211 
0212 
0213 
02 1 A 
0215 
02  1 fc 

C217 

02 1 p 
021° 

0220 

0221 

0222 

0223 

022  4 

022  5 
0226 

02  2 7 
0228 
0220 
0230 

023  1 

0232 

0233 

0234 
R 02  3 6 

R 0237 
R 0238 

0230 

0240 

0241 

0242 

0243 


ASSEMBLE  REVISIQA  001  OF  AC-C  PROGRAM  AP11R0PE  BY  EYLES 
R60,R62 

REF  2 LAST  368  26,2217  3 7714  1 RELINUS  CAF  PRI026 

6EF  6 LAST  299  26,2220  0 5146  l TC  PRIOCHNG 


KEF 

3 

1 AST 

287 

°EF 

15 

LAST 

293 

REF 

157 

LAST 

47  4 

REF 

1 

26,2221  3 4 747  1 

2'  ,2222  7 0075  1 

2A , 222 3 10  000  0 

26,2224  1 2237  1 


CAF  traCKBIT 

‘ASK  FLAGWR01 

CCS  A 

TC  F P ER. 60 


REF 

5 

LAST 

280 

REF 

21 

LAST 

287 

REF 

158 

LA1^ 

475 

REF 

4 

LAST 

474 

26.2225  3 4745  0 

26.2226  7 0074  0 

26.2227  10  000  0 

26.2230  0 2 2 34  0 

26. 2231  0 5353  1 

26.2232  40112  1 


CAF  P.NDVZBIT 

MASK  FLAGWFDC 

CCS  A 

TC  +4 

TC  PHASCHNG 

OCT  40112 


REF 

64 

LAST 

474 

26,2233 

0 

5155 

0 

p pi  p 

q 

L A 8T 

47c 

2 A * 2 2 3 4 

fi 

ruo 

1 

\j 

- D J J 

1 

26,2235 

40072 

0 

REF 

65 

LAST 

475 

26,2236 

0 

l 1 5 

0 

REF 

12 

LAST 

298 

25 , 2237 

0 

5 504 

0 

REF 

1 

26 , 2240 

00077 

1 

REF 

2 

LAST 

474 

26,2241 

0 

1055 

0 

REF 

9 

LAST 

488 

26,2242 

3 

101  1 

0 

26,2243 

0 

0006 

1 

REF 

2 

LAST 

473 

26,2244 

1 

2175 

1 

REF 

4 

LAST 

474 

26,2245 

3 

0100 

0 

REF 

2 

LAST 

4 74 

26,2246 

7 

4740 

1 

26 , 2247 

0 

00  06 

1 

REF 

3 

LAST 

246 

26,2250 

1 

6001 

1 

0 EF 

1 

26 ,2  25  1 

) 

6022 

1 

REF  6 0 


: 1TEST 


TC 

EF'DLF  JOB 

TC 

PHASCHNC- 

OCT 

40072 

TC 

ENDCF  JOB 

TC 

UPFLAG 

ADR  FS 

PDSPFL AG 

TC 

TBASE2 

CA 

MODREG  « 

EXTEND 

8Z  F 

F NDY  A(v!l 1 1 

L.  Lv  l PI  'U  1 

CA 

FLAGWRD^ 

MASK 

POSPFBIT 

EXTEND 

BZF 

GOTOPOOH 

TC 

GOT  OV56 

26.2252 

26.2253 

26.2254 
SUBP  3 i IT  IF’  E TO  CFECK 


20100 
00203 
014  22 
FOR  G+N 


1 BIT14+7  OCT 

0 0CT203  OCT 

1 VC6N18  VN 
CONTROL,  AUTO  STAB 


20100 

203 

0618 

IL  IZAT ION 


RETURNS  WITH  C(A)  = + 
RETURNS  WITF;  CIA)  = +0 


IF  NOT  SET  FOR  G+N,  AUTO 
IF  SWITCHES  ARE  SET 


26,2255 

0 0006 

1 

G+N, AUTO  EXTEND 

REF 

3 

1 AST 

1 14 

26,2256 

00  030 

1 

READ 

CHAN 30 

REF 

27 

LAST 

470 

26, 22c7 

7 4742 

0 

MASK 

BIT10 

REF 

159 

LAST 

47  5 

26,2260 

10  000 

0 

CCS 

A 

REF 

145 

LAST 

474 

26,2261 

0 0002 

0 

TC 

Q 

3:15  DEC 


2,1970 


AP11AID  .001  PAGE 


47  5 


USER'S  PAGE  NO.  4 E2  S3 

RESTORE  ORIGINAL  PRIORITY 

DON'T  CONTINUE  R60  UNLESS  TRACKFLAG  ON. 


IS  IT  P20 ? 

YES 

NO,  MUST  BE  P 25 , SET  2.11  SPOT 

SET  2.7  SPOT  F0C  P20 


SET  PC'IU  DTSPt  AY  FLAG  AFTER  FESTA^T 

IF  WE  ARE  IN  POO  IT  MUST  BE  V49  OR  V89 
THUS  WE  GO  Tl  ENDEXT  VIA  USER 
ARE  WE  IN  R61  (°20  OR  P25) 

NO 

YES 


+ 


NOT  IN  G+N 


CIA) 


I 
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0244 

26,2262 

0 

0006 

1 

I S I T AUTO  EXTEND 

CHECK 

FOR 

AUTO  MODE 

0245 

REF 

2 

LAST 

28  1 

26 , 2263 

00 

C31 

0 

READ 

CHAN31 

024  6 

REF 

46 

LAST 

464 

2o  » 2264 

7 

4736 

0 

MASK 

BIT  14 

0247 

R E F 

146 

LAST 

475 

26,2265 

0 

OCO  2 

0 

TC 

Q 

( + ) = 

NOT 

IN  AUTO,  (+0)  = ACK 

i 


..I 


..z 


..e 
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USER  * S PAGE  NO.  6 


E2  S3 


P0248  PROGRAM  DESCRIPTION  BALLANGS 

R 0249  MOD  NO.  LOG  SECTION  R60.R62 


R 0250  WRITTEN  BY  RAMA  M . A I Y A W A 1 
R 0251  FUNCTIONAL  DESCP  IPT  I-  ’ 


R 0252  COMPUTES  LM  FDAI  BALL  DISPLAY  ANGLES 
R 0253  CALLING  SEQUENCE 

R 0254  TC  BALLANGS 

R 0255  NORMAL  EXIT  MODE 


R 0256  TC  BALLEXIT  (SAVED  Q) 

R 02 5 7 ALARM  OR  EXIT  MODE  NIL 

R 0258  SUBROUTINES  CALLED 

R 0259  CD*Tn*G 

R026O  ARCTAN 

P 026 1 INPUT 


P 026?  C PH  I THE  TA  »CPS  I ARE  the  ANGLES  CORRESPONDING  TU  AOG,  A I G,  AMG.  THEY  ARE 

R 026  ? $P,2S  COMPLIMENT  SCALED  TO  HALF  REVOLUTION. 

R0264  OUTPUT 

R 026 5 FDAIX,FDAIY,FDAIZ  ARE  THE  REQUIRED  BALL  ANGIES  SCALED  TO  HALF  REVOLUTION 
R02&6  S P , 2 5 COMPLIMENT. 

R 0267  THESE  ANGLES  WILL  BE  DISPLAYED  AS  DEGREES  AND  HUNDREDTHS,  IN  THE  ORDER  ROLL,  PITCH,  YAW,  USING  NOUNS  18  C 19. 

R 026  9 ERASABLE  INITIALIZATION  EOUT'ED 

R 027  0 CPHI  ,CTHETA,CPSI  EACH  A SP  REGISTER 
R 027 1 DEBRIS 

R 0 27  2 A , L , Q , MP  AC  , S ! NCDU  , C 0 SC.OU  , PU  SHI  I S T , DA  LL  EX  I T 


R 0273 

R 027  5 

NOMENCLATURE ; 
EQUIVALENTLY, 

CPHI  , 
CDUX , 

CTH 

CDUY 

ETA,  C CPSI  REPRESENT  THE  OUTER, 
, L CDUZ . 

, INNER, 

r & 

MIDDLE  GIMB 

AL  ANGLES,  RESPECTIVELY!  OR 

R 02  7 6 

NOTE:  ARCTAN 

CHECKS 

Fop 

OVERFLOW  AND  SHOULD  BE  ABLE  TO 

HANDLE 

A NY 

S INGULARTT 

I ES. 

0278 

REF 

2 

LAST 

339 

26,2000 

SETLOC 

BAWL  ANGS 

0279 

26,2266 

BANK 

028  0 

REF 

1 

COUNT* 

4:  $ /BALI 

028  1 

REF 

3 

LAST 

473 

26 , 2266 

0 4645 

1 

BALLANGS  TC 

MAK FCADP 

028? 

REF 

I 

26,2267 

55*342 

1 

TS 

BALL  EXI  T 

0283 

REF 

7 

LAST 

474 

26,2270 

3 0321 

1 

CA 

CPHI 

GAP:  ASSEMBLE  REVISION  00 1 F AGC  PROGRAM  API  IP  OPE  BY  EYLFS 
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0284 

0285 

02  86 

02  87 

REF 

REF 

REF 

7 

2 

8 

LAST 

LAST 

LAST 

2 53 
369 
47  8 

26,227  1 
26,2272 

7 A . 7 7 77 

orf 

3 

LAST 

36  9 

26 , 2279 

02  88 

REF 

c : 

LAST 

478 

26,2275 

54  772 
3 5 322 
54  7b6 
3 53  2 3 

1 

1 

1 

0 

TS 

CA 

TS 

CCUSPOT 
CTHETA 
r n j : pot 

+4 

CA 

CPSI 

54  770 

0 

TS 

C DU SPOT 

+ 2 

0289 

REF 

29  LAST  474 

26,2276 

0 6037 

0 

0290 

26,2277 

45001 

1 

0291 

26*23C0 

00001 

0 

029? 

5 EF 

1 

26,2301 

47543 

0 

TC  I NT P RET 

SETPD  CALL 
OD 

CD*T'  *G 


0293 

0294  PEE  1 

0295  REF  1 


24.2302  41345  0 

26.2303  00743  1 

26.23C 4 00747  0 


DLOAO  DMP 

S INCDUX 
CO SC DU Z 


0296 
029  7 

02  9 8 

0299 

0300 

0301 
030? 
0303 
030'- 
030r 

0306 

0307 
0303 

0309 

0310 

0311 

0312 

0313 

03  1 4 

0315 

0316 

0317 

0318 

03 19 
03  2 C 
0321 
032? 

0323 

0324 

0325 

0326 

0327 
032  c 


26,2305 

5 75  52 

1 

26,2306 

6 53  36 

1 

REF 

1 

2 6 ,2307 

0 0741 

0 

REF 

4 

LAST 

322 

26, 23 10 

14023 

0 

REF 

2 

LAST 

478 

26,2311 

00747 

0 

26,2312 

72405 

0 

P EF 

1 

26,2313 

0 5 f 6 1 

1 

KEF 

4 

LAST 

322 

26,2314 

34021 

0 

REF 

1 

26,2315 

26510 

1 

26,2316 

41325 

0 

REF 

2 

LAST 

478 

26,2317 

00741 

0 

REF 

2 

LAST 

478 

26, 232 C 

00  743 

1 

26,2321 

1 1 5 1 2 

1 

26,2322 

61  20  5 

0 

P EF 

1 

2 6 ,2323 

09  76  5 

]_ 

26,2324 

65205 

0 

RFF 

1 

26,2325 

00737 

1 

REF 

2 

L AST 

478 

?6  . ?~\7h 

0 r,  7 6 1 

1 

4.  v f 4.  •_»  la  D 

26 , 2327 

7 2405 

i 

0 

r|;f 

2 

L AST 

47  8 

26,2330 

00745 

1 

26, 2331 

45425 

0 

REF 

c 

LAST 

478 

26,2332 

63756 

0 

REF 

2 

LAST 

478 

26,2333 

00737 

1 

? h . ?7 T4 

7 ? 4 n 8 

n 

1 C v U .x 

u 

REF 

3 

i AST 

4 7 8 

26,2335 

0 0751 

1 

26,2336 

454  1 5 

0 

RFF 

5 

LAST 

47  8 

26,2337 

43754 

0 

REF 

2 

LAST 

478 

26,2340 

26510 

1 

26, 2341 

55525 

0 

26 ,2342 

77634 

0 

F EF 

2 

LAST 

365 

26,2343 

21620 

0 

KEF 

2 

LAST 

305 

26,2344 

02345 

1 

26,2345 

77776 

1 

S LI 

Af  C S I fv 

STCDL 

DMP 

STCAL L 
POOL 


SI.  2 
DMP 

DMP 


DMP 

DSU 

STODL 

DMP 

DAO 

STCALL 

POOL 

RTB 

STORE 

EXIT 


DCOMP 
D DDL 
S INCDUZ 
S INTH 
COSCDUZ 
S LI 

CCSCOUX 
CCS  TH 
ARCT AN 
DMP 

S INCDUZ 

S INC DUX 

PUSH 

PDDL 

CCSCOUY 

PDDL 

SINCDUY 

CCSCOUX 

St  ] 

COSC.DUY 
ST  ADR 
COSTH 
SINCDUY 
SL1 

CCSCOUX 
STADP 
S INTH 
ARCT AN 
VDEF 

V 1 ST 02 S 
FDA  I X 


0329  REF 


2 LAST  477 


26,2346  3 1342  0 ENDBALL  CA 


BALLEXI T 


3 : 1 5 DEC.  2,1970  APllAlO  .001  PAGE  47S 
USE  PAGE  NO.  7 f_2  S3 


SIN  ( EGA) 

COS  ( MG A ) 

SCALE 

YAW  = ARCS  IN(-SXCZ)  INTO  0 PD 
(SINTH  = 1 8 D IN  PD) 

RESCALE 

(COSTH=  16D  IN  PD) 

ROLL  = ARCTAF  (SZ/CZCX ) INTO  2 PD 


SXSZ  INTO  4 PD 
SXSZCY  INtq  / on 

SXSZ  SY  INTO  6 PD 


CXCY 

PULL  UP  Ff CM  6 PD 
COSTH  = CXCY  - SXSZSY 


CXSY 

PULL  UP  FROM  4.  pd 

SINTH  = CXSY  + SXSZCY 

RETURNS  WITH  D(MPAC)  = PITCH 

PITCH  INTO  2 PD,  POLL  INTO  MPAC  FROM  2PD 

VDEF  MAKES  V(MPAC)  = ROLL,  PITCH,  YAW 


MODE  IS  TP 
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.001  PAGE 
E2  S3 


479 


032  01 5 


7 LAST  474  26,2347  C 4640  1 


TC 


BANK  JUMP 


ROYAL  f BUSINESS  FORMS  INCORPORATED  nashua  new  hampshir 


t 

D 

§ 


1 


G AP  : 

L 

PO330 


R 0331 
R0333 
R 03  3? 
R0337 
R 0339 
R 034 1 
R 0343 
P 0341 
R03h6 
R0348 
R 0350 
R0352 
R 03  54 
R 03  56 
R 035  8 
R 0360 
R 0362 
R 0364 
R 036  6 

R 036  q 
R 0369 
R0370 
R 037  1 

R 0 3 7 2 
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TO  RE  POI 
BEGINNING 
THE  DIREC 
SUCCESSI V 
VECTOR  AP 
ANGIES  (2 
IN  TIMPAC 

THE  TRANS 
PRODUCT  A 

LOCK.  IF 
THE  ADDIT 
THE  ADDIT 
STORED  AS 

CANNOT  CO 
REQUIRED 

EXCEPT  TH 


THIS  INTERPRETIVE  SUBROUTINE 
NT  ED  M US’  APPEAR  AS  A HALF  UN 
WITH  THE  l DC  AT  I ON  CALLED  SCA 
T l ON  IN  WHICH  THIS  AXIS  IS  TO 
E LOCATIONS  OF  ERASABLE  ME MOP 
E GIVEN  IN  STABLE  MEMBER  CQOR 
S COMPLEMENT)  C OP E S POND I NG  TO 
) PEE'  L F fc  TUP  N I NO  T THE  CAL 
THIS  ROTATION,  HOWEVER,  MAY  B 
PONDER  AXIS,  OP  THE  AOT  FOR  T 
TTITJDE  ABOUT  POINTVSM  BY  A F 
THE  AXIS  TO  BE  POINTED  IS  MO 
IONAL  RUT  AT  I ON  rL<  AVOID  G T HAL 
IUNAL  o T AT  ION  IS  3'  DEGREES. 
2C  CO MP 1 I ME NT  ANGLES  II  T(MP 
JHf  1 POINTING  THE  X-AXIS,  OR 
RRECT  FOR  A CROSS-PRODUCT  ROT 
TO  POINT  THE  VECTOR  IN  THE  DE 
AT  THE  FINAL  MIDDLE  GIMBAL  AN 

CALLING  S EOUEMCE  - 

1)  LOAD  SCAXIS,  POINTVSM 

2)  CALL 

VEC POINT 

RETURNS  WITH 


MAY  BE  USED  TO  POINT  A SPACECRAFT  AXIS  IN  A DESIRED  DIRECTION.  tHe  AXIS 
IT  DOUBLE  Pf  EC  I SI  OK  VECTC"-  IN  SUCCESSIVE  LOCATIONS  OF  ERASABLE  MEMORY 
XIS.  THE  COMPONENTS  IF  THIS  VECTOR  ARE  GIVEN  IN  SPACECRAFT  COORDINATES. 

BE  POINTED  MUST  APPEAL  AS  A HALF  UNIT  DOUBLE  PRECISION  VECTOR  IN 
Y BEGINNING  WITH  THE  ADDRESS  CALLED  POINTVSM.  THE  COMPONENTS  OF  THIS 
D IN ATE  S . WITH  THIS  INFORMATION  VECPOINT  COMPUTES  A SET  OF  THREE  GIMBAL 
THE  Cr-  OSS-PI  UDL(CT  ROTATION  BE1  WE  EN  SCAXIS  AND  »OINTVSM  AND  STORES  THEM 
LEI  . 

RING  THE  S/C  INTO  GIMBAL  LOCK.  WHEN  POINTING  A VECTOR  INI  THE  Y-Z  PLANE, 

HE  LEM,  THE  PROGRAM  WILL  CORRECT  THIS  PROBLEM  eY  ROTATING  THE  CROSS- 
IXED  AMOUNT  SUFFICIENT  TO  ROTATE  THE  DESIRED  S/C  ATTITUDE  OUT  OF  GIMBAI 
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PRIORITY 

26 

TC 

LUNSFCHK 

CHECK  IF 

ON  LUNAR 

R 0007 
R0008 
R 0009 
R 00 1 r 
P001 1 
R 001  2 
R0C13 
R0014- 
R001 
R 00  1 fc 
P 00  1 7 
R Of  ] o 

P Of  i - 

R 002  0 
ROC  21 
P 0022 
R 002  3 
K002-! 
R002  5 
R 0026 
R0027 
R 002  3 
R0029 
R003f 
R0031 
R 003  2 
ROC  3 3 
R 0034 
R 003  5 
R 0036 

0037 

0Q38 

003° 

004-0 


THF  PURPOSE  OF  THIS  PROGRAM  IS  Tr  CONTROL  the  RENDEZVOUS  RADAP  FROM 
STARTUP  T Hr  HUGH  ACQUISITION  AND  LQCKON  TO  THE  CSM  AND  TC  UPDATE  EITHER 
THE  L ' OR  CSM  STATE  VECTE  > (AS  SPECIFIED  BY  THE  ASTRONAUT  BY  DSKY  ENTRY) 
O'  THF  BASIS  OF  -HE  r -■  T AC  K I NG  DATA. 

CAL'  tn-  SEQUENCE  - 


FL AGUP 
FLAGDOWN 
BANK  CALL 
''  A S K 0 V E r 


ENDUF JOB 
GOPEFF 1 


ASTRONAUT  REOUEST  THROUGH  DSKY  VT7E20E 
SUBROUTINES  CALLED 

RC2B0TH  ( I MU  STATUS  CHECK) 

GOFLASH  (PIN BAl  (.-DISPLAY  ) 

T P3LEM  ( AN UAL  ACQUIS  IT  I CM) 

L c ?f I (I  OS  DETERMINATION) 

LS202  (RANGE  LIMIT  TEST) 

R 6 1 LEM  (PREFERRED  TRACKING  ATTITUDE) 
s 2 1 LEM  (RR  DESIGNATE) 

2 2 L : ’ (DATA  FAD) 

R311EM  ( RENCFZVOL  PARAMETER  PISPLAY) 
pr  T ot  At  M (PR  T T “ Y DISPLAY) 

NORMAL  EXIT  MODES- 

P2C  MAY  BE  TERMINATED  IN  TWO  W AY S- AS TRONAUT  SELECTION  OF  IDLING 
PROGRAM  (POO)  BY  KEYING  V37E00E  M BY  KEYING  IN  V5oE 
ALARM  UR  ABORT  EXIT  MODES- 

RANGE  GREATER  THAN  400  IM  DISPLAY 
OUTPUT 

TRKMKCNT  = NO  OF  RENDEZVOUS  TRACKING  MARKS  TAKEN  (COUNTER) 
ERASABLE  INITIALIZATION  REQUIRED 
FLAGS  SET  + RESET 

RCHOPT  , RNOVZF  LG  t ACMOOFLG  , VEHU  PFLG  »UPDATFLG  * T I ACKFLG  , 

DEBRIS 

CFf'Tr  ALS-A,  5 ,L 

REF  1 LAST  489  30,2000 


REF 


33,  2045 
24,2000 
24,2000 


$BANK=  LOWSUPEF 

BANK  33 
SETI.OC  P20S 
BANK 


PROG 2 2 
PR0G20 


EBANK=  LOSCOUNT 
COUNT  * $ $/ P 20 
= PROG20 

TC  2 PHSCHNG 


L |MP 20$  . 
MO.  1 


SUP  F ACE 


GAP: 

L 

004  8 

0049 

0080 

00cl 

005  2 

005  3 

005^ 

0055 

0056 

0057 

005  b 

om9 

0060 

0061 

006  2 

006  3 

0064 

0065 

0066 

0067 

006  8 

OOo  9 

007  o 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0076 

0080 

00801 

008  1 

008  2 

0033 

0084 

003r 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0098- 

00°  5 
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USE1?  ' S PAGE  NO.  2 


.127  PAGE 
E7  S3 


REF  1 

REF  1 

REF  14  LAST 

REF  3 LAST 

REF  61  LAST 

PEF  1 

REF  1 

PEF  103  LAST 

REF  1 

REF  4 LAST 

REF  1 

REF  1 

REF  2 LAST 

REF  2 LAST 
REF  1 
RFF  104  LAST 
REF  7 LAST 
REF  5 LAST 
REF  1 

RET  31  LAST 

REF  1 

REF  1 

REF  1 


24.2005 

24.2006 
485  24,2007 

28R  24 ,2010 

491  24,2011 

26, 7012 
24,2013 
490  24,2014 

24, 2015 
475  24,2016 

26 ,2017 
74,?0?0 
24 , 202  1 
493  24,2022 

24,2023 
+93  24,2024 

24,2025 
493  26,2026 

485  24,2027 

493  24,2030 

24.2031 

24.2032 
487  24,2033 

24. 2034 

24.2035 
32,2217 
32,2000 
32,2217 


0 2007  1 
0 2036  0 
0 5504  0 
00026  0 
3 4753  1 
55 '145  1 

3 2311  0 
0 4616  1 

20633  0 
0 6001  0 
0 2021  0 

0 2013  1 

4 2312  1 
6 1145  0 
0 00  06  1 

1 2 C4  0 0 
3 2315  1 
0 4616  1 

20476  0 
6001  0 
0 2033  0 
0 2025  1 
0 6C3 7 0 
77650  1 
64217  1 


OkBCHGO 


0RBCHG1 


CPBCHG2 


TC  OPBCHGO 

TC  PR0G20A  -2 

TC  UPFLAG 

ADFES  VF  HUP  FLO 

CAF  ONE 

TS  0PTI0N2 

CAF  OCT  0001 2 

TC  BANKCALL 

CAOR  G0PERF4 

TC  GOTQPOOF 

TC  0RBCHG1 

TC  -5 

CS  P220NE 

AD  OPT I0N2 

EXTEND 

BZF  PROG 2 0 A 

CAF  V06N33* 

TC  BANKCA!  1 

C A DP  G OF  LASH 

TC  GCTOPOOH 

TC  0RBCHG2 

TC  -5 

TC  INTprfT 

GOTO 

0RBCHG3 
BANK  32 

SETLOC  P2QS4 

BANK 

COUNT  * L$/P20 


YES 

NO  - CONT  TNUE  WITH  P20 

SET  VEHUPFLG  - CSM  STATE 

VECTOR  TO  BE  UNDATED 

SET  R 2 FOR  option  CSM  WILL  NOT 

CHANGE  PRESENT  ORBIT 

DISPLAY  ASSUMED  CSM  ORBIT  OPTION 

TERMINATE 

PROCEED  VALUE  OF  ASSUMED  OPTION  OK 
R7  LOADED  T HP  U DSKY 


FLASH  VERB— NOON  TO  REQUEST  ESTIMATED 

TIME  OF  LAUNCH 

TERMINATE 

PROCEED  VALUES  OK 

TIME  LOADED  THRU  DSK* 


REF 

5 

LAST 

297 

32,2217 

32,2220 

37.7771 

77624 

27414 

7 7 74.^ 

1 

0 

1 

0RBCHG3  CALL 

n i i i a n 

INTSTALL 

C.  1 r_  c.  C.  1 

1 

l7  1 L >\  L/ 

REF 

8 

LAST 

306 

^2,2222 

0 3442 

0 

T IG 

REF 

2 

LAST 

148 

32 , 2223 

03661 

0 

STORE 

LNCHTM 

REF 

*7 

LAST 

487 

32, 2224 

CO  041 

1 

STORE 

T DEC  1 

ESTIMATED  LAUNCH  TIME 

32,2225 

43  Cl  4 

0 

CLEAR 

CLEAR 

REF 

4 

LAST 

237 

32,2226 

01674 

0 

VI  NT FLAG 

LM  INTEGRATION 

REF 

1 

32,2227 

01673 

1 

INTYPFLG 

PRECISION  - ENCKE 

32,2230 

43014 

0 

CLEAR 

CLEA  1 

REF 

3 

LAST 

23  6 

32,223  1 

01676 

1 

DIMOFLAG 

NO  W-MATRIX 

RFF 

2 

LAST 

236 

32,2232 

01675 

1 

D60R  9F LG 

32,2233 

77624 

1 

CALL 

REF 

3 

LAST 

236 

32,2234 

27134 

1 

INTEGRV 

PLANETARY  INERTIAL  ORIENTATION 

32,2235 

77624 

1 

CALL 

REF 

l 

32,2236 

11244 

0 

GRP 2 PC 

32 ,2237 

77775 

1 

VLUAD 

PEF 

2 

I AST 

2 . 

37 , 2240 

00017 

1 

R ATT  1 

REF 

2 

LAST 

148 

32,2241 

17631 

0 

STOOL 

RSUBl. 

SAVE  LM  POSITION 

REF 

4 

LAST 

487 

32,2242 

0C015 

0 

TAT 

493 
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0096 

REF 

8 

LAST 

493 

32,2243 

34041 

0 

0097 

REF 

6 

LAST 

493 

32,2244 

27414 

0 

noQo 

43014 

Q 

UW7V) 

.9  4 t 4 4 T .> 

0099 

REF 

5 

LAST 

493 

32,2246 

01674 

1 

0100 

REF 

2 

LAST 

493 

32 ,2247 

01673 

1 

010  1 

3 7 , 22^0 

63014 

o 

0102 

REF 

4 

LAST 

493 

32,2251 

01676 

1 

0103 

REF 

3 

LAST 

236 

32,2252 

02756 

1 

0104 

REF 

1 

32,2253 

642  57 

0 

0105 

32,2254 

% 43014 

0 

0106 

REF 

5 

LAST 

494 

32,2255 

03  47o 

0 

0107 

REF 

3 

LAST 

494 

32,2256 

01475 

0 

0108 

32,2257 

77624 

1 NOWMATX 

0109 

REF 

4 

LAST 

49  3 

32,2260 

27134 

1 

0110 

32,2261 

77624 

1 

011  1 

REF 

2 

LAST 

49  3 

32 , 226  2 

1124-6 

0 

0112 

32,2263 

77775 

1 

0113 

RFF 

LAST 

209 

3 2 > 226 4 

000  2 5 

0 

0 1 1 * 

REF 

1 

32,2265 

25761 

0 

0115 

REF 

3 

LAST 

49  3 

32, 2266 

00017 

1 

0116 

REF 

1 

32 ,2267 

01102 

0 

0117 

32, 2270 

5 3435 

0 

Olio 

REF 

2 

LAST 

494 

32,2271 

Cl  761 

0 

011c 

32, 227? 

26  025 

0 

0120 

REF 

3 

LAST 

49  3 

32,2273 

03631 

0 

0121 

32 , 2274 

5 343  5 

0 

0122 

32,2275 

OC  02.5 

0 

0123 

REF 

2 

LAST 

143 

32,2276 

27637 

0 

0124 

REF 

2 

LAST 

494 

32,2277 

01102 

0 

01 2 p 

32,2300 

5 0256 

0 

0126 

REF 

3 

LAST 

494 

32,2301 

03637 

0 

0127 

32,2302 

77752 

1 

0128 

REF 

2 

LAST 

12  5 

32 , 2303 

02732 

n 

u 

0129 

32,2304 

6431  6 

0 

0130 

REF 

1 

32,2306 

10314 

0 

0131 

32,2306 

77766 

0 

0132 

REF 

2 

LAST 

125 

32,2307 

2 6730 

1 

0133 

REF 

3 

LAST 

49  4 

32,2310 

01102 

0 

1 3 

REF 

1 

32,231  1 

26655 

0 

0135 

REF 

3 

LAST 

4°4 

32,2312 

01761 

0 

0135  1 

32,2313 

77676 

0 

0136 

REF 

2 

LAST 

125 

32,2314 

02744 

1 

0137 

32,2315 

45014 

0 

0138 

REF 

1 

32,2316 

03666 

1 

0139 

REF 

1 

32,2317 

24732 

1 

0 1 3 c I 

32,2320 

776  76 

0 

0140 

REF 

2 

LAST 

148 

32,2321 

0 3645 

0 

01401 

32,2322 

77745 

1 

01402 

REF 

1 

32,2323 

00037 

0 

01403 

REF 

2 

LAST 

148 

32 , 2324 

27663 

1 

STCALL 

SET 

CLEAR 

SET 

CALL 
CAL  L 
V L ' A D 
STOVL 

STORE 

VXV 

STOVL 

VXV 

STOVL 

UNIT 

SL1 

STORE 

DSQ 

SORT 

STOVL 

STOVL 

VC  LHP 
STOP  E 
CLEAR 


VC  CMP 
STORE 
Dl.OAD 

STOVL 
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TDEC1 

INTSTALL 

CLEAR 

VIMTFLAG 

INTYPFLG 

BCFf 

DIMOFLAG 

CSM  INTEGRATION 

RENDWFLG 

NOWMATX 

SEr 

DIMOFLAG 

D60R9FLG 

W MATRIX  VALID 

NO 

YES  - SET  FOR  W MATRIX 

I NTEGRV 

GRP 2 PC 

CSM  INTEGRATION 

V ATT 1 

VSUBC 

R ATT  1 

SAVE  CSM  VELOCITY 

KSUBC 

UNI  T 

VSUBC 

20D 

RSUBL 

UNIT 

20  D 

UCSM 

SAVE  CSM  POSITION 

COMPUTE  NC  R'  AL  TO  CSM  OPBITAL  PLANE 
NSUB1=UNIT ( R (CM)  CROSS  V ( CM ) 

SAVE  NSUB1 

COMPUTE  ESTIMATED  ORBITAL 

PLANE  CHANGE 

UCSM  = UNITIK(LM)  CROSS  NSUB1 ) 

SUBC 

DOT 

UCSM 

COMPUTE  ANGLE  BETWEEN  UCSM 

AMD  PSUBC 

COS  A = UCSM  DOT  UNIT  (R(CM)> 

CSTH 

BDSU 

ONE 8-2 

SAVE  DOE  TIME-THETA  SUBROUTINE 
COMPUTE  SINE  A 

SNTH 

R SUBC 

RV  EC 

VSUBC 

SAVE  FOR  TIME-THETA  SUBROUTINE 
POSITION  OF  CSM  AT  EST.  LAUNCH 

TIME  FOR  TIME-THETA  B-27 

VELOCITY  OF  CSM  AT  EST.  LAUNCH 

VVEC 

CALL 

RVSW 

TIMETHET 

TIMF  F! F TIME  THFTA  B-5 

NEW V EL 

TERMINAL  VELOCITY  OF  CSM 

T 

TRANSTM 

TRANSFER  TIME 
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01404 
01  A] 
01411 
014? 
014? 

0144 

0145 

0146 

0147 

0148 

0149 

0150 
015  1 

0152 

0153 

0154 

0155 
01551 

0156 

0157 

0158 
015? 
0160 
0161 
0162 
01621 
01622 


REF 

REF 

REF 

REf 


REF 

RFF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 


LAST  494 


2 LAST 
4 LAST 

3 LAST 


1 5 

494 

495 


LAST  494 


LAST  494 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


494 
40  3 

320 
49  5 

321 
1 10 
40  5 
110 


32.2325 

32.2326 

32.2327 

32.2330 

32.2331 
32 , 233  2 

32.2333 

32 . 2334 

32.2335 

32 . 2336 

32.2337 

32.2340 

32 .2341 

32 . 2342 

32.2343 
3?  , 234  4 
32,2345 
32 , 23 A 6 
32,2347 

32.2350 

32.2351 

32. 2352 

32.2353 

32 . 2354 

32.2355 

32.2356 

32.2357 


03645  0 
77646  0 
24025  0 
€0001  0 
03653  1 
53435  0 
03631  0 
53435  0 
03653  1 
76561  1 
00025  0 
3 7 6 6 r 0 
11244  0 
77624  1 
27414  0 
4434  5 0 
036 63  1 
0364 1 0 
25517  0 
03653  1 
C 1 5 35  0 
25503  0 
03665  1 
35511  1 
23455  1 
45174  1 
OC  002  0 


0L63 

REF 

2 

LAST 

37 

32,2360 

26661 

1 

016' 

32,2361 

776  24 

1 

0 1 6 c 

r> 

\ 

1 7 ( 73/k  7 

2 74  2 3 

1 

1 

0166 

32,2363 

77776 

1 

0167 

REF 

105 

LAST 

493 

32 , 2364 

0 4616 

1 

0168 

REF 

3 

LAST 

49  3 

32, 2365 

5 CO  40 

0 

0169 

54,2036 

0170 

R EF 

2 

LAST 

492 

24,2000 

0171 

24,2036 

0172 

REF 

2 

L AST 

492  TO 

493  : 

30  30* 

0173 

REF 

30 

LAST 

474 

24, 2036 

0 551  6 

0 

0174 

REF 

4 

LAST 

403 

24,2037 

00026 

0 

0175 

REF 

106 

L ArT 

40  c 

24,2040 

0 46  16 

1 

0176 

REF 

3 

LAST 

487 

24, 204  1 

112  54 

1 

0177 

REF 

15 

LAST 

493 

24,2042 

0 5504 

0 

0178 

REF 

2 

LAST- 

287 

24,2043 

00027 

1 

0179 

P EF 

16 

LAST 

49  5 

24, 2044 

0 55U4 

0 

0180 

RFF 

2 

LAST 

23  7 

24,2045 

00031 

0 

0181 

REF 

17 

L A'T 

495 

24, 2 0 4 6 

0 5504 

0 

0182 

RFF 

2 

LAST 

287 

24,2047 

00010 

0 

0183 

REF 

31 

LAST 

495 

24, 2050 

0 5516 

0 

0184 

REF 

2 

LAST 

287 

24, 205  1 

00037 

0 

PROG 20 A 


NEW V E L 

ABVAL 

STUVL  200 
OD 

STORE  NEWPOS 
VXV  UNIT 

RSUBL 

VXV  UNIT 

NEWPOS 
VXSC  VSLl 
2 00 

STCALL  NCSMVEL 
GRP2PC 

CALL 

INTSTALL 
OLD  AD  BDSU 

TRANSTM 
L NC  HTM 
STOVL  TET 

NEWPOS 
STORE  RCV 
STOVL  RRECT 

NCSMVEL 
STCALL  VRECT 

MINI RECT 
AXT,2  CALL 
2 

ATOPCSM 

CALL 

T NTWAKEO 


EXIT 

TC  BANKCALL 

CADR  PROG20A 
BANK  24 
SET!.  OC  P20S 
BANK 

COUNT  * $$/P20 


TC 

DOW NE LAG 

ACRES 

vehupfl g 

TC 

BANKCALL 

C A 0 P 

- 0?Br'TH 

TC 

UPFLAG 

ADR  E S 

UPDATFLG 

TC 

IJPFLAG 

ADPES 

T RACK  EL  G 

TC 

UPFLAG 

ACRES 

RNOVZFLG 

TC 

DCWNFLAG 

ADRES 

SPCHOPTI 
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TERMINAL  POSITION  OF  CSM 
COMPUTE  NORMAL  TO  CSM  OPBITAL  PLANE 
NSU82  = UNIT ( NEWPOS  CROSS  R ( L M ) ) 
ROTATE  TERMINAL  VEL  INTO  DESIRED 
ORBITAL  PLANE 

VStJBC  = ABVAL  (NEWVEL)  $ UNIT  ( MSUB2 
NEW  CSM  VELOCITY 


LAUNCH  TIME  - TRANSFER  TIME 


RESET  VEHUPFLG-  LM  STATE  VECTOR 
TO  BE  UP D AT ED 

SET  UPDATE  FLAG 
SET  TRACK  FLAG 
SET  RENDEZVOUS  FLAG 
INSURE  SEARCH  OPTION  OFF 


495 


GAP:  ASSEMBLE  RE  VIS  I 3K  001  OF  A-GC  PROGRAM  APIIaOPE  BY  EYLES 


L P20-P25 


0185 

REF 

32 

LAST 

495 

24,2052 

0 5516 

0 

TC 

DOWNFLAG 

0136 

REF 

1 

24, 2053 

00040 

0 

AORES 

ACMQDFLG 

o i r, 

REF 

33 

LAST 

456 

24,2054 

0 5516 

0 

TC 

DOWNFLAG 

01R8 

REF 

5 

LAST 

279 

24,2055 

000  63 

1 

A 0 R E S 

R04F1  AG 

0180 

RFF 

34 

LAST 

496 

24, 2.05  6 

0 5 516 

0 

TC 

DOWNFLAG 

0190 

REF 

3 

LAST 

2TI 

, 20c  7 

00126s 

1 

A 0 1 E$ 

NCR k MON 

0191 

REF 

35 

LAST 

496 

24,2060 

0 5516 

0 

TC 

DOWNFLAG 

0192 

REF 

1 

24,2061 

00041 

1 

ADRES 

LOSCMFLG 

0193 

REF 

5 

LAST 

288 

24,2062 

0 6011 

1 

TC 

clradmqq 

0195 

REF 

6 

LAST 

475 

24, 2063 

0 5353 

1 

P 201  EMI 

TC 

PHASCHNG 

OlEi* 

24 ,2064 

04  022 

0 

OCT 

04022 

0197 

REF 

107 

LAST 

47  1 

24,  ?0  6 5 

3 4755 

1 

CAF 

ZERO 

0198 

REF 

1 

24,2066 

55*462 

1 

TS 

MARKCTR 

0 1 9 r 

REF 

32 

LAST 

493 

24,2067 

0 6037 

0 

TC 

INTPRET 

0200 

24,2070 

77634 

0 

aTB 

0201 

RFF 

6 

LAST 

487 

24,2071 

21573 

0 

LOAD! IMF 

0202 

REF 

9 

LAST 

494 

24, 2072 

34  Oil 

0 

SIC ALL 

TDEC1 

020? 

REF 

1 

2 l , 207  3 

512  55 

1 

L PS  20. 1 

0204 

24,2074 

77624 

1 

CAl  L 

0205 

REF 

1 

24,2075 

53565 

1 

LPS2C.2 

0206 

24,2076 

77776 

1 

EXIT 

0207 

REF 

229 

LAST 

474 

2*- , 2077 

50  154 

1 

INDEX 

MPAC 

020P 

2 4,21 0 0 

0 2101 

0 

TC 

+ 1 

0?0C 

REF 

1 

24 ,2101 

0 2 111 

1 

TC 

P 2 0 L F m A 

0210 

REF 

1 

24,2102 

3 2305 

0 

526ALARM 

CAF 

ALRM526 

0211 

REF 

107 

LAST 

495 

24,2103 

0 4616 

1 

TC 

BANKCALL 

0212 

REF 

1 

24,2104 

21562 

0 

C ADR 

PR  I CL ARM 

021? 

RFF 

2 

LAST 

475 

24,2105 

0 6022 

1 

TC 

G0TCV56 

0214 

24 ,2106 

0 2102 

0 

TC 

-4 

0215 

REF 

REF 

I 

2 4 ,2107 

0 2 0 63 

0 

0 

t r 

p i f m i 

0216 

68 

LAST 

491 

24,2110 

0 5155 

I v. 

TC 

. lul  rni 

ENDOF JOB 

0217 

REF 

7 

LAST 

496 

24,211  1 

0 5353 

1 

P20L  EMA 

TC 

PHASCHNG 

0218 
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24,2136 

6 

1011 

0 

AD 

1 ODf  EG  * 
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0 
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F 2 O'LEM  BE- 


AD 

EXTEND 

BZF 

CAF 

TC 

C ADr 

TC 

TC 

TC 

TC 

CAF 

TC 

CADR 

TC 

TC 

TC 

TC. 
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PROCEED  CHECKS  AUTO  MODE  DISCRETE  AGAIN 
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YES  - T 2 3 NOT  'ALL  OWED— TUP, N 0N  OPP  ERROR. 
NO  - DO  MANUAL  ACQUISITION 
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IS  THE  RENDEZVOUS 

NO  - EXIT  P20 
IS  TPACK  FLAG  SET 
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0314  PFF  19  LAST  4°8  24,2260  0 5261  1 TC 


0315 

REF 

1 

24,2261 

0 52  2 1 

0 

P20LEMC2  TC 

n3  1 6 

24,2262 

02  734 

0 

DEC 
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1 
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1 

033  3 
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0 
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1 
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0342 
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0 
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24,2324 

02756 

1 

0349 

REF 

1 
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Q Ff 
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VSR? 

033? 

REF 

2 

L AST 

119 

24, 2369 

02  3 60 

0 
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499 

24,2367 

01757 

0 

0385 

24, 2370 

45014 

0 UPPSV3 

CLEAR 

03  86 

REF 

8 

LAST 

500 

24,2371 

016  74 

0 

0387 

REF 

7 

LAST 

500 

24,2372 

27134 

1 

0390 

24,2373 

77624 

1 

CALL 

0391 

REF 

5 

LAST 

500 

24,2374 

11244 

0 

0392 

24, 2375 

77624 

1 

CAL  L 

0393 

REF 

10 

LAST 

500 

24,2376 

27414 

0 

039*- 

24,2377 

71214 

0 

SET 

0395 

REF 

9 

LAST 

500 

24,2400 

01474 

1 

0396 

REF 

2 

LAST 

1 1 1 

24,2401 

01643 

1 
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SETIFLGS 

SET  IF  W-M  AT  P IX  INVAL  ID, DONT  INTEGRATE 

RENDWFLG 

UPPSV1 

DIMOFLAG  SET  DIMCFLAG  TO  IN  TFGR  ATE  W-MATRIX 

SET 

SURFFLAG  IF  ON  LUNAR  SURFACE  W IS  6X6 

IJPPSV5 

D60RVFLG  OTHERWISE  9X9 

VEHUPFl G 
UPPS V3 


V INTFL  AG 


INTEGRV 

GRP2PC 


GROUP  2 PHASE  CHANGE 
TO  Ptf'TECT  I f ’ T EGRAT  ION 


INTSTALL 

CLEAR  GET  T ET GSM  TO  STORE  IN  TDEC  FOR  LM 

TETC.SM 

VI  NT  Ft.  AG 

INTEGRATE  OTHER  VEHICLE 
SETIFLGS  WITHOUT  W-MATRIX 

TDEC  1 
INTEGRV 
VLQAD 
SUP  FFLAG 
P20LEMC^ 

RCVLFM 


LMPOS 
VC VI  EM 

LMVFL 

LS21X 


CALL 

V INTEL AG 
INTEGRV 

GRP2PC 

I NT  STALL 
D 1.0  AD 
VINTFLAG 

TETL.EM  GET  TETLEM  TO  STORE  IN  TDEC  FOR  CSM 


IT 

..z 


INT. 


INT. 


I 


GAP: 


AS  S fc'-lBL  E REVISION  001  UF  AGC  PROGRAM  API  MOPE  BY  FYLtS 


L 

P20-P25 

0397 

24,2402 

77650 

1 

GOTO 

0398 

REF  1 

24, 2403 

50351 

0 

UPPSV4 

0399  REF  10  LAST  499  E7, 1456  EBAMK=  LOS  COUNT 

0400  REF  ] COUNT*  T $/P22 


3:  15  OEC.  2 
USER  ’ 
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502 


L P20-P2|; 


U SEP  * S PAGE  NO.  11 


E?  S3 


P 040 1 PROGRAM  DESCRIPTION 

R0402  PREFERRED  TRACKING  ATTITUDE  PROGRAM  P2 5 
R0403  MOD  NO  - 3 
P.0404  BY  p.  VO  L ANT  E 
R 040  5 F UNCT  1 L NA  L DESCRIPTION 

R 0406 

R 0407  THE  PURPOSE  OF  THIS  PROGRAM  IS  TO  COMPUTE  THE  PREFERRED  TRACKING 

R0*08  ATTITUDE  OF  THF  EM  TO  CONTINUOUSLY  POINT  THE  LM  TRACKING  BEACON  AT  THE 

R 0405  CS  AM)  TO  PEPF.v  THE  MANEUVER  TC  THE  PREFERRED  TRACKING  ATTITUDE  AND 

R 04 1 CONTINUOUSLY  MAINTAIN  THI.  ATTITUDE  WITHIN  F'  ESC- T BED  LIMIT? 

ROM!  CALLING  SEQUENCE  - 


R 04 1 2 

ASTRONAUT 

request  through  dsky 

V37E25E 

R.  041 3 

SUBROUTINES 

CALLED  - 

R 041 

BANKCALL 

FL AGUP 

R 041  5 

R 02  BOTH 

(IMU  STATUS  CHECK) 

ENDOFJOB 

P.  04  1 A 

P6ILEM 

( i REF  TPK  ATT  ROUT) 

WAITLI ST 

R 04 1 7 

TASKCVER 

FINOVAC 

ROM'  NORMAL  EX  I MODES  - 

R04I9  P 25  MAY  BE  T E(  1INATED  IN  TWO  WAYS-ASTRONAUT  SELECTION  OF  IDLING 

R 0420  PROGRAM (POO)  BY  KEYING  V37E00E  OF  BY  KEYING  IN  V56E 
R 042 1 ALARM  OF  ABORT  EXIT  MODES  - 
R 042  2 NONE 

R 042  3 OUTPUT 

R04?4  E")  AMBLE  INITIALIZATION  • EQUIP  ED 

R 042  5 FLAGS  SET  + RESET 
R 0426  TRACKFLG,P25FLAG 

R 0427  DEBRIS 
R0428  NONE 


0429 

0^30 

RTF 

R EF 

11 

1 

LAST 

501 

E7 , 145  6 

EBANK- 

r n 1 IK;  T Jje 

LOS COUNT 

tt/OTC 

Vv  ’ i;n  l "t* 

r -W  r .<  V 

0431 

REF 

2 

LAST 

4Q2 

24,2404 

0 5327 

1 

PROG25 

TC 

2PHSCHNG 

0432 

24,2405 

00004 

0 

OCT 

4 

MAKE  GROUP  4 INACTIVE 

043  3 

24 , 2406 

05022 

nr  t 

0 8 n 7 7 

yJ  J'J  c c 

043/ 

? 4,2407 

2 6001 

0 

OCT 

2 6000 

PRIORITY  26 

043  5 

REF 

112 

LAST 

2 4 , 2410 

0 4616 

1 

TC 

BANKCAU 

0436 

REF 

4 

LAST 

495 

24, 241  1 

11254 

1 

CADR 

RC2B0TH 

IMU  STAT  IS  CHECK 

0437 

REF 

19 

LAST 

497 

24, 2412 

0 5504 

0 

TC 

UPFLAG 

0438 

REF 

3 

LAST 

495 

24,2413 

00031 

0 

A ORES 

TRACKFLG 

SET  TRACK  FLAG 

0439 

REF 

20 

LAST 

502 

24,2414 

0 5504 

0 

TC 

UPFLAG 

0440 

REF 

2 

LAST 

237 

24,2415 

Of  006 

1 

ADF  ES 

025  FLAG 

StT  P 25  FL  AG 

0441 

RFF 

1 1 

1 AST 

4Q8 

24 , 2416 

0 5353 

1 

P25I  EM] 

TC 

PHASCHNG 

0442 

24,2417 

04022 

0 

OCT 

0402? 

044  3 

REF 

2 

LAST 

228 

24,2420 

3 4743 

0 

CAF 

P25FLBI T 

0444 

RFF 

31 

LAST 

239 

24,2421 

7 0074 

0 

MASK 

STATE 

IS  P25FLAG  SET 

044 

24,2422 

0 CO  06 

1 

EXTEND 

044  6 

REF 

74 

LAST 

49  9 

24,2423 

1 5155 

1 

BZF 

ENDOFJOB 

044  7 

RFF 

Q 

LAST 

409 

24,2426 

3 4747 

1 

CAF 

T R A C K B I T 

I S TP  ACKFl AG  SET? 

044P 

RFF 

32 

LAST 

502 

24,2425 

7 0075 

1 

MASK 

STATE  +1 

0449 

24,2426 

0 C006 

1 

EXTEND 

GAP: 


045  0 

0451 

0452 
045  3 

0454 

0455 

0456 
045  7 

045  0 

0460 

0461 

0462 

0463 

0464 

0465 

0466 

0466 

0467 

046  8 


ASSEMBLE  EVISIJN  001  • <F  AGC  PROGRAM  AP11K0PE  BY  EYLES 


P20-P25 


6 EF  1 

PEF  7 LAST 

REF  2 LAST 

REF  113  LAST 

REF  1 

PEF  2 LAST 

REF  12  LAST 

REF  1 
REF  7 LAST 
REF  1 
0 FF  75  LAST 

REF  1 
REF  19  LAST 
REF  12  LAST 
RFF  3 LAST 

RFF  20  LAST 


24,2427 
456  24,2430 
146  24,2431 
5 02  24,2432 


24,2433 


?A0 

502 

24.2434 

24. 2435 

24.2436 

0 L.  . ? A -X  7 

490 

24,2 440 

sn? 

24,244 1 
24, 2*42 

499 

24.2443 

24.2444 

502 

E 7, 1456 

503 

24,2445 

49  0 

24.2446 

24. 2447 

24,2450 

1 2437  1 
3 4757  0 
55 ' 745  1 
0 46 1 6 1 
46123  0 
6 2416  0 
0 5353  1 
00112  0 
3 2450  1 
0 5173  1 
02443  0 
0 M55  0 
3 5024  1 
0 5105  0 

02416  0 
50067  0 
0 5261  1 
13560  0 


BZF 

CAF 

TS 

TC 

C A OR 
TC 

P25LEMWT  TC 
OCT 

P25LMWT1  CAF 
TC 

ADR  ES 
TC 

P25LEM2  CAF 
TC 

EBANK 
2C  ADR 

TC 

60SCNDS  DEC 


P25L MWT1 
SEVEN 
R65CNTR 
BANKCALL 
R65LEM 
P 25  L.  E M 1 
PHASCHNG 
00112 
60SCMDS 
TWIDDLE 
P251EM2 
ENDCF JOB 
PR  1014 
FINDVAC 
LCSCOUNT 
P 2 51  EMI 


3: 15  DEC.  2, lc 

USER'S  t> 

NO-SKIP  PHASE 
CALL  R6 5 - FI 

TRACKING  ATTI 

THEN  GC  CHECK 


70  LEMP20S  .127 

PAGE  503 

AGE  NO.  12 

E7  S3 

CHANGE  AND  WAIT 
NE  PREFERRED 

l MINUTE 

TUDE  ROUTINE 

FLAGS 

WAIT  ONE  MINUTE  THEN  CHECK  AGAIN 


TASK  OVER 
6000 


GAP:  ASSEMBLE  , EVISlOt  001  OF  AGC  Pf  GGKA.M  API  1R0R.E  BY  EYL.ES 

L P20-P25 


P 047 1 
P 0472 
R 0473 
R 0474 
R047c 
R0476 
P 047  7 
R 047  3 
R 0479 
R 0480 
R04B1 
R 048? 
R 048  3 
R 0484 
R 048  5 
R 04  8 6 
R 048  7 
R 048  P 
R 048  9 
R 0490 
R 0401 

R 04  0 p 

R 049  3 
R 0494 
R 049  5 
R 0496 
R 049  7 
o 0498 
R 0499 
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DATA  r FAD  ROUTINE  22  (LEM) 
PROGRAM  DESCRIPTION 
MOD  NO  - 2 
BY  P VOLANTE 
functional  description 


TO  PROC 
LM  DP  CSM 
CALLING  S 


SlJBf  OUTIN 
L S R 22 , 1 
1 SR22.2 
LSR22.3 
NORMAL  EX 
R 22  wit 
UNTIL  P20 
R22  WILL 
ALARM  OR 
PRIORIT 
PRIORI TY 
OUTPUT 
SEP  OUT 
ERASABLE 
SEE  LSP. 
FLAGS  SET 
NOANGFL 
DEBT  IS 


UPDATE  THE 
NAVIGATION 


STATE  VECTOR  OF  EITHER 
PROGRAM  ( P 2 0 ) 


ESS  AUTOMATIC  P R MARK  DATA  TO 
AS  DEFINED  IN  THE  RENDEZVOUS 
EQUENCE  - 
TC  BANK CALL 

C A OR  '221  EM 

FS  CALLED  - 

G0F1 ASH  WAI TLI ST 

PRIOLARM  BANKCALL 

R61LEM 

IT  MODES- 

L CONTINUE  TO  RECYCLE , UPDAT IN G S~ATE  VECTORS  WITH  RADAR  DATA 
CEA  E"  ■ n’t;  ATE  (RENDEZVOUS  FLAG  SET  f r ZERO)  AT  WH 1 CH  TIME 
TERMINATE  SELF. 

ABORT  EXIT  MODES- 
Y ALARM 

ALARM  525  LOS  NOT  WITHIN  3 DEGREE  I IMIT 

PUT  FROM  I SR  2 2. 3 

INITIALIZATION  REQUIRED 
22. 1»LSD22.2»LSR22.3 
t-  RESET 
G 


R 0500 

SEE 

I 7 7 . 1 . 

LSR22 

. 2 , LSR2  2 . 3 

0501 

REF 

2 

LAST 

1 6 

F7, 1737 

E B A N K = 

LRS22. IX 

0502 

REF 

1 

COUNT  * 

$$/R22 

0503 

REF 

13 

LAST 

503 

24,245 1 

0 5353 

1 

F22LEM 

TC 

PHASCHNG 

0504 

24,2452 

04C22 

0 

OCT 

04022 

050  5 

REF 

8 

LAST 

49  8 

24,2453 

3 4745 

0 

CAF 

RNDVZBIT 

IS  RENDESVCUS  FLAG  SET 

0506 

REF 

33 

LAST 

50  2 

24,2454 

7 C074 

0 

MASK 

RT  ATE 

0507 

24, 2.45  5 

0 0006 

1 

EXTEND 

0508 

REF 

76 

LAST 

503 

24,2456 

1 5155 

1 

BZF 

ENDOF JOB 

NO-EXIT  R22  AMD  P20 

0509 

REF 

10 

LAST 

502 

24,2457 

3 4747 

1 

CAF 

TRACKBIT 

IS  TRACKFLAG  SET? 

0510 

RFF 

34 

LAST 

504 

24,2460 

7 0075 

1 

MASK 

STATE  +1 

0511 

24,2461 

0 0006 

1 

EXTEND 

0512 

REF 

1 

24,2462 

1 2636 

1 

BZF 

r 22WAIT 

NO  WAIT 

0513 

REF 

48 

LAST 

490 

24,2463 

3 47  36 

1 

R22LEM12 

CAF 

B IT14 

IS  RR  AUTO  TRACK  ENABL 

0514 

24,2464 

0 C006 

1 

EXTEND 

ON  (A  MONITOR  REPOSIT I 

0515 

REF 

23 

LAST 

468 

24, 2465 

02  C 1 2 

0 

RAND 

CHAN  1 2 

0516 

24,2466 

0 0006 

1 

EXT  END- 

0517 

REF 

2 

LAST 

496 

24,2467 

1 2111 

0 

B 

P20LEMA  \ 

NO  - RETURN  Tn  P20 

0518 

REF 

27 

LAST 

496 

24, 2470 

3 475? 

0 

^>F 

BIT?  \ 

YES 

05 1 0 

24,2471 

0 0006 

1 

/EXTEND 

IS  RR  AUTO  MODE  DISCRE 

0520 

REF 

8 

LAST 

497 

24,2472 

02  03  3 

0 

/ 

RAND 

CHAN  3 1 / 

GAP: 

L 

0521 

052? 

052  3 

0524 

0525 

052  6 

052? 

052  5 

052  5 

0530 

0531 

0C3  2 

0533 

0534 

0535 

0534 

0537 

053  4 

0539 

0540 

0541 

0542 

0543 

0544 

0545 

0546 

054  7 

054-8 

0549 

0550 

0551 

0557 

0553 

058*' 

0555 

0556 

0557 

0553 

055  9 

0560 

0561 

0562 

0563 

0564 

056  5 

0566 

0567 

0568 
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P20 -°2  5 


USER'S  PAGE  NO.  14  E7  S3 


REF  1 
PFF  3 2 
REP  2 

REF  2 
REF  14 

REF  1 14 
REF  1 
OFF  230 

REF  1 
REF  1 
REF  1 
REF  115 
REF  3 
REF  5 
REF  1 

REF  7 7 


LAST  497 
LAST  497 

LAST  499 
LAST  504- 

LAST  503 

t AS"  96 


LAST  506 
LApt  467 
LAST  4 97 


LAST  504 


24.2473 

24.2474 

24.2475 

24.2476 

24.2477 

24.2500 

24.2501 
24,2902 
2.4,2503 
24, 25C4 
24,2505 

24 . 250  4 
24,2507 

24.2510 

24.2511 

24. 2512 

24 .251  3 
?4 , 25 1 4 
' ,2515 

24.2516 

24. 2517 
24,2520 


n CO 06  1 
1 2476  1 

0 2135  1 
4 0110  0 
7 4737  1 
ON  706  1 

1 2627  1 
0 5353  1 

00152  1 
0 4616  1 
64366  0 
SO  154  1 
0 2510  1 
0 2531  1 
0 2217  1 
3 2663  0 

J 4 6 1 4 1 

21562  0 
0 6022  1 
0 2521  0 
0 2512  0 
0 5 15 5 0 


EXTEND 

BZF  +2  YES  CONTINUE 

TC  P2QLEM85  NO  - SET  IT 

CS  0 ADMODE  S ARE  RP  CO  US  BEING  ZEROED 

MASK  PGDUOBIT 

EXTEND 

BZF  R22LEM42  CDUS  BEING  ZEROED 

TC  PHASCHNG  IF  A RESTART  OCCURS, AN  EXTRA  RADAR 

OCT  00152  READING  IS  TAKEN, SO  BAD  DATA  ISN'T  USED 

TC  BANKCALL  YES  READ  DATA  + CALCULATE  LOS 

CADR  LRS22.1  DATA  READ  SUBROUTINE 

INDEX  MPAC 

TC  +1 

TC  R22LEM2  NORMAL  RETURN  (GOOD  DATA) 

TC  P20LEMC  COULD  NOT  READ  RADAR-TRY  TO  P E DESIGNATE 

CAF  A 1 1- M 5 2 5 RR  LOS  NOT  WITHIN  3 DEGREES  (ALARM) 

TC  BANK CAL t 

CADP  PRtOl ARM 

TC  GOTOV56  TERMINATE  EXITS  P20  VIA  V56  CODING 

TC  22 1.  E Ml  PP.OC  (DISPLAY  DELTA  THETA) 

TC  -5  ENTER ( IL LEGAL  OPTION) 

TC  ENDOF  JOB 


REF 

15 

LAST 

505 

24,2521 

0 5353 

1 

R22LEM1 

TC 

PHASCHNG 

24,2522 

04022 

0 

OC  T 

04022 

REF 

1 

Zh, 2523 

3 2664 

1 

CAF 

V06N05 

DISPLAY  DELTA  THETA 

REF 

1 16 

LAST 

505 

24,2524 

0 4616 

1 

TC 

BANKCALL 

REF 

1 

24,2523 

2(507 

1 

CADR 

PRIOOSP 

> p p 

f. 

L A<  T 

508 

7u . 7~ 7 A 

n ,0  7 7 

1 

TC 

GGTrV56 

T co  M-T.  f : a "i*  f f y t t c p 9 o wta  vra  rnw^n 

• L_  1 1 1 iH  I C L_  A « I O C ' ■ V ’ M V 7 0 L Jullu 

REF 

2 

LAST 

505 

24,2527 

0 2531 

1 

TC 

R22LEM2 

PROC  (OK  CONTINUE) 

REF 

2 

LAST 

505 

24,2530 

0 22  17 

1 

TC 

P20LEMC 

ENTER (RECYCLE) 

REF 

1 6 

LAST 

505 

24,253  1 

0 8 B 6 7 

i 

P 9 9 1 F M? 

TC 

PHASCHNG 

1 

’ 4 4.  L L 1 iC 

24, 253? 

040  2 2 

0 

OC  T 

0402? 

REF 

4 

LAST 

407 

24 ,2533 

0 26  67 

1 

TC 

LUNSFCHK 

CHECK  IF  ON  l.UNA!  SUP  FACE  (P22FLAG  SET) 

REF 

1 

?'■ , 25  3A 

0 2551 

1 

TC 

D 2 2L E M3 

YES-3YPASS  FLAG  CHECKS  AND  LPS22.2 

REF 

21 

LAST 

499 

24,2535 

3 0075 

0 

CA 

F LAGWRD1 

IS  TRACK  FLAG  SET 

REF 

11 

LAST 

504 

24, 2536 

7 4747 

0 

MASK 

TRACKBIT 

24,2537 

0 0006 

1 

EXTEND 

REF 

2 

LAST 

504 

24,2540 

1 2636 

1 

BZF 

R22WAIT 

NO  - WAIT 

KEF 

1 17 

LAST 

505 

24,254  1 

0 4616 

1 

TC 

3ANKCAL L 

YES 

REF 

1 

? S 2 54  2 

CI3  33 

0 

CADR 

LRS22. 2 

CHECKS  RR  BOPESIGHT  WITHIN  30  DEG  OF  +Z 

REF 

231 

LAST 

505 

24,2543 

50  154 

1 

INDEX 

MP  AC 

24,2544 

0 2545 

1 

TC 

+ 1 

REF 

2 

LAST 

50  5 

24,2545 

0 2551 

1 

TC 

R22LEM3 

NORMAL  RETURN ( LOS  WITHIN  30  OF  Z-AXIS) 

REF 

115 

LAST 

505 

2-, 2546 

0 9-616 

1 

TC 

BANKCALL 

P E F 

2 

LAST 

496 

24 ,2547 

46116 

0 

CADR 

96  It.  EM 

REF 

3 

LAST 

505 

24,2850 

0 2636 

0 

TC 

R 2 2 W A I T 

NOT  WITHIN  30  DEG  OF  Z-AXIS 

REF 

22 

L ASr 

505 

24 ,255  1 

4 0075 

1 

R22LEM3 

CS 

FLAGWRD1 

SHOULD  WE  BYPASS  STATE  VECTOR  UPDATE 

REF 

1 

24,2552 

7 47  46 

1 

MASK 

NOUPFBI T 

( I S NOUPDATE  FLAG  SET?  ) 

GAP:  ASSEMBLE  REVISION  00,1  :QF  ABC  PROGRAM  AffiLlKOBE  BV  EYLES 

L P2  J-P25 


0569 

24,2553 

0 0006 

1 

EXTEND 

0570 

RFF 

3 

LAST 

505 

24,2554 

1 2627 

1 

BZF 

R22LEM42 

o rp 

! A 

505 

3 0075 

Q 

C A 

fi  a r,  w u n i 

L'  1 j 

fV  1—  t 

,<  > 

L M ^ > 

! ♦ C.  > -*  J 

057  2 

REE 

i 

24,2556 

7 4745 

1 

MASK 

UPDATBIT 

0573 

24,2557 

0 ( 006 

1 

EXTEND 

05  7 A 

» EE 

4 

I AST 

506 

24,25 A o 

1 2627 

1 

BZF 

R 22L  EM4? 

057R 

REF 

6 

LAST 

499 

24,256  1 

3 7714 

1 

CAE 

PR  1026 

0576 

REF 

2 

LAST 

229 

24,2562 

55*056 

1 

TS 

PHSPRDT2 

0577 

!<  F F 

34 

LAST 

498 

29 , 256? 

0 6 C 3 7 

0 

TC 

tntf-et 

0573 

24,2564 

77650 

1 

GOTO 

0579 

REF 

] 

24,2565 

5 /.  t 1 2 

1 

LSR22 .3 

0580 

24,2566 

77776 

1 

R22LEM93  EXIT 

0581 

REF 

17 

LAST 

505 

24,2567 

0 5353 

1 

TC 

P HA  SC  HN  G 

0582 

24, 2570 

04022 

0 

OCT 

04022 

058? 

REF 

1 

24,  257  l 

1 2622 

1 

TC  E 

022LEM44 

05  8 a 

24,2572 

77776 

1 

R 2 2 L EM 9 6 EXIT 

0585 

RFF 

108 

LAST 

496 

24 , 25 7 3 

3 47  5 5 

1 

CAE 

Z ET  0 

0586 

REF 

2 

LAST 

152 

24,2574 

55*746 

1 

TS 

N49FLAG 

0587 

REF 

13 

LAST 

506 

24,2575 

0 5353 

1 

TC 

PHASCHMG 

0588 

24,2576 

04022 

0 

OCT 

04022 

0589 

REE 

2 

LAST 

192 

24 , 2577 

3 7715 

0 

CAE 

PRI027 

0590 

REF 

10 

LAST 

490 

24 , 2600 

0 r0  72 

1 

TC 

NCVAC 

0591 

REF 

X 

LAST 

506 

£7,  1.746 

EB ANK= 

N4?F  LAG 

0592 

REF 

1 

24 , 260 1 

02644 

0 

2CADR 

N49DSP 

0592 

REF 

1 

24,2602 

50067 

0 

0593 

REE 

35 

LAST 

5C6 

23,2603 

0 6037 

0 

TC 

intpset 

059  L; 

2 ,2604 

Z?  73  5 

0 

SLOAD 

05°  r 

REF 

4 

LAST 

506 

24,2605 

03  747 

0 

N49FLAG 

0596 

24 , 2604 

8 r 0 r 4. 

Q 

BZF 

B mn 

0597 

24, 2607 

50604 

0 

-3 

0598 

REF 

24,26  10 

50616 

0 

P22LEM7 

0599 

2 4 , 26 1 1 

77776 

1 

EXIT 

0600 

PFF 

5 

l A 

505 

26,2612 

0 2667 

1 

TC 

LUNSFCHK 

0601 

REF 

4 

LAST 

505 

24,2613 

0 26  36 

0 

TC 

R22WAIT 

060? 

REF 

109 

LAST 

506 

24,2614 

3 4755 

1 

CA 

ZEPC 

0603 

REF 

1 

24,2615 

0 2632 

1 

TC 

R22LEM45 

0604 

24,2616 

77624 

1 

R22LEM7  CALL 

0605 

REF 

6 

LAST 

500 

24,2617 

11244 

0 

GRP 2 PC 

0606 

2 ' , 2620 

77650 

1 

GOTO 

0607 

REF 

1 

24,262  1 

5 5431 

1 

ASTOK 

0608 

R EF 

2 

LAST 

496 

24,2622 

25*462 

0 

P22LEM44  I NCR  " 

MARKCTP 

0609 

REF 

6 

LAST 

506 

24,2623 

0 26  67 

1 

TC 

L UNSFCHK 

0610 

REF 

1 

24,2624 

0 2640 

1 

TC 

R22LEM46 

0611 

REF 

I ' 

LAST 

426 

24,2625 

3 47  56 

1 

CA 

FIVE 

061? 

REF 

2 

LAST 

506 

24,2626 

0 26  32 

1 

TC 

R22LEM45 

9613 

REF 

7 

LAST 

5 06 

24,262  7 

0 2667 

1 

R22LEM42  TC 

t UNSFCHK 

0614 

9 EF 

2 

LAST 

506 

24, 26  30 

0 2640 

1 

TC 

P 22LEM46 

0615 

REF 

33 

LAST 

1 

24,2631 

3 4752 

0 

CA 

TWO 

0616 

P EF 

3 

LAST 

503 

24,2632 

55*745 

1 

R22LEM45  TS 

R65CNTR 

I 


3=15  DEC.  2,1970  LEMP20S  .127  PAGE  506 
USEE ' S PAGE  NO.  15  E7  S3 


BRANCH-YES 
IS  UPDATE  FLAG  SET 


UPDATE  FLAG  NOT  SET 
INSURE  HIGH  PRIO  IN  RESTART 


,e 


NORMAL  EXIT  FF'M  LSR22.3 
PHASE  CHANGE  TO  PROTECT  AGAINST 
CONFLICT  WITH  GRP 2 PC  ERASEABLE 


S ET  N49FLAG  = ZERO  TO  INDICATE 

VO 6 N49  DISPLAY  HASNT  BEEN  ANSWERED 

TO  PROTECT  DISPLAY 
PROTECT  DISPLAY 


! OOP  TO  CHECK  IF  FLAG 
SETTING  CHANGEO-BRANCH  - NO 
PROCEED 

DISPLAY  ANSWERED  BY  RECYCLE 

ARE  WE  CM  LUNAR  SURFACE 

YES  - 16  SECOND  DELAY 

NO  - SET  P65C0WTEP  = 0,  DO  FINE 

TRACKING  TAKE  ANOTHER  0 ADAR  READING 

PROCEED 

PHASE  CHANGE  AND 

GO  TO  INCORPORATE  DATA. 

INCREMENT  COUNT  OF  MA ° K S INCORPORATED. 

ARE  WE  ON  LUNAR  SURFACE 

YES  - WAIT  2 SECONDS 

NOT  ON  LUNAR,  SURFACE 

R65C0UNTER  = 5 

CHFCK  IF  ON  LUNAR  SUFFACE  ( P22FL AG  SET) 
YES  - WAIT  2 SECONDS 
NO-SET  P 6 5CPUNT  EE  = 2 


GAP  : 


ASSEMBLE  REVISION  001  OF  AGC  PROGRAM  AP11RGPE  BY  fcYi.ES 


^20- 

■P  2 5 

0617 

REF 

1 19 

0618 

P FE 

2 

0619 

REE 

1 

06  20 

REF 

2 

0621 

f-  EF 

3 

LAST 

LAST 

505 

503 

24 

24 

24 

24 

LAST 

499 

LAST 

498 

24 

1633  0 4616  1 
,2634  4(123  0 
,2635  0 2451  G 
,2636  3 2666  0 
,2637  0 2233  1 


TC 

CADR 

TC 

* 2 2 W A I T CAP 
TC 


0622  REF  2 
06223  *REF  120 
06226  *REF  9 

0623  *REF  2 


LAST 

278 

24 

LAST 

507 

24 

1 AST 

49  8 

24 

LAST 

507 

24 

,2640  3 5000  1 

,2641  0 4616  1 

,2642  01735  1 

,2523  0 2451  0 


R22LEM46  CAF 
TC 

CAOP 

TC 


062  4 

0625 

0626 
0627 
06  2 8 
062° 
0630 
06  3 1 

0632 

0633 

0634 
0636 

0636 

0637 
0630 


0636 

0640 

0641 

0642 
R 06  44 
R 0645 
R 064  6 


REF  1 22,2644  3 2665  0 N49DSP  CAF 

REF  121  LAST  507  24,2645  0 4616  1 TC 

EF  2 LAST  505  24,2646  20507  1 CADR 

EF  7 I AST  605  24,2667  o 6022  1 TC 

REF  6?  LAST  493  24,2650  4 4753  0 CS 

i ftRT  56*6  24, ?65  , R5«746  1 TS 

n 78  LAST  605  24,2652  0 5155  0 TC 

REF  19  LAST  506  24,2653  0 5353  1 R22RSTFT  TC 

26,2654  CC 152  1 OCT 

EF  122  LAST  507  24,2655  0 4616  1 TC 

• EF  ? LAST  491  24,2656  >3103  0 CAD? 

OFF  123  LAST  507  24,2657  0 '-6 16  1 TC 

REF  5 LAST  490  24,2660  17714  0 CADR 

REF  3 LAST  505  24,2661  0 2217  1 TC 

REF 3 LAST  507  24,2662  0 2451  0 TC 

24.2663  00525  0 ALDP525  OCT 

24.2664  01405  1 V06N05  VN 

24.2665  014-61  0 V06N49NP  VN 

24.2666  02734  0 150C0EC  DEC 


LUi  6FCHK-CI.CSFD  SUB  ’OUT  II  E T'  CHECK  IF  OR  LUNAR  SURFACE 
RETURNS  TQ  CAI  I ER  +1  IF  P22EL AG  S FT 

CAI  l EF  +2  l.F  P22FLAG  MO"  SET 


064 < REF  2 LAST  501  TO  502:  0 04  COUNT* 

064  4 REF  4 LAST  336  24,2667  4 0104  0 I.UNSFCHK  CS 

064  4 REF  3 LAST  336  24,2670  7 ^744  0 MASK 

0650  REF  162  LAST  4oa  24,2671  10  000  0 CCS 

0651  REF  147  LAST  476  24,2672  24  C02  0 INCR 

0652  REF  148  LAST  507  24,2673  0 0002  0 TC 
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BANKCALL 

R65LEM 

R22LEM 

1500DEC 
P20LFMWT  +1 

FINE  PREFERRED  TRACKING  ATTITUDE 

2SECS 

DANK CALL 

DELAY JOE 
f 22LEM 

WAIT  2 SECONDS  AND  TAKE  ANOTHER  MAFK 

VG6N49NB 

BANKCALL 

Pf- 1 CDS  P 
GCTOV56 

ONE 

N49F!  AG 

ENDOF JOB 

EXCESSIVE  STATE  VECTOR  UPDATE  - FI  ASH 
VERB  06  NOW  49  R 1 =DE  L T A R,  R 2 = DELT  A V 
TERMINATE  - EXIT  R22  AND  P20 

PROCEED  - N4C FL AG  = -1 

RECYCLE  - N49FLAG  = + VALUE 

PHASCHNG 

00152 

BANKCA1 L 

P RR  DOT 
BANKCALL 

R ADSTALL 

P20L  EMC 

R22LEM 

IF  A RESTART  OCCURS  WHILE  READING  RADAR 
COME  HERE  TO  TAKE  A P ANGE-P.  AT  E READING 
WHICH  ISNT  USED  T0  PREVENT  TAK I NG  A RAD 
READING  AND  TRYING  TO  INCORPORATE  the 
BAD  DATA 

WAIT  FOR  READ  COMPLETE 

COULD  NOT  READ  RADAR-TRY  TO  REDESIGNATE 
READ  SUCCESSFUL-CONTINUE  AT  R22 

005  2 5 

00605 

00649 

1500 

( P22FLAG ) 

PT/P22 

FLAGWKD8 

SURF  FB  I T 

A 

Q 

Q 

CHECK  IF  ON  LUNAR  SURFACE 

IS  SUFFFLAG  SET? 

BRANCH  - P 22 EL  AG  SET 

NOT  SET 

RETURN 
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P0653  PH  DESIGNATE  ROUTINE  (P21LEM) 

R 065 A PROGRAM  DESCRIPTION 

R 065  5 MOO  NU  - 2 

P06^t>  BY  P VOLANT  E 

R 065  7 FUNCTIONAL  DESCRIPTION 

R OF  5 9 TO  POINT  THE  RENDEZVOUS  f ADA'  AT  THE  CSM  UNTIL  AUTOMATIC  ACQUISITION 

R 0660  OF  THE  CSM  IS  ACCOMPLISHED  BY  THF  ! A DA  R . ROUTINE  IS  CALLED  BY  P20. 

R 066 1 CAL LINb  SEQUENCE  - 
P 0662  TC  BANKCALl. 

PRO  63  CAD”  -'2U  A 

POO'' 1 UB!  U'  IFS  CALLED  - 


R0665 

FINDVAC 

FLAGUP 

ENDO  FJOB 

PR  IOLARM 

R 066  6 

NOVAC 

INTPRET 

LPS20. 1 

PHASCHNG 

R 0667 

iiU  TL  1ST 

JOBSLFEP 

JOBW AKE 

FLAGDOWN 

R0068 

TASKOVER 

3ANKCAL  L 

"ADS  1 ALL 

”kDFSSm 

P 066°  N-  :•  *•' Al  EX1T  "TOEC 

P Of  7 LHEN  LOCK-on  IS  ACHIEVED, ERANtH  WILL  BE  TO  P2C  WHERE  R22  (DATA  R F AD 

l i LI  BE  SELECTED  OR  A NEED  FOR  A M AN  EU  VER  < BRANCH  TO  P20LEMA) 

R0672  ALARM  OR  ABORT  EXIT  MODES- 

R0<  P 10  ITY  ALARM  503  IHEN  LGCK-ON  HASN : T BEEN  ACHIEVED  AFTER  3 SECS  - 

R 067  4 THIS  REQUIRES  ASTRONAUT  INTERFACE-  1ELECTI0I  OF  SEARCH  OPTION  OF 

R 06  7 5 ACQUISITION 

R 067  6 OUTPUT 


R 0677 

R 067  8 

R 0679 

R 06  8 0 

R 0681 

R 068  2 

SEE  LPS 
ERAS A8LE 
Ri  ’A!  GE 
FLAGS  SET 
LOSCMFL 
n F 

20.1, RRDESSM 
INITIALIZATION  PEQU 

T,i  ad modes  ape  used 

+ RESET 

G LOKONSW 

R 0683 

0684 

0685 

SEE  LPS20.1, 
REF  13  LAST 

' PF  1 

, RRDESSM 

503  E7 , 1456 

06  36 

REF 

49 

LAST 

504 

24,2674 

06  37 

2 0,26  75 

06  8 F 

”FF 

24 

I AST 

504 

?4. ?A7 6 

0689 

REF 

8 

LAST 

506 

24,2677 

0690 

REF 

1 

24,2700 

0691 

REF 

1 10 

LAST 

506 

24,2701 

0692 

REF 

4 

LAST 

316 

24,2702 

0693 

REF 

5 

LAST 

508 

24,2703 

06  94 

RFF 

1 

24,2704 

0695 

REF 

22 

LAST 

453 

24,2705 

0696 

REF 

33 

LAST 

505 

24,2706 

0697 

REF 

.163 

LAST 

5 07 

24,2707 

0698 

REF 

1 

24, 2710 

0699 

RFF 

27 

L AST 

470 

24, 2711 

0700 

REF 

6 

1 AST 

508 

24,2712 

0701 

RFF 

4 

LAST 

373 

24,2713 

0702 

REF 

7 

LAST 

508 

24,2714 

RED 

BY  LPS20.1  AND  KROESSM 


EBANK= 
f PUN  T* 

mSCCHJNT 

4>  $>  / K />  1 

4 4736 

0 

R21L EM 

CS 

B I T 1 4 

0 0006 

03  012 

1 

1 

EXT  END 
WAND 

CHAN 12 

0 2667 

1 

TC 

LUNSFCHK 

0 2705 

1 

TC 

R21LFM5 

3 0755 

1 

CAF 

Z ERC 

55' 107 

1 

TS 

TANG 

r 5 ' 1 1 0 

1 

TS 

TANG  +i 

0 2715 

0 

TC 

R 2 11.  FM  6 

3 4740 

0 

R 2 11  EM5 

CAF 

BIT12 

7 0110 

0 

MASK 

R ADMfiDES 

10  000 

0 

CCS 

A 

0 2 72  5 

0 

TC 

C21L  EM1C 

3 4735 

1 

CAF 

BIT15 

8 o < 1 07 

1 

TS 

TANG 

4 47  3 6 

0 

CS 

HALF 

55  ' 1 10 

1 

TS 

TANG  +1 

REMOVE  RR  SEI  F TRACK  ENABLE 


COMMAND  ANTENNA  TO  MODE  CENTER 
IF  NOT  ON  SUP  FACE -MODE  1- ( T=0 , S=C I 


GAP: 


0703 

0704 

0705 
0704 

0707 

0708 

0709 

0710 
071  1 

0712 

0713 

07 1 * 

0715 

0716 

0717 
07  IP 
07  1 9 

0720 

0721 

0722 

0723 

0724 

0725 

0726 

0727 
07  2 P 

072  9 
07  3 0 

0731 

0732 
A 073  3 

0734 

0735 

073  6 

0737 

0738 

0739 

0740 

0741 
074? 

074  3 
074* 

0745 

0746 

074  7 

0748 

0749 

0750 

075  1 
075  2 
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REF 

38 

LAST 

498 

24,2715 

0 5516 

0 

R21LEM6 

TC 

REF 

3 

LAST 

27  1 

24,2716 

00012 

1 

ADRES 

KEF 

12*» 

LAST 

'3  2.  3 7 1 "7 

n a/.  i a 

1 

Tr 

507 

c-*i  f c.  i 1 ( 

J * c i o 

I 

r EF 

2 

LAST 

269 

24, 2720 

52475 

0 

CADR 

24,2721 

0 2722 

1 

TC 

1 9 ^ 

1 »cT 

5 0° 

2 A , 2722 

0 4616 

1 

TC 

rv  r 1 

1 c 

_ /A 

P EF 

6 

LAST 

*07 

24, 2723 

17714 

0 

CADR 

REF 

1 

24,2724 

0 2760 

1 

TC 

REF 

21 

LAST 

502 

24, 2725 

0 5 5 04 

0 

K2 It 64 10 

TC 

PEF 

2 

LAST 

496 

24,2726 

30041 

1 

ADRES 

9 EF 

1 

24,2727 

3 2310 

1 

CAF 

n r~  r 

1 

55' 1 14 

0 

T S 

K c r 

L 

REF 

17 

LAST 

474 

24,2731 

3 6245 

1 

R21L  EM2 

CAF 

REF 

14 

LAST 

508 

24,2732 

55 ' 456 

0 

TS 

REF 

36 

LAST 

506 

24,2733 

0 6037 

0 

■ 2 1L  EM  1 

TC 

24,2734 

43  2 3*-. 

0 

RTB 

REF 

8 

LAST 

49  8 

24,2735 

21573 

0 

opc 

1 

i i , ? n 

1 

“lf 

l 

6 ‘l  f 2-  1 “ V3 

1 1 1 c 

1 

RFF 

1 2 

LAST 

500 

24,2737 

34041 

0 

STCALL 

REF 

2 

LAST 

496 

24,2740 

51255 

1 

o / 9 7 a 1 

7 7 7 7/, 

1 

cv  [T 

( J 1 1 o 

I 

C-  A 1 

REF 

22 

LAST 

509 

24,2742 

0 5 594 

0 

R21LEM3 

TC 

RFF 

4 

l AST 

509 

24, 2743 

C 00  1 2 

1 

ADRES 

REF 

39 

LAST 

509 

24 , 2744 

0 5516 

0 

TC 

PEF 

4 

LAST 

496 

24,2745 

00126 

1 

ADRES 

REF 

37 

LAST 

509 

24,2746 

0 6037 

0 

TC 

24,2747 

77624 

1 

CALL 

EF 

1 

24,2750 

52373 

1 

24,2751 

77776 

1 

EX  IT 

REF 

j 

0 2777 

1 

Tf 

\ ? C. 

1 

1 V., 

REF 

3 

LAST 

504 

24,2753 

0 2 111 

1 

TC 

REF 

12  6 

LAST 

609 

24,2754 

0 4616 

1 

TC 

REF 

n 

LAST 

509 

24,2755 

1 7 7 1 4 

0 

CADR 

24, 2756 

0 2760 

1 

TC 

REF 

1 

24, 2757 

0 2 767 

c 

TC 

REF 

1 

24, 2760 

3 2775 

0 

R21-503 

CAF 

REF 

127 

LAST 

50° 

24,2761 

0 4616 

1 

TC 

REF 

4 

LAST 

505 

24 , 2762 

21562 

0 

CADR 

REF 

8 

LAST 

507 

2 • , 2 7 3 

0 6022 

1 

TC 

REF 

1 

24,276.4 

0 2772 

1 

TC 

REF 

3 

LAST 

40Q 

24,2765 

0 22  1 1 

1 

TC 

REF 

79 

LAST 

507 

24, 2766 

0 5155 

0 

TC 

REF 

40 

LAST 

509 

24 , 2767 

0 5516 

0 

R21END 

TC 

REF 

3 

LAST 

509 

24,2770 

,00041 

1 

ADRES 

REF 

1 

24, ?77  1 

0 3121 

0 

TC 

REF 

20 

LAST 

507 

24,2772 

0 5353 

1 

R21SRCH 

TC 

24,2773 

04  02  2 

0 

OCT 

REF 

1 

24,2774 

0 3206 

0 

TC 

24,2775 

00503 

1 

ALRM503 

OCT 
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DOWNFLAG 
LGKONSW 
BANKCAL L 
PRDESN8 
+ 1 

BANKCAl l 

P 4DSTALL 
21-503 
UPFLAG 

BAD  RFTURN  FFOM  DESIGNATE  -ISSUE  ALAPM 

LOSCMFl G 
MAXTRJES 
DESCENT 
THREE 

LOS COUNT 
INTPPET 

EVERY  FOURTH  PASS  THRU  DODES 

ALLOW  60  PASSES  (APPROX  45  SECONDS) 

TO  DESIGNATE  AND  LOCK  ON 

DAD 

LOADTI'T; 

HALFSEC 

T DEC  1 

LPS20. 1 

EXTRAPOLATE  TO  PRESENT  T T ME  + .5  SEC. 

LOS  DETERMINATION  ROUTINE 

UPFLAG 

LGKONSW 

DOWNFLAG 

NOR R MON 
INTPRET 

SET  LGKONSW  TO  RADAR- ON  DESIRED 

k PDESS  M 

INPUT  (RETARGET  UPDATED  BY  LPS20.1) 
DESIGNATE  ROUTINE 

r 2 1 1 EM4 

P20LEMA 
BANKCAL l 
RADS! ALL 

+ 2 

D 21  END 
ALRM503 
BANKCAL! 
PPIOLARM 

LOS  NOT  IN  MODE  2 COVERAGE 

ON  LUNAR  SURFACE 

VEHICLE  MANEUVER  REQUIRED. 

NO  VEHICLE  MANEUVER  REQUIRED 

WAIT  FOR  DESIGNATE  COMPLETE  - LOCKON  OR 
BADEND-LOCkON  NOT  ACHIEVED  IN  60  TPIES 
EXIT  ROUTINE  RETURN  TO  °20  (LOCK-ON) 
ISSUE  ALARM  503 

GOT  0V56 
R21SRCH 
P20LEMC3 
ENDOF JOB 
DOWNFLAG 

TERMINATE  EXITS  P20  VIA  V56  COOING 

PROC 

L CSC MPEG 
P21DISP 
PHASCHNG 
04022 

P24LEM 

00503 

RESET  LOSCMFl  G 

PUT  UP  VERIFY  MAIN  LOBE  LOCKON  DISPLAY 

SEARCH  ROUTINE 

SEARCH  ROUTINE 
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0753 

24,2776 

00527 

1 

ALRM527 

OCT 

0754 

REF 

2 

LAST 

509 

2 •> , 3 7 7 7 

3 2 3 10 

1 

R21L  EM 4 

CAF 

0755 

PFF 

2 

LAST 

135 

Z6- 1 300  0 

V '4  23 

1 

TS 

0756 

REF 

2 3 

LAST 

509 

24,3001 

0 5504 

0 

TC 

0757 

REF 

1 

24,3002 

00005 

1 

ADRES 

075  - 

REF 

41 

LAST 

50° 

24, 3003 

0 ^516 

0 

TC 

075  9 

REF 

4 

LAST 

509 

24, 3004 

0 00-1 

1 

ADR  E S 

07  6 0 

REF 

38 

LAST 

5 99 

24,3005 

0 6037 

0 

TC 

0761 

24, 3006 

77634 

0 

P 211  EM  12 

P TB 

0762 

RFF 

9 

L AST 

504 

24,3007 

21573 

0 

07621 

24,3010 

77615 

0 

DAD 

0763 

REF 

1 

24,301 1 

11116 

1 

076'' 

REF 

2 

LAST 

139 

24,3012 

, 03425 

1 

STORE 

0765 

REF 

13 

! AST 

500 

24,3013 

M041 

0 

STCALL 

0766 

REF 

3 

LAST 

509 

24,3.  14 

5 12  55 

1 

0767 

26. , 30 1 5 

7 76  2 4 

1 

C A L ! 

0768 

REF 

2 

LAST 

509 

24, 3016 

52373 

1 

076  9 

24,3017 

77776 

1 

EXIT 

0770 

REF 

1 

24,3020 

0 3033 

1 

TC 

0771 

REF 

80 

LAST 

509 

24, 3021 

, 515  5 

0 

TC 

07721 

REF 

1 

24,3022 

0 6027 

1 

TC 

07722 

REF 

1 

24,3023 

52573 

1 

C A DP 

07724 

REF 

39 

LAST 

5 10 

24,3024 

0 6037 

0 

TC 

0773 

24,3025 

77614 

1 

BOF 

0776 

REF 

2 

LAST 

510 

24, 3026 

10345 

0 

0775 

REF 

1 

2 4 , 3027 

51043 

1 

0776 

24,3030 

77614 

1 

Cl  0 GO 

0777 

REF 

3 

LAST 

510 

24,3031 

00  2 2 5 

1 

0778 

REF 

1 

24, 3032 

51037 

1 

0779 

REF- 

3 

LAST 

510 

24,3033 

11 '423 

1 

R21LEM13 

CCS 

0780 

REF 

2 

LAST 

g 1 j 

24 ,30^4 

0 30  36 

1 

TC 

0751 

REF 

1 

24,3035 

0 3105 

0 

TC 

0782 

RFF 

4 

LAST 

5 10 

24, 3036 

55 ' 423 

1 

R21LEM7 

TS 

078  2 1 

RFF 

AO 

LAST 

510 

24,3037 

0 6037 

0 

TC 

07822 

24,3040 

52145 

0 

DLOAD 

07823 

REF 

3 

LAST 

510 

24,3041 

03425 

1 

07824 

REF 

1 

24,3042 

51010 

1 

076^ 

24,3043 

77745 

1 

P21L  EM8 

□ LOAD 

0785 

REF 

4 

LAST 

5 10 

24, 3044 

03425 

1 

0786 

PFF 

14 

LAS7 

5 1C 

2 4 , 30*- 5 

34041 

0 

STCALL 

0787 

REF 

2 

LAST 

498 

24, 3046 

5 0316 

0 

0788 

24,3047 

77776 

1 

EX  IT 

0789 

REF 

24 

LAST 

510 

24,3050 

0 5504 

0 

TC 

0790 

RFF 

2 

LAST 

271 

24,  30  5 1 

00264 

1 

ADKES 

079] 

REF 

42 

LAST 

5 1 ■' 

24, 30«2 

0 c 5 1 0 

0 

TC 

07°2 

REF 

5 

LAST 

509 

24,3053 

00012 

1 

ADR  ES 

0793 

REF 

25 

LAST 

510 

24,3054 

0 5504 

0 

TC 

0794 

REF 

5 

LAST 

509 

24,3055 

00126 

1 

ADRES 
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510 


527 

USER ' S PAGE  NO.  1®  E7  S3 

MAXI  I E S 

R EPOS  CRT 
UPFLAG 

SFT  UP  COUNTER  FOP 

60  PASSES  (APPROX  600  SECS.) 

FSPASFLG 

DOWNFLAG 

LOSCMFLG 

INTPRET 

LQAOT IMF 

SET  FIRST  PASS  FLAG 

RESET  LOS  BEING 

COMPUTED  FLAG 

TEN SEC 

REPOSTM 

TDEC1 

TIME  T = T + 10  SECS. 

SAVE  FI  R LONG  CALL  AMD  UP°SV 

LPS20. 1 

RRDESSM 

COMPUTE  LOS  AT  TIME  T 

'■  2 It.  EMI  3 

ENOOF JOB 

KILL  TASK 

BEGDES 

INTPRET 

LOS  NOT  IN  MODE  2 COVERAGE 

VEHICLE  MANEUVER  REQUIRED 

FSPASFLG 

R21LEM0 

FIRST  PASS  THRU  REPOSITION 

NO-GO  TO  COM7 I NUOUS  DESIGNATE 

FSPASFLG 
R21LEM7  +1 

YES-RFSET  FIRST  PASS  FLAG 

REPOSCNT 

R21LEM7 

21!  EMI  1 
. EPGSCNT 
TNTPRER 

GOTO 

REPOSTM 
21LEM12  +2 

REPOSTM 

T DEC  l 

UPPSV 

HAVE  WE  TRIED  60  TIMES? 

NO-ADD  10  SECS.  RECOMPUTE  LOS 
YES-PUT  OUT  ALARM  530 

UPFLAG 

CDESFL.  AG 
DOWNFLAG 
LOKONSW 

UPFLAG 

NORRMOM 

SET  RADMQDES  BIT  15  FOR 

CONTINUOUS  DESIGNATION 

GAP:  ASSEMBLE  REVISION  001  OF  A GC  PROGRAM  API  l.-.OPE  BY  EYLE,. 

L P20-P25 


0795 

0796 

0797 

0797  1 

0798 

0799 

0800 
0801 
0802 
08021 

0803 

0804 
080K 
0806 
0806 
0807 
080  8 
080° 
0810 
081 1 
0812 

0813 

0814 

0814 

0815 

0816 

0817 

0818 
0819 
082  0 
0821 
0822 
0824 
082  5 
0629 
0826 
0826 


REF  128  LAST 
REF  3 LAST 


^ 09 
509 


REF  6 1 LAST  5 1C 


REF 

REF 

REF 


REF 

RFF 

REF 

REF 

REF 

REF 

REF 

RFF 

REF 

REF 

REF 

RFF 

REF 

RFF 

REF 


PEF 

REF 

REF 

REF 


10 

5 

1 


2 

? 

15 
1 
1 

31 

2 

1 

6 

7 

20 

16 
2 

21 

1 


REF  129 
REF  5 


9 

1 ' 
11 

82 


LAST 

LAST 


LAST 

LAST 

LAST 


LAST 

LAST 

LAST 

LAST 

' ' 

LAST 
LA  S T 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


810 

510 


51  1 

J7/- 

509 


5 1 0 

510 

496 

506 

503 

511 
508 


LAST  503 


.511 
509 
509 
*1  1 
51  1 
511 


0827 

REF 

21 

LAST 

509 

0828 

082° 

OP  30 

REF 

PEF 

1 

130 

LAST 

511 

0831 

RFF 

2 

LA$T 

473 

0832 

REF 

12 

LAST 

511 

0833 

REF 

4 

LAST 

507 

0834 

0835 

REF 

23 

LAST 

474 

083  6 

REF 

2 

LAST 

47  4 

0837 

REF 

83 

LAST 

51  1 

24.3056 

24. 3057 
24,3060 
24 , 30 < 1 

24. 3062 

24. 3063 

24.3064 

24.3065 

24.3066 
2 4 , 3 C 6 7 
24,3070 

>4 ,307  1 

E7 , 1456 

24. 3072 

24.3073 
,2  4 , 30  7 4 

74. 3075 

24 . 3076 

24.3077 

24.3100 

24. 3101 
E 7 , 1456 

24.3102 

24,3193 

24.3104 

24.3105 

24 .3106 

24.3107 
24,3110 
24,311  l 

24.3112 

24.3113 

24.3114 
? 4 ,3116 

24 .3116 

24.3117 

24.3120 

24. 3121 

24.3122 

24 .3123 

24.3124 

74.3126 

24.3126 

24.3127 
24,3130 
24,313] 

24.3132 

24.3133 


0 4616  1 
52475  0 
0 3061  0 
0 6037  0 

2 34  1 

21573  0 
03425  1 
03427  0 
77776  1 
1 

3 1427  l 
0 5277  0 

03075  0 
50067  0 
0 5155  0 
0 6027  1 
62602  1 
0 6011  1 
3 7714  1 
0 5105  0 

02725  0 
50067  0 
0 5261  1 
3 3114  0 
0 4616  1 
21562  0 
0 6022  1 
0 6022  1 
0 6022  1 
0 5155  0 
00530  1 
00000  1 
01750  1 
00000  1 
00062  0 
0 5353  1 
04022  0 
3 3134  1 
0 4616  1 
20710  0 
022  1 
0 2232  0 
0 3123  1 
3 6745  0 
0 5444  1 
0 5155  0 


TC 

CAD9 

TC 

TC 

RIB 


ST 0»  E 
EXIT 
EXTEND 
DC  A 
TC 

EBANK= 
2C  ADR 

TC, 

R21L.EM9  Tf. 

C AD° 

TC 

CAF 

TC 

EBANK= 
2 CADR 

TC 

R21LEM11  CAF 
TC 

CADR 

TC 

TC 

TC. 

TC 

ALRM530  OCT 
TEN SEC  2DEC 

HALFS  EC  2 DEC 

P21DISP  T C, 

OCT 

CAF 

TC 

CADR 

TC 

TC 

TC 

CAF 

TC 

TC 


BANKCALl 
RPDESNB 
+ 1 

INTPRET 

BDSU 

LOADTIMF 

REPOSTM 

DELTATM 


DELTATM 

LGNGCALL 

LOSCOUNT 

R21LEM9 

ENDPF JOB 
K ILL  TASK 
STDE c T G 
CLRADMOD 
PRI026 
FINDVAC 
LOSCOUNT 
R 21L  EM 10 

TASKOVER 
ALRM530 
BANKCALl 
PR  10!  ARM 
GCTOV56 
G0TPV56 
GOT OV56 
ENDOF JOB 
00530 
1CGC  8-28 

50 

PHASCHNG 

04022 

V06N72PV 

BANKCALl 

G0PERF21' 

GGT0V56 

P20LEMWT 

-5 

R I T 7 
LINUS 

ENDOF JOB 
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COMPUTE  DELTA  TIME 
FOR  LONGCALL 


ALAFM  5 30  — LOS  N0T  IN  COVERAGE 
AFTER  TRYING  TO  DESIGNATE  FOR 
600  SECS. 


FLASH  V 50  N 72  - PLEASE  PERFORM  PR 
MAIN  LOSF  LOCKUN  VERIFICATION 

TERMINATE  EXITS  VIA  V 56 
PROCEED  CONTINUES  TO  R22 
ENTER  ILLEGAL 

SET  BITS  TO  MAKE  THIS  A PRIORITY  DISPLAY 
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P0839  MANUAL  ACQUISITinN  ROUTINE  R23LEN 
P0840  PROGRAM  DESCRIPTION 
R 084 1 MOD  NC  - 2 
R 084?  BY  P VOL ANTE 
R 0847  EUNC.TI  ONAl  DESCRIPTION 
R 0844 

R 0845  T(  ACQUIRE  THE  CSf1  BY  MANUAL  OPERATION  OF  THE  RENDEZVOUS  RADAF 

R 0846  CALLING  SEQUENCE  - 
R 0847  TC  R2  3LE.M 

P 08  4 R SUBROUTINES  CALLED 

R 0849  3ANKCALL  P 6 1 L EM 

R 0850  SEtMTND9  GPPERF1 

R0851  NORMAL  EXIT  MODES  - 

R 0852  IN  RESPONSE  *0  THE  GOP  ER  F l .SELECTION  OF  ENTER  WILL 

R 0853  .SELECTION  OF  PROC  WILL 

R 08  54  .SELECTION  OF  T E ■ M WILL 

R 0855  AL  ARE  DR  ABORT  EXIT  MOOES  - 

R OP 5 6 SEE  NORMAL  EXIT  MODES  ABOVE 

P 0857  OUTPUT 

R 0858  N . A . 

ROSS  9 ERASABLE  IN  I T l AL  1 1 AT  IUN  RE  QIJ  IRE  0- 
0 0860  AC MO DEL  G MUST  BE  SET  TO  1 ! ' ANUAI  MODE) 


0861 

P.  EE 

1 

1 143 

FBANK= 

GENE  FT 

0862 

REF 

1 

COUNT* 

$$/P  23 

0863 

REF 

26 

LAST 

510 

24,3135 

0 5 504 

0 

R23LEM 

TC 

UPFLAG 

SET  NO  ANGLE  MONITOR  FLAG 

0864 

REF 

6 

LAST 

510 

24,3136 

00126 

1 

ADRES 

NORRMON 

086  5 

24,3137 

0 CO 04 

0 

INHINT 

0866 

REF 

1 7 

LAST 

3 3 6 

24, 3 140 

0 46  74 

0 

TC 

I BNKCALL 

SELECT  MINIMUM  DEADBAND 

C867 

REF 

1 

24,314 1 

40140 

0 

CAOR 

SETM [NOB 

086  3 

24,3142 

0 000 3 

1 

P F L T PIT 

1 

0869 

REF 

50 

LAST 

508 

24, 3143 

3 4736 

1 

R23L EMI 

CAF 

BIT14 

ENABLE  TRACKER 

0870 

24,3144 

0 0006 

1 

EXTEND 

0871 

REF 

'P 

L AST 

O /■  , 1 1 /j  c 

nc  n 1 ? 

1 

me 

fUAMl ? 

-*  vO 

<,  T f .3  1 ‘t  •• 

L.'  W L C. 

L 

m U r. 

0872 

REF 

1 

24,3146 

3 3205 

0 

CAF 

OCT 20 5 

037  3 

CEF 

131 

LAST 

51 1 

2 4,3167 

0 46  16 

1 

TC 

BANKCALL 

0874 

P EF 

2 

LAST 

497 

24, 3150 

20623 

1 

C A DD 

G0PERF1 

0875 

REF 

1 

24, 3151 

0 3176 

1 

TC 

R23L  EM2 

TERMI MATE 

08  76 

REF 

1 

24,3152 

0 3154 

1 

TC 

R23LEM11 

PROCEDE 

0877 

REF 

1 

24, 3153 

0 3201 

1 

TC 

R23LEM3 

ENTER-  DO  ANOTHER  MANUVER 

0878 

2 , 3 1 54 

0 0004 

0 

R23LEM1 1 

INHINT 

0879 

r ff 

2 

LAST 

187 

24,3155 

0 4 52  3 

1 

TC 

RRLIMCHK 

YES  - CHECK  TF  ANTENNA  IS  WITHIN  LIMITS 

088n 

0 EF 

4 

LAST 

316 

24,3156 

00035 

1 

ADR  ES 

CDUT 

0881 

REF 

1 

24,3157 

0 3166 

0 

TC 

OUTOFL I M 

NOT  W ITHIN  LIMITS 

0882 

REF 

18 

LAST 

513 

24, 3160 

0 46  74 

0 

TC 

I BNKCALL 

RESTORE  DEADBAND  TO 

0883 

REF 

4 

LAST 

29  5 

24,3161 

40123 

0 

CADR 

RESTORDB 

ASTRONAUT  SELECTED  VALUE 

0884 

24 ,3162 

0 0003 

1 

RELINT 

088  5 

P EF 

43 

LAST 

510 

24,3163 

0 5 51 6 

0 

TC 

DOWNFLAG 

CLEAR  NO  ANGLE  MONITOR  FLAG 

0886 

REF- 

7 

LAST 

51  3 

24,316^ 

00126 

1 

ADRES 

NCRPMON 

0887 

REF 

1 

24,3165 

0 2163 

1 

TC 

P20LEMB 1 

RADAR  IS  LOCKED  ON  CONTINUE  IN  P20 

0388 

24,3166 

0 0003 

1 

OUTOFL  IM 

RELINT 

RECYCLE  R 23 
CONTINUE  R 23 
TERMINATE  P 23  +P20 
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0889 

REF 

1 

24,3167 

3 3204 

1 

CAF 

0890 

PEE 

132 

LAST 

513 

24,3170 

0 46  16 

1 

TC 

0 1 

REF 

6 

LAST 

511 

24,3171 

21562 

0 

CADR 

0892 

REF 

2 

LAST 

513 

24,3172 

0 3176 

1 

TC. 

039? 

REF 

2 

LAST 

513 

24,3173 

0 3 1 o7 

1 

TC 

0894 

PEE 

2 

LAST 

51  3 

24,3174 

0 3201 

1 

TC 

0895 

REF 

84 

LAST 

1 1 

24,3175 

0 5155 

0 

TC 

0894 

REF 

44 

LAST 

513 

24,3176 

0 5516 

0 

R23LEM2 

TC 

0897 

REE 

a 

LAST 

513 

24,3177 

OC  126 

1 

ADRES 

06°8 

REF 

13 

LAST 

511 

24, 3200 

0 6022 

1 

TC 

089° 

REF 

13  3 

LAST 

514 

24,3201 

0 > 6 1 6 

1 

I 23LEM3 

TC 

0900 

REE 

3 

LAST 

5 05 

24 , 3202 

46116 

0 

CADR 

0901 

REF 

1 

24,3203 

0 3143 

1 

TC 

090  2 

24,3204 

00501 

0 

OC  V~  01 P V 

OCT 

0903 

24,3205 

00205 

0 

0CT205 

GCT 
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0CT501PV 

BANKC Al L 

PR  I CL  ARM 

ISSUE  ALARM  - RR  ANTENNA  NOT 
LIMITS 

WITHIN 

P23LEM2 

TERMINATE 

- EXIT  023  TO  ROO  I 

[GO  TO  POOH) 

CUTOFLIM  +1 

PROCEED  I 

1 LEGAL 

F 23LEM3 

ENOOF JOB 

ECYCI  E- 

DO  ANQTHE°  manuvep 

DOWN  FLAG 
NCRRMON 

CLEAR  NO 

ANGLE  MONITOR  FLAG 

GOTOV56 

BANKCALl 

P 61  LEM 

F23LEM1 

AND  EXIT 

VIA  V 56 

5 01 
205 


515 


..i 
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L P 20-P25 

P0904  SEARCH  ROUTINE  R24L.EM 
R 090  5 PE  OGR  AM  DESCRIPTION 
R0906  MOD  NO  - 2 

R 0907  BY  P.  VC L ANTE 

R0906  FUNCTIONAL  DESCRIPT  ION 
R 090° 

ROC10  TO  ACQUIRE  THE  CSM  BY  A SEARCH  PATTERN  WHEN  THE  RENDEZVCUS  RADAR  HAS 

R0911  FAILED  TO  ACQUIRE  THE  CSM  IN  THE  AUTOMATIC  TRACKING  MODE  AND  TO  ALLOW 

R0912  THE  ASTRONAUT  TO  CCNF If,  M THAT  R E AC QU  IS  1 T I ON  HAS  NOT  BEEN  BY  SIDELQBE. 

R 091 3 CALI  IMG  SEQUENCE 

R091A  CAF  PR  I CNN 

R 09 1 5 TC  FINDVAC 

R 09 1 6 EBANK=  DATAGOOD 

R 09 1 7 2CADR  R24LEM 

R 091 8 SUBROUTINES  CALLED: 

R09 1 c FI  A GUP  FLAGDOWN  BANK CALL 

R 09  2 0 R YUE  M GO  F L AS  HP  FI  N DV  A C 

R 0°2 1 FNDOFJPB  NO VAC  L SR  24.1 

R 0922  NORMAL  EXIT  MDDE$- 

R 0923  ASTRONAUT  RESPONSE  TO  DISPLAY  OF  OMEGA  AND  DATAGOOD. HE  CAN  EITHER 

R 092  4 EJECT  BY  IEI  UNATIMC  (SEARCH  OPTION  AND  DESELECTING  P 2Q ) 0 ACCEPT  BY 

R 0925  P-  CP  ED  ING  (EX  IT  r-OUTIME  AND  - ET.K  N TO  AUTi  MODE  J,;  P 2 0 ) 

R 0926  ALARM  OR  ABORT  EXIT  MODES- 

R 0927  SEE  NORMAL  EXIT  MODES  ABOVF 

R0928  OUTPUT  - 

R 092°  SEE  OUTPUT  FROM  LSR24.1  + R61LEM 

R 0930  ERASABLE  INITIALIZATION  REQUIRED 
P 09  3 1 SEE  I MP  UT  FOR  LSR24.1 

R093  2 FLAG?  SET  + R E SFT 


R °9  3 3 

S' 

JCH^PT 

, ACM" 

OFLG 

0934 

REF 

3 

LAST 

316 

E7, 1733 

EB ANK  = 

DATAGOOD 

0935 

REF 

1 

COUNT  * 

$$/R24 

0936 

REF 

9 7 

1 APT 

9 A . *3  9 A A 

A 4 4 n A. 

n 

D 9AI  CM 

ir 

i ! p c i a r. 

L.  M O 1 

J L D 

c.  7 f C.X  J C 

u 

r Z‘fL  f-  • t 

Jr  r L M 

0937 

REF 

4; 

LAST 

497 

24 ,3207 

00037 

0 

AD  RES 

SRCHOPTF 

0938 

PEF 

45 

LAST 

514 

24,3210 

0 5516 

0 

TC 

DGWNFLAG 

0939 

REF 

5 

LAST 

510 

24,3211 

00041 

1 

ADRES 

l.OSC  M F 1 G 

0940 

REF 

111 

LAST 

508 

24,3212 

3 4755 

1 

R24LEM1 

CAF 

ZERO 

0941 

PEF 

4 

LAST 

515 

24,3213 

55' 733 

0 

TS 

DATAGOOD 

0942 

REF 

2 

LAST 

316 

24,3214 

5 5 ' 734 

I 

TS 

OMEGAD 

0°4  3 

P EF 

3 

LAST 

515 

24,3215 

55*735 

0 

TS 

OMEGAD  +1 

0944 

REF 

22 

LAST 

5 1 1 

24,3216 

0 5353 

1 

P 24LEH2 

TC 

PHASCHNG 

0945 

24,3217 

0^02  2 

0 

Of  T 

04022 

C946 

REF 

1 

24,3220 

3 3254 

1 

CAF 

V 1 6' BO 

0947 

REF 

134 

LAST 

514 

24,3221 

0 4616 

1 

TC 

BANKCALl 

0948 

REF 

1 

24, 3222 

20504 

1 

CAQR 

PRIODSPR 

094  9 

REF 

14 

LAST 

514 

24,3223 

0 6022 

1 

TC 

GOTPV56 

0950 

REF 

1 

24 , 3224 

0 3230 

0 

TC 

R24EMD 

0951 

REF 

1 

24,3225 

0 3234 

1 

TC 

R 24LEM3 
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SET  SFCHOPT  FLAG 

RESET  LOS  BEING  COMPUTED  FLAG  TO  MAKE 
SURE  DODFS  DOESN'T  GO  TO  R21 

ZERO  OUT  DATA  INDICATOR 
ZERO  OMEGA  DISPLAY  REGS 
ZERO  CMEGA  DISPLAY  REGS 


P 1CEED  EXIT  R24  TO  P20LEM1 


RECYCLE  - CALL  R61  TO  MANEUVER  S/C 
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L 

P20- 

■P25 

0952 

REF 

135 

LAST 

515 

24 , 3226 

0 

4616 

1 

TC 

BANKCALL 

0953 

REF 

1 

24,3227 

5 5442 

0 

CADP. 

i S24. 1 

0955 

REF 

3 

LAST 

511 

24,3230 

0 

6027 

1 

R24FND 

TC 

KllLTASK 

0956 

REF 

1 

24,3231 

5 5643 

0 

CADP 

CALLOGCH 

0957 

REF 

7 

LAST 

5 1 1 

24, 3232 

0 

6011 

1 

TC 

C Lf  AD  V"'D 

0958 

RFF 

2 

LAST 

406 

24,3233 

1 

20  63 

1 

TC  F 

P20LEM1 

0959 

6011 

BL  GCK 

3 

0960 

REF 

1 

6000 

SETLOC 

FFTAG6 

0961 

',>11 

BANK 

0962 

R EF 

1 

COUNT * 

$ $ / R 2 4 

0963 

REF 

1 

6011 

4 

6021 

0 

CLRADMOD 

cs 

BIT10+15 

0964 

6012 

0 

0004 

0 

INHINT 

0965 

* REF 

34 

LAST 

508 

6013 

7 

0110 

0 

MASK 

R AOMODE S 

0966 

REF 

3 5 

LAST 

516 

6014 

54 

1 10 

0 

TS 

RADMODE S 

09  6 7 

REF 

28 

LAST 

504 

6015 

4 

47  5 2 

1 

CS 

BIT  2 

096  8 

6016 

0 

0006 

F X T F N D 

0969 

REF 

26 

LAST 

513 

6017 

03 

0 1 2 

1 

WAND 

CHAN12 

0970 

REF 

149 

LAST 

507 

6020 

0 

0002 

0 

TC 

0 

0971 

‘ 021 

4-1000 

1 

B 1 T 1 0 + 1 5 

OCT 

4100  C 

0972 

24,3234 

BANK 

24 

0973 

REF 

3 

LAST 

495 

24,2000 

SETLOC 

P20S 

0974 

24,3234 

BANK 

0975 

P EF 

2 

LAST- 

515  TO 

516: 

22 

22* 

COUNT* 

$ $ / R 2 4 

0976 

REF 

23 

LAST 

51 5 

24,3234 

0 5353 

1 

R24LEM3 

TC 

PHASCHNG 

0977 

24, 3235 

04022 

0 

OCT 

04022 

097° 

REF 

4 

LAST 

516 

24, 3236 

0 6027 

1 

TC 

KI LI  TASK 

0980 

REF 

2 

LAST 

5 16 

24,  3237 

55643 

Q 

C ADR 

r a 1 1 nnr h 

U M L L U O Pi 

0981 

REF 

8 

L AST- 

5 1 ' 

24,32^0 

0 6011 

1 

TC 

CLRADMOD 

098  2 

24,324  1 

0 00  03 

1 

' FLINT 

09RR 

REF 

1 

24, 3242 

3 49  74 

1 

CAF 

. 5SEC 

0934 

P EF 

136 

LAST 

516 

2 4 , 3 24  3 

0 4616 

1 

TC 

BANKCALL 

0985 

REF 

10 

LAST 

507 

24,3244 

01735 

1 

CADR 

DELAYJOB 

0986 

REF 

9 

LAST 

508 

24,3245 

0 2667 

1 

TC 

I.UNSFCHK 

0987 

REF 

1 

24, 3246 

0 3251 

1 

TC 

1 24L.EM4 

0988 

REF 

1 37 

LAST 

516 

26 , 324 

0 4616 

1 

TC 

BANKCALL 

0989 

RFF 

4 

LAST 

514 

24,3250 

46116 

0 

CADP 

P61LEM 

0990 

REF 

1 12 

LAST 

515 

24,3251 

3 4755 

1 

P24LEM4 

CAF 

ZERO 

0991 

REF 

2 

LAST 

222 

24,3252 

55 ' 306 

1 

TS 

P ADC  ADR. 

A0992 

0993 

REF 

1 

24 ,325  3 

0 3216 

1 

TC 

R24LEM2 

0994 

24, 3254 

04120 

0 

V16N80 

VN 

01680 
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USER'S  PAGE  NO.  25  E7  S3 


CLEAR  BITS  10 
AMD  GO  TP  400 


£ 15  OF  RAOMODES. 
MI.  RANGE  CHECK  IN 


P20. 


DISABt  E OP  ERROR  COUNTERS 
USER  WILL  R E L I N T 


KILL  WAITLIST  FOR  NEXT  POINT  IN  PATTERN 
CLEAR  BITS  10  *■  15  OF  RADMODE  S TO  KILL 
HALF  SECOND  DESIGNATE  LOOP 

WAIT  FOP  DESIGNATE  LOOP  TO  DIE 


CHECK  IF  ON  LUNAR  SURFACE 
YES-DONT  DO  ATTITUDE  MANEUVER 
CALL  R 6 1 TO  DO  PREFERRED  TRACKING 
ATTITUDE  MANEUVEP 

7 ER  0 OUT  RADCADR  (WHICH  WAS  SET  BY 
ENDPADAP  WHEN  DESIGNATE  STOPPED)  SO  THAT 
RPDESSM  WILL  RETURN  TO  CALLER 
AND  GO  BACK  TO  PUT  UP  V16  NBC  DISPLAY 


LFMP20S  .127  PAGE 
NO.  26  E7  S3 

P 0995  PREFERRED  TRACKING  ATTITUDE  ROUTINE  R61LEM 

R 0996  PROGRAM  DESCRIPTION 

R 0997  MOD  NO  : 3 DATE  : 4-11-67 

R 099 8 -100  BY  : P VOL  ANTE  SOC 


GAP:  ASSEMBLE  f-E  VISION  GUI  OF  AGG  PROGRAM  AP11RGPE  BY  EYLES  3:15  DEC.  2,1970 

L P 20- P: 2 5 USER'S  PAGE 


R 099 c FUNCTIONAL  DESCRIPTION- 

R 100  C TO  COMPUTE  THE  PREFERRED  TRACKING  ATTITUDE  OF  THE  LM  TO  ENABLE  RR 

R 1001  TRACK  LG  OF  THE  GSM  AuQ.  "0  PERFORM  THE  MANEUVER  TO  THE  PREFERRED 

R 1002  ATTITUDE. 

R 1003  CALI ING  SHQUENCE- 
R 1 004  TC  BANKCALl 

R 1005  CADR  R 6 1 1 EM 

R 1006  SUBROUTINES  CALLED 
R1007  LPS20.1  VLCPPINT 

R 1008  K AL  CM  AN3 


R 1009  NO!  : Al  EXIT  M3DES- 

R101C  NORMAL  F E TUP  N IS  TO  CALLER  + 1 

R 1011  ALARM  OR  ABORT  EXIT  MQDES- 

R 1012  T E c r '■  I ' ■ A T E P20  + 61  BY  Bc  ANCH'  NG  TO  P20END  IF  BOTH  T;-  ACKFL  AG  + 

R1013  RENDEZVOUS  FLAG  A R F NO T SET. 

R 10 1 4 OUTPUT  - 

Rl<  1 SFE  OUTPUT  F OF  LPS20.1  + ATTITUDE  MANEUVER  ROUTINE  ( t ) 

R 101 6 ERASABLE  INITIALIZATION  REQUIRED 

R 1017  GENi  ET  USED  TO  SAVE  Q FUR  RE T L18AL 

R 10 18  FLAGS  SET  + RESET 
R 1 C 1 ° 3 A X I SFL  G 

R 1020  DEBRIS 
R 102  1 SFE  SUBROUTINES 


1022 

1023 

REF 

1 

23,2000 

23,2116 

SETLOC 

RAMIZ 

R61 

102* 

REF 

17 

LAST 

5 1 1 

E7, 14,6 

EBA'V;K  = 

LOSC 0 UN T 

1025 

REF 

1 

COUNT  * 

$ $ / ft  A l 

1026 

REF- 

4 

l AST 

4 77 

23,2116 

0 4645 

1 

P 6 1 1 EM 

TC 

MAKECADR 

1027 

REF 

2 

LAST 

513 

23,2117 

55 » 143 

1 

TS 

GENRET 

1028 

REF 

28 

LAST 

515 

23,2120 

0 5504 

0 

TC 

UPFLAG 

SET  R61  FLAG 

1029 

REF 

1 

23,2121 

00024 

1 

ADRES 

R 61 FLAG 

1030 

REF 

1 

23,2122 

C 2127 

1 

TC 

R61C+L01 

1031 

RFF 

5 

LAST 

c 17 

23,2123 

0 4645 

1 

R65LEM 

TC 

MAKECAQR 

1032 

REF 

3 

LAST 

517 

23,2124 

55*143 

1 

TS 

GENRET 

1033 

REF 

46 

LAST 

515 

23,2125 

0 *-516 

0 

TC 

DOWNFLAG 

RESET  R61  FLAG 

1034 

REF 

2 

LAST 

517 

23,2126 

00024 

1 

ADRES 

R61FL  AG 

1035 

REF 

12 

LAST 

505 

23,2127 

3 47  47 

1 

R61C+L01 

CAF 

TRACKBIT 

TRACKFLAG 

1036 

KEF 

35 

LAST 

504 

23,2130 

7 0075 

1 

MASK 

STATE  +1 

1037 

23,2131 

0 OC  06 

1 

EXTEND 

103  8 

RFF 

1 

23,2132 

1 2271 

0 

B?  F 

R 65WA  I 'r 

NOT  SET 

1039 

REF 

42 

LAST 

511 

23,2133 

0 6037 

0 

6 1C+L03 

TC 

INTPPET 

1040 

23,2134 

77775 

1 

VLOAD 

517 


GAP:  ASSEMBLE  kEVISIGP  001  OF  AGE  PROGRAM  AP1LP0PE  BY 


P20- 

-P2  5 

104  1 

REF 

4 

LAST 

488 

1042 

REF 

21 

1 AST 

48  3 

1043 

1044 

REF 

11 

L AS. T 

5 1 1 

1046 

REF- 

1 

1047 

REF 

15 

LAST 

510 

LI 

REF 

4 

LAST 

5 10 

1045 

1! 

REF 

2 

LAST 

103 

1051 

REF 

4 

LAST 

431 

105? 

10525 

REF- 

1 

1 

REF 

1 

105<+ 

REF- 

8 

LAST 

477 

1055 

1056 

REF 

24 

LAST 

5 1 6 

1057 

1 ' 

REF 

13 

LAST 

5 17 

1059 

REF 

24 

LAST- 

506 

1060 

1061 

REF 

2 

LAST 

5 17 

1062 

REF 

133 

LAST 

516 

1063 

REF 

2 

LAST 

4 74 

1064 

REF 

164 

LAST 

508 

1 

REF 

l 

1072 

REF 

43 

LAST 

517 

LI 

1074 

REF 

3 

LAST 

518 

107r 

REF 

1 

107a 

1077 

REF 

232 

LAST 

505 

10 

REF 

l 

] i 

103? 

REF 

1 

11 

REF 

9 

LAST 

369 

11 

REF 

4 

LAST 

293 

1 ( 

REF 

15 

LAST 

460 

1087 

108 

1089 

REF 

9 

LAST 

5 18 

1090 

REF 

10 

LAST- 

518 

109  1 

RFF 

4 

LAST 

47  8 

10 

REF 

2 

LAST 

369 

1093 

1!  < 

REF 

18 

LAST 

517 

1< 

REF 

2 

LAST 

387 

1096 

REF 

16 

LAST 

5 18 

11 

REF 

1 

1098 

1099 

23,2135 

06514 

1 

23, 2136 

03765 

0 

23,2137 

93234 

0 

,0611  EMI 

23,2140 

21573 

0 

23,2141 

15712 

1 

2 3,2142 

34041 

0 

23,2143 

51255 

1 

23,2144 

77775 

1 

23, 2145. : 

. 01102 

0 

23,2 146 

03773 

1 

23,2147 

45  034 

1 

23 , ? 150 

46277 

1 

23,2151 

56032 

0 

23 ,2  15  2 

00322 

1 

23,2153 

77776 

1 

23,2154 

0 5 3 53 

1 

23,2165 

0402  2 

0 

23,2156 

3 4747 

1 

23,2157 

7 0075 

1 

23,2160 

0 0006 

1 

23,2161 

1 2271 

0 

23,2162 

1 : 

1 

23,2163 

>4  2 55 

1 

23,2164 

10  000 

0 

23,2165 

0 2257 

0 

23,2166 

0 6037 

0 

23,2167 

,45175 

0 

23,2170 

01  102 

0 

23,2171 

47646 

0 

23,2172 

45345 

1 

23, 2173 

00162 

1 

23,2174 

06275 

1 

23,2175 

77440 

1 

P-61LEM2 

23,2176 

462  1 3 

0 

E 6, 16  3 5 

? 3,217-’ 

3 5015 

0 

23 ,2200 

54  003 

0 

23,2201 

0 0 004 

0 

23,2202 

0 C006 

1 

23,2203 

3 0322 

1 

23,2204 

53*636 

1 

23, 2205 

3 03  2 3 

0 

23,2206 

55 '637 

0 

23 , 2207 

0 0003 

1 

E7, 1456 

23, 2210 

3 6 016 

0 

23,2211 

54  603 

0 

23,2212 

0 2236 

1 

23,2213 

77776 

1 

R61C+L05 

23,2214 

0 0004 

0 
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USER’S  PAGE  NO.  27  E7  S3 


HI  UN  I T Z 

STUPE 

SC A X I S 

TRACK  AXIS  UNIT  VECTOR 

RTB 

DAD 

LEADTIME 

EXTRAPOLATE  FORWARD  TO  CENTEF 

3 SECONDS 

SIX  SECOND  PERIOD. 

STALL 

T DEC  1 

LPS20. 1 

LOS  DETERMINATION  + VEH  ATTITUDE 

VLOAD 

RRT  A '.GET 

STORE 

PO I N TV SM 

RTB 

CALI 

GET  DESIRED  CDU'S  FOP  VECPNT1 

P EA  DC  DUD 

v ec  pint  1 

COMPUTES  FINAL  ANGLES  FROM  PRESENT 

CDUDS 

STORE 

CPU  1 

STORE  FINAL  ANGLES  - C PHT , CTHET A , CPS  I 

EXIT 

TC 

PHASCHNG 

OCT 

04022 

CAF 

TRACKBIT 

IS  TRACK  FLAG  SET 

MASK 

FLAGWRD1 

EXTEND 

BZF 

R65WAIT 

TC 

BANK  C A1  L 

C ADR 

G+"  ! , AUT 0 

CHECK  FOR  AUTO  MODE 

CCS 

A 

TC 

P61C+L04 

NOT  IN  AUTC) 

TC 

INTPRET 

VLOAD 

CALL 

RETARGET 

CDU*SMNB 

DLOAD 

DSU 

GET  PHI  - APC.COS  OF  Z-COMPOWNT  OF 

LOS 

M P AC  +5 

C OS  1 5DEG 

BMN 

EXIT 

BAUCH  - PHI  > lc  DEGREES 

F 61C+L05 

PHI  GRF  10DEG 

EBANK= 

CDIJXD 

CAF 

E8ANK6 

TS 

EBANK 

INHINT 

EXTEND 

DC  A 

C PH  I 

DXCH 

CDUXD 

CA 

CPSI 

TS 

CDUZD 

RELINT 

E8 ANK= 

LOSCOUNT 

CAF 

E8ANK7 

TS 

EBANK 

TC 

R61C  + I 06 

EXIT 

I N H I N T 

GAP: 


1100 

1101 

1102 

1103 

1104 

no* 

1106 
1107 
1 1G8 
1100 
1110 
1111 
111? 

1113 

1114 
1 1 1 r' 
11  If 
1117 

I 1 1 
111' 
1120 
1123 
lu- 
ll?* 
1126 
1127 
1129 
1 1 3 ( 

1131 

1132 

1133 

1134 
1133 

1135 

1136 

1137 

1138 
113c 

I I ' 
1141 
114? 
1143 
114- 
1 1 - 1 

I 146 
11'  J 
1 146  f 


1147 


ASSEMBLE O tVlSIJN  001  OF  AGC  PROGRAM  API  1R0P E BY  EVLES 
P20-P25 


REF 

REF 

REF 

REF 

REF 

RFF 

REF 

RFF 


REF 

REF 

REF 

REF 

RFF 

REF 

REF 

REF 

REF 

MLF 


19 

3 

2 0 
2 
47 

6 

29 

2 


REF  139, 
RFF  3 

DEF  21 
REF  5 
REF  23 

RFF  48 
REF  3 
REF  25 
REF  1 
REF  165 
REF  1 
REF  4 


2 

3 

1 

& 

1 

65 

n 

21 

19 

2 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


LAST 

LAST 

LAST 

LAST 

LAST 


513 
36  3 
519 
513 
517 

4 85 
517 
475 

5 18 
48  5 


LAST  510 
LAST  513 
LAST  518 

LAST  519 
LAS'!’  5 1 9 
LAST  5 1 5 

LAST  518 

LAST  506 

LAST  819 
LAST  519 

LAST  503 


514 

511 

511 

518 
5 17 


23.2215 

23.2216 

23.2217 
23,2220 
23 , 22?  1 

23.2222 

23. 2223 

23 . 2224 

23.2225 

23. 2226 

23.2227 
23,2230 
23,223  1 

23. 2232 

23.2233 

2 3 . 2234 
23,223* 

23. 2236 

23.2237 

23.2240 

23.2241 

23.2242 
23,22^3 

23.2244  • 

23.2245 

23. 2246 

23.2247 
23,2250 
23 ,275  1 

23.2252 

23.2253 
F7, 1456 

23.2254 


0 4674  0 
0153  1 
0 4 c>  74  0 
40140  0 
0 551b  0 
00124  0 
0 5504  0 
00077  1 
0 4616  1 
54123  0 
0 (004  0 
0 4674  0 
40123  0 
0 5353  1 
04022  0 
0 5516  0 
OC077  1 
3 0075  0 
7 4742  0 
10  000  0 
0 2 262  0 
11 ' 745  1 
0 2245  0 
0 226?  0 
55*745  1 
3 2276  0 
0 5173  1 
02252  0 
0 5155  0 
3 771-  1 
0 5105  0 

02127  1 


23,2255 

46C67 

1 

REF 

22 

LAST- 

511 

23 , 225  6 

0 52  61 

1 

r'EF 

140 

LAST 

519 

23,2287 

0 46i6 

1 

R61C+L04 

REF 

4 

LAST 

474 

23,2260 

54266 

1 

REF 

2 

LAST 

518 

23,2261 

0 2236 

1 

REF 

4 

LAST 

517 

23,2262 

31 '143 

0 

R61C+L4 

REF 

8 

LAST 

479 

23,2263 

1 4640 

0 

0 EF 

1 

23, 2264 

3 2 2 S’  3 

0 

R61C+L1 

REF 

36 

LAST 

517 

23,2266 

7 0074 

0 

23,2266 

0 0006 

1 

REF 

86 

LAST 

51° 

23,2267 

1 5155 

1 

REF 

3 

LAST 

519 

23,2270 

0 2236 

1 

REF 

36 

LAST 

46  8 

23,2271 

0 4635 

0 

R65WAIT 

REF 

5 

LAST 

■ 1 1 

23,2272 

502  32 

1 

23,2273 

00500 

1 

BIT7+9PV 

TC 

FCAOP 

TC 

FC  ADR 
TC 

AOi  ES 
TC. 

ADRES 

TC 

CADE 

INHINT 

TC 

FC  ADR 
TC 
OCT 
TC 

ADR  ES 

P61C  + ' 06  CA 

MASK 

CCS 

TC 

CCS 

TC 

rc 

TS 

CAF 

TC 

ADRES 
TC 
CAF 
TC 

EB ANK= 
2 C ADR 


TC 

TC 

CADR 

TC 

CAE 

TCP 

CAF 

MASK 

EXTEND 

BZF 

TC 

TC 

CAD  R 


P61C+L2 


3:15  DEC 


2,1970  LEMP20S  .127  PAGE  519 


USER'S  PAGE  NO.  28  E7  S3 

IBNKCALL 
ZATTET  OR 
IBNKCALL 
SETMINDB 
DOWNFLAG 
3AXTSFLG 
UPFLAG 

REDUCE  ATTITUDE  ERROR 

PDSPFLAG 

BANKCALt 

R60LEM 

SET  PRIORITY  DISPLAY  FLAG 

7 BNKCALl 

RESTGRDB 

PFASCHNG 

04022 

DOWNFLAG 

PDSPFLAG 

PLAGWR01 

R61FLRIT 

A 

R61C+L4 
R65CNTR 
+ 2 

t ESET  Priority  DISPLAY  ^L  AG 

R61C+L4 

R65CMTR 

06SEC 

TWIDDLE 
R61C+1 2 

ENDOF JOB 

PR  1026 

F INDVAC 

LOSCOUNT 

F61C+L0! 

R6PCNTP  = 0 - EXIT  ROUTINE 

TASKuVEF 
BANKCAI  L 
BALLANGS 

R61C.  + L06 
GENRET 

TO  CONVERT  ANGLES  TO  FDA! 

BANK JUMP 

6 IT 7+9 PV 
STATE 

FXIT  R 6 1 

IS  RENDEZVOUS  OR  P25FLAG  SET 

ENDOF JOB 

R61C.  + L06 
POSTJUMP 
P20LEMWT 

MO-EXIT  ROUTINE  AND  PROGRAM. 

YES  EXIT  ROUTINE 

00500 


AP:  AS  >1  1 1 [C  l 1 ’ 1 1R0PI  Y §YLES 


P 2 0 - P'25 


1148 

23,2274 

17350 

1 

C0S15DEG 

2DEC 

0.96593  R- 

1 3 

23,2275 

346  02 

1 

iug 

23.2276 

01130 

l 

06SE  C 

DEC 

600 

1 1 

1150 

0024 

PHI 

EQUAL S 

20D 

1152 

23,2277 

0 0C06 

0 

RE  ADC DUD 

INHINT 

11521 

REF 

5 

LAST 

51« 

23 , 2300 

3 5015 

0 

CAF 

EBAMK6 

11522 

REF 

17 

LAST 

518 

23,2301 

56  003 

1 

XCH 

EBANK 

11523 

REF 

20 

LAST 

258 

23  ,23(2 

54  070 

1 

TS 

RUPTREG1 

11  2 

REF 

1 1 

LAST 

5 18  , 

E6, 1635 

E8ANK= 

CDUXO 

11525 

RFF 

12 

LAST 

5 20 

23,2303 

3 1635 

0 

CA 

C DUX  D 

115  2 6 

REF 

2 33 

LAST 

5 13 

23,2304 

54  154 

0 

TS 

•MP  AC 

11527 

23,2305 

0 0006 

1 

EXTEND 

1 1 

REF 

2 

LAST 

369 

23,2306 

3 1637 

1 

DC  A 

CCU  YD 

11525 

REF 

234 

LAST 

520 

23,2307 

52  156 

1 

DXCH 

MPAC  +1 

1153 

1 F 

21 

LAST 

520 

23,2310 

3 0070 

0 

CA 

•RUPTREG1 

11531 

REF 

1 3 

LAST 

5 20 

23 ,231  1 

54  CO 3 

0 

TS 

EBAKK 

11532 

23,2312 

> 0003 

1 

RELINT 

11533 

REF 

l 

23,2313 

1 6477 

1 

TCP 

T MO  D F 

1155 

4512 

BLOCK 

02 

1 1 5 < 

REF 

1 

6000 

SETLUC 

R ADARFF 

1 1 

4512 

BANK 

11 

REF 

20 

1 AST 

519 

E7 , 145  5 

E B A N K = 

LOSCOUNT 

1 I 

c EF 

1 

COUNT* 

$ $ / R R S U B 
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U$FP *S  DAGE  NO.  2Q  E7  S3 


1 


EADS  DESIRED  CDU'  S AND 
MPAC  TP  EXITS  WTTH  MODE 


STORES  IN 
SET  TO  TP 


GAP: 

L 

P 11  60 

R 1162 

1164 

1165 

1166 

1167 

1168 

1169 

1170 

1171 

1172 


ASSEMBLE  REVISION  001  GF  AGC  PROGRAM  API 1RQPE  BY  EYLES 
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P20-P25 


USER'S  PAGE  MO.  30  E?  S3 


THE  FOLLOWING  SUBROUTINE  RETURNS  TU  CALLER  + 2 IF  THE  ABSOLUTE  VALUE  OF  VALUE  OF  CIA)  IS  GREATER  THAN  THE 
NEGATIVE  OF  THE  NUMBER  AT  CALLER  +1.  OTHERWISE  IT  RETURNS  TO  CAILEP  +3.  MAY  BE  CALLED  IN  PUPT  OR  UNDER  EXEC. 


4512 

0 

0006 

1 MAGS'JB 

EXTEND 

45  1 3 

6 

4515 

1 

BZMF 

/,  c;  i a 

i 

4516 

0000 

0 

0 

TCF 

r j 1 “ 

4515 

l 

4 

COM 

REF  1 50  LAST  516 

REF  1 

REF  3 LAST  268 


‘516  .50  0 U2  G INDEX  Q 

•■■6  17  6 COCO  1 AD  0 

6520  0 r006  1 EXTEND 

*621  6 6741  0 8ZMF  Q+2 

4522  1 6737  0 TCF  Q+l 


ABC (A)  <=  CONST  GO  TO  L+3 
A3SIA)  > CONST  GO  TO  L+2 


3:15  DEC 
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GAP : ASSEMBLE  EVISI  K-  001  IF  AGC  PPCG!  AMd  APllnOPF  BY  EYLfcS 

L P20-P2S  USER'S  PAGE  NO.  31  E7  S3 

P 1 173  PROGRAM  NAME.  RRLIMCHK  ARE  IN  THE  LIMITS  OF  THE  CURRENT  MODE. 

R 1 175  FUNCTIONAL  DESCRIPTION 

Ril?'  . -LIMCHK  CHECKS  ' DES  IP  F D GI  "BAL  ANGLES  TO  SEE  IF  THEY  ARE  WITHIN 

R 1 1 77  THE  LIMITS  OF  THE  CU  ■ EM  MODE.  INITIALLY  THE  DESIRED  TRUNNION  AND 

R117R  SHAFT  ANGLES  ARE  5T0RFD  IN  1TPMP1  AND  ITEMP2.  THE  CURRENT  RP 
R 1 1 7 ° ANTENNAE  MODE  (RADMODES  BIT  12)  IS  CHECKED  WHICH  IS  = 0 FOR 

R 1180  MODE  1 AND  =1  FOR  MODE  2. 

P 1181  MODE  1 - THE  TRUNNION  ANGLE  IS  CHECKED  AT  MAG.SUB  TO, SEE  IF  IT  IS 
R1182  BETWEEN  -53  AN  0 + 5 ~ DEGREES.  IF  f IT,  RETD  N TO  l +2.  IF  WITHIN  LIMITS, 

R 1183  THE  SHAFT  ANGLC  IS  CHECK  FO  TO  SEE  IF  IT  IS  BETWEEN  -70  AND  +59  DEGREES. 

R 1 1 8 A IF  NOT,  RETtm>  TO  L +2.  IF  IN  LIMITS,  RETURN  to  L +3. 

R 1 1 8 5 MODE  2 - THE  SHAFT  ANGLE  IS  CHECKED  AT  MAGSUB  TO  SEE  IF  IT  IS 
R 1 186  BETWEEN  -139  AND  -25  DEGREES.  IF  NOT,  RETURN  TO  L +2.  IF  WITHIN 

R 118  7 LINT'S,  THE  TRUNNION  ANGLE  IS  CHECKED  TO  SEE  IF  IT  IS  BETWEEN  +125 

PlIF-  AND  -125  (+235  ) DEGREES.  IF  NOT,  RETURN  TO  L +2.  IF  IN  LIMITS,  RETURN 
R 1 1 8 9 TO  l +3. 

R 1 190  CALL  ING  SEQUENCE: 

R 1191  L TC  RRLIMCHK  (WITH  INTERRUPT  INHIBITED) 

R 1192  L +1  A ORES  T,S  (DESIRED  TRUNNION  ANGLE  ADDRESS) 

R 1 1 9 3 E -AS ABLE  INITIALIZATION  REQUIRED: 

R 119  4 RADMODE'",  MOOEA,  MODEL  (OR  DESIRED  T - JNNION  ANO  SHAFT 

P 1195  ANGLES  ELSEWHERE  IN  CONSECUTIVE  LOCATIONS  - UNSWI  TC.HED  ERASABLE  OR 

P 1196  CURRENT  E BANK ) . 

R 1 1 9 7 SUB ; I U T I N ES  C A I L E D_  M AG  S U B 

R 1 1 ° • JOBS  OR  TASKS  INITIATED.  f'K'N’E 


R1199  ALARMS.  NONE 

R120C  EXIT.  L + 2 I Fi THE  - WTH  LIMITS  OF  CURRENT  ) 

81201  L + 3 ( B(  TH  ANGLES  W IT  Hi  3 L T ITS  OF  CURRENT  'DEI 


1202 

45  2 3 

0 C006 

1 

RRLIMCHK  EXTEND 

1203 

REF 

151 

LAST 

521 

4524 

5 0CC2 

0 

INDEX 

Q 

1204 

45  25 

5 0000 

1 

INDEX 

C 

1205 

4526 

3 0001 

0 

CCA 

C 

1206 

REF 

1 52 

LAST 

522 

4527 

24  002 

0 

I NCR 

Q 

1207 

REF 

6 

LAST 

258 

4530 

52  0 62 

1 

DXCH 

(TEMPI 

i 

REF 

153 

LAST 

522 

453  1 

2?  002 

0 

LXCH 

Q 

L ( CALL ER  +2  ) TO  L . 

12 

REF 

2 

LAST 

323 

4 532 

3 4 740 

0 

CAF 

ANTENBI T 

SEE  WHICH  MODE  RR 

IS  IN 

1210 

REF 

36 

LAST 

5 16 

4 53  3 

7 0110 

0 

MASK 

RADMODE S 

1211 

REF 

166 

LAST 

5 19 

4534 

10  COO 

0 

CCS 

A 

1212 

REF 

1 

4535 

1 455  0 

1 

TC  F 

M0DE2CHK 

1213 

PEF 

7 

LAST 

522 

4536 

3 00  61 

0 

CA 

itempi 

MODE  1 IS  DEFINED 

AS 

GAP:  ASSEMBLE  RE  V I.  I If  001  Of  AGC  PROGRAM  API  1 <QPE  BY  PYLES 


L P20-P25 

12 1 A REF  1 

1215 

1216  REF  63  LAST  464 

1217  RFF  1 

121R  FEF  3 LAST  95 

1219  REF  2 l AST  523 

1220 

122)  REF  64  LAST  523 

1222  REF  1 


4537  0 4512  0 TC 

<^540  66  161  1 DEC 

4541  1 C0G1  0 TC 

4542  3 4562  1 CAF 

4543  6 0062  0 AD 

4544  0 4512  0 TC 

4545  64420  0 DEC 

4546  0 C001  0 TC 

4547  0 456C  0 TC 


122  3 

° EF 

l 

1224 

RFF 

4 

LAST 

1225 

REF 

3 

LAST 

1226 

1227 

REF 

65 

LAST 

1 TOO 

occ 

p 

1 ACT 

X 2 16  C 

r\  IT  1 

LA' 

1229 

REF 

LAST 

1230 

1231 

REF 

66 

LAST 

1232 

REF 

67 

l AST 

1233 

1234 

455  0 

3 4563 

0 

MPDE2CHK 

CAF 

523 

455  1 

6 C062 

0 

AD 

523 

4552 
455  3 

0 4512 
6567  3 

0 

0 

TC 

DEC 

523 

45  54 

0 COO  1 

0 

TC 

522 

4k  5 5 

3 6061 

A 

CA 

u 

523 

4556 

0 4 512 

0 

TC 

4557 

51615 

1 

DEC 

52  3 

4560 

5 0 0 1 

0 

; i i MDK 

II  DEX 

C ? T 

45  6 1 

0 i 001 

0 

TC 

4562 

00765 

0 

5.5DEGS 

DEC 

45  6 3 

16450 

1 

82DEGS 

DEC 

MAGSUB 

-.30555 

L 

5 . 5DEGS 

TTEMP2 

MAGSUB 

-.35833 

L 

RRLIMOK 

8 2 DEG  S 
I TEMP2 
MAGSUB 
-.31667 
L 

I TEMPI 
MAGSUB 
- .69444 

L 

L 
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1.  ABS(T)  L 55  DEGS. 

2.  ABS  ( S + 5.5  DEGS)  L 64.5  DEGS 

(SHAFT  LIMITS  AT  +59,  -70  OEGS ) 


S 


64.5  DEGS 
IN  ! I M I TS . 

MODE  2 TS  DEFINED  AS 

1 . ABS (T ) G 125  OEGS. 

2.  ABSfS  + 82  DEGS)  L 57  DEGS 

(SHAFT  LIMITS  AT  -25,  -139  DEGS) 


125  DFGS 


( = TC  1) 


03056 

45556 


GAP:  ASSEM8LE  K E V I S I C I - 001  OF  AGO  PROGRAM  API  IRC PE  BY  EYLES 


L P20-P25 

P 123?  PROGRAM  NAME.  SETTRKF 
R 12  37  FUNCTIONAL  DtS  CRIP,T  I . 

R 1 2 3 f SETTRKF  UPDATES  THE  TRACKER  FAIL  LAMP  ON  THE  OSKY. 

R 1240  INITIALLY  THE  LAMP  TEST  FLAG  (IM0DES33  BIT  1)  IS  CHECKED. 

RI241  IF  A LAMP  TEST  IS  II  PROGRESS'*  THF  PROGRAM  EXITS  TO  L +1. 

R 1242  IF  MO  LAMP  TEST  THE  FOLLOWING  IS  CHECKED  SEQUENT  I Al LY_ 

R 1243  1)  R R CDI I : S BEING  ZEROED,  I R CDU  OK,  AND  RR  NOT  IN 

R 1244  AUTO  MUDE  (RADMODES  BITS  13,  7,  2). 

R 1245  2)  1 VET  DATA  FAIL  AN  D IP  L<<  POT  DATA  { ft  ADM  DES  BITS 

R 1 246  8,5) 

R1247  3)  NO  RR  DATA  (RADMODES  BIT  A) 

R 1248  THE  ABSENCE  OF  AU  TH  EE  SIMULTANEOUSLY  IN  (1),  THE  PRESENCE  OF  BOTH 

R 124°  IN  (2),  AND  THE  PRESENCE  OF  (3)  RESULTS  IN  EITHER  THE  TRACKER  FAIL 

R 1230  LAMP  (DSPTAB  +11D  BIT  8)  BEING  TURNED  ON  0!  LEFT  CM.  OTHERWISE, 

P.1251  THF  TRACKER  FAIL  LAMP  IS  TURNED  OFF  OR  IS  LEFT  UFF.  THE  EFOPE,  THE 
R 1252  TRACKER  FAIL  » AMP  IS  TURNED  ON  I F_ 

P 1253  A ) f 'tm  FAILED  WITH  PR  IN  AUTO  MODE  AND  rM  CDU:"  MOT  BEING  ZEROED. 

R125A  B)  N SAMPLES  OF  L P DATA  COULD  NOT  BE  TAKEN  IN  2N  TRIES  WITH 

R 1255  FITHER  THE  ALT  OR  VEl.  INFORMATION 

R 1256  C)  N SAMPLES  OF  RP  DATA  COULD  NIT  BE  OBTAINED  FROM  2N  TRIES 
R 1257  WITH  EITHER  THE  AL 

R 1258  C Al  L TNG  SEQUENCE : 

R 1 2 5 F L TC  SETTRKF 

R 126 C ERASABLE  I N I T I AL I Z AT  I ON  REQUIRED:  IM0DES33,  RADMODES,  DSPTAB  +11D 
P 1261  SUB  ! UTINES  CALLED.  NONE 

P 1262  JOBS  C"  TASKS  I N I T I ATED_  NONE 


R 1263  ALARMS.  TRACKER  FAIL  LAMP 

R 1264  EXIT.  L +1  (ALWAYS) 


1266 

REF 

25 

LAST 

467 

4564 

3 

4753 

1 

SETTRKF 

CAF 

BIT! 

1 2-  7 

REF 

25 

LAST 

470 

4565 

7 

1 303 

1 

MASK 

T MODES 3 3 

1268 

REF 

167 

LAST 

822 

4566 

10 

000 

0 

CCS 

A 

1269 

REF 

1 54 

LAST 

52  2 

4567 

0 

0002 

0 

TC 

Q 

127C 

REF 

24 

LAST 

334 

4570 

3 

4 744 

1 

RPTRKF 

CA 

B I T 8 

1271 

REF 

68 

LAST 

523 

457  1 

54 

■ 001 

1 

TS 

L 

1272 

REF 

1 

4572 

3 

4615 

1 

CAF 

13,7,2 

1273 

REF 

37 

LAST 

522 

4573 

7 

CliO 

0 

MASK 

RADMODES 

1274 

45  74 

0 

0006 

1 

EXTEND 

1275 

REF 

1 

4575 

1 

4601 

0 

EZF 

TRKFLON 

1276 

REF 

1 

4576 

3 

47  50 

1 

RP  CHECK 

CAF 

RRDA1 ART 

1277 

REF 

38 

LAST 

5 24 

4577 

7 

0110 

0 

MASK 

RADMODES 

: 1 5 DEC 
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. IF  EITHER: 

HER  T HE  ALT  OP  VEL  INFORMATION. 


ED. 

NO  ACTION  IF  DURING  LAMP  TEST. 


SEE  IF  CDU  FAILED. 

CONDITION  3 ABOVE. 


SEE  IF  RR  DATA  FAILED 


GAP: 


ASSEMBLE  RE  V I S I 3 N GO  1 OF  AGC  PROGRAM  API  1AOPE  BY  EYL.ES 


1278 

1279 

1280 
1281 
128? 
12J3 

1? 

128  5 

1286 
1?  ' 1 
12“» 

1289 

1290 

12°  1 

1292 


P20-P2E 


4600 

4601 
46  0 2 

10  000 
3 0001 
% 1036 

0 

0 

0 

CCS 

TPKFLOM  CA 

AD 

A 

L 

DSPTAB  +110 

4 6 0 3 

7 0001 

1 

MASK 

L 

46  04 

0 0006 

1 

EXTEND 

...  /-  r,  s 

1 * 7 42 

1 

BZF 

TCO 

REF  168  LAST  524 
REF  6°  LAST  524 
REF  39  LAST  471 
REF  70  LAST  525 

REP  4 LAST  f' 

RFF  40  LAST  525 

Ktf  1'  LAST  ?.cr- 
■ E f 1 ! A T -32 

o FF  ?°  LAST 
REF  41  LAST  525 
REF  155  LAST  524 


''606  3 1036  0 FLIP 

,4607  0 (.0  06  1 

6 10  v CO  1 0 
'll  1 6 733  0 
'6,1  2 - 4 7 3 c 1 

'-6  ] 3 6 5 '0  36  1 

46  14  0 0002  0 


CA  DSPTAB  + 1 1 D 

EXTEND 

RXGR  LCHAN 
MASK  POSMAX 

AD  B I T 1 c 

DSPTAB  + 1 ID 

TC  Q 


1 ■ 1G1  ‘2  0 13,7,2  1C  T 1C10? 

■ I S END!  w PDF  EQUALS 
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HALF  ADD  DESIFED  AND  PRESENT  STATES. 

v CHANGE. 


525 


CANT  USE  LXCH  DSPTAB  +110  (°ESTAPT  PROB ) 


I 


GAP-:  ASS t ABLE  MI  VISION  0C1  OF  AGC  PO.QO RAM  AP11.POPE  >3Y  E.YLLS 

L P20-P2  ' 

Pl|§3  PROGRAM  NAME.  TUP  NON 
R 1294-  FLING  T I UAL  DESCkIFTIG 

R12°5  RRTUPNON  IS  THF  TURN- DU  .SEQUENCE  WHICH,  ALONG  WITH 
R1296  7ty  .T?R,  ZFPC  f ME  C v J : '•  A NO  OEtE  -IINiS  "'HE  r I-  *fDF. 

R 1297  INITIALLY,  CONTROL  IS  TRANSFERRED  TO  RRZEROSB  FOR  THE 
R 1298  ACTUAL  TUF  N-ON  5 E llir  NCE.  Ul  URN  THE  i_ 

R 1 299  WAITS  1 SECOND  3EFI  ; E-  RE-IOVING  THE  TJM-ON  FLAG 

R 1 300  ( ADMODES  RIT1)  SO  THE  R EPOS  I T I ON  ROUTINE  WON : T 

R 130 1 I FIT  TATE  F^iGRA'i  Al  Af  M 00561.  A CHECK  IS  THEN  HADE 

R 13P  7 TO  SEE  IF  A PROGRAM  IS  ifSfNG  THE  U:  (STATE  BIT  7).  IF 

R 1303  SO,  THE  PROGRAM  EXITS  To  FNDRADAR  SO  THAT  THE  RR  CDU 
R1304  FAIL  FI  AG  ( R ADMODES  BIT  7)  CAN  BE  CHECKED  BEFORE 

R 1305  P.ETUKIUNG  TO  THE  WAITING  PROGRAM.  IF  NOT,  THE  PROGRAM  EXITS 

R1306  T'  TASKOVER. 

R 1307  CALI IMG  SEQUENCE:  WAiIlTST  TASK  FROM  RRAUTCHK  IF  THE  PR  pfewEf  ON  AUTO 
R 1308  BIT  (CHAN  33  BIT  2)  CHANGES  TO  0 AND  NO  PROGRAM  WAS  USING 
R 1 30°  THE  F.P  (STATE  BIT  7). 


R 1 3 1 0 

ER  A SABI,  t 

INITIALIZATION  REQUIRED: 

R 1311 

R ADMODES 

, STAT 

E 

R 1312 

SUBROUTINES  CALLED. 

RRZEROSB. 

) 

FIXDE 

LAY, 

, TASKOVER 

, ENDRADAR 

R 131  3 

JOBS 

OR 

TASKS 

INITIATED. 

P 1314 

NONE 

P 1315 

ALAR 

M$ 

NJHKIF 

(SEE 

L 1.;  7 f-  r n Q Q ) 

r l.  ' - i j O " 

R 1316 

EX  I T. 

_ TASKOVER,  FNDRADAR  (WAITING  PROGRAM) 

1317 

24,3255 

BANK  24 

131  ? 

PER 

1 

25,2000 

SETLOC  P20S1 

1319 

25 , 2062 

BANK 

1320 

REF 

21 

LAST 

520 

E7 , 1456 

EBANK=  LOSC"'JNT 

1321 

REF 

1 

COUNT*  $ $ / R S U B 

1322 

REF 

1 

2 5 , 2C6  2 

0 

2071 

0 

RR TURNON 

TC  RRZEROSB 

1323 

REF 

3 

i.  AST 

499 

25,2063 

0 

5221 

0 

TC  FIXOELAY 

1324 

25 , 2064 

Or  144 

0 

DEC  100 

1325 

REF 

1 

25,2065 

4 

4753 

0 

CS  TURNONBT 

1326 

REF 

39 

f AST 

524 

25,2066 

7 

01  10 

0 

MASK  RADMODES 

1327 

REF 

40 

LAST 

526 

25 ,2067 

54  no 

0 

TS  RADMODES 

132F 

REF 

23 

1 AST 

5 19 

25,2070 

i 

5261 

0 

T F TASKOVER 

15  DEC 


127 


PAGE 


526 
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WAIT  1 SEC  BEFORE  REMOVING  TURN  ON  FLAG 
TO  A MONITOR  REPOSITION  WONT  ALAFM. 


GAP : 


ASSEMBLE;  E VISION  001  OF  AGC  PROGRAM  A=>1  lRUPfc  BY  EYI.ES 


L P20-P25 

P 1329  PROGRAM  NAM E RRZEROSB 

R 1330  FUNCTIONAL  DESCRIPTION, 

R 133 1 RRZEROSB  IS  A CLOSED  SUBROUTINE  TO  ZERO  THE  RR  CDU.'S, 

P 1332  DETERMINE  THE  f ' MOO  Eli  AND  TURNS  ON  THE  TRACKER  FAIL 

p 1 33  3 LA  P IF  R EQiJT P ED.  IN  IT  I A1  I Y THE  ' CDU  ZERO  BIT  (CHAN  12 

R 1334  BIT  1)  IS  SET.  FOLLOWING  A 20  MILLISECOND  WAIT,  the  LGC 

R 133'  I CO U 1 (01  ) ARE  SET  = 0 AFTE 

P1336  WHICH  THE  RF  CDU  ZERO  DISCRETE  (CHAN  12  BIT  1)  IS 

R 1 33?  "EM'  VHO.  A 4 SEC  0 WAIT  IS  SET  TL  ALL  THE  I ; CDU:$ 

R133P  TO  r:  EP  EAT  THE  ACTUAL  T"UN  ,'ION  AND  SHAFT  ANGIES.  THE 
R ] 33c  RR  CDU  ZERO  FLAG  (RADMOOFS  BIT  13)  IS  REMOVED.  THE 

R 1340  CONTENTS  OF  OPTY  IS  THEN  CHECKED  TO  SEE  IF  THE  TRUNNION 

R 134 1 ANGLE  IS  LESS  THAN  90  DEGREES.  IF  NOT,  BIT  12  OF 
R 1 342  RAOMUQES  IS  SCI  = 1 TO  I MOT  G-A.TE  ( K ANTENNA  MODE  2. 

R 1343  IF  LESS  THAN  °0  DEGREES,  BIT  12  OF  PAD MODES  IS  SET  = 0 TO 

R 134 p INDICATE  RR  ANTENNA  MODE  1.  SETTPKF  IS  THEN  CALLED  TO 

R 1 3 <■  REE  (F  TH E ACKEi  FAN  LA5  ru  OLD  BE  TUNNED  ON. 


R 1346  CALLING  SEQUENCE:  L TC  RRZEROSB  (FROM  RR TURNON  AND  RR  ZERO ) 
R 134  7 ERASABLE  INITIALIZATION  REQUIRED: 

R 134 r R A DUO DES  (B>  ' 13  EFT),  DSPTAB  + 11D 


R 1349 

R 1350 

R 1351 

R 13  52 

SUBROUTINES  CALLED,  FIXOFIAY 

JOBS  OR  TASKS  INITIATED 

NONE 

ALARMS,  IS  ACKER  FAIL 

, magsub, 

SETTPKF 

R 1353 

E X I T_  L 

+1  (ALWAYS) 

1354 

'?  R _ 9 il  "7  1 

0 CO 06 

f •/  7 C-  L ! 1 C U 

c vtcwh 

1 

> . Z t r . ; b b 

cr  a 1 n U 

1355 

REF  2 

L AST 

106 

25,2072 

23*318 

1 

QXCH 

RRRET 

1356 

REF  26 

LAST 

524 

25,2073 

3 4 753 

1 

CAF 

Bill 

1357 

25 , 20 7A 

0 9006 

1 

EXTEND 

1358 

REF  27 

LAST 

516 

25,2075 

05  012 

1 

WOR 

CHAN  12 

1359 

REF  4 

LAST 

526 

25,2076 

0 5221 

0 

re 

F I XDE  LAY 

136  0 

25,2077 

00002 

0 

DEC 

2 

1361 

■EF  113 

LAST 

r 1 

25,2100 

3 4.  ? <S  5 

1 

CAF 

ZERO 

1362 

REF  5 

L AST 

513 

25,2101 

54  035 

0 

TS 

COUT 

1363 

REF  4 

LAST 

316 

25,2102 

54  036 

0 

TS 

CDUS 

1364 

REF  63 

LAST 

507 

25,2103 

4 4753 

0 

CS 

ONE 

136  5 

25,2104 

0 00  06 

1 

EXTEND 

1366 

REF  28 

LAST 

527 

25,2105 

03  012 

1 

^ AND 

CHAN  12 

1367 

REF  5 

L A'  - T 

5 27 

25,2106 

0 r 2 2 1 

0 

TC 

FI  XDELAY 

136  8 

25,2107 

01750 

1 

DEC 

1000 

1369 

REF  3 

LAST 

505 

25,2110 

4 4737 

1 

CS 

RCDUOBIT 
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BIT  13  OF  ADMODES  MUST  BE  SET  BEFORE 
COMING  HERF. 

TURN  ON  ZERO  RR  CDU 


< 


REMOVE  ZEROING  BIT. 

RESET  FAIL  I NH I B I T IN  10  SECS 
REMOVE  ZEROING  IN  PROCESS  BIT 


4 

4 

i 

04  281 

< 


« 


GAP:  ASSEMBLE  -EVIL  1 3 N G01  'IF  AGC  PROGRAM  AP11KOPE  BY  FYl.ES 


L P20-P25 


1370 

1371 

REF 

REF 

41 

42 

LAST 

LAST 

52b 

528 

25.2111 

25.2112 

7 0110 
54  110 

0 

0 

MASK 

TS 

R ADMODES 
"ADMODES 

1372 

REF 

6 

LAST 

527 

25,2113 

3 0035 

1 

CA 

CDUT 

1373 

REF 

5 

L AS  r 

523 

2 c , 2 1 1 4 

0 4512 

0 

TC 

MAG SUB 

1374 

25,2115 

57777 

1 

DEC 

- .5 

1375 

25,21  16 

1 2121 

0 

TC  F 

+ 3 

13  76 

REF 

1 14 

LAST 

527 

25,2117 

3 47  55 

1 

CAF 

ZERO 

1377 

25, 2120 

1 2122 

0 

TC  F 

+ 2 

1378 

REF 

3 

LAST 

522 

25,2121 

3 * 740 

0 

CAF 

ANTENBIT 

1370 

REF 

43 

L AST 

5?R 

2C,21?2 

56  no 

1 

XCH 

P ADMODES 

1380 

REF 

1 

25,2121 

7 7741 

0 

MASK 

-BIT12 

1381 

RFF 

44 

LAST 

528 

25,2124 

26  110 

0 

ADS 

T.  ADMODES 

1?'  2 

P EF 

2 

LAP- 

185 

25,2125 

0 45  64 

1 

TC 

SETT  4 KF 

1 a 

REF 

3 

LAST 

527 

25,2124 

0 1315 

2 

TC. 

RRR  F T 

1 3 

REF 

1 

774  1 

-BIT12 

EQUALS 

-1/8 
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528 


IF  MODE  2. 


TP  ACKER  LA”p  MIGHT  GO  ON  NOW. 
DONE. 


IN  SPPOOT 
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t P20-P25 
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P 1385  PROGRAM  NAME.  DOPRFPOS 
R 1 386  FUNCTIONAL  DES  CP  I PT I 0N_ 

R 1387  OORREPU  ' IS  A SEQUENCE  OF  7 a .>  K 3 TO  U IVE  i HE  RENDEZVOUS  RADA 
R 1338  T it  A SAFE  POSITION,  INIT  IALLY  SETRRECR  TS  CALI  ED  WHERE  THE  F R 
R 1389  EPSOP  COUNTERS  ( C HAr-  12  BIT  2)  API  ENABLED  AMD  LASTYCMD 

R 1 3 ° C AND  LASTXCMO1  SET  = o rr  INDICATE  THE  DIFFERENCE  BETWEEN  THE 

R 139 1 DESIRED  STATE  AND  PRESENT  STATE  OF  THE  COMMANDS.  THE  RR 
R 1392  TURN-ON  FLAG  (RADMODES  BIT  1)  IS  CHECKED  AND  IF  NO!  PRESEN-, 

R 139  3 PROGRAM  ALA,  M GG501  .S  &EQ JESTED  BEFORE  CONTINUING.  IN  EITHER 

R 1394  CASE,  FOLLOWING  A 20  ' ILL  I SECOND  WAIT  THE  PROGRAM  CHECKS  THE  CURRENT 

R13r  t RR  ANTENNA  MODE  ( - A0M0D1  • BIT  12).  TOMLY  IS  THEN  CALI  ED 

0 1396  Tf  DI  TVE  THE  ▼PM1--,  tpm  ANGLE1  to  n DEG' EEC  Jf  IN  MODE  1 AMD  TO  IRC 

01397  DEGREES  IF  IN  MODE  2.  UPON  RETURN,  THE  CURRENT  RR  ANTENNA 

R 1398  MODE  (RADMODES  BIT  12)  IS  AGAIN  CHECKED.  RRSONLY  IS  T HEM 

R139C:  CALLED  T 1 D»IVE  THE  SHAFT  ANGLE  TO  0 DEGREES  IF  IN  MODE  1 AND  TC 

R16R0  -o  DEGREES  IF  IN  MODE  2.  IF  DURING  RRTONLY  OR  RRSONLY  A 

9140 l RENPOE  HA?  BEEN  F QUEST ED  (RADMODES  BIT  14) , AND  ALWAYS 

R 1402  FOUnWTNG  CflM®L  FT  ION  r*F  oocnNLY,  CONTROL  IS  TRANSFERRED  TO 

R14D3  REPOSRPT.  HERE  THE  REPOSITION  FLAG  (RADMODES  BIT  II)  IS 

R 1404  REMOVED.  A CHECK  IS  THEN  MADF  ON  THE  DESIGNATE  FLAG  (RADMODES 

R 1401  BIT  li).  IF  PRESENT,  CONTROL  IS  TRANSFERRED  TO  BEGDES.  IF  NOT  PRESENT 

R 1406  INDICATING  NO  F U r T H E f ANTENNA  CONTROL  REQUIRED,  THE  F R ERROR 

R14C7  COUNTER  BIT  {CHAN  12  P,  IT  2)  IS  EMUVED  AND  THE  ROUTINE  FXITS  TO 

R 1408  TASKOVER. 


R 1409  CALLING  SEQUENCE: 

9 1410  WAITLIST  CALI  F , Cl, ON  IF  T 5 Ui-.W  ION  AND  SHAFT  CDU  ANGLES 
R 141 1 NOT  W I HI N L I M I S OF  CUr'  E T MODE. 

R 14  1 2 ERASABt.l  INlTT  At  I ZAT  T ' ED  U T F E D : 

9 1413  RADMODES 


R 1414  SUBROUTINES  CALLED.. 

R 141  5 R > I • L Y , RRSONLY,  fit  COES  (EXIT) 


R IMA 

JOBS 

OR  TASKS  INITIATED. 

R 1417 

NONE 

R 1418 

ALARMS-  NOPE 

R 141  c 

EXIT. 

TASKOVE! , BEGDES 

1420 

REF 

1 25,2127 

C 2156 

1 

DORF  EPOS 

TC 

R 142 1 

ALARM 

501  DELETED  IN  DANCE  2 79 

PER  PCR 

97. 

142  2 

REF 

6 LAST  527  25,2130 

C 5 221 

0 

TC 

142  3 

25,2131 

0 000  2 

0 

DEC 

1424 

RFF 

4 LAST  528  25,2132 

3 4 740 

0 

CAF 

SETRRECR  SET  UP  RR  CDU  ERROR  COUNTERS. 

FIXDELAY 

2 

ANTENBIT  MANEUVER  TRUNNION  ANGIE  TO  NOMINAL  POS. 


GAP:  ASSEMBLF  REVISION  01  OF  A GC  PROGRAM  AP11R0PE  BY  EYLES 

L PZO-P?^ 


14-25 

REF 

45 

LAST 

528 

25,2133 

7 0110 

0 

MASK 

RADMODES 

1426 

REF 

169 

LAST 

525 

25 ,2134 

10  000 

0 

CCS 

A 

1427 

REF 

29 

LAST 

525 

25, 2135 

3 4735 

1 

CAF 

BIT  1 5 

142  8 

REF 

1 

25 ,2136 

0 2241 

1 

TC 

RRTONLY 

1 4 2 9 

0 EF 

5 

LAST 

529 

25,2137 

3 4740 

0 

CAF 

AMTFNBTT 

143P 

P>EF 

46 

LAST 

530 

25,2140 

7 0110 

0 

MASK 

RADMODES 

14-31 

REF 

170 

LAST 

530 

25,2141 

10  000 

0 

CCS 

A 

143  2 

REF 

5 

LAST 

508 

25,2142 

4 4735 

0 

cs 

HALF 

1433 

REF 

1 

25, 214  3 

0 2244 

1 

TC 

RRSONLY 

1434- 

RFF 

2 

LAST 

1R7 

2 c , 2 1 44 

4 4741 

0 

REPT-SRPT 

CS 

REPOS  BIT 

A 1435 

1436 

REF 

47 

LAST 

5 30 

25,214-5 

7 0110 

0 

MASK 

RADMODES 

1437 

REF 

48 

LAST 

53G 

25.2146 . 

14  LI.; 

.0 

TS 

RADMODES 

1438 

REF 

1 

2 5 , 2 1 4 7 

7 4 742 

0 

MASK 

DESIGBIT 

14  3° 

REF 

171 

LAST 

530 

2 5 , 2 1 ! 0 

10  (CO 

0 

CCS 

A 

1440 

ft  FF 

2 

LAST 

5 10 

25,2151 

1 2 57  3 

o 

TC  F 

BEGUES 

1441 

REF 

29 

LAST 

516 

25,2152 

4 4-7  5 2 

1 

CS 

BTT2 

1442 

25,2153 

0 0006 

1 

EXTEND 

144  3 

REF 

29 

LAST 

527 

25, 2154 

03  012 

1 

WAND 

CHAN  1 2 

144  4 

RFF 

24 

LAST 

526 

25,2155 

1 52  61 

0 

TCF 

TASKOVER 

1445 

REF 

30 

LAST 

5 30 

2 c , 2 1 r 6 

3 475? 

0 

SFTRP.ECR 

CAF 

R IT  p 

1 

25,2157 

0 0006 

1 

EXTEND 

1447 

REF 

30 

LAST 

530 

25,2160 

02  012 

0 

RAND 

CHAN12 

1448 

REF 

172 

LAST 

5 30 

25,2161 

1C  000 

0 

CCS 

A 

144  9 

p EF 

15, 

LAST 

5 25 

25,2162 

0 00  0 2 

0 

TC 

Q 

1450 

RFF 

7 

I AST  1 

2 02 

25, 21^3 

54  112 

1 

TS 

LASTYCMD 

1451 

REF 

1 

25,2164 

54  113 

0 

TS 

LASTXCMD 

1452 

REF 

31 

LAST 

530 

25,2165 

3 4752 

0 

CAF 

B IT2 

1453 

2 5 . 21 66 

0 .0006 

1 

EXTEND 

A 1 l_  I'j  W 

1454- 

REE 

31 

LAST 

530 

25,2167 

08  012 

1 

WOR 

CHAN 12 

1455 

REF 

157 

LAST 

530 

25,2170 

0 0002 

0 

TC 

Q 
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0 FOR  MODE  1 AND  ISO  FOR  MODE  2. 


NOW  PUT  SHAFT  IN  RIGHT  POSITION 


-90  FOR  MODE  2. 


RETURNS  HERE  FROM  PP1AXIS  IF  R.HlODE 
REQUESTED  duping  reposition. 

REMOVE  REPOSITION  BIT. 

SEE  IF  SOMEONE-  IS  WAITING  TO  DESIGNATE. 


IF  NO  FURTHER  ANTENNA  CONTROL  REQUIRED, 
REMOVE  ERROR  COUNTER  ENABLE. 


SET  UP  f-o  ERROR  COUNTERS. 

DO  NOT  CLFAF  LAST  COMMAND  IF 
ERROR  COUNTERS  ARE  ENABLED. 


ENABLE  PR  CDU  ERROR  COUNTERS. 


t 

: 


/ 


GAP  : 


ASSEMBLE  REVISION  GC1  Oft  AGC  PROG.  AM  AP11RGPE  BY  EYLES 


L P2 0-°25 

P1456  PROGRAM  N AM E_  REMODE 

R.1458  FUNCTIONAL  DESCRIPTION. 

R 1460  REMODE  IS  THE  GENERAL  " ERODING  SUBROUTINE.  IT  DRIVES  THE 

R 146 1 TRUNNION  ANGLE  TJ  0 DEG'  EES  IF  THE  CURRENT  MODE  IS  MODE  1, 

PI' -2  ISO  DEO  EES  F ' F ' DE  2,  'HEN  DRIVES  THE  SHAFT  ANGLE  TO  -45 

R 1 463  DEGr  EES*  AND  FINALLY  DRIVFS  THE  TRUNNION  ANGLE  TO  -130  DEGREES, 

i Tl  PLACE  THE  RR  IN  MODE  2,  -50  DEGREES  FOP  MODE  1,  BEFORE 

F 1465  INITIATING  2-AXiS  CONTROL.  ALL  -EMOOING  IS  QONE  WITH  SINGLE 

R 146 6 AXIS  ROTATIONS  (RR1AXIS).  INITIALLY  tH E RR  ANTENNA  MODE  FLAG 
P 146  7 UADMOOES  BIT  12)  Ic  CHECKED.  O'  Mr  'L  IS  THEN  TRANSFERRED  TO 
R14^  c P P T L ML  Y jr  Or  1 V E THr  T f J \IN  I ON  ANGL  E TO  0 DEGREES  IF  IN  MODE  1 

R 1469  OR  180  DEGREES  IF  IN  NODE  2.  P'  SONLY  IS  THEN  CALLED  to  DRIVP 

R 1470  THE  SHAFT  ANGLE  TI  —5  DEGREES.  THE  RR  ANTENNA  MODE  FLAG 

R 147 1 (RADMODES  BIT  12)  IS  CHECKED  AGAIN.  CONTROL  IS  AGAIN 

R 1472  TPAOSFE:-.  ED  TO  RT-TCNLY  " « DRIVE  THE  TRUNNIOI:  ANGLE  TO  -130 

R 147  3 DEGREES  TO  PLACE  THE  - ! TN  !l  DE  2 IF  CURRENTLY  IN  MODE  L OF.  TO 

R147A  -60  DEGREES  IF  IN  MODE  ? TO  PLACE  THE  RR  IN  MODE  1.  PMODINV 

R 147  5 IS  THE':  CAL  I ED  TO  S F T RADMODES  BIT  12  TO  INDICATE  THE  NEW 

R 1476  RR  ANTENNA  MODE.  THE  REMODE  FLAG  (RADMODES  BIT  14) 

R 14 77  IS  REMOVED  TO  INDICATE  THAT  REMQDING  IS  COMPLETE . THE  PROGRAM 

R 147  8 THEN  EXITS  TO  STOESIG  Tf  BEGIN  2-AXIS  CONTROL . 

P 1479  CALLING  SEQUENCE: 

R 1480  FROM  BEGDES  WHEN  RENUDE  FLAG  ( ADMODES  BIT  14)  IS  SET. 

R 1481  THIS  FLAG  MAY  8E  SET  IN  c DESSM  AND  RRDESNB  IF  RRL IMCHK 

R 14  12  DETERMINES  THAT  THE  DESIRED  ANGLFS  4 RE  WITHIN  THE  LIMITS  OF  TftF 
R 148  3 OTHER  MODE. 

R 148  A E A S A 8 L E I 0 I T I AL  I Z AT  I ’ N <-■  EQU  I,:  ED  : 

R 1489  RADMODES 


R I486 

SUQE. 

OUT 

INES  CALLED 

P 1487 

RRTCNL Y 

, RRSONLY, 

f-  LCD  IN  V (ACTUALLY 

PARI  OF) 

R 1488 

JORS 

OR 

tasks 

INITIATED 

R 1489 

NONE 

R 149G 

ALARMS. 

NONE 

R 1491 

EXIT. 

STDFSIS 

1492 

REF 

6 

L AST 

530 

25,2171 

3 

4740 

0 REMODE 

CAF 

ANTENBI T 

1493 

REF 

49 

LAST 

530 

25,2172 

7 

0110 

0 

MASK 

RADMODES 

1494 

REF 

173 

LAST 

530 

25,2173 

10  000 

0 

CCS 

A 

1'  55 

REF 

3 0 

LAST 

530 

25,2174 

3 

47  35 

1 

CAF 

B I T 1 5 

1496 

P EF 

2 

LAST 

5 30 

25,2175 

0 

2241 

1 

TC 

P R T ONLY 

14  07 

REF 

1 

25,2176 

3 

7740 

0 

CAF 

-45DEGSP 

1498 

REF 

2 

LAST 

530 

25,2177 

0 

2244 

1 

TC 

RRSONLY 

4 
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IVES  SHAFT  TO  -45,  AND  FINALLY  DFIVES 
S DONE  WITH  SINGLE  AXIS  ROTATIONS  (SEE 


DRIVE  TRUNNION  TO  0 (180) 

( ERROR  COUNTER  ALREADY  ENABLED) 


p 

t 

GAP:  ASSEMBLE  REVISI3N  001  OF  AGC  PROGRAM  AP11R0PE  BY  EYLES 

1 L P 20-P  ? *5 


149  0 

REF 

50 

LAST 

531 

25 , 22CC 

4 01  10 

0 

CS 

RAOMODE  S 

1500 

REF 

7 

LAST 

531 

25,2201 

7 4740 

1 

MASK 

ANTENBIT 

1501 

REF 

174 

LAST 

531 

25,2202 

1G  COO 

0 

CCS 

4 

1502 

REF 

1 

25,2203 

3 22  32 

0 

CAF 

-30DEGSR 

1503 

RFF 

1 

2 5 ,220  4 

6 2231 

0 

AD 

-60DEGSP 

1504 

PEE 

3 

! AST 

531 

25, 2205 

0 2241 

1 

TC 

RRTOFLY 

1505 

REF 

51 

LAST 

532 

25,2206 

4 0110 

0 

CS 

RADMODES 

1506 

REF 

a 

LAST 

532 

25,2207 

7 4740 

1 

MASK 

ANTENBIT 

1507 

REF 

175 

LAST 

532 

25, 2210 

10  000 

0 

CCS 

A 

1508 

REF 

31 

LAST 

531 

25,2211 

3 47  3 5 

1 

CAF 

B I T 1 5 

150« 

REF 

% 

L A S T 

e32 

25,22  12 

0 22  41 

1 

TC 

PRTCNL Y 

1510 

REF 

52 

LAST 

5 32 

25,2213 

4 01  10 

0 

CS 

RADMODES 

1511 

REF 

9 

LAST 

532 

25,2214 

7 4740 

1 

MASK 

ANTENBIT 

1512 

REF 

1 76 

LAST 

53? 

25,2215 

10  000 

0 

CCS 

A 

151  3 

REF 

6 

LAST 

530 

25,2216 

4 4736 

0 

CS 

HALF 

1 c 1 4 

REF 

3 

LAST 

531 

?5  t 22  17 

0 2244 

l 

TC 

r p SGML  Y 

1515 

REF 

1 

25 , 2220 

0 2233 

1 

TC 

RMODINV 

1516 

°EF 

1 

25,2221 

4 ^736 

0 

CS 

REMO  DRI? 

151? 

REF 

53 

LAST 

532 

?"',???  2 

7 0110 

0 

MASK 

RADMODES 

1518 

REF 

54 

LAST 

532 

25,2223 

54  110 

0 

TS 

RADMODES 

1519 

PEF 

2 

LAST 

530 

25,2224 

3 4742 

1 

CAF 

DESIGBIT 

1520 

REF 

55 

LAST 

5 32 

25,2225 

7 0110 

0 

MASK 

c AO MODES 

1521 

25,2226 

0 0006 

1 

FXT  END 

1522 

RFF 

1 

25 , 2227 

1 3555 

0 

BZF 

f GOOD END 

1523 

REF 

? 

LAST 

511 

25 ,223  0 

0 2602 

J 

TC 

S TOES  I G 

1524 

REF 

2 

LAST 

282 

7740 

-45  DE 

= 

13,14,15 

1525 

25,2231 

67070 

1 

-50DEGSR 

DEC 

-.27778 

1526 

25,2232 

61615 

— r n n f r;  5 r 

DEC 

— 44  444 

1527 

REF 

56 

LAST 

532 

25,2233 

22  110 

1 

P MODI  MV 

LXCH 

) ADMODES 

1528 

REF 

10 

LAST 

532 

25,2234 

3 4740 

0 

CAF 

ANTENBIT 

1529 

25,2235 

0 0006 

1 

EXTEND 

lr 

REF 

11 

LAST 

525 

25 , 2236 

06  001 

0 

RXOR 

L CHAIN 

1531 

REF 

57 

LAST 

5 3 2 

25,2237 

54  1 10 

0 

TS 

RADMODES 

15  3? 

REF 

158 

LAST 

530 

25,2240 

0 0002 

0 

TC 

Q 

2" 


> 
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GO  TO  T = -130  (-50). 


GO  TP  T = -160  (+0) . 


GO  TO  S = -90  ( +0 ) . 


END  OF  PEMODE. 


W Ac  REMQDE  CALLED  DURING  DESIGNATE? 

{ B I T 1 0 RADMODES  = 1 ) 

NO-RE TUP  N TO  C ALL  E ° WAITING  IN  RADSTALL 
YES  - RETURN  TO  DESIGNATE 


INVERT  the  -'ODE  STATUS 


GAP:  ASSEMBLE  REVISION  0(3 1 UF  AGC  PRuGRAM  AP11R0PE  BY  EY1.ES 

L P20-D25 

P 1 53 3 PROGRAM  NAMES.  RRTOMY,  RRSONLY 
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R If  34 
R 153  5 
R 1536 
o 1537 
R 1 53  8 
R 1539 
R 1540 
r i;  i 
R 1542 
R 1543 
R 1544 
R 1 545 
R i 

o 1547 
R 1 5 4 3 


FUNC7 I GNAL  OESCRIPTIGN_ 

PRTONLY  AND  RRSONLY  A" E SUBROUTINES  FDR  DOING  SINGLE  AXIS 

RR  MANEUVERS  Fnt.  P EMODE  AND  'EPOSITION.  IT  DRIVES  TL 

WITH!!  1 DEGREE.  IN  ITT  ALLY,  AT  P R 1 A X 2 , THE  PE^ODE  AND  REPOSITION* 

FLAGS  (RADMODES  BITS  14,  11)  ARE  CHECKED.  IF  BOTH  EXIST, 

THE  PROGRAM  EXITS  TO  REPOSRPT  (SEE  OORREPOS).  THIS  INDICATES 
THAT  SC ME  ONE  POSSIBLY  .EOUESTEQ  A DESIGNATE  ( RADMODES  BIT  10) 

WHICH  REQUIRES  A REMODE  (RADMODES  BIT  14)  AND  THAT  a 
DEPOSITION  IS  TN  P - OGRES S (RADMODES  BIT  11).  IE  NONE 

or  only  one  oh  the  flags-  exist,  remode  or  reposition,  magsub 

IS  CALLED  TO  SFE  IF  THE  APPROPRIATE  ANGLE  IS  WITHIN  1 DEGREE.  IF  YES, 
CONTROL  RETURNS  TO  THE  CALLING  ROUTINE.  IF  NOT,  CONTROL  IS 
TRANSFERRED  TO  RROUT  FUR  SINGLE  AXIS  MANEUVERS  WITH  THE  OTHER 
ANGLE  SET  = 0.  FOLLOWING  A .5  SECOND  WAIT,  THE  ABOVE  PROCEDURE  IS 
REPEATED. 


R154°  CALLING  SEQUENCE:  L-l  CAE  * ANGLE  * (DESI  ED  ANGLE  SCALED  PI) 
R 1550  L TC  RRTPNLY  (TRUNNION  ONLY) 

R 15  51  r.lSONLY  (SHAFT  ONLY) 

R 1552  PFTONLY  IS  CALLED  BY  PREP0S29; 

R 1553  P TfMLY  AND  RR$ONLY  A - !-  CALLED  BY  DO"'  EPS  AND  PEMODE 

R 1 r' 5 4 ERASABLE  IN  IT  I AL  I ZAT  ICN  REQUIRED: 

R 1 5 5 5 CIA)  = DESIRED  ANGLE,  R ADMODES 

R 1556  SUB'  PUT  IDES  CALLED 

R 1557  FIXDELAY,  REPOSRPT,  MAGSUB,  PR  n 


R 1558 

F i 

JOBS  OR  TASKS  INITIATED 

NONE 

R 1560 

p 1561 

A 1 ARMS.  NOME 

EX  T T_  ’E  POS  - PT  ( i ' OF  AND  DEPOSITION 

FLAGS  PRESENT  - 

P ADMODES 

R 1562 

R 1563 

BITS  14,  11 ) 

L+l  (ANGLE  WITHIN 

ONE  CEGTEF 

OP  RP.  OUT 

OF  AUTO 

MODE  ) 

1564 

P EF  2 LAST  106: 

2r  , 2241 

55 '3 16  0 

f f-  O I LY 

TS 

R DES 

156  5 

REF  115  LAST  '578 

25, 2242 

3 -755  1 

CAF 

ZERO 

1566 

REF  1 

2C  , 2 24  3 

1 2246  1 

TCF 

PPL  AX! 1 

1567 

REF  3 LAST  533 

25,2244 

55 ' 3 16  0 

RRSONLY 

TS 

R DES 

1568 

REF  64  LAST  527 

25,2245 

3 4753  1 

CAF 

ONE 

156  9 

R EF  1 

25,2246 

55 ' 3 1 7 1 

P R 1 A X I S 

TS 

R R INDEX 

157  0 
1571 

REF  4 LAST  528 

25,2247 

75,2250 

0 0006  1 

2 3 ' 3 15  1 

EXTEND 

QXCH 

RRRET 

1572 

REF  1 

25,225  1 

1 2254  1 

TCF 

RR1 AX? 

DESIRED  T RUN  ION  ANGLE. 


SHAFT  COMMANDS  ARF  UNRESOLVED  SINCE  THIS 
ROUTINE  ENTERED  ONLY  WHEN  T = 0 CT  160. 


GAP:  ASSEMBLE  REVISION  001  f IF  AGC  PRUGRAf  APURCPE  BY  EYLES 


L P20-P25 


1573 

15  7* 

REF 

7 

LAST 

529 

25.2252 

25.2253 

0 5221 
00062 

0 

0 

NXTf  R 1 A X 

TC 

DEC 

FIXDELAY 

50 

1575 

REF 

58 

LAST 

532 

25,2254 

4 0110 

0 

NR  1AX2 

CS 

r.  ADM  OD  ES 

1576 

REF 

2 

LAST 

290 

25,2255 

7 77  10 

1 

MASK 

PRI 022 

1677 

2 5 ,2256 

0 f 006 

1 

EXTEND 

1578 

REF 

1 

25,2257 

1 2144 

0 

BZF 

REPOSRPT 

157° 

REF 

4 

LAST 

533 

25,2260 

3 1316 

1 

CA 

ROES 

1 53C 

25,2261 

0 C006 

1 

EXTEND 

1 8 1 

REF 

2 

LAST 

533 

25, 2262 

5 13 17 

0 

INDEX 

P .'INDEX 

1582 

REF 

7 

LAST 

2C  ,2263 

20  03  5 

0 

MS  U 

CD'JT 

1583 

REF 

9 

LAST 

523 

25,2264 

54  061 

1 

TS 

I TEMPI 

1584 

25,2265 

0 0006 

1 

EXTEND 

l1-  5 

REF 

1 

25,2266 

7 2305 

1 

MP 

P<RSPGA  IN 

1586 

REF 

71 

LAST 

525 

25,2267 

54  001 

1 

TS 

L 

1587 

REF 

59 

LAST 

5 34 

25,2270 

3 C110 

1 

CA 

RADMODES 

1588 

REF 

3 

LAST 

184 

25,2271 

7 47  5 2 

1 

MASK 

AUTOMBIT 

1589 

REF 

10 

LAST 

5 34 

25 , 2272 

56  061 

0 

XCH 

I TEMPI 

15c0 

REF 

6 

LAST 

528 

25,2273 

0 4512 

0 

TC 

MAGSUB 

1591 

25,2274 

77644 

1 

DEC 

-.00555 

1592 

REF 

11 

LAST 

5 34 

25,2275 

1C  O'  1 

1 

CC  S 

I TEMPI 

1503 

REF 

5 

l AST 

5 33 

25,2276 

0 1315 

1 

TC 

9RRET 

1594 

REF 

3 

LAST 

534 

25,2277 

11 • 317 

1 

CCS 

RRINDEX 

1595 

25,2300 

1 2302 

0 

TC  F 

+ 2 

1596 

■ FF 

72 

LAST 

534 

25,2301 

56  C01 

0 

XCH 

L 

1597 

REF 

8 

LAST 

508 

26,2302 

53‘ 1 10 

1 

DXCH 

TANG 

159  8 

REF 

1 

25,2303 

0 2306 

0 

TC 

RPOUT 

1.599 

REF 

1 

25, 2304 

rr  c 

M VT DC  1 AY 

1-  6.  4 ^ A. 

1 

i r 

\ A | 1 1 f-\  A 

1600 

25,2305 

22715 

1 

RRSPG AIN 

DEC 

.59062 
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2 SAMPLES  PFP  SECOND. 

IF  SOMEONE  F EQU ESTES  AS  DESIGNATE  WHICH 
REQUIRES  A REMODF  AND  A REPOSITION  IS  IN 
PROGRESS,  INTERRUPT  IT  AND  START  THE 
PEMODE  IMMEDIATELY. 


SAVE  ERR  OP  SIGNAL. 

TRIES  TO  NULL  .7  OF  ERROR  OVER  NEXT  .5 


STOPE  RP-OUT-OF-AUTO-MODE  BIT. 

SEE  IF  WITHIN  ONE  DEGREE. 

SCALED  IN  HALF-REVS. 

NO.  IF  RR  OUT  OF  AUTO  MODE,  EXIT. 
RETURN  TP  CALLER. 

COMMAND  FOP  OTHER  AXIS  IS  ZERO. 
SETTING  A TO  0. 


COME  BACK  IN  .5  SECONDS. 


NUL  L 


7 ERROR  IN  .5  SEC 


GAP:  ASSEMBLE  RE  V I SIGN  001  OF  AGC  PROGRAM  AP11R0PE  BY  EYLES 


L R20-P25 


P 1601 


PROGRAM  NAME 


P.ROUT 


R 1603  FUNCTIONAL  OE SCRIPT  I CN_ 

P 1604  RROUT  RECEIVES  RR  GYRO  COMMANDS  IN  TANG,  TANG  + 1 IN  RR 

R 1605  ERROR  COUNTER  SCALING.  RROUT  THEN  LIMITS  THEM  AND 

I I COMMAND  TO  THE  C DO  T!  (JOS'  HE  E I ‘ 

R I607  TO  THE  DESIRED  VALUES.  INITIALLY  MAGSUB  CHECKS  THE  MAGNITUDE  OF 
R 1608  THE  COMMAND  (SHAFT  ON  1ST  PASS)  TC  SEE  IF  II  IS  G EATE  THAN 
R L60C|  334  PULSES.  IE  NOT,  CONTROL  IS  TRANSFERRED  TO  RR0U1  L I M TO 

R1610  LIMIT  THE  COMMAND  TO  +384  OR  -384  PULSES.  THE  DIFFERENCE  IS 

Rlfcll  THEN  CALCULATED  R ET  HE  EM  THE  OESI;  £D  STATE  AND  THE  PRESENT  STATE 

R 1612  rHE  !•£  -■  'R  DHJMTE  AS  ECU  DED  TO  LASTYCMD  AND  LASTXC«D. 

R 161 3 THE  RESULT  IS  STORED  IN  OPTXCMD  (1ST  PASS)  AND  OPTYCMD  (2ND 

R 1614  PASS).  F0L1  IWII  5 THE  SECOND  PASS,  FOP  THE  TRUNNION  COMMAND,  THE 

R 161 5 'CDi  I AND  OCDUS  LTU  COUNTER  DRIVE  BITS  (CHAN  14  BITS  12,  11) 

R 1616  ARE  SET.  THIS  PROGRAM  TEEN  EXITS  TO  THE  CALLING  PROGRAM. 


OF 


RI61T7  CAUIMG  SEQUENCE: 

0 161 8 L TC  RROUT  (WITH  PUPT  INHIBITED)  RROUT  IS  CALLED  BY 
R 16 19  RETOOL Y,  RRSONLY,  AND  DCDES 

R 162 n ERASABLE  INITIALIZATION  REQUIRED: 

R 1621  TANG,  TANG  +1  ( DES IR ED  COMMANDS ) , LASTYCMD,  L ASTXCMD 
P 1622  (lc^  PASS  = oh  F ot  Cf  U"  VR-  ENABLE  SET  (CHAN  12  BIT  2). 

P 1623  SUBROUTINES  CALLED. 

R lo24  MAGSUB 


R 162  5 

J OB  r 

OP 

TASKS 

INITIATED 

o 1626 

MflMP 

R 1627 

ALARMS. 

NONE 

P 1628 

EXIT 

1+1  (ALWAYS) 

1630 

REF 

159 

LAST 

SB? 

25 , 2306 

22  002 

0 

RROUT 

LXCH 

Q 

ZJ  c 

1631 

REF 

65 

LAST 

533 

25,2307 

3 4753 

1 

CAE 

ONE 

1632 

REF 

5 

LAST 

523 

25,2310 

54  062 

1 

RROUT  2 

TS 

I TEMP2 

16  33 

REF 

177 

LAST 

532 

25,2311 

50  000 

1 

INDEX 

A 

1634 

REF 

9 

1 AST 

534 

2' , 2312 

3 1107 

0 

CA 

TANG 

1635 

REF 

1? 

LAST 

5 34 

2C  , 2313 

5 4 0 61 

1 

TS 

1 TEMPI 

1636 

REF 

7 

L A ST 

5 34 

25,2314 

0 4512 

0 

TC 

MAGSUB 

1637 

25,2315 

77177 

0 

-F:RL  IMIT 

DEC 

-384 

1638 

REF 

1 

25,2316 

1 2335 

1 

TCF 

ROUT L I M 

1 6 3 c 

REF 

13 

LAST 

535 

25,2317 

3 0061 

0 

SETS  r-  CIS 

CA 

I TEMPI 

16  4 n 

RFF 

6 

LAST 

53  5 

25,2320 

50  062 

0 

INDEX 

ITFMP2 

1641 

REF 

8 

LAST 

530 

25,2321 

56  112 

0 

XCH 

i AS  Y(  ID 

1642 

25,2322 

4 0000 

0 

COM 

15  DEC.  2,1970 

LEMP20S  .127 

PAGE 

535 

USER • S PAGE 

NO. 

44 

E7  S3 

RROR  COUNTER  SCALING. 

RROUT  L 

I M ITS 

THEM 

SIRED  VALUES.  RUPT  MUST  BE  INHIBITED. 

SAVE  PETUFM. 

LOOP  TWICE. 


SAVE  SIGN  OF  COMMAND 
SEE  IF  WIThIN  LMITS. 
LIMIT  COMMAND  TO  MAG 


FOR  LIMITING. 


OF  384. 


COUNT  OUT  DIFFERENCE  BETWEEN  DESIRED 
STATE  AMD  PRESENT  STATE  AS  RECORDED  IN 
LASTYCMD  AND  LAST  XCMD 


GAP:  ASSEMBLE  s.E  VISION  001  l:F  AGO  PLUG'  AM  AP11RCPE  BY  EYLES 


L P20-P25 


1643 

REF 

14 

L AST 

535 

25 ,232  3 

6 0061 

0 

AD 

ITEMP1 

1644 

REF 

9 

LAST 

2 31 

25,2324 

6 4754 

0 

AD 

NEGO 

1645 

REF 

7 

LAST 

535 

25,2325 

50  C62 

0 

INDEX 

ITEMP2 

1646 

REF 

1 

25,2326 

54  05  3 

0 

TS 

CDUTCMD 

1647 

RFF 

3 

LAST 

536 

24 , 73 ?7 

10  062 

1 

CCS 

I TEMP2 

1648 

REF 

1 

25,2330 

1 2310 

0 

TCF 

RROUT  2 

1644 

REF 

1 

25,2331 

3 5C20 

0 

CAF 

PR  106 

1650 

25,2332 

0 00  06 

1 

EXTEND 

16^1 

F EF 

7 

LAST 

2n  2 

25  ,2333 

05  014 

1 

WOR 

CHAM 14 

1652 

c,  EF 

73 

LAST 

F 34 

2 F , 23  34 

0 C001 

0 

TC 

L 

1653 

REF 

15 

LAST 

536 

25,2335 

10  061 

1 

RROUTl IM  CCS 

ITEMP1 

1654 

REF 

1 

25,2336 

4 231  ; 

0 

CS 

- LIMIT 

1655 

25,2337 

1 2341 

1 

TCF 

+ 2 

1656 

REF 

2 

LAST 

536 

25,2340 

3 2315 

1 

CA 

— RK LIMIT 

1657 

P EF 

16 

1 ART 

C ^ , 

25,2341 

54  061 

T S 

I T E v P 1 

1658 

REF 

1 

25,2342 

1 2320 

0 

TCF 

SETRRCTR 
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PREVENT  +0  IN  OUTCOUNTEP. 

..z 

PROCESS  BOTH  INPUTS. 

ENABLE  COUNTERS. 

■ ..£ 

PUT  01  CDU  DF  IVES  S AND  T 
RETURN. 

LIMIT  COMMAND  TO  ARS  VAL  OF  384. 


ASSEMBLE  REVISION  OC1  OF  AGO  PROG  AM  AP11RGPE  BY  EYLES 


GAP  : 


L 

P20- 

d?5 

P 1659 

1 6fe0 
1661 

n rr 

1 

60 

ROUTI NE  TO 

ZFRO  THE 

2 r:  ,2343 
25,2344 

' tr 

REF 

LAST 

534 

1662 

REF 

173 

L A c T 

535 

25,234 c 

166  3 

REF 

1 

26,23'  6 

RR  C DUS  AND  DETERMINE  THE  ANTENNA 


3 2372 

o rr  zero 

CrtF 

BIT  11  + 1 

7 0110 

0 

MASK 

RADMODE S 

10  000 

0 

CCS 

A 

1 3 5 30 

0 

TC  F 

f:  ADN°OP 

1664 

1665 

1666 
1667 

UAC 

REF 

“ E F 
REF 

CLP 

A 

61 

5 

f,  o 

LAST 

LAST 

LAST 

1 ACT 

527 

6 37 
537 

5 37 

25,2347 
25,2350 
25,236 ] 
25,2352 

0 0004  ( 
4 47  37  ; 
7 C110  < 
6 4737  ( 
64  110  ( 

LCD 

kli 

O c. 

L A o ’ 

C.  - $ c.  D ^ j 

1669 

REF 

66 

LAST 

535 

25,2354 

3 4753  : 

1670 

REF 

20 

LAST 

490 

25,2355 

0 5203  l 

1671 

°EF 

22 

LAST 

526 

E 7 , 1456 

1672 

L E F 

1 

25,2356 

02370  : 

1672 

REF 

1 

2 c- , 2 3 5 7 

52067  : 

INHINT 

CS  KCDUGBIT 

MASK  RA.DMODES 

AD  RCDUOB  II 

ts  padmtoes 


CAF  ONE 

TC  WAITLIST 

EBANK=  LOSCrUMT 
2C  ADR  K RZ  2 


1673 

REF 

6 3 

LAST 

537 

25,2360 

1674 

REF 

4. 

LAS1 

534 

25,2361 

1675 

- FF 

179 

l AST 

537 

25,2362 

1 

PFF 

1 

25,236? 

1677 

REF 

21 

LAST 

388 

25,2364 

16 

25,2365 

1679 

25,2366 

1 ■ 

REF 

3 

LAST 

328 

25,2367 

1681 

8 EF 

2 

LAST 

526 

25,2370 

16  Ft  2 

R FF 

1 

25,2371 

1683  25,2372 


4 0110 

0 

CS 

P ADMCjDES 

7 4752 

1 

MASK 

AUTOMBIT 

10  000 

0 

CCS 

A 

1 2366 

1 

TCF 

F '-ADBACK 

0 5567 

0 

TC 

ALARM 

00510 

0 

OCT 

510 

0 0003 

1 

RO  ADBACK 

REL INT 

1 46  31 

0 

TCF 

SWRETURN 

0 20  7 1 

0 

RR  12 

TC 

RKZEROSB 

1 3546 

02001 

1 

1 

TOP 

p M DR  A H A P 

BITH  + I 

OCT 

L 'UinWi/H  r 

0200  1 
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SEE  IF  MONITOR  REPOSITION  OR  NOT  IN  AUTO 
IF  SO,  DQNT  PE-ZERO  CDUS. 

(IMMEDIATE  TASK  TO  PGOODEND) . 

SET  FLAG  TO  SHOW  ZEROING  IN  PROOF  ESS. 


SEE  IF  IN  AUTO  MODE. 


AUTO  DISCRETE  NOT  PRESENT  - TRYING 


COMMON  TO  TURNON  AND  RRZERC. 


GAP:  ASSEMBLE  REVISION  001  OF  AuG  POO&rAM  AP11RDPE  BY  EYL  ES 

L P20-P25 

P 1684  PPOGRAM  N AME_  RRDESSM 
R 1 6 £ 6 EUNCTI  A!  DESCRIPTION. 

R 16°  7 THIS  INTERPRET  I V F ROlrlNE  ..III  DESIGNATE,  IF  DESIRED  ANGLES  ARE 

R 1688  WITHIN  THE  LIMITS  OF  E !THEP  MODE,  TO  A LINE-CF  SIGHT  ILLS)  VECTOR 

R 1 6 H 1 ( H A l F - ITS  K'  -oi  WITH  ES^EC!  TO  THE  STABLE  MEMBER  PRESENT 

R 1690  OR  I ENT  ATI  ON.  INITIALLY  THE  T MU  CDU:S  ARE  READ  AND  CONTROL 

R 1 i ED  ID  SMNB  TO  TRANSFORM  THE  LOS  VECTOi  FROM  STABLE 

R 1692  MEMBER  TO  NAVIGATION  BASE  COORDINATES  (SEE  ST  G MEMO  --699) 

R 1 69 8 7TANGLES  IS  THEM  CALLED  f 0 CALCULATE  THE  R f G I M8AL  ANGLE  9 , 

P 1694  TRUNNION  AND  SHAFT,  F-  BOTH  THE  PRESENT  AND  ALTERNATE  MODE. 

R U- RK!  IMCHK  I CAL!  r 0 0 -Ff  IF  the  ANGLES  CALCULATE®  FOP  THE 

R 1696  P ESENT  MODE  AS  E WITHIN  LIMITS.  IE  WITHIN  LIMITS,  THE  RETURN 
R 1697  LOCATION  IS  INCREMENTED,  INASMUCH  AS  NO  VEHICLE  MANEUVER  IS 
R 1698  n EQUIP ED,  B E FORE  E X I T I MG  TU  ST  ART DES . IF  NOT  WITHIN  LIMITS  OF  THE 

R 1699  CURRENT  MODE,  T1  YS WS  IS  CALLED.  FOLLOWING  INVERTING  OF  THE  PF 
R 1700  ANTENNA  MODE  FLAG  (RAD MOOES  BIT  12),  RRLIMCHK  IS  CALLED 
R 1 70 1 TO  SEE  IF  THE  ANGLES  CALCULATED  FOP  THE  ALTP- NATE  MODE  ARE  WITHIN 

R 1702  LIMITS.  IF  YES,  THE  RR  ANTENNA  MODE  FLAG  IS  AGAIN  INVERTED, 

R1703  THE  REMODE  FLAG  (RADMODES  BIT  14)  SET,  AND  the  RETURN  LOCATION 
R 1704  I C I fJ,  TC  INDICATE  VEHICLE  MANEUVER  IS  REQUIRED , BEFORE 
R 1706  EXITING  TO  STAf  TDES.  IF  THESE  ANGLES  ARE  NOT  WITHIN  LIMITS 
R 170  n OF  THE  AL  TEr  NA T E *midE,  tHE  r ANTENNA  MODE  FLAG  ('AOMOpS 

R 1 7o~  r ) ■ i2)  is  tnvf  ted  Seep  e ^f-turning  directly  to  the  calling  program 

R 1 708  TO  INDICATE  THAT  A VEHICLE  MANEUVER  IS  REQUIRED. 

R 1 7 0 9 CALI  ING  SEQUENCE: 

r 1710  L STCALL  PrTA'  GET  (LOS  HALF-UNIT  VECTfi  lw  SM  Cf  OIMATESi 
R1711  L + l RROESSM 

F 1712  L.+2  BASIC  ( VF  'ICl  E vniVE  REQUIRED) 

R 17 1 3 L + 3 BASIC  (NO  VEHICLE  MANEUVER  REQUIRED) 

R 1714  E ASABLE  INITIALIZATION  REQUIRED: 

R 171  5 D'TA'GET,  F A DM  Op  S 

R 1 7 1 6 SUBROUTINES  C A I L FD_ 

R 1717  RE'ADCDUS,  SMNB  , T ANGLES,  F r L I MCHK  , TRYSWS  (ACTUALLY 


R 17  1 8 

PART  OF) , RMODINV 

R 1719 

R 1720 

JQBC  OR  TAStfS  INI'  I ATE  0 

NOME 

R 1721 

ALARMS.  NONE 

R 1722 

R 172  3 

R 1 724 

EXIT.  L+2  (NEITHER  SET  OF  ANGLES  ARE  W 
ST  A!  TDES  (DESIGNATE  P'SS'BLE  AT  PRESENT 
TO  L+3  FROM  ST ARTDF S ) 

ITHIN  LIMITS  OF  RELATED  MODE) 
VEHICLE  ATT  I T UOE—  R E T U R N S 

1726 

1727 

25,2373 

REF  4 LAST  271  25,2374 

43020  1 

01 1 13  0 

RRDESSM 

STQ 

CLEAR 

DESFET 

15  DEC.  2,1970  LEMP20S  .127  PAGE 
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R (HALF-UNIT)  IN  RRTARGET.  PEMODES  I 


538 


F 


CAN  BE  DONE  IN  PRESENT  VEH  ATTITUDE 


GAP:  ASSEMBLE  REVISION  001  OF  AGC  PROGRAM  AP11R0PE  BV  EVLES 

L P20-P25 


172  F 

REF 

1 

25,2375 

00271 

0 

1729 

25,2376 

77624 

1 

1730 

REF 

2 

LAST 

/.a  7 

25,2377 

47  53  7 

0 

*TOi 

1731 

25,2400 

45175 

0 

1732 

REF 

4 

LAST 

513 

25,2401 

0 1102 

0 

1733 

PEF 

2 

LAST 

487 

25,2402 

47671 

1 

CALL 


VLOAO 


1734  25,24^3  77624  1 CALL 

1735  REF  1 25,2404  26133  1 

1736  2 5 , 24C  5 77776  1 EXIT 


1737 
1 7 3 8 
1739 
1 7 ( 
174  l 
1742 
174? 

1744 

1745 

1746 

1747 


REF  3 
PEF  4 

REF  6 
REF  1 
REF  5 
RFF  4 

REF  1 
REF  1 


LAST  513 
LAST  323 

LAST  ‘3-’ 

LAST  507 
LAST  507 


2= , 2406 
25,2407 

25.2410 

25.241 1 
2^,2412 
25,2413 
2^,2414 

25.2415 

25.2416 

25.2417 
25,2420 


0 C004  0 
0 4523  1 
01107  0 
0 2414  1 
25'  113  0 

0 2432  0 
4 0104  0 
7 ‘ 744  0 
0 0006  1 

1 2456  0 
0 2461  0 


OKDESSM 


INHINT 

TC 

ADRES 

TC 

INGR 

TC 

CS 

MASK 

EXTEND 

BZF 

TC 


1748 
17  ' 
17  >( 
175  1 
1752 
17c? 

1754 

1755 
17 


REF  6 LAST 
REF  5 LAST 

REF  2 LAST 
r-EF  37  I.  AST 
RFF  o LAST 
REF  180  LAST 
REF  1 
REF  87  LAST 


539  25,2421  4 0104  0 LUMDESCH  CS 


539  25,2422  7 4744  0 MASK 

2 5,2,42  3 Q 0006  1 EXTEND 

539  25,2424  1 2456  0 BZF 

519  25,2425  3 0074  1 CA 

2K  ,2426  7 *‘745  1 MASK 

537  25,2427  10  000  0 CCS 

25,2430  0 2471  1 TC 

519  25,2431  1 5155  1 TCF 


RPNBSW 

C OUT  RIG 
CALL 

RRTARG5T 

4SMN8* 


RRANGL E S 


RRLIMCHK 
MODE  A 

+ 3 

DESF  ET 
S T Ar>  T DE  $ 
FL  AGWJ’DR 
SURFFBTT 

NGRDSTAL 

TRYSWS 


FL AGWRDF 
SURFF8IT 

MOODS TAL 
STATE 
R NOV  Z 8 I T 
A 

NGDESSM 

END0FUQ6 
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COMPUTES  SINES  AND  COSINES,  ORDER  Y Z X 
LOAD  VECTOR  AND  CALL  TRANSFORMATION 

GET  RF  GIM0AI  ANGLES  IN  PRESENT  AND 
ALTERNATE  MODE. 


CONFIGURATION  FOP.  CURRENT  MODE. 

NOT  IN  CURRENT  MODE 

INCREMENT  SAYS  NO  VEHICLE  MANEUVER  REQ. 
SHOW  DESIGNATE  REQUIRED 

CHECK  IF  ON  LUNAR  SURFACE  ( SURFFL  AG  = P22F 
SR ANCH— Y ES- CANNOT  DESIGNATE  IN  MC  DE  2 


OVERFLOW  RETURN  FPOM  RRANGL FS 
CHECK  IF  ON  LUNAR  SUPFACE 

BRANCH-YES-FETULN  T0  CALLET  - ALARM  521 


TEST  RNDVZFLG. 

NOT  ON  MOCN-CALL  FOR  ATTITUDE  MANEUVER 
...BUT  NOT  IN  R29. 


GAP:  ASSEMBLE  REVISION  ool  OF  AGC  PROGRAM  API  1RUPE  8V  fe.YLES 


L 

P 1757 

R 175  S 
D 1761 
R 176  ? 

0 1765 
P 1767 
R 1768 
R 1 7 6 9 
R 1770 
R 1771 
R 1772 
R 1773 
R 1774 
R 1775 
R 177' 
R 1777 
P 1778 
R 177° 
R 1780 
R17B] 
R 1732 
R 1783 

R 1 7 

1 1 ! 


P20-P25 

PROGRA  NAME.  STARTCES 
FUNCI. ICNAL  DESCRIPTION. 

STAR  TOES  IS  ENTERED  WHEN  WE  APE  READY  TO  BEGIN  DESIGNATION. 

BIT  14  OF  RADMODES  IS  ALREADY  S F T IF  A REMODF  IS  REQUIRED. 

AT  THIS  TIME,  THE  ANTENNA"  MAY  BE  IN  A R EPOS  IT  ION 
OPERATION.  IN  THIS  CASE,  IF  A REMODE  IS  REQUIRED  IT  MAY  HAVE 
ALREADY  BEGUN  BUT  in  AMY  CASE  THE  REPOSITION  WILL  BE  INTERRUPTED 
OTHERWISE,  THE  ?E POSITION  WILL  BE  COMPLETED  BEFORE  2-AXIS 
DESIGNATION  BEGINS.  INITIALLY  DESCOUNT  IS  SET  = 60  TO  INDICATE 
THAT  30  SECONDS  WILL  BE  ALI  OWED  FOP,  THE  F-  DATA  GOOD  INBIT 
(CHAT  33  BIT  A I F I.  CK-ru  IS  DFS1  ED  (STATF  BIT  5).  BIT  10 
OF  RADMODES  IS  SET  TO  SHOW  THAT  A OESIGNATE  IS  REQUIRED. 

THE  REPOSITin\i  FLAG  (RADMODES  BIT  II)  IS  CHECKED.  IF  SET, 

THE  PROGRAM  EXITS  TC  L+3  OF  THE  CALLING  PROGRAM  (SEE  RRDESSM 
AMD  RRDESN8).  THE  PROGRAM  WILL  BEGIN  DESIGNAT 


COUNTERS.  A 20  MM  !,  I SEC  O'O  WAITLIST* 


CALLING  SEQUENCE 


. TO 

THE 

DESIRED 

WAS 

TRR ECR 

IS  C Af  LED 

i 12 

BIT 

2 ) 

HE 

OF 

THE 

ERROR 

EOF 

BEGDES 

ING 

PROGRAM. 

TS. 

P 1786  ERASABLE  INITIAL  1 ZAT ICN  REQUIRED: 
R1777  AD'"'UE  , (SEP  D OF  S'  ) 

P 1788  SUBROUTINES  CALLED_ 

R 173°  SFTRRFCR,  WAITLIST 


P 1790  JOBS  OF  TASKS  INITJAT8D 

R 179 1 BEGDES 


R 1 7 9 2 ALARMS.  NONE 


P 1793 

EXIT 

L + 3 OF 

CAL  LING 

■ PROGRAM 

(SEE  ; 70 ESS  • ) 

R 1794 

L + 2 

OF 

CALL  ING 

PROGRAM  (SEE  RRDESN8) 

1790 

REF 

6 

LAST 

539 

25,2432 

25*113 

0 STAR  TOES 

I NCR 

DESRET 

1796 

REF 

64 

LAST 

537 

25 , 2433 

4 0110 

0 

CS 

RADMODES 

1797 

REF 

3 

LAST 

532 

25,2434 

7 4742 

0 

MASK 

DESIGBIT 

1798 

REF 

65 

LAST 

540 

25 , 2435 

26  UQ 

0 

ADS 

K ADKUDES 

1799 

REF 

3 

LAST 

630 

?c , 2436 

7 4 74! 

0 

MASK 

REP0SB1T 

1800 

REF 

131 

LAST 

5 3 9 

25 ,243  7 

10  COO 

0 

CCS 

A 

1801 

P EF 

l 

25,2440 

t 2446 

1 

TCP 

DESRETRM 

1802 

REF 

2 

LAST 

529 

25,2441 

0 2156 

1 

TC 

SETRRECR 
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540 

USER'S  PAGE 

NO.  49 

E7  S3 

STORED  AS  A HALF- 

-UNIT  VEC 

TOR 

IN  RRT 

ARGET 

CKON  IS  DESIRED. 

B IT1 4 OF 

F.ADMODES 

IS 

OR  REPOSITION  OPERATION.  IN  THIS 
THE  REPOSITION  WILL  BE  TNTERp  UPTED. 
GINS. 


SEE  IF  REPOS 
ECTP  ALREADY 
SET  UP  ERR  OP- 


TIONING IN  PROGRESS. 
SET  UP. 

COUNTERS . 


GAP:  ASSEMBLE  REVISION  001  Qf  AGO  PROGRAM  AP11R0PE  8V  EYLES 


L P20-P25 


1603 

REF 

34 

LAST 

506 

25,2442 

1804 

REF 

21 

LAST 

5 37 

25,2443 

1805 

REF 

23 

LAST 

537 

E 7 , 1456 

1806 

1806 

SEP 

3 

LAST 

530 

25,2444 

25,24^5 

3 <-752  0 CAF  TWO 

0 5203  0 TC  WAITLIST 

EBANK=  LGSCOUNT 

02573  I 2CA0R  BEGDES 

52067  1 


] 

1808 
1805 
1810 
181  1 
181  2 

1813 

1814 


REF  3 LAST  516 

REF  1 

REF  88  I AST  5 30 

RFF  7 LAST  540 

REF  8 LAST  541 

REF  9 LAST  519 


25.2446 

25.2447 
2 5,245  0 

25.2451 

25.2452 
2 5 , 2 4 c 3 

25.2454 

25.2455 


3 1306  0 
0 0006  1 
1 2452  1 
0 5155  0 

0 0003  1 
25’ 1130 
3 1113  0 

1 4640  0 


DESRETRN  CA  PADCADR 

EXTEND 

BZF  DESRTRN 

TC  ENOOF JOB 

DESRTRN  RELINT 

1 NCR  DESRET 

CA  DESRET 

TCF  BANK JUMP 


1815  REF  116  LAST  533  25,2455  3 5755  1 Nl  PDSTAt  CAF  ZERO 

1816  0 EF  4 LAST  541  25,2^57  55*3  06  1 TS  RAOCADR 

1817  REF  2 LAST  541  25,2460  1 2452  1 TCF  DESRTRN 


3=15  DEC 


2,1970 


LEMP20S  .127  PAGE 


541 


USER'S  PAGE  MO.  50 


FIRST  PASS  THRU  DESIGNATE 

YES  SET  EXIT 
NO 


E7  S3 


ZERO  PADCACr  TO  WIPE  OUT  ANYONE 
WAITING  IN  RADSTALL  SINCE  WE  AD E NOW 
RETURNING  TO  P20  AND  MAY  DO  MEW  RADSTALL 


GAP:  ASSEMBLE  . EVISJON  001  ,F  AGO  PPUGk  AM  AP11F0PE  BY  EYLES 


L P20-P25 

P181P  SEE  IF  k ' ' 0 E S S M CAL.  BE  ACCOMPLISHED  AFTER  A REMODE. 


1819 

REF 

2 

LAST 

5 32 

25,246 1 

0 22  33 

1 

Tl  YSLS 

TC 

RMOQINV 

1820 

REF 

4 

LAST 

539 

23,2462 

0 4523 

1 

TC 

KRL IMCHK 

182  1 

REF 

4 

LAST 

323 

28 , 2463 

0 L 1 1 1 

1 

ADR  ES 

MCDEB 

182? 

?FF 

2 

LAST 

538 

28,2464. 

1 2471 

0 

TC  F 

NODESSM 

1823 

REF 

3 

LAST 

542 

25,2465 

0 2233 

1 

TC 

rmodinv 

1824 

REF 

2 

LAST 

532 

25,2466 

3 4736 

1 

CAF 

REMCDBIT 

1828 

REF 

66 

LAST 

540 

25,2467 

2d  110 

0 

ADS 

; AD MODES 

1624 

REF 

1 

25,2470 

1 2412 

0 

TCF 

OKOESSM 

1 827 

REF 

4 

LAST 

542 

25,2471 

0 2233 

1 

NODESSM 

TC 

RMODINV 

I 

REF 

,9. 

LAST 

T 1 

25,2472 

25' 1 13 

0 

I NCR 

DESK ET 

1828 

REF 

3 

LAST 

539 

25,2473 

1 2456 

0 

TCF 

NORDSTAL 

1 83C 

25,2474 

0 00  7 4 

1 

M AXTRYS 

DEC 

60 
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(NOTE  RIJPT  INHIBIT  I 
TRY  DIFFERENT  MODE. 

VEHICLE  MANEUVER  REQUIRED. 

RESET  BIT  12 

SET  FLAG  FOR  lEMODE. 


RE-INVERT  MODE  AND  RETURN 
TO  CALLER  +2 


GAP: 

L 

P1831 

R 183  3 

1836 

18  3 5 

1836 

183? 

1838 

1839 

1840 

1861 

1 

1843 

1846 

1845 

1846 

1847 

1848 

I860 

1350 

1851 

1852 

185  3 

1854 

1855 

1856 

1857 

185  8 

16  59 

I860 

1861 

1862 

1863 

1866 

186  5 

1866 

186  7 

1868 

1 8 • ' 

1 67f 

1871 

1872 
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DESIGNATE  To  SPECIFIC  R P GIMBAL  ANGLES  (INDEPENDENT  OF  VEHICLE  MOTION).  ENTER  WI^H  DESIRED  ANGLES  IN 
TANG  AND  TANG  +1 . 


■■  FF  6 LAST  517  2 5, 267 c 0 4045  1 RRDESNB  TC  MAKECADR 

REF  10  LAST  542  25,2476  55*113  1 TS  DESPET 

RESET  FLAG  TP  PREVENT  DODES  FROM  GOING 
BACK  TO  R2 1 

SET  TIME  LIMIT  COUNTER 
FOR  DESIGNATE 
SEE  IF  CURRENT  MODE  OK. 

DO  SPECIAL  V41  LIMIT  CHECK 

SEE  IF  IN  OTHER  MODE. 


26,2607  o 0003  1 OKDESNB  RELINT 
25,2510  0 0006  1 EXTEND 


REF 

11 

LAST 

543 

25,2*1  1 

3 

1110 

0 

OCA 

TANG 

REF 

6 

LAST 

326 

25,2512 

53 

' 753 

0 

DXCH 

TANGNB 

REF 

44 

LAST 

518 

25,251 3 

0 

6037 

0 

TC 

INTPRET 

REF 

RFF 

REF 

REF 

REF 

REF 

REF 


49 

6 

1 

2 

1 

10 

1 


LAST 

LAST 


519 

515 


I AST  509 


LAST  535 


25,2477 

26,2500 

) 

25,2602 
25,2503 
2*, 2504 

25.2505 

25.2506 


0 5516  0 
00041  1 
3 2474  1 
55*114  0 
0 0004  0 

0 2540  1 
01107  0 

1 2523  0 


TC 

ADRES 

CA 

TS 

IN  HI  NT 
TC 

ADRES 
TC  F 


DOWN FLAG 
LOSCMFLG 
MAXTRYS 
DESCOUNT 

PRLI MMB 

TANG 

TRYSWN 


REF 

REF 


LAST  C3C 


25.2514  77624  1 

25.2515  46041  0 

26,2514  01102  0 


CAl  L 

RRNB 

store  retarget 


GET  LOS  IN  NB  CHORDS, 


REF 


LAST 


139 


25,2517 

25,2520 


77414  0 
CC071  1 


SET  EXIT 

RRN8SW 


25,2521  0 0004  0 


INHINT 


PEE 

REF 

REF 

REF 

2 

5 

2 

12 

LAST 

LAST 

LAST 

LAST 

539 
56  2 
563 
563 

26,2522 
25,252  3 
25,2524 

2 5 .252  6 

1 2433 
0 22  33 
0 2540 
01107 

0 

1 

1 

0 

TRYSWN 

TC  F 

TC 

TC 

ADR  E S 

STA’’  TDE  S +1 

F.  MOD  I N V 

RRL I MNB 

T ANG 

SEE  IF  OTHER  MODE  WILL  DO. 

DO  SPECIAL  V41  LIMIT  CHECK 

REF 

1 

25,2526 

l 2533 

1 

TCF 

NCDESNB 

NOT  POSSIBLE. 

REF 

6 * 

LAST 

6^3 

26,2627 

0 22  3 3 

1 

TC 

RMUDINV 

REF 

3 

LAST 

54  2 

25,2530 

3 67  3 6 

1 

CAE 

REMODB IT 

CALL  FOP  REMODE. 

REF 

67 

LAST 

542 

25,253  1 

26  110 

0 

ADS 

RADMODES 

REF 

1 

25,2532 

1 2507 

0 

TCF 

OKDESNB 

REF 

7 

last 

543 

25,2533 

0 2233 

1 

NPDESMB 

TC 

RMUDINV 

■’ EINVEFT  MODE  BIT. 

REF 

2 2 

LAST 

537 

26,2534 

0 5567 

0 

TC 

ALARM 

BAD  INPUT  ANGLES. 

25 ,2535 

00502 

0 

OCT 

502 

REF 

9 

LAST 

516 

25,2536 

0 6011 

1 

TC 

CLRADMOD 

REF 

89 

I AST 

641 

25,2537 

0 5155 

0 

TC 

ENDOF JOB 

AVOID  533  ALARM. 

REF 

160 

LAST 

53  5 

25,2560 

50  0 02 

0 

! ' 1 1 

INDEX 

Q 

THIS  FLUTINE  IS  IDENTICAL  TO 

RRLIMCHK 

25,2541 

3 0000 

1 

CAE 

0 

EXCEPT  THAT  THE  MODE  1 SHAFT 

LOWER 

REF 

161 

LAST 

543 

25,2542 

24  002 

0 

I NCR 

Q 

LIMIT  IS  -85  INSTEAD  OF  -70 

DEGREES 

25,2543 

0 0006 

1 

EXT  END 

/ 


AP: 

ASSEMBLE  REVISION 

001 

LF  AGC  PROGRAM  API 1R0PE  BY 

EYLES 

P20- 

P25 

1873 

PEF 

182 

LAST 

54C 

25,2544 

5 0000 

1 

INDEX 

A 

1 

25,2545 

3 0001 

0 

DC  A 

0 

1875 

REF 

17 

LAST 

536 

25,2546 

5 2 0 62 

1 

DXCH 

I TEMPI 

1876 

REF 

162 

LAST 

54  3 

25,2547 

22  302 

0 

LXCH 

Q 

1877 

P FF 

1 1 

l AST 

532 

25,2550 

3 4740 

0 

CAF 

WTENBIT 

1878 

REF 

68 

LAST 

543 

25,2551 

7 0110 

0 

MASK 

RADMODES 

1879 

REF 

183 

LAST 

54^ 

25,2552 

10  COO 

0 

CCS 

A 

1880 

E F 

2 

LAST 

52  2 

25,2553 

1 4550 

1 

TCF 

MQDE2CHK 

1881 

REF- 

18 

LAST 

544 

25,2554 

3 0061 

0 

CA 

I TEMP  1 

188  2 

REF 

8 

LAST 

r , 3 

25 ,2555 

0 451  2 

0 

TC 

■I  AG  c U B 

1 

25,2586 

66161 

1 

DEC 

-.30555 

1884 

REF 

74 

LAST 

536 

25,2557 

0 0001 

0 

TC 

|_ 

1385 

REF 

9 

LAST 

536 

25,2560 

3 0062 

0 

CA 

I TEMP 2 

18  86 

25,2561 

0 0006 

1 

EXTEND 

1887 

REF 

I 

25,2562 

6 2570 

1 

BZME 

UEGS HAFT 

1 P R p, 

REF 

2 

! AST 

523 

25 , 256  3 

6 456? 

1 

AO 

6 . 50FGS 

188° 

RFF 

9 

LAST 

544 

25,2564 

0 6512 

0 

SHAFTL 

IM 

TC 

MAGSU8 

1F90 

25 ,2565 

64420 

0 

DEC 

- .35833 

189  1 

REF 

75 

LAST 

544 

25,2566 

0 COOT 

0 

TC. 

L 

18  9 2 

REF 

2 

LAST 

523 

25,2567 

0 4 560 

0 

TC 

3 R L ! M0K 

189  3 

REF 

1 

25,2570 

6 2 57  2 

0 

NEGSHAF  T 

AD 

20.5DEGS 

1 89  A 

REF 

I 

25,2571 

l 2564 

0 

TCF 

SHAFTL IM 

1895 

25,2572 

C3512 

1 

20.50EGS 

DEC 

.11389 

1" 
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USER’S  PAGE  NO.  53 
READ  GIMBAL  ANGLES  INTO  I TEMP 


UCALLEf  +2)  'rO  L 

SEE  WHICH  MODE  P.P  IS  IN. 


MODE  2 CAN  USE  RPLIMCHK  CODING 

MODE  1 IS  DEEINED  AS 
1.  ABS(T)  L 55  DEGS 
2 SHAFT  LIMITS  AT  +59,  -85  DEGS 

LOAD  SHAFT  ANGLE 

IF  NEGATIVE  SHAFT  ANGLE,  ADD  20.5  DEGS 


64.5  DEGREES 
NOT  IN  L IMITS 
IN  LIMITS 

MAKE  NEGATIVE  SHAFT  L IMIT  -85  DEGREES 


E7  S3 
STORAGE 


ft 


ft 

3 

• 

ft 

ft 

ft 

ft 

ft 

ft 

i 

> 

> 

> 

3' 

► 
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P189E  PROGRAM  NAME.  BEGDES 
R 1897:  F UNC TIC  1 A L Dfe&CR  I FT  IGN. 

R 1 8Q 8 BEGDES  CHECKS  VARIOUS  DESIGNATE  REQUESTS  AND  REQUESTS  THE 

R1P9R  ACTUAL  " DESIGNATION.  INITIALLY  A CHECK  IS  MADE  TO  TEE  IF  A 

R 1900  PE^'DF  { ? ADM : DPS  BIT  1M  IS  0 FQUES  T E D OP  IN  PROGRESS.  IF  SO, 

R 1901  CONTROL  IS  TRANSFERRED  TO  STDESIG  AFTER  ROUTINE  REMUDE  IS 

R 1902  EXECUTED.  IF  NO  REMODE,  STDESIG  IS  IMMEDIATELY  CALI  ED  WHERE 
R 1 903  FIRST  THE  , R EP3 S I T I ON  FLAG  (RADMODES  BIT  11)  IS  CHECKED.  IF 

R 190''  PRESENT,  THE  DESIGNATE  FLAG  (RADMODES  BIT  10)  IT  REMOVED 

R 1 9 0 p AFTE-  wHTCH  TME  PFCGF  EXT  TS  T"  >'  DB  AD  END.  IF  THE  HER'  SIT  ION 

R 1C:00  FLAG  IS  MOT  PRESENT,  T HF  CONT I NUOU S DESIGNATE  FLAG  { R ADMODE c 

R 1907  BIT  15)  IS  CHECKED.  IF  PRESENT,  ON  EXECUTIVE  CALL  IS  IMMEDIATELY 

R 1908  MADE  FOR  DODES  AFTER  WHICH  A .5  SECOND  WAIT  IS  INITIATED  BEFORE 

R 1909  REPEAT  ING  a!  STDESIG.  IF  THE  R SEARCH  ROUTINE  (LPS24.1)  IS  DESIGNATING 

R 1910  TC  A NFw  POI-n  I lEWfTFLG  SET)  THE  CURRENT  DESIGNATE  TASK  IS  TERMINATED. 

R1911  IF  CONTINUOUS  DES I GNAT F IS  NOT  .ANTED,  THF  DESIGNATE  FLAG  (RADMODES 
P 1 c 1 2 B 3 10)  Ic  CHECKED.  IF  fov  PPESENT',  THE  PROGRAM  EXIiS  TO  EM  DP  AD  AR  TO 

R 191 3 CHECK  CDU  FAIL  BEFC  E P ETUF  II  LG  TO  THE  CALLING  PROGRAM.  IF  DESIGNATE 
R 19  lz  IS  STILL  REQUIRED,  DESCCUNT  IS  CHECKED  TO  SEF  IF  THE  30  SECONDS  HAS 

R 1 c 1 ? EXP  I ED  BEFC  ■ E RECEIVING  THE  TO  DATA  GOOD  (CHAN  33  81:  4) 

RI910  SIGNAL.  IF  OUT  OF  TI1F,  PROGRAM  ALARM  00503  IS  REQUESTED,  THE 

RIP  17  f-P  ALTO  TRACKER  ENABLE  AND  ' E -n  COUNTE  ENABLE 

R 1 o 1 f'  (CHAT  12  BTV  14,2)  Pr"c  F VH  ),  A'  ) THE  DESIGNATE  FI.  AG 

RI919  (RADMODES  BIT  10)  REMOVED  8EF0RF  EXITING  TO  RDBADEND.  IF 

0 1920  TIME  HAS  NOT  EXPIPED,  DESCCUNT  IS  DECREMENTED,  THE 

R 1 9 2 I EXECLT.VE  CALL  MADE  F CODES,  AND  A .5  SECOND  WAIT  INITIATED 

R 1522  BEFORE  REPEATING  THIS  PROCEDURE  AT  STDESIG. 

Rlc21>  CALLING  SEQUENCE: 

RlS2-=>  WAITLIST  CALL  FROM  ST  ART  DES 
RL925  TCF  BEGDES  FROM  DOPREPOS 
R 1926  TC  SI,MSIS«  RETURNING.  FROM  OEMODE 

R 19  27  E A SABLE  INITIALIZATION  REQUIRED: 

R 192  8 DlSCOUNf,  ADMtDOES 

R 1929  SUBROUTINES  CA(LED_ 

R 1930  ENDRADAR,  FINDVAC 

R 19 31  J 8 ' C-  TASKS  INITIATED.  DO OF5 


GAP:  ASSEMBLE  REVISION  001  OF  AGC  PROGRAM  API 1RGPE  BY  EYLE$ 

L P20-P25 


3: 15  DEC.  2, 1970 
USER'S  PAGE 


> 


2” 


► 

> 


R 1 932 
R 1933 

& 1C  3/. 

R lc35 
R 1032 

1937 


ALARMS.  PROGRAM  ALARM  00503  (30  S 
GOOD  (CHAN  33  BIT  .)  ECEIVED  WHEN 

EXIT.  TASK  VE  (SEA  (OH  'A  TTB-  f DE 
ENDRADAR  (NO  DESIGNATE  - RADMODES 

EDRADE’O  ( 0 EPS)  S I 7 I ON  OR  30  SECONDS 

REF  69  LAST  544  25,2573  4 Cl 


FCON 

DS 

HAVE 

EX 

PIR 

ed  ; 

) WI 

TH 

NO 

RR  DATA 

LOC 

K- 

ON  1 

1ST 

AT 

E B 

IT 

5 ) 

WAS 

RE 

QUESTED. 

SIGN 

Af 

IMG 

TO 

N 

EW 

POINT) 

BIT 

10 

) 

EXP 

IP 

ED) 

10  0 

BEGDES 

CS 

R 

ADMODE 

S 

1 


I 


545 


1" 


GAP 


AS  S E ■'!  til  t REVISION  OG1  uF  AGC  PROGRAM  APllRjgPE  BY  EYLES 


L P20-P2  - 


1938 

REF 

4 

LAST 

543 

25,2574 

7 4736 

0 

MASK 

193° 

REF 

184 

LAST 

544 

25,2575 

10  000 

0 

CCS 

1 

REF 

3 

L AST 

532 

25,2576 

0 2602 

1 

TC 

1941 

PEF 

1 

2C ,2577 

0 2171 

1 

TC 

1942 

REF 

8 

LAST 

534 

25,2600 

0 6221 

0 

DESt  GOP 

TC 

1943 

25,2601 

00062 

0 

DEC 

1 

REF 

4 

LAST 

540 

25,2602 

3 4741 

1 

STDESIG 

CAF 

1945 

REF 

70 

LAST 

545 

25,2603 

7 011  C 

0 

MASK 

1946 

REF 

185 

LAST 

54  6 

2 5 , 2 6 C 4 

10  000 

0 

CCS 

1947 

F.EF 

1 

25,2605 

1 2623 

0 

TC.  F 

1 

RFF 

71 

LAST 

546 

25 ,2606 

10  110 

0 

CCS 

1949 

25,2607 

1 2612 

1 

TC  F 

1950 

25,2610 

1 26  12 

1 

TCP 

1951 

PEF 

1 

25,2611 

1 2630 

1 

TCF 

1°52 

REF 

72 

LAST 

546 

2^,2612 

* 0110 

0 

CS 

i ; 

REF 

4 

LAST 

540 

25,2613 

7 4 742 

0 

MASK 

i 

PEF 

186 

LAST 

5^6 

25,2614 

10  000 

0 

CCS 

1 5 

REF 

2 

LAST 

5 37 

25,2615 

1 3546 

1 

TCF 

1 

0 F F 

3 

L A S T 

54  3 

25,2616 

11*1  14 

0 

STDESIG1 

CCS 

1957 

PEF 

2 

LAST 

5 a 

25, 2617 

1 2627 

1 

TCF 

15 

REF 

1 

25,2620 

4 2635 

1 

CS 

V - 

25,2621 

0 0 0 06 

1 

EXTEND 

1960 

REF 

32 

LAST 

530 

25,2622 

0 3 012 

1 

WAND 

1961 

F.EF 

5 

LAST 

546 

25 ,2623 

4 4742 

0 

BADGES 

CS 

1962 

P EF 

73 

LAST 

546 

25,2624 

7 0110 

0 

MASK 

1963 

REF 

74 

LAST 

546 

25,2625 

54  110 

0 

TS 

1964 

REF 

1 

25 , 2626 

1 3562 

1 

TCF 

196  5 

RFF 

4 

LAST 

546 

25,2627 

55  * 1 14 

0 

MCE  EDES 

TS 

1 96< 

REF 

9 

LAST 

1 

25,2630 

3 5 714 

1 

CAF 

1 9(  7 

PEF 

22 

LAST 

519 

26, 2631 

0 5105 

0 

TC 

1 

REF 

24 

LAST 

541 

F7 , 1456 

EBANK= 

i 

REF 

1 

26,2632 

02636 

0 

2CADR 

1 

_ REF 

1 

25, 2633 

52067 

1 

1970 

REF 

1 

25,2634 

1 2600 

1 

TCF 

15  '1 

25,2635 

20002 

1 

814+B2 

OCT 
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REMCDBIT 

A 

SIDES  I G 
P EMODE 

FIXDELAY  2 SAMPLES  PER  SECDND. 

r0 


REPOSBI T 

r AOMGDES  SEE  IF  GIMBAL  LIMIT  MONITOR  HAS  FOUND  US 

A CUT  OF  BOUNDS.  IF  SO,  THIS  BIT  SHOWS  A 

BADGES  REPOSITION  TO  BE  IN  PROGRESS. 


R ADMODES 

+ 3 
+ 2 

M GREBES  +1 


SEE  IF  CONTINUOUS  DESIGNATE  WANTED. 

IF  SO,  DO N T CHECK  BIT  10  TO  SEE  IF  IN 
LIMITS  BUT  GC  RIGHT  TO  FINDVAC  ENTRY. 


R ADMODFS 
DESTG8IT 
A 

ENURADAR 


IF  NON-CQNT I MUQUS , SEE  IF  END 
PROBLEM  ( DATA  GOOD  IF  LCiCK-ON 
WITHIN  LIMITS  IF  NOT).  IF  SO, 
CHECK  ING  RR  CD!J  FAIL  . 


OF 

WANTED  OR 
EXIT  AFTER 


DES COUNT 
MORE BE S 


SEE  IF  THE  TINE  LIMIT 


HAS 


EXPIRED 


B14+B2 


IF  OUT  OF  TIME, 


REMOVE  ECR  ENABLE  + TRKR 


C H A N 1 2 
DES I GBIT 
R ADMODES 
R ADMODES 
R CB ABEND 


REMOVE  DESIGNATE  FLAG 


OESCOUNT 

P If  2'  UPDATE  GYRO  TORQUE  COMMANDS. 

FINDVAC 

LOSCOUNT 

DCDES 


DESt  OOP 
20002 


ft 


ft 

) GAP:  ASSEMBLE  REVISION  001  UF  AGC  PROGRAM  AP11I0PE  BY  LYLES 

ft  L P20-P2" 


3:15  DEC.  2,1970 
USER'S  PAGE 


LEMP20S 
NO.  55 


.127  PAGE 
E7  S3 


547 


P 197  2 

ft 

R 1973 
R 197^ 
ft  R197- 

R 1076 
R 197  7 
t P 1 97  B 

R 1979 
R 1570 
I P.198  1 

R 1982 
P 198  3 
) P 1984 

R 1985 
P 1986 

R 198P 
R1989 
I R 1 

R 199  1 
P 1992 
» R 199  3 

P 199  4 
R 1995 
I R 1 9 9 6 

R 1 $ 9 7 
R 1998 

R looc 
R 2000 
R 200  1 
R 200  2 
R 2003 
ft  ?0C^ 

R 2 00  5 
R 2006 
R 2007 
P 2008 
R2009 
R 201  0 


PROGRAM  NAME_  DODES 
FUNCTIONAL  DESCRIPTION. 

DODES  CALCULATES  AND  REQUESTS  ISSUANCE  OF  RR  GYRO  TORQUE 
COMMANDS.  INITIAL!  Y THE  CD'. PENT  9T  CDU  ANGLES  A P F STORED  AND 
THF  LOS  HALF-UNIT  Vf-CTfc  TRANS  FOP  MED  FRO«  STABLE  MEMBER  TO 
NAVIGATION  BASE  COORDINATES  VIA  SMN 8 IF  NECESSARY.  THE 

D 1 I ( "A  IDS  ARE  THEN  CALCULATED  A!  I OL LOW S_ 

+ SHAFT  = LOS  . (.COSTS)*  0,  -SIT  ( S ) ) (DOT  PRODUCT) 

-TRUNNION  = LOS  . (SIN  (T)  SIN  (S),  COS  !T),  SIM  ( T ) COS  (S)  1 

THE  SIGN  OF  THE  SHAFT  COMMAND  IS  THEN  REVERSED  IF  lit  MODE  2 

(RADMOOES  BIT  1?)  BECAUSE  A RELAY  IN  THE  RR  REVERSES  THF 

POLARITY  OF  THE  COMMAND.  AT  RRSCAl.UP  EACH  COMMAND  IS 

SCALED  AND  IF  EITHEP,  OR  BOTH,  OF  THE  COMMANDS  IS  GREATER  THAN 

.5  DEGREES,  MPAC  +1  15  SET  POSITIVE.  IF  A CONTINUOUS  DESIGNATE 

( AD'-UDES  C-TT  1-)  ■ DEI  ED  AND  CUE  SFA  CH  OU'-'INC  IS  NOT  C'PEP  AT!  NG, 

THE  . AUTO  T‘  ACK.-'  ENABLE  BIT  (CHAN  12  BIT  14)  IS  CLEARED  AND  RROUT 
CALLED  Tr  pijt  oyt  trF  COR  ’AMDS  °l  OVTDEO  NO  " FPOS  H I ON  ( ADMi  OF  V BIT  11) 
IS  IN  PROGRESS.  IF  A CONTINUOUS  DESIGNATE  AND  THE  SEARCH  ROUTINE  IS 
OPERATING  (SRCHOPT  FLAG  SET)  THE  TRACK  ENARLE  IS  NOT  CLEARED.  IF  NO 
CONTINUOUS  DESIGNATE  AND  BOTH  COMMANDS  ARE  NOT  LESS  THAN  .5  DEGREES  AS 
INDICATED  BY  MPAC  +1,  THE  P"  AUTT  T ACRE'  ENABLE  BIT  (CHAN  12  BIT  14)  IS 
CLEARED  AND  RRQ’J"  CALLED  TO  PUT  OUT  THE  COMMANDS  PROVIDED  NC  REPOSITION 
( THROES  B ' 11)  T'  ’ I ? o GF  E S s • i F BOTH  CO ''"AMDS  APE  LESS  THAT1  .5 

DEGREES  AS  INDICATED  BY  MPAC+1,  THE  RR  AUTO  TRACKER  ENABLE  BIT 
(CHAN  12  BIT  14)  IS  CLEARED  AND  RROUT  CALLED  TO  PUT  OUT  THE 
COMMANDS  PROVIDED  NC  REPOSITION  (FADMODES  BIT  11)  IS  IN 
PROGRESS.  IF  BOTH  COMMANDS  ARF  LESS  THAN  .5  DEGREES,  THE 
I-OCK-0N  FLAG  r A-i  t BIT  ‘ ) 15  CHECKED.  IF  MOT  PRESENT,  THE 
OistloATE  FLAG  ( " A DM  'OF  S BIT  IQ)  IS  CLEARED,  THF  TP  ERROR 
COUNTER  ENABLE  BIT  (CHAN  12  BIT  2)  IS  CLEARED,  AND  ENDOFJOB 
CALLED.  IF  LUCK- JO  IS  DESIRED,  THE  RR  AUTC  TRACKER  (CHAN  12 
BIT  14)  IS  ENABLED  FOLLOWED  BY  A CHECK  OF  THE  RECEIPT  OF  THE 
DATA  GOOD  (CHAO  3 BIT  4)  SIGNAL.  IF  PL  DATA  GOOD 
P ESEIvT,  THE  OLSTO  Alf:  FLAG  ( 1 ADO!  )0E  S BIT  1C)  IS  CLEARED, 

THE  RR  FRPOP  COUNTER  r N A R L F BIT  (CHAN  12  BIT  2)  IS  CLEARED, 

AND  ENDOF  JnB  CALLED.  IF  FR  DATA  GOOD  IS  NOT  PRESENT,  RROUT 
IS  CALLED  TO  PUT  OUT  THE  COMMANDS  PROVIDED  NO  REPOSITION 
(RADMOOES  BIT  II)  IS  IN  PROGRESS  AFTEFs  WHICH  THE  JOB  IS  TERMINATED 
VIA  ENDOF JOB . 


c 201 1 CALI  IMG  SEQUENCE: 

R2C12  EXECUTIVE  CALL  FVEFY  .5  SECONDS  FROM  BFGDES. 

R2G13  EKASABLt  INITIALIZATION  REQUIRED:. 

R2014  RRTARGET  (HALF-UNIT  LOS  VECTOR  IN  EITHER  SM  OR  MB  COORDINATES), 
F 2015  LOKONSW  (STATE  BIT  5),  r,NPrW  (STATE  BIT  6),  FADMODES 

R 2016  SUBROUTINES  CALLED. 

R201?  READCDUS,  SMNB  , CDULGGIC,  MAGSUB,  -LOUT 


GAP:  ASSEMBLE  REVISION  QC1  OF  AGC  PROGRAM  AP11RCPE  BY  EYLES 

L P2P— P 2 5 

R 201  S JOBS  Or'  TASKS  INITIATED. 

R 2 0 I c NONE 

R 2020  ALARMS.  NONE 


R 2021  E*IT_  FN DOF JOB  (A!  i AYS  I 


2022 

25,2636 

0 0006 

1 

DODES 

EXTEND 

2023 

rEF 

8 

LAST 

534 

25,2637 

3 0036 

1 

OCA 

202/j 

REF 

13 

LAST 

64  3 

25,2640 

53'  110 

1 

DXCH 

202r 

PEF 

45 

L AST- 

54  3 

26,2641 

0 6 03  7 

0 

TC 

202  A 

25 ,2642 

77201 

1 

SETPO 

202  7 

25,2643 

0C001 

0 

202  8 

P e F 

6 

LAST 

543 

2 ' ,264  4 

01102 

0 

202° 

25,2645 

74214 

0 

BON 

2030 

; ■ F F 

3 

LAST 

543 

2 5 , 2446 

0 C 3 3:  1 

1 

2031 

REF 

1 

25,2647 

52661 

1 

2032 

REF 

1 

25,2650 

01767 

0 

2033 

2 5,  265  1 

63  37  2 

1 

VSL1 

2 03  A 

PEF 

2 

LAST 

112 

25 ,2652 

01761 

0 

2035 

25,2653 

3 3 361 

0 

VXSC 

2036 

PEF 

1 

25,2654 

1 3 C 7 2 

0 

2037 

26,2655 

45056 

0 

UN  IT 

2038 

REF 

3 

LAST 

539 

25,2656 

47537 

0 

2039 

25,2657 

77624 

1 

CALL 

2040 

REF 

3 

LAS- 

539 

25,2660 

47  671 

1 

204  l 

2 5 , 266  1 

1 6 0 4 1 

DONBR  D 

ST  DDL 

2042 

REF 

14 

LAST 

548 

25,2662 

01111 

1 

2043 

25,2663 

41434 

1 

PTB 

204  4 

REF 

1 ]_ 

LAST 

374 

25,2664 

2 1 576 

0 

204  5 

25,2665 

65356 

1 

SIN 

2046 

2 5, 2666 

41546 

0 

CCS 

2047 

25,2667 

65205 

0 

DMP 

2043 

25,2670 

00041 

1 

2049 

25,2671 

C 0045 

0 

205  0 

25,2672 

44205 

0 

OMP 

20  51 

25,2673 

0 0(411 

0 

2052 

25,2674 

776  26 

0 

STAOR 

2053 

REF 

13 

LAST 

548 

25,2675 

76666 

0 

STORE 

2054 

25,2676 

47135 

0 

SLUAD 

205  5 

REF 

16 

LAST 

548 

25,2677 

OHIO 

0 

205  f 

REF 

12 

LAST 

548 

25,2700 

21576 

0 

2057 

2 r , 2 7 o 1 

7 1*06 

0 

PUSH 

2058 

25,2702 

73  525 

1 

PDDl 

2059 

25,2703 

41206 

0 

PUSH 

2060 

2C,2704 

00003 

1 
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USEE'S  PAGE  NO.  57  E7  S3 

C OUT 

TANG 

INTPS-ET 

VLOAD 

0 

TARGET 

VXSC 

RRNBSW 

DON'S  RD 

MLOS  V 

PDVL 

LOSVEL 

TARGET  IN  NAV-BASE  COORDINATES 

MULTIPLY  UNIT  LOS  PY  M AGN T TUDE 

VAD 

‘•'CTO  MS 

CALL 

CDUTRIG 

4 S H N 8 * 

ADD  ONE  SECOND  RELATIVE  VELOCHY  to  LOS 

3 2D 

TANG  +1 

PUSH 

CDULOGIC 

POOL 

PUSH 

POOL 

3 2D 

36D 

BDSU 

0 

SHAFT  COMMAND  = V < 32D ) . ( COS ( S ) , 0, 

{-Sims  n . 

SIM(S)  TO  C AMD  CO  $ IS)  T0  2. 

TANG  +1 

SHAFT  £r  MM-AND 

RTB 

TANG 

CL  H )GIC 

COS 

SIN 

C.  SIT)  TO  4. 

DMP 

SIN(T)  TO  6. 

2 


GAP: 


ASSE  BEE  REVISION  001  C.F  AGC  PROSCAN  APllRGPE  BY  EYLES 


L P20-P25 


2061 
2062 
206  3 
206  A 
206  6 
206  6 
2067 
206P 


25*2705  65352  0 

26.2706  00005  1 

25.2707  ^1325  0 

25,2710'  C.CCC7  0 

26,2711  COCCI  0 

2*  , 2712  ‘-;cc52  0 

25.2713  7 7 A A 1 0 

25.2714  00041  1 


SL1  PDDL 

4 

POOL  DMP 

6 
0 

SL1  VDEF 

DOT  EXIT 

32D 
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USER'S  PAGE  NO.  59  E7  S3 

DEFINE  VECTOR  U = CSINtT) SIN(S) ) 

(COS(T)  ) 

(SIN(T)COS(S) ) 

DOT  U WITH  LOS  TO  GET  TRUNNION  COMMAND. 

..E 


f 


1 


3" 


GAP: 

ASSEMBLE  E VI  SI  Of 

: 001 

OF  AGO  PP.n 

GRAM  API  IS:  PE 

Li  Y EYLFS 

3:15  DEC.  2,1970  LEMP20S  .127  PAGE  55- 

L 

P2P- 

-P25 

USER'S  PAGE  NO.  59  E7  S3 

P 206° 

AT  THIS  PO  I N7  WE  HAVE 

"v  1 1 A1  I. 

VECTOR  IN  DISF 

! AXES  LYING 

IN  THE  TS  PLANE.  CONVERT  7HIS  TO  A 

R 207 1 

COMM AN DEC 

) PATE 

AMD 

ENABLE  THE 

TRACKER  IF 

WE 

ARE  WITHIN  . 

5 DEGREES  OF 

THE  TARGET. 

2C73 

REF 

235 

LAST 

5 20 

25,2715 

4 1154 

0 

CS 

MP  AC 

DOT  WAS  NFGATIVE  OF  DESIRED  ANGLF. 

2074 

24,2716 

0 C006 

1 

EXTEND 

2075 

°EF 

1 

2 5 , 2 7 1 7 

7 30  66 

0 

MP 

s OFSGAIC 

SCALING  ON  INPUT  ANGLE  WAS  4 RADIANS. 

2076 

REF 

17 

LAST 

548 

25 , 2720 

55 ’ 107 

1 

TS 

TANG 

TRUNNION  COMMAND. 

2077 

REF 

75 

LAST 

546 

25,272  1 

4 0110 

0 

CS 

P ADMODES 

A RELAY  IN  THE  RF-  REVERSES  POLARITY  OF 

2078 

REF 

2 3 

LAST 

508 

25,2722 

7 4740 

1 

MASK 

BIT12 

THE  SHAFT  COMMANDS  IN  MODE  2 SO  THAT  A 

207° 

25,2723 

0 0006 

1 

EXT  END 

POSITIVE  TORQUE  APPLIED  TO  THE  SHAFT 

2080 

25,2724 

1 2727 

0 

BZF 

+ 3 

GYRO  CAUSES  A POSITIVE  CHANGE  IN  THE 

2081 

°FF 

18 

l AST 

550 

25,2725 

3 111  0 

0 

CA 

TANG  +1 

SHAFT  ANGLE.  COMPENSATE  FOP  7hi^  SWITCH 

2082 

25,2726 

l 2730 

0 

TCP 

+ 2 

BY  CHANGING  THE  POLARITY  OF  CUR  COMMAND 

2083 

REF 

19 

LAST 

550 

25,2727 

4 1110 

1 

+ 3 CS 

TANG  +1 

2084 

25,2730 

0 0006 

1 

EXTEND 

208  5 

REF 

2 

LAST 

5 50 

2C, 2 77  1 

7 3 C 6 6 

0 

HP 

RDESGAIF 

SCALING  01  INPUT  ANGLE  WAS  4 RADIANS. 

208  6 

REF 

2 0 

LAST 

550 

25, 2732 

5r • 110 

1 

TS 

TANG  +1 

SHAFT  COMMAND. 

208  7 

REF 

46 

I.  AST 

548 

25,2733 

0 6 037 

0 

T C 

I NT p:-’  ET 

2088 

25,2734 

41345 

0 

DLOAD 

dmp 

2089 

25,2735 

C 0003 

1 

2 

COS ( S ) . 

2090 

25,2736 

0 00  05 

1 

4 

COS ( T ) . 

2091 

25 , 2737 

6 c-  7 5 2 

0 

SL1 

DDOL 

Z COMPONENT  OF  UPP. 

2092 

25,2740 

65276 

1 

DCOMp 

PDDl 

Y COMPONENT  = -SIN(T). 

2093 

25,2741 

OC  001 

0 

0 

SIN (S  ) . 

20°  A 

25,2742 

72405 

0 

DMP 

S LI 

2095 

25,2743 

0 C 0 05 

1 

4 

COSIT  ). 

2096 

2 c , 2 744 

43  066 

0 

VDEF 

BGN 

FOPM  UP f IN  NB  AXES. 

2097 

REF 

4 

LAST 

548 

25,2745 

00311 

1 

RRNBSW 

BYPASS  NBSM  CONVERSION  IN  VERB  41. 

2098 

2 5 , 7 74  6 

52751 

o 

+ 3 

209° 

25,2747 

77624 

1 

CALL 

2100 

REF 

1 

25,2750 

47673 

0 

*N8  SM  * 

GET  UPR  IN  SM  AXES. 

2101 

25,2751 

77441 

fi 

DOT 

EXIT 

V 

2102 

REF 

7 

LAST 

548 

25,2757 

01102 

0 

RETARGET 

GET  COSINE  OF  ANGLE  BETWEEN  PR  AND  LOS. 

2103 

2 5 , 2 ~ c ? 

0 4 006 

1 

EXTEND 

2104 

REF 

1 

25 , 2754 

4 3070 

1 

DCS 

CQS1 /2DG 

2 1 0 5 

REF 

236 

LAST 

550 

25,2755 

20  155 

1 

DAS 

MP  AC 

DIFFERENCE  OF  COSINES,  SCALED  B-2. 

2106 

REF 

237 

LAST 

55L 

25,2756 

10  154 

0 

CCS 

MPAC 

2 10  7 

REF 

117 

1 AST 

541 

25, 21 1 7 

3 47  5 5 

1 

CA 

ZERO 

IF  COS  ERROR  BIGGER,  ERROR  IS  SMALLER. 

2108 

25 , 2760 

1 2762 

1 

TCF 

+ 2 

210° 

REF 

67 

LAST 

537 

25, 2761 

3 47  5 3 

1 

CA 

ONE 

2110 

REF 

238 

LAST 

550 

25,2762 

54  155 

1 

TS 

MPAC  +1 

ZERO  IF  RR  IS  POINTED  OK,  ONE  IF  NOT. 

..l 


GAP: 


ASSEMBLE  r E V I S 1 3 N 001  bF  AGC  POO  GRAM  API  1RGP.E  BY  EYLES 


L P20-P25 


P 21 1 1 

SEE 

IF  to 

ACKER  SHOUL 

D BE  ENABLED  OR  DISABLED. 

76 

LAST 

550 

2112 

a.  E F 

2 f 2 1 6 3 

1 L1  1 l11 

0 

bC  J 

1 ■■  64  U ) • L*  l. 

2113 

REF 

1 

25,2764 

1 2767 

1 

TCF 

S TGNLCHK 

2114 

REF 

2 

LAST 

551 

25,2765 

1 2767 

1 

tcf 

SIGNLCHK 

2 8 „ ? 7 A A 

1 0 C 1 7 

0 

TC  F 

OHRR  PI JT 

21  IF 

REF 

239 

LAST 

550 

25,2767 

10  155 

1 

SIGNLCHK 

CCS 

MPAC  +1 

2117 

REF 

1 

25,2770 

1 3000 

0 

TCF 

DGOODCHK 

21  IP 

REF 

n 

r 

S-TATfc 

LA.  ■ 

21  Ic 

REF 

l 

25,2772 

7 4747 

0 

MASK 

L OKONBI T 

2120 

REF 

187 

LAST 

546 

25,2773 

10  LOO 

0 

CCS 

A 

pec 

? ^ t ? 1 7 

] p ( 

0 

TC  F 

f O | J 0 C Q j | { 

2122 

REF 

51 

LAST 

513 

25,2775 

3 4736 

1 

CAE 

B I T 1 4 

2123 

25,277b 

0 OC  06 

1 

EXTEND 

2124 

OFF 

33 

LAST 

546 

25,2777 

05  012 

1 

WCR 

CHAN l 2 

2125 

REF 

23 

LAST 

46« 

25,3500 

3 4750 

1 

DGOODCHK 

C AF/ 

2126 

25,300) 

0 0006 

1 

2127 

REF 

9 

LAST 

504 

25,3002 

02  033 

0 

/RAND 

CHAN33 

2128 

REF 

188 

LAST 

551 

2 5 ,3003 

10  OGO 

0 

lees 

A 

2 I2C 

REF 

2 

LAS’" 

551 

25,3004 

1 3017 

0 

Ycf 

ncr-5jjj> 

2130 

REF 

29 

LAST 

475 

25,3005 

4 474  2 

0 

I DESDUN 

CS 

BIT10 

2131 

REF 

77 

LAST 

55  1 

25 , 3006 

7 0110 

0 

MASK 

R ADMODES 

2132 

25,3007 

0 CO 04 

0 

INHINT 

2133 

Hi 

. T) 

78 

LAST 

55  1 

25,3010 

54  1 10 

0 

TS 

RADMODE S 

2134 

REF 

50 

LAS  T 

543 

25,3011 

0 5516 

0 

TC 

D OWN F LAG 

2 1 3 c 

P EF 

7 

f_A$f 

54  3 

7 r On  1 7 

n 00  1 

1 

a n ; c 

1 n c r M P 1 r. 

rA  U 1 X O 

L L J b 1 ‘1  l M_. 

2136 

REF 

32 

LAST 

530 

25,3013 

4 4752 

1 

CS 

BIT2 

2137 

25,3014 

0 C006 

1 

EXTEND 

2138 

REF 

34 

LAST 

551 

25,3015 

03  012 

1 

WAND 

CHAM  2 

2130 

REF 

9° 

LAST 

54  3 

25, 3016 

1 516  6 

1 

TC.F 

END OF  JOB 

2140 

P EF 

P 

Cast 

497 

25,3017 

3 0076 

0 

DOR  ROUT 

CA 

FLAGWFD2 

2141 

REF 

1 

25,3020 

7 7712 

0 

MASK 

B I T 1 2 , 1 4 

2142 

25,3021 

0 C006 

1 

EXTEND 

214  3 

ref 

1 

25,3022 

1 3 041 

0 

BZF 

N0TP20 

2144 

P EF 

47 

LAST 

5 50 

25 , 3023 

0 6037 

0 

TC 

INTPRET 

214- 

25, 3024 

743  75 

0 

VL  0 AD 

VXSC 

2146 

REF 

8 

LAST 

550 

25, 30 2 * 

01102 

0 

RRTARGET 

2147 

REF 

2 

LAST 

548 

25 , 3026 

01767 

0 

MLOSV 

21' 

25,3027 

41572 

1 

VSL  1 

PUSH 

2149 

25,3030 

74375 

0 

VLOAD 

VXSC 

21 5 C 

REF 

3 

LAST 

548 

25,3031 

01761 

0 

i CSVEL 

2151 

PEF 

2 

LAST 

548 

25 , 303  2 

L3C7  2 

0 

MCTCMS 

2152 

25  , 3033 

53362 

0 

VSR  1 

VAD 

2153 

25,3034 

77656 

1 

UNIT 

2154 

REF 

9 

LAST 

551 

25,3035 

15102 

0 

STOOL 

RRTARGET 

3:15  DEC.  2, 

1970 

L EMP20S 
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USER  *S 

PAGE 
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F 7 S3 

IF  CUNT INUOUS  DESIGNATE  WANTED,  PUT  OUT 

Commands  without  checking  magnitude  of 

ERROR  SIGNALS 

SEE  IF  BOTH  AXES  WERE  WITHIN  .5  DEGS. 

IF  WITHIN  LIMITS  AND  NO  LOCK-ON  WANTED, 
PRORLEM  IS  FINISHED. 


ENABLE  THE  TRACKER. 


SEE  IF  DATA  GOOD  RECEIVED  YET 


WHEN  PROBLEM  CONE,  REMOVE  BIT  10  SO  NEXT 
WAITLIST  TASK  WE  WILL  GO  TO  RGOODEND. 


RESET  L3SCMFLG  TO  PREVENT  A 
PECdWpUTATION  OF  LOS  AFTER  DATA  GOOD 
TURN  OFF  ENABLE  RR  ERROR  COUNTER 


WITH  ECTP  DISABLED. 

1 F BOTH  t.CSCHFLAG  AND  SEARCH  FLAG  ARE 
ZERO,  BYPASS  VELOCITY  ADJUSTMENT  TO  LOS 


MULTIPLY  UNIT  LOS  BY  MAGNITUDE 


ADD  .5  SEC.  OF  VELOCITY 
TO  LOS  VECTOD 


STORE  VELOCITY-CORRECTED  US  (UNIT) 


GAP:  ASSEMBLE  REVISION  001  OF  A -C  PROGRAM  APllRQPE  BY  EYLES 


2155 

21  5< 

o t c 7 

P2C- 

REF 

P25 

3 

LAST 

551 

25.3036 

25.3037 

js.  ariiA 

00045 
01767 
777  76 

0 

0 

]_ 

STORE 

EX  IT 

36D 

MLOSV 

c.  1 J>  / 

215* 

25,3041 

0 C 004 

0 N0TP20 

I NH I NT 

2159 

RET 

79 

LAST 

551 

25,3042 

4 0110 

0 

CS 

E ADMPDE  S 

21  HO 

REF 

5 

LAST 

546 

2C  , 3043 

1 l 

0 

MASK 

P EPOS  BIT 

2161 

REF 

189 

LAST 

1 

25,3064 

10  000 

0 

CCS 

A 

21 1 2 

REF 

2 

LAST 

534 

25,3045 

0 2306 

0 

TC 

R ROUT 

2163 

REF 

9 

LAST 

551 

25 , 3046 

3 0076 

0 

CA 

FLAGWRD2 

2164 

REF 

1 

25,3047 

7 4740 

1 

MASK 

L CSC KB  IT 

21  6C 

25 , 3050 

0 0006 

1 

EXTEND 

2 lfe< 

REF 

91 

LAST 

551 

25,3051 

1 5155 

1 

BZF 

ENDOF JOB 

2167 

REF 

25 

LAST 

546 

25, 3052 

11  '456 

0 

CCS 

LCISCOUNT 

2168 

REF 

1 

25,3053 

0 3064 

0 

TC 

DODES END 

216r 

25,3054 

0 ( 004 

0 

T NH I NT 

2170 

PFF 

5 

LAST 

516 

25,3055 

0 6027 

1 

TC 

K IL!  TASK 

2171 

R EF 

2 

LAST 

546 

2 5, 30 56 

5 2602 

1 

CADP 

DESI  HOP  +2 

2172 

2 c » 3057 

0 0003 

1 

REL.INT 

2173 

REF 

3 

LAST 

378 

25 , 3060 

10  067 

1 

CCS 

NEWJOB 

71 

REF 

2 

LAST 

378 

25,306 l 

0 5122 

0 

TC 

CHANG1 

2 1 T i 

REF 

14  1 

I AST 

5 19 

25, 3062 

0 4616 

1 

TC 

BA'-JKCAl.L 

2176 

RFF 

1 

25,3063 

50731 

1 

CADR 

F 2 1 L EM 2 

2177 

REF 

26 

LAST 

552 

25,3064 

55*456 

0 

DODESEND  TS 

1.®  COUNT 

2178 

REF 

9 2 

LAST 

55? 

25 , 3065 

0 515  5 

0 

TC 

ENDOF  JOB 

2175 

25,3066 

21132 

0 

POESGAIN 

DEC, 

. 53624 

21795  REF  1 

7712 

B I T 1 2 , 14 

EQUAL  S 

PR  I 024 

2180 

25,3067 

07777 

1 

CPS1/2DG 

2 DEC 

.999961923 

2180 

25.3070 

33005 

2181 

25,3071 

00310 

0 

MC  TPM  S 

2DEC 

100  8-13 

2181 

25,3072 

0000  0 

1 
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AND  STO.E  MAGNITUDE 


PUT  OUT  COMMAND  UNLESS  MONITOR 
REPOSITION  HAS  TAKEN  OVER. 


IF  LPSCMFIG  f'PT  SET,  DON'  T TEST 

I os  counter 

TEST  LOS  COUNTER  TO  SEE  IF  TIME  TO  GET 
A NEW  LOS 

YFS  - KILL  TASK  WHICH  SCHEDUIFS  DODES 


TRIES  TO  NULL  .5  FI  POP  IN  .5  SEC. 
OCT  24000 

B-2  COSINE  OF  C.c  DEGREES. 


t 

« 


i 


GAP: 


ASSEMBLE  REVISION  001  OF  AGC  PROGRAM  APlir.OPE  BY  eyles 


3:15  DEC 


2,1970  1.EMP20S  .127  PAGE 


553 


L P2  0-P2'f 

P2182  RADAR  READ  INITIALIZATION 

R 2183  RADAP  DATA  A”  ERE  AD  BY  A BA-vtKCALl  R THE  APPROPRIATE  LEAO-IN  BELOW. 


21*4 

2185 


REF  I 


?5,  *077  0 3113  1 Lf- ALT  TC 

25,3074  00017  1 ALLPEAD  OCT 


2186 

2187 

218  8 

REF 

P F F 

2 

3 

LAST 

L AST 

553 

853 

25.3075 

25 . 3076 

25 . 3077 

2189 

25,3100 

2190 

REF 

4 

LAST 

553 

25,3101 

2191 

25 , 3102 

2192 

REF 

K 

LAST 

55  3 

25,7103 

2193 

25 , 3104 

2194 

REF 

6 

LAST 

533 

25,3105 

219  s’ 

25,3106 

R 219f 

Lf-  VEL 

IS 

THF  F MT c Y 

T r the  i r 

R2197 

WANTED. 

ENTER 

WITH 

C ( A ) = 0,2, 

2 1 9 F 

. R cr 

1 

25,3107 

219c 

REF 

1 1 

LAST 

506 

25 ,3110 

22CC 

REF 

2 

LAST 

5 r’ 3 

25,3111 

2201 

REF 

2 

L A S T 

4*  1 

25,3112 

0 31 14  0 
00016  0 

0 31 1 A 0 
00015  0 

0 31 14  0 
01.014  1 

0 3113  1 
0CO12  1 

03113  1 
00011  1 


55'105  0 
3 4756  1 
“-1  * 105  1 
1 7075  1 


l RVELZ 

Lr  VEl  Y 


rc 

OCT 

TC 

OCT 


LRVEl.X  TC 
OCT 


RRRDCT 


•'.K  RANGE 


LEVEL 


TC 

OCT 

TC 

OCT 


TS 
CAF 
INDEX 
TC  F 


INI  I KtAP  -1 

1.7 

INI  TREAD 
16 

TM  T P E AD 
15 

INI7READ 

14 

INITREAD  -1 
12 

INI T HEAD  -1 
11 

5 SAMPLES  ARE 
RESP. 

T IMEHOLD 
FIVF 

T IMEHOLD 
LR  VEl  Z 
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ONE  SAMPLE  PER  READING. 


STORE  V BEAM  INDEX  HERE  MOMENT  AR I L Y 
SPECIFY  FIVE  SAMPLES 
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L 

P 20- 

-P25 

USE° • S PAGE  MO.  63  E7  S3 

2202 

REF 

68 

LAST 

550 

25,3113 

3 4753 

1 

-1 

CAF 

ONE 

ENTRY  TO  TAKF  ONLY  1 SAMPLE. 

2203 

25,3114 

0 C004 

0 

INITREAD  INHINT 

2204 

REF 

3 

LAST 

553 

25,3115 

55 * 105 

0 

TS 

TIMEHULD 

GET  DT  OF  MIDPOINT  OF  NOMINAL  SAMPLING 

22  05 

25,31 16 

0 0006 

1 

EXTEND 

INTERVAL  (ASSUMES  MO  BAD  SAMPLES  WILL  BE 

2206 

REF 

24 

LAST 

4«Q 

25, 3117 

7 47  51 

1 

MP 

BIT3 

ENCOUNTER EO) . 

2207 

REF 

4 

LAST 

554 

25, 3120 

53  * 106 

0 

DXCH 

T IMEHOLD 

2208 

REF 

190 

LAST 

55  2 

2 5 ,3121 

10  oco 

0 

CCS 

A 

220  P 

REF 

1 

25,3122 

55*111 

0 

TS 

NS  AMP 

221 0 

REF 

6 9 

LAST 

554 

25,3123 

6 *7  53 

1 

AD 

ONE 

R 221  1 

INSERT  FOI LOWING  1'K  : ;:JCT'I0M  TO  GET  2N 

TRIES  FOP  N SAMPLES. 

A 22  1 2 

DOUBLE 

2213 

REF 

2 

LAST 

222 

25,3124 

O 

O 

to 

ITx 

0 

TS 

SAMPL IM 

2214 

REF 

1 

25 , 3125 

3 314  7 

0 

CAF 

DEBITS 

FEAD  CURRENT  VALUE  OF  DATA  GOOD  PITS. 

2215 

25,3126 

0 0006 

1 

sZZFOr-, r 

221  6 

REF 

10 

LAST 

551 

25,3127 

02  033 

0 

( 

RAND 

CHAN3X 

2217 

REF 

1 

25,3130 

55'  113 

1 

\ 

0 L DAT  A AD 

2218 

REF 

1 

25,3131 

4 3074 

0 

CS 

^ 

ALL  KE AD 

221° 

25,3132 

0 C006 

1 

EXTEND 

222'' 

REF 

8 

LAST 

470 

2r ,3133 

0 3 013 

0 

WAND 

CHAN 13 

REMOVE  AI  L RADAR.  BITS 

2221 

REF 

163 

LAST 

544 

25,3134 

50  0C2 

0 

INDEX 

0 

2222 

25,3135 

3 0000 

1 

CAF 

0 

2223 

25,3136 

0 Ct  06 

1 

EXTEND 

2224 

REF 

o 

LAST 

5 54 

25,3137 

' - 1 : 

0 

WOR 

CHAN  13 

S FT  NEW  P A DAP  BITS 

2225 

25,3140 

0 0006 

1 

EXTEND 

2226 

REF 

14 

LAST 

462 

25,3141 

3 0025 

0 

DC  A 

TIME2 

2227 

REF 

5 

LAST 

554 

25,3142 

21*106 

0 

DAS 

TIMEHOLD 

TIME  OF  NOMINAL  MIDPOfFJT. 

222  6 

REF 

1 18 

LAST 

550 

25,3143 

3 4755 

1 

CAF 

ZERO 

222  0 

REF 

76 

LAST 

544 

25,3144 

54  001 

1 

TS 

L 

223r 

RFF 

3 

LAST 

49  4! 

25, 31 45 

53' 102 

1 

DXCH 

SAMPL SUM 

2231 

REF 

2 

LAST 

537 

25,3146 

1 2366 

1 

TCF 

ROADBACK 

2232 

25,3147 

00230 

0 

DGB1TS 

OCT 

230 

G AP  : 


ASSEMBLE  RE  VISION  OOl  CE  AGC  PROGRAM  AP11R0PE  BY  EYL.ES 


P 2 2 3 3 

K 2234 

223  c 
2236 


P20 -P25 

RADAR  RUPT  READER 

THIS  ROUTINE  STARTS  FROM  A RADAR  UP T • IT  LEADS  THE  DATA  $ LOTS  MO 

PER  2 LAST  «1  25,2000  SET  LOG  RAPARUPT 

25,3150  BANK 


223-7 

REF 

2 

L AST 

41  TO 

41  : 

9 

; 

3 

9 C „ ^1  r:  A 

...  Q 

00  04 

<L  C * < 

223Q 

PEF 

10 

LAST 

45  6 

25,3151 

04  007 

1 

2240 

ref 

3 

LAST 

2 54 

25,3152 

54  016 

1 

25,316  3 

0 

0006 

c.  c.**  I 

2242 

REF 

3 

LAST 

254 

25,3154 

22 

012 

1 

2243 

REF 

8 

LASI 

503 

,2  5 , 3 15  5 

3 

4757 

0 

2244 

25,3156 

0 

0006 

1 

225  5 

REF 

10 

LAST 

5 54 

25 , 3157 

02 

1 013 

1 

orrc 

p 

LAST 

107 

26, 0160 

6 6 

*335 

c.  c **  r 

nrC  r 

2247 

25,3161 

0 

0006 

1 

2248 

REF 

1 

25,3162 

1 

3 1 £ 6 

1 

2249 

REF 

1 

25,3163 

3 

0046 

0 

226'- 

REF 

3 

1 AST 

555 

25,3164 

51 

•335 

0 

226  1 

REF 

4 

LAST 

196 

25,3165 

55 

’332 

0 

2252 

REF 

3 

LAST 

5 54 

26,3166 

11 

• 100 

0 

2253 

REF 

1 

" 1 

l 

32  1 1 

1 

2254 

REF 

1 

25,3170 

1 

3174 

1 

2255 

REF 

23 

LAST 

543 

25,3171 

0 

5567 

0 

2256 

25,3172 

0 C 6 2 0 

0 

2257 

REF 

16 

l AST 

260 

25,317? 

0 

5270 

1 

2258 

PEF 

3 

LAST 

280 

25 ,3174 

3 

0 1 0 7 

1 

2259 

REF 

3 

LAST 

280 

25, 3175 

7 

4735 

0 

22  6 C 

J R . 5 1 7 A 

n 

rn  n a 

1 

1 - U v-  O 

1 

2261 

R EF 

1 

25,3177 

1 

32  0 6 

1 

2262 

PEF 

10 

LAST 

3 7 4 

25, 32oo 

4 

0077 

0 

2263 

REF 

4 

LAST 

277 

25,3201 

7 

4743 

1 

2264 

25,3202 

0 

0006 

1 

221 

REF 

2 

LAST 

555 

25,3203 

1 

32  06 

1 

226' 

REF 

24 

LAST 

55  5 

25 , 3204 

0 

5567 

0 

2267 

25,3205 

00521 

1 

2268 

REF 

70 

LAST 

554 

25,3206 

4 

4753 

0 

2269 

REF 

4 

LAST 

555 

25,3207 

55 

• 100 

0 

2270 

REF 

2 

LAST 

546 

25, 3210 

0 

3560 

1 

2271 

REF 

5 

! AST 

c,  c r 

2C  ,3211 

55 

>100 

0 

22  7,? 

RFF 

26 

LAST 

5 5 6 

25,3212 

3 

47  8 1 

0 

2273 

25,3213 

0 

0006 

1 

22  74 

REF 

1 1 

LAST 

5 55 

25,3214 

02 

013 

1 

2275 

25, 3215 

0 

0006 

1 

COUNT*  t $/RRUPT 
RADAR  EAD  EXTEND 

RCR  SUPER BNK 
TS  BANKRUPT 

EXTEND 

OXCH  QRUPT 


CAP 

EXTEND 

RAND 

TS 

EXTEND 

BZF 

CA 

INDEX 

TS 

T RYCOUNT  CCS 
TCP 
TCF 
TC 
OCT 
TC 


SEVEN 

CHAN  I 3 
DM  NO  EX 


TRYCOUNT 

RNRAD 

ONINDEX 

DNP RANGE 

SAMPL IM 

PLENTY 

NOMORE 

ALARM 

520 

RESUME 


NOMORE  CA  FLGWRD1 1 

MASK  LRBYBIT 

EXTEND 

BZF  BADFAD 

CS  FLAGWPD3 

MASK  ROAFLiTT 

EXTEND 

BZF  BADRAD 


BADRAp 


PLENTY 


TC  ALARM 

0 C T 521 

CS  ONE 

TS  SAMPLIM 

TC  RC8ADEND 

TS  SAMPLIM 

CAF  BIT3 

EXTEND 

RAND  CHAN13 

EXTEND 


3:  15  DEC 


PAGE 


555 


. 2,1970  LEMP20S  .127 
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MUST  SAVE  SBANK  BECAUSE  OF  RUPT  EX 
VIA  TASKOVE'  (8ADEN0  OR  GOODEN D. 


TS 


IF  RADAR  S E L EC T BITS  ZERO, DO  NOT  STORE 
DATA  FOP  DOWNL 1ST  (ERASABLE  PROBLEMS) 


1 


IS  LRBYPASS  SET? 


NO.  F 1 2 T S ON  — BYPASS  521  ALARM. 
CHECK  RC4FLAG. 

IF  1, R04  IS  RUNNING.  DO  NOT  ALARM- 

P20  Hants  tef  alarm. 


2 


TO  FIND  OUT  WHICH  RADAR 


GAP:  ASSEMBLE  RE  VI ‘ 3!  001  OF  \GC  PFCG  AM  AP11RDPE  BY  PYLES 


L 

820- 

P25 

2276 

REF 

1 

2277 

REF 

1 

227? 

RFF 

8 0 

LAST 

2279 

2280 

PEF 

1 1 

LAST 

2281 

REF 

37 

LAST 

2232 

2283 

REF 

1 

2?.c. 

RFF 

2 5 

LAST 

22?5 

22 

RFF 

3 

LAST 

2287 

REF 

1 

22?  P 

2289 

RFF 

12 

LAST 

2290 

r EF 

2 

LAST 

2291 

2292 

RFF 

1 

22  93 

P EF 

1 1 

LAST 

2294 

REF 

2 

LAST 

22°5 

PEF 

1 

2296 

REF 

77 

LAST 

2297 

REF 

3 

LAST 

2298 

229° 

RFF 

27 

LAST 

2300 

R FF 

7 

LAST 

2301 

REF 

25 

LAST 

2302 

REF 

1 

A 23C  3 

25,3216 

1 

3276 

0 

25, 3217 

0 

33o4 

0 

552 

25,3220 

3 

01  1C 

1 

2 * , 22  21 

0 

0006 

1 

554 

25, 3222 

06 

033 

1 

4-6  2 

25,3223 

7 

4746 

1 

25,3224 

0 

C006 

1 

25,3225 

1 

3231 

0 

555 

25,3226 

0 

c 567 

0 

25,3227 

( nxoy 

1 

555 

25,3230 

0 

3206 

0 

25,3231 

3 

6245 

25, 3232 

0 

0006 

1 

555 

25,3233 

06 

Cl  3 

0 

^ 

25, 3234 

7 

62  45 

0 

25 , 3235 

0 

0006 

1 

25,3236 

1 

3272 

1 

525 

25, 3237 

3 

4733 

1 

555 

25,3240 

7 

0046 

1 

25,3241 

6 

2000 

0 

554 

25,3242 

54 

001 

1 

*56 

25,3243 

30 

046 

0 

25,3244 

6 

0000 

1 

327 

25,3245 

7 

4733 

0 

258 

25 , 3246 

*2 

0 64 

1 

524 

25,3247 

3 

4744 

1 

25,3250 

0 

3442 

0 

BZF  RENDRAD 

TC  R77CHECK 

L P PC'  S Aijsse* w\;p'  OTt-L 

(Y  extend  j 

V rXir  CHAN3j>>^ 

^ J A L rV-FT^i 

EXTEND 

BZE  VELCHK 

TC  ALARM 

OCT  522 

TC  BADRAD 

VELCHK  CAF  BIN3 

EXTEND 

RXOF  CHAN  13 

MASK  BIN3 

EXTEND 

BZF  LRHEtGHT 

CAF  POSMAX 

MASK  RNRAD 

AD  LVEL3I AS 

TS  L 

CAF  RNRAD 

DOUBLE 
MASK  B IT  1 

DXCH  ITEMP3 

CAF  BIT8 

TC  DGCHECK 


2304 

REF 

2 

LAST 

5 54 

2 r , 325  1 

11  ' 111 

0 

CC  S 

NSAMP 

2305 

REF 

1 

25,3252 

0 3262 

1 

TO 

NO  END 

2306 

REF 

71 

LAST 

555 

25 , 3253 

4 47  53 

0 

GOCDRAD 

cs 

ONE 

230"’ 

RFF 

6 

LAST 

555 

25,3254 

55*100 

0 

TS 

S AMPL I M 

230  3 

REF 

19 

LAST 

544 

2 5 , 32  55 

4 0061 

1 

CS 

ITEMP1 

2309 

REF 

81 

LAST 

5 56 

25  , 3256 

7 0110 

0 

MASK 

R AD MODES 

2310 

REF 

82 

LAST 

556 

25,3257 

54  110 

0 

TS 

R ADMODFS 

2311 

0 EF 

1 

25,3260 

0 3616 

0 

TC 

RAOL IT F S 

2312 

REF 

2 

LAST 

532 

25,326  1 

0 3553 

1 

TC 

R GOOD END 

2313 

REF 

3 

LAST 

55  4 

25,3262 

554III 

0 

NOEND 

TS 

NSAMP  , 

23  1 * 

R tF 

7 

LAST 

5 5 6 

25,3263 

11 ' 100 

0 

RESAMPLE 

CCS 

SAMPLI M 

2315 

25,3264 

1 32  66 

1 

tcf 

+ 2 

2316 

RFF 

1 

25,3265 

1 3461 

0 

TC  F 

OAT  A FA  I L 

2317 

REF 

24 

l AST 

55  1 

25,3266 

3 4750 

1 

CAF 

BIT4 

2318 

25,3267 

0 C006 

1 

EXTEND 

3:15  DEC.  2,1970  1 EMP20S  .127  PAGE  556 
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R77  QUITS  HERE. 

SEE  IF  LR  IN  DESIFED  POSITION. 


= 00003  OCT 
RESET  ACTIVITY  BIT 

TAKE  A LR  RANGE  READING 


DATA  GOOD  ISN'T  CHECKED  UNTIL  AFTER  READ- 
ING DATA  SO  SOME  RADAR  TESTS  WILL  WORK 
INDEPENDENT  OF  DATA  GOOD. 


WHEN  EN  JUGh  GOOD  DATA  HAS  BEEN  GATHERED, 
RESET  DATA  FAIL  FLAGS  FOR  SETTPKF. 

LAM^S  MAY  GO  OFF  IF  DATA  JUST  GHCD. 

-2 


SEE  IF  ANY  MORE  TRIES  SHOULD  BE  LADE. 

N SAMPLES  NOT  AVAILABLE. 

RESET  ACTIVITY  BIT. 


A 


SAP:  ASSEMBLE  LEV  ISI JN  001  CE  AGC  PROGRAM  AP11R0PF  BY  EYLES 

L P 20-°2  5 

2319  REF  1?  LAST  556  25,3270  05  C13  0 WOR  CHAM3 

2320  REF  17  LAST  555  2r,3271  0 5270  1 TC  RESUME 


2321  FEE  25  LAST 

2322  PEF  20  LAST 


2323  REF  19  LAST 

2324  REF  1 

2325  REF  6 LAST 

2326  REF  83  LAST 

2327  REF  191  LAST 

2328  REF  4 LAST 


488  25,3272  3 4747  1 

55*  28,3273  54  061  1 

331  25,3274  3 4743  0 

25,3275  0 3320  0 

5 52  25,3276  3 4741  1 

5 r-  6 ' 25 ,3277  7 0110  0 

25.3300  10  000  0 

25.3301  1 3206  1 


LRHEISHT  CAF  BITE 

TS  ITEMP1 


CAF  B I T9 

TC  SCALECHK 


RENORAD  CAF  REPOSBIT 

MASK  t AD MODE S 

CCS  A 

TCF  BADRAD 


2329 

REF 

34 

LAST 

2330 

PEF 

6 

LAST 

2331 

RFF 

1 92 

LAST 

2332 

REF 

5 

LAST 

5 5 7 2'  ,33(2  4 01  10  0 

470  25,3303  7 '745  1 

557  28,33 6*  10  COO  0 

557  25,3305  1 3206  1 


CS  LAD MODES 

MASK  RCDUFBIT 

CCS  A 

TCF  BADRAD 


2333  REF  25  L A r T 556  25,3306  3 4750  1 

2334  ~ F f-  21  LAST  557  2 ,3307  54  061  1 


CAF  BIT4 

TS  I TEMPI 


233  r 

PEF 

28 

LAST 

88  6 

25,3310 

3 47  5 3 

1 

233'- 

25,3311 

0 0006 

1 

2337 

REF 

14 

LAST 

5 57 

25,3312 

02  013 

1 

2333 

REF 

164 

LAST 

554 

25, 3313 

5.4  0 02 

1 

2 33° 

REF 

I 9 3 

LAST 

5 67 

25,3314 

10  COO 

0 

2340 

2^,3315 

1 3317 

0 

2341 

REF 

2 6 , ? 3 I 6 

1 0331 

2342 

REF 

26 

LAST 

555 

25,3317 

3 4751 

0 

2343 

RFF 

78 

LAST 

556 

25,3320 

54  001 

1 

2344 

28,3321 

0 C 0 0 6 

1 

2345 

REF 

12 

LAST 

556 

26,3322 

02  033 

0 

2346 

REF- 

79 

LAST 

5 57 

25,3323 

56  001 

0 

2347 

REF 

85 

LAST 

587 

25,3324 

7 01  10 

0 

2348 

25,3325 

0 0006 

1 

2349 

REF 

12 

LAST 

532 

25,3326 

06  CC1 

0 

2350 

RFF 

194 

LAST 

5 57 

25,3327 

10  000 

0 

2351 

1 EF 

1 

25 ,3330 

0 3350 

1 

2352 

RFF 

12 

LAST 

556 

25,  3331 

3 4733 

1 

2353 

REF 

4 

LAST 

5 56 

25 , 3332 

7 004  6 

1 

2354 

REF 

5 

LAST 

258 

25 , 3333 

54  064 

1 

2355 

PEF 

5 

LAST 

557 

26,3334 

30  046 

0 

2356 

25,3335 

6 0000 

l 

2387 

REF 

29 

LAST 

557 

2r ,3336 

7 4753 

0 

2358 

REF 

8 

LAST 

556 

25,3337 

54  063 

0 

CAF  8 IT  1 
EXTEND 

RAND  CHAN  13 
TS  Q 

CCS  A 

TCF  +2 

TCF  P.  AD  IN 

CAF  B I T 3 

TS  L 


S C AL 


KADIN 


RAND 

41CH 

CHAN33 

L — 

MASK  ' 

— FTDMODEi 

EXTEND 

KXGR 

LCHAN 

CCS 

A 

TC 

SC  At  C.HNG 

CAF 

POSMAX 

MASK 

RNRAD 

TS 

ITEMP4 

CAL 

RNRAD 

DOUBLE 

MASK 

Bill 

TS 

ITEMP3 
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RESET  ACTIVITY  BIT 


(POSITION  OF  DATA  GOOD  BIT  IN  CHAN  33) 


MAKE  SURE  ANTENNA  HAS  NOT  GONE  OUT  OF 
L I M T T S • 


BE  SURE  R P CDU  HAS NT  FAILED. 


SEE  IF  D AT A HAS  BEEN  GOOD. 

(POSITION  OF  DATA  GOOD  BIT  I'  CHAR  33) 

SEE  IF  RR  ROOT . 

FOR  LATEP  TESTING. 

MO  SCALE  CHECK  FOP  RP  RDOT . 


SCALE  STATUS  NOW 
SCALE  STATUS  BEFORE 
SEE  IF  THEY  DIFFER 


THEY  DIFFER 


GAP:  A‘  ,E  Bit  r.  Vi  I )i  GO  1 Cl  AGC  J>U,3P  A-  APinCiPE  bV  L YU'  . 


L o?  •-np- 


? 3 : 

REF 

165 

L AST 

5 c 7 

25,3340 

10  002 

1 

2360 

REF 

1 

25,3341 

1 3402 

0 

2361 

25,336? 

0 0006 

1 

236? 

REF- 

1 

2 5, 334  3 

4 2002 

0 

2363 

REF 

9 

LAST 

567 

25, 3344 

20  066 

1 

2366 

REF 

22 

LAST 

557 

25,33^5 

3 0061 

0 

2365 

REF 

2 

LAST 

556 

25,3346 

0 3443 

1 

2366 

REF 

1 

25,3347 

0 32  r 3 

0 

2367 

REF 

86 

LAST 

5 *-7 

25,3350 

22  110 

1 

2368 

R EF 

30 

LAST 

5^7 

25, 3351 

6 6753 

1 

2369 

25,3352 

0 C 006 

1 

2370 

REF 

1 3 

LAST 

5 57 

25,3353 

06  001 

0 

2371 

REF 

87 

LAST 

558 

23 ,3354 

54  no 

0 

2 372 

REF 

? 

LAST 

554 

25,3355 

3 3147 

0 

237  3 

25,3356 

0 C006 

1 

2374 

R EF 

13 

LAST 

557 

25,^357 

02  033 

0 

2375 

REF 

2 

LAST 

554 

25,3360 

55  ' 1 13 

1 

23  7 6 

REF 

30 

LAST 

519 

25,3361 

0 5504 

0 

2377 

REF 

1 

25 , 3362 

0 G 1 2 0 

1 

2378 

R EF 

6 

LAST 

5 57 

25,336  3 

1 3206 

1 

R 237° 

R77 

MUST 

TGNO'E  DATA 

FAILS  SO 

AS  NOT 

TO 

2380 

REF 

16 

LAST 

490 

25,3364 

4 0101 

0 

2381 

REF 

4 

LAST 

490 

25,3365 

7 474  1 

0 

2382 

REF 

195 

LAST 

557 

25,3366 

10  ooc 

0 

238? 

RFF 

166 

LAST 

558 

25,3367 

0 CO 02 

0 

2384 

-EF 

1 

25, 3370 

4 3401 

0 

238  5 

RFF 

88 

LAST 

558 

25,3371 

7 0110 

0 

2386 

REF 

80 

LAST 

557 

25,3372 

54  001 

1 

2337 

REF 

2 

LAST 

558 

25,3373 

3 3401 

1 

2388 

25,3374 

0 0006 

1 

2389 

8 EF 

14 

LAST 

55  8 

25,3375 

02  03  3 

0 

2390 

REF 

6] 

LAST 

6 6 8 

25 , 3376 

6 000 1 

0 

2391 

REF 

89 

LAST 

558 

25,3377 

54  110 

0 

2392 

REF 

3 

LAST 

556 

25,3400 

0 3553 

1 

2393 

25,3401 

002  20 

1 

CCS 

TCF 


0 

SCALAD J 


EXTEND 


DCS 

DASAMPL  DAS 
DGCHECK2  CA 
TC 

re 


K DOT  BIAS 
i TE  MP3 
ITEMP1 
DGCHECK  +1 
GOODRAD 


SCALCHNG  LXCH  PADVi'BFS 

AO  RIT1 

EXTEND 

RXOP  LCHAN 

IS  i ADMOOES 

CAF  DGBJTS' 

( RAND  CHAN  33 

\ S OLOA  AGD^ 

IJ  P F L_AT 

aureT — itrnjnF  l g 

rCF  B ADE  AD 


D! SI  I ft  THE  ASTRONAUT. 


R77CHECK  CS 

HA  SK 


B I TS5 , 3 


FLAGWF.D5 

R77FIBIT 

A 

0 

B I TSC  * P 
-RAD  MOD. 


L 

31TS5,8 

EXTEND 

RAND  CHAf:33 


: ADMPDES 
RGOODEND 
22  0 
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SEE  IF  FR  ROOT. 

NO,  BUT  SCAIE  CHANGING  MAY  BE  NEEDED. 

IF  RR  RANGE  RATE,  THROW  OUT  BIAS. 

SEE  THAT  DATA  HAS  BEEN  GOOD  BEFORE  AND 
AFTEF  TAKING  SAMPLE. 


UPDATE  LAST  VALUE  OF  DATA  GOOD  BITS. 


SET  PNGSCFLG 
F OR  L F $ 2 A . 1 


NOT  R77 

UP DAT  F LR  DATA  GOOD  BITS  I M FADMODES 


GAP  : 


ASSEMBLE  REVISION  GO  1 CF  AGC  PROGRAM  AP1LROPE  BY  EYLES 


2404 

2405 
240f. 
2607 

?40P 


P20-P25 


P2394 

THE 

FOLLOWING  ROUTINE  INCORPORATES  RR 

RANGE 

AND  LR  ALT  SCALE 

23  96 

REF 

82 

LAST 

10  00  1 

1 c C A 1 An  4 

r n C 

§ 5,3 

2 5 , 3 4 0 2 

X j L A X A • ) 

Llo 



L 

2397 

26, 3403 

1 3405 

i 

TCF 

+ 2 

23°  8 

REF 

1 

25,3404 

1 3345 

i 

TCF 

DGC  HECK  2 

2399 

REF 

4 

LAST 

555 

25,3405 

3 1335 

0 

CA 

DNINDEX 

2400 

REF- 

27 

LAST 

557 

25, 3406 

7 4751 

1 

MASK 

9 I T 3 

2401 

REF 

196 

LAST 

558 

2 5 » 34C  7 

10  000 

0 

CCS 

A 

2602 

REF 

1 

25,3410 

1 3417 

1 

TCF 

LR  SCK 

240  -> 

p EF 

10 

! AST 

55  6 

25 ,341  1 

52  054 

1 

DXCH 

ITEMP3 

REF  11  LAST  559 


25.3612 

25.3613 

25.3614 
25,3415 


2 0 0011 
20  001  1 
20  00 1 1 
52  066  1 


R FF 


2 LAST  560  26,3416  1 3345  1 


DDPUBL 

DDOUBL 

DDOUBL 

DXCH 

TCF 


ITEMP3 


0GCHECK2 


2409  REF  12  LAST  559  25,3417  10  063  0 

2410  25,3420  1 3431  0 

2611  EF  6 LAST  557  25,3421  4 0066  1 

2612  REF  1 25,3422  6 3441  0 

2613  26,3423  0 0006  1 

2614  25,3424  6 3431  1 


.F.SCK 


CCS 

TCF 

CS 

AD 

EXTEND 

BZMF 


ITEMP3 

+ 11 

ITEMP4 
HISCALJ  N 

+ 5 


2415 

REF 

4 

LAST 

555 

25,3425 

2416 

REF 

1 

25, 3426 

2417 

REF 

5 

LAST 

559 

25,3427 

241  8 

7 nr  7 /.  % a 

C.  f 

2419 

REF 

2 

LAST 

559 

25, 3431 

2620 

REF 

6 

LAST 

5 59 

25 ,3432 

242  I 

REF 

7 

LA5T 

55  9 

25,3433 

2422 

25,3434 

2423 

P EF 

13 

LAST 

559 

25,3435 

2424 

25,3436 

242  5 

25,3437 

26?  6 

PFF 

1 

25, 3440 

2427 

26,3441 

4 0107 

7 4751 

26  107 

1 3434 

4 4751 

0 

1 

0 

o 

CS 

MASK 

ACS 

Tf  F 

FLGWFD1 1 
SCABS  1 T 
FLGWPD11 

+•  A. 

1 

cs 

SCABRIT 

7 0107 

0 

MASK 

FLGWRD1 1 

54  107 

0 

TS 

FLGWPD1 1 

0 0006 

1 

EXTEND 

3 00  64 

0 

DC  A 

ITEMP3 

20  001 

1 

DDOUBL 

20  001 

1 

DDOUBL 

1 3344 

0 

TCF 

DASAMPl 

00714 

0 

HISCALIM  DEC 

460 
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INFORMATION  ANO  LEAVES  DATA  AT  LO 

L HAS  SCALE  INBIT  FOP  THIS  RADAR 
ON  HIGH  SCALE. 


S3 

SCALE. 


2481.7  FT  ***************************** 


GAP:  ASSEMBLE  REVISIT'!  001 

L P20-P25 


25  2 3 

REF 

23 

LAST 

558 

242° 

2430 

REF 

15 

LAST 

558 

2431 

REF 

83 

LAST 

559 

243? 

REF 

24 

LAST 

56  0 

2433 

PtF 

3 

LAST 

5 5 8 

2434 

REF 

84 

LAST 

560 

2435 

REF 

4 

LAST 

560 

2436 

REF 

25 

LAS  i 

5:60 

24  3 7 

REE 

85 

LAST 

5b0 

243  8 

REF 

197 

LAST 

559 

2439 

REF 

1 

2440 

REF 

14 

LAST 

559 

244  1 

REF 

4 

LAST 

554 

2442 

REF 

167 

LAST 

558 

244? 

RFF 

26 

LAST 

560 

2444 

ti  p p 

90 

LAST 

55  8 

2445 

REF 

27 

LAST 

560 

2446 

RFF 

91 

LAST 

560 

2447 

R Fc 

1K 

LAST 

560 

2448 

REF 

5 

LAST 

560 

2449 

REF 

2 

LAST 

556 

2450 

REF 

2 

LAST 

555 

AGO  PROGRAM  APllKQPE  BY  E YLES 


3442 

54  061 

1 

DGCHECl^ 

3443 

0 0006 

1 

£XTEI\ 

3444 

02  033 

o 

1 A !'  D 

3445 

54  001 

1 

TS 

3446 

4 0061 

1 

_C5 

3447 

7 1113 

1 

MASK 

3450 

6 0001 

0 

AD 

345  1 

57*113 

0 

XCH 

3452 

7 0061 

1 

MASK 

345  3 

6 0001 

0 

AD 

3454 

10  COO 

0 

CCS 

34*5 

0 3263 

0 

TC 

3456 

5 2 064 

1 

DXCH 

3457 

21  • 102 

1 

DAS 

3460 

0 C0C2 

0 

TC 

346  1 

4 0061 

1 

DATAFAit 

cs 

34f  2 

7 01  10 

0 

MASK 

3463 

6 0061 

0 

AD 

3464 

54  110 

0 

TS 

346  5 

52  0 64 

1 

DXCH 

346  6 

33*1 02 

1 

DXCH 

3467 

0 3616 

0 

TC 

3470 

1 3174 

1 

TC  F 

OF  , 

25 

25 

25 

2 5 

25 

2 5 

25 

25 

2 5 

25 

2 5 

25 

25 

25 

25 

25 

2 5 

25 

25 

25 

25 

25 

25 
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560 


CHAN 3 3 


1 TEMPI 


DAT  AGO 


0L DAT AGD 


I IEKP1 


o ESAMPl.E 
ITEMP3 
S AMPLSUM 
Q 


USER'S  PAGE  NO.  69  E7  S3 

UPDATE  DATA  GOOD  BIT  IN  OL  DAT  AGD  AND 
MAKE  SURE  IT  WAS  ON  BEFORE  AND  AFTER  THE 
SAMPLE  WAS  TAKEN  BEFORE  RETURNING.  IF 
NOT,  GOES  TO  RESAMPLE  TO  TRY  AGAIN.  IF 
MAX  NUMBER  OF  TRIES  HAS  BEEN  REACHED, 

THE  BIT  CORRESPONDING  Tn  THE  DATA  GOOD 
WHICH  FAILED  TO  APPEAR  IS  IN  ITEMPI  AND 
CAN  BE  USED  TQ  SET  RADMODES  WHICH  VIA 
SETTRKF  SETS  THE  TFACKER  FAIL  LAMP. 

SHOULD  BOTH  BE  ZERO. 


IF  DATA  GOOD  BEFORE  AND  AFTER,  ADD  TO 
ACCUMULAT ION  . 


ITEMPI  IN  THE  ABOVE  CASE,  SET  F'AOMODES  BIT 

RAOV  (DES  SHOWING  SOME  RADAR  DATA  FAILED. 

ITEMPI 

RADMODES 


ITEM  P.3  IF  WE  HAVE  BEEN  UNABLE  TO  GATHER  N 

SAM  PI.  SUN  SAMPLES,  USE  LAST  ONE  ONLY. 


RADLJTES 

NOMORE 


GAP:  ASSEMBLE  REVISION  001  QF  AGC  PROGRAM  AP11R0PE  BY  EYLES 


L P20-P25 

p 245 1 THIS  ROUTINE  CHANGES  THE  LP  POSITION,  AND  CHECKS  THAT  IT  GOT  THERE 


2452 

REF 

2 

LAST 

526 

25,2000 

2453 

25,3471 

245* 

REF 

2 

LAST 

c26 

TO  c5  5 : 

566  566 

2455 

25,3471 

0 0004 

0 

2456 

RFF 

92 

LAST 

560 

25, 3472 

4 0110 

0 

2457 

REF 

1 

25,3473 

, l 

1 

2468 

REF 

°3 

EAST 

561 

25,3*74 

26  110 

0 

2459 

REF 

24 

LAST 

511 

25,3479 

3 4745 

0 

24  60 

25,3476 

0 0006 

1 

24ol 

REF 

1E> 

LAST 

560 

25,3477 

02  033 

0 

246  2 

25,3500 

0 0006 

1 

2463 

REF 

2 

LAST 

5 37 

25 , 3501 

1 3530 

0 

246* 

REF 

23 

LAST 

424 

25,3502 

3 4737 

0 

2465 

25,3503 

0 0006 

1 

9/, 

D CC 

i art 

9 e „ 9 c:  n a 

OR  0 1 2 

I 

H OC 

• l r 

j 

L M 

->  J I 

c.  ■ f y j v 

V ' J.  c. 

2467 

REF 

1 

25 , 3506 

3 3545 

0 

2468 

REF 

22 

LAST 

SA1 

25,3506 

0 c203 

0 

01  A Q 

p r c 

0 7 

| ACT 

s s ? 

p-  . 1 / c,  ! 

p,  c r 

C.  1 

L o o ' 

C f 1 . • J \J 

2470 

REF 

1 

25,3507 

03543 

0 

2470 

REF 

1 

25,3510 

52067 

1 

2471 

REF 

3 

LAST 

....  5 74 

25, 3511 

0 2 3 66 

0 

2472 

REF 

8 

LAST  , 

536 

25,3512 

5 5 * 1 00 

0 

2473 

RFF 

Q v 

L ART 

546 

25, 35  1 3 

n 62  21 

0 

2474 

25,3514 

00144 

0 

2475 

REF 

25 

LAST 

561 

25,3515 

3 4745 

0 

2476 

25,3516 

0 OC  06 

1 

2477 

REF 

17 

LAST 

56  1 

25,3517 

0 2 0 33 

0 

2478 

25,3820 

0 0006 

1 

2*79 

RFF 

1 

25,3521 

1 3535 

0 

2*80 

RFF 

LAST 

561 

25  ,3522 

1 1 ' 1 00 

0 

2*81 

REF 

1 

25,3523 

1 3512 

0 

2*8  2 

RFF 

24 

1 AST 

561 

25 , 352* 

4 4737 

1 

248  3 

25,3525 

0 0006 

1 

2484 

REF 

36 

LAST 

561 

25,3526 

03  012 

1 

2485 

REF 

3 

LAST 

555 

25,3527 

1 35  o2 

1 

248  6 

REF 

72 

1 AST 

55  6 

28,3530 

3 *7  53 

1 

2*87 

PEF 

23 

L AST 

c 6 1 

25, 353) 

0 5 2 03 

0 

2488 

RFF 

28 

LAS" 

561 

F7, 1456 

2489 

REF 

4 

LAST 

558 

25 , 3532 

03555 

1 

248  9 

25 ,3533 

52067 

1 

SETIGC  P20S1 
BANK 

COUNT  * 5 t/P  SUB 
LRP0S2  INHINT 


CS  R AOMODE, S 

MASK  LP-POS  BIT 

ADS  RADWQDES 


CAF  BIT13 
EXTEND 

WGI  CHAN 12 

CAF  6 SEC  S 
TC  WAIT!  1ST 

E B A is!  K = ioSCOUUT 
2C.ADR  LRPOSCAN 

TC.  R0AD3ACK. 


!.  ■ Di.'S'!XT  TS  SAMPLIM 

TC  FIXDELAY 

DEC  100 


CCS  SAMPLIM 
TC  F L R ° 0 S M X T 


CS  3 I T 1 3 

EXTEND 

WAND  CHAN12 
TC  F ROB ADEN D 


KADMOOP  CAF  ONE 

TC  WAIT!  I ST 
EB ANK=  LOSCOUNT 
2CADR  R GOOD END 
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SHOW  DESIRED  LR  POSITION 


I«  2 


SEE  IF  ALREADY  THERE. 


COMMAND  TO  PUS  I 
START  SCANNING 


TION  2 

FOR  INBIT  AFTER 


7 SECS . 


SCAM  ff  CE  PEE  SECOND  15  TIMES  MAX  AFTER 
INITIAL  DELAY  OF  7 SECONDS. 

SEE  IF  LR  P0S2  IS  ON 

IF  THERE,  WAIT  FINAL  SECOND  FOR  BOUNCE. 
SEE  IF  MAX  TIME  UP. 

IF  TIME  UP,  DISABLE  COMMAND  AND  ALARM. 


1:0  FURTHER  ACTION  REQUESTED 


AP: 

ASSEMBLE  RE 

VIST 

3K  001 

OF  A GC  Pi 

UGRAM  Af 

'll 

ROPE  BY  E) 

f'LES 

P20- 

P 2 5 

2490 

REF 

4 

LAST 

56  1 

25,3534 

0 2366 

0 

TC 

ROADBACK 

24  91 

REF 

3 

LAST 

507 

25,3535 

3 5000 

1 

LASTLRDT 

CA 

2SEC.S 

2492 

- EF 

3 

LAST 

16  5 

25,3536 

0 52  24 

0 

TC 

VAi;  DEI  AY 

2493 

REF 

2* 

LAST 

*61 

2* , 3537 

4 473  7 

1 

CS 

B I T 1 3 

2494 

25,3540 

0 0006 

1 

EXTEND 

2495 

REF 

37 

LAST 

561 

25,354  1 

03  012 

1 

WAND 

CHAN12 

2496 

REF 

. 5 

LAST 

561 

25,3542 

1 3555 

0 

TCP 

RGQODEND 

2497 

r Ff 

1 

25,3543 

3 a3]7 

0 

LR POSC AN 

CAF 

FOURTEEN 

240  R 

P EF 

2 

LAST 

561 

25,3644 

1 35  12 

0 

TCP 

LRPOSNXT 

2490 

26 , 3545 

01130 

1 

6SECS 

DEC 

600 
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2,1970 
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WAIT  TWO  SECONDS  AFTER  RECEIPT  OF 
TO  WAIT  FOR  ANTENNA  BOUNCE  TO  DTE 

PENOVF  COMMAND 


S 3 


INBIT 

OUT. 


SET  UP  FOR  15  SAMPLES 


GAP: 


ASSEMBLE  IE  VISION  001  OF  ASC  PROGRAM  AP11RGPE  BY  EYLES 


L P20-P25 

P ' SEQUENCES  TO  TERMINATE  R R OPERATIONS. 


2501  KEF  7 LAST  >57  25,3546  3 4745  0 ENDRADAR  CAR 


2502  RFF  94  LAST  Sol  25,3547  7 0110  0 MASK 

2503  REF  198  LAST  560  25,3550  10  000  0 CCS 

2504  ref  6 last  552  2#,  fs'5 1 1 3555  0 tcf 

2505  REF  4 LAST  561  25,3552  1 3562  1 TCF 

2506  REF  119  LAST  554  25,3553  4 4755  0 -2  CS 

2507  REF  2 LAST  100  25,3554  §4  734  0 TS 


2508 

7 Rn  o 

PEF 

opr 

35 

a 7 

LAST 

1 A <T 

5 A ] 

25,3555 

p C,  ^ 15  t, 

3 4752 
0 4 6 3 5 

c.  ' v. ' 

2510 

REF 

D 1 

2 

LnO  1 

LAST 

7 I T* 

245 

25,3557 

17665 

R GOODEND  CAF 

TC 

CADR 


2511 

2512 

2513 

2514 

2515 


REF 

120 

LAST 

563 

PEF 

3 

l AST 

563 

REF 
c FF 

36 

3 8 

1 

l A r T 
LAST 

5 6:3 
56  3 

c EF 

2 5 . 3560  4 4,55  0 

25.356 1 54  734  0 

25.3562  3 4752  0 

25, 3543  n 4635  0 
25,3564  17662  0 


-2  CS 

TS 

FOB ADEN D CAF 
TC 

CADR 


2516 


REF  18  LAST  509  6245 


BIN3  EQUALS 


R COUFB  I T 
RADMODES 
A 

PGrnrjEMD 

rcbadInd 

ZERO 

RUPTAGN 

TWO 

DCST  JUMP 
GOODEND 

ZERO 

RUPTAGN 

TWO 

DC5ST  JUMP 
8ADEND 

THREE 


3:15  DEC 


2,1970  LEMP20S  .127  PAGE  563 


USER’S  PAGE  NO.  72  E7  S3 


PROLOG  TO  CHECK  RR  CDU  FAIL  BEFORE  END. 


R GOODEND  WHEN  NOT  UNDER  WAITLIST  CONTROL 


R D8 ADEN  D WHEN  NOT  UNDER  WAITLIST. 


GAP: 

L 

P2517 
R 25 1 8 

R 2 5 1 '? 

R 252  0 
R 2522 
R 2524 


P 2 52c 
P 2526 

R 252 7 
R 252  8 

R 2527 


P 2530 


R 253  1 


R 2^3  2 

R 2533 
R 2534 
R 253  5 

R 2536 

R 2 5 3 7 
R253R 

P 2539 
P 2540 

2541 

2542 

2543 


3:15  DEC.  2,1970  LEMP20S  .127  PAGE  564 
USER'S  PAGE  NO.  73  E7  S3 

PROGRAM  N AM  E_  LPS20.1  VECTOR'  EXTRAPOLATION  AND  LOS  COMPUTATION 
MOD.  NO . 2 BY  J.D.  COYNE  SDC  DATE  12-7-66 

FUNCTIONAL  DESCRIPTION- 


ASSEMBLE  EV1SI.N  Tul  Of  A ,C  P ■ 1 G 7 A M ApJLlAO%E  BY  LYLES 
P20-P25 


1)  EXT  APCLATE  THE  I E AND  CE  VECTORS  IN  ACCORDANCE  WITH  THE  TIME  REFERED  TO  TN  CALI  ER  + 

2)  COMPUTES  THF  LOS  VECTOR  TO  THE  CSM,  CONVERTS  IT  TO  STABLE  MEMBER  COORDINATES  AND  STORES 

3)  COMPUTES  THE  MAGNITUDE  OF  THE  LOS  VECTOR  AND  STOLES  IT  IN  MLCSV 


IT 


IN  RRTARGET. 


CAL!  INC  SEQUENCE  CALL 

LPS20. 1 


SUBROUTINES  CALLED. 
LEMP»EC,CSMPREC 


NORMAL  EXIT.  RETUR'I  TC  CALLED  + 2 
FT'  r FXITS-  NOME 


ALARMS-  NONE 

OUT  PUT  _ 

LOS  VECTOR  (HALF  UNIT)  IN  SM  COORDINATES  STORED  IN  RRTARGET 
MAGNITUDE  CF  THE  LOS  V ( ( ME  T I 'CAL  ED  B-29)  STORED  IN  MSLOV 

RRMBSW  CLEARED 

INITIALIZED  ERASFABIE 

TUEC1  MUST  CONTAIN  THE  TIME  FDR  EXTRAPOLATION 
SEE  ORBITAL  INTEGRATION  ROUTINE 

DEBP  I S_ 

MPAC  DESTROYED  BY  THIS  ROUTINE 


REF 


2 3,2514 
24, 2000 
24,3255 


BANK  23 
SETLOC  P20S 
BANK 


4 


LAST 


5 16 


GAP: 


ASSt-MBLE  Rfc  VISI3I  001  1 AGC  PI  ..ORAM  APURUPE  BY  EYLES 


2544 

2545 

2546 

254  7 

2548 

2549 

2550 

255  1 
255? 
2553 


P20-P25 

REF  1 


REF  3 LAST 
REF  8 LAST 
REF  1 


5 00 
551 


REF 

REF 

REF 


LAST  500 


3 LAST  487 


24 . 3255 

24. 3256 

24.3257 

24.3260 

24.3261 

24.3262 
24,32  63 

24. 3264 

24.3265 


43020  1 
01757  0 
013.3  1 
51264  0 
77614  1 
04307  1 
,512  74  1 
77626  1 
27100  0 


2554 

24,3266 

77775 

1 

2555 

REF 

5 

LAST 

487 

24,3267 

0CC01 

0 

2556 

REF 

3 

LAST 

500 

24, 3270 

26352 

1 

2557 

RLE 

1 

24 ,327  1 

CGCC7 

0 

2558 

REF 

3 

LAST 

500 

24, 3272 

14360 

0 

?5C« 

RFF 

5 

t AST 

493 

26,3273 

00015 

0 

2660 

P FF 

1 6 

LAST 

518 

24,3274 

36041 

0 

2561 

RFF 

2 

LAST 

339 

24,3275 

27066 

1 

2562 

24,3276 

52375 

1 

2563 

p 

1 ART 

9A  6 

P4. 3277 

fi.no.  n 7 

n 

: t 1 

••• 

ATf  J C.  1 1 

V.  » V > V f 

2564 

REF 

4 

LAST 

565 

24,3300 

02360 

0 

256  5 

24,3301 

765  21 

0 

2566 

REF 

3 

LAST 

487 

24,3302 

01736 

0 

2567 

24,3303 

77776 

1 

256° 

REF 

6 

LAST 

552 

24,3304 

0 6027 

1 

2570 

RFF 

3 

LAST 

552 

24,3305 

52602 

1 

257  1 

F FF 

48 

LAST 

6 5 ] 

24 , 330  6 

0 6 03” 

0 

2572 

REF 

4 

LAST 

5C  1 

2.6 ,3307 

2 5761 

0 

2573 

RFF 

LAST 

66  6 

24,331-0 

OOOO  1 

n 

u 

2574 

24,3311 

43051 

1 

2576 

RFF 

4 

LAST 

565 

24, 3312 

02352 

I 

2576 

RCF 

3 

1 AS-J 

49  5 

24,3313 

C035G 

1 

2577 

REF 

I 

24,3314 

5 13  21 

0 

2578 

24,3315 

776  04 

0 

?579 

RFF 

1 

24,3316 

57753 

1 

2580 

24,3317 

77661 

0 

2581 

24,3320 

20212 

1 

2563 

24,3321 

41056 

1 

25835 

IFF 

1 

24,3322 

50102 

1 

2684 

26,3323 

76521 

0 

2585 

PEF 

9 

LAST 

566 

26, 3324 

01734 

0 

2586 

REF 

10 

LAST 

65  1 

24,3326 

15  102 

0 

2587 

26,3326 

00045 

0 

2568 

RLF 

4 

LAST 

552 

24, 3327 

Q17&7 

0 

258P 

24,3330 

776  16 

1 

25°0 

REF 

5 

LAST 

5 50 

24,3331 

00231 

1 

2691 

EF 

4 

l AST 

56  5 

24 ,3332 

01757 

0 

LPS20. 1 


L M TM 


C S « •-,  I r-  - 


NOT  SHI  FT 


COUNT  * 
STQ 

BON 

CAL  L 
VL  OAO 
STOVL 
STOOL 
STCALL 
V L 0 A 0 

MXV 

EX  IT 
TC 

CADR 

TC 

STOVL 

VSU 

BO  VB 

VSL 

UNIT 

MXV 

STOOL 

STORE 
CL  ft  GO 


3: 15  OEC 


LEMP20S  .127  PAGE  565 


..I 


. 2,1970 

USER  * S PAGE  NO.  74  E7  S3 


$$/LPS20 

BOFF 

LS21X 

LOSCMFLG  LOSCMFLG  = 0 MEANS  NOT  CALLED  BY  R21 

L MI  NT  30  CALL  LEMCONIC  tq  GE7  t.M  ST  ATE 

IF  IN  P 2 1 AND  ON  LUNAR  SURFACE 
SURFFLAG  DON'T  CAM.  LEMCONIC 

CBM  I NT 

LEMCONIC  EXTRAPOLATE  LEM 


R ATT 

LMPOS  SAVE  LM  POSITION  B-29 

VATT 

LMVEL  SAVE  IM  VELOCITY  B-7 

TAT 

TDEC1 

CSMCONIC  EXTRAPOLATE  CSM 

VSU  COMPUTE  RELATIVE  VELOCITY  V(CSM)  - V(LM) 

VATT 

LMVEL 

VSL  I 

PEFSMMAT 

KILLTASK  KILL  THE  TASK  WHICH  CALLS  DODES  SINCE 

DESLOOP  +2  STORING  INTO  ERASEABLES  DODES  USES 

I NT POET 

LOSVEL 

RATT 

BOFF 

LMPOS 

KNDVZFLC 

NOT  SHIFT 

TC0AN7 IG 


9D 

BOVB 

526ALAPM 
VSL  1 

PEFSMMAT 
RRTARGFT 
3 6D 
MLOSV 


IF  QV  Eg  FLOW  , RANGE  MUST  BE  GREATER 
THAN  400  N.  M. 

CONVERT  TT  STABLE  MEMBER 

SAVE  MAGNITUDE  OF  LOS  VECTOR  FOR 
VELOCITY  CORRECTION  IN  DESIGNATE 


RRNBSW 
LS21  X 


GAP: 

ASSEMBLE  RE  VISION  001  OF  ACC  PROGRAM  AP11RGPE  BY  EYLES 

3:15  DEC. 

2,1970 

L EMP  20 S 

.127  PAGE 

L 

P20-P25 

USER 

‘S  PAGE 

NO.  75 

F7  S3 

P 259  2 

R 2593 

PROGRAM  NAME.  LPS20.2  400  NM  RANGE  CHECK 

MOD.  NO.  2 BY  J.D.  COYNE  SDC  DATE  12-7-66 

R 2594 

'FUNCTIONAL  DEI  CRIPTIOi  ,t. 

P 2595 

COMPARES  THE  MAGNITUDE  OF  THE  LOS  VECTOR  Tf  400  NM 

R 2 

R 2597 

CAL  ! ING  SEQUENCE  CALL 

L PS  2 0.2 

R?5C>8  SUBROUTINES  CALLED.  HONE 


R 2 5 9 ° 

NORMAL  EXIT  _ 

RETURN 

TO 

CALLER  +1, 

M DA  C 

EQ  0 

! I ANGE 

4 0 ON M OP 

LESS. ) 

R 2600 

ERROR  EXITS 

RETUR  N 

TO 

CALLER  +1, 

M PA  C 

EQ  1 

( RANGE 

GREATER 

THAN  40  ) 

R 2601  ALARMS.  NONE 


R 2602  OUTPUT.  NOME 


R 2603  INITIALIZED  E'ASEABLF. 

P 2604  PDL  36D  MUST  CONTAIN  THE  MAGNITUDE  OF  THE  VFCTOF 
R 2605  DEBRIS 

R 2606  M P AC  DESTROYED  BY  THIS  ROUTINE 


2607 

PEE 

3 

LAST 

561 

25,2000 

SETLOC 

P20S1 

2608 

25,3565 

BANK 

2609 

REF 

1 

COUNT* 

$$/LPS20 

2610 

25,3565 

4534  5 

1 

LPS20.2 

DLOAD 

DSU 

261  1 

REF 

5 

LAST 

565 

25,3566 

01767 

0 

MLOSV 

MAGNITUDE  OF  LOS 

2612 

REF 

1 

25,3567 

13600 

0 

FHNM 

OVER  400NM 

2613 

25,3570 

77644 

1 

BPL 

2614 

REF 

1 

25,3571 

53574 

1 

TOFAR 

2615 

25,3572 

43535 

0 

SLOAD 

RVO 

2616 

RFF 

1 

2C , 3573 

06522 

1 

ZERC/SP 

2617 

25,357^ 

43535 

0 

T OF  A R 

SLOAD 

RVQ 

2618 

REF 

1 

25,3575 

13577 

0 

ONE/SP 

2619 

25,3576 

00001 

0 

ONE/SP 

DEC 

1 

566 


ASSEMBLE  REVISION  001  OF  AGC  PROGRAM  APllUGPt  BY  EYLES 


3:15  DEC 


2,1570  LEMP20S 


127 


PAGE  567 


P20-P25  USER’S  PAGE  NO.  76  F7  S3 

25,3577  2 6 A 6 7 0 FHNM  20EC  740800  B-20  400  NAUTICAL  MILES  IN  METERS  B-20 

25,3600  00000  1 


GAP : 

L 

P 262  1 
R 262  2 


R 262  3 

R 2624 
R2626 
R 2628 

R 2 6 2 9 


S 2631 


R 2 6 32 

R 263  3 
R 2634 
R263  5 
R 2636 
R 2637 


R 263  8 

R 2640 
R 2642 


R 2644 
R 2646 


P 2648 
R 265  0 

R 26  5 2 

R 2653 
R 265  R 
R 2656 
R 26  57 
R 265  8 


P 2 65° 
R 2660 


ASSEMBLE  REVISION  C01  OF  AGC  PROGRAM  API  If- OPE 


8Y  EYLES 


3:15  DEC.  2 , IS 7 0 LEMP20S  .127  PAGE  568 


.P20-P2  5 


USER'S  PAGE  NO.  77  E7  S3 


PROGRAM  NAME:  LRS22.1  (CATA  'EAD  SUBROUTINE  1) 

MOD.  :.:  1 BY:  P.  VOLANTE  SDC  DATE:  11-15-66 


FUNCTIONAL  DESCRIPT  ICN 


1)  EAD  E DE  IV  ' 1 RANGE  AND  RA NGE-RAT E ,TRUNI ON  AND  SHAFT  ANGLES, THREE  CDU  VALUES  AND  TIME.  CONVERTS  THIS 
DATA  AND  LEAVES  IT  E O’  THE  MEASUREMENT  INCORPORATION  ROUTINE  (LSR22.3).  CHECKS  FOR  THE  RR  DATA  GOOD  DISCRETE, FOR 
RR  REPOSITION  AND  RR  CDU  FAIL 

2)  C 'A  OAF  I.  C :•  i-  ' ‘ Lfv  COMPUTED  F'V  STATE  VECTORS  TO  SEE  IF  THEY  APE  'WITHIN  THREE  DEGREES 


CALLING  SEQUENCE:  BANKCAl I 


FOR  LRS22.1 


SUBROUTINES  CAl LED: 

RRP.DOT  LPS20.1 
RR RANGE  BANKCALL 
RADSTALL.  CDULQGIC 
RRNB  SNOB 

NO  ! A1  EXIT:  RET Ui  N ;0  CALLEP+1  WITH  MPAC  SET  To  +C 


El  01 


EXITS:  RETURN  TO  CAILER+1 


WITH  ERROR  CODE  STORED 


IN  MPAC  AS  FOLLOWS: 


0 0001 -ERR OP.  EXIT  i-PR 
00nr'2-E r OR  EXIT  2-FB 


DATA  NO  GOOD  <N(  ' : DATA  GOOD  DISCRETE  OS  FI 

LOS  NOT  WITHIN  ; H'  EE  DEGREES  OF  L.  OS  COMPUTED 


CDU  FAIL  CF  RR  PEP0SIT1DN) 
FROM  STATF  VECTORS 


ALARMS:  52 1-COULD  NCT  READ  RADAR  DATA  (RR  DATA  GOOD  DISCRETE  NUT  PRESENT  BEFORE  AND  AFTER  READING  THE  RADAR) 

lTHI£  ALA’"  IS.  ISSUED  BY  T HE  1 AD  A.;  E AD  SUBROUTINE  WHICH  IS  ENTER  ED  FROM  A SAD  ARUPT  ) 


r,UT  POT  : P4..-‘SV-€C-  TFfc  L I NF-OF-S  I GHT  VECTi  (USED  BY  tP#'2.?»-A  HALF-  JN  I T VECTOR 

RM-  THE  RR  RANGE  READING (TO  THE  CSM)  DP,  IN  METERS  SCALED  B~29( USED  BY  LRS22.2  AND  LRS22.3) 

ALL  OF  JHE  FOIL! wING  OUTPUTS  APE  USED  BY  LRS22.3: 

P DOT,  - THE  F‘  -ANGE-RATE  READING, DP,  IN  METERS  PER  CENT (SECOND,  SCALED  B-7 

f.  TPIJM-'-  r irU'Oril  ANGLE, DP, IN  REVi  LUTIONS  , SCAL.  ED  BO 

PP.  SHAFT -CP  SHAFT  ANGLE, DP,  IN  REVOLUTIONS, SCALED  BO 

AIG,AMG,AOG-THE  CDU  ANGLES, THREE  SP  WORDS 

MKTIME-THE  TIME  OF  THE  RR  READING, DP,  IN  CE,NT I SECONDS 


ERASABLE  INITIAL  I Z'A  T I • ‘ * 
RNR  AD,  THE  R AD  Af  READ 


> EQUIP  ED: 

COUNTER  FROM  WHICH 


OBTAINED: 


GAP  : 

L 

R 2661 

R 2 6 6 3 

R2664 

R 2665 

266  6 

2667 

266  R 

2669 

2670 

2671 

2672 

2673 

267/ 

2675 

2676 

2677 

267  8 

267Q 

2660 

2681 

2682 

26  8 3 

26 fi  4 

2685 

2686 

2687 

2688 

2689 

2690 

2691 

2692 

2693 

2694 

269t; 

2696 

2697 

2698 

2699 

2700 

2701 

2702 

2703 

2704 


ASSEMBLE  REVISION  001  01  AGC  PROGRAM  AP11P.0PE  BY  EYLeS  3:15  DEC.  2.1870  LEMP20S  .127  PAGE 

P20-P25  USER'S  PAGE  NO.  78  E7  S3 

1IRR  RANGE  SCALED  9.3°  FT.  PER  BIT  ON  THE  LOW  SCALE  AND  78.C4  FT.  PER  BIT  ON  THE  HIGH  SCALE 
2 ) RR  RANGF  R AT  E . SC A!  ED  .6278  FT. /SEC.  PER  BIT 

THE  CDU  ANGLES  FROM  CDUX , CDUY , CDUZ  AND  TIME!  AND  T 1 ME  2 


569 


DEBRIS:  LRS22 . 1 X , A , L , Q , PUSHL I ST 


32,2366 

:FF  2 LAST  41  32,2000 

3 2 , 2766  : 

REF  2 LAST  41  TO  41:  4 4* 


BANK  32 
SETLOC  LRS22 
BANK 

COUNT  * $ $ / L R S 22 


REF  7 
R Ec  3 
REF  51 
REF  2 

REF  28 

REF  IP 
REF  86 
REF  1 

REF  95 
REF  87 
REF  96 

•EF  142 
REF  3 
REF  143 
r:  E F 

REF  1 


LAST  543 
LAST  504 
LAST  651 
L ART  68g 

LAST  559 

LAST  541 
LAST  5 c 0 

LAST  563 
LAST  569 
LAST  569 

LAST  552 
LAST  807 
LAST  569 
LAST  509 


32.2366 

32.2367 

32. 2370 

32.2371 

32.2372 

32.2373 

32.2374 

32. 2375 

32.2376 
32, 2 3 R 7 

32 . 2400 

32.2401 

32.2402 

32 . 2403 

32.2404 
32, 2495 

32 . 2406 

32. 2407 
32,2410 


0 46-:  > 1 
55 '7  37  1 
0 5516  0 
00120  1 
0 0004  0 

3 4751  0 
0 C0U6  1 
02  033  0 

( ) 1 1 

4 4751  1 
7 0110  0 
6 0001  0 
54  110  0 
0 0003  1 
0 6 6 1 : 1 

53103  0 

0 4616  1 
17714  0 

1 2542  1 


LRS22. 1 


MAKECADI 
LRS22.1 X 
OGWNF  LAG 
D NGSC  FL  G 


TS  RAUMUDES 

REL INT 

; f AD.  D'.'l  TC  BANKCALl 

CADR  P PR DOT 

TC  BANKCA! t 

CADR  RADSTALL 

TC  F EREXIT1 


GET  RF  RANGE  SCALE 
FROM  CHANNEL  33  BIT  3 


r E AD  RANGE-PATE  {OME  SAMPLE ) 

WAIT  FOR  DATA  READ  COMPLETION 
COULD  NOT  READ  RADAR-ERROR  EXIT  1 


32,2411 

O 

O 

O 

O 

4> 

0 

INHINT 

NO  INTERRUPTS  WHILE  R FADING  TJME  AND  CDU 

PEE 

6 

LAST 

5 c:  A 

32,241 2 

83' 106 

0 

DXCH 

TI ME H 9 ID 

SET  MARK  TIME  EQUAL  TO  THE  Mft-PCINT 

REE 

240 

LAST 

551 

32 ,2^13 

52  162 

0 

DXCH 

MPAC  +5 

TFMP 

BUFFER  FOR  DOWNt  INK 

REF 

6 

LAST 

560 

32,2414 

53'  102 

1 

DXCH 

SAMPLSUM 

SAVE 

PANGE-PATE  READING 

REF 

3 

LAST 

146 

32, 2415 

53' 747 

0 

DXCH 

RDCTMSAV 

32,2416 

0 CO 06 

1 

EXTEND 

REF 

2 

L A S T 

2 5/; 

3 2 , 24  1 7 

3 0034 

0 

DC  A 

CDUY 

SAVE 

I CDU  ANGLES 

REF 

241 

LAST 

569 

32 , 2420 

52  160 

1 

DXCH 

MPAC  +3 

TEMP 

BUFFER  FOR  DOWNLINK 

REF 

10 

LAST 

337 

32 , 242  1 

3 0032 

0 

CA 

CDUX 

RFF 

242 

LAST 

569 

32,2422 

54  156 

1 

TS 

MPAC  +2 

TEMP 

BUFFER  FOR  DOWNLINK 

32,2423 

0 0006 

1 

EXTEND 

REF 

15 

1 AST 

5 54 

32,2424 

3 0 02  5 

0 

DC  A 

TIME? 

SAVE 

TIME 

P EF 

243 

LAST 

569 

32,2425 

52  155 

1 

DXCH 

MPAC 

SAVE 

TIME  OF  COY  READINGS  IN  MPAC 

32,2426 

0 0006 

1 

EXTEND 

REF 

9 

LAST 

548 

32,2427 

3 0036 

1 

DCA 

CDUT 

SAVE 

TRUNION  AND  SHAFT  ANGLES  FOP  RRMB 

REF 

2 1 

LAST 

550 

32 , 2430 

53 ' 1 10 

1 

DXCH 

TANG 

* 


< 


» 


GAP:  AS  SI.  'PL  E itVISILN  061  OF  AX  P-  • -j-AM  APllROPfi  BY  EYLES 


L P20-P? 


2705 

32,2431 

0 0003 

1 

RELINT 

2706 

REF 

144 

LAST 

569 

32,2432 

0 4616 

1 

TC 

BANKCAl L 

2707 

REF 

2 

LAST 

491 

32,2433 

53105 

0 

GAOL 

RRRANGE 

270E 

REF 

145 

1.  AST 

570 

32,2434 

0 4 616 

1 

TC 

BANKCAL 1 

270° 

REF 

9 

LAST 

569 

32 , 2435 

17714 

0 

CADR 

RADSTAI  L. 

2710 

REF 

l 

32,2436 

0 253  6 

0 

TC 

CHFXFRP 

27 1005 

32,2437 

0 0004 

0 

INHINT 

27101 

REF 

5 

LAST 

555 

32,2440 

53 '33* 

0 

DXCH 

DNRRANGF 

27  102 

REF 

3 

LAST 

159 

32,244  1 

53 ' 761 

1 

DXCH 

RANG!  D<  T 

27103 

REF 

244 

LAST 

56  9 

32,2442 

52  162 

0 

DXCH 

MPAC  +5 

27104 

REF 

3 

LAST 

70  1 

32,2443 

53*745 

0 

DXCH 

MKT  I ME 

27  1 05 

REF 

24  5 

LAS” 

570 

32, 2444 

5 2 160 

1 

DXCH 

MPAC  +3 

27106 

REF 

3 

LAST 

20  1 

32,2445 

53*460 

0 

DXCH 

A IG 

271062 

32,2446 

0 0006 

1 

EXTEND 

27107 

REF 

22 

LAST 

56  9 

32,2447 

3 1 L 1 0 

0 

OCA 

TANG 

2710E 

REF 

7 

LAST 

543 

32,2450 

5 3 ' 7 53 

0 

DXCH 

TANGN8 

27109 

R FF 

246 

i A*  r 

570 

32,2451 

3 015b 

0 

CA 

MPAC  +2 

27  LOS 9 

REF 

3 

1 AST 

pn  i 

ip, 2452 

5 5 « <f.  A,  1 

l 

T S 

AOG 

2711 

REF 

49 

LAST 

565 

32,2453 

0 6037 

0 

TC 

INTPRET 

2712 

32,2454 

1^02  5 

0 

STCiDL 

2 OD 

2713 

REF 

4 

LAST 

569 

3 2 ,2455 

03  747 

0 

ROOTMSAV 

27  U 

32,2456 

6726] 

0 

SL 

DMPR 

2715 

32,2457 

20217 

1 

I 40 

2716 

REF 

1 

37 ,2460 

24  00  2 

0 

R DOTC  ONV 

2717 

REF 

2 

LAST 

1 ■' 

3 2,246  1 

03751 

1 

STORE 

RDOTM 

2720 

32,2467 

47135 

0 

SLOAD 

RT3 

272  1 

REF 

23 

LAST 

570 

32,2463 

01 1 10 

0 

t 

TANG 

2722 

R FF 

13 

LAST 

548 

32,2464 

21576 

0 

CDULOGIC 

2723 

REF 

2 

l AST 

146 

32 ,2465 

037  3*+ 

1 

STORE 

RRTRUN 

2724 

3 2 ,2466 

4713  5 

0 

SLOAD 

PTB 

2725 

REF 

24 

LAST 

570 

32 , 2467 

01111 

1 

TANG  +1 

2726 

REF 

14 

LAST 

570 

32,2470 

21576 

0 

CDULOGIC 

2727 

REF 

2 

LAST 

146 

32,2471 

17736 

0 

STOOL 

FRSHAFT 

272P 

REF 

7 

LAST 

569 

32,2472 

01102 

0 

SAM PL  SUM 

272  c- 

32,2473 

66405 

0 

DMP 

SL2P 

2730 

R EF 

1 

32 , 2^-74 

24004 

0 

R ANOCC  *■  V 

2732 

REF 

4 

LAST 

20  1 

32,2475 

37757 

0 

STCALL 

RM 

2733 

REF 

2 

LAST 

543 

32,2476 

46  041 

0 

RRNB 

2734 

REF 

3 

LAST 

146  ; 

32,2477 

17741 

0 

STOOL 

RRBORSIT 

273  * 

32,2500 

00025 

0 

2 OD 

2736 

REF 

17 

LAST 

565 

32,2501 

3404  1 

0 

STCAI.  L 

TDEC1 

2737 

REF 

9 

LAST 

518 

32,2502 

#12  55 

1 

LPS20. 1 

2738 

32,2503 

77776 

1 

EXIT 

2739 

REF 

4 

LAST 

570 

32,2504 

3 1457 

0 

CA 

A I G 

2740 

REF 

10 

LAST 

473 

32 ,250  5 

54  7 66 

1 

TS 

CDUSPOT 

2741 

REF 

1 

32,2506 

3 1460 

1 

CA 

A MG 

2742 

REF 

11 

LAST 

570 

32, 2507 

54  770 

0 

TS 

CDUSPOT 

2743 

REF 

4 

LAST 

570 

32,2*10 

3 1461 

0 

CA 

AOG 

2744 

REF 

12 

LAST 

570 

32,2511 

54  772 

1 

TS 

CDUSPOT 

2745 

REF 

50 

LAST 

570 

32,2512 

0 6 037 

0 

TC 

INTPRET 

i" 
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. 2,1570 

USER'S  PAGE  NO.  79  E7  S3 


BEAD  RR  RANGE  (ONE  SAMPLE) 

WAIT  FOR  READ  COMPLETE 

CHECK  FOR  ERRORS  DUPING  READ 

COPY  CYCLE  FOR  MARK  DATA  ON  DOWNLINK 

RANGE, RANGE  PATE  (PAW  DATA) 


MARK  T IMF 

CDUY , CDUZ 

PRESERVE  TANG 

TRUNNION  AND  SHAFT  ANGLE  S 

C DUX 

SAVE  TIME  OF  CDU  READINGS  IN  20D 

CONVERT  R DOT  UNITS  AND  SCALING 

START  WITH  '■  FADING  SCALED  8-23,  -.6273 

FT. /SECOND  PEE  BIT 

END  WITH  METER S/®ENTI SECOND,  8-7 


GET  T TUN  ION  ANGIE 


CONVERT  TO  DP 

ONES  COMP. 

IN  REVOLUTIONS 

AND  SAVE  FOR 

TMI 

ROUT 

INF 

(LSR22.3) 

DITTO  FOR  SHAFT  ANGLE 

CONVERT  UMTS 

AMD 

SC  A 

LING  OF  RANGE 

PER  BIT,  END 

WITH 

M FT 

ERS 

, SCALED  -29 

COMPUTE  RADAR 
AND  SAVE 

LOS 

US  I 

NG 

RRNB 

GET  STATE  VECTOR 

LOS 

AT 

TIME  OF  CDU  READ 

STORE  I MU  CDU 

ANGLES 

AT 

MARKTIME 

IN  CDUSPOT  FOR  T R G * S M N B 
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2 , 1570 
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L P20— P2 : 


2746 

2747 

2748 
274° 

2750 

2751 

2752 
2757 
2 ? 5 
275? 


REF 

REF 

1 1 

1 

LAST 

565 

REF 

4 

LAST 

570 

REF 

REF 

REF 

22 

1 

1 

LAST 

448 

32.2513  45175  0 

32.2514  01102  0 

32.2515  47651  0 

32.2516  77641  1 

32.2517  037-41  0 

32.2520  65552  0 

32.2521  01046  1 

32.2522  50025  0 

32.2523  24546  0 

32.2524  64531  1 


VLGAD  CALL 

RRTARGET 
T RG*SMNB 

□r  T 

RRBOR  SIT 
SI  1 ACflS 

STORE  DSPTEM1 
DSU  BMN 

THREEDEG 

NORMEXIT 


2756 

2757 

2758 
275° 


REF 

33 

LAST 

551 

32 . 2525 

32. 2526 

77776 

3 4752 

1 

0 

REF 

247 

LAST 

570 

32,2527 

54  154 

0 

REF 

1 

32,2530 

1 2 534 

0 

EXIT 

CAF  BIT2 

TS  MPAC 

TCF  OUT 2 2.1 


2760  32,2531  77776  1 


2761 

REF 

121 

LAST 

563 

32, 7532 

3 4755 

1 

2762 

REF 

248 

LAST 

571 

32,2533 

54  154 

0 

2763 

REF 

<■ 

LAST 

569 

32,2534 

31 '737 

0 

276^ 

REF 

10 

LAST 

541 

32,2535 

0 46  40 

1 

2765 

REF 

17 

L AST 

558 

32,2536 

30  101 

1 

276f 

^ EF 

1 

32,2537 

7 4742 

0 

2767 

RFF 

(OO 

LAST 

563 

32,2540 

10  000 

0 

2768 

REF 

1 

32,2541 

1 2404 

1 

2769 

REF 

31 

LAST 

558 

32,2542 

3 4753 

1 

277C 

bEF 

249 

LAST 

5 71. 

32,2563 

'■  154 

0 

2771 

•:  Fr 

2 

LAST 

571 

32,2546. 

0 25  34 

1 

277? 

3 2 ,2545 

002  10 

1 

1 

2772 

32,2546 

21042 

1 

2773 

REF 

12 

LAST 

571 

1101 

OOf M EXIT 

0UT22. 1 
CHEXfR  P. 


EXIT 

CAF  ZERO 

TS  MPAC 

CAE  LRS22.1X 

TC  BANK JUMP 

CAL  FILAGWRD5 

MASK  RNGSC6IT 

CCS  A 

TCF  READRDOT 


ER EX  I T 1 CA  BIT1 

TS.  MPAC 

TC  OUT  2 2.1 

THRFFDEG  2 DEC  .000333333 


RRLOSVEC  EQUALS  RRTARGET 


USER'S  PAGE  NO.  30  E7  S3 

LOAD  VECTOR  AND  CALL  TRANSFORMATION 

ROTATE  LOS  AT  MAP KT I ME  FROM  SM  TO  NB. 
DOT  WITH  RADAR  LOS  TO  GET  ANCLE 

BETWEEN  THEM 

STORE  FOR  POSSIBLE  DISPLAY 
IS  IT  LESS  THAN  3 DEGREES 

YES-NORMAL  EXIT 

FRP OR  EX  T T 2 
SET  ERROR  CODE 

NORMAL  EXIT-SET  MPAC  EQUAL  ZERO 

EXIT  FROM  LRS22.1 

CHECK  IF  RANGE  SCALE  CHANGED 
YES-TAKE  ANOTHER  READING 

SET  ERROR  CODE 


THREE  DEGR EEC , SCALED  REVS, BO 


3: 15  DEC 
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GAP:  ASSEMBLE  REVISION  COl  OF  AGC  PROGRAM  AP11ROPF  BY  EYLES 

L P20-P25  USER'S  PAGE  NO.  81  E7  S3 

P 2774  P OG  A ' NAME  - LMS22.2  (LATA  READ  SUBROUTINE  2) 

R 2775  MOD.  NO.  : 1 BY:  p VC!  ANTE  SDC  DATE  4-11-67 

P 277  6 FUNCTIONAL  DES  C.p  t PT  If"  I- 

R 277 7 2)  CHECKS  IF  THE  RR  L CS  (I.E.  THE  RADAR  BORES  IGHT  VECTOR)  IS  WITHIN  30  DEGREES  OF  THE  LM  +Z  AXIS 

R277Q  CALI  I NO  SEQUENCE-  BANKCAU  FOR  1 7522. 2 


R 2780 

SUBROUTINES  CALLED: 

G+N, AUTO 

SETM  AXDB 

R 278  1 

NOP  UAL  EXIT  - 

RETURN 

TO  CALLER  WITH 

MP AC  SET  TO  +0  (VIA 

GW  EIHRI  ) 

R 2782 

ERROR  exit  - 

RETURN 

Tl!  CAM  EP  WITH  MPAC  SET  T 0 

( DO  1 -■  ADAf  LOS  NOT 

WITHIN  30  DEGREES  OF  LM  4-7  AXIS 

R278-! 

At  ARMS  - 

NONE 

IN  THE  AUTO  MODE 

R 2786 

ERA  SABI  E 

INITIAL TZATIOM  REQUIRED  - 

R 27 87 

R CL0  SVE  C 

- THE 

1 ' IN  E- 

OF-SIGHT 

VECTOR-A 

HALF  UNIT 

VECTOR  COMPUTED  BY  LRS22.1 

R2789 

PM  ■ 

- RR 

r<  ANGE, 

METERS  B 

-29 , FROM  LRS22. 1 

R279C 

BIT 

14  CHANNEL 

31  - J.  N D I 

CATES  AUTOPILOT  IS 

IN  AUTO 

MODE 

R 27<?1 

DEBRIS  - 

A , L 

, Q M P AC 

-Pl.t  SHI  I 

FT  AND  P'JSHLOC  ARE 

COT  CHANGED  BY  THIS 

ROUTINE 

2793 

REF 

5 

LAST 

564 

24.2C00 

SLTLOC 

P20S 

2794 

24,3333 

BANK 

2795 

REF- 

8 

LAST 

56  » 

24,3333 

0 4 645 

1 L k c 2 2 . 

2 TC. 

HAKECADP 

2796 

REF 

- 

LAST 

571 

2 * , 3 334 

55*  737 

1 

TS 

LRS22. 1 X 

2797 

REF 

51 

LAST 

570 

24 , 3335 

0 6037 

0 

TC 

INTPRET 

A 2798 

CHECK  IF  PR  LOS  IS  WITHIN  30  DEG  OF 

2799 

24,3336 

6 5545 

0 30DLGCHK  DtLAQ 

ACOS 

THF  SPACECRAFT  4-Z  AXIS 

2800 

REF 

5 

LAST 

571 

24,3337 

03745 

1 

RRBQRS  IT  4-4 

BY  TAKING  A CCDS  OF  Z-CPMP.  OF  THE  RR 

A 280  1 

LOS  VECTOR, A HALF  UNIT  VECTOR 

A 2802 

IN  NAV  BASE  AXES) 

2803 

24 , 3340 

50025 

0 

DSU 

BMN 

2804 

REF 

1 

24, 334 l 

11355 

I 

30DEG 

2805 

REF 

1 

2 '-1,33'  2 

51347 

0 

OKEXIT 

NORMAL  EXIT-WITHIN  30  DEG. 

2806 

24,3343 

77776 

I 

EX  IT 

ERROR  EXIT-NCT  WITHIN  30  DEG. 

2807 

REF 

32 

LAST 

571 

24 t 334  4 

3 *-7  5 3 

I 

CAP 

BIT1 

SET  ERROR  CODE  IN  MPAC 

280P 

REF 

250 

LAST 

97  1 

24,3345 

54  154 

0 

TS 

M P AC 

280c 

REF 

1 

24,3346 

1 3352 

1 

TC  F 

0UT22.2 

2810 

24,3347 

777  7b 

1 OK  EX  I T 

EX  IT 

NORMAL  EXIT-SET  MPAC  = ZERO 

GAP: 


ASSEMBLE  M.  VISI JN  001  OF  AGC  PROGRAM  AP11R0PE  BY  EYLFS 


8 20- 

■P  2 5 

2811 

REF 

122 

LAST 

571 

24, 3350 

3 4755 

1 

CAF 

2812 

2813 

REE 

REF 

251 

LAST 

LAST 

572 

572 

24.335 1 

24.3352 

54  154 
31 ' 737 

0 

0 

0UT22.2 

TS 

CAE 

fa 

2814 

REF 

1 1 

LAST 

*71 

24, 3353 

0 4640 

1 

TC 

2815 

24,3354 

02525 

1 

30DEG 

2 DEC 

281  5 

24, 3355 

12525 

0 

3:15  DEC.  2,1970  LEMP20S  .127  PAGE 


USER'S  PAGE  MO.  82  E7  S3 


ZERO 

MPAC 

LRS22. IX 
BANK  JUMP 


573 


083333333 


THIRTY  DEGREES, SCALED  FEVS,BC 


GAP: 

L 

P 28 1 6 
P 2818 
P 2820 
R 2822 
R2823 

R 2 8 2 4 
P 2826 
R282R 

R 2 8 2 9 
P 2830 
R 2832 
R 283  A 
R2636 
R 2838 
R 2840 

R 2841 
R 2842 
R 2843 
R 2844 
R 2845 
R 2846 
P 2847 
R 2 8 4 8 
R 28 4C 
R 288  0 
R2851 
P 2852 

R.2853 
R 2854 
R 28  5 5 
P 28 56 
R 2 0 c ^ 
R 2858 
R 28  5° 
R 2 8 6 0 
R 286  1 
R 286  2 
R 2863 
R 286^- 
R 2865 
R2866 
R 2867 

P 2868 
R 7' 

R 287  0 
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P20-P25  USER'S  PAGE  NO.  83  E7  S3 

PROGRAM  NAME  - LSR22.3 
MOD.  NO  3 

MUD.  BY  - QANFO  7H 


DATE  - 29  MAY  1967 
LOG  SECTION  - P20-25 
ASSEMBLY  L EMP20S  REV  10 


FUNCTIONAL  DESCRIPTION 


.i  I IT  IN  E Cl  E!  B— VI  ' AND  DU  ::  EACH  OF  THE  QUANTITIES  MEASURED  BY  THE  RENDEZVOUS 

RADA?.  (RANGE,  TANGE  PATE, SHAFT  AND  T'  UNNIOI  ANGLES).  THE  ROUTINE  CALLS  THE  INCORPL  AND  INC0RP2  ROUTINES 
WHICH  COMPUTE  THE  DEVIATION-.  AND  CO "RECT  THE  S ATE  VECTU  . 


CALLING  SEQUENCE 

T H I 8 ROUTINE  IS  9 A r T r:  F P2<'  iNDEZ  VOUS  NAVIGATION  FOP  THE  LM  COMPUTER  0 NLY.  THE  R 
P22LEM  OILY  AND  RETURNS  DIRECTLY  TO  R22LEM  FOLLOWING  SUCCESSFUL  INCORPORATION  OF 
COMPUTED  STATE  VECTOR  DEVIATIONS  EXCEED  THE  MAXIMUM  PERMITTED.  THE  ROUTINE  RETURNS 
THE  DEVIATIONS.  IF  THE  ASTRONAUT  ACCEPTS  THE  DA V A K22L  EM  RETURNS  TO  LSR22.3  TO 
DEVI  A v H'NS  INTO  i-me  STATE  VECTOR.  IF  THE  ASTI  INAUT  '-EJECTS  THE  DEVIATIONS,  NO  MOF  E 
PROCESSED  FOR  THIS  U AP.K  , I . E . , R22L  EM  GETS  THE  NEXT  MARK. 


CUT  I NE  IS  ENTERE 
MEASURED  DATA. 
TO  R22LEM  TO  D 
INCORPORATE  THE 
IE A SUP  E MEN T S AR 


0 FROM 
IF  THE 
ISPLAY 

E 


SUBROUTINES  CALLED 


WLINI T 
GETULC 

L GCU°DT  E INTEGRV  INC0RP1 

RU  AI.ANG  1NCPRR2  NBSM 

ARCTAN 

J stall 

OUTPUT 
CORRECTED 
NUMBER  OF 
MAGN  ITUDE 
MAGNITUDE 

: ' 3R  CSM  STATE  VECTOR  (PERMANENT) 
MARKS  INCORPORATED  IN  MAPKCTR 

OF  POSIT ICN  DEVI AT i )N  ( FO  DI$P  LAY ) 
OF  VELOCITY  DEVfAIIC;  ( FO?  DISPLAY) 

IN  R22DISP 
IN  ?22DISP 

METE  S B-29 
+ 2 M/CSEC  B- 

UPDATED  a-  -AT:  [X 


ERASABLE  INITIALIZATION  -EQUIRED 
LM  AND  CSM  STATE  VECTORS 
W-  " AT:-  IX 

MA-'K  TIME  IN  MKT  I ME 

RADAR  RANGE  IN  RM  "FT'?  B-2< 

RANGE  PATE  IN  R DOTM  METERS/CSES  B-7 
SHAFT  ANGLE  IN  RRSHAFT  REVS. BO 
.TRUNNION  ANGLE  IN  I kTRUN  LEVS.  80 
GIMBAL  ANGLES  INNER  IN  AIG 
MIDDLE  IN  AMG 
OUTER  IN  AOG 

REFSMMAT 

RENDWFLG 

NOANGFLG 

VEHUPFLG 

DEBRIS 

PIJSHL  1ST — ALL 

MX,  MY,  MZ  (VECTORS) 


GAP:  ASSEMBLE  k&VISIZ  001  OP  AGC  PROGRAM  API  1R0PE  BV  EYLES 


L P20-P25 

R 2871  ULC.RXZ,  S I NTFIET  A , LGRET  , RDR  ET , BVEC  TOR,  W. IND, X78T 


28  72 
2873 

907/ 

REF 

1 

13,2207 

26,2000 

BANK 

5ETL0C 

BANK 

c.  r f H 

6U| 6“ 1 6 

2875 

REF 

29 

LAST 

561 

E7 , 145  6 

EBANK= 

2876 

REF 

1 

COUNT* 

L 

2 877 

26,2412 

77624 

1 

1 SR  2 2. 3 

CALL 

2878 

REF 

7 

l AST 

506 

26 ,2413 

11244 

0 

?[  70 

4 7 o 1 4 

q 

BON 

r.vj  j c.  “ i 

2880 

RFF 

7 

LAST 

565 

26,24 15 

04  30  7 

1 

28  81 

PEF 

1 

26,2416 

55200 

0 

2882 

REF 

1 

26,2417 

02466 

1 

28R? 

26,2420 

6 5014 

0 

BUFF 

288* 

REF 

6 

LAST 

500 

26 ,242  1 

00747 

0 

2888 

P FF 

i 

7 A , 7 A 7 7 

c 4 4 5 4. 

0 

J 

2886 

REF 

11 

LAST 

500 

26,2423 

27414 

0 

2887 

26,2424 

45014 

0 

CLEAR 

2888 

REF 

10 

LAST 

, 500 

26,2425 

01674 

0 

28  8', 

r;  EF 

4 

LA?  T 

500 

26,2426 

26644 

0 

2890 

26,2427 

77624 

l 

GALL 

?r  , 1 

REF 

1 

26,2430 

5 5242 

0 

28q? 

26,2431 

77624 

1 

CALL 

2893 

REF 

8 

LAST 

575 

26,2432 

11244 

0 

2394 

26,2433 

77624 

1 

CALL 

289  9 

REF 

12 

L AST 

575 

26 , .2434 

27414 

0 

289  c 

26,2435 

43014 

0 

CLEAP 

289-? 

REF 

7 

1 A "T 

500 

26 , 2436 

0 1 6 7 6 

2898 

RFF 

5 

LAST 

500 

26,2437 

02756 

1 

2899 

PEF 

1 

26,2440 

54444 

1 

2900 

26 .2441 

43  014 

o 

SET 

2901 

REF 

8 

LAST 

575 

26 , 244  2 

01476 

0 

2C02 

PEF 

5 

LAST 

500 

26,2443 

01475 

0 

2903 

24,2444 

43014 

0 

NO TWO  SN 

SET 

2904 

REF 

1 1 

LAST 

575 

26,2445 

01474 

1 

290  5 

REF 

3 

LAST 

494 

26 , 2446 

01673 

1 

2906 

26 , 2447 

45014 

0 

SET 

29C  7 

R E F 

1 

26,2450 

01472 

1 

2 908 

R EF 

2 

LAST 

575 

26,245  I 

6 5242 

0 

2909 

2 6, 2*45  2 

77650 

1 

GOTO 

2910 

REF 

1 

26,2453 

54504 

1 

291  1 

26,2454 

77624 

l 

DOLEM 

CALL 

2 912 

REF 

1 3 

LAST 

5^5 

26,2455 

27414 

0 

2913 

26,2456 

4 5014 

0 

SET 

2°14 

REF 

12 

L AST 

575 

26,2457 

01474 

1 

2915 

RFF 

5 

l AST 

575 

26,2460 

26644 

0 

2916 

26,2461 

77624 

1 

CALL 

2917 

REF 

3 

LAST 

575 

26,2462 

55242 

0 

10 

P20S3 


LOSCOUNT 

3.S/LSR22 

GRP2PC 

SET 

SURFFLAG 
LSP22  .A 
QMENFLG 
CALL 

VEHUPFLG 
DOLEM 
I NT  ST  AL  l 
CALL 

V INTEL  AG 
SET  I FLGS 

I NT  G C A I 

GRP2PC 

I 1TSTAI  ! 
BOFF 

DIMOFLAG 
R ENDWFl. G 
NOTWCSM 
SET 

DIMOFLAG 

06OR9FLG 

CLEAP 

VINTFLAG 

INTYPFI  G 

CALL 

stateflg 

INTGRCAL 

MARKTEST 

INTSTAL L 
CAL  1 

VINTFL  AG 
SET  I FLGS 

INTGRCAL 


3: 15  DEC 


PAGE 


575 
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USER'S  PAGE  NO.  84  E7  S3 


ARE  WE  ON  LUNAR  SURFACE 
YES 


LM  PRECISION  INTEGRATION 


CSM  WITH  W-MATP,  IX 


INTEGRATION 
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P 20- 

-P25 

2°1  8 

26,2463 

77624 

1 

CALL 

REF 

9 

EAST 

575 

26,2464 

1 12  44 

0 

pq  p r 

? A . ?4A9 

7 76  2 4 

]_ 

CAL  l 

r.  7 4 s.. 

4 Vi*  f 4.  r *v-~  2 

2921 

PEE 

14 

LAST 

575 

26,2466 

27414 

0 

2922 

26,2467 

43  014 

0 

CLEAR 

2923 

r!EF 

9 

L AST 

575 

26, 247 n 

01676 

1 

2°2  A 

REF 

6 

LAST 

575 

26,2471 

02756 

1 

292  5 

REF 

1 

26,2472 

5 4476 

0 

2926 

26,2473 

43014 

0 

SET 

2927 

REF 

10 

LAST 

576 

26 , 2474 

014-76 

0 

2928 

REF 

6 

LAST 

575 

26,2475 

014  75 

0 

?o?o 

26,2476 

43014 

0 

NPTWLEM 

CLEAR 

2930 

REF 

4 

LAST 

575 

26,2477 

01673 

1 

2931 

REF 

1 3 

LAST 

575 

26,2500 

01674 

0 

2932 

26 , 250  1 

45014 

0 

SET 

2933 

REF 

2 

LAST 

575 

26,2502 

01472 

1 

2534 

REF 

4 

LAST 

575 

26, 2503 

55242 

0 

2935 

?6  , ?9(34 

4 9 014 

0 

M ARKTEST 

BON 

2936 

REF 

7 

LAST 

576 

26,2505 

02716 

0 

2037 

REF 

1 

26,2506 

54510 

1 

2938 

REF 

. P 90  7 

5 5251 

1 

i. 

29  3° 

26,2510 

77414 

0 

R AMGEBQ 

BON 

29393 

REF 

8 

LAST 

579 

26,251  l 

04307 

1 

2 9 3 0 6 

REF 

1 

26,2512 

54520 

1 

2940 

REF 

123 

LAST 

573 

26,25  1 3 

3 4755 

1 

CA 

2941 

REF 

6 

LAST 

519 

26,2514 

55 '745 

1 

TS 

2 ' v 

n,  E F 

146 

LAST 

570 

26,2515 

0 4616 

1 

TC 

294  5 

P E F 

3 

LAST 

507 

26,2516 

46123 

0 

C ADR 

2944 

REF 

52 

LA  >T 

572 

26,2517 

0 6 037 

0 

TC 

2945 

26, 2520 

3 1 7 

1 

L ANT.  E 301 

A X T , 2 

2946 

26,2521 

ccooo 

1 

2947 

REF 

2 

LAST 

37 

26 ,252  2 

04304 

1 

2948 

a e f 

1 

26, 2 52  3 

5 452  6 

x 

294  0 

26 ,2524 

77  714 

0 

INCR  ,2 

2950 

26,2525 

0 00  02 

0 

295  1 

26,2526 

45134 

0 

SFTX2 

SX A , 2 

2952 

REF 

2 

LAST 

145 

26,2527 

03720 

1 

2953 

REF 

10 

LAST 

576 

26,2530 

11244 

0 

29533 

26,2  5.3  l 

66170 

1 

AXT,  1 

29534 

26,2532 

0 0001 

0 

29535 

REF 

2 

LAST 

314 

26,2533 

03745 

1 

2954 

26,2534 

54335 

0 

SLOAD 

2955 

REF 

1 

26,2535 

01775 

0 

2956 

26,2536 

2C635 

0 

2957 

26,2537 

77634 

0 

P.TB 

2958 

f;  EF 

l 

26 ,2540 

21633 

1 

2959 

26,754  l 

00025 

0 

STORE 

2°6C 

26,? 94 2 

77624 

1 

CALL 

2961 

REF 

1 

26 , 2543 

55333 

1 

2962 

26 ,2  544 

57414 

1 

BON 
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USER’S  PAGE  NO.  85  E7  S3 

GRP2PC 

1 NTST  ALL 

BOFF 

DIMnELAG 

RENDWFLG 

NOT  WL  E M 

„z 

SET 

0 IMOFLAG 
D60F9FL G 
CLEAR 
INTYPFLG 
VINTFL  AG 

CALL 

5 1 A T F F 1 G 
INTGRCAl 

LM  WITH  W-M ATP  IX  INTEGRATION 

CALI 

RENDWFLG 

P ANGEBQ 

HAS  W-MATP  I X BEEN  INVALIDATED 

HAS  W-MATF TX  BEEN  INVALIDATED 

WLINIT 

EXIT 

SURFFLAG 

P ANGEBQ1 

ZERO 

R65CNTR 

3 A JKCAU 

R65LEM 

INTPRET 

YES-REINITIALI ZE 

DON'T  CA l L R65  IF  ON  SURFACE 

BON 

0 

CLEAR  X 2 

L MOO NFL G 
SETX? 

IS  MOON  SPHERE  OF  INFLUENCE 

YES.  STORE  ZERO  IN  SCALSHFT  REGISTER 

2 

CALL 

SCALSHFT 

GRP2PC 

O-MOON.  2-EARTH 

SXA  , 1 

1 

WHCEL'EAD 

STORE  RANGE  CODE  (1)  FOR  R3  IN  NOUN  49 

SR 

R VAR MI N 

2 8D 

GET  ciNGLE  PRECISION  RVAPMIN  ( B— 1 2 ) 

S H T FT  TO  triple  PRECISION  (B-40) 

TPMODE 

20D 

AND  SAVE  IN  20D 

GETULC 

VCOMP 

BEGIN  COMPUTING  THE  B— VEC  TOP  c , DEI  TAQ 

B-VECTORS  FOP  RANGE 

BO,  COMP.  IF  LM  BEING  CORRECTED 

GAP:  ASSEMBLE  REVISION  001  OF  AGC  PROG"  AM  API  L.ROPE  BY  EYLES 


L P20-P25 


2963 

REF 

7 

LAST 

575 

26,2545 

00707 

1 

2964 

26,2546 

54547 

0 

2065 

REF 

2 

LAST 

145 

26,2547 

27525 

0 

29r>6 

REF 

2 

LAST 

37 

26,2550 

065  22 

1 

2967 

REF 

3 

LAST 

577 

26,255 1 

03533 

1 

2968 

RFF 

4 

L A5r 

577 

26,2552 

17541 

1 

2969 

2970 

2971 

2972 
297? 
291/ 

2975 

2976 

2977 

297  8 
2979 
?980 

2981 

2982 

2983 

2984 

298  5 

2986 

2987 
2 988 

2989 

2990 

2991 

2992 

2993 

2994 

299  5 
29  >6 


REF 

5 

LAST 

570 

REF 

2 

LAST 

145 

P EF 

3 

LAST 

3 87 

PFF 

1 

REF 

REF 


D EF 
REF 
RFF 


2 LAST  576 
2 LAST  126 


1 

3 LAST  577 
1 


26.2553 

26.2554 

26.2555 

26.2556 

26.2557 

26.2560 

26.2561 

26.2562 

26.2563 

26. 2564 

26.2565 

26.2566 

26.2567 

26.2570 

26.2571 

26.2572 

26.2573 
26,2576 

26. 2575 

26.2576 

26 .2577 

26,2609 
26,2601 
26 , 2602 

26.2603 

26.2604 

26.2605 

26.2606 


00045  0 
44257  1 
56174  0 
03757  1 
77657  0 
56574  1 
17547  1 
00045  0 
835  J 1 0 
TO  047  1 
53605  1 
01771  1 
20577  0 
53657  0 
2 OfeC  1 1 
57176  0 
.47057  0 
67176  0 
21633  1 
02707  0 
76276  0 
00025  0 
72240  1 
94605  0 
00025  0 
02707  0 
77624  1 
55401  1 


QQK 


2997 

2998 
29983 
29986 

?oqo 

3000 

3001 

3002 

3003 

3004 
300  5 

3006 

3007 

3008 

3009 


REF  3 LAST  576 

REF  11  LAST  576 

REF  2 LAST  576 

EP  8 LAST  577 


26, 260* 

45131 

0 

26,2610 

03746 

1 

26,2611 

0C002 

0 

26,261 2 

1 1244 

0 

26,2613 

77624 

1 

26,2614 

5 5333 

1 

26, 2615 

53725 

1 

26,2616 

00045 

0 

26,2617 

57202 

0 

26 , 262C 

24045 

0 

26,2621 

5 7414 

1 

26,262? 

0 0707 

1 

26 , 2623 

54 £ 24 

0 

26,2624 

77761 

1 

26,2625 

00045 

0 

STUVL 

STORE 

STODL 

SRR* 

SLR* 

STODL 

NORM 

DMT 

SR* 

SR* 

STORE 

DCCMP 

BMN 

STORE 

CALL 

SSP 

DEC 

CALL 

PDDL 

STOVL 

BON 

VXSC 


3:  15  DEC 
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USER • S PAGE  NO.  86  E7  S3 

VEHUPFLO 
+ 1 

BVECTOR 
ZEROVECS 
BVECTOR  +6 

B VECTOR  +1  2D 
36D 

BDSU 

B 1 

B2 

2 ,2 

RM 

SHIFT  FFC'M  EARTH/MOON  SPHERE  TO  B-29 

R M - (MAGNITUDE  RCSM-RLM) 

2,2 

DELTAQ 

36D 

DSQ 

XI 

SR* 

SHIFT  TO  EARTH/MOON  SPHERE 

EARTH  B-29.  MOON  B-27 

RLC  B— 29/ B— 27 

NORMALIZE  AND  SQUARE 

RANGE  VAR 

0 -2,1 

SR* 

0,1 

0,2 

PTB 

0,2 

TPMODE 

MULTI  PI  Y RY  PANGEVAR { R12 ) THEN 

UNNORMAL IZE 

VARIANCE 

TAD 

B-40 

2 00 

TCHAD 

QCK 

B-40 

2 OD 

VAR  I ANCF 

1 GC'JPDTF 

B-40 

CALI 

WHCHREAD 

2 

GRP2PC 

STORE  P-RATE  CODE  (2)  FOR  R3  IN  NOUN  49 

GETULC 

B-VECTUR ,OELT AQ  FOR  RANGE  RATE 

SR* 

36D 

0-4,2 

GET  RLC  SCALED  B-2c/B-27 

AND  SHIFT  TO  B-23 

36D 

VCQMP 

VEH'JPFL  G 

+ 1 

THEN  STORE  BACK  IN  36D 

81,  COMP.  IF  LM  BEING  CORRECTED 

36D 

B 1 = RLC  (B-24/B-22) 

RLC  (B-24/B-22) 


GAP:  ASSEMBLE  REVISION  001  Q§  ' AGC  PR U GRAM  AP11R0PE  BY  EYLES 


L P20-O25 


3010 

REF 

5 

LAST 

577 

26,2626 

27533 

1 

STOVL 

301  1 

REF 

1 

26,2627 

01653 

0 

■am  ? 

26 .263  0 

532  57 

VSR  * 

/U:i  (L 

c-  • y c.  v 

3013 

26,2631 

57170 

0 

301^ 

REF 

2 

LAST 

500 

26, 2432 

01667 

1 

301  4 

26,2633 

53715 

1 

PDVL 

3016 

REF 

L 

26 , 2634 

01601 

1 

3017 

26,2635 

57170 

0 

3C 1 8 

26,2636 

52255 

1 

VAD 

3019 

REF 

l 

26 , 2637 

01615 

1 

302  0 

26,2640 

50315 

0 

PDVL 

3021 

7 6 ,264  1 

r ’ C 0 0 1 

o 

3022 

26,2662 

0C007 

0 

3023 

26,2643 

53606 

1 

PUSH 

3024 

26,2644 

56174 

0 

3025 

26,2645 

57  316 

1 

dso 

3026 

REF 

I 

26,2646 

01773 

0 

3027 

PEE 

4 

LAST 

577 

26 , 2447 

02  707 

o 

s r>  p e 

3028 

26,2650 

54335 

0 

SLQAD 

3029 

REF 

I 

26,265  1 

01776 

0 

3030 

2 6, 26  5 2 

20621 

0 

3031 

26,2653 

00031 

0 

STORE 

303  2 

26 ,2654 

5002  5 

0 

osu 

3033 

REF 

5 

1 AST 

578 

26,2655 

02707 

0 

3034 

REF 

1 

26,2656 

54662 

1 

3035 

26,2657 

77745 

1 

DLPAD 

3036 

26,2660 

0 C 0 3 I 

0 

3037 

REF 

6 

LAST 

573 

26,2661 

02707 

0 

STORE 

303  8 

26, 2662 

6 0545 

0 VCK 

DLOAD 

303° 

2 a , 266  3 

53725 

1 

POOL 

1 

3040 

REF 

3 

LAST 

570 

26,2664 

0 3751 

1 

3041 

26,2665 

54577 

1 

3042 

26,2666 

77625 

n 

ncii 

3043 

26,2667 

77675 

0 

DM  PR 

304*- 

26,2670 

00045 

0 

3045 

REF 

3 

LAST 

57? 

26, 7671 

27547 

1 

STOVL 

3046 

26,2672 

OCOOl 

0 

3047 

26,2673 

47235 

0 

VXV 

3048 

26, 2674 

57414 

1 

BON 

3049 

REF 

9 

LAST 

577 

26,7675 

007  07 

1 

3050 

26,2676 

5 4 677 

0 

3051 

26,2677 

77657 

0 

VSP* 

3052 

26,2700 

57200 

1 

305  3 

REF 

6 

LAST 

578 

26, 270  1 

27625 

0 

STOVL 

3054 

REF 

3 

LAST 

577 

26,2702 

06522 

1 

3055 

26,2703 

00025 

0 

STORE 

305  6 

REF 

7 

1 AC- 

578 

26, 2704 

27541 

1 

STOVL 

3057 

RFF 

8 

LAST 

578 

26 , 270^ 

03525 

0 

3058 

26,2706 

60246 

1 

ABVAL 

305  9 

26, 2707 

00025 

0 

4 


B VECTOR  +6 

NUVLEM 

VAD 

6,2 

VCVLEM 

VSR* 

NUVCSM 

6,2 

VSU 

VCVCSM 

DOT 

0 

6 

SPR* 

2 ,2 
DMPR 
R AT  EVAS 
VAR I ANCE 
SR 

WAP, MIN 
160 
24D 
BMN 

VARIANCE 

VCK 

24D 

VAR  I ANCE 

SP.2 

SLR* 

P DOTM 

0 -1,2 
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SHIFT  FOP  EARTH/ MOON  SPHERE 
EARTH  B-7 . MOON  8-5 
VL  T0  PD6 


SHIFT  FOR  EARTH/MOON  SPHERE 


VC  - VL  = VIC  TO  PP6 


ROOT  B-8/B-6  TO  PD12 

SHIFT  F 0 M EARTH/MOON  SPHERE  TO  B-8 

RD0T**2  B— 1 6 X RATEVAR  B12 


GET  SINGLE  PRECISION  WAR  MIN  (B+12) 
SHIFT  TO  DP  (B  -4) 

AND  SAVE  IN  24D 

IS  MIN.  VARIANCE  > COMPUTED  VARIANCE 
BRANCH  - NO 

YES  - USE  MINIMUM  VARIANCE 


' DOT ( PD1 2 ) FROM  B-8/B-6 
TO  B- 10/ B— 8 

SHIFT  TO  EARTH/MOON  SPHERE 
B-7  TO  R-10/B-8 


3 6D 

OELTAQ 

B— 3 3 

0 

NOW  GET  BO 

VXV 

(ULC  X VLC)  X IJLC 

VCOMP 

BO,  COMP.  IF  LM  BEING  CORRECTED 

VEHUPFLG 

+ 1 

0-2,2 

SCALED  B-5 

B VECTOR 

ZEROVECS 

20D 

ZERO  OUT  20  TO  25  IN  PUSHLIST 

B VECT°R  +1  2D 

BVECTOR 

NCRM 

LOAD  BC,  GET  MAGNITUDE  AND  NORMALIZE 

20D 

SHIFT  COUNT  IN  20D 

GAP: 


3060 

3061 

3062 
306  3 
3064 
306  c 

3066 

3067 

3068 
306  6 

3070 

3071 

3072 
3c  n 
3074 
3P7C 
30  76 
307? 

3078 

3079 

3080 

3081 

3082 

3083 

3084 

3085 

3086 

3087 

3088 

3089 

3090 

3091 

3092 

3093 

3094 

3095 

3096 
3057 

309  8 
309° 

3100 

3101 

3102 

3103 

3104 

310  9 

3106 

3107 

3108 


ASSEMBLE:  REVISION  0G1  OF  AGO  PROGRAM  APllkGPE  BY  EYLES 
P20-P2S 


REF 


REF  ] 


REF  1 


LAST  578 


REF  10  LAST  575 

REF  11  LAST  579 
REF  1?  LAST  579 


REF  13  LAST  579 
REF  4 LAST  578 


REF  5 LAST  579 


26.2710 

26.2711 

26.2712 

26.2713 

26.2714 

26.2715 

26.2716 

26.2717 

26. 2720 

26.2721 

26.2722 

26 . 2723 

26.2724 

26.2725 

26 . 2726 

26.2727 
26,2730 
26 ,273  1 

26.2732 

26.2733 

26.2734 

26.2735 

26 . 2736 

26.2737 

26.2740 

26. 2741 
26,2762 
26  , 274  3 

26, 2764 


51575  1 
03933  1 
71301  0 
0C027  1 
00027  1 
50025  0 

00025  0 
54723  0 
52150  1 

00026  0 
54725  0 
77750  0 
( ' 024  1 
53775  1 
03525  0 
20201  0 
27525  0 
03833  1 
77657  0 
20201  0 
17533  1 
03547  1 
77657  0 
20201  0 
03547  1 
53745  1 
00045  0 
20200  1 
41316  0 


REF 

REF 

REF 

7 

3 

3 

LAST 

LAST 

LAST 

5T8 

577 
57  9 

26 .2745 

26.2746 

26 . 2747 

02707 
47012 
21633 
36  7n  7 

0 

1 

1 

j 

6 O f 4 f 

REF 

2 

LAST 

577 

26,275  L 

c5401 

1 

26, ?7C2 

77624 

1 

REF 

12 

LAST 

577 

26,2753 

11244 

0 

26,2754 

77414 

0 

REF 

9 

LAST 

576 

26,2755 

04  307 

1 

REF 

1 

26, 2756 

55176 

1 

REF 

5 

LAST 

570 

E7 , 1 457 

REF 

1 

26,2757 

3 3332 

0 

REF 

li 

LAST 

456 

26,2760 

54  006 

0 

REF 

6 

LAST 

579 

26,2761 

3 1457 

0 

REF 

13 

LAST 

5 70 

26,2762 

54  766 

1 

REF 

2 

LAST 

670 

24, 276  3 

3 1460 

1 

REF 

14 

LAST 

579 

26,2764 

59  770 

0 

REF 

5 

LAST 

570 

26, 2765 

3 1461 

0 

P.EF 

15 

LAST 

579 

26,2766 

54  772 

1 

REF 

53 

LAST 

576 

26,2767 

0 6037 

0 

VPKi 


VUK2 


MXf'YMZ 


VLOAD 

NORM 

OS  U 

LX  A , 1 

LX  A , 1 
VLOAD 

STOVL 

VS  L* 

STOOL 

SL* 

STORE 
0 L 0 A 0 

OSQ 

SL4 

STCALL 

CALL 

BON 


E 6 ANK  = 

CAF 

TS 

CA 

TS 

C,  A 

TS 

CA 

TS 

TC 
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ABVAL 

B VECTOR  +6  D 
DLOAO 

LOAD  Bl,  GET  MAGNITUDE  AND  NORMALIZE 

2 2D 

22D 

BMN 

2 OD 

VC1K1 

GOTO 

SHIFT  COUNT  IN  22D 

FIND  WHICH  SHIFT  IS  SMALLER 

BRANCH-  BO  HAS  SMALLER  SHT  FT  COUNT 

2 2D 

V0K2 

LOAD  X2  WITH  THE  SMALLER  SHIFT  COUNT 

2 OD 

VSL* 

B VECTOR 

0,1 

B VECTOR 

BVECTP  +6 

0,1 

B VECTOR  +6 
DELTAQ 

THEN  ADJUST  BO, Bl, DELTAQ  AND  VARIANCE 

WITH  THIS  SHIFT  COUNT 

0,1 

DELTAQ 

SL* 

36D 

0-1,1 

GET  RLC  ANC  ADJUST  FOR  SCALE  SHIFT 

DMP 

VA'-'  I ANCE 

MULTIPLY  RLC**2  BY  VARIANCE 

RTB 

TPMODE 

SHIFT  TO  CONFORM  TO  BVECTOP.S  AND  DELTAQ 

VARIANCE 

1 GCIJPDTE 

AND  STORE  TP  VARIANCE 

GRP2PC 

EXIT 

SURFFLAG 

ARE  ANGLES  TO  BE  DONE 

F END END 

A 1 G 

AIGBANK 

BBANK 

NO 

A IG 

CDUSPOT 

A MG 

C DUS  POT  +2 

AOG 

YES,  COMPUTE  MX,  MY,  MZ 

CDUSPOT  +4 

I NTPRET 

GIMBL  ANGLES  NOW  IN  CDUSPOT  FOR  TRG*NBSM 

GAP:  ASSEMBLE  REVISI.j  ' COl  OF  A GC  P OG  AM  API  1>'< OPE  BY  EYLES 

L P20-P  25 


3109 

26,2770 

45175 

0 

VLUAD 

CALL 

3110 

REF 

5 

LAST 

339 

26,277 1 

06520 

0 

UNITX 

3111 

REF 

4 

LAST 

25  3 

26,2772 

41  664 

0 

TRG*NB$M 

3112 

26,2773 

76505 

0 

VXM 

VS  LI 

3113 

E F 

1 0 

LAST 

565 

26,2774 

01734 

0 

? EF  SMMAT 

3114 

REF 

4 

LAST 

145 

26, 2775 

27677 

1 

STOVt 

MX 

3115 

REF 

3 

L A c T 

300 

26,2776 

06516 

0 

UNITY 

3116 

26,2777 

77624 

1 

CALL 

3117 

REF 

2 

LAST 

550 

26,3000 

4767  3 

0 

*NBSM* 

3118 

26,30C1 

76505 

0 

VXM 

VSL  1 

3119 

REF 

11 

LAST 

580 

ZL  , 3002 

01734 

0 

R EF SMMAT 

3120 

RFF 

2 

LAST 

i hF 

26 , 310  3 

2770c 

0 

STOVt 

MY 

3121 

RFF 

5 

LAST 

340 

26, 3C04 

06514 

1 

UNITZ 

3122 

26,3005 

77624 

1 

CALL 

3123 

REF 

3 

LAST 

580 

26,3006 

47673 

0 

*NBSM* 

3126 

26, 3007 

74  505 

0 

X 

> 

VSL  1 

3125 

REF 

12 

LAST 

580 

26, 3010 

01734 

0 

1 EFSMMAT 

3126 

RFF 

2 

LAST 

1 45 

26, 3011 

37  713 

0 

SHAFTBQ  stcall 

M Z 

3127 

REF 

1 

26,3012 

55361 

0 

P AD Ar ANG 

3128 

26, 3013 

45131 

0 

SSP 

CALL 

3129 

REF 

4 

LAST 

577 

26,3014 

03746 

1 

WHCHTEAO 

31293 

26, 301 5 

OCG03 

1 

DLC 

3 

312  96 

REF 

13 

LAST 

579 

26 , 3016 

11244 

0 

GRP2PC 

3130 

26,3017 

5#3  75 

0 

VL  fl  AD 

DOT 

3131 

REF 

2 

LAST 

145 

26, 3020 

03724 

0 

ULC 

3132 

REF 

6 

LAST 

580 

26,302  1 

03677 

1 

MX 

313  3 

77752 

1 

4. t j kj  e.  c. 

1 

• 0 L 1 

313^ 

RFF 

6 

LAST 

478 

26 ,3023 

24023 

0 

STOVL 

SI  NTH 

3135 

REF 

3 

L AST 

580 

26,3024 

03724 

0 

ULC 

3136 

2 6 , 302  9 

7244  1 

0 

DOT 

SL1 

3137 

REF 

3 

LAST 

580 

26 , 3026 

03713 

1 

MZ 

3138 

REF 

6 

LAST 

478 

26,3027 

34021 

0 

STCALL 

COSTH 

3139 

REF 

3 

LAST 

478 

26 . 3030 

26510 

1 

ARC  TAW 

HuO  1 h\iy 

3140 

26,3031 

4 12  21 

0 

BDSU 

DMP 

3141 

PFF 

3 

LAST 

570 

26,3032 

03736 

0 

F R SHAFT 

3142 

REF 

1 

26,3033 

1 8441 

1 

2 P I / 8 

3143 

26,3034 

41472 

0 

SL3R 

PUSH 

3144 

26,3035 

52545 

1 

CLOAD 

SL3 

3145 

REF 

2 

LAST 

196 

26,3036 

01701 

0 

X789 

3146 

26,3037 

442  57 

1 

sr<* 

BDSU 

3147 

26, 3040 

56176 

1 

0,2 

3148 

26,3041 

53608 

1 

(IMP 

SRR  * 

3149 

REF 

2 

LAST 

145 

26, 3042 

03722 

0 

PXZ 

3150 

26, 3043 

21601 

0 

0,1 

3151 

REF 

6 

LAST 

579 

26,3044 

27547 

1 

STUVL 

DELTAQ 

3162 

REF 

4 

LAST 

580 

26 , 306 B 

03  724 

0 

ULC 

3153 

26,3044 

76435 

1 

VXV 

VSL  1 

3154 

RFF 

3 

1 AST 

8 80 

26,3047 

08708 

0 

MY 

3155 

26 , 3050 

77656 

1 

UNIT 

3156 

26,305 1 

57414 

1 

BOFF 

VCOMP 
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STORE  SHAFT  CODE  (3)  FOR  R3  IN  NOUN  49 


COMPUTE  DEI.taQ.B  VECTORS  FOR  SHAFT  ANG. 


18D 


160 


SWFT  FROM  -5/-3  TO  BO 


SHIFT  TO  EARTH/MOON  SPHERE 
EARTH  B-29 . MOON  R-27 


BO,  COMP.  IF  CSM  BEING  CORRECTED 


GAP:  ASS fcMBLE  K6VISIJN  GDI  CP  AGC  PROGRAM  APilROPE  BY  EYLES 


L P20-P25 


3157 

3158 
3155 
3160 
31 : l 
3 1 6 2 
3 1 6 3 
3 1 

3165 
316  6 
316  “ 
31 

3169 
3 1 7( 

3171 

3172 

3173 
317* 
3175 
3 i i 

3177 

3178 
317° 
3130 

3181 

3182 
313  3 


REF 

10 

LAST 

578 

26,3052 

26, 3053 

REF 

14 

LAST 

5 79 

26, 30  54 

REF 

4 

LAST 

578 

26,3055 

REF 

15 

LAST 

581 

26,3056 

Off 

i 

i 

26,3057 

26,3060 

REF 

1 “ 

3 

L 3 0 

LAST 

580 

26.3061 

26. 3062 

26 . 306 3 

PEF  17  LAST  581  26,3064 

26,3046 

REF  1 26,3066 

26,3067 

REF  1 26,3070 

REF  6 LAST  r 8 1 26,3071 

26. 3072 

26.3073 

REF  5 LAST  581  26,3074 

26 . 3075 

26.3076 

26.3077 

26.3100 

26.3101 


REF 

4 

LAST 

579 

26, 3102 

RFF 

9 

LAST 

579 

26 , 310  3 

REF 

3 

LAST 

5 79 

26,3104 

00747  0 
55C54  0 
27:>2  5 0 
06  522  1 
03533  1 
17541  1 
03722  0 
53657  0 
20577  0 
56 176  1 
03341  1 
77735  0 
02011  0 
41215  1 
15436  1 
03722  0 
41257  1 
21601  0 
03722  0 
53657  0 
20577  0 
57176  0 
47057  0 
57176  0 
21633  1 
36707  1 
55401  1 


3186 

3 1 6 c 
3186 


RFF 


14  LAST  550 


26.3105 

26.3106 

26.3107 


77624  l 
1 1 2 4 0 
77624  1 


3187 
318 1 

REF 

2 

LAST 

580 

26,3110 

1 111  1 

55361 

3,  C .1  3*  1 

0 

n 

c.  t J i J 

'•K'  I J 1 

u 

31 8 S 

OFF 

5 

LAST 

5 80 

26,3]  1? 

03746 

i 

31  8 °3 

26,3113 

00004 

0 

31896. 

REF 

15 

LAST 

58  1 

26 , 31  14 

1 1244 

0 

31 

26,3115 

47375 

0 

3191 

RFF 

5 

LAST 

580 

26,3116 

03  724 

0 

3192 

REF 

4 

LAST 

580 

26,3117 

03705 

0 

3193 

26,3120 

47372 

1 

3194 

REF 

6 

LAST 

531 

26,312  l 

G 3724 

0 

3196 

26 ,3122 

77772 

0 

3196 

26,3123 

57414 

1 

3 1 - 

REF 

1 1 

LAST 

58  1 

26,3124 

00747 

0 

3198 

26,3125 

55126 

1 

31 

RFF 

1 8 

LAST 

581 

26,  31 2 1 

27525 

0 

32  K 

REF 

3 

LAST 

581 

2ft , 3127 

06522 

1 

3201 

REF 

19 

1 AST 

581 

26 ,3130 

03533 

1 

3202 

REF 

20 

LAST 

581 

26,3131 

17541 

1 

3203 

REF 

6 

LAST 

581 

26,3132 

03722 

0 

TRUNBQ 


STOVL 

STORE 

stodl 

SR* 

STORE 
S L n A 0 

DAD 

SR  R * 

SR* 

SP* 

STCALL 

CALL 

CALL 

SSP 

DEC 

VLCIAD 

VSL  1 

V St  1 
BOFF 

STOVL 

STORE 

STGDL 
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VEHUPFLG 
+ 1 

BVECTPP 
ZEFCVECS 
RVECTOP  +6 

B VECTOR  +1 2 D 
RXZ 

SRR* 

0 -2,1 

0,2 

BVFC ' • +12D 

SHIFT  FROM  EAFTH/MOON  SPHEPE  TO  B-25 

SHAFT  VAT 

DMP 

IMIJVAR 

R X Z 

DMP 

RAD** 2 B12 

0,1 

RXZ 

SR* 

SHIFT  TO  E A1"  T H /MnCM  SPHEPE 

0-2,1 

0,2 

RTB 

0,2 

TPMODE 

VARIANCE 

LGCUPDTF 

STORE  V AR I ANCE  TRIPLE  PRECISION 

8-40 

GRP  2 PC 

R ADARANG 

CALL 

K1ICH-  EAD 

4 

fepP?PC 

VXV 

ULC 

MY 

VXV 

ULC 

STORE  TRUNNION  CODE  14)  FOR  P3  II  N49 

VCOMP 

VEHUPFLG 

+ 1 

8V6CV 

ZEFCVECS 
BVECTOR  +6 
BVECTOR  +1 2D 
RXZ 

(ULC  X MY)  X ULC 

BO,  COMP.  IF  CSM  BEING  CORPECTED 

GAP:  ASSEMBLE  REVISION  001  UF  AGC  PROGRAM  AP11R0PE  BY  E YL  E S 
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3204 

26,3133 

53657 

0 

Sr* 

SRR* 

SHIFT 

FROM  EARTH/MOOM  SPHERE  TO 

320  5 

26,3134 

20577 

0 

0 -2,1 

} A . 3]  IS 

56  176 

i 

n . ? 

D C o £•' 

1 

32  O7 

REF 

21 

LAST 

68  1 

26,3136 

03543 

0 

S T 0 0 E 

B VECTOR  +14D 

32  OR 

26 ,3137 

77735 

0 

SLOAD 

3209 

REF 

1 

26 , 3140 

02012 

0 

TPUNVAP 

3210 

26,3141 

41215 

1 

DAD 

DMP 

3211 

REF 

2 

LAST 

581 

26 ,3142 

15436 

1 

IMUVAR 

3212 

REF 

7 

LAST 

5 8 1 

26,3143 

03  722 

0 

RXZ 

3213 

26,3 1 4 4 

*+12  57 

1 

SF  R* 

DMP 

3214 

24,31*5 

21601 

0 

0,1 

SHIFT 

TC  EAF.TH/MnnN  SPHERE 

321  c 

REF 

8 

LAST 

58? 

26 ,3146 

03722 

0 

F XZ 

« 

3216 

26, 3147 

53657 

0 

SR* 

SR* 

3217 

26,3150 

20577 

0 

0-2,1 

3218 

26,3151 

57176 

0 

0,2 

3219 

26,3152 

47057 

0 

SR* 

RTS 

32  2 0 

26,3153 

57176 

0 

0,2 

322  1 

REF 

6 

LAST 

581 

26,3154 

21633 

1 

TPMODE 

STORE 

VARIANCE  TRIPLE  PRECISION 

3222 

REF 

10 

LAST 

581 

26,3155 

16707 

0 

STODL 

VAR  I ANCE 

3223 

REF 

2 

LAST 

146 

26,3156 

03732 

1 

S INTHETA 

3224 

26,3157 

44336 

1 

AS  IN 

BDSU 

SIN 

THFTA  IN  PDA 

322  c 

REF 

3 

L AST 

570 

26,3160 

03734 

1 

8 RT  r !JN 

3226 

26,3161 

54405 

0 

DMP 

SL3P 

3227 

REF 

2 

LAST 

580 

26,3162 

15441 

1 

2 P I / 8 

3228 

26,3163 

52525 

1 

PDDL 

SL3 

3225 

REF 

3 

LAST 

580 

26,3164 

01703 

1 

X789  +2 

32  3 C 

26,3165 

44  25  7 

1 

5RR* 

BDSU 

SHIFT 

FROM  - 5 / - 3 TO  BO 

3231 

26, 31 66 

56176 

1 

0,2 

3232 

26,3167 

53605 

1 

p.V:P 

SRR* 

3233 

RFF 

9 

LAST 

582 

26,3170 

03722 

0 

RXZ 

3234 

26,3171 

21601 

0 

0,1 

323  5 

REF 

7 

LAST 

580 

26,3172 

37547 

0 

ST CALL 

DELTAQ 

EARTH 

B-29 . MOON  B-27 

3236 

REF 

4 

LAST 

581 

26 , 3173 

55401 

1 

LGCUPDT F 

323  7 

26,3174 

77624 

1 

CALL 

323P 

RFF 

16 

LAST 

581 

26,3175 

1 1244 

0 

GRP2PC 

3239 

26,3176 

77650 

1 

PFNDEND  GOTO 

3240 

REF 

1 

26,3177 

50566 

1 

R22LEM93 

R3241  FUNCTIONAL  DESCRIPTION 

R3242  L S-22.A  IS  1 HE  ENTRY  TO  PERFORM  I UMAR  SURFACE  NAVIGATION  FOR  THE  L M 

R3243  CO  'RUT  F ’■  <IL  Y.  THIS  'UTINE  COMMUTES  THE  B-VECTORS  AND  DELTA  0 FOR.  RANGE 

R3?“  AMD  RANGE  R ATF  MEASURED  BY  THF  RENDEZVOUS  RADAP 

R3245  SUBROUTINES  CALLED 

R3246  INSTALL  LGCUPDT  E INC0RP1  RP-TO-R 

R 3247  INTEGRV  GETULC  INCiRP? 

R 3248  OUTPUT 

R 3249  CORRECTED  CSM  STATE  VECTOR  (PERMANENT) 

R 3250  NUMBER  OF  MARKS  INCORPORATED  IN  MARKCTR 


GAP:  ASSEMBLE  RE  VI  SI  DP  00 1 OF  AGC  ft-.  0 GRAM  AP11R0PE  BY  EYlFS 
L P20-P25 

R 325 1 MAGNITUDE  OF  POSITION  DEVIATION  (FOR  DISPLAY)  IN  R22DISP  METERS  B-29 
iDE  r F VELOCITY  DEVIATION  (FOR  DISPLAY)  IN  R22DISP  +2  M/CSEC  B- 
R.  3253  UPDATED  W-MATRIX 

8 3?V  ERASABLE  INI  ' 1 At  l Z AT  1 ' . F DJI  TO 
R3255  l.M  AND  C SM  STATE  VECT'-"  < 

R3256  W-MATRIX 

R 3257  MARK  TIME  IN  MKT  I ME 

R 3258  ADA-  RANGE  IN  KM  METERS B-29 

R 32  59  RANGE  RATE  IN  RDCTM  METERS/ CS  EC  B-7 

R 3260  VEHUPFIG 


3261 

3262 

3263 
32  64 
3 2tc 

3266 

3267 
3263 
3 269 

3270 

3271 

3272 

3273 

3274 

3275 

3276 

3277 


REF  15  LAST  576 

REF  3 LAST  576 
REF  1 4 LAST  ',7  a 

REF  5 LAST  576 

REF  17  LAST  382 

0 E F 2 LAST  5?5 
REF  16  LAST  533 

KEF  3 LAST  306 
RFF  1 

k F 7 LAST  576’ 


26.3200 

26.3201 

26 . 3202 
26, 3 2 0 3 

26. 3204 

26.3205 

26 . 3206 

26.3207 

26 .3210 

26.321 1 

26 .3212 

26.3213 

26.3214 
26,3213 

26.3216 

26.3217 
36 , 3220 


77624 
2 74  14 
43014 
C 1472 
01  674 
77624 
55242 
77624 
1 1 244 
4C  014 
02666 
27414 
46145 
03463 
6 5 2 3 1 
43  014 
01675 


LSR22.4 


CALL 

SET 

CALL 

CALL, 

CLEAR 

DLOAD 

CLEAR 


TNT SI AlL 
C LE  4° 
STATEFL G 
V I NT FLAG 

INTGRCAL 

GR.P2PC 
CALL 
DMENFLC 
INTSTALL 
BHI  7 
MARK.CTR 
IN ITWMX6 
SET 

D600RFL  G 


3278 

REF 

11 

LAST 

576 

26,3221 

01476 

0 

DIMOFLAG 

3279 

26,3222 

43014 

0 

SET 

CLEAR 

3280 

REF 

1 *5 

LAST 

533 

26, 3223 

014  74 

1 

VINTFLAG 

L -J 

3281 

REF 

5 

LAST 

576 

24 ,322 x 

0 1673 

1 

INTYPFLG 

3282 

26 , 322  r 

77  624 

1 

CALL 

3283 

RFF 

6 

LAST 

583 

26,3226 

55242 

0 

INTGRCAL 

3284 

26,3227 

77650 

1 

GOTO 

3285 

REF 

2 

LAST 

576 

26,3230 

5'  5 1 ( 

1 

RANGEBO 

3286 

26,3231 

7 7624 

1 INlTWMXfc 

CAL  L 

3287 

REF 

2 

LAST 

576 

26,3232 

2 : J 

1 

WLI NT T 

32  PP 

26 ,3233 

■ c l 4 

0 

SET 

CALL 

328° 

RFF 

16 

L AST 

583 

26,3234 

01474 

1 

VINTFLAG 

3290 

REF 

6 

LAST 

575 

26, 3235 

26644 

0 

SET  I FLGS 

3291 

26,3236 

776  24 

1 

CAL  l. 

3292 

REF 

7 

LAST 

533 

26,3237 

3 524? 

0 

INTGRCAL 

3293 

26,3240 

77650 

1 

Ip  to 

3294 

RFF 

3 

t AST 

583 

26,3241 

54510 

1 

RAMGFBO 

R 329  5 

THIS 

ROUTINE  CL 

EARS 

PFINAL  (DP 

) AND  l 

CALLS  INTEGRV 
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CALL  TO  GET  LM  POS  + VEL  IN  TEF  CDOPD. 

SET  MATRIX  SIZE  TO  6X6  Fhr  IMCORP 
IS  THIS  FIRST  TIME  THROUGH 
YES.  INITIALIZE  6X6  W-MAfRTX 


INITIALIZE  W-MATRIX 


GAP  : 

ASSEMBLE  REVISION  001 

OF  AGC  PROGRAM  A' 

=>1  1RGPE  BY  EYLES 

3:15  DEC.  2,1970  LEMP20S  .127  PAGE 
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P20- 

P 25 

USER'S  PAGE  NO.  93  E7  S3 

3?«6 

26,3242 

71220 

1 

JNTGPCAL 

STQ 

DLOAD 

3297 

REF 

l 

26 , 3243 

03675 

0 

I GR  E T 

329  8 

REF 

6 

LAST 

570 

26,3244 

U 3 7 5 5 

0 

MKT  I ME 

329c 

OFF 

IF 

LAST 

570 

26,3245 

34  C41 

0 

STCALL 

TDEC1 

3300 

~EF 

8 

LAST 

500 

26 , 3246 

27134 

l 

INTEGR V 

3301 

26,3247 

77650 

1 

GOT  o 

3302 

REF 

2 

LAST 

584 

26, 3250 

03675 

0 

IGRET 

R 3303 

THI  S 

ROUT  I ME 

INITIALIZES  THE 

w-matri 

X 

BY  ZEROING 

ALL  W 

THEN  SETTING 

Q 3304 

DI  AGONAL 

ELEMENTS  V 

I MI  1 I AL 

S TOP  F D ' 

VALUES. 

3305 

9 EF 

4 

LAST 

127 

E 5 , 16  00 

E 8 AN  K = 

W 

3306 

28 , 3251 

77776 

1 

WL IN  IT 

EXIT 

3307 

REF 

1 

26 , 3252 

3 3331 

0 

CAF 

W BANK 

3308 

REF 

14 

LAST 

579 

26,3253 

54  C06 

0 

TS 

BBANK 

330c 

RFF 

1 

2 6,32  58- 

3 3437 

1 

CAF 

WSIZ-E 

3310 

REF 

2 

L AST 

107 

26,3255 

55*257 

1 

TS 

W . T NO 

331  1 

PEF 

124 

LAST 

576 

2 6 , 3 2 c 6 

3 4755 

1 

CAF 

ZERO 

3312 

P EF 

3 

l AST 

584 

26, 3257 

51  ’257 

0 

INDEX 

W . IND 

3313 

REF 

5 

LAST 

584 

26,3260 

55  ’400 

0 

TS 

W 

33 1 4 

REF 

. 4 

LAST 

584 

26 , 326  1 

11*257 

1 

CCS 

W . IND 

331  c 

26 , 3262 

0 3255 

0 

TC 

-5 

3316 

REF 

2 

LAST 

579  , 

26, 3263 

3 33  32 

0 

CAF 

AIGBANK 

RESTORE  EBAMK  7 

331  7 

REF 

15 

LAST 

584 

26,3266 

54  0 06 

0 

TS 

8 BANK 

3318 

REF 

54 

LAST 

579 

26, 3265 

0 6 037 

0 

TC 

I NT  PR ET 

3319 

26,3266 

67214 

1 

BON 

SLOAD 

IF  ON  LUNAR  SURF  AC E , I N I T I AL I Z E WITH 

3320 

REF 

10 

LAST 

579 

26,3267 

04307 

1 

SURFFI  AG 

WSURFPOS  AND  W SUP.  FVEL  INSTEAD  OF 

3321 

P EF 

1 

26 , 327  0 

5 5274 

0 

WLSPFPOS 

WRENDPOS  AND  WRENDVEL 

3322 

REF 

2 

LAST 

1 17 

26,3271 

02001 

1 

WRENDPOS 

3323 

26,3272 

77650 

1 

GOTO 

3324 

REF 

1 

26,3273 

55276 

I 

WPOSTOPF 

3325 

26,3274 

77735 

0 

WLSKFPOS 

SLOAD 

3326 

REF 

1 

26, 3275 

02  007 

1 

W SURF  POS 

3327 

26 , 3276 

77661 

0 

WP OS  TORE 

SR 

SHIFT  TO  B— 19  SCALE 

3328 

26,3277 

206CS 

0 

5 

3329 

REF 

6 

LAST 

584 

26 , 3300 

02401 

0 

SN  RE 

W 

3330 

REF 

7 

LAST 

584 

26,3301 

02411 

1 

STORE 

W +8D 

3331 

REF 

8 

LAST 

584 

26,3302 

02421 

1 

STORE 

W +1  6 D 

3332 

26,3303 

67214 

1 

BON 

SLOAD 

3333 

REF 

11 

LAST 

586 

26 , 3 30  4 

04307 

1 

SURFFLAG 

3334 

RFF 

1 

26. , 3305 

5 ‘ • 3 1 1 

1 

WLS ■ F V EL 

3335 

RFF 

1 

26, 3306 

02002 

1 

WRENDVEL 

3336 

26,3307 

77650 

1 

GOTO 

3337 

REF 

1 

26,3310 

553  13 

0 

WVELSTOR 

3338 

26,3311 

7 7735 

0 

WLSRFVEL 

SLOAD 

33  3° 

REF 

1 

2 ~ , 3 3 1 2 

02010 

1 

W S U F FVEl 

3340 

P EF 

9 

LAST 

534 

26, 3313 

0251  1 

0 

WVELSTOR 

STORE 

W +7  2D 

334  1 

RFF 

10 

LAST 

584 

26,?314 

02521 

0 

STORE 

W + 80D 

3342 

PEF 

1 1 

LAST 

584 

26,3315 

02531 

1 

STORE 

W +88  D 

3343 

26,3316 

77735 

0 

SLOAD 

584 


GAP: 
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L P20-P25 

3344  PEF  1 

3345  REF  12 

3346 

3347  REF  1 

334"  REF  13 

3340 

3350  REF  3 

3351  REF  4 

3352 
335  3 


LAST 

584 

26 

26 

26 

26 

26 

LAST 

58  5 

LAST 

LAST 

576 

583 

c. 

26 

26 

26 

26 

, 3317 

02003 

0 

,3320 

02621 

0 

,3321 

77735 

0 

,3322 

02004 

1 

,3323 

02631 

1 

, 332* 

66214 

0 

,3325 

02476 

0 

, 3326 

03463 

0 

,332  7 

00000 

1 

, 3330 

77616 

0 

WSHAET 

STORE  W +144D 
SLOAD 

WTRUN 

STORE  W +152D 
SET  SSP 

R ENDWFLG 

MARKCTR 

0 

P VO 


3354 

PFF 

14 

L AST 

505 

E5 , 1400 

E B A N K = 

V 

3355 

REF 

3 

LAST 

583 

26,3331 

54065 

0 

W BANK 

BBCON 

W L I N I T 

3356 

REF 

7 

LAST 

579 

E7 , 1457 

EBANK= 

AIG 

3357 

REF 

2 

LAST 

506 

26 , 3332 

54067 

1 

AIG8ANK 

BBCON 

LSR22.3 

R 3358 

GFTULC 

R 3359  THIS  SUBROUTINE  COMPUTES  THE  RELATIVE  POSITION  VECTOR  BETWEEN  THE  CSM 
R 3360  AND  THE  LM,  LEAVING  THE  UNIT  VECTOR  IN  THE  PUSHLIST  AND  MPAC  AND  THE 
R 336 1 MAGI!  I JUDE  IN  36D. 


3362 
336  3 

3364 

3365 

3366 

3367 

336  8 
3349 

3370 

3371 

3372 

3373 

3374 
337^ 

3376 

3377 

3378 

337  • 

3380 

3381 

3382 

3383 
R3334 


REF 

1 

REF 

3 

LAST 

576 

vpp 

I A QT 

s on 

C - 

i_  0 1 

J WXJ 

REF 

1 

REF 

1 

REF 

1 

REF 

7 

LAST 

58  1 

REF 

8 

LAST 

585 

RADARANG 


26,3333 
26  3334 

7 7201 

oc  00 1 

1 GETULC 

0 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

SET  PD 

V LOAD 

0 

26.3335 

26.3336 

26.3337 

26. 3340 

26.3341 

26 . 3342 

26.3343 

26.3344 

26 . 3345 

26 . 3346 

01645 
77754 
03720 
53257 
57165 
0 1661 
537  15 
01573 
57165 
5 22  55 

L XA  , 2 

VSR* 

DELTALEM 

SCALSHFT 

VAD 

90,2 

FCVLEM 

VSR* 

DELTACSM 
9 D , 2 

VSU 

PDVL 

VAD 

26,3347 

01  607 

1 

r'Cvcr.M 

?4 , 3350 

41*  34 

1 

PTB 

PUSH 

26,3351 

21724 

0 

MU  NX  1 

26,3352 

17724 

0 

STODL 

ULC 

26,3353 

00045 

0 

36D 

26,3354 

776  57 

0 

St.  4 

26,3355 

20201 

0 

0,1 

26,3356 

24045 

0 

STOVL 

36D 

26,3357 

03724 

0 

ULC 

26,3360 

7 7616 

0 

RVQ 

R 3385  THIS  SUBROUTINE  C NPUTES  SINT  NET  A = -ULC  DOT  MY 
R 33 R 4 XZ  = ( SO!  T (1-SINTHET4**?  MRLC 

R 3387  OUTPUT 

R3388  ULC  IN  ULC,  P DO 
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USER'S  PAGE  NO.  94  E5  S3 


SET  R ENDWFLG  - W-MATP I X VALID 
SET  MARK  COUNTER  EQUAL  ZERO 


LOAD  X2  WITH  SCALE  SHIFT 
SHIFT  FOR  EARTH /MOON  RPHERF 

SHIFT  FOR  EAF  T H/MOCN  SPHERE 

USE  NORMUNIT  TO  PRESERVE  ACCURACY 

ADJUST  MAGNITUDE  FROM  NORMUNIT 


ULC  IN  PDO  AND  MPAC,PLC  IN  36D 


GAP:  ASSEMBLE  REVISION  OC1  ,OF  A3C  PROGRAM  APllROPE  BY  EYLES 

L P20-P?5 


338*3 

RLC 

IN 

F 036 

D 

3390 

S IN 

TFETA  IN 

SINTHETA  AND  PD6 

3391 

RXZ 

NORM 

I IN 

RXZ  (N 

IN  XI) 

33°  2 

26,3361 

45020 

1 

t ADA*  ANG 

STQ 

33°  3 

REF 

2 

LAST 

145 

26,3362 

03675 

0 

339/ 

REF 

3 

LAST 

577 

26,3363 

5 5333 

1 

! 3 5 

26, 3364 

50276 

1 

VCQMP 

339/ 

REF 

5' 

LAST 

581 

26,3365 

03705 

0 

3397 

41572 

X 

SI  1R 

339F 

REF 

3 

LAST 

5«2 

26,33 6 7 

03732 

1 

STORE 

3399 

26 , 3370 

4 4316 

0 

DSQ 

3^00 

»FF 

3 

LAST 

35? 

26,3371 

065  12 

3401 

26,3372 

41366 

1 

SORT 

3402 

26,3373 

0C045 

0 

340  3 

26,3374 

70352 

g 

SL1 

3404 

REF 

4 

LAST 

57? 

26,3375 

00047 

1 

34Gr 

REF 

1 ) 

LAST 

58  2 

26,3376 

037  22 

0 

STORE 

3404 

7f~, , 3377 

77  6 50 

1 

GO  TO 

3407 

REF 

3 

LAST 

586 

26,3400 

03675 

0 

3408 

26,3401 

45020 

1 

LGCUPDTE 

STQ 

340° 

REF 

3 

LAST 

145 

2 t , 3402 

03675 

u 

34 1 0 

REF 

1 

26 , 3403 

465  51 

1 

34 1 1 

26,340 '+ 

''157  5 

1 

VLOAD 

341? 

REF 

3 

LAST 

1 26  ' 

26, 340  5 

02  67  3 

1 

3413 

26,3406 

53754 

1 

LX  A , 2 

3414 

REF 

4 

LAST 

535 

26, 3407 

0372C 

1 

3415 

2o, 3410 

56174 

0 

34  16 

REF 

3 

LAST 

314 

26,341  1 

243  1 7 

1 

STOVL 

3417 

REF 

4 

LAST 

5 86 

26, 3412 

026  65 

0 

34  1 c 

26, 3/ 1 3 

53696 

0 

A8VAL 

3419 

26, 3414 

5 6 1 74 

0 

3420 

REF 

4 

LAST 

586 

26,3415 

Of  315 

0 

STORE 

3421 

26,3416 

5433  5 

0 

$ LO  A D 

3422 

REF 

1 

26,3417 

02005 

0 

3423 

26,3420 

20613 

1 

342/ 

26,3421 

50025 

0 

OSU 

3425 

REF 

5 

LAST 

586 

26,3422 

0315 

0 

3426 

REF 

1 

26,3423 

50572 

1 

3427 

26,3424 

45335 

0 

5L0AD 

342  P 

REF 

1 

26,3425 

02006 

0 

3429 

KEF 

6 

LAST 

584 

26 , 3426 

00317 

1 

3430 

26,3427 

77640 

0 

8MN 

3431 

REF 

2 

LAST 

586 

26 , 3430 

50572 

1 

3432 

26,3431 

77624 

1 

astok 

CALL 

343  3 

REF 

1 

26, 3432 

46  743 

0 

3434 

26,3433 

77650 

1 

GOTO 

3435 

P.FF 

4 

1 AST 

586 

26,3434 

03675 

0 

3/3  6 

26,3435 

00103 

0 

IMUVAR 

2t)FC 

3436 

26,3436 

03370 

0 

3437 

26 , 3437 

00241 

0 

WSI  ZE 

DEC 

3 
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USER'S  PAGE  NO.  9*  E5  S3 

CALL 

roreT 

GETULC 

DOT 

MY 

PUSH 

SINTHETA 

BDSU 

SIN  THETA  TO  PD6 

..e 

DPI /4TH 

DMP 

36D 

NORM 

1 - (SIN  TFETA ) **2 

XI 

P XZ 

SET  SHIFT  COUNTER  IN  XI 

RDRET 

CALL 

LGRET 

INCPKP1 

A OVAL 

DELTAX  +6 

SRR* 

FXIT 

SCALSHFT 

2,2 

R 220 ISP  +2 
DELTAX 

s r * 

O-MOOK . 2-EAPTH 

SET  VEL  DISPLAY  tq  B-7 

2,2 

R22DI SP 

SR 

K MAX 

10D 

BMN 

R22DI SP 

SET  PCS  DISPLAY  TO  B-29 

K22LEM96 

DSU 

V M A X 

GO  DISPLAY 

< 22DISP  +2 

V"/ A X MINUS  VEL.  DEVIATION 

R221.EM96 

INC0KP2 

GO  DISPLAY 

LGRET 

E-6  B 1 2 

RAD** 2 

161 

i 
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USFR’S  PAGE  NO.  96 


.127  PAGE 
E5  S3 


3^38  26,3460  31103  1 2PI/8  2 DEC  3.141592653  B-2 

3438  26,3441  36652  0 

3439  REF  30  LAST  575  E7,1456  EbANK=  LOSCOUNT 


537 


) 


GAF  : 

ASSEMBLE  REVISION  0C1  OF 

AGC  PROGRAM  API  1RGPE 

BY  EYLES 

3:15  DEC.  2,1570 

LEMP20S 

.127  PAGE  588 

..l 

L 

P20-P25 

USER'S  PAGE 

NO.  97 

E?  S3 

P 34 

PROGRAM  NAME  LRS24.1 

RR  SEARCH  ROUTINE 

R 344  1 

MOD  MO  0 BY  P 

VOLANTE  SDC 

DATE  l-15-o7 

R 3442  FUNCTIONAL  DESCRIPTION 

R3443  D IVES  THE  RENDEZVOUS  ' A C A F II  A HE  X AG  ON  A I SEARCH  PATTERN  ABOUT  THE  LOS  TO  THE  CSM  (COMPUTED  FROM  THE  CSM  AND  LM 
R 344  5 STATE  VECTORS ) CHECKING  FC  THE  DATA  GOOD  DISCRETE  AND  MONITORING  THE  ANGLE  BETWEEN  THE  RADAR  BORESIGHT  AND  THE 

R 34  A t LM  +Z  AXIS.  IF  THIS  ANGLE  EXCEEDS  30  DEGREES  THE  PF  E FE  \E  D TT>  ACK  IN & ATTITUDE  ROUTINE  IS  CALLED  TO  PER  FOF  M AM 

R344S  ATTITUDE  MANEUVER  . 


R 345  0 CALLING  SEQUENCE  - BANKCALL  FOR  LRS24. 1 


R 345 1 SUBROUTINES  CALLED 

P 3452  l EM CONIC  pill  EM 

R 345  3 CSM  CON  I C RRDESSM 

R 3454  JOBDELAY  FLAGDOWN 

R 3455  WAITLIST  FLACUP 

R 345 6 F MB  BANKCALI 


R 3457  EXIT  - TO  END OF  JOB  WHEN  THE  SEARCH  FLAG  (S'CHOPT)  IS  NUT  SET 


345  8 

OUTPUT 

3459 

DATAGUOD 

( cp 

3460 

3461 

OMEGAD 

( SP 

FOP 

D! 3PL AY 

IN 

Ri- 

00000 

I 

1 111  1 

I 

FOR 

DISPLAY 

IN 

ft  2- 

ANGLE 

B 

NDICATES  NO  LOOKCN 
NDICATES  LOCKON  ACHIEVED 
ETWEEN  FR  BORESIGHT  VECTOR 


AND  THE  SPACECRAFT  +Z  AXIS 


P 3463  ERASABLE  INITIALIZATION  REQUIRED 
R 3464  SEARCH  FLAG  MUST  BE  S FT 

R 3465  l.M  AMD  CSM  STATE  VECTORS  AND  PEFSMMAT  MATRIX 

R 3466  DEBRIS 


R 3467 
R3^6R 
R 3460 
R 3470 
R 3471 


RLMSRCH 
VXRLM 
LOSDFSRD 
DAT  A GO OD 
MP  AC 


UXVECT 
UYVECT 
!"SF  CHPNT 
DM  EC- AD 
°U  SHL 1ST 


3472 

REF 

1 

COUNT* 

$ S/l  RS2* 

3473 

REF 

125 

LAST 

5 34 

26,3442 

3 4755 

1 

LKS24.1 

CAF 

ZERO 

3474 

RFF 

2 

L AST 

144 

26 , 344  b 

55' 736 

0 

TS 

NSRCHPNT 

SFT  S F ARC  H 

PATTERN  POINT 

COUNTER  TO  ZERO 

3475 

REF 

c2 

LAST 

5 5 1 

26,3444 

3 4736 

1 

CHKSRCH 

CAF 

BIT  14 

TSSUF  AUTO 

TF  ACK  ENABLE 

TO  RADAR 

3476 

26 , 3445 

0 0006 

1 

EXTEND 

1” 
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L 

820- 

P25 

USER’S  PAGE  NO. 

98 

E7 

3477 

REF 

38 

LAST 

562 

26,3446 

05 

012 

1 

WF!R 

CHAN  12 

3478 

REF 

l 

26,3447 

3 

4736 

1 

CAF 

SRCHOBI T 

CHECK  I F SEARCH  ST  ILL 

REQUESTED 

3479 

REF 

10 

LAST 

552 

2 6,346,0 

7 

CO  7 6 

1 

MASK 

FLAGWRD2 

( SRCHOPT  FLAG  SET) 

3480 

26,3451 

C 

00  06 

1 

EXTEND 

3481 

REF 

93 

LAST 

652 

26 , 345  2 

1 

5155 

1 

BZF 

ENDDF JOB 

NO-TE PM  I N AT  F JOB 

348? 
348  3 

3464 

3465 
3*86 

3486 

3487 

3488 
348c 

3490 

3491 
349? 


REF  1 

FF  ?4  LAST  6,  1 
RFF  31  LAST  co7 
REF  3 LAST  516 


REF  57  LAST  569 
REF  5 LAST  546 

RFF  94  LAST  589 
REF  55  LAST  5«4 


26.3453  3 3713  1 

26.3454  C 0004  0 

26.3455  0 5203  0 

E7 , 1466 

26.3456  03643  0 

26.3457  54067  1 

26 , 34<  ( 1 

26,1461  4 0110  0 

26,346?  7 4736  0 

26,3468  0 CO 06  1 

26 ,346-  1 515  5 1 

26,3465  0 6037  0 


CAF  6SEC0NDS 
INHINT 

TC  WAITLIST 

F BAN K=  LOSC CULT 
2CADF  CAL1DGCH 

REL INT 

CS  FADMODE S 

MASK  I EM00B1T 
EXTEND 

BZF  FNDOF JOB 
TC  INTPRET 


SCHEDULE  TASK  TO  DRIVE  F A DAP  TO  NEXT  PT. 
IN  6 SECONDS 

IS  REMODE  IN  PROGRESS 

YES-  WAIT  SIX  SECONDS 


349  3 

2 0 , 346  6 

43234 

0 

RTB 

DAD 

34  9'' 

REF 

1 2 

LAST 

6 18 

26,3467 

21573 

0 

LOAD  V IT 

34  46  5 

REF 

1 

26,3470 

15  718 

0 

1.5SECS 

3icc 

RFF 

1 0 

LAST 

584 

2 6 ,3*71 

-•$£.04  1 

0 

j r.  c ? . 1 1 C re  A I 1 

TDEC  1 

L O 6 a JL  1 O 1 w FA  L 1. 

3496 

REF 

4 

LAST 

565 

26,3472 

27100 

0 

LEMCQNIC 

3497 

26,3473 

77775 

1 

VLCAD 

3498  m 

REF 

7 

LAST 

565 

26,3474 

OC  001 

0 

RATT 

3499 

REF 

4 

LAST 

148 

26,3475 

27676 

0 

SI  ! VI. 

- LMSRCH 

3500 

REF 

3 

LAST 

5 6 5 

26,3476 

00007 

0 

VATT 

38  01 

REF 

1 

04,  -1  /•  7 7 

1-7/  ,1 

1 

c -not 

; a\/|  cmv 

1 1 1 *'V7 

1 

j ruuL 

O H V L L rl  V 

3502 

REF 

LAST 

565 

26,3500 

0C015 

0 

TAT 

3503 

REF 

20 

LAST 

589 

26, 3501 

34041 

0 

STCALL 

TDEC1 

3506 

REF 

3 

1 A ST 

565 

26 . 350  ? 

7 7 r,  a 

r SMr  ow  1 r 

f . 1 V.x  < J 

i 

v>  ' v • (IV  i y 

3505 

26,3503 

52  3 7 5 

1 

VI  u AD 

VSU 

3506 

REF 

8 

LAST 

589 

26,3504 

Ct  001 

0 

RATT 

3507 

REF 

5 

LAST 

5 %9 

26,3895 

036  76 

0 

D LMSRCH 

3508 

26, 3506 

77656 

1 

UNIT 

3509 

REF 

2 

LAST 

144 

26,3507 

27712 

0 

STOVL 

LOSDESRD 

3510 

REF 

, 4 

LAST 

589 

26,3510 

00  0 07 

0 

VATT 

3511 

26 ,3511 

47256 

0 

Ul  I T 

VXV 

3512 

REF 

9 

LAST 

589 

26,3512 

CO  001 

0 

I ATT 

3513 

26,3513 

7 7 6 5 6 

1 

UN  I T 

3514 

REF 

2 

LAST 

144 

26,35  14 

03704 

1 

STORE 

VXRCM 

351  5 

26 , 351 5 

52375 

1 

VLOAD 

VSU 

35ic 

REF 

5 

LAST 

53  9 

26,3516 

00007 

0 

VATT 

3517 

RFF 

2 

1 AST 

589 

26,3517 

0 3740 

1 

SAVLEMV 

3518 

26,3520 

76521 

0 

MXV 

VS  LI 

351  0 

REF 

13 

LAST 

58  0 

26, 3 52  1 

01734 

0 

R FF  SI'  MAT 

3520 

REF 

3 

LAST 

589 

26,3522 

0 3740 

1 

STORE 

SAVLEMV 

3521 

26,3523 

53135 

0 

SLQAD 

BZE 

COMPETE  LOS  AT  PRESENT  TIME  + 1.5  SEC. 


EXTRAPOLATE  1M  STATE  VEC.TOF. 


SAVE  LEM  POSITION 

SAVE  1 EM  VELOCITY 

EXTRAPOLATE  CSM  STATE  VECTOR 
EXTRAFCLATF  CSM  STATE  VECTOR 
LOS  V EC  TO  R = F.  ( CSM)  -R  ! LM  ) 


STORE  DESIRED  LOS 

COMPUTE  UNIT (V (CM)  CROSS  R ( CM ) ) 


CONVERT  FPOM 

VLC  = V(CSM) 
CHECK  IF  N=0 


REFERENCE  tq 
- V ( L M ) 


STABLE  MEMBER 
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3522 

REF 

3 

L ART 

538 

26,3524 

03737 

1 

3523 

REF 

1 

26,3525 

55636 

1 

3574 

2 , i 526 

53025 

c 

usu 

->  •>  C- 

3525 

REF 

1 

26,3527 

16711 

1 

3526 

R EF 

1 

26,3530 

55623 

0 

3527 

26,353 1 

77775 

1 

VLOAD 

352  fi 

REF 

2 

LAST 

1 44 

26, 3532 

03720 

1 

3529 

REF 

1 

26,3533 

24015 

0 

STOVL 

3530 

REF 

2 

LAST 

144 

26,3534 

03726 

1 

3531 

REF 

1 

36,3535 

00023 

0 

STOP  E 

3532 

26,3536 

77761 

1 

VXSC 

3533 

REF 

1 

26 ,3537 

15705 

1 

3534 

REF 

3 

LAST 

590 

26,3540 

27720 

1 

STOVL 

3535 

REF 

2 

LAST 

590 

26,3541 

00015 

0 

35  36 

26 , 3542 

53361 

0 

VXSC 

3537 

P.  EF 

1 

26, 3543 

06520 

0 

3538 

RFF 

4 

LAST 

590 

26,3 56  4 

0 3720 

1 

353° 

25,3565 

77656 

UNIT 

3540 

REF 

5 

LAST 

590 

26,3546 

27720 

1 

STOVL 

3541 

REF 

3 

LAST 

590 

26,3547 

GOO  15 

0 

3542 

26,3550 

77761 

1 

VXSC 

3543 

REF 

2 

! AST 

590 

26,355  1 

15705 

1 

3544 

REF 

3 

LAST 

590 

26,3553 

27726 

1 

STOVL 

3545 

REF 

2 

LAST 

5 90 

26, 3553 

OC  02  3 

0 

3546 

26,3554 

52361 

1 

VXSC 

3547 

REF 

2 

LAST 

590 

26,3555 

06520 

0 

3548 

REF 

4 

LAST 

59  0 

26,3554 

0 3726 

1 

3^4° 

26,3557 

77656 

1 

UNIT 

35  i( 

REF 

5 

LAST 

590 

26, 3560 

0 3726 

1 

STORE 

3551 

26, 3561 

5 33fc>  1 

0 

OFFCALC 

VXSC 

3552 

REF 

1 

26,3562 

1570  7 

0 

3553 

REF 

3 

LAST 

539 

26,3563 

03712 

0 

3554 

26,3564 

642  56 

1 

UNIT 

3555 

REF 

14 

LAST 

589 

26,3565 

01  734 

0 

3556 

26,3566 

77772 

0 

VSL  1 

3557 

REF 

1 3 

LAST 

571 

26, 366R 

25102 

0 

CONTDESG 

STOVL 

3558 

REF 

4 

LAST 

589 

26, 3570 

03740 

1 

3559 

REF 

5 

LAST 

565 

26,3571 

01761 

0 

STORE 

35'.  <" 

26, 3572 

77776 

cy  IT 

L_  A i.  i 

2C  1 

26,3573 

0 0CC4 

0 

I N HIM 

3562 

REF 

7 

LAST 

565 

26,3574 

0 6027 

1 

TC 

3563 

REF 

4 

LAST 

565 

24 , 3678 

5 26  02 

1 

C ADR 

3564 

356c 

REF 

1 

26,3576 

4 ^735 

0 

C0NTDES2 

CS 

3566 

REF 

93 

LAST 

58  9 

26,3577 

7 C110 

0 

MASK 

3567 

REF 

2 

LAST 

5 90 

26 , 3606 

6 4 7 3 6 

1 

AD 

3568 

REF 

99 

LAST 

590 

26 , 360  1 

5<  110 

c 

TS 

3 r <s  o 

RFF 

56 

LAST 

5 8 9 

26,  3692 

0 6037 

0 

TC 

3570 

26,3603 

77624 

1 

CALL 

3:15  DEC 


2,1970 


LEMP 20 S .127  PACE  590 


USER'S  PAGE  NO.  99  E7  S3 

N.SRCHPNT 

DESGLOS 

BZE 

ONE OCT 

CALCXY 

UXVECT 

YES-DESIGNATE  ALONG  LOS 

IS  N=1 

YES-C ALCUL ATE  X AND  Y AXES  OF 

SEARCH  PATTERN  COORDINATE  SYSTEM 

nh-rotate  x-y  axfs  to  next  search  POINT 

UXVECTPR 

UYVECT 

UYVECTPR 

SAVE  ORIGINAL  X AND  Y VECTORS 

UXPR1ME  = C!  I G, INAL  IJX 

UY PRIME  = ORIGINAL  UY 

S I N60DEG 

UXVECT 

UXVECTPR 

VAD 

C0S60DEG 

UXVECT 

UX  =( COS  60 ) UXPR  + { ST  N 60 ) UYPP 

UXVECT 

UXVECTPR 

S IN60DEG 

UYVECT 

UYVECTPR 

VSU 

C0S60DEG 

UYVECT 

UY=(-SIN60)UXPR  +ICOS  601UYPP 

UYVECT 

V AO 

OFFSTFAC 

LOSDESRD 

OFFSET  VECTOR  = KUJY) 

LOS  VECTOR  + OFFSET  VECTOR  DEFINES 
DESIRED  POINT  IN  SEARCH  PATTERN 

MXV 

• EFSMMAT 

RETARGET 

S AVI EMV 

LOSVEL 

CONVERT  TO  STABLE  MEMBER  COORDINATES 

Kll  LI  ASK 

DESI  COP  +2 

CDESBIT 

KILL  ANY  PRESENTLY  WAITt  ISTED  TASK 

WHICH  WOULD  DESIGNATE  Tn  THF  LAST 

POINT  IN  THF  PATTERN 

RADMODES 
CDESBIT 
r.  AD  MODES 
INTPRET 

SET  BIT  15  OF  RADMODES  TO  INDICATE 

A CONTINUOUS  DESIGNATE  WANTED. 

GAP: 


ASSEMBLE  REVISION  001  OF  AGO  PROGRAM  API 1R0PE  BY  EYLES 


3571 

357? 

3573 

357* 


A 357^ 
A 3576 
3577 
3576 
7C7° 
3580 
3C  31 

3582 

3583 

3584 

3585 
35  36 
3587 


P20-°  2 5 

REF  3 LAST  510  26,3604  62373  1 

26 , 3605  77776  1 EXIT 

REF  1 26,3606  0 3675  0 TC 

REF  2 LAST  591  26, 3607  0 3675  0 TC 


PEP  10  LAST  569 
RFF  8 LAST  c70 
REF  57  LAST  5^0 

REF  3 LAST  57G 

REF  3 LAST  144 
REF  95  LAST  589 


26,3610  0 0006  1 

26, M 11  3 C036  1 

26,3612  63 '763  0 

13  >037  0 

26.3614  77624  1 

26.3615  46041  0 

24.3616  55545  0 

26.3617  00045  0 

26.3620  03735  0 

26.3621  77776  1 

26.3622  0 5155  0 


OM EG CALC  EXTEND 
DC  A 
OXCH 
TC 

CALL 

DLOAD 

STOop 

EXIT 

TC 


RROtSSM 


l I MALA1- 6 
L IMALARM 


CDUT 

TANGNB 

INTPPET 

RRN6 
A COS 
3 6D 

OMEGOIPP 
ENDOF JOB 


3: 13  DEC 


2 , 1 9 70  LEMP20S  .127  PAGE  591 


USER’S  PAGE  NO.  100  E7  S3 

DESIGNATE  RADAR  TO  RRTARGET  VECTOR 

LOS  NOT  IN  MODE  2 COVERAGE  (P22) 
VEHICLE  MANEUVER  REQUIRED  (P20) 


COMPUTE  OMEGA, ANGLE  BETWEEN  »R  LOS  AND 
SPACECRAFT  +Z  AXIS 


OMEGA  IS  ARCCOSINE  OF  Z-C OPPONENT  OF 
VECTOR  COMPUTED  BY  RP.NB  (LEFT  AT  32D) 
STORE  FOP  DISPLAY  IN  R2 


GAP:  ASSEMBLE  REVISION  Of.  1 CF  AGC  PROGRAM  A "’Ll'  iDi  BY  EYLES 


L 

P 3588 

P2C-P2 5 

CALCULATE 

X and 

Y VE 

3589 

3590 

REF 

3 

LAST 

589 

35°  1 

REF 

4 

LAST 

5 90 

3592 

3593 

REF 

6 

LAST 

590 

3594 

REF 

5 

LAST 

592 

3595 

3596 

REF 

7 

LAST 

59  2 

REF 

6 

LAST 

590 

3598 

359° 

REF 

1 

Zb, 3623  47375  G CALCXY 


2ft, 3624 

26.3625 

26.3626 

26.3627 

26.3630 

26.3631 

26.3632 

26.3633 

26.3634 

26.3635 


037  0*-  1 


03712  0 
77656  1 
27720  1 
03712  0 
53435  0 
03720  1 
03726  1 
77650  1 
55561  0 


VLCAD  VXV 

VXRCM 
LOSDESR D 


UNIT 

STOVL 

VXV 

STORE 

GOTO 


UXVECT 
LOSOE  Sr.D 
UNIT 
UXVECT 
UYVECT 

OFFCALC 


3 

3601 

3602 

3603 


t AST 

59  2 

26.3636 

26 . 3637 

6-4375 
0 3 712 

1 

o 

DESGLOS  VLGAD 

5 XV 

LOSOE SR D 

LAST 

590 

26.3640 

26. 3641 

26.3642 

01  734 
52172 
55567 

0 

1 

0 

VSL  1 

ft  EFSMMAT 
GOTO 

CONTDESG 

360  5 

OFF 

24 

LAST 

49  8 

25,3643 

3606 

REF 

10 

LAST 

53° 

26,3644 

3607 

26,3645 

360  8 

REF 

25 

LAST 

530 

26, 3646 

3609 

R EF 

2 

1.  AST 

49  0 

26,36*7 

361  0 

REF 

23 

LAST 

546 

26,3650 

361 1 

p Ef 

6 

f A ST 

58  9 

F ? , 167  5 

3612 

REF 

1 

26,3651 

3612 

REF 

1 

26,3652 

3613 

REF 

26 

LAST 

592 

26,3653 

30  074 

1 

CALLDGCH  CAE 

FLAGWRDO 

7 4745 

1 

MASK 

RNDV  Z BIT 

0 0006 

1 

EXTEND 

1 52  fi  1 

Q 

8ZF 

T A S K n y J=  P 

1 H-  J l\  1 V •: 

3 7713 

0 

CAF 

P K 1 C ? 5 

0 5105 

0 

TC 

FIND VAC 

EBANK* 

RLMSRCH 

03654 

0 

2CADR 

DAT  GDC  HK 

54067 

i 

0 5261 

i 

TC 

TASKOVEf. 

36  1 i 

3615 

3616 

3617 

36  IF 

REF 

REF 

26 

19 

LAST 

l AST 

REF 

I 

3t  19 

REF 

1 4 

1 AST 

362  6 

REF 

4 

LAST 

3621 

3622 

REF 

2 

LAST 

36  2 3 

REF 

5. 

LAST 

3624 

n EF 

1 

537 

26,3654 

3 

97  50 

1 

26,3655 

0 

0006 

1 

569 

26,3656 

02 

033 

0 

26,3657 

0 

0006 

1 

2 ft , 366  9 

1 

36  67 

1 

433 

26, 366;  1 

4 

62  42 

1 

590 

2 6 , 366;  7 

6 

17  36 

1 

26 , 3663 

0 

f 006 

1 

516 

26,3664 

1 

3442 

1 

592 

26, 3665 

25 

' 73  6 

1 

26,3666 

1 

344-4 

1 

DAT  GOCHK  CAF 


BIT* 


CHAN 3 3 


ft  IX 

NSRCHPUT 

LRS24. 1 

NSRCHPNT 

CHKSRCH 


3625  REF  1 

3626  REF  5 LAST  515 


26,3667  3 3703  0 ST0RE1S 

26,3670  5 5 ' 7 33  0 


CAF 

TS 


ALLIS 
OAT AGOOD 


3: 15  DEC.  2, 

1970 

LEMP20S 

.127  PAGE 

USE" ' S 

PAGE 

NO.  101 

E7  S3 

UX  = ( VLM  X RLMiX  LOS 


UY  = l OS  X UX 


WHEN  N=  0, DESIGNATE  ALONG  LOS 

CONVERT  LOS  FROM  REFERENCE  TO  SM  COORDS 


IS  RENDEZVOUS  FLAG  SET 


NO- EX  IT  R 2 4 

YES  -SCHEDUIF  JOB  tq  DRIVE  RADAR  TO  NEXT 
POINT  IN  SEARCH  PATTERN 


CHECK  IF  DATA  GOOD  DISCRETE  PRESENT 


YES-  GO  TO  STORE  111  11  FOR  DISPLAY  IN  R1 


TS  N GREATER  THAN  6 


YES  - RESET  N = 0 AND 
NO-SET  N = M+l  AN  GO 
NEXT  POINT  IN  PATTERN 


START  AROUND 
TO 


AGAIN 


STORE  11111  FOR  DISPLAY  IN  PI 


GAR:  ASSEMBLE  uEVlSUN  001  rf.  AGC  PR  0 GRAM  APL.1P  Gp.£  BY  EYLFS 


L P20-P25 


3627 

26,3671 

0 0004 

0 

3628 

REF 

8 

LAST 

590 

26,3672 

0 6027 

1 

3629 

REF 

5 

LAST 

590 

26, 367 3 

52602 

1 

3630 

REF 

96 

LAST 

591 

26,3674 

0 5155 

0 

I MHI NT 
TC 

CADR 

TC 


3631  PEF  26  LAST  *56  26 , 367«5  0 4<=ft7  0 LIMA!  ARM  TC 


3632  26,3676  00527  l OCT 

3633  26,3677  0 COOL  0 INHINT 

363 A REF  LAST  503  26,3700  0 6027  1 TC 

3635  REF  A LAST  589  26,3701  55643  0 CAOr 

3636  REF  97  LAST  5^3  26,3702  0 5155  0 TC 


3637 
363  0 

363  8 
36  3° 

3640 

3641 

3642 

364  3 

3643 
364' 
364? 
3645 

A 36  46 
A 3647 
364  8 

3649 
364  P 

3650 
36  5] 

3652 

3653 

3654 
3<  ; ' 
3656 


REF 


REF 


RE  F 


REF 


REF 


7 LAST  362 


3 LAST  487 
3 LAST  224 
1 
1 


26, 
26, 
26, 
23  , 


26, 
2 6 , 
26, 
26, 
26, 


3703 
370  4 
370  5 
2517 
0014 
C 0 2 2 
0014 
370  6 
3 707 

3710 

3711 

3712 


26, 
26  , 
26, 
23, 


3713 
3 714 
3715 
,252  1 

4616 

oOCO 

6022 

6022 
60  2 3 


25547  0 
33555  1 
Oil  Q6  1 


C 1 642  0 
11045  0 

00001  0 
00000  1 

i 


0 1 130  1 
00000  1 

002  2 6 1 


0006  1 
6026  0 


ALLIS  DEC 
SI N6QDEG  2UEC 

C(  'S60DEG  = 
UXVECTPR  EQUALS 
UYVECTPR  EQUALS 
RLMUMIT  EQUALS 
GFFSTFAC  20EC 

ONECC‘r  ocr 

3 SECONDS  2 DEC 


6SEC0NDS  DEC 
1.5SECS  2DEC 


ZERL /SP 


GUTCV56 


EQUALS 
BLOCK 
SET LOC 
BANK 
COUNT* 
E XTF  ND 
DC  A 


3657 

REF 

4 

LAST 

457 

6024 

1 c 1 65 

1 

TCP 

3653 

REF 

2 

LAST 

4-36 

E 7 , 147  l 

EBANK 

365  c 

REF 

2 

LAST 

2 62 

602  5 

03024 

1 

VB5cCADR  2CA0R 

36  5 

602  6 

66  107 

1 

K ILLTASK 
DESLOOP  +2 
ENDOF JOB 

ALARM 

527 

K ILLTASK 
CALL  DOC H 
ENDOF JOB 


11111 

.86603 

DPHAI.F 

1 2D 
18D 
1 2D 

0.05678 

00001 
3 00 


6 00 
150 

HI6ZF1-  OS 
02 

FFTAG5 

$$/P20 

V356CADP 
SUPDXCHZ 
WHQCARES 
TRM TRACK 


3:15  DEC 


2,1970 
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USER'S  PAGE  NO.  102  E7  S3 


DELETE  DESIGNATE  TASK  FROM 
WAITLIST  USING  KILLTASK 


ISSUE  ALARM  527— LOS  NOT  IN  MPDF2 
COVERAGE  IN  P22  OP.  VEHICLE  MANEUVER 
REQUIRED  IN  P20 
KILL  WAITLIST  CALL  FOR  NEXT 
POINT  IN  SEARCH  ° AT  TERN 


( 2DEC  .50) 
PREVIOUS 


TANGENT  OF  3.25  DEGREES 

****  NOT  E-THE  SE  TWO  CONSTANTS  MUST 
****  BE  IN  THIS  ORDER  BECAUSE 

****  ONEOCT  NEEDS  A LOWER  ORDER 
****  WORD  GF  ZEROES 


44  44 
4*44 

4444 

44** 


P20  TERMINATES  BY  GOTOV56  INS T E A D OF 
GOTOPOOH 


LEMP20S  .127  PAGE  594 
NO.  103  E7  S3 

P3660  pR:  iGi-xAM  NAME:  R29  (RENDEZVOUS  RADAR  DESIGNATE  DURING  POWERED  FLIGHT) 

R 3661  MOD  NO.  2 BY  H.  BLAIP-SMITH  JULY  2,  1968. 


GAP:  ASSEMBLE  REVISION  001  CF  AGO  PROGRAM  API  1 O' PE  oY  EYLEL 

L P20-P? " 


3: 15  DEC.  2 ,1970 
USEE'S  PAGE 


P 3662  FUNCTIONAL  DESCRIPTION: 


R 3663 
P 366 5 
R 3667 
R36<  c 
R 367 1 
R 3673 


DESIGNATES  1 HE  RENDEZVOUS  ADA  TOWARD  THE  COMPUTED  LOS  TO  THE  CSM,  WITH  THE  CHI 
AND  RANGE  RATE  DATA  AT  2-SECOND  INTERVALS  FOR  TRANSMISSION  TO  THE  GROUND.  WHEf 
THE  COMPUTE, Q;  LOS,  BACKING  IS  ENABLED,  AND  DESIGNATION  CONTINUES  UNTIL  THE  DATA- 
THA "r  POINT,  DESIGNATION  CEASES  AND  A RADA'  -READING  ROUTINE  TAKES  OVER,  PREPARING 
DOW ' TELE  M E Tr  Y . THE  SET  T NCLUDES  -vAMGF,  AFGE  - ATF,  MARK  TIME,  TWO  PR  C DU  ANGLE 
INDICATOR  WHICH  IS  1 WHEN  THE  SET  IS  CONSISTED  AND  <-  OTHERWISE.  THE  INDICATOR 


EF  OBJECTIVE  OF  OBTAINING  RANGE 
THE  FR  IS  WITHIN  .c  DEGREE  OF 
GOOD  DISCRETE  IS  RECEIVED.  AT 
A CONSISTENT  SET  OF  D AT A EOF 
S,  THREE  IMUCDU  ANGLES,  AND  AN 
IS  IF  TPKMKCNT. 


R 367 6 


CALLING  SEQUENCE : 


BEGUN  EVERY  2 SECONDS  AS  AN 


INTEGRAL  PART  UR  SERVICER 


R 3 6 7 7 SUB,  OUTT'ES  C A!  L ED: 


R 3678 
R3679 
R 368  0 
R 3681 
R 3682 
R3f  7 3 


REMODE 

UNIT 

QUI CTR IG 
S P S I N 
SETr  FCR 
RRRDOT 


RRTONLY 

MPACVBUF 

AX*SR*T 

spcos 

RPOIJT 

RRRANGE 


R 3684  EXIT:  TO  H0R29N0W,  IN  SERVICER. 


R36 OUTPUT:  (ALL  FOR  DOWNLINK) 


3686 

PM 

RDOTM 

3687 

3688 

AI G 

AMG 

AOG 

TRKMKCNT 

3689 

TANGNB 

TANGNB  +1 

3690 

MKT  I UE 

( P AW  ) 

TRKMKCNT  = r>0 001  IE  SET  IS  CONSISTENT, 
OTHERWISE  TPKMKCNT  = 00000. 


t 


GAP:  ASSEMBLE  REVISION  001  OF  AGC  PROGRAM  AP1IR0PE  BY  EYLES 

L P20-P25 


3:  15  DEC.  2,1970  LEMP20S 
USER *S  PAGE  MO.  104 


.127  PAGE 
E7  S3 


P3691  ERASABLE  INITIALIZATION  REQUIRED: 


R 3692 

NUR29FLG  RE ADR  FL  G 

(70  1 AND  0 

BY 

R3694 

PIPTIME 

R A DM DDES  (BIT  10) 

(BIT  SET  TO 

0 B 

R 369  5 

R ( C S M ) 

V ( C.  S M ) 

R36°6 

p 

V 

(pipttme  th° 

U V 

FRESH  START.*  I'-ESET  N0R29FLG  TG  LET  SERVICER  RUN  P29) 
Y FRESH  START) 

BY  AVE  G IN  VICES) 


R 3697  DEBRIS: 


R 369  3 

RADMODES 

(BIT  10) 

P 36QO 

LOS  SM 

LnS  VDT /4 

( = op  TAR  C-ET 

R 3700 

SAVECDUT 

OLDESFLG 

(SAVECDU1  = 

R 370 1 

LOSCMFLG 

READ0 FL  G 

£ LOS VEL  ) 
ML  OS  V ) 


R3702  ALARMS:  NONE . 


R 3703  COMPONENT  JOBS  AND  TASKS: 

R370A  INITIALIZING,  IF  r R JS  FOUND  TO  BE  IN  MODE  1: 
R 3706  DESIGNATING:  TASK  BEGDFS2?  £ JOB  R29D0DES. 


R 3 7 0 ^ 

R ADAF 

EADING: 

TASK 

P.299»0  AND 

JOB  P 29P  DJOB. 

370  fi 

33,2045 

3709 

R E F 

1 

33,2000 

37 1 0 

3 3,20 Z' 

3711 

REF 

1 

3712 

REF 

2 LAST 

3S8 

5 : 1 4 

NR29  £.; 

JOB  R29KEMCJ  AND  TASK  R EM ODE : ALWAYS:  TASK  PR  EPOS  29. 
ALL  JOBS  ARE  NO VAC  TYPE. 

BANK  33 

SET  LUC  029/ S F r V 

BAk:  K 

COUNT  * $ $ / R 2 9 
R EQUALS  E BANK 5 


5°5 


GAP  : 


ASSEMBLE  . E VI  Eli;  0G1  OF  AGC  PROGRAM  API  1ROPE  BY  EYLES 


L P20-P 2 5 


P 371  3 

SERVI CER 

COMES 

TO 

R29  FRCM  " ! 

R29?"  IF 

N0R29F1G, 

READRFL  G, 

RR  RE  MODE  , 

R 3715 

ARE 

ALL 

RESET, 

AND 

THE  F R IS 

IN  LG  C MODE 

(OFTEN 

CONFUSINGLY  CALLED 

3717 

RFF 

100 

LAST 

590 

33,2045 

4 0110 

0 

P 29 

CS 

RADMODES 

37 1 p 

REF 

6 

LAST 

546 

33,2046 

7 4742 

0 

MASK 

DES IGBTT 

3719 

33,2047 

0 0006 

1 

EXTEND 

3720 

REF 

1 

33,2050 

1 2123 

1 

BZF 

R29 .LOS 

3721 

33,2051 

0 00C.4 

0 

INHINT 

3722 

REF 

101 

L AST 

596 

33,2052 

26  no 

0 

AOS 

P A DM ODES 

3723 

REF 

53 

1 AST 

5 8 8 

33,2053 

4 4736 

0 

CS 

R IT  14 

3724 

33,2054 

0 C006 

1 

EXTEND 

372  5 

REF 

3<R 

LAST 

589 

33,2055 

03  012 

1 

WAND 

C HAN  1 2 

3726 

REF 

2 

LAST 

552 

33,2056 

4 4740 

1 

CS 

LOSC MBIT 

3727 

REF 

1 1 

t AST 

589 

33,2057 

7 CO 7 6 

1 

MASK 

FLAGWRD2 

372  P 

REF 

12 

LAST 

596 

33,2060 

54  076 

1 

T f' 

FLAGWRD2 

3729 

RFF 

1 

33,2061 

4 4753 

0 

CS 

mi  D E 8 B 1 7 

3730 

REF 

3Q 

LAST 

55  1 

33,2062 

7 0074 

0 

MASK 

STATE 

3731 

REF 

40 

LAST 

596 

33,2063 

54  074 

0 

TS 

STATE 

3732 

R.EF 

147 

LAST 

576 

33,2064 

0 6616 

1 

TC 

BANKCALL 

3733 

RFF 

3 

LAST 

540 

33,2065 

52156 

1 

C A DR 

SETRRECF. 

373  4 

REF 

12 

LAST 

544 

33,2066 

3 4740 

0 

CA 

ANTENBIT 

3735 

RFF 

102 

LAST 

596 

33, 2067 

7 0110 

0 

MASK 

R ADMODES 

3736 

REF 

2 CO 

LAST 

571 

33,2070 

10  000 

0 

CCS 

A 

3737 

REF 

1 

33,207  1 

1 2104 

1 

TCF 

SETPRPOS 

373  5 

RFF 

2 

LAST 

32  8 

33,2072 

3 50  31 

0 

CA 

P R 1 0 2 1 

3739 

REF 

1 1 

LAST 

5 06 

33,2073 

0 5 0 72 

1 

TC. 

' VAC 

374-0 

REF 

32 

L AST 

5 89 

E7, 1456 

EB ANK= 

LOSCnUNT 

3741 

REF 

1 

33,2074 

02113 

0 

2CADR 

R29REM0J 

3741 

REF 

1 

33,2075 

66067 

0 

3742 

REF 

7 

LAST 

596 

33,2076 

4 4742 

0 

CS 

DESIGBI T 

3743 

RFF 

103 

LAST 

596 

33,2077 

7 011  0 

0 

MASK 

RADMODES 

3744 

REF 

104 

LAST 

596 

33,2100 

54  110 

0 

TS 

<-'■  ADMODES 

37^ 

P FF 

6 

LAST 

58° 

33, 2101 

3 47  36 

1 

CA 

7 EMODBI T 

3746 

REF 

105 

LAST 

596 

33,2102 

26  110 

0 

ADS 

P ADMODES 

3747 

RFF 

1 

3 3,2103 

1 2570 

0 

TCF 

N0R29N0W 

374  8 

P E F 

73 

LAST 

561 

33 ,2104 

3 4.7  53 

1 

S ETPRPOS  CA 

ONE 

3740 

REF 

25 

LAST 

589 

33,2105 

0 5203 

0 

TC 

WAITLIST 

3750 

REF 

33 

LAST 

5°6 

P7,  1456 

EB ANK= 

LOSC  OUNT 

3751 

REF 

1 

33 ,2106 

03601 

0 

2CADR 

PRE  POS29 

3751 

REF 

1 

33,2107 

52067 

1 

3752 

REF 

7 

LAST 

557 

33,2110 

3 4741 

1 

CA 

REPOSBIT 

375  3 

REF 

1 06 

LAS7 

5 96 

33,2111 

2 6 1 1 0 

0 

ADS 

: ADMODES 

3754 

P.  E F 

2 

LAST 

596 

33,2112 

1 25  70 

0 

TCF 

N0R29NOW 

« 


i 
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USEF'S  PAGE  NO.  105  E7  S3  < 

RRCDUZRO,  PRREPOS,  AND  DISPLAY-INERTIAL-DATA 

AUTO  MODE)  . < 

..z 

I 


BRANCH  IF  DESIGNATION  IS  ALREADY  CM.  <1 
SHOW  THAT  DESIGNATION  IS  NOW  ON.  < 
REMOVF  RR  TRACK  ENABLE  DISCRETE.  ( 
CLEAR  LOSC MFtG  TO  SHOW  OES.  LOOP  IS  OFF.  < 


SHOW  THAT  DES.  LHOP  IS  NOT  REQUESTED.  < 

ENABLE  RR  ERROR  COUNTERS. 

I 

TEST  FP  MODE  BIT. 

MODE  2. 

MODE  l;  MUST  REMODE. 

NEEDS  OWN  JOB  TO  RADSTALL  IN. 

CLEAR  DESIGNATE  FLAG  IN  P.ADMOOES 
BEFORF  CALLING  REMODE 

SHOW  THAT  PEMODING  IS  ON. 

CONTINUE  SERVICER  FUNCTIONS. 


TASK  TO  SET  TRUNNION  ANGLE  TO  -IPO  DEG. 


SHOW  THAT  REPOSITIONING  IS  ON 


GAP:  ASSEMBLE  REVISIOt  001  OF  AGC  PROGRAM  APllRGPE  BY  EYLES 


3: 15  DEC 


2,1970  LEMP2QS  .127 


PAGE 


597 


L P20-P25 


USER'S  PAGE  NO.  106  E7  S3 


P 375  6 FORCE  RENDEZVOUS  RADAR  INTO  MODF  2. 


3 756 
3757 
3753 

3759 
375Q 

3760 

3761 


REF  74 
REF  26 
D EF  34 
REF  2 

REF  143 
REF  10 


LAST  596 
l AST  596 
LAST  506 
LAST  546 

LAST  596 
LAST  570 


33,2113 
3 3,211 4 
E7 , 1456 

33.2115 

33.2116 

33.2117 
33,2120 


3 4753  1 
0 6203  0 

02171  1 
52067  1 
0 46  16  1 
17714  0 


F 29F  E -!0  J CA 
TC 

E3ANK= 
2C  ADR 


ONE 

WAP  LIST 
LOSC  HUNT 

REMODE 


REMODE  MUST  RUN 


AS  A TASK. 


TC  0 ANKCAl.l  WAIT  FOR  END  OF  REMODING. 

CADR  RAOSTAtl 


3762 

REF 

93 

LAST 

593 

33,7121 

1 

5155 

1 

3763 

REF 

99 

LAST 

597 

33,2122 

1 

5155 

1 

R 3764 

TASK 

TO 

PREPOS 1 T I ON 

THE  R R TRUNNION 

ANGLE  T 

3765 

F EF 

1 

2E , 2000 

3766 

25,3601 

TC F El'fBOFJ'fg  BAD  EXIT  CAN'T  HAPPEN. 

TCP  ENDO F JOB 


-180  DEG. 

SETl DC  29S1 
BANK 


3767  REF  2 l AST  367  25,3601  3 4735  1 PfEPOS29  CA  NEGMAX  -180  DEG. 

3763  REF  5 LAST  532  25,3602  0 2241  1 TC  SRTONLY  DRIVE  T RUNNIGN  CDU. 

3769  REF  8 LAST  596  7', 3603  4 4741  0 CS  RFPOSRIT  SHOW  THAT  REPOSITIONING  IS  OFF. 

3770  REF  1C  7 LAC  T -96  26  ,^604  7 0110  0 MASK  - ADM'  OES 

3771  REF  108  LAST  597  25,3 60^  54  110  0 TS  R ADMODF  S 

3772  REF  27  LAST  592  25.36C6  L 52bl  0 TCF  TASKOVER 


R 3773 

COMPUTE 

1 I RE- 

OF-§IGH  AND  IPS 

VELOCITY, 

AMD  PASS 

THEM  TO 

THE  3 2 9 CODES  LOfip. 

3775 

REF 

1 

33,2045 

SETLOC 

R2  9 

3776 

33,2123 

BANK 

3777 

33,2123 

0 0006 

1 

R 29. LOS 

EXTEND 

377P 

REF 

4 

CAST 

3 3fc 

33,2124 

4 12  35 

0 

DCS 

PIPTIME 

3779 

REF 

25? 

LAST 

573 

33 ,2125 

52  155 

1 

OXCH 

VPAC 

3780 

33,2126 

0 0006 

1 

EXTEND 

37P1 

REF 

16 

LAST 

569 

33,2127 

3 0025 

0 

OCA 

TIME2 

37  82 

REF 

253 

LAST 

597 

33,2130 

20  155 

1 

DAS 

MPAC  (MPAC)  = T-PIPTIME,  SCALED  B-28. 

3783 

REF 

4 

LAST 

336 

33,2131 

54  163 

1 

T S 

MODE  SET  MODE  Tn  DOUBLE  PRECISION. 

7784 

REF 

2 54 

LAST 

597 

33,2132 

3 015  5 

0 

CA 

MPAC  +1 

37  8 5 

33,  7133 

0 €0  06 

1 

EXTEND 

3786 

REF 

24 

l AST 

5 50 

33,2134 

7 4740 

1 

MP 

BIT12 

3787 

REF 

255 

LAST 

597 

33,2135 

52  155 

1 

DXCH 

MPAC  T-PIPTIME  NOW  SCALED  B-17. 

3788 

REF 

58 

LAST 

591 

33,2136 

0 6037 

0 

TC 

INTPRET 

t 
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P 3789  L0SCMFLG=0  MEANS  THAT  THE  DESIGNATION  IS  BEADY  FOR  NEW  DATA.  SETTING  LOSCMFLG  MAKES  IT  GO  AWAY  SO  SETUP29D  CAN 

R 3791  START  IT  UP  WHEN  THE  DATA  IS  IN  PLACE. 


3' 


379? 

33,2137 

52  315 

1 

3793 

REF 

1 

*3,214.0 

01726 

0 

3794 

REF 

2 

LAST 

147 

33,2141 

03527 

L 

3795 

33,2142 

743  2 5 

0 

3796 

33,2143 

52255 

1 

37^7 

REF 

1 

33,2144 

0172  0 

0 

379  8 

REF 

4 

LAST 

233 

33,2145 

03  521 

1 

3799 

33,219  4 

77414 

0 

3800 

REF 

9 

LAST 

565 

33,2147 

01043 

1 

3801 

REF 

1 

33,2150 

66  152 

1 

3802 

RFF 

3 

l AST 

596 

33,2151 

1 2570 

0 

380? 

REF 

1 

33, 2152 

2C1  02 

0 

3804 

33,2153 

0 no  0 1 

0 

3805 

33,2154 

77  761 

1 

3806 

REF 

1 

33,2155 

26177 

1 

3807 

REF 

1 

33,2156 

01761 

0 

380  8 

33,2157 

71414 

0 

3809 

REF 

10 

LAST 

548 

33, 21 60 

012  6 3 

1 

3810 

RFF 

41 

LAST 

596 

33,2161 

4 0074 

0 

3811 

REF 

2 

LAST 

596 

33,2162 

7 47  53 

0 

3812 

33,2163 

0 CO 06 

1 

3813 

REF 

4 

LAST 

598 

33,2164 

1 2 57  0 

0 

38  14 

3 3 , 2 1 6 .5 

0 CO 06 

0 

38  1 c 

R FF 

42 

LAST 

tics 

33,2166 

26  074 

n 

3816 

RFF 

1 

33,2167 

11 ' 05  6 

1 

3817 

REF 

I 

33,2170 

4 4776 

1 

3818 

REF 

4 

LAST 

38  1 

33,2171 

6 6 777 

1 

3819 

REF 

27 

LAST 

33,2172 

0 5203 

0 

3820 

REF 

35 

LAST 

547 

E7, 1456 

382  1 

REF 

1 

33,2173 

03356 

1 

382  1 

REF 

1 

33,2174 

50067 

0 

3622 

REF 

: 5 

LAST 

598 

33,2175 

1 2570 

0 

FDVL 

POOL 

VAD 

30 F SET 

TCP 

SETUP29D  STOVL 

VSU 

V(CSM) 

V 

VXSC 

VSU 

9 (CSM) 

R 

EXIT 

LOSCMFLG 

SETUP29D 

NCR 29 NOW 

LOSS  M 
q 

PUSH  DOWN  T-PIPTIME. 

LOS VE  L = V ( CSM ) - V. 

SWAP  LPSVEL  FOR  T-PIPTIME,  MULTIPLY  THEM 
AND  ADD  THE  RESULT  TO  R(CSM)  - T TO  GET 
AN  UP -TO— CATE  LCS  VECTOR  IN  SM  AXES. 

(BOFSFT  DOES  ITS  THING  INHIBITED.) 

IF  DESIGNATE  LOOP  IS  OFF,  CHANGE  LOSCM- 
FLG TO  ON  AND  GO  TO  SET  UP  NEW  DATA. 

IF  DES.  LOOP  IS  ON,  LET  IT  USE  Ot D DATA. 

t.  I N E-OF-S  I GHT  VECTOR,  STABLE  MEMBER  AXES 

VXSC 

. 5SECB17 

STORE 

LOSVDT/4 

1/2  SECOND'S  WORTH  OF  LOS  VELOCITY. 

CLEAR 

EXIT 

t CSC  3 F L G 

LET  R 29 D LOOP  USE  NEW  DATA. 

CS 

STATE 

MASK 

OLDESBIT 

EXTEND 

BZF 

NOR  2 9 NOW 

BRANCH  IF  920  OPS.  LOOP  IS  REQUESTED. 

INHINT 

ADS 

9 TAT  E 

OTHERWISE  ‘-.F  QUEST  IT  NOW. 

CCS 

PIPCTR 

SEE  IF  TASK  SHOULD  BE  OFFSET  ONE  SECOND. 

CS 

SUPER1 1 0 

-96D  + 100D  = 4. 

AD 

1 S EC 

0 +100D  = 10CD  • 

TC 

WAI TLI ST 

F B A N K = 

LOSCnUNT 

2C  ADR 

BEGDES29 

START  BE  GDES29  TASK  ASAP. 

TCP 

N0R29N0W 

RELINT  AND  CONTINUE  SERVICER  FUNCTIONS. 

3823 

3823 


33.2176  00006  1 .5SECB17  2 DEC  50  B-17 

33.2177  10000  0 


i 
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L P 20— P 2 r USER'S  DAGE  HO.  10«  E7  93 

P3624  R 29  DESIGNATE  JnB  AND  TASK  MACHINERY.  TASK  RECURS  EVERY  .5  SEC  UNTIL  DESIGNATE  IS  CALLED  OFF;  IT  MAY  WAIT 

R 3826  CENTI SECOND  OR  TWO  IF  IT  COMES  JP  WHILE  SETUP2^D  IS  SUPPLYING  NEW  DATA. 


3627 
382  8 
362  9 


PFF 


LAST  972 


24,3356 
24  , ?J' r' n 
24,3356 


BANK  24 
SETU  C D20S 
BANK 


3830 


REF 


COUNT*  $ $ / R 2 9 


3831  R F E 3 LAST  596  24,336  6 3 5031  0 BE GOES 29  CAF  PR  1021 

383?  9 EE  12  LAS*"  fc96  2 -,3357  0 507?  1 TC  NOV  AC 

3833  REF  2 LAST  598  E3,L760  EBANK=  LOSVDT/4 

3834  REF  l 24,3360  02547  0 2C ADR  R29D0DES 

3834  REF  1 24,3361  64063  0 


START  R29D0DES  JOB  TWICE  A SECOND. 


383  5 
3834 

3837 

383  8 
3639 
3840 

38“*  1 
3 

38 / 1 

3844 

3845 

389  6 

384  7 
3848 


REF  2 
R F F 4 

REF  109 
REF  3 
REF  201 
REF  2 8 


RFF 

REF 


R E F 
REF 

REF 

REF 


13 

3 


14 

2 

75 

1 


LAST  5 16 
I AST  962 

LAST  597 
LAST  596 
LAST  59  o 
LAST  597 

LAST  596 
I AST  596 


LAST  599 
LAST  4cr 

LAST  597 


24. 3362 

24 .33 63 

24.3364 

24.3365 

24 . 3366 
2 4 , 33  6? 

24.3370 

24.3371 

24.3372 

24 . 3373 

24. 3374 
2 4 , 3375 

24,3376 
24 , 33  7 7 


3 4774  1 29 Dl  : 9 CAF 


. 5SEC 


0 52  24 

4 0110 

7 4742 

0 

C\ : 

TC 

cs 

MASK 

VA^DFl  AY 

R ADMHDES 

DES  IG6IT 

10  000 

0 

CCS 

A 

l 52  61 

0 

TC  F 

TASKOVER 

4 0076 

1 

CS 

FLAGWRD2 

7 4740 

1 

MASK 

LCSCMBI T 

0 0006 

1 

EXTEND 

1 3 3 76 

1 

BZF 

+ 3 

26  076 

1 3356 

1 

0 

ADS 

TC  f- 

FLAGWRD2 
RCGDE  c,c 

1 l ' 

3 47  53 

1 

CA 

ONE 

1 3 36  3 

0 

TC  F 

R29DL0cP  +1 

QUIT  IF  DESIGNATION  IS  CALLED  OFF. 


BRANCH  IF  SET UP 290 ' S SUPPLYING  NEW 
SET  LOSC -’Ft  G:  SHOW  THAT  DFS.  LOOP  1 


WAIT  A CENTI  SECOND  FOR  NEW  DATA. 


FOR  A 


DATA. 
S ON. 
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P3849 

R29Dr>DES: 

RR. 

DESIGNATION  LOOP  FOR  R29 

R 3850 

THIS 

ROUT 

INE  DOES  MUCH  THE  SAME  THIN 

r 

1-7 

AS  DOLES,  but  a great  deal  faster 

. IT  TAKES  THE  NON-UNITIZED  LOS  VECTOR 

n 3852 

IN  S 

T ABLE 

ME M3  El  COORD  I NAT E$ 

(1.  .'  S : ) 

AND  A DELTA-LOG  IN 

SM  AXES  (LOSVDT/4)  WHICH  IS  1/2  SEC  TIMES  LOS  VELOCITY, 

R3S54 

AND 

DEV  EL 

EPS  THE  SHAFT  A - R Ti  U IN  ION 

COMMANDS  USING  SINGLE  PRECISION  AS 

MUCH  AS  POSSIBLE,  AND  INTERPRETIVE  NOT  AT 

R 3 856 

A LI  . 

THE 

UNI  ( 1 

*•  1 CSVE! 

5 1 SEC) 

TS  COMPUTED  ?'•:  DP  AMD  TRANSFORMED  in  NAV  BASE  C-OOP  DI  MATES  IN  DOUBLE  PP  E- 

R 3858 

CIS  ION  (U 

SING 

SP  SINES  AND  COSINES  OF 

CDU  ANGLES),  AMD 

THE  PEST  IS  DONE 

IN  SP. 

R 386  ( 

THE 

FUNCT 

IONAL 

DIFFERENCE  IS 

THAT  R29U0DES  ALWAYS  CLEAR:  LOSCMFLG  WHEN 

IT  ENDS,  AND  IT  STARTS  UP  THE  R29FEAD 

R 386? 

TASK 

WHEN 

LOCK 

-ON  TS 

ACHIEVED 

• 

3863 

32,2547 

BANK 

32 

3864 

REF 

2 

LAST 

40 

32,2000 

SETL.OC 

F 2DPS  *32 

386  5 

32 , 2547 

BANK 

3866 

REF 

1 

COUNT* 

$$/R2P 

3867 

REF 

3 

LAST 

599 

E 3 , 17  6 0 

£BAmK= 

l OSVDT /4 

3868 

REF 

76 

LAST 

599 

32, 2547 

3 4753 

1 

R29D0DES  CA 

ONE 

38  69 

REF 

2 5 

LAST 

570 

32,2550 

55 ' 107 

1 

TS 

TANG 

INDICATE  1ST  PASS  THRU  VECTOR  LOOP. 

3870 

R FF 

12 

LAST 

553 

32,2551 

3 47  56 

I 

CA 

FIVE 

387) 

PEF 

202 

LAST 

5°9 

32,2552 

1 C SCO 

0 

R29DVBFC-  CCS 

A 

COUNT  DOWN  BY  TWOS  IN  VECTOR  LOOP. 

3872 

REF 

16  8 

LAST 

560 

32, 2553 

54  002 

1 

TS 

Q 

3873 

' E F 

26 

LAST 

600 

32,2554 

11  ' 107 

1 

CCS 

TANG 

3874 

REF 

1 

32 , 2555 

1 256  3 

1 

TCP 

R29DPAS1 

DO  THIS  ON  1ST  PASS  tHRU  LOOP. 

387? 

32,2556 

0 0006 

1 

EXTEND 

(A  "PASS"  HERE  MEALS  3 TIMES  AFOUND). 

3876 

PEF 

1 69 

LAST 

600 

12,  2 4 6 7 

5 0 002 

o 

I N D p X 

n 

V 

3877 

REF 

A 

LAST 

600 

32,2560 

3 1761 

0 

DC  A 

LOSVDT/4 

3878 

REF 

170 

LAST 

600 

32, 256  1 

50  002 

0 

INDEX 

Q 

3875 

REF 

2 

LAST 

598 

32 ,256  2 

2 1 ' 102 

1 

DAS 

LOSSM 

ADVANCE  LQS  VECTOR  1/2  SECOND. 

3880 

32, 2563 

0 C006 

I 

K29DPAS1  EXTEND 

3881 

REF 

171 

LAST 

600 

32, 2664 

5 0CG2 

0 

INDEX 

0 

3882 

RFF 

3 

LAST 

600 

32 , 2565 

3 1102 

0 

DC  A 

L.CSSM 

3883 

REF 

172 

LAST 

600 

32, 2566 

50  0C2 

0 

INDEX 

0 

MOVE  CURRENT  LOS  (1ST  PASS)  OR  L F S PRO- 

3884 

REF 

256 

LAST 

597 

32,2567 

5 2 15< 

i 

DXCH 

MP  AC  +1 

JECTED  1/2  SEC  AHEAD  (2ND  PASS). 

3885 

REF 

27 

LAST 

600 

32,2^70 

11  ' 107 

1 

CC8 

TANG 

3886 

PEF 

1 

32,2571 

1 2 5 77 

1 

TCP 

P 29DVEND 

BUG  OUT  HERE  IN  1ST  PASS. 

3887 

32,2572 

0 C 0 0 6 

1 

EXTEND 

3888 

REF 

173 

LAST 

600 

32,2573 

5 0002 

0 

INDEX 

Q 

3889 

REF 

5 

LAST 

600 

32,2574 

3 1761 

0 

DCA 

LOSVDT/4 

3890 

REF 

] 74 

LAST 

60C 

32,2575 

50  002 

0 

INDEX 

Q 

389  1 

REF 

257 

LAST 

600 

32,2576 

20  156 

1 

DAS 

M P AC  +1 

PROJECT  LOS  1 SECOND  AHEAD  (2ND  PASS). 

3892 

REE 

175 

LAST 

600 

32,2577 

10  002 

1 

R29DVEND  CCS 

Q 

3893 

REF 

1 

32 ,2600 

1 2552 

0 

TCP 

R29DVBEG 

BRANCH  TO  CONTINUE  VECTOR  LOOP. 

1” 


GAP  : 

L 

P 389  A 

3896 

3897 

38°8 

389  9 

3900 

3901 

3902 

3c0a 

3904 

3905 

3906 

3907 

3908 

390° 

39  1 0 

3911 

3912 

3913 

3914 

3°  15 

3916 

3917 

39 1 8 

391° 

3920 

3921 

3922 

3923 
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P20-P25 

UNITIZE  AND  TRANSFORM  TO  NAV  BASE  AXES  THE  PRESENT  LOS  (1ST  PASS)  OR  THE 


USE®  *S  PAGE 

NO. 

110 

E 3 S3 

1-SEC  PROJECTED 

LOS 

( 2ND 

PASS ) . 

REF  258  LAST  600  32,2601  52  156  1 DXCH 

REF  259  LAST  601  32,2602  r2  155  1 DXCH 

REF  l 32,2603  3 2774  1 CA 

REF  18  LAST  356  32,2604  54  120  0 TS 

REF  1 32,2605  0 ^713  0 TC 

REF  1 3.2,2.606  01023  1 C ADA 

REF  1 32,2607  0 7532  1 TC 


MPAC  +1 
HP  AC 

R29FXLHC  = A DP  F £ T(kiTB18+  -3^n 

FIXLOC 

USPRCAOR  WITH  FIXLOC  ARMED  FOR  LENGTH  AND  1ENGTH 

UNIT  SQUARED,  BORROW  UNITIZING  ROUTINE. 

MPACVBUF  MOVE  UNIT (LOS)  TO  AX*SP*T  AEG  ARFA. 


rEF  2 8 
REF  1 


REF  11 
REF  1 
REF  3 
REF  16 
REF  6 
REF  17 
REF  11 
c EF  18 
P.EF  149 
REF  1 


LAST  690 


LAST  591 

LAST  = 69 
LAST 

LAST  357 
LAST  601 
LAST  Ft o 
LAST  601 
LAST  597 


32 . 26 1 0 

32.2611 

32. 2612 

32. 2613 

32.2614 
32,  261  5 
32,261 4 
32,2617 
32,2620 
32 ,262  1 

32. 2622 

32.2623 

32.2624 

32. 2625 

32 . 2626 


11 • 107  1 
1 2613  0 
1 2627  1 
0 G004  0 
0 0006  1 
3 9036  1 
53*767  1 
3 0033  1 
54  766  1 
3 0034  0 
54  770  0 
3 0032  C 
54  772  1 
0 4616  1 
47615  0 


CCS 
TCF 
TC  F 

INHINT 

EXTEND 

DC  A 

DXCH 

CA 

TS 

CA 

TS 

CA 

TS 

TC 

CADP 


TANG 

+ 2 

GCTANGLS 


CDUT 

S AVECDUT 
C DU  Y 
COUSPOT 
C DU  Z 

COUSPOT  +2 
C DUX 

CDllSPOT  +4 

BANKCALL 

QUICTRIG 


GET  C DU  ANGI  ES  ONLY  AFTER  1ST  PASS. 
ENSURE  CONSISTENT  CDU  READINGS. 


TRUNNION  AND  SHAFT  ANGLER . 


CDU 

ANGLES 

IN 

FUNNY  ORDER 

FOP 

AX*SR*T. 

GET 

SINES 

AND 

COSINES  OF 

CDU 

ANGLES. 

REF 

19 

LAST 

56  3 

32, 2627 

4 6245 

0 

GOTANGL  S CS 

REF  1=0 

LAST 

: 6(1 

32,2630 

0 4616 

1 

TC 

pef 

l 

32,2631 

47675 

0 

CADP 

THREE 
BANKCAL l 

AX*$'"  *T  TRANSFORM  UNIT  LOS  to  MB  AXES  (ULOSNB) 


REF  29  LAST  601 
r’  F F 1 


32,2632 

11 

• 107 

1 

32,2633 

1 

26  35 

1 

32,2634 

1 

2702 

1 

CCS  TANG 

TCF  +2 

TCF  .-29DPAS2  GO  ti  F P.  COMMA  ID  COMP,  AFTER  2ND  PASS. 


GAP:  ASSEMBLE  i t V I S 1 7 P 001  OF AGC  P!  OCCAM  APURUPE  BY  E Y|_ES  3: 

L R20-P25 

P3924  COMPUTE  COSINE  OF  THE  ANGLE  BETWEEN  THE  PRESENT  LOS  AMO  THE  RR  BORESTGHT 
R 392  6 THE  COSINE  IS  APPCC!X!  ! AT  EL  V C0SI.5  DEG)  C'  GPEATEr  (I.E.  SMALLER  AT  GLE  ) . 


3927 

3242635 

0 

0004 

0 

392? 

REF 

30 

LAST 

601 

32,2636 

55 

' 1 07 

1 

3929 

REF 

2 

LAST 

601 

32,2637 

3 

1766 
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0 

3931 

REF 

2 

LAST 

2 52 

3 2,264  1 

54 

166 

1 
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REF 
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PFF 
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0 
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597 

3 2,  ? 6 4 

54 
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0 

0006 

I 
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PEF 

26 
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335 

32 ,2646 

7 
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1 

3937 
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260 
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601 

32,2647 

52 
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1 

39  3 n 

REF 

4 

LAST 

602 

32,2650 

3 

1767 

0 

393  9 

REF 

4 
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602 

32,2651 

0 

6033 

l 

304.0 

REF 

5 

LAST 

60  2 

32,2652 

55 

'766 

0 

3941 

32,2653 

0 

0006 

I 

3942 

REF 

3 

LAST 

602 

32, 2654 

7 

0166 

1 

3943 

32,2655 

0 

0006 

1 

3944 

PEF 

27 

LAST 

602 

32,2656 

7 

C 122 

I 

3945 

REF 

261 

L AST 

6 02 

32,2657 

20 

155 

1 

3946 

RFF 

6 

LAST 

602 

32,26 60 

3 

1767 

0 

3947 

REF 

4 

1 AST 

602 

32,2661 

0 

5032 

0 

394? 

REF 

7 

LAST 

602 

32,2662 

55 

'767 

1 

3949 

32,2663 

0 

CO  06 

1 

3950 

PFF 

4 

LAST 

60  2 

32,2664 

7 

01  be 

1 

3951 

32 , 2655 

0 

CC 06 

1 

395  2 

R EF 

2 A 

LAST 

602 

3 2 . 24 A A 

7 

0126 

o 

3953 

REF 

262 

LAST 

602 

32,2667 

20 

155 

I 

3954 

32,2670 

0 

0006 

I 

3955 

REF 

263 

LAST 

602 

32, 2671 

3 

C L5  5 

0 

39  c 6 

REF 

264 

LAST 

602 

32,2672 

20 

155 

1 

3957 

PEF 

203 

LAST 

600 

32,267 ? 

10 

000 

0 

3958 

REF 

54 

L A S T 

5°6 

32, 2674 

3 

47  36 

3959 

32,2675 

12 

676 

0 

3960 

32 , 2676 

0 

C 006. 

1 

3961 

REF 

40 

LAST 

596 

32,2677 

05 

012 

1 

3962 

32,2700 

0 

0003 

I 

3963 

PEF 

2 

LAST 

600 

32,2701 

1 

255  1 

0 

INHIUT 
TS  TANG 

CA  SAVECDUT 

TC  SPCOS 

TS  PUSHLOC 

CS  SAVECDUT 

TC  5 PS  IN 

TS  MODE 

EXTEND 

MP  VBUF  +2 

DXCH  MPAC 

CA  SAVECDUT  +1 

TC  SPSIN 

TS  SAVECDUT 

EXTEND 

MP  PUSHLOC 

EXTEND 

MP  VBUF 

DAS  MPAC 

CA  SAVECDUT  +1 

TC  SPCOS 

TS  SAVECDUT  +1 

EXTEND 

MP  PUSHLOC 

EXTEND 

MP  VBUF  +4 

DAS  MPAC 

EXTEND 
DC A MPAC 

TESTCOS  DAS  MPAC 

CCS  A 

CA  8IT14 

NOOP 
EXTEND 

WOR  CHANI2 

R EL  TNT 

TCP  r-29DVBEG  -I 
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VECTOR,  AND  SET  THE  SELFTPACK  ENABLE  IF 

INDICATE  2ND  PASS  THRU  VECTOF  LOOP. 

PUSHLOC  = CCS  T. 

MODE  = -SIN  T. 

FORM  - SIN  T ULOSNBY. 

c AVECDUT  NOW  = SIN  S. 

FORM  SIN  S COS  T ULOSNBX. 

SAVECDUT  +1  MOW  = COS  S . 

FORM  COS  S COS  T ULOSNBZ. 

COS(  ERROR  ) = gJLOSNB  . (SIN  S COS  T, 

- SIN  T,  COS  S COS  T)  . 

(UlCSNB  10  VBUF  WAS  A HALF-UNIT  VECTOR). 
TEST  FOR  + OVERFLOW,  NONE,  OP  MINUS. 

IF  PLUS  OVERFLOW,  SET  SELFTRACK  ENABLE. 
MAKE  2ND  PASS  THRU  VECTOR  LOOP. 
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3966 

3967 

396  P 

3969 

3970 

3971 

3972 

3973 

397,: 

3979 

3976 

3977 

3978 

39  7r- 

3980 

3981 

3982 

398  3 

3984 

3985 

3986 

39  87 

3988 

398" 

3990 

39  9 1 

39  92 

3993 

3994 

3995 

3996 


ASSEMBLE  » EVISIOI  001  IF  AGC  PROGRAM  APURGPE  BY  EYLES  3U5  DEC.  2,1970  LEMP20S 

P20-P25  USER'S  PAGE  NO.  112 

COMPUTE  SHAFT  AND  TRUNNION  COMMANDS  TQ  NULL  HALF  THE  ERROR  IN  HALF  A SECOND. 
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REF  8 

REF  20 
REF  31 
REF  9 

REF  30 
REF  32 
RFF  6 

REF  10 

PFF  31 
REF  26  5 
REF  5 

REF  32 
REF  266 
REF  7 

REF  11 

REF  33 
REF  267 
RFF  263 

REF  l 
REF  33 

REF  2 
RFF  34 


LAST  602 

LAST  602 
LAST  602 
LAST  603 

LAS’"  603 
LAC-  603 
LAST  602 

LAST  603 

1 AST  603 
LAST  602 
L AST  602 

LAST  603 
LAST  603 
LAST  603 

L A5T  403 

LAST  603 
LAST  603 
LAST  403 


LAST  603 

LAST  603 
LAST  603 


32 , 270  2 
32,2703 
3 2 , 2704 

32.2705 

32.2706 
32, 27C7 

32.2710 

32.2711 

32.2712 

32.2713 

32.2714 

32.2715 
32,27  16 
32,2717 

32.2720 

32.2721 

32 . 2722 

32.2723 

32. 2724 
32,2724 
32,  2726 
32,2727 
32,2730 
32,273  l 

32.2732 

32.2733 

32.2734 

32.2735 

32.2736 

32. 2737 
32,2740 


3 1767  0 
0 0006  1 
7 0122  1 
5 3 ' 1 1 0 1 

4 1766  0 
0 C006  1 
7 0126  0 
21 ' 110  1 
4 0163  1 
0 0006  1 
7 1766  0 

: c c i 

7 0122  1 
52  155  1 

3 0166  0 
0 C 0 06  1 
7 0124  1 
20  155  1 

4 0163  1 
0 0006  1 
7 1767  1 
0 0006  1 
7 0126  0 
20  155  1 

3 0154  1 

4 0006  1 
7 277*  1 

5 7 ' 1 0 7 0 
0 0006  1 
7 2775  1 
5 5 • 1 1 C 1 


R290PAS2  CA  SAVECDUT  +1 

EXTEND 
MP  VBUF 

DXCH  TANG 

CS  SAVECDUT 

EXTEND 

MP  VBUF  +4 

DAS  TANG 

CS  MODE 

EXTEND 

MP  SAVECDUT 

EXTEND 
MP  VBUF 

DXCH  MPAC 

CA  PUSHLOC 

EXTEND 

MP  VBUF  +2 

DAS  MPAC 

CS  MODE 

EXTEND 

MP  SAVECDUT  +1 

EXTEND 

MP  VBUF  +4 

DAS  MPAC 

CA  MPAC 

EX" END 

wp  RR29GATM 

XCH  TANG 

EXTEND 

MP  RR29GA I A 

FS  T AN  G +1 


FORM  COS  S UtOSNB'X. 


FORM  - SIN  S ULOSNB'Z. 

RAW  SHAFT  CM D = ULOSNB'  . (CDS  S,  0, 
- SIN  S) 


FORM  SIN  T SIN  S ULOSNB 'X. 


FORM  COS  T ULOSNB*  Y . 


FOP  M SIN  T COS  S ULOSNB'Z. 

RAW  TRUNNION  CAD  = ULOSNB'  . 

(SIN  S SIN  T,  COS  T,  SIN  S COS  T). 


STORE  REFINED  t CMD,  GET  RAW  S CMD. 


STORE  RFEINED  S CMD. 
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3 4743  0 
26  077  0 
11*056  1 

4 4776  1 
6 6777  1 
0 5203  0 

03400  0 
60067  0 


DGOOO? 


EXTEND 

BZF 


R29LOK IN 


TC  BANKCALL 

CADR  RROUT 
TC  F E ND29D0D 


P 29L0K0N  CS 

MASK 

TS 

CS 

EXTEND 

WAND 

CA 

AOS 

cr.s 

CS 

AD 

TC 


DfcS I GBIT 
•'  ADMODES 
RADMODE S 
B I T 2 


CHAN12 
READRB1T 
FLAGWRD3 
PIPCTR 
SUPER  110 
1 SEC 

WA I TL IS r 
EBANK=  LOSCOUNT 
2CADR  R29READ 
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REE 
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l AST 
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REF 
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LAST 
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DEC 

-.53624 

402  9 

REF 

h 

1 AST 
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RRTARGET 
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SAVECOUT 
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IF  PRESENT,  STOP  DESIGNATING  AND  START 


GET  RR  DATA-GOOD  BIT. 

(MAINLY  FOR  RROUT). 

BRANCH  IF  DAT  A— GOG  D IS  PRESENT. 


DATA-GOOD  TS  ABSENT,  SO  SEND  COMMANDS 


SHOW  THAT  DESIGNATION  IS  OVER. 


DISABLE  RR  ERROR  COUNTERS. 

SHOW  THAT  READING  HAS  BEEN  REQUESTED. 
r-EE  IE  TASK  SHOULD  BE  OFF  SFT  1 SEC. 

- 96D  + 100D  = 4. 

0 + 100D  1 1C0D . 


START  READING  TASK  AND  JOB. 


604 


ALWAYS  CLEAR  LOSCMFLG 


GAP:  ASSEMBLE  .REVISION  001  CE  A GC  PROGRAM  AP11RGPE  BY  FYLES 

L P20-P2F 
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17714  0 CADR 

1 3475  0 TC F 


FLAGWRD3 

NR29FBIT 

A 

ENDC  R D2  9 

R ADM ODES 
AUTCMBI T 
A 

END'  0?' 

BANKCALL 
RRRDOT 
BANKCALL 
•AO ST ALL 
FNDP.RD29 
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CALLED  BY  WAITLIST. 


START  JOB  TC  READ  AND  DOWNLINK 


FOR  R29. 


2 SECONDS  LATER,  SEE  IF  READING  IS  STILL 
ALLOWED  (NO  TPACKEE  FAIL  ETC.) 

IT' S OK;  CALL  IT  AGAIN. 

IT  AIN'T;  WAIT  FOR  PE  DESIGNATE. 

CALLED  V I A NOVAC. 

TEST  "N0R29FLG". 

--29  IS  NOW  OVER,  STOP  AT  ONCE. 


TEST  RR-N  JT— I N- AUTO-MOO F BIT. 
ASTRO  TOOK  PF  OUT  OF  AUTO  MODE. 


INITIATE  READING  OF  RANGE  RATE. 

GO  TO  SLEEP  UNTIL  IT'S  READY. 
BAD  READ;  REDESIGNATE. 
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TS 

AOG 

409  0 
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flMF 
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TS 
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P EF 

101 

LAST 

604 

24,3465 
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TCF 

ENDGF JOB 
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LAST 
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24,3466 
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0 

R29RPR? 

CS 

ELAGWRD5 

4094 

REF 

29 

LAST 

55  1 

24,3467 

7 4742 
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MASK 

B IT  10 

409  5 

REF 
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LAST 

605 

24,3470 

10  000 
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CCS 
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4096 

REF 

4 

l AST 
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1 3475 

0 

TCF 

ENDRRD29 
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REE 

6 2 

LAST 

569 

24,3472 

0 5516 

0 

TC 

DOWN FLAG 

4098 

REF 

3 

LAST 

569 

24,3473 

00120 

I 

ADPES 

RNGSCF!  C 

4099 

REF 

1 

24,3474 

1 3443 

0 

TCF 

R2°RANGE 

4100 

REF 

126 

LAST 

588 

24,3475 

3 4755 

1 

END,-  R D29 

CA 

ZERO 

410  1 

REF 

6 

LAST 

606 

24,3476 

55*462 

1 

TS 

TRKMKCNT 

4102 

REF 

53 

LAST 

606 

2 4 , 3 /j  77 

0 5516 

0 

TC 

DOWNFLAG 

4103 

REF 

1 

24,3500 

00063 

1 

ADn  ES 

READS  FIG 

4104 

REF 

55 

LAST 

602 

24,3501 

4 4736 

0 

CS 

B I T 1 4 

4105 

24,3502 

0 C006 

1 

EXTEND 
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606 


TIME  OF  RR  READING,  FOR  DOWNLINK. 

BE  SURF  OF  5 CONSISTENT  CDU  ANGLE0 . 

R PC  DU  ANGLES  AT  FR  READ,  FOR  DOWNLINK. 

MPAC'S  7 WOP  DS  APE  BIJ  FEE3  PDF  COPYCYCLE. 
TMUCDU  ANGIES  AT  RR  READ,  FOP  DOWNLINK. 

INITIATF  READING  OF  RR'  RANGE. 
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P 002 3 PROGRAM  DESCRIPTION  P30  DATE  3-6-67 

R0024  MOD . 1 BY  RAMA  AIYAwAE 

R 002  5 FUNCTUNAL  DESCRIPTION 

R0026  ACCEPT  ASTRONAUT  INPUTS  OF  TIG, DEI  V (LV  ) 

R0HP7  C.  At  I I Ml)  STATUS  CHECK  ROUTINE  (R02) 

R0028  DISPLAY  TIME  TO  GC , APOGEE,  PERIGEE,  DEL V ( MAG ) , MG A AT  IGN 

R 0 0 2 9 REQUEST  BURN  PROGRAM 

R 0030  CALLING  SEQUENCE  VIA  J QB  FRnv.  V37 

R0C31  EXIT  VIA  V?7  CALI  OP  Tn  GOTOPOOH  (V34E) 


R 0032  SUBROUTINE  CAL LS-F lagup , phaschng,  bankcall,  ENDQFJOB,  GCFLACH,  GOFLASHR 
R003  3 GORE  OF 3 0 , I NT  PR  ET , BLANKET,  GOTOPOOH,  R02B0TH,  S30.1, 

RP03*-  TTG/N35,  w I D G I M , DISPMGA 


R 003  5 

ER  A S 

ABLE 

INI" 

I AL  1 ZA 

T I ON—  STATE 

VFCTPD 

R 0036 

OUT  PUT-RI NIT, 

VI  NIT 

, +MGA,  VTI 

G,  RTIG, 

DEL VS  IN, 

DEL  V S AB , 

DEL  VSL  V , HAPO, 

R0037 

HPPO  . 

T TOGO 

>-  7 

R003R 

DEB  r 

IS- 

A , L , 

MPAC  , 

PL  SHI  1ST 

003  R I 

32,2776 

BANK 

32 

0038  2 

REF 

i 

35,2000 

SETLOC 

P30S 

00333 

35,2000 

BANK 

003  84 

REE 

2 

LAST 

314 

E4 , lo5  2 

EBAMK= 

+ MGA 

003  9 

REF 

1 

COUNT  * 

$$/P?0 

00*  0 

REF 

32 

LAST 

608 

3 5 , 20  T'H 

0 ‘'504 

o 

P30 

TC 

II P 8 1 A P 

'■■FT  1 1 P n A T p PI  AC 

on*  u r u m l r i.  m >7 

004  1 

REF 

3 

LAST 

495 

3 ,2001 

00027 

1 

ADRES 

UPDATFLG 

00411 

REF 

33 

t AST 

614 

35,2002 

0 5504 

0 

TC 

UPFLAG 

SET  TRACK  FLAG 

00412 

REF 

4 

LAST 

502 

35,2003 

0031 

0 

ADRES:: 

TRACKFLG 

0042 

REF 

1 

35,2004 

3 2025 

1 

P 3 ON  3 3 

CAE 

V06N33 

T OF  IGN 

004  3 

REF 

1 

35,2005 

0 3712 

0 

TC 

VNPOOH 

RETURNS  ON  PROCFFD , POOH  ON  TERMINATE 

0051 

REF 

1 

35,2006 

3 3727 

0 

CAE 

V 0 6 N 8 1 

DISPLAY  DELTA  V (LV) 

0052 

REF 

2 

LAST 

614 

35,2007 

0 3712 

0 

TC 

VNPCLIH 

REDISPLAY  ON  RECYCLE 

0057 

REF 

54 

LAST 

606 

35,2010 

0 8516 

0 

rc 

DOWN EL  AO 

RESET  UPDATE  FLAG 

0058 

PEF 

4 

LAST 

614 

35,291 1 

00027 

1 

ADPES 

UPDATFI.  G 

0059 

REF 

6 1 

LAST 

608 

35,2012 

0 6037 

0 

TC 

INTPRET 

0060 

35,2013 

776  24 

1 

CALL 

0061 

REF 

1 

35,2014 

7CC00 

0 

S30.  1 

0067 

35,201 5 

774  14 

0 

SET 

EXIT 

0067  c 

PEF 

5 

LAST 

614 

35,2016 

00470 

1 

UPDATFLG 

0068 

REF 

1 

35,2017 

3 2026 

1 

PAL  AM 30 

CAE 

V06N42 

DISPLAY  APOGEE ,PERIGEF  , D El  T A V 

0069 

REF 

3 

LAST 

614 

35,2020 

0 3712 

0 

TC 

VNPOOH 

614 


GAP:  ASSEMBLE  REVISION  001  OF  AGC  PROGRAM  AP11R0PE  BY  EYLFS 
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0070 

0071 
• 

0073 


REF  62 

REF  1 
REF  1 


LAST  6 1 A 


35,202  1 

35.2022 

35. 2023 
35,202^- 


0 6037  0 
77614  1 
01027  0 
72540  0 


TC 

SET  GO 


0100 

0102 


35,202*5  01441  1 V06U33  VN 
35,2026  01452  0 V06I  42  VN 


INTPRET 

XOELVFLG 

REVN1645 
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FOR  P40 ' S : FX1EFNAL  DELTA-V  GUIDANCE. 
TRKMKCNT,  T GO , +MGA  DISPLAY 


T S3  3 
0642 
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GAP:  ASSEMBLE  REVISION  901  or  AGC  PROGRAM  AP11RORE  BY  EYLES 

L P30  * P 37 


3:  15  DEC.  2,1970  LEMP3GS 
USER'S  PAGE  NO.  3 


.103  PAGE 
E4  S3 


P0105  PROGRAM  DESCRIPTION  S30.1  DATE  9N0V66 


R 0 1 0 6 
R0107 
R 0 1 0 8 
R0109 
R0110 
R 01 1 1 
R01 12 
P 0 1 1 3 
R 0 1 1 4 

R011S 
R 0116 
R01 17 
R 01 18 
R 0 1 1 0 
c 01  20 
R 0 1 2 1 
R 01  22 
R 0 1 2 3 
R 0 1 2 4 
R 0 1 2 5 
R 0126 
R n 1 2 7 
R 0 12  8 
R012P 
R.Q130 
R0130  1 
R 0 1 3 1 
R0131  1 
R0132 
R 0 1 3 3 
RQ134 
R 0 1 3 5 
R 01  36 
c 01  37 
R 01  3 8 


MOD  NO  1 LOG  SECTION  P3G.P37 

MOD  BY  RAMA  AIYAWAP  ** 

FUNCTICNAL  DESCRIPTION 

BASED  0‘  FT'’  FD  74”  GET  PARAMETERS  ( : OF  I GN I T ION  I RTIG  ) , V OF 
IGNIT  ION(VTIG)  ,TI!-'E  OF  IGNITION  ( T I G > ) , CO  M P UTE  PERIGEE  ALTITUDE 
APOGEE  ALTITUDE  AND  DELTAV  RE QU I R ED { DELVS I N ) . 

CALI.  INC  SEQUENCE 
1 CALL 
L+l  S30.1 

NOP  MAI.  EXIT  MODE 

AT  L+2  OR  C At  LING  SEQUENCE  (GOTO  L +2 ) 

SUBROUTINES  CALLED 
LEMPREC 
PER  I APO 

ALARM  OR  ABORT  EXIT  MODES 
NOME 


ERASABLE 


OUTPUT 


INITIALIZATION  REQUIRED 
TIG  TIME  OF  IGNITION 

DELVStV  SPECIFIED  DELTA-V  IN  LOCAL  VERT 
COORDS.  OF  ACTIVE  VEHICLE  AT 


TIME  IF  IGNITION 

VECTC  • 

B + 7 

dtig 

POSITION  AT  TIG 

VECTOR 

B + 29 

VTIG 

VELOCITY  AT  TIG 

VECTOR 

B+29 

PDL  4 D 

APOGEE  ALTITUDE 

DP 

B + 29 

HAPO 

APOGEE  ALTITUDE 

DP 

B + 2 ,J 

PDL  °D 

PERIGEE  ALTITUDE 

DP 

B + 2 9 

Hops  PEOJCFF  At.  "r  I TUDE  DP  R+29 

DELVS IN  SPECIFIED  DELTA-V  IN  INERTIAL 
COORD.  OF  ACTIVE  VEHICLE  AT 
TIME  UE  IGNITION  VECTOR  B + 7 

DELVS  AB  MAG.  OF  DELVS  IN  VECTOR  B+7 

DEB  I IS  QT  EM  P 7 E M f . E '■  A S A BL  E 

QPRET,  Mp'AC 
PU  SHI  1ST 


DP  B28CS 


E T E < S / C S 

METERS 
METERS/CS 
M , 8+27  METERS. 

METERS 

M , B + 27  METERS. 
METERS 


METERS/CS 

METERS/CS 


0139 

REF 

1 

34,2000 

SETLOC 

P30S1 

0140 

34,2000 

BANK 

0141 

REF 

1 

COUNT  * 

$t/S30S 

014? 

34,2000 

71220 

1 S30.1 

STQ 

D LOAD 

0143 

REF 

I 

34.20C 1 

03632 

0 

QTEMP 

014* 

REF 

9 

LAST 

403 

3 4,2 00  2 

03442 

0 

T IG 

TIME 

IGNITION 

SCALED  AT  2(+2P)CS 

0145 

REF 

21 

LAST 

5 89 

34, 2003 

34041 

0 

STCALL 

TDEC1 

0146 

REF 

3 

LAST 

207 

34,2004 

27057 

0 

t EMPRF C 

ENCKE 

P nUT  I NE 

FOP,  LEM 

0147 

34,2005 

67175 

0 

VLGAD 

S X A , 2 

616 


i” 
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01471 

0148 

0150 

0153 

0154 

0155 

015  6 
0158 
015:9 
0160 
0161 
OU  1 1 
016? 

0163 

0164 

0165 

0166 

0167 

0168 

016  ° 
0170 
017? 
017^ 

0174 

0175 

0176 

0177 
01771 

0178 
01781 
01762 
017822 


REF 

REF 

REF 

R EF 
OFF 

REF 

REF 


REF 

REF 


REF 

OFF 


REF 

REF 
° FF 

REF 

REF 

?EF 

REF 


10  LAST  589 
1 

2 LAST  142 

3 LAST  143 
6 LAST  589 

2 LAST  142 

3 LAST  617 


2 LAST  124 
4 LAST  617 


6 LAST  617 
2 l A^T  198 


LAST  617 

LAST  142 
Last  6 i 7 

LAST  617 
LAST  617 


34.2006 

34.2007 
34,2010, 
34,201  1 
34,2012 
34,201? 

34. 2014 

34.2015 

34.2016 

34.2017 

34.2020 

34 .2021 

34.2022 

34.2023 

34.2024 

34.2025 
34 , 2024 
34 , 20?7 

34 . 2030 

34 . 2031 

34 .2032 

34.2033 

34.2034 
34, 203 c 

34.2036 

34.2037 
34,2040 
34,204  1 
34,2042 
34 , ?04  3 
34 , 2044 
34,204  5 


C0001  0 
02777  1 
03642  1 
574  56  1 
27656  1 
00007  0 
03650  1 
53435  0 
0 3<j42  1 
66001  0 
0CCC1  c 

02776  0 
47206  0 
03656  1 
63372  1 
63315  0 
03656  1 
03436  1 
76505  0 
OCOOl  0 
03656  1 
7 7646  0 
27664  0 
03642  1 
53315  0 
03650  1 
03o56  1 
77624  1 
46316  1 
77624  1 
46426  0 
77624  1 


017824 

REF 

1 

34,2046 

45636 

0 

01783 

REF 

? 

LAST 

7 1 4 

34,204-7 

16321 

0 

01784 

34,2050 

00005 

1 

11  T 

34,2051 

776  24 

1 

01786 

REF 

2 

L AST 

617 

34, 205  2 

46426 

0 

01787 

34,2053 

77624 

1 

0178  6 

REF 

2 

LAST 

617 

34,2054 

45»36 

0 

0179 

0 EF 

4 

LAST 

314 

34,2055 

36317 

1 

0160 

REF 

? 

LAST 

614 

34,2056 

0 3632 

0 

STORE 

UNIT 

STQVL 

STORE 
VX  V 

SET  PO 


PUSH 

VSL1 
P D ML 


V X M 

STORE 

A8VAL 

STOVL 

PDVL 


CAL  L 

CALI 

CALL 

s rrDL 

CALL 

CALL 

STCALL 
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RATT 

RTX2 

RTIG 

VCOMP 

RADIUS  VECTOR  AT  IGNITION  TIME 

DEL  VS  IN 

VATT 

VTIG 

UNIT 

ZRF/LV  IN  OELVSIN  SCALED  AT  2 

VELOCITY  VECTOR  AT  TIG,  SCALED  2(7)  M/CS 

RTIG 

SXA  , 1 

0 

9 T X 1 

..e 

VXV 

DELVS IN 

PDVL 

YRF/LV  PD L 0 SCALED  AT  2 

PDVL 

DELVS IN 
DELVSLV 

VSL  1 

0 

YRF/LV  POL  6 SCALED  AT  2 

ZRF/LV  POL  1 2 D SCALED  AT  2 

OELVSIN 

DELTA V IN  INERT.  COOK.  SCALED  TO  B+7M/CS 

DELVS AB 

T I G 

VAD 

VTIG 

OELVSIN 

PER  1 AP01 

DELT A V MAG. 

(FOR  PEPIAPO) 

VREQUIREO  = VTIG  + DELVSIN  (FOR  PERIAPO) 

SHIFTR1 

MAXCHK 

RESCALE  IF  NEEDED 

LIMIT  DISPLAY  TO  9999.9  N.  MI. 

HPEF 

4D 

PERIGEE  Al T 2(29)  METERS,  FOF  DISPLAY 

SHIFTR1 

MAXCHK 

RESCALE  IF  NEEDED 

LIMIT  DISPLAY  TO  9999.9  N.  MI. 

HAPf 

qtemp 

APOGEE  ALT  2(29)  METERS,  FOP  DISPLAY 

GAP: 

L 

P0010 


ASSEMBLE  REVISION  Of  1 OF  AGC  PROGRAM  AP11ROPE  BY  EYLES 
P32-P35,  P 72-°  75 

COELLIPTIC  SEQUENCE  INITIATION  (CSI)  PROGRAMS  (P32  AND  P 7 2 1 
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USER’S  PAGE  NO. 


EO  S3 


R OC  1 1 
» 0012 


MOD  NO  -1 
MOD  BY  WHITE.? 


; OCT  ION  - P32-P35,  P72-!  : 5 

DATE  1 JUNE  67 


R 001  3 


R 00 1 A 
R 001  c 
R 00  ] 6 
R001  7 


PURPOSE 
( 11 


TO  CALCULATE  PARAMETERS  ASSOCIATED  WITH  THE  FOLLOWING 
CONCENTRIC  FLIGHT  PLAN  MANEUVERS  - THC  CO-ELI I^TIC  SEQUENCE 
INITIATION  (CSI)  MANEUVER  AND  THE  CONSTANT  DELTA  ALTITUDE 
(CDH)  MANEUVEf  . 


R 0018 
R 001 9 


(2)  Tl  CALCULATE  THESE  PARAMETERS  BASED  UPON  MANEUVER  DATA 
APPROVED  AND  KEYED  INTO  THE  DSKY  BY  THE  ASTRONAUT. 


R OO  2 C 
R 002  1 
R 002  2 


(3)  TL  DISPLAY  T THE  ASTRONAUT  AND  THE  G : C J V D DEPENDENT  VARIABLES 
ASSOCIATED  w T T H THE  CONCENTRIC  FLIGHT  PLAN  MANEUVER?  FOR 
APPR OVA l BY  THE  ASTRONAUT /GR OUND. 


R0023 
R 0 0 2 4 


TO  S TO" E THE  CSI  TARGET  PARAMETERS  FOR  USE  BY  TEE  DESIRED 
THRUSTING  PROGRAM. 


R 002  5 


ASSUMPTIONS 


R 0026 
R 0027 
R0028 
R 00285 


(1)  AT  A SFIECTED  TP  I TIME  THE  LINE  OF  SIGHT  BETWEEN  THE  ACTIVE 
AND  PASSIVE  VEHICLES  IS  SELECTED  TO  BE  A PRESCRIBED  ANGLE  (E) 
F- OM  THE  HO  IZONTAL  PLANE  DEFINED  BY  THE  ACTIVE  VEHICLE 
POSI TION. 


R 002c 
P 0030 
R0031 


(2)  the  time  BfTWEFN  CM  TGMTION  AND  CDH  IGNITION  MUST  BE 
COMPUTED  TO  BE  GREATER  THAN  10  MINUTES  FOR  SUCCESSFUL 
COMPLETION  OF  THE  PROGPAM. 


P 00  3 2 
R0033 
R 003^ 


(3)  THE  Tl  >E  BETWEEN  CDH  IGNITION  AND  TPI  IGNITION  MUST  BE 
COMPUTED  TO  BE  GREATER  THAN  10  MINUTES  FOR  SUCCESSFUl 
COMP L FT TON  OF  THE  PROGRAM. 


R 0035 

(4) 

CDH  DELT 

3" 

R0036 

ALTITUDE 

R 0037 

(5) 

csi  Bur  u 

R 0038 

R 00385 

HURT  70NT 
IGNI TION 

2" 

P 003  9 

(6) 

THE  PERI 

R 0040 

ROOM 

MUST  BE 
ORBIT)  E 

R 0042 

(7) 

THE  CSI 

1" 

R 004  3 

PARALLEL 

HOWEVER  CREW 


LEMP30S  .103  PAGE 
NO.  2 EO  S3 

R0044  MODIFICATION  OF  DF.ITA  V (LV)  COMPONENTS  MAY  RESULT  IN  AN 

R 0045  OUT-OF-PI.  ANF  CSI  MANEUVER  . 

R 004  6 <«)  STATE  V ECTC  UPDATES  BY  P?7  ARE  DISALLOWED  DURING  AUTOMATIC 

R 00^7  STATF  VrCTl  • UPDATING  INITIATED  BY  P20  (SEE  ASSUMPTION  1C). 
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R 0048 
R 0049 
R 0050 
R 005  1 


(9)  COMPUTED  VARIABLES  MAY  BE  STORED  FOR  LATER  VERIFICATION  BY 
THE  GROUND.  THESE  STORAGE  CAPABILITIES  ARE  NORMALLY  LIMITED 
ONLY  TO  THE  PA  AMETE  S Fo  ONE  TRUSTING  MANEUVER  AT  A TIME 
EXCEPT  FOR  CONCENTRIC  FLIGHT  PLAN  M ANFUVEP  SEQUENCES. 


R 005  2 
R 0053 
R0054 
R 0055 
ROC  56 
R 0057 
ROOF  P 
R 0059 


{ ir ) THE  RENDEZVOUS  RADAR  MAY  OR  MAY  N0T  BE  USED  TO  UPDATE  THE  LM 
OT  C«M  STATE  VECTORS  FOR  THIS  PROGRAM.  IF  RADAR  USE  IS 
DESIRED  THE  p A C A!  WAS  TURNED  ON  AND  LOCKED  ON  THE  CSM  BY 
PREVIOUS  SELEC  If  0)  OF  R20.  RADAR  SIGHTING  MARKS  WILL  BE  MADE 
AUTOMATICALLY  APPROXIMATELY  ONCE  A MINUTE  WHEN  ENABLED  BY  THE 
TRACK  AMD  UPDATE  FLAGS  (SEE  P20  ) . THE  RENDEZVOUS  TRACKING 
MAP  K COUNT  F<-  IS  ZF^OED  BY  TH  F SELECTION  CF  P20  AND  AFTER  EACH 
THRUSTING  MAT  COVER. 


RQ0t>0 

( 11) 

THE 

ISS  NEED  I i T 

R 006  1 

(12) 

THE 

OPERATION  QF 

BE  IN  TO  COMPLETE  THIS  Fn OGHAM. 

"HE  PROGRAM  UTIL?  ZES  THE  Foil  OWING  FLAGS  - 


R 006  2 
R 006  3 
R 00o4 
R00617 


ACTIVE  VEHICLE  ELAG  - DESIGNATES  TEE  VEHICLE 
DOING  RENDEZVOUS  THRUSTING  MANEUVERS  TO  THE 
CALCULATES  THE  MANEUVER  PARAMETERS.  SET  AT 
EACH  RENDEZVOUS  P RE  — THRUST  IMG  PROGRAM. 


WHICH  IS 
PROGRAM  WHICH 
THE  START  OF 


R OC  6 6 final  FLAG  - SELECTS  final  PROGRAM  displays  after  CREW  HAS 

R0067  COMPLETED  THE  FINAL  MANEUVER  COMPUTATION  AND  DISPLAY 

R 0068  CYCLE. 


P,  0069 
R 0070 
R007] 


EXTE'-UAL  DELTA  V STEE  ING  FLAG  - DESIGNATES  THE  TYPE  OF 
STEERING  REQUIRED  FOR  EXECUTION  OF  THIS  MANEUVER  BY  THE 
THRUSTING  PROGRAM  SELECTED  AFTER  COMPLETION  OF  tHTS 


R 007  2 

PROGRAM. 

P 0073 

R0074 

( 13) 

IT  is  normally  required 

A THE  JST  INC  UANEUVE?  . 

THAT  THE  ISS  BE  ON  FGk  1 HOUR  PRIOR 

o 0075 

( 14  ) 

THIS  PROGRAM  IS 

S El  ECTFD 

BY  THE  ASTRONAUT  BY  DSKY  ENTRY  - 

R 0076 

P 32  IF  TH^s 

vehicle 

IS  ACTIVE  VEHICLE. 

R 0077 

P72  IF  T H I S 

VEHICLE 

IS  PASSIVE  VEHICLE. 

R 01 1 0 

INPUT 

R 0 1 1 1 

( 1 ) 

TCS I TIME  OF 

THE  CSI 

MANEUVER 

619 


> 


GAP:  ASSEMBLE  REVISION  00 1 CF  AGO  P . QGf  AM  APU'D  BY  LYLES 

L P32-P35,  P72-P75 


NUMBF  OF  APSIDAL  CROSSINGS  THRU  WHICH  THE  ACTIVE 
VEHICLE  ORBIT  CAN  BE  ADVANCED  Tl  OBTAIN  THE  CDH 

maneuver  point 

DEST  FD  LOS  ANGLE  AT  TPI 
T I u E OF  THE  TPI  MANEUVER 


TIME.  TO  Gf. 

MIDDLE  GLOBAL  ANGLE 
DELTA  ALTITUDE  AT  CDH 
DE!  TA  TIME  FROM  CSI  TO  CDH 
DELTA  TIME  FROM  COH  TO  TPI 

DELTA  VELOCITY  AT  CSI  - LOCAL  VERTICAL  COORDINATES 
DELTA  VELOCITY  AT  CDH  - LOCAL  VERTICAL  COORDINATES 


TIME  OF  THE  CSI  MANEUVER 
TIME  OF  THE  CDH  MANEUVER 
TIME  OF  THE  TPI  MANEUVER 
TIME  OF  THE  CS!  MANEUVER 

DELTA  VELOCITY  A"  CSI  - R E F E ENCE  COL'  DILATES 
DELTA  VELOCITY  AT  CDH  - FFFEI  ENCE  COORDINATES 
DELTA  ALTITUDE  AT  CDH 

NUMBER  OF  APSTDAL  CROSSINGS  THRU  WHICH  THE  ACTIVE 
VEHICLE  ORBIT  CAN  BE  ADVANCED  TO  03TAIN  THE  COH 
MANEUVER  POINT 
DESIRED  LOS  ANGlt  AT  I P T 


TIME  OF  THE  CSI  MANEUVER 

POSITION  OF  ACTIVE  VEHICLE  AT  CSI  - BEFORE  ROTATION 
INTO  Pi  ANE  CF  PASSIVE  VEHICLE 

V F L o ' : T fY  OF  ACTIVE  VEHICLE  AT  C.Sb  - BEFOP  f ROTATION 
INTO  PLANE  OF  PASSIVE  VEHICLE 

DELTA  VELOCITY  AT  CSI  - REFERENCE  COORDINATES 

MAGNITUDE  OF  DELTA  VELOCITY  AT  CSI 

SET  TO  INDICATE  EXTERNAL  DELTA  V VG  COMPUTATION 
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R 01 1 2 

(2) 

NN 

R 01 1 3 

R 0 1 1 4 

R011r 

(3) 

ELEV 

R 0116 

(4) 

ttpi 

R 0130 

OUTPUT 

R0131 

( 1 ) 

tpkmkcnt 

R0132 

(2) 

TTOGO 

R01  3 3 

(3) 

+ MGA 

R0134 

(4  ) 

DTFF ALT 

R 0 1 3 5 

(6) 

TIT''  T2 

R0136 

(6) 

T2TDT3 

R0137 

(7) 

DEL  VI  VC 

R 0 1 3 8 

(8) 

DEL VLVC 

R 013° 

DOWNLINK 

R 013° 1 

( I ) 

TCS  I 

R 01 39  2 

(2) 

TCDH 

R 0 1 3 9 3 

(3) 

T TP  I 

P 01 3°* 

(4) 

TIG 

R 01 39  5 

! r-n 

DELVEET 1 

R013°6 

(6) 

D EL  V EE  T 2 

R 0 1 3 9 7 

(7) 

D IFFALT 

R 0 1 3 9 8 

(8) 

NN 

R 01 39 9 

R0140 

R 01401 

19) 

ELEV 

R 01402 

COMMUNICATION  TO  T 

R 0140  3 

(1) 

TIG 

R01404 

(2) 

RTIG 

R 0 1 4 0 5 

R 01406 

( 3) 

VTTG 

R 0140 7 

R 01408 

(4) 

DEL Vi  I 

R 0140 9 

(5) 

DEL V SAB 

R0141 

(6) 

XDEL  VFI.G 

R 0150 

subroutines  USED 

R 01 5 1 

AVFLAGA 

R 0 1 5 2 

AVFLAGP 

R 0152  5 

P20FLGGN 

PCI  53 

V A p ALARM 

R0154 

PAM KC ALL 

R 01 5 5 

COFLASH 

R 0 1 5 6 

GOTOPOOH 

i" 


SAP:  ASSEMBLE  REVISION  OQ1  CF  A SC  PRO^r AM  ApIIROPE  HY  RYLES 


l P32-P35,  P?2-P7C 


R 0156  2 

R 0 1 5 6 4 

R 0 1 5 7 

R015« 

R 0 1 5 ° 
d nun 

VNPOQH 

GOF  LASHR 

BLANKET 

END  OF  JOB 

SELECTED 

ADVANCE 

INTINT 

R 0 16  1 

R 0 16  2 

PASSIVE 

P 0163 

CSI  /A 

R 0 1 6 4 

S32/33. 1 

R 0165 

DISDVLVC 

R 0166 

VN1645 

0400 

0401 
040? 

040  3 
0404 
0500 

0502 

0503 
050305 

050306  ° EF  1 
050307  REF  3 

05031  REF 

05032 

05033  REF 

05034 

0503  5 
0503B 
05039 

0504 
05041 
050'2 

0504  ? 

Q 504-4 
0 504c 
05046 

0505 
05051 

0506 

0506  1 
05062 

0507 

0508 

050801 *REF 
0508024 
0508034REF 
050804* 
0508054REF 


2 

LAST 

621 

3 

LAST 

315 

4 

LAST 

305 

5 

1 

LAST 

621 

1 

4 

LAST 

614 

6 3 

LAST 

615 

6 

L AST 

621 

REF  1 

REF  1 
0 EF  1 
REF  1 
RFF  1 
p EF  1 


1 

2 

REF  3 

REF  1 
REF  277 
REF  3 
' E F 1 
REF  167 
RFF  8 
REF  6 

REF 
P FF 
REF 
4 F F 
4REF 
4P.EF 
REF 


1 AST 

315 

LAST 

141 

LAST 

621 

LAST 

606 

LAST 

338 

LAST 

6 08 

LAST 

49  3 

LAST 

493 

35,2027  BANK 

35,2000  SETLOC 

35,2027  BANK 

E 7 , 147  0 EBANK= 

COUNT  4 

35,2027  0 2347  0 P32  TC 

35.2030  0 2032  1 TC 

35.2031  0 2354  1 P72  TC 

35.2032  ) 0006  1 P32STPT  EXTEND 

35.2033  3 2420  0 DCA 

3 '■  ,203  4 §3*621  1 DXCH 

35.2035  0 2053  0 TC 

35.2036  77734  1 ALMXITA  SXA,2 

35.2037  03613  0 

3 5,2 0 6 n 77740  1 ALMXIT  LXC,1 

35,2041  03:13  0 

35,204?  77533  1 SL0AD4 

35.2043  32423  0 

35.2044  3 0154  1 CA 

35.2045  0 5744  0 TC 

35.2046  3 5006  1 CAF 

35.2047  0 46 1 6 1 TC 

3 5,205  0 2 0476  0 C A DR 

35.2051  0 6001  0 TC 

35.2052  0 2046  1 TC 

35.2053  0 2361  1 f 32/P72A  TC 

3.5,2054  3 2417  1 CAF 

35.2055  55*467  1 TS 

35.2056  55*633  1 TS 

35.2057  55*634  0 TS 

35.2060  3 2410  0 VN0611  CAF 

35.2061  0 3712  0 TC 

35.2062  0 6037  0 TC 

3 “>,206  3 57545  1 D1.0AD 

35. 206 4 03634  0 

35.2065  71240  1 BMN 

35.2066  72113  1 


35 

CSI/CDH 

SUBEXIT 
$ $/  P3  2 72 
AVFL  AGA 
P32STRT 
AVFLAGP 

P30ZE1  n 
CENTANG 
P32/P72A 

CSIAl RM 

CSI  Al.  PM 
EXIT 

ALARM/TB 
M P AC 

V AH  ALARM 

V05N09 

BANKCALL 

GCFl ASM 

GOTGPOOH 

-4 

P20FLG0N 
P 30  ZERO 
NN  +1 
TCS  I 
TCS I +1 
V06N1 1 
VNPLQH 
I NT POET 
DCGMP 
TCS  I 
DLOAD 
VN0655 
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1 , 1 


621 


TCS  I 


GAP:  ASSEMBLE  LVISi:-  001  OF.  A&C  PROGRAM  APUrUPE  BY  EYLES 


P 32- 

°36, 

P72-P75 

0508  06*R  E F 

3 

LAST 

500 

35,2067 

01643 

1 

050807*°  EF 

22 

LAST 

616 

35,2070 

34041 

0 

STCALL 

i 

35, 2071 

46360 

0 

vj w'  • uo*  i't  r 

1 

0508C9* 

35,2072 

53775 

1 

VLOAD 

05081  *RFF 

1 

35,20*3 

0 3 536 

1 

35 , 2074 

57  176 

0 

U - ' J 1 ' 

0508  12*REF 

2 

LAST 

494 

35,2075 

26655 

0 

STOVL 

050813*REF 

2 

LAST 

141 

35,2076 

03544 

1 

050814* 

35,2077 

43057 

1 

VSR* 

050815* 

35, 2100 

57176 

0 

050 8 16* REF 

2 

LAST 

494 

3 3 , 2101 

0 3466 

0 

0508  1 7*P  E F 

3 

L AST 

404 

3*, Mo? 

16  744 

1 

STOOL 

050 818*REF 

5 

LAST 

610 

35,2103 

06530 

1 

0508 19*REF 

2 

LAST 

125 

35,2104 

36756 

0 

STCALL 

0508.2  * R. c F 

1 

35,2105 

25547 

0 

050821* 

3 c,  2105 

n ■■  16 

0 

DAD 

0508  2 2*8  EF 

1 

3 5 , 2 1 C 7 

03574 

1 

050823*PtF 

7 

LAST 

621 

35,2110 

03634 

o 

STOn  F 

050824* 

35,2111 

77776 

1 

EXIT 

050825*REF 

1 

35,2112 

0 2 06  0 

0 

TC 

05C  826* 

35 , 21 1 3 

77776 

1 

VN0655 

EXIT 

0509  REF 

1 

35,2114 

3 3 724 

0 

CAF 

0510  REF 

L 5 8 

LAST 

62  1 

35,2115 

0 6616 

1 

TC 

0511  REF 

9 

LAST 

621 

35,2116 

2 0476 

0 

CADR 

0512  REF 

7 

LAST 

621 

35,2117 

0 6001 

0 

TC 

0513 

35,2120 

0 2122 

1 

TC 

05.14 

35,2121 

0 2114 

1 

TC 

05  1 8 REF 

1 

35,2122 

3 3723 

1 

CAF 

0519  9 FF 

5 

L AST 

621 

3 5 ,21?  3 

0 3712 

0 

TC 

0520  REF 

64 

LAST 

62  1 

75,212'' 

0 6037 

0 

TC 

0521 

35,2125 

7 774  5 

l 

DLOAD 

0522  REF 

8 

LAST 

622 

35,2126 

03634 

0 

0523  REF 

10 

LAST 

616 

35 ,2127 

37442 

1 

STCALL 

0524  REF 

1 

35,2130 

2 00  00 

0 

0525 

35,2131 

77624 

1 

P32/P72B 

C A 1 L 

0526  REF 

1 

35,2132 

71016 

0 

0527 

35,2133 

77201 

1 

SETPD 

0528 

35,2134 

00001 

0 

0529  REF 

3 

LAST 

144 

35,2135 

03506 

1 

0530 

35,2136 

65315 

0 

PDVl 

0531  R EF 

2 

LAST 

141 

35,2137 

03500 

1 

0532  REF 

9 

LAST 

622 

35,2 1^0 

03634 

0 

0533 

35,2141 

65325 

0 

PDDL 

0534  REF 

4 

LAST 

306 

35,2142 

03636 

1 

0535  REF 

1 

35,2143 

33732 

1 

0536 

35,2146 

45006 

0 

PUSH 

0537  REF 

1 

35,2145 

73466 

1 

0538 

35,2146 

77624 

1 

CALL 

0539  R FF 

1 

3 5 , 2 14  7 

46412 

1 

0540 

35,2150 

77624 

1 

CALL 

TETLEM 

TDEC1 

PRECSET 

VSR* 

RACT3 

0,2 

RVEC 

V ACT  3 
SET 
0,2 
RVSW 

V VEC 

DPPOSMAX 
ROES IPED 
TIME RAD 

f DEC? 

tcsf 

VN06I1 

V06N55 
e ANKCALI- 
GOFLASH 
GCT  OPOOH 
+ 2 
-5 

V06N37 

VMPOOH 

INTPPET 

TCS  I 
TIG 

SELECT MU 

ADVANCE 

VLOAD 

00 

VPASSI 
PDDL 
R PASS1 
TCS  I 
PDDL 
TTPI 
TWO  PI 
CALL 
INTINT 

PASSIVE 


3:  15  DEC.  2,1070  LEMP30S 
USER'S  PAGE  NO.  5 


.103  PAGE 
E7  S3 


622 


NN,  ELEV(PGLQS) 


TTPT 


GAP:  assemble  Rfc  VlSIDf  001  OF  AGC  PROGRAM  AP11R0PE  BY  EYLES 


L P32-P35 1 P72-Q7S 


05A  1 

R EF 

05A2 

05  A 3 

REF 

05A  a 

OFF 

05A5 

REF 

05  A 6 

05A7 

REF 

05A  8 

RFF 

05A9 

0550 

REF 

0551 

REF 

055? 

0553 

REF 

055A 

REF 

0556 

0556 

REF 

0557 

0 EF 

0563 

055  9 

REF 

0560 

REF 

0561 

REF 

0562 

056? 

h EF 

056  6 

^ EF 

0567 

REF 

05671 

REF 

05o72 

REF 

0568 

REF 

056  Q 

0 5 6 c 1 

057? 

REF 

0573 

05731 

REF 

05732 

REF 

05  7 a 

REF 

057c 

0576. 

REF 

1 

1 

1 

6 LAST 

3 LAST 
A LAST 

1 

1 

2 LAST 

3 LAST 

2 LAST 

1 

1 

6 LAST 
6 5 LAST 

3 LAST 
1 

A LAST 
2 LAST 

2 LAST 

3 LAST 


1 

5 LAST 

1 

1 

1 


A 14 

3 16 
623 


316 

623 

62  3 


622 

622 


ise 


623 

117 

117 

196 


622 


36.2151 

35.2152 

35.2153 
3 5 , 2 1 5 A 
35,2155 
3 5,2156 
35,2157 

35.2160 

35.2161 
35, 2 16  2 

35.2163 

35.2164 

35.2165 

35.2166 
3 5, 2167 
35 , 2170 
35, 217 ] 

35.2172 

35. 2173 
3 5 , 2 1 7A 

35.2175 

35.2176 

35.2177 
36 , >200 

35 . 2201 

35.2202 

35.2203 
35, 22 CA 

35. 2205 

35.2206 

35.2207 

35.2210 

35.2211 

35 .2 212 

35.2213 
3 5 , 2 2 1 A 
35,2215 


701  13  0 
A301A  0 
01311  G 
72156  0 
00A70  1 
777 A 5 1 
02253  1 
02253  1 
51025  1 
32422  1 
721  60  0 
7 7 7 A 5 1 
02255  1 
02255  1 
51025  1 
32A22  1 
72166  0 
77776  1 
3 2412  1 
0 3712  0 
0 6037  0 
A 5 1 7 5 0 
02267  C 
71100  0 
26267  0 
02311  0 
26303  0 
02275  0 
A5170  0 
01522  0 
72370  0 
7 7 7 A 5 1 
03636  1 
3 7 6 a-  0 1 
73606  0 
77650  1 
72131  1 


P32/P72C 


P32/P72D 

P32/P72E 


P32/P  72  F 


BON 


DIP  AO 

STORE 

DSU 


DIP  AD 

STORE 

DSU 


EXIT 

CAF 

TC 

TC 

VLCIAD 


STOVL 

STOVL 

A X T , 1 
VN 

DLOAD 
STC ALL 
GOTO 


3: 1 5 DEC  . 
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E 7 S3 


CSI/A 

SET 

F INAL  F LG 
P32/P72D 
UPDATFl.  G 

T1T0T2 
T 1T0T2 

BPL 
60131 N 
P32/P72E 

T2TPT3 
T 2 TOT  3 
BPL 
60MIN 
P32/P72F 

V06N75 
VNPOOH 
I NT PR E F 
CALL 

DEL VEET1 

S32/33. 1 

0ELVEET1 

RACT2 

R ACT  1 

DELVEET2 

CALL 

0682 

D1  SDVLVC 

TTFJ 

TTPIC 

VN16A5 


623 


P32/P72B 


i 


GAP: 

ASSEMBLE . LE VISION  001  OF 

AGC 

PROGRAM  API  IKE  PI  BY  EYLtS 
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LEMP30S 
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L 

P32-P35,  P72-P75 

USER'S  PAGE 

NO.  7 

E 7 S3 

P 1010 

CONSTANT  DELTA  HEIGHT 

CDH 

PROGRAMS  ( P33  AND  P73) 

RICH  MOD  NO  -1  LOG  SECTION  - P32-P35,  P72-P75 

P 1012  Mul)  BY  WHITE. P DATE  lJUNEfc? 

R1C1?  PT  POSE 


RICH  (1)  TO  CALCULATE  PARAMETERS  ASSOCIATED  WITH  THE  CONSTANT  DELTA 

P 10 1 5 AITITUDE  MANEUVER  (CDH). 

RICH  H)  TO  CALCULATE  THESE  PARAMETERS  BASED  UPON  MANEUVER  DATA 

RICH  APP-  I VED  AND  KEYED  INTI  THE  DSKY  BY  THE  ASTRON/SUT. 

R 10 1 8 (3)  TC  DISPLAY  TO  THE  ASTRONAUT  AND  THE  GROUND  DEPENDENT  VARIABLES 

R 10 1 9 ASSOCIATED  WITH  THF  CDH  MANEUVER  HOR  APPROVAL  BY  THE 

R 102  0 ASTL  ONAUT /GROUND. 

R 10  2 1 (■•)  Tf  S TO  ' E THE  CDH  TARGET  PARAMETERS  FOR  USE  BY  TEE  DESIRED 

R 10?  2 THRUSTING  PROGRAM. 

R 102  3 ASSUMPTIONS 


R 102* 

R 1025 
R 1026 

R 1027 
R 1028 
R 1029 
R 1030 

R 1031 
R 103? 

R 1033 
R 1 0 3 4 

R 103  5 
R 1036 

R 1037 
R 1038 

R 103  R 5 

R 1039 
R 1040 
R 1041 

R 104? 

R 1043 


(1)  THIS  PROGRAM  IS  BASED  UPON  PREVIOUS  COMPLETION  OF  THE 

CO-ELLIPTIC  SEQUENCE  INITIATION  (CM)  PROGRAM  (P32/P72). 

THE?  FORE  - 

(A)  AT  A SELECTED  TP  I TIME  (NOW  IN  STORAGE)  THE  LINE  OF  SIGHT 

BETWEEN  THE  ACTIVE  AND  PASSIVE  VEHICLES  WAS  SELECTED  TO  BE 
A Pr  ESCRIBED  ANGLE  (E)  ( NOW  IN  STORAGE)  FROM  THE 

H' " T 7CNTAL  PLANE  DFFTNED  BY  THE  ACTIVE  VEHICLE  POSITION. 

(B)  THE  THE  BETWEEN  CSI  IGNITION  AND  CDH  IGNITION  WAS 
COMPUTED  TO  BE  GREATER  THAN  10  MINUTES. 

(C)  THE  THE  BETWEEN  CDH  IGNITION  AND  TPI  IGNITION  WAS 
CL  PUTED  to  BF  GREATER  THAN  1C  MINUTES. 

(D)  THE  VARIATION  OF  THE  ALTITUDE  DIFFERENCE  BETWEEN  THE 
ORBITS  WAS  MINMIZED. 

! E ) CSI  BURN  WAS  DEFINED  SUCH  T HA1  THE  IMPULSIVE  OELTA  V WAS 
IN  THE  HCMZONTAL  PLANE  DEFINED  BY  ACTIVE  VEHICLE 

POSITION  AT  CSI  IGNITION. 

(F)  THE  PEL  I CENT  E r-  ALTITUDES  OF  THE  QFBITS  FOLLOWING  CSI  AND 
CDH  WERE  COMPUTED  TO  BE  GREATER  THAN  35,000  FT  FOP  LUNAR 
ORBIT  OR  85  NM  FOR  EARTH  ORBIT. 

(G)  the  CSI  AMD  CDH  MANEUVERS  WERE  ASSUMED  TO  BE  PARALLEL  TO 
THE  PLANE  OF  THE  PASSIVE  VEHICLE  HRBIT.  HOWEVER,  CPEW 


f 

# 


GAP: 

ASSEMBLE  REVISION  001  t F AGC  PROGRAM  APH-kOPE  BY  EYLES 
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1 EMP30S 

.103  PAGE  625 

L 

P32-P35,  P7?-D75 

USER’S  PAGE 

NO.  8 

E7  S3 

R 1044 

R 1045 

MODIFICATION  OF  DELTA  V (LV)  COMPONENTS 
IN  AN  OUT-OF-PLANE  MANEUVER. 

MAY  HAVE  RESULTED 

R 104  6 

R 1047 

(?)  ST  Ar  E VECTOR  UPDATES  BY  P27  ARE  DISALLOWED 
STATE  VECTO'  UPDATING  INITIATED  BY  P20  (SEE 

DUPING  AUTOMATIC 

ASSUMPTION  4). 

R 1048 
I R 104*3 

R 1050 
R 1051 

i 

R 105? 
R 1053 
) R 105* 

R 1055 
R 10r'^ 

> R 105? 
R 105  P 
R 10  5<= 

> 

R 106  0 


(3)  COMPUTED  VARIABLES  MAY  BE  STORED  EOR  LATER  VERIFICATION  BY 
THE  GROUND.  THESE  STORAGE  CAPABILITES  ARE  NORMALLY  LIMITED 
ONLY  TO  THE  PA;  AM  ET  ERS  FOP  ONE  THRUSTING  MANEUVER  AT  A TIME 
EXCEPT  FOR  CONCENTRIC  Ft  I GHT  PLAN  MANEUVER  SEQUENCES. 

(*)  THE  DENDEZ  VO(Je  PADAP  MAY  OP  MAY  NOT  BF  USED  TO  UPDATE  THE  LM 
OR  CSM  STATE  VECTORS  FOR  THIS  PROGRAM.  IF  RADAR  USE  IS 
DESIRED  THE  RADAR  WAS  TURNED  ON  AN D LOCKED  ON  THE  CSM  BY 
PREVIOUS  SELECTION  UF  P20.  RADAR  SIGHTING  MARKS  WILL  BE  MADE 
AUTOMATICALLY  APPROXIMATELY  ONCE  A MINUTE  WHEN  ENABLED  BY  THE 
PACK  AND  UPDATE  FLAGS  (SEE  t>20 ) . TEE  RENDEZVOUS  ti-ACKING 
■V  < COUNT  F‘-  IS  Z F':  nED  BY  THE  SELECTION  fP  P?r  Af-!D  AFTEF  EACH 
THRUSTING  MANEUVER. 

(5)  the  ISS  NEED  NOT  3E  uN  TO  COMPLETE  THIS  PROGRAM. 


> P 106 1 


(6) 


THE 


OPERATION  OF  THE  PROGRAM 


UTILIZES  THE  FOLLOWING  FLAGS  - 


R 106? 
i R 1063 

R 1064 
R 1065 

» 

R 1066 
R 1067 
► R 106  P 


ACTIVE  VEGICLF  FLAG  - DESIGNATES  THE  VEHICLE  WHICH  IS 
DOING  RENDEZVOUS  THRUSTING  MANEUVERS  TO  THE  PROGRAM  WHICH 
CALCULATES  THE  OANEUVE  PARAMETERS.  SET  AT  THE  START  OF 
EACH  i F NOE  ZVDUS  PR  E-THP.USTI  NG  D OGRAv. 

FTNAt  FI  AG  - SELECTS  FINAL  PROGRAM  DISPL  AYS  AFTER  CREW  HAS 
COMPLFTED  ’HE  FINAL  MANEUVER  COMPUTATION  AND  DISPLAY 
CYCLE. 


I 


I 


i 


2" 


R 10.- 
R 1070 
R 107  1 


EXTERNAL  DEtTA  V STEERING  FLAG  - DESIGNATES  THE  TYPE  OF 
STEEPING  REQUIRED  EOF  EXECUTION  OF  THIS  MANEUVER  BY  THE 
THRUSTING--  P ' r * G R A M SELECTED  A F T E r;  COMPLETION  OF  THIS 


1072 

PROGRAM. 

1073 

(7  ) 

IT  IS  NORMALLY  REQUIRED 

T HAT 

THE  JSS  BE  .ON 

FOP  1 HOUR  DRIGR 

107  4 

A THRUSTING  MANEUVER. 

1075 

(8) 

THIS  porGPAM  IS  c ELECTED 

BY 

THE  ASTRONAUT 

BY  DSKY  ENTRY  - 

1076 

P33  IF  THIS  VEHICLE 

IS  A 

CTIVE  VEHICLE. 

1077 

P73  IF  THIS  V EH  I Cl  F 

IS  P 

ASSIVE  VEHICLE 

• 

1110 

IWPUT 

111  1 

( 1 ) 

TTPIO  TIME  OF  THE  TPI 

MAN 

EUVER  - SAVED 

FROM  P32/P72 

I 


i" 


GAP:  ASSEMBLE  REVISION  GDI  OF  AGC  PI  GGR, AM  APILROPE  BY  EYLES 

L P32-P35,  P? 2-^1* 

R 1 1 1 2 (2)  EL  E V DESITED  LOS  ANGLE  AT  TPI  - SAVED  FROM  P32/P72 

R 1 1 1 3 (3)  TCDH  TIME  OF  THE  CDH  MANEUVER 
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R 1130  TUT  PUT 


R 1 1 3 1 
R 1132 
R 1133 
R 1 134 
R 1 1 3 5 
R 1 1 3 6 
R 1 137 


il) 
(2) 
(3) 
( : ) 
(PI 
(6) 
(7) 


T KMK COT  MLIMBf-  OF  MA'KS 

TTOGO  TIME  TO  GO 

+MGA  MIDDLE  GIMBAL  ANGLE 

DIFFALT  DELTA  ALTITUDE  AT  CDH 

T2T0T3  DELTA  TIME  FROM  CDH  TO  COMPUTED  TDI 

NOM TPI  OFLTA  TI'T  FROM  NOMINAL  TPI  T°  COMPUTED  TPI 

DEL VLVi  PFl^A  VELOCITY  AT  CDH  - LOCAL  VF  TICA1  COORDINATES 


R 1 1 3 c 


DOWEL  INK 


R 1139  1 

(I  ) 

TCDH 

TIME 

OF 

the 

CDH 

MANEUVER 

R 11392 

( 2 I 

TTPT 

TIME 

OF 

THF 

TPI 

MANEUVER 

C 113 c ? 

(3) 

TIG 

ttmf 

OF 

THE 

CDH 

MANEUVER 

R 1 1 39  A 
R 11395 


R 1 1 39  £ 

(6) 

ELEV 

R 1140 2 

COMM UN  ICA 

TION  TO  Tl 

0 1 1 40  3 

( 1 ) 

TIG 

P 11404 

R 11405 

(2) 

RTIG 

R114C6 

R 1 1 * 0 7 

(3) 

VTIG 

R 1140 8 

(4) 

DEI  VST  N 

R 1140a 

(5) 

DEL VSAB 

R 1141 

(fa) 

XDELVFLG 

(4)  DEL  VEFT2  DELTA  VELOCITY  AT  CDH  - REFERENCE  COORDINATES 

(5)  DIFFALT  DELTA  ALTITUDE  AT  CDH 
DESIRED  LOS  ANGLE  AT  TPI 


TT-ME  OF  THE  CDH  MANEUVER 

POSITION  OF  ACTIVE  VEHICLE  AT  CDH  - BEFORE  ROTATION 
INTO  PLANE  OF  PASSIVE  VEHICLE 

VELOCITY  OF  ACTIVE  VEHICLE  AT  CDH  - BEFORE  ROTATION 
INTO  PLANE  OF  PASSIVE  VEHICLE 

DEITA  VELOCITY  A':  CDH  - REFERENCE  COORDINATES 
MAGNITUDE  OF  DELTA  VELOCITY  AT  CDH 
(6)  XDELVFLG  SET  to  INDICATE  EXTERNAL  DEITA  V VG  COMPUTATION 


R 1 150  SUSLUL  II LS  USED 


R 1 1 5 1 
R 115? 

R 1152  5 
R 1153 
R 1 1 54 
R 1 1 55 
R 1156 
D 1157 
R 1158 
R 1150 
R 116  0 
R 1161 
R 1 1 o 2 
R 1 1 63 
R 1164 
R 1166 


AVFLAGA 
AVFLAGP 
P20FLGON 
VNPOOH 
SEL  ECTMU 
ADV ANCE 
CDH  MVr 
I NT  TNT 3 = 
ACTIVE 
PAS  SI VE 
S33/34.  1 
ALARM 
BAN KC ALL 
GOF LASH 
GrjTOPOOH 
S32/33.1 


626 


GAP: 


ASSEMBLE  -EVlSIIN  001  OF  A GC  Pr.Q&F  AM  API  1ROPE  8Y  EYLES 


L 

R 1167 

1499 

1500 

1502 

1503 
150  6 
15051 

1506 

1507 

1508 
15001 
15082 

1509 

1510 

1511 

1512 

1513 
151* 
1515 
151^ 
1517 
1510 

1519 

1520 

1521 

1522 

1523 
152  4 

1526 

r 

1527 

1528 

152  c 

1530 

1531 

1532 

1533 

1534 

1 53  c 

1536 

1537 

1538 


P32— °35,  P72-P75 

VN1 645 


REF 
REF 
R EF 
REF 
REF 
REF 
REF 
REF 

REF 

REF 

REF 

REF 

REF 

OFF 

REF 


REF 

REF 
P EF 

REF 


REF 

REF 

REF 

REF 

REF 

REF 

REF 

IFF 

REF 


1 

2 

1 

2 
2 
1 
7 

66 

2 

6 

4 

1 1 
2 


LAST  621 


LAST 

LAST 

LAST 
1 AST 

LAST 
LAST 
LAST 
LAST 
L A?T 


LAST 

LAST 


LAST 

LAST 

LAST 

LAST 


1 

621 

62  3 
623 

62  3 
623 
305 
62  2 
622 


LAST  b?2 


622 

623 


LAST  141 


141 
62  7 

622 

e>2  1 


35 ,22  16 

36,2217 
35 , 2 22C 
35 ,222  1 

35.2222 

35.2223 
35,222^ 

35.2225 

35.2226 

35.2227 

35.2230 

35.2231 

35.2232 

35.2233 

36 .2234 

35.2235 

35 .2236 

35.2237 
35,2240 
35,224  1 
35,2242 
35,224  3 

36.2244 

35.2245 

35.2246 

35.2247 

35.2250 

35.2251 

35.2252 

35.2253 

36.2254 

35.2255 

35.2256 

35.2257 

35.2260 

35.2261 

35 . 2262 
36  , 2263 

35.2264 

35. 2265 


0 2347  0 
0 2221  1 
0 2354  1 
0 2361  1 
3 2411  1 
0 3712 


0 

0 6037  0 
77745  1 
03640  0 
17636  1 
01777  1 
37442  1 
20000  0 
77624  1 
7101 6 0 
77624  1 
71133  0 
77201  1 
Of  001  0 
ft  3 544  1 
45116  0 
02311  0 
71071  l 
77624  1 
46402  0 
77201  1 
0CC01  0 
03530  1 
45115  0 
03522  1 
7 1071  1 
77624  1 
46412  1 
43145  0 
32420  0 
03460  0 
36317  1 
7 27-4  1 
77454  1 
72302  0 


COUNT  * 
P33  TC 

TC 

P73  TC 

P33/P73  A TC 
CAF 
TC 
TC 

D!  NAD 
STOOL 
STCALL 

P33/P73B  CAL  L 
CALL 
SETPO 

PDVL 

CALL 

SPT°[) 

PDVL 


$$/P3373 
AVFLAGA 
P33/P73 A 
AVFLAGP 
P20FLG0N 
V06N13 
VNPOOH 
I NT P RET 

TTP I 0 

TTPI 

TCOH 

TIG 

S ELECT MU 
ADVANCE 

CDHMVR 

V LOAD 
OD 

V ACT  3 
CALI 
RACT2 

I NT  I NT  3 P 

ACTIVE 

VLOAD 

CD 

V PASS2 
CAL  L 
RP4SS2 

I NT  I NT 3 F 


CALL 

DLOAD 


PASSIVE 
SET 
P30ZER0 
ITSWICH 
STCALL  NCMTPT 

S33/34. 1 
BZE  EXIT 

P33/P73C 


1539 

REF 

27 

LAST 

593 

35 , 2266 

0 5 5 &7 

0 

TC 

ALARi1! 

1540 

35,2267 

00611 

1 

OCT 

611 

1541 

R EF 

2 

LAST 

621 

35,2270 

3 5006 

1 

CAF 

VC5N09 

1542 

REF 

1 5 9 

LAST 

6 22 

35,2271 

0 4616 

1 

TC 

BANKCALl 

1 543 

RFF 

10 

LAST 

622 

35,2272 

2 0476 

0 

CADR 

GOFLASH 

1544 

RFF 

8 

LAST 

622 

35,2273 

0 6001 

0 

TC 

GOTOPOOH 

1545 

35,2274 

0 2276 

0 

' TC 

+ 2 

3:15  DEC.  2,1970  LEMPJQS 
USER  'S  PAGE  NO.  10 


.103  PAGE 
F7  S3 


627 


TCDH 


AP:  ASSEMBLE  REVISION  >01  UP  AuC  PROGRAM  API 1ROP  E BY  EYIES 


3 32-03=5,  P72-‘>75 


1546 

I 

1548 

154° 

15  50 

1551 

1 

REF 

REF 

REF 

SEE- 

2 

6 7 

4 

2 

LAST 

LAST 

LAST 

LAST 

REF 

2 

LAST 

1553 

' EI- 

1 

1554 
156  7 

1550 

RE  F 

7 

LAST 

REF 

3 

LAST 

1 56  r 

REF 

7 

l AST 

1 5 - 

E F 

8 

LAST 

1561 

156  2 

REF 

5 

LAST 

156? 

1564 

R E F 

3 

LAST 

156  5 

REE 

l 

4 

1566 

1567 

REF 

L AST 

IE  , 

REF 

5 

LAST 

156  c 

KEF 

9 

LAST 

15  70 

157] 

REE 

3 

LAST 

1572 

1573 

REF 

5 

LAST 

1574 

l 7 

REF 

1 

15751 

REF 

6 

LAST 

1 6 76  0 

L f J 

15755 

REF 

4 

LAST 

1 r - 

1577 

REF 

2 

LAST 

1 

REF 

8 

LAST 

1579 

REF 

68 

LAST 

1580 

1581 

REF 

/■ 

LAST 

1584 

REF 

2 

LAST 

1585 

REF 

5 

LAST 

15  39 

REF 

2 

LAST 

1590 

1591 

REF 

l 

62  7 
627 

35.2275 

35.2276 
4 5 . 77  7 7 

4 27 
62  7 

y 4 } -4.  i i 

35.2300 

35.2301 

35 . 2302 

623 

f.)  6 

35.2303 

35.2304 

4 6.  7 4 n c 

62  8 
f,  o'? 

35,2306 
3 5 , ? 3 C 7 
35,2310 

628 

A.  7 7 

35.2311 

35.2312 

35.2313 
3 ,231 4 
3 r , 2 3 1 5 

3 ",  7 3 ] a 

42  3 

628 

6 2 3 

35,2317 
35,2320 
3 6 ,2  5 21 

628 

42  7 

3 5,2322 
3 :r  * 2 3 2 3 
35, 23 ? <’. 

628 

35,2325 
35,2326- 
3 5 , 2 3 2 7 

628 

35.2330 

35.2331 

3 6 f 23  3 ? 

623 

6 ? 3 

35.2333 

35.2334 
44.  7 4 4 4 

62  7 
628 

> - ) C-  J 

35.2336 

35.2337 

3 5 , 2 300 

623 

623 

628 

35,234-1 

35.2342 

35.2343 

623 

36.2344 

35.2345 

35.2346 

0 2221  1 
0 6037  0 
77745  1 
32420  0 
02317  0 
43014  0 
01311  0 
72306  1 
00470  1 
43345  1 
02  51  7 0 
03636  1 
03636  1 
77625  0 
01777  1 
- 102  5 1 
32422  1 
72314  1 
77615  0 
32422  1 
It  253  1 
03636  1 
41425  1 
03640  0 
45246  0 
32422  1 
43244  1 
72325  C 
32422  1 
45565  0 
7552?  0 
77776  1 
3 2412  1 
7 3712  0 
0 6037  0 
45175  0 
02275  0 
71100  0 
36275  1 
73606  0 
77650  1 
72233  0 


P33/P73C 


P 3 3 / ° 7 3 D 


! 33/P73E 


P33/P73F 


TC. 

TC 

QLUAD 

S T i ■ 6 

BOM 


DLOAD 


STORE 

DSU 

DSU 


DAD 

STOOL 

DSU 

ABS 

BPL 


SIGM 

STORE 

EXIT 

CAP 

TC 

TC 

VLOAt) 


SgXALL 

GOTO 
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P33/P73A 
I NT P RET 

P30ZERQ 
N GMT PI 
SET 

F INALFLG 
P33/P73D 
UPDATFI  G 
0 AD 

NCMTPI 
TTP  I 
TTPI 

TCDH 
BPL 
6GMP 
P 3 3 / ° 7 3 F 

6 0MIN 

T IT 07 2 

TTPI 

PUSH 

TTPTO 

DSU 

60MIN 

DAD 

P33/P73F 
6 OHIO 
S T ADR 
T2TOT3 

V06N75 
VNPOOH 
T F T P '■  E T 
CALL 

DELVFET2 
S32/33. 1 
DEL  VEFT2 
V N 1 6 4 5 


P 33/P73B 


» 


GAP: 

L 

P 3800 

R 3850 

R3861 

R3852 


ASSEMBLE  REVISION  001  CF  AGC  PROGRAM  API 1R0PE  BY  EYLES 

P32-P35,  P72-P75 

AVFLAGA/P  

SUBROUTINES  USED 

UP  FLAG 
00 WMF L AG 


> 3900 

3901 

3902 

> 390? 
3904 
390  5 

) 3906 

390  7 

390  8 

I 390  9 

3°0C  1 
39092 

* 

391C 

39101 

1 

391  1 


REF  2 LAST 
REF  34  LAST 
REF  1 
EF  3 LAST 

REF  4 LAST 
REF  M LAST 
OFF  2 LAST 
REF  5 LAST 

REF  6 LAST 
REF  35  LAST 
REF  3 LAST 
"EF  36  LAST 
P EF  5 LAST 
REF  7 L A CT 


35,2347 
621  35,2350 

614  35,2351 

35,2352 
629  35,2353 

35,2354 
629  35,2355 

614  35,2356 

629  35,2357 

629  35,2366 

3*, 2361 
629  35,2362 

629  35,2363 

628  35,2364 

629  36,2365 

614  35,23.  6 

6 2°  35,2367 


0 0006  1 
23 ' 4 70  0 
0 5504  0 
00050  1 
0 1470  0 
0 0006  1 
23 ' 47C  0 
0 5516  0 
COO  50  1 
0 1470  0 
O 0006  1 
23*470  0 
0 5504  0 
0 C 027  1 
0 5504  C 
00C31  0 
0 1470  0 


AVFL AGA 


AVFL AGP 


P20F l GOM 


EXTEND 

QXCH 

TC 

ADPES 

TC 

EXTEND 

QXCH 

TC 

ADPES 

TC 

EXTEND 

QXCH 

TC 

ADR  ES 

TC 

ADPES 

TC 


SUBEXIT 
UPFL AG 
AVFL AG 
SUBEX I T 

SUBEXIT 
OOWNFL AG 
AVFL  AG 
SUBEXIT 

SUBEXIT 

UPFLAG 

updatflg 

UPFLAG 
TRACKFLG 
SUB F X IT 


I" 
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AVFLAG  = LEM 


AVELAG  = CSM 


SET  UPDATFLG 
SET  TRACKFLG 


GAP:  AS.Sfc--1.8LE  REVISION  001  OF  AGC  PROG  Ah  AP11R0PE  BY  EYLES 

L P32-P35,  P72-P7-' 

P 4600  DISDVLVC  

R465C  SUBROUTINES  USED 


R4651  532  /33. X 

VNPOCH 


4700 

REF 

1 1 

LAST 

316 

35,2370 

03434 

1 

DISDVLVC  STORE 

4701 

35,2371 

45020 

1 

STQ 

4702 

REF 

2 

l AST 

140 

35,2372 

0 34  o.3 

0 

47021 

REF 

1 

35 , 2373 

71120 

1 

4702  2 

35,2374 

64375 

1 

V L 0 A 0 

47023 

REF 

12 

LAST 

630 

35,2375 

03434 

1 

47024 

35,2376 

00001 

0 

470241 

35,2377 

66  172 

0 

VSL1 

470243 

REF 

1 

35,2400 

036  15 

0 

4702  5 

REF 

13 

LAST 

6 30 

35,2401 

03434 

1 

STORE 

470  2 6 

35, 2402 

77776 

EXIT 

4703 

REF 

2 

LAST 

630 

35,2403 

3 1615 

1 

CA 

4704 

REF 

9 

LAST 

62  8 

35,2404 

0 3712 

0 

TC 

4705 

REF 

69. 

LAST 

628 .. 

35,2405 

0 6037 

0 

TC 

4705 

3 c, 24 06 

77650 

1 

GOTO 

4707 

REF 

3 

l AST 

630 

3 4,? 407 

0346  3 

0 
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DELVL  VC 
CALI 
NGRMEX 
S32/33 . X 
MX  V 

DEL VL VC 
OD 

SXA,  1 
V ERBNOUN 
DELVL VC 

VERBNOUN 

VNPCOH 

INTPKET 


NCRMEX 


GAPi  ASSEMBLE  REVISION  OGI  UF  AGC  PROGRAM  API1RGPE  BY  EYLES 


L P 32- P 35 , P72-P75 

P4800  CONSTANTS 


4901 

4902 

4903 
491  4 

4914 

4915 
4915 
49  1 6 

491  6 
4917 
4917 

49 1 9 

4920 

4921 

4922 

4923 

4924 

492  5 


» 241  G 01413  0 VOfcNLl  VN 

,2411  01415  0 V06N13  VN 

,2412  01513  1 V06N75  VN 

,2413  77776  1 SN359+  2DEC 

,2414  62460  1 

,2415  17777  0 CS359+  2DEC 

,2416  37776  0 

,2417  00000  1 P307Efr  2DEC 

,2420  0(  000  1 

,2421  09025  0 60MIN  2 DEC 

,2422  37100  1 

,2423  00600  1 ALARM/TB  OCT 

,2424  00601  0 CCT 

,2425  00602  0 PCT 

,2426  00603  1 OCT 

,2427  00604  0 OCT 

,2430  00605  1 OCT 

,2431  0C606  1 OCT 


35 

35 

35 

35 

35 

35 

35 

3 5 

35 

35 

35 

35 

35 

3 5 

35 

3 5 

35 

35 
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Otoll 

0613 

0675 

- .000086601 
+ . 49  9°99992 
0 


360000 


00600 
00601 
00602 
C 0603 
0 0604 

00605 

00606 


NO  1 
2 

3 

4 

c 

6 

7 


PAGE 
E 7 S3 
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L P32-P35,  c>7?-P 75  USER'S  PAGE  NO.  15 

P 5000  CSI/A  

R 5150  SUBROUTINES  USED 


.103  PAGE 
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632 


R 616? 
R 5153 
R 5154 
R 5 1 5 5 
R 5 1 5 
P 5157 
R 5 1 5 6 
P 6 1 5 « 
R51 


'/EC  SH  I FT 
TT^FTHFt 
PEP  I APO 
SHI FTR 1 
. IT  INT2C 
CDH  -1VF 
PEE  I APO 1 
TNT IMT 
ACT IVE 


5400 

34,2057 

BANK 

34 

540 1 

REF 

1 

34 , 2000 

SFTt.OC 

C S I /CDH 1 

5402 

34,2057 

BANK 

540? 

REF 

« LAST  62« 

F 7 , 1470 

E B A N K = 

SUBFXTT 

5404 

REF 

1 

COUNT* 

$ $/CS I 

5413 

34,2057 

00000 

1 

LOOPM  X 

2 DEC 

16 

1 -2 

-x  4 . onAfl 

0 002  0 

o 

J 1 D 

->  ■ f oUO  W 

54  1 4 

34,206 1 

or  003 

1 

IN  IT  ST 

2DEC 

.03048  8-7 

initial  DELDV  = 10  FPS 

5414 

34, 2062 

34661 

1 

54  15 

34, 2043 

00606 

1 

D'/MAX  1 

2 DEC 

3.0480  p— 7 

MAXIMUM  DV1  = 1000  FPS 

541  ^ 

34,2064 

04467 

0 

5416 

34,2065 

00601 

0 

DVMAX2 

2DEC 

3.014472  B-7 

989  FPS 

5416 

34,2066 

33216 

1 

5417 

34,206 7 

U 000 

0 

1DPB2 

2DEC 

1 .OB-2 

54  17 

34,2070 

OCO  00 

1 

54  1 p. 

34,?071 

or  000 

1 

i OP  82  Q 

2DEC 

1 

5418 

34,2072 

0C001 

0 

5419 

34,2073 

0(004 

0 

PMIL  E 

2DEC 

157420  B-2 9 

85  NM  - MUST  BE  8 WORDS  BEFORE  PMINM 

541' 

34 , 2074 

31566 

0 

54-20 

34,2075 

00000 

1 

EPSILN1 

2 DEC 

. 00 C 3048  B-7 

.1  FPS 

54  2 0 

34,2076 

01  177 

1 

5421 

34,2077 

00002 

0 

NICK  EL  DP 

2 DEC 

.021336  B-7 

7 FPS  (CHANGED  FROM  .0*  FPC) 

5421 

34,2100 

2731  1 

1 

5422 

34,2101 

77754 

1 

F IFPSOP 

2DEC 

-.152400  B-7 

50  FPS 

5422 

34 ,2102 

57611 

0 

542  3 

34,2103 

00000 

1 

PMINIM 

2 DEC 

10668  B-29 

35000  FT  - MUST  BE  8 WORDS  AFT ED  PM  IN E 

542  3 

34,2104 

12  3 2 6 

0 

5424 

34  , 210  5 

00116 

1 

DEL  MA  XI 

2 DEC 

.6096000  B-7 

200  FPS 

5424 

34,2106 

00730 

0 

542  5 

34,2107 

00000 

1 

□NETHTH 

2DEC 

.0001  B-3 

542  5 

34,2110 

06433 

0 

5426 

34,2111 

00003 

1 

TMIN 

2 DEC 

60000 

10  MIN 

5426 

34,2112 

25140 

0 

5500 

34,2113 

43014 

0 

CSI/A 

C l t AP 

SET 

INITIALIZE  INDICATORS 

5 ; C i 

REF 

1 

34,2114 

03260 

0 

S32.1F1 

DVT1  HAS  EXCEEDED  MAX  INDICATOR 

5502 

REF 

1 

34,2115 

0 3061 

0 

S 3 2 . 1 F 2 

FIRST  PASS  FDR  NEWTON  ITERATION  INDICATE 

p 


GAP:  ASSEMBLE  PE  V IS  1 3 M 001  OF  AGC  PROGRAM  APllRfJPE  BY  EYLES 

L P32-P35,  P72-P75 


5503 

5504 

5505 

5506 
5607 
550® 

5509 

5510 

5511 

5512 

5513 

5514 

5515 

5516 

5517 

5518 

5519 
55?P 
552  1 

5522 

5523 

5524 
552  5 

5526 

5527 

5528 

5529 

5530 

5531 


PEF 

REF 

REF 

PEF 

REF 


RFF 

REF 

REF 

RFF 

REF 

RFF 

REF 

REF 


1 

1 

5 LAST  628 
1 

4 LAST  621 


3 L A ST  623 

2 LAST  487 
1 

5 LAST  586 

6 LAST  633 


LAST  633 


34.2116 

34.2117 

34.2120 

34.2121 

34.2122 

34.2123 
34,212* 

34.2125 

34.2126 

34.2127 

34.2130 

34 .2131 

34 .2132 

34.2133 

34.2134 

34. 2135 

36 . 2136 

34.2137 

34.2140 

34.2141 

34.2142 

34.2143 

34.2144 
34,214% 
34,2146 
3 4 , 2 L 4 7 
34, 2150 
3 •'  ,2151 
34,2152 


43014  0 
03262  1 
03063  1 
77745  1 
32420  0 
03606  1 
03614  1 
77201  1 
C0001  0 
02303  0 
41446  1 
70501  1 
OC050  1 
51515  1 
03552  0 
55301  0 
00047  1 
6366*  0 

00046  0 
57175  0 
4 1 115  1 
30070  0 
65301  0 

00047  1 
02321  0 
563*2  1 
75457  0 
2 C 1 7 2 1 
53515  0 


C S I / B 


C L E A R 


DLOAO 

STORE 

STORE 
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( COSLOS  ) ( LJH3  ) 

B 2 

PL08D 

STORF 

1 3D 

PLUS 

CLLAD 

VXSC 

( SINLOS ) ( UP  A3 ) = U 

B2 

PLOOD 

VAD 

VSL  1 

1 3D 

B 1 

PUSH 

DOT 

PL  06 D 

PACT  3 

(U  . RA3 ) = TEMPI 

BL  + B29  = B30 

SL1 

PUSH 

B29 

PL03D 

) 


AP: 

ASSEMBLE  REVISION 

1 001 

OF  AGO  PROGRAM  AF 

'11RGPE  BY 

fyles 

3:  L 5 DEC.  2,1970  LEMP30S 

.103  PAGE 

63  8 

532- 

■P35, 

P72-375 

USER'S  PAGE  NO.  21 

E 7 S3 

5757 

34,2510 

72316 

0 

OSQ 

TLOAD 

TEMP  14* 2 

B58 

5758 

REF 

278 

LAST 

621 

34,251 ) 

00155 

0 

M P AC 

57  5 r- 

34,2512 

50315 

0 

PDVL 

DCT 

PL  1 ID 

5760 

REF 

4 

LAST 

637 

34,2613 

0 3 536 

1 

R ACT? 

5761 

3 EF 

5 

LAST 

63  3 

34 ,2514 

03536 

1 

P ACT 3 

576  2 

34, 2515 

57561 

1 

T!  had 

OCT‘° 

PA3.R A3 

5763 

REF 

279 

LAST 

638 

34,2516 

00155 

0 

MPAC 

5769 

34,2517 

5 0315 

0 

PDVL 

DCT 

RP3.RP3 

B 5 8 

PL  14D 

5765 

REF 

2 

LAST 

,633 

34, 252C 

03552 

0 

R PAS S3 

5766 

REF 

3 

LAST 

638 

34,2521 

03552 

0 

R PASS  3 

PL  11D 

5767 

34,2522 

7 6371 

0 

TAD 

TAD 

TEMPI **2+PA3.~ A3+PP3.RP3= 

TEMP  2 

PL  OSD 

576  A 

34,2523 

71244 

0 

DPI 

DLOAD 

5769 

REF 

1 

34,2524 

70542 

0 

K 10RK2 

5770 

REF 

4 

LAST 

633 

34, 2525 

03606 

1 

I.COPCT 

5771 

34,2526 

77025 

0 

DSU 

A XT  ,2 

5772 

3 fcF 

2 

LAST 

63  3 

34 , 2527 

30072 

l 

1 DPB28 

5773 

34,2530 

OC  001 

0 

ID 

5774 

34,2531 

77654 

0 

PZF 

5775 

PEF 

1 

34,2532 

72036 

1 

ALMXT TA 

5776 

34,2533 

70545 

1 

DLOAD 

SRI 

5777 

REF 

5 

LAST 

633 

34,2534 

0361-2 

1 

DELDV 

5776 

REF 

6 

LAST 

63  8 

34,2535 

03612 

1 

STORE 

DEIDV 

577  9 

39,2536 

77621 

1 

BD5U 

5750 

c f p 

1 

36,2537 

03576 

0 

DVPREV 

5781 

REF 

8 

LAST 

634 

34,2540 

37  5 74 

0 

STCALL 

DELVC.SI 

5782 

REF 

1 

34,2541 

70165 

1 

CSI/B1 

5783 

34 , 2542 

41366 

1 

K 1 OR  K 2 

SORT 

PUSH 

TEUP3  = TEMP  2**  • 5 

B 29 

PL  10D 

5784 

34 ,254  3 

452  7 6 

0 

DCOMP 

DSU 

576  5 

3 4 ,254  4 

0 0 007 

0 

C 6 D 

-TEMP 1-TEMP3  = K 2 AT  10D 

57  8 6 

34, 2545 

14013 

0 

STOOL 

1 OD 

PL08D 

5787 

34,2546 

45425 

0 

DSU 

STADR 

PL06D 

5788 

34,?547 

77762 

1 

STORE 

1 2D 

-TEMP l+rEMP3  = K 1 AT  120 

578  9 

34. 3860 

77646 

0 

A6S 

5790 

34,2551 

19-017 

1 

STOOL 

L4D 

579] 

34,2552 

00013 

0 

1 OD 

5792 

36 , 2653 

45  246 

0 

ABS 

DSU 

5793 

34,2554 

09017 

1 

14D 

5794 

34,2555 

71240 

1 

BMN 

DLOAD 

5796 

REF 

l 

34,2556 

7 C 5 6 1 

1 

K2. 

575  6 

34,2557 

00015 

0 

1 2D 

5797 

34,2660 

O'  013 

0 

STOP  F 

1 OD 

K = K 1 

5798 

34,2561 

77745 

1 

K2  . 

DLOAD 

5799 

34,2562 

00013 

0 

LOD 

5800 

34,2563 

76561 

1 

VXSC 

VSL1 

5801 

34,2564 

53455 

0 

VAD 

UNIT 

V=RA3+KU  UNIT 

B 1 

5802 

REF 

6 

LAST 

638 

34,2565 

03536 

1 

R AC  T ^ 

5 80  3 

34 ,2566 

53515 

0 

PDVL 

UNIT 

PL06D 

5804 

3 EF 

4 

LAST 

638 

34,2567 

03552 

0 

0 PASS  3 

5805 

34,2570 

535  15 

0 

PDVL 

UNIT 

PL  12D 

5806 

REF 

1 

3 * ,2571 

03560 

1 

V PASS  3 

1“ 


/ %i  J 


GAP:  ASSEMBLE  REVISION  CGI  OF  AGC  PROGRAM  AP11ROPE  BY  E YL  E R 


p 32— P 3 5 , P72-P75 


» 

» 

3' 

» 

i 

2* 

1 

I 

1" 

I 

I 


5807 

5808 

580  9 

5810 

5811 

5812 
5812 

5814 

5815 

5816 

5817 

5818 

581  P 

5820 

5821 

5822 

5823 
582^ 

5825 

5826 

582  7 

5828 

5829 

5830 

583  1 

5832 

5833 

5834 
5838 
5836 


REF 

REF 


REF 

RFF 

REF 

REF 


c EF 

REF 


10 

3 


REF  3 
c EF  1 
REF  3 
° EF  2 


LAST  632 


LAST  142 
LAST  638 

LAST  638 
LAST  635 


Last  fir 

LAST  639 

LAST  634 

LAST  634 
LAST  6 3<a 


34.2572 

34.2573 

34.2574 

34.2575 

34.2576 

34.2577 

34.2600 

34.2601 

34.2602 

34 .2603 

34.2604 
R"-  , 2605 
34 ,26C6 
34 , 2607 

34 .2610 

34 .2611 

34.2612 

34.2613 

34 .2614 

34.2615 

34.2616 

34.2617 
34,2620 
3'-  , 2621 

34. 2622 

34 .2623 

34.2624 

34.2625 

34.2626 

34.2627 


63235  0 
0CC07  0 
GC  007  0 
50235  0 
00001  0 
7762%  0 
53762  1 
72441  0 
75326  1 
00015  0 
41542  1 
71214  0 
03301  0 
70644  0 
00001  0 
65225  1 
03610  0 
03574  1 
60225  1 
03576  0 
00047  1 
65265  0 
0000 3 1 
03574  1 
03576  0 
-.301  o 

03342  1 
70656  0 

03343  0 
70656  0 


VXV 


VXV 

START 
S T 07  L 
DOT 

A'-  ecus 

SRI 

RON 


DSU 


DSU 


BDDV 


STORE 

BUFF 


PDVL 

06D 

060 

DOT 

OOD 

1 2D 

SL1 

SIGN 

1 2D 

PUSH 

DLOAD 

S32. 1F2 

FRSTPAS 

OOD 

POOL 

GAMP REV 

DEL  VC S I 

NORM 

DVPREV 

XI 

PDDL 

020 

DELVCST 

DVPREV 

BOFF 

S32.1F3A 
THRDCHK 
S32. 1F3B 
THR DCHK 


5837 

34,2630 

41345 

0 

DLOAD 

DMP 

5838 

34,2631 

0 C 0 0 3 

1 

02D 

5839: 

R E F 

! AST 

6 3Q 

34 . ?63  ? 

n 3 l n 

a 

r;  A >ji  p bFU 

K M a I 

- • t tOJ  6 

V -P  O XV 

UM  If  L.  V 

5840 

34,2633 

71244 

0 

BPL 

DLOAD 

584  i 

■ F F 

1 

34,2634 

7 06  63 

0 

FTFTYFPS 

5842 

r-’EF 

2 

LAST 

633 

34,2635 

3 0062 

0 

INI TST 

5843 

34,2636 

77765 

0 

SIGN 

5844 

REF 

7 

LAST 

6 38 

34,2637 

03612 

1 

DELDV 

5845 

REF 

8 

LAST 

6 39 

34, 2640 

0 3612 

1 

STORE 

DELDV 

584  6 

3 ,26  4 1 

4 3014 

0 

SET 

CLEAR 

5847 

r-  EF 

4 

t.AST 

6 39 

34,2642 

C 3 06  2 

0 

S 32.  1 F3 A 

5848 

REF 

4 

LAST 

*-39 

34, 2443 

03263 

0 

S 3 2 . 1 F 3 P 

5849 

34,2644 

77745 

1 FRSTPAS 

CLCIAD 

5850 

34,2645 

00001 

0 

OOD 

58S  1 

REF 

4 

LAST 

639 

34,2646 

17610 

0 

STODL 

GAMP  RE-V 

5852 

F EF 

11 

LAST 

639 

34,2647 

03  5 74 

1 

DELVCS I 

585? 

REF 

4 

LAST 

6 39 

34,2650 

03576 

0 

STORE 

DVPREV 

5854 

34,2651 

43025 

1 

DSU 

CLEAR 

5855 

RFF 

9 

LAST 

639 

34,2652 

03612 

1 

DELDV 

5856 

REF 

3 

LAST 

639 

34,2653 

03261 

1 

S32. 1F2 

3 1 1 5 DEC.  2,1970  LEMP30S  .103  PAGE  639 
USE® * S FAGE  NO.  22  E7  S3 

UVP3  X URP3  PL18D 


( URP3XV) . ( UVP3  XUr  P3 ) = T E MP 


PL  12D 
PL06D 
PLOOQ 


BO 


GAMMA*SIG1  {TEMP  ) ARC0S  (Ufv  I TV.URP3  ) PL02D 


NO!  THE  FIRST  PASS  OF  A CYCLE 
GAMMA- CAMP REV 


B 1 PL04D 


B7 


[ G AM-GAMPR  EV  ) / ( OV-DVP R EV  ) B-6+M  PL06D 

= SLOPE 


GAP: 


ASSEMBLE  REVISION  001  OP  AGC  PROGRAM  AP11R0PE  BY  tYLES 


P 32- 

r35, 

P72-P  75 

5857 

REF 

12 

LAST 

639 

34,2654 

375  76 

0 

STCALL 

DELVCSI 

5858 

REF 

2 

LAST 

638 

34,2655 

70165 

1 

CSI/B1 

COKO 

34,2656 

4 3014 

o 

THRDCHK 

BON 

B C 0 

JCJ 

5860 

REF 

5 

LAST 

639 

34 , 2657 

03302 

0 

S32.I F3A 

5861 

REF 

1 

34 , 2660 

70702 

0 

NEWTN 

5862 

t PE 

6 

LAST 

639 

34, 26  6 1 

0 3 303 

1 

S32. IF3B 

5863 

REF 

2 

LAST 

640 

34,2662 

70702 

0 

NEWTN 

5864 

34,2663 

7^345 

1 

F IFTYFPS 

DLOAD 

SIGN 

586  5 

;i!s  REF 

1 

34, 2664 

30102 

l 

F IFPSDP 

5866 

34,2665 

00005 

1 

04D 

5867 

34,2666 

77765 

0 

SIGN 

586  8 

c E F 

5 

L AST 

639 

34 , 2667 

03610 

0 

GAMPREV 

586° 

REF 

10 

LAST 

639 

34,2670 

036  12 

1 

STORE 

DEL  DV 

5870 

34, 2671 

43276 

0 

DC.OMP 

DAD 

5871 

REF 

13 

LAST 

640 

34,2672 

03574 

1 

DELVCSI 

5872 

REF 

14 

LAST 

64  0 

34,2673 

175  74 

1 

STOOL 

DELVCSI 

5873 

34,2674 

OC  001 

0 

COD 

5874 

34,2675 

6 3 C 1 4 

0, 

SET 

S ET 

5875 

REF 

6 

LAST 

64  C 

34,2676 

03063 

1 

S32. 1 F3B 

5876 

REF 

6 

LAST 

640 

34,2677 

03062 

0 

S 3 2 . 1 F3 A 

5 877 

REF 

6 

LAST 

64Q 

34,2700 

37610 

1 

Si  CALL 

GAMP!  EV 

5878 

REF 

1 

34,270 1 

7 0176 

0 

CSI/B2 

5879 

34,2702 

6 0345 

0 

NEWTN 

DLOAD 

NORM 

5880 

34,2703 

00005 

1 

04D 

5881 

REF 

5 

LAST 

635 

34,2704 

00050 

1 

X2 

5882 

34,2705 

54  06  5 

0 

BDDV 

XSU,  1 

5883 

34,2706 

0CQ01 

0 

OOD 

5886- 

REF 

6 

LAST 

640 

36,2707 

00047 

1 

X? 

5885 

36,2710 

776  57 

0 

56  4 

5886 

34, ? 7 1 1 

2 n 6 0 1 

p 

-.1 

7 J- 

5887 

REF 

1 1 

LAST 

640 

34,2712 

17612 

1 

STOOL 

DEL  DV 

5888 

34,2713 

GC001 

0 

COD 

5885 

REF 

7 

LAST 

640 

34,2714 

0 3 610 

0 

STUPE 

GAMP REV 

5800 

34,2715 

5154  5 

1 

DLOAD 

AGS 

589  1 

REF 

1 2 

LAST 

64  0 

34,2716 

0 3 612 

1 

DEL  DV 

5892 

36,  JiyiT 

45206 

1 

PUSH 

DSU 

5893 

REF 

1 

34,2720 

30076 

0 

E PS  I LN 1 

5894 

34,272 1 

71240 

1 

BMN 

DLOAD 

5 g c - 

REF 

p 

34 , 2722 

70737 

0 

r ? r / ?m 

v-»  J 1 / J U l. 

5896 

36,2723 

50025 

0 

DSU 

BMN 

58°7 

REF 

1 

34,2724 

3C106 

0 

DEL MAXI 

500  p 

dee 

1 

36,2725 

7073? 

0 

CSI STEP 

5899 

34,2726 

75345 

1 

DLOAD 

SIGN 

5900 

REF 

2 

LAST 

640 

34,2727 

30106 

0 

DELMAX1 

5901 

REF 

13 

LAST 

640 

34 ,2730 

0361? 

1 

DELDV 

5902 

REF 

14 

LAST 

640 

34,2731 

C 361  2 

1 

STORE 

DEL  DV 

590? 

34,2732 

4 5345 

1 

C SISTER 

DLOAD 

DSU 

5904 

REF 

15 

LAST 

640 

36,2733 

03574 

1 

DELVCSL 

5905 

REF 

15 

LAST 

640 

34,2734 

03612 

1 

DELDV 

5906 

PEF 

16 

LAST 

640 

34,2735 

37  5 74 

0 

STCALL 

DELVCSI 

3 : 1 r>  DEC 


PAGE 


540 


. 2 

USER  ' 


,1970  LEMP30S  .103 
S PAGE  MO.  23  E 


7 S3 


PL08D 


SAP: 


ASSt-iBtt  - E V I S 1 3 f 001  OF  AGO  PROGRAM  AP11RUPF  BY  bYLES 


5907 

5908 

5909 

5910 

5911 

5912 

5913 
591 A 

5915 

5916 

591  7 
591s 

5919 

5920 

5921 
5«22 
5^2.3 

592  ^ 

5925 

5926 
59  2 7 

5928 

5929 


P32-P35,  P72-P75 

REF  3 LAST  640 
1 LAST  634 


kEF 


REF 

REF 

REF 


REF 

REF 

KEF 


LAST  68* 

LAST  636 

LAST  637 


2 LAST  641 
6 LAST  641 


REF  8 LAST  637 
r FF  11  LAST  636 
REF  6 LAST  628 


REF 


34.2736 

34.2737 
34,2740 
34,  274  1 
34,27*2 
34,27-!  8 

34.2744 

34.2745 

34.2746 
3*,27*7 
34,2750 

34 . 275  1 

34.2752 

34.2753 

34.2754 

34.2755 
34 ,2754 
34 ,27  57 
34,2760 

34. 276  1 

34.2762 

34.2763 

34.2764 


7C 165  1 
77145  1 
03oG2  0 
C( 002  0 
77750  0 
02776  0 
50023  0 
30072  1 
70776  0 
71374  1 
00003  1 

03604  0 
50023  0 
30072  1 
70776  0 
* 1 3 < 5 1 
01777  1 

03634  0 

02253  1 
45374  0 
OC  004  0 
30112  0 
77040  0 


5930 

5931 

5932 
59  3 3 
59  34 
5935 
5C3  6. 

5937 

5938 

5939 

REF 

REF 

REF 

RFF 

7 

12 

9 

5 

LAST 

LAST 

LAST 

LAST 

641 

637 

6*1 

6RR 

3*  ,27  65 

34.2766 

34.2767 

34.2770 

34.2771 

34.2772 

34.2773 

34.2774 

34.2775 

•3  4. . ? 7 7 A 

7 0776 
00005 
45345 
0 36  36 
01777 
022  55 
51025 
30112 
72152 
a 8 n 1 4 

0 

1 

1 

1 

1 

1 

1 

0 

1 

n 

REF 

REF 

2 

1 

LAST 

1 

-1  D U JL  < 

U 

5940 

REF 

7 

LAST 

64  0 

34,2777 

03302 

0 

5941 

R E F 

1 

34,3000 

7 2040 

0 

5942 

REF 

7 

LAST 

640 

3 * , 300  1 

03343 

0 

5943 

REF 

2 

LAST 

641 

34,3002 

72040 

0 

5944 

34,3003 

7 1334 

0 

5945 

REF 

5 

LAST 

633 

34,3004 

03613 

0 

5946 

REF 

6 

LAST 

636 

34,3005 

32420 

0 

5947 

34,3006 

43014 

0 

5948 

REF 

4 

LAST 

634 

34,3007 

03260 

0 

5949 

REF 

4 

LAST 

639 

34,3010 

03061 

0 

5950 

34, 3011 

43014 

0 

5951 

REF 

8 

LAST 

6 ' ! 

34, 3012 

03262 

1 

5°5  2 

RFF 

8 

LAST 

64 1 

34,3013 

032  63 

0 

5953 

REF 

5 

LAST 

6 38 

34,301* 

37606 

0 

595* 

REF 

1 

34, 3015 

7012  5 

0 

CS  I / SOL 


SCNDSOL 


DLOAD 

L X A , 1 

DSU* 

A XT , 2 

DSU* 

DLOAD 

ST0PE 
AXT  ,2 

BMfJ 

DLOAD 

STORE 

DSU 

BQN 

SXA  ,2 

Cl  E A: 

CLEAR 

STCALL 


3:15  DEC.  2,1970  LEMP30S  .103  PAGE  641 
USER  'S  PAGE  NO.  24  E 7 S3 


CSI  /B1 
AXT  , 2 
POST CSI 
2 

P TX  1 
BMN 

PMINE  -2,1 

SCNDSOL 

DLOAD 

3 

PC'S  TCDH 
BMN 

PMINE  -2,1 

SC  NO S CL 

OSU 

TCDH 

TCS  I 

T1T0T2 

DSU 

4 

TMIN 
A XT,  2 
SCNDSOL 

5 

DSU 
TTPI 
TCDH 
T 2 T 0 T 3 
R PL 
TWIN 

P32/P72C 

BCFF 

S32. 1 F 3 A 
ALMXIT 
S32 . 1 F3B 
ALMXIT 
DLOAD 
CSIAIRM 
P 30  ZERO 
SET 

S 32 . 1 F 1 
S32. 1F2 
CLEAR 
S32.1F3A 
S 3 2 . I F 3 B 
LlOPCT 
C S I / B 


« 


* 


AP: 

ASS E MOLE  RE 

VISION  00 1 

OF  AGO  PROGRAM  AP11RQPE  BY 

EYLES 

P 32- 

P 3 5 , 

P72-P 

7s 

6000 

ANCE 

6050 

SUBROUT  i?. 

ES  US 

ED 

605] 

PR  E 

CP  FT 

605? 

ROTATE 

6100 

34,3016 

71220 

1 ADVANCE 

STQ 

DLOAD 

6101 

REF 

9 

LAST 

6 32 

34,3017 

03470 

1 

SUBEXIT 

6102 

REF 

12 

LAST 

627 

34,3020 

03442 

0 

T IG 

610  3 

RFF 

2 3 

LAST 

6 22 

34, 3021 

34  0-  1 

0 

ST  CALL 

TDEC1 

610* 

PEF 

2 

LAST 

6 2 2 

34,3022 

46  360 

0 

POECSET 

6105 

34,3023 

77214 

0 

SET 

V LOAD 

61055 

REF 

2 

LAST 

615 

34,3024 

01067 

1 

XDEI VFLG 

6106 

REF 

2 

LAST 

638; 

34,3025 

03560 

1 

VPASS3 

6107 

REF 

4 

LAST 

637 

34,302- 

03530 

1 

STORE 

VPASS2 

6108 

F.EF 

£ 

LAST 

636 

34 , 3027 

2750  6 

1 

STOVE 

VPASS1 

6 1 

REF 

5 

I a S T 

A 3 p 

/•  , 3 ; ; a o 

0 3 s 5 2 

n 

D p /\  \ C 3 

6110 

REF 

4 

LAST 

637 

34,3031 

03522 

1 

STORE 

R PASS  2 

61 1 1 

REF 

4 

LAST 

637 

34,3032 

03500 

1 

STORE 

R PASS1 

6112 

3 4 t 303  3 

47  7K  A 

0 

| |M  T T 

y y y 

6113 

REF 

6 

LAST 

64? 

34,3034 

03506 

1 

VPASSl 

6114 

34 , 303  5 

77656 

1 

UN  I T 

6115 

REF 

5 

LAST 

637 

34 , 3036 

26241 

0 

STQVL 

UP1 

6116 

REF 

7 

LAST 

638 

34, 3037 

035  36 

1 

PACT  3 

6117 

REF 

5 

LAST 

617 

3 4 , 3040 

37642 

0 

STCALL 

RTIG 

6 1 1 

REF 

1 

34,304  1 

? 1052 

0 

ROTATE 

6119 

REF 

7 

1 AST 

63  7 

34,3042 

0231  1 

0 

STORE 

PACT  2 

6120 

REF 

10 

LAST 

636 

34 , 3043 

26303 

0 

STOVL 

R ACT  1 

6121 

3 r-F 

A . 

L ACT 

A 3 7 

3 L , 3 04./> 

( , 3 544 

VAC  T3 

6122 

REF 

4 

LAST 

617 

34,3045 

37650 

0 

STCALL 

VTIG 

6123 

REF 

2 

LAST 

6 42 

34,3046 

7 1052 

0 

ROTATE 

6124 

.REF 

2 

LAST 

636 

3 4 . 3 04 7 

03  314 

OTDQ  F 

\/  a r r 9 

612s 

REF 

4 

LAST 

634 

34,3050 

37472 

1 

STCALL 

VACT  1 

6126 

FFF 

10 

LAST 

642 

3*-  ,305  1 

034  70 

1 

SUBEXIT 

< 
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USER  ' 


, 1970 

L FMP 

3 OS 

.103  PAGE 

S PAGE 

NO. 

25 

E7  S3 

GAP:  ASSEMBLE  rEVISI.QM  001  OF  AGC  PROGRAM  AP11RLPE BY  EYLiS 


L P32-P35,  P72-P7* 

P 6200  ROTATE  

6300  3«  1 305  2 41406  0 ROTATE  PI  SH 

6301  34,3053  74241  0 DOT 

6302  ,<6F  6 LAST  642  34,3054  02261  0 

6303  REF  7 LAST  643  34,3055  02261  0 

6304  34,3056  51352  1 VSL2 

6305  34,3057  632560  UNIT 

6306  34,3060  74246  1 A8VAL 

6307  34,3061  43572  0 VSL1 


3:15  DEC.  2,1970  LEMF30S 
USER'S  PAGE  NO.  26 


.103  PAGE 
E7  S3 


643 


PUSH 

vxsc 

UP1 

UP1 

BVSU 

PDVL 

VXSC 

RVQ 


GAP:  ASSEMBLE  r V I S I ' . G01  lF  AGO  PROGRAM  AP11KLPE  BY  EYLES 


L P 32- P3  , P72-P7' 


7000 

. INTTNTNA 

7 IOC 

3.4 

7101 

REF 

12 

LAST 

641 

34 

7102 

REF 

10 

L AST 

641 

34 

710  3 

34 

7104 

REF 

3 

LAST 

637 

34 

7105 

34 

7106 

REF 

3 

L AST 

637 

3 4 

71(,7 

34 

7108 

F EE 

11 

LAST 

644 

34 

7 1 C. 

PFF 

1 3 

1 A ‘FT 

A 4 1 

34 

7110 

34 

7111 

REF 

9 

LAST 

641 

34 

7112 

34 

7113 

P EE 

4 

LAST 

644 

34 

306? 

65325 

0 

INTINT  2C 

PUDL 

3 06  3 

036  34 

0 

3064 

01777 

1 

3065 

41525 

0 

PDDI, 

3066 

33732 

1 

3067 

77650 

1 

GOTO 

3070 

73466 

1 

3071 

65325 

0 

INTINT3P 

PDD) 

3072 

017  77 

1 

3073 

03636 

1 

3074 

41525 

0 

PDDI 

3075 

32420 

0 

3076 

77650 

1 

GOTO 

307  7 

73446 

1 
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POOL 
TCSI 
TC  OH 
PUSH 
TWOPI 

INTINT 

POOL 

TCDH 

TTPI 

PUSH 

P 30  ZERO 


644 


INTINT 


GAP: 


P 7400 

R 7450 
R 745  1 

7500 
75001 
75Q02 
7500? 
75004 

7501 
750? 

7503 

7504 

7505 

7505  1 

7506  : 

7507 

7508 
7500 
7510 


ASSEMBLE  REVISION:  001  OF  AqC  PROGRAM  AP11R0PE  BY  t YL  ES 
P32-P35,  P72-P75 

S32/33.1  

SUBROUTINES  USED 
S 32 /33.X 


REF  11  LAST 

REF  2 LACT 
REF  2 LAST 
REF  14  LAST 

RFF  8 LAST 
REF  3 LAST 
REF  12  LAST 


34,3100  76020  1 S32/33.1  STQ 


642  34,3101  03470  1 

3-, 3102  01521  0 VN 

34,3103  77624  1 CALL 

623  34,3104  72370  0 

34,3105  77624  1 CALL 

630  34,3106  71120  1 

34,3107  61375  1 VLOAD 

63.0  34,3110  03434  1 

36,3111  00 001  C 

3'-,  3112  77772  0 VSL1 

617  34, ■#13  03656  1 STORE 

34,3114  51406  1 PUSH 

617  34,3115  27664  0 STUVL 

36,3116  77650  1 GOTO 

66 5 34,3117  03470  1 


« 


3:  15  DEC.  2,1970 

LEMP30S 

.103  PAGE  645 

USER'S  PAGE 

NO.  28 

E 7 S3 

A XT  , 1 
SUBEXIT 
0661 

01 SDVLVC 

S32/33.X 

VXM 

DELVLVC 

CO 

DEL  VS  IN 
A 0 V A L 
DELVSAB 

SUBEXIT 


GAP: 


assemble  e v i s i ; ooiof  agc  piijgram  api irore  by  eyles 


L P32-P3  ..  , P72-P75 

P 7800  S32  /33.X 


7900 

34,3120 

77201 

1 

S32/33.X  SfcrPR 

7901 

34,3121 

0CCC7 

0 

7902 

r EF 

8 

LAST 

643 

34,3122 

022  61 

0 

7903 

34,3123 

6 32  76 

1 

VCOMP 

7904 

REF 

1 1 

LAST 

642 

34,3124 

02303 

0 

790R 

34,3125 

57456 

1 

UNIT 

7906 

34,3126 

47206 

0 

PUSH 

790  7 

REF 

Q 

L A5  T 

646 

34,3127 

022  61 

0 

7908 

34,3130 

77772 

0 

VSL.1 

79  Of 

3 / . 7 1 3 1 

0 o 0 0 1 

0 

STORE 

J f 1 J J. 

79  i : 

34,3132 

77616 

0 

RVQ 

% 


3:  15  OEC.  2 , 1 c 70 

LEMP30S 

.103  PAG 

USER'S  PAGE 

NO.  29 

F 7 S 

VLOAD 
6 D 
UP1 
PDVL 
« ACT1 
VCQMP 

vxv 

UP1 

CD 


> 


GAP:  ASSEMBLE  REVISION  001  OF  A GC  PROGRAM  AP11R0PE  BY  EYLES 


L 

P 8000 

R 8050 

R 805  1 
R 8 0 5 2 
R 8053 

8100 

8101 

8102 

3103 

8104 

8105 

8106 
8107 
3108 
8I0C- 
8110 
81 1 1 
8112 

8113 

8114 
811  5 
8116 

8117 

8118 
8118 
8120 
8121 
8122 

8123 

8124 

8125 

8126 

8127 

8128 


P32-T35,  P72-P75 

CDH^VR 

SUBROUTINES  USED 

VEC  SH I Fv 
T IMETHFT 
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SHI  FTP  1 

REF 

13 

LAST 

64  6 

F.  EF 

8 

LAST 

642 

REF 

1 

REF 

5 

LAST 

642 

REF 

2 

LAST 

647 

R FF 

SJ 

1 ACT 

iOA 

M O I 

I *4 

REF 

4 

LAST 

536 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 


6 LAST 
10  LAST 

5 LAST 

7 LAST 

5 LAST 
3 LAST 
- LAST 


LAST 

LAST 


647 

646 

63  6 

647 

642 
636 
6 36 

63  6 
636 


34. 3133 

34.3134 

34.3135 

84 .3136 

34.3137 
34,3140 
3 -t,  3141 
3 * , 3 1 4 2 
34 , 3 1 •-  3 
34,31 4 4 

34.3145 

34.3146 

34.3147 

34.3150 

34.3151 

34 .3152 

34.3153 

34.3154 

34.3155 

34.3156 
3A  ,3157 

84 . 3160 

34.3161 

34.3162 

34.3163 

34.3164 

34 .3165 

34.3166 

34 .3167 


77220  1 CD HP  V 
03470  1 
02311  0 
53406  0 
27544  1 
03522  1 
502 5o  0 
03544  1 
72406  0 
16732  0 
65316  0 
06512  1 
45302  1 
72566  1 
57515  1 
77635  1 
03522  1 
65241  0 
02261  0 
45565  0 
5 10'* 7 0 
03522  1 
45115  0 
03530  1 
46416  0 
26744  1 
77614  1 
03666  1 
36655  1 


STO 


PUSH 
STO  VL 

UNIT 

PUSH 

STOOL 

DSQ 

SR2 
S Q r T 
PDVL 
VXV 

DOT 

S I UN 
STnVL 

PDVL 


VLQAD 

SUBFXIT 

P ACT 2 

ONI  T 

UNVEC 

RPASS2 

DOT 

UN  VEC 

SL1 

CSTH 

PDDL 

DPI /4TH 

DSD 

SI  1 

VCOMP 

RPASS2 

PDDL 

UP1 

STADF 

S NT  H 

RPASS2 

CALL 

VPASS2 

VECSHI FT 

V VEC 


STO  VL 
Cl  EAf 

P.VSW 
STCALL  R VEC 


8129 

REF 

4 

LAST 

636 

34,3170 

247  32 

1 

TIMETHET 

8130 

34,3171 

5 3754 

1 

LX  A,  2 

VSL* 

8131 

REE 

2 

LAST 

617 

34,3172 

02777 

1 

a TX2 

8132 

34,3173 

57576 

1 

0,2 

813? 

34 , 3 1 74 

00023 

0 

STORE 

18D 

8134 

34, 3175 

76441 

1 

DOT 

SLIP 

8135 

REF 

3 

LAST 

647 

34,3176 

03544 

1 

UNVEC 

8136 

34,3177 

51515 

1 

PDVL 

ABVAL 

8137 

34, 3200 

6 32  57 

1 

SL* 

PDVL 

8138 

3 - ,3201 

57576 

1 

0,2 

813c 

REF 

9 

LAST 

64  7 

34,3202 

02311 

0 

P ACT  7 

8140 

34,3203 

65246 

1 

A B V A 1. 

PDDL 

8141 

34,3204 

77625 

0 

DSU 

UP.  SUB  A 


OD  = V SUB  PV 


2D  = LENGTH  OF  R SUB  A 


647 


■ AP  : 

AS  3 1 MOLL  PE VISIC 

N 001 

OF  AGO  PRO 

GRAM  AP11R0PE  BY 

EYLES 
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103  PAGE 

648 

832- 

P35, 

P72~p  75 

USER'S  PAGE  NO.  31 

E7  S3 

8142 

34,3205 

00003 

1 

020 

8143 

REF 

4 

LAST 

316 

34,3206 

17  600 

L 

STOOL 

0 IFFALT 

DELTA  H IN  METERS 

B + 29 

8 1 , 

occ 

1 A 

1 ? R 

44 .4407 

02742 

1 

1 A 

t v c r 

c. 

L A .•  1 

1 c.  > 

) 1 ..i  C 0.  I 

1 

L h\ 

8145 

36,3210 

65301 

0 

NOP  M 

PDDL 

2 - R V** /MU 

04D 

81  6 

REF 

10 

LAST 

6 39 

34,3211 

00  047 

1 

XL 

8147 

REF 

3 

1 AST 

636 

34, 4?12 

00041 

1 

I 1 

8148 

34,3213 

77624 

1 

CALL 

8149 

REF 

7 

LAST 

63  7 

34,3214 

46426 

0 

SHIFTR1 

8 1 5 ( 

34,3215 

56362 

0 

sk  i r 

DDV 

81 c] 

34,3216 

41457 

1 

SL* 

PUSH 

8152 

34,3217 

2 C 1 7 4 

1 

0 -5,1 

8153 

34, 3220 

6 6225 

1 

osu 

p 00 1. 

A SUB  A 

B + 29 

040 

8154 

REF 

5 

LAST 

648 

34,3221 

03600 

1 

DIFFALT 

8155 

34,3222 

56302 

0 

SR  2 

DDV 

A SUB  P 

B + 3 1 

! 1 

34,3223 

00  005 

1 

040 

B+2 

8157 

34,3224 

7 6406 

1 

PUSH 

SORT 

A SUB  P/A  SUB  A 

06D 

815  8 

34, 3225 

+ 12  75 

1 

DMpr 

ovp 

81  3 Q 

34,3426 

0 0 007 

0 

06D 

8160 

34 , 3227 

00001 

0 

OOD 

8161 

34, 3230 

66272 

0 

SL.3R 

POOL 

V SUB  AV  METFRS/CS 

B+7 

08  D 

8162 

3 -!  , 32  3 1 

OCOG3 

1 

020 

K SUB  A MAGNITUDE  B+29 

8144 

34,3232 

' • o l 

0 

NORM 

POOL 

8164 

REF 

11 

LAST 

648 

34, 3233 

00047 

1 

XI 

816:" 

REF 

2 

1 A S T 

633 

44,3236 

02  321 

0 

P TMU 

8166 

34, 3235 

56342 

1 

SP  1 

DDV 

2 MU  B + 38 

8167 

34,3236 

65257 

1 

SL* 

PDDL 

2 MU/R  SUBAA  B+14 

10D 

8168 

34, 3237 

20174 

1 

0 -5,1 

8 1 65 

34,3240 

00005 

1 

04D 

ASU8A 

B+2C 

8170 

34 , 424  1 

h 6 3 01 

0 

NO F M 

POOL 

8171 

REF 

7 

L A 5T 

64Q 

34,3242 

0 00  50 

1 

X2 

8172 

REF 

3 

LAST 

648 

34 , 3243 

02321 

0 

RTMU 

8173 

36,3244 

56342 

1 

SF  1 

DDV 

8174 

34. 3245 

442  57, 

1 

r n ^ i 1 

1 

O *-  1 

iJ  J .) 

8175 

34,3246 

57604 

1 

- c , 2 

2U/R  - U/A  B + 14  l METER S/CS ) SQ 

8176 

34, 3247 

63525 

0 

POOL 

DSQ 

10D 

8177 

34, 3250 

Oiooi  ] 

1 

08D 

8178 

34,3251 

7 5421 

1 

BDSU 

SQRT 

8 1751 

34,3252 

473  15 

0 

PDVL. 

VXV 

SQRT ( MU ( 2/R  SUB  A-l/A  SUB 

A ) - VSUBA  2 ) 10D 

8180 

REF 

1 1 

LAST 

647 

34,3253 

02261 

0 

UP1 

818  1 

REF 

4 

LAST 

647 

34,3254 

03546 

1 

UNVEC 

8182 

34 , 12  5 5 

76  2 56 

c 

UNIT 

VXSC 

8183 

34,3256 

00013 

0 

10D 

8184 

34,3257 

? 5 J 

0 

PDVL 

VXSC 

8185 

REF 

5 

LAST 

648 

34, 3260 

03544 

1 

UNVEC 

81J 

34,3261 

00011 

1 

08D 

8187 

34 , 3262 

76455 

1 

VAD 

VSL1 

818  8 

36,3263 

77626 

0 

ST  ADR 

8189 

R F F 

7 

LAST 

642 

34,3264 

74233 

0 

STORE 

VACT3 

8190 

34, 3265 

77651 

0 

vsu 

8191 

REF 

3 

LAST 

642 

34,3266 

03514 

1 

V ACT  2 

1" 


w 


I 

, GAP: 

i L 

619P 

> 8200 

> 

I 

► 

) 

) 


ASS  EMftLE  1-  tf  VISION  061  C.F  AGC  PROGRAM  AP11R0PE  BY  EYLLS 
P32*-035»  P72-D7r' 

REF  6 IASI  628  34,3267  36275  1 STCALL 

REF  14  LAST  647  34,3270  03470  1 


0ELVFET2 

SUBEXIT 


i 
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DELTA  VC DH  - REFERENCE  COORDINATES 


649 


GAP:  ASSEMBLE  E VIST  ^ OC 1 LF  AGC  fKGGFAM  API  1F.OPE  BY  EYLES 

L P32-P35,  P72-P7C 

P 820 1 CCMPTGO  

R 8202  SUBROUTINES  USED 


R 8203  CLOK'1"  ASK 

P 820*  2PHSCHWG 


C.  J 

8205 

35,2432 

BANK  35 

8206 

RER 

2 

LAST 

21 

35,2000 

SET  LOG  CSJ/CQH 

820T 

3 5 , 2432 

BANK 

3208 

REF 

E 

E-’  , J4<.  t 

FRAMK=  PTPN 

820° 

REF 

1 

COUNT  * $ $/ P3575 

8210 

3S  2432 

C 0006 

1 

CQMPTGQ  EXTEND 

3211 

REF 

2 

LAST 

6 50 

35,2433 

23  ' *65 

1 

QXCH  f'TRM 

8212 

C'EF 

1 27 

LAST 

/,n^ 

35, 2434 

3 *75^ 

1 

r a p 7 f fi 

\y  H t L L in  w 

3213 

REF 

2 

LAST 

1 

35 , 2435 

55*163 

0 

TS  DISPDEX 

8214 

REF 

35 

LAST 

604 

35, 2436 

3 47  52 

0 

CAF  B I T 2 

8215 

0 C004 

0 

T KlH  I MT 

11  'll  1 

82  It 

REF 

29 

LAST 

604 

3 5, 2 a/ C 

0 5203 

0 

TC  WAITLIST 

8217 

REE 

2 

LAST 

24? 

E 7 , 1455 

E B A NX = WHICH 

82  IP 

REF 

2 

LAST 

243 

3 5 , 244 1 

02717 

1 

2C  ADR  CLOKTASK 

8218 

35,2442 

74067 

0 

8216 

REF 

3 

LAST 

502 

35,2443 

0 5327 

1 

TC  2PHSCHNC 

8220 

35,2444 

40036 

0 

OCT  40036 

3221 

35,2445 

050  2 4 

1 

OCT  05024 

822? 

3 5, 2**6 

13000 

0 

OCT  13000 

8223 

REF 

3 

LAST 

650 

35,24*7 

0 1465 

1 

TC  RTRN 

3:15  DEC 


PAGE 


650 


2 

USER  * 
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1 


P0001 
R000  2 
R0003 


R 0004 
P 0005 
R 0006 
R 0007 
P 0008 
R 000c 


R 0010 


R 00 1 1 
R 00 1 2 
R 001 3 
R 0014 
R 00  1 5 


R0016 


R 001  ^ 
R 00 1 8 


R001S 
R 002  0 


R 002  1 
R 002  2 


GEN  FR  AL  L AM8ERT  A IV-PCT  NT  Gu  t dANC  E 
GENERAL  LAMBERT  AIMPOINT  GUIDANCE  ** 
WRITTEN  3 Y KAMA  M AJYAWAR 
PLOGFAM  P-31  DESCRIPTION  ** 

1 . 


TO  ACCEPT  TARGETING  PARAMETERS  OBTAINED  FROM  A SOURCE  EXTERNAL 
TO  THE  LEM  AND  COMPUTE  THERE  FROM  THE  REQUIRED-VELOCITY  AND 
OTHER  INITIAL  CONDITIONS  REQUIRED  BY  LM  FOR  DESIRED  MANEUVER. 
THE  TARGETING  PARAMETERS  A:  E TIG  (TIME  OF  IGNITION),  TARGET 
VECTOR  ( ; TAG),  AND  THE  TIME  FROM  TIG  UNTIL  THE  TARGET  IS 
REACHED! DEI LT’  ) , DESIRED  TIME  OF  FLIGHT  FROM  RINIT  Tn  FTAP  G . . 


ASSUM°TTDNS  * 

1 . 


2 . 
3. 


THE  TARGET  PARAMETERS  4 AY  HAVE  BEET  LOADED  PRIOR  TO  THE 
EXECUTION  OF  THIS  PROGRAM. 

THIS  P« OGR#M  T S APPLICABLE  IN  ETTHEP  EAPTH  OR  LUNAR  ORBIT. 
THIS  PROGRAM  IS  DESIGNED  FOR  ONE-MAN  OPERATION,  AND  SHOULD 
BE  SELECTED  BY  THE  ASTRONAUT  BY  DSKY  ENTRY  V37  E31. 


SUBROUTINES  USED  ** 


MANUPARM,  TTG7M5,  RC2  8r'rH  , ■'’IDGI'1,  Ot  S PMG  A , FI  AGDOW'j,  BANKCALL, 

GOTOPOOH,  END3  F JOB , PHASCHNG,  GOFLASHR,  GO FLASH. 


MANUPARM 


CALCULATFS  APOGEE,  PERIGEE  ALTITUDES  AND  OELTAV  DESIRED 
F f THE  MANEUVER. 


TTG/135 

MIDGIM 


CLFCKTASK  - UPDATES  CLOCK. 

CALCULATES  MIODIF  GIMBAL  ANGIE  FOR  DISPLAY. 


R 002  3 

R02B0TH 

I MU  - STATUS  CHECK  ROUTINE. 

P002A 

D I S PI  AYS 

USED 

IN  P-311 M 

R 002  5 

V06N33 

DISPLAY  SOTRED  TIG  (IN 

HRS.  MINS.  SECS) 

R 0026 

P 0C27 

V06N42 

V 1 6 M3  5 

DISPLAY  API  GEE,  PERIGEE 
DISPLAY  TIME  FROM  TIG. 

, DELTAV. 

R 002  8 

V06N45 

TIME  FPQM  IGNITION  AND 

MIDDLE  GIMBAL  ANGLE. 

R0029 

ERASABLE 

INITI 

AL IZATICN  REQUIRED  ** 

R 003 C 

TIG 

TIME .OF  IGNITION  DP 

(B+28)  CL. 

R 003  1 

R 0 p 3 2 

DEL  L T4 

DESIRED  TIME  OF  FLIGHT 
FROM  RINIT  TO  RTARG  . 

OP  (B+23)  CS 

P 003  3 

R 00  34 

RT  Ar  G 

RADIUS  VECTOR  OF  TARGET 
RADIUS  VECTOR  SCALED 

POSITION  VECTOR 

TO  (B+29) METERS  IF  EAPTH 

• 2,1970  LEMP30S 

USER'S  PAGE  NO.  1 


EO  S3 
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L GENERA!  LAMBERT  A IMPOINT  GUIDANCE 


3:15  DEC.  2,1970  LEMP30S  .103  PAGE 
USFr 1 S PAGE  NO.  2 EG  S3 


0035 

RADIUS  VECTOR 

SCALED 

TO 

( B+27 ) METERS 

IF  MOON 

no  "2  A 

HI  IT  Dl  1 T 
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01046  1 
77634  0 
51515  1 
00003  1 
25140  0 
01453  1 
01442  1 
00243  1 
3270 3 1 
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ALPHAV 

TAT 

CALL 

ERADFLAG 
L AT-l.ONG 


K.01 

P21 ALT 

HP AC  = ALT, METERS  B-29 

ALT/100  FOR  N91  DTSP 

V06N43 

DISPLAY  LAT,10NG»ALT 

BANKCALl 

t AT , L OF  G = 1/2  REVS  BO 

GOFt  ASH 

ALT  = KM  Bl6 

GCTflPOOH 

TERM 

GOTOPOOH 

I NT BRET 

V32E  RECYCLE 

DAD 

P21TIMF 

600SEC 

600  SECONDS  OR  10  MIN 

DSPTEM1 
P 2 1 PROG  I 

6 0000  10  Mil: 


00663 

00634 
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PAGE 


L 

P 3 4 - P 3 5 , 

P7 4-p  79 

POO  10 

TRANSFEPv 

PH  (TPI  ) PI  IRA  MS  ( nv  AND  P74) 

ROC  11 

S 00 1 2 

MUD  NO  -1  1 OG  SECTION  - P32-P35,  P72-P75 

MOD  BY  WHITE. P DATE  1JUNE67 

R 00 1 3 

PURPOSE 

ROOl^- 
R 00 1 5 

R 00 1 6 

(1) 

TO  CALCULATE  THE  REQUIRED  DELTA  V AND  OTHER  INITIAl 
REQUIRED  BY  THE  A,.  :VL  VEHICLE  FOR  &X  ECUT I ON  OF  THE 
PHASE  INITIATION  (TPI)  MANEUVER , GIVEN  - 

CONDITIONS 
TRANS  FER 

R 001  7 

R 00 1 8 

(A)  ’‘I  E Oc  ir-urT|t-M  i !5  < PT)  THE  EL  EV  AT  I 'IN  ANGLE  (E)  OF 

THE  ACTIVE/PASSIVE  VEH  7C  LE  LOS  AT  TIG  (TPI). 

R 001  9 
ROD  20 

(8)  CENTRAL  ANGLE  OF  TRANSFER  ( CENT  AN G ) FROM  TIG  (TPI)  TO 

IN' ’6 PC EOT  TIME  (TIG  ( TPF ) ) . 

00021 

(2) 

Tf  CALCULATE  TIG  non  GIVEN  E f 0 E GIVEN  TIG  (TPI) 

« 

USER'S  PAGE  MO. 


EO  S3 


R 002  2 
R 0023 


(3) 


TO  CALCULATE  THESE 
APPROVED  AND  KEYED 


PARAMETERS  bASED 
IN’:  U THE  OSKY  BY 


UPON  MANEUVER  D A"r  A 
THE  ASTRONAUT. 


R 002  4 
R 0025 
R 0026 


( > TO  0 1 S P AY  TO  THE  ASTRONAUT  AND  THE  GROUND  CERTAIN  DEPENDENT 
VARIABLES  AS  SOC I ATED  WITH  THE  MANFUVEP  FOP  APPROVAL  BY  THE 
ASTRONAUT/GROIJND. 


R 0027  (5)  TO  STORE  THE  TPI  TARGET  PA  A METERS  FUR  LSE  BY  THE  DESIRED 

R 002 P THRUST  I NC  JR')G-'A M. 


° 002  c ASSUMPTIONS 


R 0030  (1)  LM  INLY  - THIS  PROGRAM  IS  BASED  UPON  PREVIOUS  COMPLETION  OF 

R 003 1 THE  CONSTANT  DELTA  ALTITUDE  ( COM ! PROGRAM  (P33/D73). 

R003?  THEREFORE  - 


3" 

R 003  3 

R0034 

R 0035 

R 0036 

(A) 

AT  A <:ELFCVFD  TPf  TIME  (NOW  lu  PTCPAI3E)  THE  LINE  OF  SIGHT 
BETWEEN  THE  ACTIVE  AND  PASSIVE  VEHICLES  WAS  SELECTED  TO  BE 
A PRESCRIBED  ANGLE  (E)  (NOW  IN  STORAGE)  FROM  THE 

J4pR T ZQN  T AL  PLANE  DEFINED  BY  THE  ACTIVE  VEHICLE  PGSITICM. 

R 0037 

R 003  8 

( B) 

THE  TIME  BETWEEN  OH  IGNITION  AND  TPI  IGNITION  WAS 

COMPUTED  TO  BE  GREATER  THAN  10  MINUTES. 

2" 

R 003° 

R 0040 

(C) 

THE  VARIATION  OF  THE  ALTITUDE  DIFFERENCE  BETWEEN  THE 

ORBITS  WAS  MINIMIZED. 

R 004  1 

R 0042 

( D) 

THE  PF-’ICE  Tf  ALTITUDES  OF  ORBITS  FOLLOWING  CSI  AND 

CDH  WERE  COMPUTED  TO  BE  GREATER  THAN  35,000  FT  FOR  LUNAR 

658 


3 AP  : 

L 

R0043 

R 0044 
R 0045 
R 0046 
R 004 7 

R 004  8 
R 004-9 

R 0050 
R 005  1 
R 005  2 
R 005  3 
R0054 
R 005  9 

P 005  6 
R 0057 
R0058 
R 0059 
R 0060 
R 006  1 
R0062 
R 0063 

R 0064 

R 006 5 

R 006  6 
R 0067 
R 00  S 
R 006  9 

R 007  0 
R0071 

R 0072 
R 0073 
R 0074 

R 0075 
R 0076 
R 0077 
R 007  8 
R 0079 

R 0090 
R 008  1 
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ORBIT  OR  85  NM  FOR  EARTH  ORBIT.  ' 

(E)  THE  CSI  AND  COH  MANEUVERS  WERE  ASSUMED  TO  BE  PARALLEL  TO 
THE  PLANE  OF  HE  PASSIVE  VEHICLE  CB1T.  HOWEVER » CREW 
MODIFICATION  OF  DELTA  V ( LV ) COMPONENTS  MAY  HAVE  RESULTED 
IN  AM  OUT-OF-PLANE  MANEUVER. 

(2)  STAtE  VECTOR  UPDATED  BY  P27  ARE  DISALLOWED  DUPING  AUTOMATIC 
STATE  VECTOR  UPDATING  INITIATED  BY  P20  (SEE  ASSUMPTION  (4)). 

(3)  THIS  P'-OGTAM  YL)$T  BE  DONE  “‘VER  A TRACKING  STATION  FOP  REAL 
TIM'F  f.  I r’  V T JCTPAT  I ’N  IN  DATA  INPUT  AND  OUTPUT.  COMPUTED 
VARIABLES  MAY  BE  STORED  FOR  LATER  VERIFICATION  BY  THE  GROUND. 

THESE  STORAGE  CAPABILITIES  ARE  LIMITED  ONLY  TO  THE  PARAMETERS 
FOR  GNE  THRUSTING  MANEUVER  AT  A TIME  EXCEPT  FOR  CONCENTRIC 
FLIGHT  PLAN  MANEUVFR  SEQUENCES. 

( ) THE  PEMDEZVMUS  RADA?  M AY  OP  MAY  NOT  BE  USED  TO  UPDATF  THE  LM 
OR  CSM  STATE  VECTORS  FOR  THIS  PROGRAM.  IF  RADAR  USE  IS 
DESIRED  THE  RADAR  WAS  TURNED  ON  AND  LOCKED  ON  THE  CSM  BY 
PREVIOUS  SELECT  ON  OF  P 2 1 ; . RADAR  SIGHTING  MARKS  WILL.  BE  MADE 
AUTOMATICALLY  APPROXIMATELY  ONCE  A 1 1 HUT E WHEN  ENABLED  BY  THE 
'PACK  AMD  .(PC  ATE  Ft  AGS  CEE  P2C  > . THE  RENDEZVOUS  TRACKING 
MARK  C U*  Tf  is  ZEROED  BY  THE  SELF  CT I ON  OF  P20  AND  AFTER  EACH 
THRUSTING  MANEUVER. 

(5)  THE  ISS  NEED  NOT  BE  ON,  TO  COMPLETE  THIS  PROGRAM. 

1 ) THE  OPE : AT  I ON  OF  THL  PROGRAM  UTILIZES  T HE  F EL  0 W I N G FLAGS  - 

ACTIVE  VEHICLE  FLAG  - DESIGNATES  THE  VEHICLE  WHICH  IS 
DOING  RENDEZVOUS  THRUSTING  MANEUVERS  TO  THE  PROGRAM  WHICH 
CALCULATES  THE  MANEUVER  PARAMETERS.  SET  AT  THE  START  OF 
EACH  RENDEZVOUS  Pi  F- THRU  ST  C . G PROG' AM. 

FINAL  FLAG  - SELECTS  FINAL  PROGRAM  DISPLAYS  AFTER  CREW  H A c 
SELECTED  THE  FINAL  MANEUVER  COMPUTATION  CYCLE. 

EXTERNAL  Dtl.TA  V FLAG  - DESIGNATES  THE  TYPE  OF  STEERING 
REQUIRED  FIG  EXECUTION  OF  THIS  MANEUVER  BY  THE  THRUSTING 
PROGRAM  SELECTED  AFTER  COMPLETION  OF  THIS  PROGRAM. 

(7)  ONCE  THE  PARAMET WRS  REQUIRED  FOR  COMPUTION  OF  THE  MANEUVER 
HAVE  BE  FN  COMPLETELY  SPECIFIED,  THE  VALUE  OF  THE  ACTIVE 
VEHICLE  CECAL  ANGLE  OF  TRANSFER  IS  COMPUTED  AND  STORED. 

THIS  NUMBER  "ILL  BE  AVAILABLE  FOR  DISPLAY  T0  THE  A S T R r N A UT 
THROUGH  THE  USE  hf  V06K52. 

THE  ASTRONAUT  WILL  CALL  THIS  DISPLAY  TO  VERIFY  THAT  THE 
CENTRAL  ANGLE  OF  TRANSFER  OF  THE  ACTIVE  VEHICLE  IS  NOT  WITHIN 
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R 0082 

170  TO 

190 

DEGREES.  IF  THE  ANGLE 

I S 

WITHIN  THIS  ZONE  THE 

R008  3 ASTRONAUT  SHOULD  REASSESS  THE  INPUT  TARGETING  PARAMETERS  BASED 

R 0084  UPON  DELTA  V AND  EXPECTED  MANEUVER  TIME. 


R00R5  C)  THIS  PROGRAM  IS  SEIECTE0  3Y  THE  ASTRONAUT  BY  DSKY  ENTRY  - 


R 0086 

P34 

IF  THIS  VEHICLE  IS  ACTIVE  VEHICLE. 

R0087 

P7A 

IF  THIS  VEHICLE  IS  PASSIVE  VEHICLE. 

ROC  8 8 

INPUT 

R 008  9 

( 1 ) 

TTPI 

TIME  OF  THE  TPI  MANEUVER 

R 0090 

(2) 

ELEV 

DESIRED  LOS  ANGLE  AT  TPI 

R 009  1 

(3) 

CENTANG 

CP  B I T AL  CENTRAL  ANGLE  OF  THE  PASSIVE  VEHICLE  DUFFING 

R 009  2 

TR AMSFE:  F DM  TPI  I ! TIME  OF  INTERCEPT 

R 009  3 

OUTPUT 

R 0094 

( 1 ) 

TRKMKCNT 

NUMBER  OF  MARKS 

R 009  5 

(2) 

TTOGO 

TIME  TO  GO 

R009  6 

(3) 

+ MGA 

I D Di  E GIMBAL  ANGLE 

R 0097 

(4  ) 

TTP  I 

COMPUTED  TIME  OF  TPI  MANEUVER 

R 009« 

OR 

R 0099 

ELEV 

COMPUTED  LOS  ANGLE  AT  TPI 

R0100 

(5) 

POST  T P I 

PI  - I G EE  ALTITUDE  AFTEF1  THE  TPI  MANEUVER 

R0101 

( 6 ) 

DELVTPI 

MAGNITUDE  OF  DELTA  V AT  TPI 

R 0 1 0 2 

(7) 

DELVTPE 

MAGNITUDE  OF  DELTA  V AT  INTERCEPT 

R0103 

0:) 

DVLTS 

DELTA  VELOCITY  AT  TPI  - LIME  OF  SIGHT 

POIO^ 

( O) 

ofi  vi  vr 

r , PI  " A v P 1 ' r r T v A 1 T D T — 1 I r A!  w p r,  T T r A 1 rr  f n T M A T C C 

UL  L V VL 

f r-  - *'  v r i U I ■ Y A ‘ l.  * U At.  V tz  i ' 1 1 LAL  ut  i t U IIi  At  t o 

R 0105 

DOWN! INK 

R 01 1 4 

( I ) 

TTPI 

TIME  OF  THE  TPI  MANEUVER 

R 01 1 5 

(2) 

TIG 

TIME  OF  THE  TPI  MANEUVER 

R 01 1 6 

< 3 ) 

ELEV 

DES  I ED  LOS  ANGT  E AT  TPI 

R01 17 

(4) 

CENTANG 

ORBITAL  CENTF  AL  ANGLE  OF  THE  °ASSIVE  VEHICLE  DURING 

R01  18 

TRANSFER  FROM  TPI  TO  TIME  OF  INTERCEPT 

R 01  lc 

{ 5 ) 

DEL V EET3 

DELTA  VELOCITY  AT  TPI  - REFERENCE  COORDINATES 

RQ12C 

(4) 

TPASS4 

TIME  OF  INTERCEPT 

R0121 

comm  ic  a 

T I ON  TO  T 

HFUSTTNG  PF  OGR  AMS 

R0122 

( i) 

TIG 

TIME  OF  THF  TPI  MANEUVER 

R 012  3 

(2) 

R T A3  G 

OFFSET  TAFGET  POSITION 

R 0129 

(3) 

TPASS4 

T 1 ‘ E OF  INTERCEPT 

R 01  2 c 

(4) 

XDEl VF  LG 

r f S ET  Ti:  INDICATE  L AMBER  (ATMPOINT)  VG  COMPUTATION 

R 0 1 26  SUBROUTINES  USED 


R 0 1 2 7 AVFLAGA 
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R 012  p 
R 0 1 2 ° 
R.Q.13C 

R 01 3 1 
R0132 
P-  0 1 3 3 
R0134 
R 0135 
R0136 
p 0)  37 
P G 1 3 F 
p 01 3 c 
P 0140 
R 0 1 4 1 
R0142 
R 0 1 4 3 


AVFLAGP 
VNPOOH 
DISPLAYE 
SELECTED 
PRECSFT 
S 33  / 3 . 1 
ALARM 
BANKCALL 
GuFLASH 
GOT  DPOOH 
TIM  ETHET 
S3A / 35.2 
PER  I APOI 
SHI FTR 1 
S34/35.5 
VN1 645 


0142 

REE 

01^5 

0146 

REF 

0147 

REF 

0148 

RFF 

0149 

REF 

Oicr 

p F F 

1 

0151 

REF 

01515 

REF 

0152 

REF 

01521 

01522 

R EF 

, K ->  "3 

RFF 

U I c o 

BC  1 

015  2 fc 

REF 

01529 

REF 

0153 

REF 

0154 

RFF 

015  5 

0156 

REF 

0157 

REF 

0158 

REF 

0159 

EF 

0160 

0161 

REF 

016? 

P EF 

0163 

016* 

REF 

016  5 

0166 

0167 

P EF 

0 16  R 

REF 

016° 

0170 

REF 

3 LAST  650 

16  LAST  652 
1 

3 LAST  627 

1 

3 LAST  627 

4 LAST  652 
2 LAST  622 

13  LAST  653 

1 

5 LAST  63'' 
11  LAST  652 

5 LAST  636 

1 

72  LAST  . 5 7 

2 LAST  69 

14  LAST  644 

15  LAST  652 

6 LAST  637 

1 

3 LAST  6'6  1 
3 LAST  627 


7 LAST  609 
2 LAST  627 

4 LAST  661 


35, 2000 
35,2545 
E 7 , 147  0 


35,2545 

0 2347 

0 

35,2546 

0 2550 

0 

3 5, 262-7 

0 2356 

1 

35,2550 

0 2361 

1 

35,255  1 

3 3723 

1 

35,2552 

0 3712 

0 

3 5 , 25c  3 

0 0006 

1 

35,2554 

3 3746 

1 

T C OF.  K C 

L“  ~1  f 40] 

1 

3"  | 

D J 0 C 1 

I 

35,2556 

3 2417 

1 

35,2557 

55 '466 

0 

35,2560 

0 36  74 

1 

35,256  1 

0 t 03  7 

0 

35 , 2562 

71214 

0 

35,2563 

01270 

0 

35,2564 

03636 

1 

35,2565 

17442 

0 

35,2566 

022  57 

0 

35,2567 

43054 

1 

35,2570 

72572 

1 

35,2571 

01070 

1 

35,257? 

77624 

1 

35,2573 

20000 

0 

003  2 

33,2574 

43145 

0 

35,2575 

04522 

1 

35, 2576 

03460 

0 

35,2577 

43014 

0 

35 , 26C  r 

01310 

1 

SETLHC 
BANK 
FBANK= 
COUNT* 
P3*  TC 

TC 

P74  TC 

P34/P74 A TC 
CAF 
TC 

EXTEND 

DC  A 

DXCH 

CAF 

TS 

TC 

TC 

CLEAR 


STOOL 

BZE 


P34/PT2  b CAL  L 

DELELO  EQUALS 
P34/P74C  DLOAD 


BON 


CSI /CDH 

SUBEXIT 
$ $ / F 3 4 7 4 
AVFLAGA 
°34/u74A 
AVFt  AGP 
P2CFLGCN 
V06N37 
VNPOOH 

1 30DEG 
CENTANG 
P30ZEP0 
NN 

DISPLAYE 
1 NTPRET 
DLOAD 
FtP I FLAG 
TTPI 
T IG 
ELEV 
SET 

P34/P74B 
ET°! FLAG 

SELECTMU 

26D 

SET 

ZER.OVECS 
I TSWICH 
CLEAR 
ETPIFLAG 
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TTPI 
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ELEV  AND  CENTANG 
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0171 

REF 

1 

35,2601 

72603 

1 

SWCHSET 

0172 

REF 

3 

LAST 

661 

35 , 2602 

036  60 

1 

I TSWICH 

0173 

REF 

4 

LAST 

62  8 

35,2603 

02  317 

0 

SWCHSLT 

STORE 

NCIMTPI 

0174 

35,2604 

43345 

1 

I NT LOOP 

01.  r AD 

DAD 

0175 

REF 

15 

LAST 

ft  4 1 

35,2605 

0 36  36 

1 

TTPI 

0174 

REF 

5 

LAST 

662 

35,2606 

02317 

0 

NCMTPI 

0177 

REF 

26 

LAST 

655 

35 , 2607 

34041 

0 

STCALL 

T DEC  1 

0173 

REF 

3 

LAST 

642 

35,2610 

46  3 60 

0 

PRECSET 

0179 

35,2611 

7762-r 

1 

CALL 

0180 

REF 

2 

LAST 

62  7 

36, 2612 

7 27  64 

1 

S 33/34.1 

01 P 1 

36,261 3 

77454 

1 

BZE 

EXIT 

018  2 

REF 

l 

35,2614 

7 2 62  5 

0 

5 w r h r i 5 

0183 

REF 

28 

LAST 

627 

35,2615 

0 5567 

0 

TC 

ALARM 

0184 

35 , 2616 

00611 

1 

OCT 

611 

0185 

REF 

3 

LAST 

627 

35,2617 

3 5006 

1 

CAF 

VOS NO 9 

0186 

REF 

163 

LAST 

6 57 

35,2620 

0 4ft  16 

1 

TC 

9 ANKCALL 

0137 

REF 

1 5 

LAST 

657 

36,2621 

20476 

0 

C A Dr' 

GCFL  ASH 

018  8 

G FF 

1 3 

l AST 

657 

35, 2622 

0 6001 

0 

TC 

rrTf;  Dnf  'H 

* j U f X r ' ! n 

111 

RFF 

2 

1 AST 

661 

35,2623 

0 2550 

0 

TC 

P34/P74A 

0190 

35,2624 

0 26  15 

1 

TC 

-7 

01.9  1 

35,2625 

43  014 

0 

SWCHCLR 

BOMCLR 

BCN 

01  °2 

REF 

4 

LAST 

662 

3 c, 2626 

03  600 

1 

I TSWICH 

0193 

5 FF 

1 

35,2627 

72  6 04 

0 

TNT LOOP 

0194 

REF 

5 

LAST 

661 

35 , 263  C 

01310 

1 

ETPIFLAG 

0195 

REF 

1 

35,2631 

72635 

1 

P34/P74D 

0196 

35,2632 

77776 

1 

EXIT 

0197 

REF 

2 

LAST 

66  1 

34 , 2633 

0 36  74 

1 

TC 

DISPLAYE 

0198 

p FF 

1 

35 , 2634 

0 2 640 

1 

TC 

P34/P76E 

1 

35 , 263  5 

777  76 

1 

P34/P74D 

EXIT 

X 

0200 

REF 

3 

LAST 

661 

35 , 2636 

3 3723 

1 

CAE 

V06N37 

0201 

REF 

14 

LAST 

661 

35,2637 

0 3712 

0 

TC 

VNPOOH 

0202 

REF 

75 

LAST 

66 1 

3 6.  2 (■,  L.  n 

0 6037 

0 

P34/P74E 

T r 

I M T P Q F T 

1 l r rl  1 

0203 

35,2641 

712  01 

1 

SETPD 

DLOAD 

0204 

36,2642 

( 0001 

0 

OD 

0205 

RFF 

# 

LAST 

652 

3 c , 2 6 4 3 

027  /7 

1 

RTX1 

0206 

REF 

12 

LAST 

648 

35,2644 

14047 

1 

STODL 

XI 

0207 

P EF 

6 

LAST 

661 

35,2645 

03621 

1 

CENTANG 

0208 

35, 2646 

71406 

0 

PUSH 

COS 

0209 

REF 

4 

LAST 

647 

35,2647 

1 6 732 

0 

STOOL 

CSTH 

0210 

35,2650 

77756 

0 

SIN 

0211 

REF 

6 

LAST 

647 

35,2651 

26730 

1 

ST  nvi. 

SNTH 

0212 

REF 

6 

LAST 

642 

35,2652 

03552 

0 

RPASS3 

021  3 

35,2653 

77657 

0 

VSR  * 

0214 

35,2654 

57176 

0 

0,2 

0215 

- EF 

6 

LAST 

647 

35,2655 

26655 

0 

SI  r-VL 

RVFC 

02 1 ft 

REF 

3 

LAST 

642 

35,2656 

03560 

1 

V PAS  S3 

0217 

36,2457 

43057 

1 

VSR* 

SET 

0213 

35,2660 

57176 

0 

0,2 

0219 

REF 

6 

LAST 

647 

35,2661 

03466 

0 

RVSW 
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DISPLAY  TTPI 
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0220  REF  7 

0221  RFF 

0222 

0223  REF  16 

0224  RFF  L 

0225 

0226  REF  2 

0227  RFF  5 

0228  REF  1 

0225 

0230  REF  4 

0231  REF  6 
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RENDEZVOUS  MID-COURSE  MANEUVER  PROGRAMS  ( P35  AND  P75  ) 

I 

MOD  NO  -1  LOG  SECTION  - P32-P35,  P72-P75 

MOO  BY  WHtTF.P  DATE  1 JU''E67 

i 

PURPOSE 

(1)  TO  CALCULATE  THE  REQUIRED  DELTA  V AND  OTHER  INITIAL  CONDITIONS  1 

EQJI  ED  BY  THE  AO  IVE  VEHICLE  FO;  EXECUTION  OF  THE  NEXT 
MTDCC  JPSE  CO  'ECTTPN  OF  THE  TRANSFER  PHASE  OF  AM  ACTIVE 
VEHICLE  RENDEZVOUS. 

(2)  TO  DISPLAY  TO  THE  ASTRONAUT  AND  THE  GROUND  CERTAIN  DEPENDENT 
VARIABLES  ASSOCIATED  WITH  THE  MANEUVER  FOR  APPROVAL  BY  THE 
ASTRONAUT /GROUND . 

(3)  TE  STOr  F THE  TPM  TARGET  PARAMETERS  FOR  USE  BY  THE  DESIRED 
THRUSTING  PROGRAM. 

ASSUMPTIONS 

(1)  THE  ISS  NEED  HOT  BF  0.  TO  COMPLETE  THIS  PROGRAM. 

(2)  STATE  VECTOR  UPDATES  BY  P27  ARE  DISALLOWED  DURING  AUTOMATIC 
STATE  VECTOR  UPDATING  INITIATED  BY  P20  (SEE  ASSUMPTION  (3)). 

(3)  THE  RENDEZVOUS  ADA5 * 7  IS  UN  AND  IS  LOCKED  UN  THE  CSM.  THIS  WAS 
DONE  DUPING  PREVIOUS  SELECTION  OF  P20.  RADAR  SIGHTING  MARKS 
WILL  BE  MADE  AUTOMATICALLY  APPROXIMATELY  INC E A ! I NUT  E WHEN 
ENABLED  BY  THE  TRACK  AND  UPDATE  Ft  AGS  (SEE  P20>.  THE 
RENDEZVOUS  TRACKING  MARK  COUNTER  IS  ZEROED  BY  THE  SELECTION  OF 
P20  AND  AFTER  EACH  THRUSTING  MANEUVER. 

(M  THE  OPERATION  OF  THE  PROGRAM  UTILIZES  THE  FOLLOWING  FLAGS  - 

ACTIVE  VEHICLE  FLAG  - DESIGNATES  TEE  VEHICLE  WHICH  IS 
DOING  RENDEZVOUS  THRUSTING  MANEUVERS  TO  THE  PROGRAM  WHICH 
CALCULATES  THE  MANEUVER  PARAMETERS.  SET  AT  THE  START  OF 
EACH  RENDEZVOUS  Ph E— THRUST ING  PROGRAM, 

FINAL  FLAG  - SELECTS  F IN  At  PROGRAM  DISPLAYS  AFTER  CREW  HAS 
'ELECTED  the  FINAL  MANEUVER  COMPUTATION  CYCLE. 

EXTERNAL  DELTA  V FI  AG  - DESIGNATES  THE  TYPE  OF  STEERING 
REQUIRED  FOR  EXECUTION  OF  THIS  MANEUVER  BY  THE  THRUSTING 
PROGRAf,:  SELECTED  AFTER  COMPLETION  OF  THIS  PROGRAM. 

(5)  THF  T I Ml  OF  INTERCEPT  ( T ( INT ) ) WAS  DEFINED  BY  PREVlOU' 

COMPLETION  OF  THE  TRANSFER  PHASE  INITIATION  (TPI)  PROGRAM 

(P34/P74)  AND  IS  PRESENTLY  AVAILABLE  IN  STORAGE. 
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PAGE 

NO.  8 
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o R0291  (6)  ONCE  THE  PARAMETERS  REQUIRED  FOP  COMPUTICN  OF  THE  MANEUVER 

R02R?  HAVE  BEEN  COMPLETELY  SPECIFIED,  THE  VALUE  OF  THE  ACTIVE 

R 029  3 VEHICLE  CENTRA  I ANGLE  OF  TRANSFER  IS  COMPUTED  AND  STORED. 

R 0294  '‘HIS  NUMbf  J ILL  8 F AVAILABLE  FOR  DISPLAY  TO  THE  ASTRONAUT 

R 0298  THROUGH  THE  USE  OF  VD5N52. 


R 0296  THE  ASTRONAUT  WILI  CALL  THIS  DISPLAY  TO  VERIFY  THAT  THE 

R 02  97  CENTFAL  ANGLE  OF  TRANSFER  OF  THE  ACTIVE  VEHICLE  IS  NOT  WITHIN 

R 02  9 6 170  10  190  DEGREES.  IF  THE  ANGLE  IS  WITHIN  THIS  ZONE  THE 

R 0299  ..ASTRONAUT  SHOULD  REASSESS  THE  INPUT  TARGETING  PARAMETERS  BASED 

R 0300  UPON  DELTA  V AND  EXPECTED  MANEUVER  TIME. 


R 030  1 

R 0302 

R0303 

(7) 

THIS  PROGRAM  IS  SELECTED  BY 

P3 :>  IF  THIS  VEHICLE  IS  A 

P75  IF  THIS  VEHICLE  IS  P 

THE  ASTRONAUT  BY  DSI 

CTIVE  VEHICLE. 

assive  vehicle. 

R 0304 

INPUT 

R 030  5 

( 1 1 

TPASS4 

TIME  OF  INTERCEPT  - 

SAVED  FROM  P34/P74 

R 0306 

OUTPUT 

R030T 

(1) 

TF  KMKCNT 

' ■■  F A K S 

R 0308 

(2) 

TTOGO 

TIME  TO  GO 

R0309 

(3) 

-t-MGA 

M IDOL  F GIMBAL  ANGLE 

R 031  0 

(4  ) 

DVL3S 

DELTA  VELOCITY  AT  M 

ID  - LINE  OF  SIGHT 

R 03 1 1 

( “ ) 

DELVL VC 

DELIA  VELOCITY  AT  M 

ID  - LOCAL  VERTICAL 

R0312 


DOWNLINK 


R 03  2 f 

R 032  6 

( 1) 
(2) 

TIG 

DELVEET3 

TIME  OF  THE  TPM  MANEUVER 

DEL  1 A VELUCHY  Al  TPM  - CFEEENCE  COORDINATES 

R0327 

(3) 

TPASS4 

TIME  OF  INTERCEPT 

R 032  5 

COMMON ICA 

TION  TO  THRUSTING  PROGRAMS 

R 032c 

( 1 ) 

TIG 

TIME  OF  THE  TPM  MANEUVER 

R 0330 

(2) 

RTARG 

OFFSET  TARGET  POSITION 

R 033  1 

(3) 

TPASS4 

TIME  OF  INTERCEPT 

R 033? 

(4) 

X D EL  VFL  G 

EE t 0 1 C A T E LAMBE:  r (AIMPfUNT)  VG  COMPUTATION 

R 03  3 3 

sl)P  ROUT  IN 

ES  USED 

0334 

AVFLAGA 

0335 

AVFLAGP 

0336 

LOADTIME 

033  7 

SEl ECTMU 

0338 

PRECSET 

0339 

S34/35. 1 

0340 

S34/35.2 
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R 034 1 S34/35.5 

P0342  VN1645 


0343 

0344 

REF 

F F 

2 

1 

L AST 

650  TO  652: 

E7, 1575 

14 

14  * 

COUNT  * 
EBANK= 

t T/P35  75 
KT 

0345 

REF 

4 

LAST 

661 

35,2725 

0 2347 

0 

P35 

TC 

AVFLAGA 

0346 

35,2726 

0 0006 

1 

EXTEND 

0347 

REF 

3 

LAST 

367 

35,2727 

3 1401 

0 

DC  A 

ATIGINC 

0348 

REF 

1 

35,2730 

0 2 734 

0 

TC 

P35/P75A 

03  4 9 

REF 

4 

LAST 

66  1 

35,2731 

0 2 3 54 

1 

P75 

TC 

AVFL AGP 

0350 

35,2732 

0 0006 

1 

EXTEND 

0351 

REF 

1 

35,2733 

3 140  3 

1 

DC  A 

PTIGINC 

0352 

REF 

2 

LAST 

666 

35,2734 

53’ 576 

0 

P35/P75A 

DXCH 

KT 

03525 

REF 

5 

LAST 

661 

35,27  35 

0 2 3 61 

1 

TC 

P20FLGGN 

035  3 

RFF 

77 

LAST 

663 

35,2736 

0 6037 

0 

TC 

I NT  PRE  T 

0359 

35,2737 

77624 

1 

CAL  L 

0360 

o p p 

! AST 

64 1 

5 r . ?7 1,  n 

70000 

o 

cci  p f TM ( 1 

i 

zj  ■ y c i , 

J U.  U.  1—  v_»  1 ' ’ W 

0361 

3C  ,2741 

77634 

0 

P35/P75B 

RTB 

0362 

REF 

13 

LAST 

589 

35,2742 

21573 

0 

LGADTI ME 

0362  1 

REF 

2 

LAST 

283 

35,2743 

03612 

1 

STORE 

TSTRT 

036  2 2 

3 c , 2744 

77615 

0 

DAD 

0362  3 

REF 

3 

LAST 

66  6 

35,2745 

03  5 76 

0 

KT 

03624 

REF 

17 

LAST 

663 

35 , 27^6 

03442 

0 

STORE 

TIG 

0363 

P EF 

2 

LAST 

663 

35,2747 

03610 

0 

STORE 

INTIME 

0364 

REF 

27 

LAST 

662 

35,2750 

34041 

0 

STCALL 

TDEC1 

0365 

REF 

4 

LAST 

662 

35,2751 

46360 

0 

PRECSET 

0366 

35,2752 

77624 

1 

CALL 

0367 

REF 

1 

35,2753 

7 3274 

1 

S 34/3 5.1 

036  3 

7 6 , 27  r 4 

776  24 

CALL 

0369 

REF 

2 

LAST 

663 

35,2755 

73306 

0 

S 34/ 35.2 

0370 

35,2756 

77624 

1 

CALL 

0371 

REF 

2 

LAST 

66.3 

35,2757 

7 3522 

0 

S 34/ 3 5 . 5 

0372 

35,2760 

77624 

1 

CALL 

0373 

REF 

5 

LAST 

66  3 

35,276 1 

73606 

0 

VN1645 

037° 

34,2762 

776  5 0 

1 

GOTO 

0380 

REF 

1 

35,2763 

72741 

0 

P35/P75B 

15  DEC.  2 ,1970  KISSING  .050  PAGE  666 
USER*  S PAGE  NO.  9 E7  S3 


« 

< 


i 


SET  U PD AT F LG > TRACKFLG 
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P 038  l 

038  2 
038  3 
0384 
03  b 8 

0386 

0387 

0338 

0339 
0300 
039] 

0392 

0393 

0394 
039* 

0396 

0397 

0398 

0399 

0400 

0401 

0402 

0403 

0404 
040* 

0406 

0407 

0408 
0*09 
0410 
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REF  4 LAST  630 
REF  1 


REF 


REF 

REF 

REF 

REF 

PEF 

REifi 

REF 

REF 

PEF 

REF 


9 

1 

LAST 

663 

8 

LAST 

648 

1 

7 

1 

LAST 

662 

1 

4 

1 

LAST 

662 

2 

LAST 

666 

10 

LAST 

667 

11 

LAST 

64  7 

REF 


3 5 » 27:64 

35.2765 

33.2766 
35,2747 
35, 2770 
35 , 277  1 

35.2772 

35.2773 

35.2774 

35.2775 

35.2776 

35.2777 
35 , 30  0 0 
35,3001 
35, 30 C 2 
3K, 3003 

35.3004 

35.3005 

35.3006 
3 5 , 3 0 C 7 

35.3010 

39 .3011 
35  , 3012 

35. 3013 

35.3014 
3 * , 30  1 5 

35. 3016 

75.3 0 1 7 
35, 3020 


■3  6 2 2 u 1 

03463  0 
0361 4 1 
4C000  0 
4C345  1 
33734  1 
GO  00  I 0 
27574  1 
03536  1 
27500  1 
03544  1 
27506  1 
03552  0 
27522  1 
03560  1 
03530  1 
77624  1 
73274  1 
63233  0 
03536  1 
53515  0 
03536  ] 
46315  1 
51352  1 
02311  0 
632  56  0 
63241  0 
99001  0 
75241  1 


041 1 

REF 

2 

LAST 

667 

35,3021 

0231  1 

0 

G41  2 

35,3022 

65552 

0 

04 1 ? 

35, 3023 

50315 

0 

0414 

REF 

3 

LAST 

66  7 

35,3024 

•2311 

0 

0419 

PEF 

1 2 

LAST 

647 

35 , 3025 

03536 

1 

0416 

35,3026 

71244 

0 

0417 

REF 

1 

35,3027 

73032 

1 

0413 

REF 

6 

LAST 

622 

35,3030 

06530 

1 

04  i c 

35,3031 

4142  5 

1 

0429 

35,3032 

71214 

c 

0421 

RFF 

5 

L AST 

662 

35,3033 

03740 

1 

0422 

REF 

1 

35,3034 

73261 

0 

042  3 

8 EF 

1 

35 , 3035 

03576 

0 

0424 

REF 

1 

35,3036 

14033. 

1 

042* 

35,3037 

7 7625 

0 

0426 

REF 

7 

LAST 

661 

35, 304 C 

022  57 

0 

042  7 

REF 

2 

LAST 

66  7 

35,3041 

03576 

0 

04?' 

35,3042 

4 524  6 

0 

042° 

REF 

1 

35,3043 

33740 

1 

S 33/34 . ! 


ELCALC 


TESTY 


ST  0 

OCT 
DU  AD 

sum 

STOVt 

STUVL 

STOVE 

S T OR  F 
CALL 

VXV 

PD  VL 

PD  VL 
VSL2 

UN  I T 
DLT 

DOT 

SL  1 
PDVL 

BPL 

DSU 

OrFF 


STODL 

DSU 

STORE 

ABS 
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VAPFEC 
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VPP*  EC 


S 34/ 3 5.1  NORMAL  AND  LOS 

PDVL 

r ACT 3 (RA*VA)*RA  OD 

UNIT  ULQS  AT  6D 

R ACT  3 

V PRC  J XCHNJ  AND  UP 

BVSU 

ULQS 

PDVt  UP  AT  OD 

PDVL  UP.UN4RA  AT  CD 

OD  UP  IN  MPAC 

SIGN 

ULOS 

ACOS 

DOT  EA  AT  OD 

ULOS 

f ACT3 

DLOAD 

TESTY 

DPPOSMAX 

PUSH 

DLOAD 

I TSWICH 

ELEX 

DELEI 

DELELO 

ELEV 

DELEL 

DSU 

ELEPS 


GAP:  ASSEMBLE-  »-E  VISION  001  CF  AGC  PROGRAM  A?11R0PE  BY  FYL.ES 


L 

P 34- 

■ P 3 5 , 

P74- 

P75 

0430 

35 , 3045 

77640 

0 

0431 

REF 

1 

35,3045 

73271 

1 

043  2 

35,3946 

70535 

0 

0433 

REF 

2 

L AST 

667 

35,3047 

03  614 

1 

043^ 

35,3050 

72030 

1 

043  5 

R F F 

9 

I AST 

667 

3r ,305  1 

03463 

0 

043  6 

REF 

280 

LAST 

638 

35,3052 

00154 

1 

0437 

35,3053 

77330 

1 

0438 

REF 

3 

LAST- 

, 66  8 

35,3054 

03613 

0 

043  9 

REF 

8 

LAST 

667 

35,3055 

03552 

0 

0440 

35,3056 

652  56 

0 

0441 

35, 305'7 

00045 

0 

0442 

35 , 3060 

535  15 

0 

044  3 

REF 

13 

LAST 

667 

35,306 1 

03536 

1 

0444 

35,3062 

71  725 

1 

044  5 

35,3063 

6 1525 

0 

0446 

35,3064 

Of  045 

0 

0447 

35,3065 

77621 

1 

0448 

35,3066 

00015 

0 

0449 

35,3067 

14037 

0 

0450 

REF 

8 

LAST 

59  3 

35,3070 

06520 

0 

0451 

35,3071 

41425 

1 

045  2 

REF 

8 

LAST 

667 

35,3072 

02257 

0 

045  ? 

36,7073 

50165 

0 

0454 

35,3074 

00  03  7 

0 

0455 

REF 

6 

LAST 

668 

35,3075 

03463 

0 

05  5 6 

35,3076 

71545 

u 

0457 

35,3077 

56205 

0 

0458 

35,3100 

000  1 7 

1 

O450 

35,3101 

00015 

0 

046  0 

35, 3102 

77676 

0 

0461 

35,3103 

00035 

1 

0462 

35.,  31 C4 

442  46 

1 

0463 

REP 

9 

LAST 

66  8 

35,3105 

0652C 

0 

0464 

35,3106 

77240 

1 

046  c 

REF 

7 

LAST 

668 

35, 3 1 r 7 

034  63 

0 

0466 

REF 

1 

35,3110 

02261 

0 

0467 

35,3111 

53435 

0 

0468 

35, 3112 

00007 

0 

046  9 

35,3113 

41241 

0 

0470 

P EF 

9 

LAST 

667 

35,31 14 

0 3 c 4 4 

1 

0471 

35,31is 

000 1 5 

0 

0472 

35,3116 

47315 

0 

0473 

35,3117 

C0001 

0 

0474 

REF 

5 

LAST 

667 

35, 3120 

03560 

1 

0475 

35,3121 

5 343  5 

0 

05  76 

35,2122 

■ 90  Cl 

0 

0477 

35,3123 

41241 

0 

0478 

REF 

6 

LAST 

668 

35,3124 

03560 

1 

0479 

35 , 3125 

00017 

1 

BMN 

SLuAO 

RHIZ 

SXA,  1 

UNIT 

PD  VI. 

POLL 

POOL 

BDSU 

STOOL 

DSU 

SIGN 

DLLAD 

DYp 


DCOMp 

STORE 

ABS 

BMN 

VXV 

DOT 

PDVL 

VXV 

DOT 
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TIMEX  COMMERCIALS  EVERYWHERE 

SRI 

TITER 

LXA,  1 

'■-I 0 P ME  X TOO  MANY  ITER  ATIOMS 

MPAC 
VLOAD 
TITER 
PAS  S3 
PDUL 
360 
UNIT 
P ACT  3 

PUSH 

36D 

1 2D 

3 00  RP  - RA  'MAGNITUDES 

DP HALF 

PUSH 

ELEV 

BMN 

300 

NORMEX 

COS 

DDV 

140 

120 

SINCE  COS ( 180- A ) =-COS  A 

280 

BDSU 

OPHALF 

VLOAD 

NCRMEX 

UNRM 

UNIT 

60  UN*RA 
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P34-P35,  P74-P7 r 

LOMAT  ..... 


35,3447  57576  1 LOMAT 


PEF 

6 (AST 

675 

35,3450 

02261 

0 

35, 3451 

2^00  7 

0 

REF 

1°  LAST 

6 75 

?5i 34c  2 

03536 

1 

KEF  7 LAST  677 


REF  10  LAST  673 
KEF  9 LAST  670 


REF  4 LAST  650 
REF  19  LAST  655 


REF 


P.EF 
REF 
R EF 


LAST  6t;5 


REF  8 LAST  677 

REF  28  LAST  666 

REF  3 LAST  656 
REF  LAST  ^ c 2 


LAST  635 


LAST  677 


35.3453 

35.3454 

35.3455 

35.3456 

35.3457 

35.3460 

35.3461 

15.3462 

35. 3463 

35. 3464 

35 . 346  5 

35.3466 

35.3467 
35,3470 

35.347  1 

35 . 3472 

35.3473 
35,3674 

35.3475 

35.3476 

35.3477 
3 5,36(0 
35,3501 
3 c , 3 5 ft  2 

35.3503 

35.3504 
3 5 , 3 5 C 5 
35,3506 


57456  1 
00015  0 
764  35  1 
02261  0 
00  001  0 
4 340 1 0 
00023  0 
65325  0 
06522  1 
02317  0 
41406  0 
4 50  2''  1 
03465  0 
27414  0 
71214  0 
Cl  673  1 
4305-  1 
73476  0 
01473  0 
45545  1 
63736  0 
73014  C 
. 00 6 3 1 
02777  1 
43014  0 
04303  0 
73507  1 
0 02  63  C 


GO  I NT 


INTINT 


VLOAO 

ST!  VI 

UN  I T 
STORE 

vxv 

STORE 

Set  po 

POOL 


push 

STQ 


CLEAR 

BZt 


DLOAO 

SEOUL 

SET 


BON 


REF 

6 

LAST 

656 

35 , 35C7 

25517 

0 ALLSET 

STOVE 

3^,3510 

77657 

0 

VS*:* 

35,3511 

57176 

0 

REF 

6 

LAST 

655 

35,3512 

25535 

0 

STOVL 

35,3513 

77657 

0 

VSR  * 

3 5 f 3 5 1 4 

57176 

0 

REF 

5 

LAST 

656 

35,3515 

35543 

0 

STC  ALL 

REF 

7 

LAST 

656 

3^,3516 

2 710  7 

1 

3C  ,3517 

52175 

0 

VLOAD 

REF 

15 

LAST 

675 

35,3520 

00001 

0 

REF 

5 

LAST 

677 

35 , 352  1 

03465 

0 

4 
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20 

E7  S3 

VCOMP 

UNRM 

60  Y 

R ACT 3 

VCCMP 

1 2D 

VSL  1 

UNP  M Z4-Y 

CO 

°VQ 

18D 

P DDL  DO 

ZEROVECS  NOT 

ngmt  P I 

PUS H ORDER  Ot;  INSERT  BEFORE  INTINT 

CALL 

RTRN 

INTSTALL 
DLOAD 
1NTYPFLG 
SET 
+ 2 

INTYPFLG 

STADR 

T DEC  1 

! XA  ,2 

MOCK FLAG 

RTX2 

CLEAR 

CMOONFLG 

ALLSET 

MCCNFLAG 

TET 


..z 


< 

i 

i 

( 

1 


0,2 

RCV 


0,2 

vcv 

TNTEGK  VS 
GOTO 
RATT 
RTRN 


I 


GAP:  AiSEimt  LVISJ  IN  00 1 OF  AGC  PRi  :GF  AM  APlll-OPE  3Y  I YU:  S 


L P • -P :■  , P7--  -P7r 

P0728  S34/35.5 

R 0729  SUBROUTINES  USED 

R 0730  BAN  KCALL 

R0731  GOFLASM 

P 07  3?  GOTOPOHH 

R 073  3 S 34/35. 3 

R 0734  S34/35.4 

R 073 5 VNPGOH 


0736 

35,3522 

43020 

l 

$34/35.5 

ST  Q 

07^  7 

REF 

1 Q 

1 AST 

t74 

3 S , 36  2 3 

03470 

] 

U 1 J I 

073  8 

RFF 

4 

LAST 

6 53 

35,3524 

01311 

0 

073° 

REF 

1 

35,3525 

73531 

1 

C74  0 

35,3526 

52014 

0 

SET 

0741 

PEF 

30 

LAST 

652 

35,3527 

00470 

1 

0742 

REF 

1 

35, 3530 

735  76 

1 

35,3531 

7 721 . 

o 

FLAGON 

CLEAR 

U I *+ j 

0744 

REF 

1 

35,3532 

03274 

0 

07441 

EF 

17 

LAST 

675 

35, 3533 

03434 

1 

07442 

REF 

2 

LAST 

105 

35,3534 

01237 

0 

STORE 

0744  3 

35,3535 

77  7 76 

1 

EXIT 

074  r 

REF 

3 

LAST 

653 

35,3536 

3 3727 

0 

+ 5 

CAF 

0746 

REF 

164 

LAST 

662 

35,3537 

0 4.6  16 

1 

TC 

0747 

REF 

14 

LAST 

662 

35, 3540 

20476 

0 

CADR 

074  8 

REF 

14 

LAST 

662 

35,3541 

0 6001 

0 

TC 

074c 

35,3>42 

0 3544 

1 

TC 

0750 

REF 

2 

LAST 

478 

35,3543 

0 35  37 

1 

TC 

REF 

3 

LAST 

513 

35,3544 

3 5016 

0 

+ 2 

CA 

075  I 1 

REF 

1 Q 

| A C T 

K or 

K.OS/  G 

g ^ o n b 

n 

TS 

-J  C.  ' J 

0751  2 

35,3546 

22  007 

0 

ZL 

07513 

REF 

14 

! A ST 

Q c Si  c/.  7 

]_ 

r a 

I_  M w 1 

O'J  c 

J 7 1 JO 

075  1 A 

REF 

1 3 1 

LAST 

612 

35,3550 

54  00  2 

1 

NTAP.GCHK 

TS 

0751  5 

REF 

182 

LAST 

678 

3 5,355  1 

50  0 02 

0 

INDEX 

07516 

PFF 

1 8 

LAST 

678 

35,3552 

4 1433 

0 

CS 

07517 

RFF 

183 

LAST 

678 

35,3553 

50  002 

0 

INDEX 

07518 

REF 

3 

LAST 

678 

35,3554 

6 1236 

1 

AD 

07519 

REF 

92 

LAST 

613 

35,3555 

26  001 

1 

ADS 

075  2 

REF 

134 

LAST 

678 

35,3556 

10  002 

1 

CCS 

07521 

REF 

1 

35,3557 

1 3550 

0 

TCF 

07522 

REF 

2 15 

LAST 

612 

3 5 , 356  0 

22  000 

1 

LXCH 

07523 

35,356 1 

0 C006 

1 

EXTEND 

07524 

35,3562 

1 3565 

0 

BZF 

07525 

REF 

37 

LAST 

629 

35,3563 

0 5504 

0 

TC 

0753 

REF 

2 

LAST 

678 

35,3564 

Of  146 

1 

ad;  es 

0754 

RFF 

78 

L AST 

666 

35, 3566 

0 6037 

0 

TC 

0755 

35 , 3566 

45014 

0 

BOFF 

0756 

RFF 

3 

LAST 

678 

35,3567 

03354 

0 

k 


3: 15  DEC 


050 


PAGE 


678 


. 2,1970  KISSING  . 


USER'S  PAGE  NO.  21 


E7  S3 


BON 

SUBEXIT 
FINALFLG 
FLAGON 
GOT  U 

U PD  AT  FI.  G 
FLAGOFF 
VLOAQ 
NTARGFLG 
DELVL VC 
GDI  / 2 

VC6N31 

BANKCALL 

GOFLASH 

GOTOPOOH 

+ 2 PRO 

FLAGON  +5  LOAD 

EBANK7 

E8ANK  TO  BE  SUP  E 


FIVE 

Q 

Q 

DELVLVC 

Q 

GDT/2 

L 

Q 

MTAPGCHK 

A 

+■  3 

UPFLAG 
NTARGFL G 

INTPEFT 

CALL 


GAP:  ASSEMBLE  Hr  VIS  1 IN  001 

L P34-P35,  P74-P75 

0757  REF  1 

0758  REF  1 

0759 

0760  REF  4 LAST  653 

0761  REF  8 LAST  675 

0762  REF  10  LAST  651 

0763 

0764  REF  1 

0765 

0766  REF  1 

0767  REF  16  LAST  663 

0768  REF  7°  LAST  6^8 

0769 

0770  REF  20  LAST  678 


agc  program  apii>ope  by  eyles 


,3570  73572  0 

,3571  73377  0 

,3572  77214  0 NOCHG  CLEAR 

, 3573  C 1 2 67  0 

,3574  02366  0 

, 357 c 03656  1 STOP  E 

,3576  77624  1 FLAGOFF  CALL 

,3577  734^2  1 

,3600  77776  1 EXIT 

,3601  3 372*  1 CAF 

,3602  0 3712  0 TC 

,3603  0 6037  0 TC 

, 36C4  77650  1 GOTO 

,3605  03470  1 


GF 

35 

35 

35 

35 

35 

35 

35 

35 

35 

35 

35 

35 

35 

35 


3:15  DEC.  2 , 

19  70 

KISS 

TNG 

.050  PAGE 

USER'S 

PAGE 

NO. 

22 
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NOCHG 
S34/35. 3 
VLOAD 
XOEL VFLG 
DELVEET3 
DEL VS  I N 

S34/35.4 

V 0 6 N 5 9 
VNPOOH 
INTPRET 


679 


SUBEXIT 


AP:  ASSEMBLE  REVISION  00 1 CF  AGO  PROGRAM  APIIROPE  BY  EYLES 


"9-t-L  3';  , PT  '-c7£ 


0771 

. VN1645 

0 / f / 

iUD  f • U 1 1IY  to  U > 

077  3 

P3X0RP7X 

077  A 

GET+MGA 

0775 

BAN KC ALL 

0776 

DEL  AY  JOB 

0777 

COMP  7 GO 

077  S 

GOFLASPT 

07  7 q 

GET  0 POOH 

r.7  r r 

R A G 1 i D 

0781 

35,3606 

71220 

1 

VN1645 

STQ 

0732 

REF 

21  LAST 

679 

35,3607 

0 3470 

1 

0783 

0 E F 

1 

39,3610 

33742 

0 

Q?84 

REF 

3 LAST 

614 

35 , 3611 

02253 

1 

STORE 

07  8 c 

3*6  T ? 

7 x ? i /.* 

0 

8f  FF 

0786 

REF 

5 LAST 

678 

35,3613 

01351 

1 

0787 

REF 

I 

35 , 3614 

73634 

1 

0788 

REF 

2 LAST 

6 8 C 

35,3615 

33742 

0 

0789 

35,3616 

7761  5 

0 

DAD 

07  9 C 

REF 

3 LAST 

6 30 

35,3617 

33742 

0 

0791 

RFF 

4 LAST 

680 

35,3620 

02263 

1 

STORE 

0792 

35, 3621 

77414 

0 

BOFF 

0793 

REF 

1 

35,3622 

01742 

1 

0794 

REF 

2 LAST 

680, 

35,3623 

.73634 

1 

0795 

REF 

1 

35, 3624 

0 3704 

1 

TC 

0796 

35,3625 

3 36  2 7 

1 

TC 

0797 

« EF 

3 LAST 

680 

33, 3626 

0 363  5 

1 

TC 

0798 

REF 

80  LAST 

679 

33,3627 

0 60  3 7 

0 

TC 

0799 

35,3630 

41575 

0 

VLOAD 

oeoc 

REF 

11  LAST 

079 

35, 3631 

03666 

1 

0801 

35 , 3632 

77624 

1 

CALL 

OR  0 2 

n FF 

1 

35 , 3633 

15717 

1 

0803 

35, 3634 

77776 

1 

GET45 

FXIT 

0804 

REF 

1 

35,3635 

0 2432 

0 

TC 

0805 

REF 

22  LAST 

680 

35, 3636 

3 1470 

0 

CA 

0806 

REF 

1 

35,3637 

55 ’464 

1 

TS 

0807 

0 E F 

6 LAST 

604 

35,3640 

3 477  7 

1 

CAF 

0808 

REF 

165  LAST 

678 

35, 364 l 

0 4616 

1 

TC 

080q 

REF 

11  LAST 

5 1 6 

35 , 3 64  2 

01735 

1 

CAD' 

0810 

P EF 

l 

35,3643 

3 3730 

0 

CAF 

0811 

REF 

166  LAST 

680 

35 , 3644 

0 4616 

1 

TC 

0612 

REF 

15  LAST 

673 

35,3645 

2 COlt 

0 

CAOR 

0813 

REF 

1 

35, 3646 

0 3651 

0 

TC 

0814 

REF 

1 

36,3647 

0 36  54 

0 

TC 

0815 

F EF 

1 

36,3650 

0 3664 

0 

TC 

0816 

REF 

13  LAST 

430 

35, 3651 

3 0005 

1 

KILCl OCK 

CA 

0817 

REF 

3 LAST 

650 

35,3652 

55' 163 

0 

TS 

USER'S  PAGE  NE 


23 


E7  S3 


DLOAO 

SUBEXIT 


OP-.Ol 
+ MG  A 

DLOAO 

FINALFLG 

GET45 

DP-.01 

MG A = -.01 

DP- .01 
+ MG  A 

EXIT 

R EFSMFLG 

GET45 

P3X0RP7X 

MG A = -.02 

+ 2 

GET45  +1 
INTPRET 

PUSH 

P3X 

P7X 

DEL VS IN 

GET+MGA 

COMPUTE  MG A 

CCMPTGO 

SUBEXIT 

QSAVED 

1 SEC 

BANK CAL L 

DEL  AY  JOB 

INITIATE  TASK  TO  UPDATE  TJOGO 

V16N45 

BANKCALL 

GOFL  ASH 

TRKMKCNT , TTOGO , + MGA 

K I L CLOCK 
N45PR0C 

Cl  UPDATE 

TERMINATE 

PROCEED 

RECYCLE  - RETURN  FOR  INITIAL  COMPUTATION 

Z 


GAP:  ASSEMBLE  REVISION  001 

L P3A-P35,  P74-P75 


OR  1 p 
081° 
0820 
0821 
0822 

0823 

0824 

0825 

0826 

0827 

0828 
082  ° 

0830 

0831 

0832 

0833 

0834 


REF  15  LAST  678 
REF  17  LAST  604 
PEE  38  LAST  556 

r EF  2 LAST  6 80 
° EF  26  LAST  519 

REF  38  LAST  678 
REF  6 LAST  680 
RFF  l*i  LA5T  680 
REF  4 LAST  6*0 
P.FF  27  l AST  681 

REF  81  LAST  680 

° EF  11  LAST  678 
■'FF  2 LAST  680 


OF  AGO  PROGRAM  AP11R0PE  BY  EYLES 


35. 3653 

35.3654 

35.3655 

35.3656 

35.3657 

35 . 3660 

35.3661 

35.3662 

35. 3663 

35.3664 

35 . 3665 

35.3666 

35 . 366  7 
35,3670 

35 . 367  1 

35.3672 

38.3673 


0 6001  0 
4 0076  1 
1 

0 000-6  1 
1 3651  1 
© 5353  1 
04024  0 
0 5504  0 
C 0047  1 
3 0005  1 
c 5 ' 1 63  0 
0 c 35  3 1 
04024  0 
0 6037  0 
52014  0 
00670  0 
0 34  6 4 1 


TC 

N45PR0C  CS 

MASK 

EXTEND 

BZF 

TC 

OCT 

T C 

AORES 

CLUPDATE  CA 
TS 
TC 
OCT 
TC 

CLEAR 


GOTOPOOH 

FLAGWPD2 

BIT6 

KII.CI.ncK 

PHASCHNG 
04024 
UPFLAG 
F I HAL ELG 
Z 

D1 SPDEX 

PHASCHNG 

04024 

INTPRET 

GOTO 

UPDATFLG 
0 SAVED 


( 


l 
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USER ' S PAGE  NO.  2^  E7  S3  1 

l 

..z 

EINALFLG  IS  SET-FLASH  V37-AWAI T NEW  PGM  ' 

SET  i 

FINALFIG 


GAP : ASSEMBLE  REVISION  Pol  Of  AGC  PROGRAM  API 1ROPE  BY  EYlES 

L P34-P35,  P74-°75 

P 083  c D I S PL  AY  F 

ROB 36  SUBROU  I 1MES  USED 

R 083  7 3 AM  KG  ALL 

R083P  GOFLASHR 

R 0839  GCTQPOOH 

R 0840  BLANKET 

R 08*+  1 END  QF  JOB 


0842 

35,3674 

0 

00  06 

1 

DISPLAYE  EXTEND 

0843 

REF 

1 2 

LAST 

676 

35 , 3675 

23 

*46  3 

I 

OXCH 

N ll  R M F X 

1 

IN  UiV  i A 

0844 

REF 

2 

LAST 

622 

35,3676 

3 

3724 

0 

CAF 

V06N55 

0845 

REF 

167 

LAST 

680 

35,3677 

0 

4616 

1 

TCR 

BANKCALL 

084  6 

REF 

16 

LAST 

680 

35,3700 

20476 

0 

CAOR 

GOFLASH 

0847 

PEF 

16 

LAST 

681 

35,3701 

1 

6001 

1 

TCF 

GOTO POOH 

0848 

A E F 

13 

LAST 

682 

35,3702 

0 

146  3 

1 

TC 

NOR ME  X 

0840 

3r ,3703 

1 

36  76 

1 

TCF 

-5 
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GAP:  ASSEMBLE  'E  VISION  001  UF  AGC  PROGRAM  APll-.GPt  BY  EYLES 


L °3A-P35»  P74-P7* 

P0853  P3X0RP7X 


085^  REF  2 LAST  246 

08ct  RFF  11  LAST  497 

0«56 
08*7 

0858  REF  185  LAST  678 

0859 

9 086  0 VNP0OH 

R 086  1 SU<v  nijiTMct  Ff> 

R 0862  BANKCALL 

RC863  GOFLASH 

R 0864  GCTOPOFH 

0865  35,9712  o 0 006  1 VNPOPH  EXTEND 


0866  REF  6 LAST  677  35,3713  23*465  1 QXCH 

0867  REF  3 LAST  630  35,3714  55*615  0 TS 

0868  KEF  4 LAST  683  35,3715  3 1615  1 CA 

0865  REF  168  LAST  682  35,3716  0 4616  1 TCf 

0870  REF  17  LAST  682  35,3717  20476  0 CADP 

0871  REF  17  LAST  68?  35,3720  1 *001  1 TCF 

0872  RFF  7 LAST  683  35,3721  0 1465  1 TC 

087?  35,37',2  1 3715  0 TCF 


3 3,37  04  3 774  4 1 P3X(  RP7X  CAF 


36.3705  7 1011  1 MASK 

35.3706  0 0006  1 EXTEND 

35.3707  1 3711  1 8ZF 

35.3710  24  002  0 I NCR 

35.3711  0 0002  0 RETURN 


HIGHO 

. * 

+ 2 

Q 


RTRN 

VERB  10.UM 

VER6N0UN 

BANK  CALL 

GOFLASH 

GOTOPOOH 

RTRN 

-5 


3:  15  DEC.  2 
USER  * 


,1970  KISSING  .050  PAGE 
S PAGE  NO.  26  F7  S3 


683 


GAP:  ASSEMBLE  -E  VISION  OC1  OF  A&C  PROGRAM  API LROPE  BY  EYLES 


L » 3 - P 3 5 , P7^  - ",:- 

P 0874  CONSTANTS 

0875 

0876 

0877 

0878 
087P 
0880 
0831 
088  ] 

088? 

088? 

0883 

0883 

0884 
0834 
0886 
0887 
08871 

08871 

08872 
08872 


3723 

01445 

0 

VQ6R37 

VN 

3724 

Cl  467 

0 

VO 65 55 

VN 

372  5 

01472 

1 

VO0NS8 

VN 

37  ?6 

01473 

0 

V06NC  0 

VN 

3727 

01521 

0 

V06N81 

VN 

3730 

04055 

0 

V16N45 

VN 

3731 

14441 

0 

TWO  PI 

2DEC 

3732 

37325 

1 

373  3 

000  01 

0 

MAX250 

2 DEC 

37^4 

2 06  50 

0 

3735 

12525 

0 

THIRD 

2DEC 

37  3 6 

12525 

0 

3737 

C0004 

0 

ELEPS 

2DtC 

374  0 

21505 

1 

3741 

17177 

0 

DP-.01 

OCT 

374  ? 

61337 

\ 

OC  T 

3743 

01252 

0 

EPSFOUF 

2DEC 

374  4 

25253 

1 

3 74  5 

13434 

0 

130DEG 

2DEC 

3746 

16162 

0 

3 5 

35 

3 5 

35 

35 

35 

35 

35 

35 

35 

35 

35 

35 

35 

35 

3 5 

35 

35 

3 5 

35 
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0637 

0655 

0658 

0653 

0681 

1 

6.233185307  B-4 
25  E 3 


.233333333 

.27777777  E-3 

77777  CONSTANTS 

61337  ADJACENT  -.01  FOR  MG  A DSP 

.04  If  666666 


3t  11111111 
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P 0888  INITVEL  

R 0889  MOO  NO  -I  LOG  SECTION  - PJ4-P35,  Pf.4~P75 

R08°0  MOO  BY  WHITE.P  OATE  21  NOV  67 

R 089 1 FUNCTIONAL  DFSC  T PTI ON 

R0892  THIS  SUBROUTINE  COMPUTES  THE  REQUIRED  INITIAL  VELOCITY  VECTOR  FOR 

ROOF  3 A T RA JECT  C ' Y OF . SP EC  I F I EO  TK ANSF Eft  TIME  BETWEEN  SPECIFIED  INITIAL 

R 089  A AND  TARGE*  POSITIONS.  THE  TRAJECTORY  MAY  BE  EITHER  CONIC  OR 

R 08  ’>  ‘ PRECISION  DEPENDING  ON  AN  INPUT  PARAMETER  (NAMELY,  NUMBER  OF 

R 0896  OFFSETS).  IN  ADDITTOM,  IN  THE  PRECISION  TRAJECTORY  CASE,  THE 

R 089  7 SUBROUTINE  ALSO  COMPUTES  AN  OFFSET  TAPGET  VECTOR,  TO  BE  USED 

R0898  DURING  PURE-CONIC  CROSS-PRODUCT  STEERING.  THE  OFFSET  TAPGET 

R0899  VECTOI  IS  THE  TER  I INAL  POSITION  VECT.Of  OF  A CONIC  TRAJECTORY  WHICH 

R 0900  HAS  THE  SAME  INITIAL  STATE  AS  A PRECISION  TRAJECTORY  WHOSE 

R 0°C 1 IFr  MI NAL  POSITION  VEC’T  IS  \ HE  SPECIFIED  TA)  GET  VECTOR . 

R 0902  IN  ORDER  Tf  AVOID  THE  INHERENT  SINGULARITIES  IN  THE  180  DEGREE 

R 0903  TRANSFER  CASE  WHEN  THE  (TRUE  OR  OFFSET)  TARGE!  VECTOR  MAY  3E 

R 0904  oUGHILY  OUT  OF  THE  IGGI1AL  PLANE,  THIS  SUBROUTINE  ROTATES  THIS 

R 090  5 Vi-CT-  I i A P LA:'  E nt>I  EL  BY  THE  INPUT  INITIAL  POSITION  VECTOR 

R 0906  AND  ANOTHER  I'PUT  VECTOR  (USUALLY  TEE  INITIAL  VELOCITY  VECTOR), 

R 0907  WHENEVER  THE  INPMt  TARGET  VECTOR  LIES  INSIDE  A CONE  WHOSE  VERTEX 

R 0908  IS  THE  ORIGIN  OF  COORDINATES,  WHOSE  AXIS  IS  THE  180  DEGREE 

R 0909  TRANSFER  DIRECTION,  AND  WHOSE  CONE  ANGLE  IS  SPECIFIED  BY  THE  USER. 

R0910  THE  LAMBERT  SUBROUTINE  IS  UTILIZED  FOf  THE  CONIC  COMPUTATIONS  AND 

R 09 1 I THE  COASTING  INTEGRATION  SUBROUTINE  IS  UTILIZED  FOP  THE  PRECISION 

R 09 1 2 AJFCT  1 v CCMPO  ’AT  f rOS. 

R 09 1 3 CALLING  SEQUENCE 


GAP:  ASSEMBLE  E VISION  001  Of  AGC  PROGRAM  AP11K[!PE  BY  EYLES  3:15  DEC.  2,1970 

L P34-P35,  074-P  75  USER'S  PAGE 


R09U 

L 

CALL 

R 09  1 5 

L +1 

INI  rVE  L 

R0°16 

L+2 

( 

RETURN  - ALWAYS) 

R 09 1 7 

INPUT 

P 091  ° 

( 1 ) 

RIMIT 

INITIAL  POSITION  : ADI  US  VECI'  • 

R 0919 

(2) 

V I N I T 

INITIAL  POSITION  VELOCITY  VECTOR 

R 0920 

(3) 

9TAR  G 

TARGET  orsiTTOM  RADIUS  VECTOR 

R 092  1 

(4) 

DELLT4 

DESIRED  TIME  OF  FLIGHT  FROM  PINIT  TO  RTARG 

R 0°  22 

(5) 

INTI  ME 

TIME  OF  PINIT 

R 092  3 

(6) 

OD 

NUMBEf  OF  ITERATIONS  OF  L AMBERT/ 1 NT  EGR  V S 

R092-F 

(7) 

2D 

ANGLE  10  180  DEGREES  WHEN  ROTATION  STARTS 

R 092  5 

(3) 

PTX1 

-2  FT"  FA’  T H , - 10D  FOR  LUNAR 

R 092  5 1 

(9) 

RTX2 

COORDINATE  SYSTEM  ORIGIN  - 0 FOR  EARTH,  2 EOT 

R 0926 

PUSHLOC  SET 

AT  4D 

LUNAR 


685 


AP:  ASSEMBLE  E VI  S I 3 N . 00  1 OH  AgC  PROGRAM  AP11RGPF  BY  EY1ES 


L 

P 34- 

P3S 

P74-P75 

R 09  2 7 

OUTPUT 

R092c 

( 1 ) 

RTARG 

LFFSFi  TARGET  POSITION  VECTCS 

R 0929 

(2) 

V I P 8 I ME 

MANEUVER  VELOCITY 

R E Q U i *•  ED 

R093C 

(3) 

VTP°.  I ME 

VELOCITY  AT 

TARGET  AFTER  MANEUVER 

R 0Q3 1 

(4) 

DELVFET3 

DELTA  VELOCITY  REQUIRED  FOR  MANKIVE' 

R 0932 

SUBROUTINES  USED 

R 093  3 

LAMBERT 

R 09  3 ^ 

INTSTALL 

R 093  c 

INTEGPVS 

0936 

REF 

1 

11 ,2000 

SETLQC 

INTV EL 

0937 

11,2000 

BANK 

093  P 

PEE 

1 

COUNT  * 

$ $/ IN  I TV 

0958 

7 7 H 1 4 

1 T f'  ] T V R 

SET 

1 1 * C.\J\f 

1 1 i V CL 

0959 

PEF 

1 

11,2001 

0C475 

i 

GUESSW 

096  0 

1 1 , 2002 

44  175 

1 HAVEGUES 

VLOAD 

STQ 

096  1 

REF 

fc 

LAST 

675 

1 1 , 2 U 0 3 

03444 

0 

RTAPG 

09  62 

REF 

14 

LAST 

682 

1 1 , 2004 

03463 

0 

MOP  ME  X 

096  3 

REF 

) 

11,2065 

03472 

0 

STORE 

FT  A TGI 

09631 

1 1 , 2;’0- 

7 7646 

0 

ABVAL 

0963  2 

REF 

2 

LAST 

143 

11  , 2007 

03723 

1 

STORE 

RTMAG 

0964 

11,2010 

46135 

1 

SLOAD 

BHI  Z 

0965 

REF 

5 , 

LAST 

677 

11,2011 

03000 

1 

RTX2 

0967 

REF 

1 

11,2032 

22026 

0 

INITVELI 

096  8 

11,2013 

72575 

0 

VLOAD 

VSL2 

096° 

REF 

3 

LAST 

67  3 

11, 2014 

02323 

} 

o i n I T 

0970 

REF 

4 

LAST 

636 

11,2015 

26323 

1 

STOVL 

R I N I T 

0971 

REF 

3 

LAST 

674 

1 1 , 20  16 

02331 

1 

V I N I T 

0972 

1 1 , JAl 7 

77  74? 

1 

\/  C | ? 

life  1 1 

f i • ^ c 

I 

V O 6 

0973 

REF 

4 

LAST 

686 

1 1 ,2020 

2 6 331 

1 

STOVL 

V I N I T 

0°74 

REF 

2 

l AST 

686 

11,2021 

03472 

0 

° TAP  G1 

0975 

1 1 ,2022 

77752 

1 

VS  L 2 

0976 

REF 

3 

LAST 

686 

11, 2023 

03472 

0 

STORE 

AR  G 1 

09761 

1 1 , 2024 

77646 

0 

ABVAL 

09762 

REF 

3 

LAST 

686 

11,2025 

03723 

1 

STORE 

RTMAG 

R 0977 

INITIALIZATION 

0978 

1 1 , 2026 

7 13  31 

0 initveli 

SSP 

□ LOAD 

097° 

REF 

1 

1 1, 20  2 7 

03617 

1 

I TCTR 

0980 

1 1, 2030 

77776 

1 

0 -1 

0981 

11 ,2031 

70546 

1 

COSINE 

SRI 

098  2 

REF 

1 

1 1 , 2032 

17667 

0 

ST  GDI 

C0ZY4 

0983 

11 , 2033 

67154 

0 

L X A , 2 

S X A , 2 

0984 

REF 

281 

LAST 

668 

11 ,2034 

001 54 

1 

M°AC 

0985 

REF 

2 

LAST 

125 

1 1 , 2035 

02701 

0 

VTARGTAG 

0986 

1 1,2036 

77775 

1 

VLOAD 
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COGA  GUESS  MOT  AVAILABLE 


B 29 
B 27 
B7 

B 5 


SFT  ITCTR  TO  -1,L0AD  MPAC  WITH  F ^ (PI  20) 

CALCULATE  COSINE  <E4)  (+2) 

SET  COZY 4 TO  C JSINE(E4)  (PL  00) 


SET  VTARGTAG  TO  00  (SP) 


GAP: 


ASSEMBLE  . E V I S I )N  GO  1 OF  AGC  PRQGoAM  AP11ROPF  BY  EYLES 


L P34-P35, 


0987  REF  5 

0988  REF  3 

0989  REF  4 

0990  REF  2 

0991  REF  5 

0992  »FF  2 

0993 

0994 

0995  REF  6 

0994 

0997 

099  8 REF 

0999  REF  2 

1000  REF 

1001 
1002 

1003  REF  2 

100-1  REF  1 

1005  REF 

1006 

1007  REF  1 

1006  REF  2 

R 1009  0TA1 


LAST  686  11,2037 

LAST  125  11,2040 

LAST  686  11,2041 

LAST  12  5 11,204  2 

LAST  673  11,2043 

LAST  l?c  1 l ,7044 

1 1,2045 
1 1 ,2046 
LAST  , 687  11,2047 

1 1 . 2050 

11 . 2051 
LAST  686  1 1 ,2052 

LAST  125  11,2053 

LAST  687  11,2054 

1 1,2055 
11,2056 

LAST  636  11,2067 

11,2060 
LAST  687  11,2061 

1 1 , 2062 
11 ,2063 
LAST  687  11,2064 

RC  INTO  YC  PLANE  - 


02323  1 
26655  0 
03472  0 
16663  0 
03452  1 
02671  0 
77201  1 
0(001  0 
02323  1 
41456  0 
53435  0 
02331  1 
26674  0 
03472  0 
5C256  0 
43015  1 
03667  0 
03665  1 
03667  0 

43044  0 INITVEL2 
22105  0 
034 65  0 

SET  UNIT  NORMAL  TO 


1010 

1C1 1 
1012 

1013 
1016 

1014 

REF 

REF 

3 

3 

LAST 

LAST 

687 

687 

1 1 ,2065 
11, 2066 

1 1 , 2067 

1 1 , 2070 

I 1,2071 

II  an  7 7 

41575 

02663 

63246 

46206 

02674 

c;  1 -i  c;  3 

0 

0 

1 

1 

0 

Ilf  C\J  I c 

I 

1016 

11,2073 

74256 

0 

1017 

11,2074 

77  772 

0 

1018 

REF 

4 

LAST 

6 87 

1 1 , 207  5 

.02663 

0 

1019 

11,2076 

67351 

1 

1020 

REF 

2 

LAST 

37 

1 1,2077 

•24007 

0 

1021 

REF 

2 

LAST 

6 86 

11,2100 

03617 

1 

1022 

11,2101 

77244 

0 

1023 

REF 

2 

LAST 

687 

11,2102 

22105 

0 

1024 

REF 

5 

LAST 

6 87 

1 1 ,2103 

02663 

0 

1025 

REF 

6 

LAST 

687 

1 1 , 2104 

03472 

0 

1026 

1 1 ,2105 

63345 

0 

1027 

R EF 

1 

11,2106 

2600  7 

1 

1028 

REF 

6 

LAST 

687 

1 1 ,2107 

02663 

0 

102802 

11,2110 

63256 

0 

102E 04 

REF 

4 

LAST 

687 

11,2111 

02655 

0 

102806 

11,2112 

414  5a 

0 

1028  0 P 

11,2113 

57435 

1 

1028  1 

11,21 14 

00003 

1 

1026  2 

11,2115 

77606 

1 

10283 

11,2116 

71350 

1 

III  ITVEL3 


STOVL 

STOOL 

STORE 

SETPD 


UN  1 T 
VXV 

STOVL 

UNIT 

DAO 


S ' ir  E 
BP  L 


YC 

VL  CAD 

ABVAL 

PUSH 

VSL  2 
UNIT 
VSL  1 
S f 
TLOAD 


BPL 


STORE 
Cl  uAD 


UNIT 

UNIT 

VXV 

PUSH 
L X A , 1 
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RINIT 

R.1VEC  R1VEC  EQ  RINIT 

RTARG1 

>•  2VEC  P2VEC  EQ  f-TAPG 

0EL1.T4 

TDESTPED  TOES  I E ED  EQ  DEL IT ® 

V LOAD 

OD  INITIALIZE  PL  TP  OD 

R I N I T MPAC  EQ  F INIT  ( +29 ) 

PUSH  UNITIRI ) (+1 ) (PL  60) 

UNIT 

VINTT  MPAC  EQ  UTIT(RI)  X VI  (+8) 

UN 

RTARG1 

DOT  TEM  P = URT . UR  I (+2)  (PL  OD) 

C L E A R 

CCZY4 

NORM  SW 

C0ZY4 

SET 

INITVE1.3  UN  CALCULATED  IN  LAMBERT 

NORMS  W 


PUSH  (PL  6D ) 

P2VEC  RC  TO  6 D ( + 29) 

PDVL  RC  TO  MPAC,  ABVAL(RC)  (+29)  TO  GD(PL  2D) 

VPRCJ  (PL  8D ) 

UN 

BVSU 

VXSC  (PL  OD) 

F 2 V E C 
SLPAD 
Z EROVEC 
ITCTR 
V LOAD 
INITVEL3 


P 2 V EC 
R TARG1 


PDVL 

(PL  2D) 

MUEAPTH 

R2VEC 

POSITIVE  VALUE 

PDVL 

R1VEC 

2D  = UNIT  C R2V  EC ) 

(PL  8D ) 

PUSH 

3Q  = UM  1 T ( 1 V E C ) 

(PL14D) 

VC  COP 

2D 

OLOAD 

-N  = UNIT  (P2VEC)  X UNIT(  HVEC) 

( PL  20  D ) 

ASSEMBLE  REVISION  001  OF  AGC-  PROGRAM  API  1 .OPE  BY  EYLES 


GAP  : 

L P34-P35,  P74-P75 


10284  RFF  7 

10285 

10286 
102  8 7 
102  R 6 
1C28« 

102q 

10291  REF  14 

1029  2 

10293 

102  9 6 

1029  5 

10296 

1032 

1033  J:F  1 

1034 
1 03  c 
10  36 

1037  REF  2 
R 1038  SET  I! 


LAST  662  11,2117 

11,2120 
11,2121 
11,7122 
11,2123 
11 , 2 1 2' 
11,2125 
LAST  665  11,2126 

11,2127 
11,2130 
11,213  l 

11.2132 

11 . 2133 

11.2134 

11.2135 

11.2136 

11 .2137 
1 1 ,2140 

LAST  125  11,2141 

UTS  UP  for  lambept 


02776  0 
00023  0 
62  04  Li  1 
22124  0 
77767  1 
67310  1 
0C012  1 
0 0047  1 
77230  0 
22132  1 
41476  1 
777 75  1 
5 02  3 5 0 
71244  0 
22137  1 
4-1476  1 

■■71!  - 0 r n VEL4 
00000  1 
02672  0 


RTXl 

180 

BMN  I NCR , 1 
+ 2 

DEC  -8 
I N C R , 1 SLOAO 

10D 

XI 

BHIZ  V LOAD 
+ 2 

VCGMP  PUSH 
VLOAD 

VXV  OOT 
BPL  DLOAD 

I N I T V E L z 
DCUMP  PUSH 
L X A , 2 S X A , 2 
OD 

GEOMSGN 


1039  11,2142  45140  1 LXA,l  CALL 

1040  REF  8 LAST  688  1 1,214-3  02776  0 RTXl 

R 104  1 C PEP  ATE  THE  L A MB  E T Clf!IC  ■ JTJMe  (COAStFLt  SUBROUTINE) 

1042  *R  E F 1 11,2144  23765  1 SET  I TC  TR 

A 1043  * 


P 104  4 AFPHVED  AT  SnUJTTPM  rs  nnno  F’  IGF  ACCORDING  TO  SLIGHTLY  V\  I OER  BOUNDS. 


1045 

1046 

1047 

R 1048 

R 1049 

REF 

9 

1 ACT 

AAA 

1 1 ,2145 

1 1 . 9 1 A A 

77214 

n r a 7 e 

0 

n 

CLEAR 

VLOAD 

fjicccu 

REF 

STORE 

8 LAST  663 
CALCULATED  INI 

11,21'  7 02744  1 

IAL  VELOCITY  EQUPEO 

IN  VI  PR  IMF 

\J  U u O o V\ 

VVEC 

1C  >< 

REF 

3 

LAST 

663 

11,2150 

16337 

i 

STODL 

VIPRIME 

R 1051 

P 1052 

IF 

MIMTT  TS 

L ERG , 

CCNT  TNU F 

AT  V M T T\/  r \ P . 

niMFCUI SF 

•V  ■ • 1 I.  } \ L_ 

> v w 7 

R 1 053 

SET  UP 

INPUTS 

for  encke  integration 

( INTEGRVS ) . 

1054 

D FF 

3 

LAST 

686 

11 ,215  1 

02702 

0 

VTACGTAG 

1055 

11,2152 

45030 

0 

BHIZ 

CALL 

1056 

REF 

1 

1 1,2153 

22230 

0 

I N IT  V EL. 7 

1057 

. REF 

20 

LAST 

677 

11,2154 

27414 

0 

INTSTAl 1 

1061 

11  ,2155 

43135 

1 

SI.  0 AD 

CLF  AR 

106  2 

PET 

e- 

LAST 

686 

11,2156 

0 3000 

1 

F TX 2 

1063 

P EF 

9 

LAST 

677 

11,21  5 7 

002  63 

0 

MOONFLAG 

1064 

11 ,2160 

43030 

0 

BHIZ 

SET 

1065 

REF 

1 

11,2161 

22163 

0 

INITVEL5 
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( P L 1 4-0  ) 

( PL20D) 
( PL14D) 
! P L 2D) 
(PL  OD) 

(PL  2D) 


GO  TO  END  OF  BANK  TO  SET  ITERC.TR  BEFORE 
CALLING  LAMBEPT  (FOR  R EMANWF ACTUF E ONLY) 


INITIAL  VELOCITY  REQUIRED 


(+7) 


GAP: 


ASSF  -UK  i * . E V I S I >’J  N QOl  OF  AGG  PROGRAM  API  1 CPF  8Y  EYLES 


L P 34— P 35 , P74-P75 


lOot 
1067 
1(16  8 
1 
1 

1071 

1072 

1073 

1074 

1075 

1076 

1077 

1078 
1070 
1080 
1081 
1082 

P 1^87 
R 1084 


REF  6 LAST  68*  11,2162  00063  1 

11,2163  77775  1 INITVEL5  VLOAD 


REF  7 LAST  687  11,2164  02323  1 

REF  5 LA':"  687  11,2165  02655  0 STORE 

R EF  7 LAST  677  11,2166  25535  0 STOVL 

PFF  4 LAST  688  11,2167  02337  1 

REF  6 LAST  677  11,2170  15543  1 STOOL 

REF  5 LAST  673  11,2171  03610  0 

REF  7 LAST  677  11,2172  01517  0 STORE 

11,2173  43015  1 CAD 

OFF  LAST  4>-7  1 1,2174  03452  1 

REF  <9  LAST  677  1 1,2178  01673  1 

REF  29  LAST  677  11,2176  34041  0 STC ALL 

REF  3 LAST  677  11,2177  27107  1 

11,2200  77775  1 VLOAD 

REF  « LAST  656  11,2201  0C025  0 

REF  2 LAST  125  11,2202  02703  1 STORE 


IF  PF-iATTCL'  COtMPfp-  ( r f(;  r ) En  no.  TTEPAOKNS  { MUNI!  ) 
IMITVELC,  OTHERWISE  REITERATE  LAMBERT  AND  ENCKE 


108  5 
108  6 

1087 

1088 
1089 
lO^C 

1091 

1092 

109  3 

P 1094 

REF 

3 

LAST 

6 87 

1 1 ,2203 

1 1,2204 
11,2205 

1 1 7 206 

63154  ! 
03616  ( 
0GCC1  f 
56174  ■ 

REF 

REF 

4 

4 

LAST 

LAST 

689 

688 

11, 2207 
11,2210 

11 , 22  1 1 

1 1, 2212 
11,2213 

J -J  1 J 

03616  ( 
02701  ( 
46135  ] 
6.  CO  5 0 ] 
22225  ] 

REF 

REF 

9 

1 

LAST 

656 

R 109  5 

OFFSET 

CONIC 

TAP  GET 

VECTOR 

LX  A , 2 


S X A ,2 


SLUAO 


1096 

1 1,2214 

52375 

1 

VLuAD 

10r  7 

REF 

7 

1 AST 

687 

11,2215 

0 34  72 

0 

1098 

RFF 

5 

LAST 

656 

11,2216 

0C017 

1 

1099 

11,2217 

776  55 

1 

VAD 

1100 

REF 

7 

LAST 

687 

11,2220 

02663 

0 

lib  i 

REF 

8 

LAST 

689 

1 1,2221 

16663 

c 

STODL 

1102 

R:£F 

4 

1 A ST 

6 8 7 

036  67 

n 

. y 

1 M ■„>  I 

u 

1103 

1 1 ,2223 

776  5 0 

i 

GOTO 

1104 

REF 

i 

11 ,2224 

22062 

0 

R1105 

COMPUTE 

THE  DELTA 

V E L nc t T Y 

1106 

1 1 ,2225 

77775 

1 

IN  IT VEL6 

VLOAD 

1107 

REF 

9 

LAST 

68  9 

11,2226 

02663 

0 

1 1 0 c 

REF 

8 

LAST 

689 

t 1 , 2227 

0 34  72 

0 

STORE 

1109 

1 1,2230 

52375 

1 

INITVEL.7 

VLOAD 

1110 

REF 

5 

!.  AST 

6P9 

11,2231 

02337 

1 

mi 

REF 

6 

LAST 

687 

1 1 ,2232 

02331 

1 

1112 

REF 

9 

LAST 

679 

11,2233 

26366 

0 

STOVL 

MOONFLAG 

. INI  T 
; 1VEC 
R C V 

VIPR1ME 

VCV 

INTI  ME 

TET 

CLEAR 

DELLT4 

TNTYPFl 0 

TDEC  ] 

INTEGRVS 

V ATT  1 
VTARGET 

, continue 


1 NCR , 2 
I TCT> 

ID 

X SU  , 2 

ITCTR 

vr argtag 

BHIZ 

X2 

i NT  TV  El i 


V SU 

F.TARG1 

R A T T 1 

R2VEC 
P.2VEC 
COZY  4 

INITVEL2 


R2VEC 

RTARG1 

VSU 

VI  PC  TME 

VINIT 

DELVFET3 
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AT 


INCREMENT  ITCTR 


IF  SP (MP AC ) EQ  0,  CONTINUE  AT  INITVELC 


CONTINUE  I TET  ATT  N;G  AT  INI  TV  EL  2 


DELVE  ET3 


VIP.RIME-VINIT 


( +7  ) 


GAP:  ASSEMBLE  REVISION  C )1  OF  AGO  FRCjgP  AM  AP11ROPE  BY  EYLES 


L P34-P35,  P?^-?T5 


1113 

REF 

3 

LAST 

689 

11,2234 

C 2703 

1 

1 1 14 

REF 

2 

LAST 

663 

1 1 , 2235 

03566 

1 

1115 

11,2236 

461 3 5 

1 

1116 

REF 

7 

LAST 

688 

11 ,2237 

03000 

1 

1117 

REF 

1 

1 1,2240 

22255 

0 

11171 

1 1,2241 

7 0575 

1 

11172 

REF 

3 

LAST 

690 

1 1 , 2242 

03566 

1 

1 1 1 B 

REF 

4 

LAST 

690 

11,2243 

27566 

1 

1119 

REF 

6 

LAST 

689 

1 1,2244 

02337 

1 

1120 

11,2245 

77742 

0 

1121 

R E F 

7 

LAST 

690 

1 1,2246 

26337 

1 

1122 

R F F 

Q 

LAST 

11 ,2247 

03472 

0 

1123 

11,2250 

77742 

0 

1124 

REF 

10 

LAST 

690 

1 1 , 225  1 

27472 

0 

1125 

REF 

10 

LAST 

639 

11 ,2252 

02366 

0 

1126 

11,2253 

77742 

0 

1127 

REF 

1 1 

LAST 

690 

11,2254 

02  366 

0 

1 1 2B 

11,2256 

70750 

11281 

REF 

9 

LAST 

688 

1 1, 2256 

02776 

0 

11282 

REF 

1 

11,2257 

1C003 

0 

112325 

11,2260 

41206 

0 

1128  3 

REF 

3 

LAST 

648 

11,2261 

02742 

1 

112  6 4 

11,2262 

56  342 

1 

117  8 5 

P £F 

4 

LAST 

648 

11,2263 

0 004 1 

1 

11286 

REF 

2 

LAST 

143 

1 1 , 2264 

17  721 

0 

11287 

1 1,2265 

77661 

0 

112871 

1 1, 2266 

2C607 

1 

112876 

REF 

2 

LAST 

14  3 

11,2267 

03717 

0 

11230 

11 ,2270 

77201 

1 

1129 

1 1,2271 

00001 

0 

1130 

REF 

1 1 

LAST 

690 

1 1,2272 

03472 

0 

1131 

REF 

7 

LAST 

6 36 

1 1,2273 

37444 

1 

1134 

REF 

15 

LAST 

686 

11,2274 

03463 

0 

R 1136 

R 1 1 3 6 END  OF  ID  TTVEL  ' UTINE 


STORE 

SLOAD 


VLOAD 

STOVL 

VSR,? 

STOVL. 

VSR2 

STOVL 

VSP? 
STORE 
IMTTVFLX  L X A , 1 


PUSH 

S 1 

STOOL 

SP 

STORE 
SET  PD 


STCALL 


3:15  DEC.  2,1970  KISSING  .050  PAGE  690 
USER • S PAGE  NO.  33  E7  S3 


VTARGET 
VTPR I ME 
BHI  Z 
PTX2 

INITVELX 
VSR  2 
VTPR IMF 
VTPP I ME 
VIPRJME 

VIP  I ME 
RTARG1 

RTARG1 

DELVEET3 

DEI.  VEET3 

DL0AD4 

RTX1 

MUTABLE  -2,1 

DMP 

P 1A 

ODV 

R 1 

MU/A 

6 

MUA STEER 

VLOAD 

CD 

RTAPG1 

RTARG 

NORMEX 


i 


» 


I 

GAP: 

L 

P 1137 

R 1138 
R 1 1 3 o 

R 1 140 
R1141 
R 1142 
R 1143 
R 1 1 4-4 

R 1145 

R 1146 

R 1147 
R 1 1 4 ° 
R 1 1 50 
R 1 1 5 1 

P 1152 

R 1153 

R 11  54 
R 1 1 55 
R 1156 

R1157 

R 1 1 58 
P 1159 
R 1160 

R 1161 

R 1162 

s-  R 1153 

R1164 


I 

ASSC’-'BL  E , i VISION  001  F AGO  P-  GGKAM  AP11R0PE  BY  EYLES  3:  15  DEC.  2,1°70 

P3^-P35,  P74-P  75  USE^S  PAGE 

MIDGIM  

Mui)  MU.  0,  BY  WILLMAN,  SUBROUT  INE  RENDGUID,  l OG  P34-P35,  P74-P75 
REVISION  03,  17  FEB  67 

I 

IF  THE  ACTIVE  VEH^CIE  DHIMG  THE  C nMP UT  AT  T ON , MIDGIM  COMPUTES 
THE  POSITIVE  MIDDLE  GIM8AL  ANGLE  OF  THE  ACTIVE  VEHICLE  TO  THE  INPUT 

DELTA  VELOCITY  VECTOR  (OD  IN  PUSH  LIST),  OTHEt  WISE  I 

1 1 0 G I M .CONVERTS  THE  INPUT  DELTA  VELOCITY  VECTO!  FROM  INERTIAL  COORDIN- 
ATE- TO  I.  OCA  l VEr-viCAL  Crip  01  I AT  F S OF  THE  ACTIVE  VEHICLE. 

I 

. . INPUTS  . . 

NAME  MEANING  UN  I T S / SC AL I NG/MODE  I 

AVFLAG  INT  FLAG  - 0 TS  CS  ' ACTIVE,  1 IS  LEM  ACTIVE  BIT 

ETNIT  ACTIVE  VEE  ICI.E  RADIUS  VECTO  • METE  S/CSEC  (+7)  VT 

VINIl  ACTIVE  VEHICLE  VELOCI'Y  VECTOR  MpTEFS/CSEC  (+7)  VT 

OD  (PL)  ACTIVE  VEHICLE  DELTA  VELOCITY  VECTOR  METERS/CSEC  (+7)  VT 

. . OUTPUTS  . . 

NAME  MEANING  UNITS/SCALING/MODE 

+MGA  + MIDDLE  GIMBAL  ANGLE  REVOLUTIONS  (+0)  DP 

DFLVLVC  DELTA  VELOCITY  VECTOR  IN  LV  COORD.  METERS/CSEC  (+7)  VT 

MGLVFLAG  T NT  FLAG  - 0 IS  +HGA  COMPUTED,  1 IS  DELVLVC  COMP.  - BIT 

..  CALL  ING  SEQUENCE  .. 

L CALL 

L+l  MIDGIM 

L+2  (RETURN  - ALWAYS) 

..  NO  SUBROUTINES  CALLED  .. 

..  DEBRIS  - EL  AS  CABLE  TEMPORARY  USAGE 

A , Q , L » PUSH  LIST,  MPAC. 

..  ALAR  MS  - NONE  .. 
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P34-P35,  P74-P75 

165 

MIDDLE  GIMBAL  ANGLE 

COMPUTATION. 

166 

REF  l 

06 i 2000 

167 

06,3715 

168 

° EF  1 

BY 


1 1 6 

06 , 3715 

20000 

0 

11 

06,3  716 

COOOO 

1 

117< 

06,3717 

535  75 

0 

117*  r 

06,3720 

77656 

1 

1177 

n* ,3721 

7 2441 

0 

1178 

REF 

16 

LAST 

592 

06,3722 

01742 

1 

1 1 ' 

06,3723 

51136 

1 

1 L 

REf 

1 

06,3724 

15730 

1 

1181 

05,3725 

43215 

0 

l I l 

PEF 

1 

06,3726 

15716 

0 

11^ 

PEP 

? 

I ST 

6 Ci2 

0 6 , 3 7 2 7 

l r 7 1 £ 

n 

1184 

REF 

5 

LAST 

680 

06,3730 

02253 

i 

1 1 

06,3731 

43414 

i 

1186 

REF 

1 

06,5732 

02675 

i 

119  1 

06,3733 

5 3 5 75 

0 

117 

REF 

8 

LAST 

689 

06,3734 

0232  3 

1 

1193 

06,3735 

77676 

0 

I 1 

96,3736 

C 002 3 

0 

1195 

06,3737 

53435 

0 

1196 

REF 

7 

LAST 

689 

06,3740 

02331 

1 

1197 

, 374  1 

00015 

0 

11  - : 

96 , 3742 

53435 

0 

1 ] 

0 a t 7 a 3 

00023 

0 

1? 

06,3744 

24  007 

0 

1201 

06 , 3745 

00001 

0 

1202 

HA  - A 

7 A R 9 1 

1203 

06, 37* 7 

00007 

0 

1204 

REF 

19 

LAST 

678 

06,3750 

03434 

1 

1205 

06,  575  1 

- i 

1 

1206 

REF 

2 

LAST 

692 

06,3752 

02475 

0 

1207 

END  OF 

MIDGIM  ROUTINE 

HALFREV 

GET+MGA 


SETMGA 


GFT.LVC 


YL.ES 


3: 15  DEC 


050 


PAGE 


692 


. 2 » 1970  KISSING  . 


USER'S  PAGE  NO.  35 


F7  S3 


SETIOC  MIDDGIM 
BANK 


COUNT*  $$/MIDG 


2 DEC  1 6-1 

VLuAD  UNIT 
UN  I T 

DO-*  s L 1 

REFSMMAT  +6 
APCSIN  B PL 

SETMGA 
DAD  DAD 

HALFPEV 
HALF- EV 
STORE  +MGA 
CLP  RVQ 

MGLVFLAG 
V LOAD  UNIT 
:•  I N I T 

VCOMP 

STORE  18D 
VXV  UNIT 
V INI  T 

STOP  E 1 2D 
VXV  UNIT 

ill 

STOVL  6 D 
OD 

MXV  VSL 1 
6D 

STORE  DELVLVC 
SET  PVQ 

MGLVFLAG 


( PL 

0 0 

! V 

(+7  ) 

TO  MPAC, 

UNITIZE 

UV  ( +1 ) 

DOT 

OV 

WI 

TH 

Y( 

STABLE  MEMBER)  AMD 

RESCALE 

FROM 

+ 2 

TO 

+ 1 

FOR  ASIN 

ROOT  INF 

CONVERT  -MGA  TO  +MGA  BY 
ADDING  ONE  REVOLUTION 


CLEAP  MGLVFLAG  TO  INDICATE  +MGA  CALC 
AND  EXIT 

(PL  6 D ) - (+2R)  TN  MPAC,  UN  I T I Z E UR 

U<-RI 

U(-P)  TO  18D 

U(-R)*V  EO  V*U(R),  U ( V*R ) 

U ( V*R ) TR  12  D 

U ( V * R ) *U  < -R ) , J ( ( V*R) * ( -R ) ) 

TRANSFORMATION  MATRIX  IS  IN  6D  (+1) 
DELTA  V ( +7 ) IN  OD 

CONVERT  FROM  INER  COOP  TO  L Vj  COOF  (+8) 
AND  SCALE  +7  IN  MPAC 
STORE  IN  DELVLVC  (+7) 

SET  MGLVFLAG  TO  INDICATE  LVC  CALC 
AND  EXIT 


GAP : 

ASSEMBLE  REVISION  001  OF  AGO  PROGRAM  A?l UGPE  BY  EYLES 

3:15  DEC.  2, 

1970 

KISS ING 

.050  PAGE 

L 

P34-P35 , P74-P75 

USER ' S 

PAGE 

NO.  3* 

E7  S3 

P 1208 

120S2  10,2000 
120R4  REF  1 10,2000 
12C86  10,2000 
12088  P.EF  1 


BANK  10 
SETLOC  SLOT MU 
BANK 

COUNT*  $$/M I DG 


120° 

1210 
121 1 
1212 

1213  REF 

1214  ° FF 

1215 

1216 

1217 

1218 

121°  p FF 
122C  R# 

1221  REF 

1222  REF 

1223 

122*  REF 
1225  REF 
12?  ^ 

1227  R FF 

1228 

1229  REF 

1230  REF 
123* 

1238  » EF 


* L AS~  677 
T 


2 LAST  690 

0 LAST  690 
4 LAST  635 

3 LAST  693 

6 LAST  693 

1 

4 LAST  648 

8 LAST  69 G 

7 LAST  6.8  1 

6 LAST  66* 


10,2000 
10,2001 
10,2002 
10, 20C  3 
10,2004 
10, POO* 
10,2006 
10,2007 
10, 20 1 0 
10,201  1 
1 n , 2012 
10, 201  3 

10.2014 

10.2015 

10.2016 
19, 20  17 
10, 2020 

19.2021 

10.2022 

10. 2023 

10.2024 

10.2025 

10.2026 
10,2027 


77160  0 
00002  0 
ooo oo  i 

776 1*  1 
043*3  1 
20011  0 
77160  0 
00012  1 
<.■0002  0 
66143  1 

icon  0 

02776  0 
22317  1 
10003  0 
54214  1 
04343  1 
20022  0 
20607  1 
02321  0 
43134  0 

027 77  1 
01 271  1 
77650  1 
73606  0 


SEL  ECTMU  AXC  , 1 AXT,2 
2D 
00 

BE  FF 

CMCONFLG 
SETMUEP 
AXC , 1 A XT , 3 
10D 
20 

SETMUER  DLOAD*  SXA.l 

MUTABLE  +4,1 
RTX1 

STOOL*  RTSR1/MU 

MUTABLE  -2,1 
BOFF  SR 

CM0ONFLG 
f TRNMU 
60 

RTRNMU  STORE  RTMU 
S XA  , 2 CLEAR 
RTX2 

FTNAl.FLG 

GOTO 

VN1645 


693 


KISSING  .050  PAGE 
NO.  37  E7  S3 

P 12  36  PER  I APO  

R 1237  300  • -1  U'b  SECT  )'’  - P 34-P35,  P74-P75 

P 12  3 P MOO  BY  WHITE. P 0 AT  F 1 JAN-‘  ' 

R 123°  FUNC"  IONA  I DE  ? C'  1 P T 1 1 

R 1240  THIS  SUBROUTINE  COMPUTES  THE  TWO  BODY  APOC  ENTER  AND  PEPICENTER 

R 1241  ALTITUDES  GIVEN  THE  POSITION  AND  VELOCITY  VECTORS  FOR  A POINT  ON 

P 1242  THE  TRAJECTORY  AND  TFE  P-'  I HAP.  Y BODY. 

P 1243  SET  ' AD  IS  CAUEO  T r-  i F THE  'ADDS  OF  THE  PRIMARY  BODY. 

R 1244  APSIDES  IS  CALLED  TO  SOLVE  FOR  THE  TWO  BODY  RADII  OF  APOCENTEp  AND 

RI2^-5  PEP  ICENTER  AND  TFE  ECCENTRICITY  OF  THE  TRAJECTORY. 


GAR:  ASSEMBLE  T V I S I LN  OCI  CF  AGC  PA:.  G ! AM  API  1 .OPE  BY  EYLES  3:15  DEC.  2,1970 
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R 1 246  CALLING  SEQUENCE 


R 1247 

L 

CALL 

R 1248 

l.  + l 

PER  I APO 

R 1249 

L+2 

(RETURN  - ALWAYS) 

P 12  50 

INPUT 

R 1251 

R 1252 

( L ) 

R VEC 

POSITION  VECTOR  IN  METERS 

SCALE  FACTOR  - EARTH  +29,  MOON  +27 

R 1 2 5 3 

R 1254 

(2) 

V VEC 

VELOCITY  VECTM-  IN  ME  T E; S/ C ENT  I S ECGND 
SCALE  FACTOR  - EARTH  +7,  MOON  +5 

R 12  c o 

(3) 

X 1 

P P I M A - Y BODY  INDICATOR 

R 1 2 i 


FA  ' r H -2,  MOON  -10 


R 1257  OUTPUT 


P 125? 
P 1250 
R 1260 
R 126 1 
R 1262 
R 126  3 
R 1 2 6 4 
R 126  5 
R 126  6 
R 1267 
R 1268 
R 1 2 6 9 
R 127  0 


( 1 1 

2D 

ATUCEIiTEP  PAD!  US  IN  METERS 

SCALE  FACTOR  - EARTH  +29,  MOGN  +27 

( 2 ) 

40 

APOCEi  TFC  ALTITUDE  IN  METE 5 S 

SCALE  FACTOR  - EARTH  +29,  MC  ON  P27 

(3) 

6D 

PERICENTER  RADIUS  IN  METERS 

SCALE  FACTOR  - EARTH  +29,  MQJDN  +27 

(4) 

3D 

(’[  I C E p T E ALTITUDE  IN  M t T E S 

SCALE  FACTOR  - EARTH  +29,  MOON  +27 

(5) 

ECC 

ECCENTRICITY  CF  CONIC  TRAJECTORY 
SCALE  FACTOR  - +3 

(6) 

XXXALT 

RADIUS  OF  THE  PRIMARY  BODY  IN  METERS 
SCALE  FACTOR  - EARTH  +29,  MOON  +27 

( i ) 

PIJSHLOC 

EQUALS  LOD 

P 127  I SUBROUTINES  USED 


R 1272  SETPAD 


694 
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R 1273 

1274 

1275 

1276 

1277 
12 ! 7 

A 127E 

127° 

12 

12«1 

1282 

128  3 

1284 

1285 

1286 
12  P7 
1288 

1289 

1290 

1291 

1292 

1293 

1294 

129  c 
129  6 
1297 
129» 

1299 

1300 


P34-P35,  P74-P75 

APS  IDES 
E F 1 


REF 


1 


o 

m 

Tl 

9 

LAST 

693 

REF 

9 

LAST 

688 

REF 

1 1 

L AST 

693 

REF 

7 

LAST 

662 

REF 

LAST 

6 90 

J.  * 

REF 

l 

REF 

2 

LAST 

1 4 7 

2 EE 

1 

REP 

3 

LAST 

695 

REF 

4 

LAST 

695 

REF 

17 

LAST 

695 

2 1, 2000 

23,2314 


23.2314 

23.2315 


23,2314 

23,2317 

23.2320 

23.2321 

23.2322 
23 ,232  3 
23,7324 

23.2325 

23.2326 

23.2327 

23.2330 

23.2331 

23.2332 

23 .2333 

23.2334 
2 3,  2335 

23.2336 

23.2337 

23. 2340 

23.2341 

23.2342 

23.2343 


00302  0 
L 


0 


5375-':  1 
02777  1 
57176 
24744  l 

53750  0 
.12776  0 
57174  0 
02655  0 
45020  1 
03463  0 
46344  0 
37671  0 
25674  0 
41401  l 
00003  1 
2 25  1 
03671  1 
00001  0 
45206  1 
03671  1 
52C06  0 
03463  0 


IIP  AD 


SETLOC 

BANK 

COUNT* 

2 DEC 


PER  I APfJ  1 l. X A , 2 


3T0VL 
L X A , 1 


STORE 

PERI APO  STQ 


STCAI  L 

SETPD 

OSU 

PUSH 

PUSH 


APQPER  I 


TT/PERAP 
6373338  B 


VSR* 
RTX2 
0,2 
VVEC 
VSR* 
RTX1 
0,2 
RVEC 
CALL 
NOI  MEX 
SETRAO 
XXX ALT 
APSIDES 
PUSH 
2D 

POUL 

XXXALT 

OD 

OSU 

XXXALT 

GOTO 

NORMEX 


3: 15  DEC 


2,1970  KISSING 


050  PAGE 


695 


USE R • S PAGE  NO.  38 


E 7 S3 


29  STANDARD  RADIUS  OF  PAD  37-B. 
= 20  909  901.57  FT 


2D  = 

APQCE 

NTFR  RADIUS 

B29 

OR 

B27 

40  = 

APQGE 

E ALTITUDE 

B29 

OR 

B27 

6 D = 

PEP  IC 

ENTER  RADIUS 

92° 

OR 

B27 

8 D = 

PEP  IG 

EE  ALTITUDE 

B29 

OR 

B27 

0 


GAP: 

ASSEMBLE  RE 

VISION  001 

L 

P 34- 

P35, 

P74-0  75 

P 130  1 

SETRAO 

1302 

1303 
ISO*6 

REF 

1 

1305 

1306 

REF 

10 

LAST  689 

REF 

1 l 

LAST  696 

1307 

130 

1309 

REF 

1 

1310 

1311 

1312 

1313 

REF 

3 

LAS'  200 

% 


AGC  PROGRAM  AP11ROPE  BY  EYLES 


3,2344 

41545 

0 

SETRAO 

DLOAD 

3,2345 

0,6315 

0 

3,2346 

o 3 1 30 

0 

SXA  , 1 

3 , 2 547 

00047 

1 

3,2350 

0000? 

0 

3,2351 

46135 

1 

SLOAD 

3,2352 

00050 

1 

3,2353 

46  35  7 

1 

3,2354 

5 1 5 7 5 

1 

VLOAD 

3,2355 

02023 

1 

3,2356 

77725 

1 

POOL 

3,2357 

43545 

1 

SETT  AUX 

DLOAD 

OF 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 


3:15  DEC 


2 
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PUSH 
PPAD 
I NC  R , 2 
X2 
20 
BHIZ 
X2 

SET • A OX 

ABVAL 

PIS 

RVQ 


ASSEMBLE  REVISION  OOl  OF  AGC  PROGRAM  AP11ROPE  BY  EYLES 


GAP: 


P 1314 
1315 
1310 
1317 
131? 

1319 

1320 

1321 

1322 

1323 
1322 

1325 

1326 

1327 

1328 

1329 

1330 

1331 

1332 

1333 

1334 

1335 
133' 

1337 

1338 

1339 

1340 

1341 

1342 
134  3 
1344 


P34-P35,  P 7 — P 7 4 


PPECSET 


REF 

18 

LAST 

REF 

2 

LAST 

REF 

5 

LAST 

REF 

1 

REF 

3 

LAST 

REF 

30 

LAST 

REF 

3 

LAST 

PEF 

1 

REF 

19 

LAST 

REF 

16 

LAST 

tpc 

3 

1 ART 

I'Ll 

REF 

4 

LAST 

REF 

20 

LAST 

REF 

12 

LAST 

REF 

13 

LAST 

REF 

17 

LAST 

REF 

4 

LAST 

REF 

4 

LAST 

REF 

11 

LAST 

REF 

13 

LAST 

REF 

8 

LAST 

2 3,2360 
695  23,2361 

622  23,2362 

652  23,2363 

2 3 , 236 2- 

23.2365 

23.2366 
697  23,2367 

689  23,2370 

2 C 7 2 3,2371 

23. 2372 

23.2373 

23.2374 
697  23,2375 

2 3 , 237 

677  23,2377 

62°  23,2400 

670  23,2401 

677  23,2402 

673  2 3 , 26-03 
67  5 2 3 , 2406 

23. 2405 

23.2406 
697  23,2407 

697  23,2410 

670  23,2411 

673  27,2412 

697  23,2413 

^ 73  2 3, 2414 

23,2415 


77620  0 
C 3463  0 
37  574-  0 
27057  0 
77624  1 
46376  1 
77745  1 
03574  1 
34041  0 
27043  0 
77624  1 
46406  1 
77650  1 
03463  0 
43175  0 
0C-001  0 
01352  1 
46412  1 
27536  1 
00007  0 
03544  1 
77616  0 
63175  0 
0C001  0 
01352  1 
46402  0 
27552  0 
00007  0 
03560  1 
77616  0 


P7ECSET 


STQ 

NORM  EX 

STCALL  T0EC2 

LEMPREC 

CALL 

LEMSTORE 

CLOAD 


T0EC2 
STCALL  T0EC1 

CSMPf  EC 


CALL 

C SMSTORE 

GOTO 

NGRMEX 


LEMSTORE 

V L 0 A 0 

BOFF 

F A TT 
AVFt  AG 
PASS  IV 
FACT  3 
VATT 
VAC'  3 

ACTIVE 

STOVL 

STORE 

C SMS TO RE 

RVQ 

'/LOAD 

POFF 

PASSI VE 

5 1 0 V L 

RATT 
AVFLAG 
ACTIVE 
P A S S 3 

STORF 

VATT 

VP AS S3 

RVQ 


3:15  DEC 
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40 
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L 

P 3 ' — P 3 5 , 

P74- 

P 75 

P 1345 

VECSHIFT 

1346 

23,2416 

5 37  54 

1 

VECSHIFT  L XA  , 2 

1347 

H4EF  10 

1 AST 

695 

23,2417 

02777 

1 

1348 

23,2420 

57176 

0 

1349 

23,2421 

63350 

1 

LXA  , 1 

13*0 

REF  12 

LAST 

695 

23,2422 

02776 

0 

1351 

23,2423 

63257 

1 

VSR* 

135? 

23,2424 

57176 

0 

1353 

23,2425 
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SUBROUTINE  NAME  R36  OUT-OF-PLANE  RENDEZVOUS  ROUTINE 

MOD  NO.  0 DATE  22  DECEMBER  67 

MOD  BY  N.M. NEVILLE  LOG  SECTION  EXTENDED  VERBS 

FUNCTIONAL  DESC  IPTION 

TO  DISPLAY  AT  ASTRONAUT  REQUEST  LGC  CALCULATED  RENDEZVOUS 
OUT-OF-PI  . (Y  . YDOT  , PSI).  (REQUESTED  BY  DSKY) 

CALLING  SEQUENCE 

ASTRONAUT  REQUEST  THROUGH  DSKY  V 90  E 

SUBROUTINES  CALLED 

EXOSPRET 
GOMARKF 
C SM  PREC 
L EMPREC 
SGN AGREE 
LOADTIME 

NOS  MAI.  EXIT  •••’•ODES 

ASTRONAUT  REQUEST  THROUGH  DSKY  TO  TERMINATE  PROGRAM  V 34  E 

ALARM  OR  ABORT  EXIT  MODES 

NONE 

OUTPUT 

DECIMAL  DISPLAY  QF  TIME  , Y , YOCT  AND  PSI 

DISPLAYED  VALUES  Y , YD!  t , AND  "SI  , A'E  ST-  RED  IN  ERASABLE 
PEG  I STFRS  PANGE  , PRATE  A1  ID  l'~ HFT  A r-  ES  PEC"  TVELY. 

ERASABLE  INITIALIZATION  REQUIRED 

CSM  AND  LEM  STATE  VECTORS 

DERP  IS 

CENTRALS  A,Q,L 

OTHER  THOSE  USED  BY  THE  ABOVE  LISTED  SUBROUTINES 

20,2115  BANK  20 

REF  l 04,2000  SETLOC  R36LM 

04,2656  BANK 
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1393 

13CV. 

1395 

1396 

139  7 

1398 

1399 

140  r 

1401 

1402 

1403 
l'*  04 
1 

1406 

1407 

0 

1409 

141  r 

1411 

1412 

1413 

1414 
141c 

1416 

1417 


RFF  128 
REF  6 
REF  1 
REF  169 
REF  9 
REF  36 


REF  7 

REF  1 
KEF  O' 3 
P EF  32 

REF  1 
REF  31 
REF  1 

R EF  14 
REF  18 
REF  4 


LAST  A c 0 
LAST  305 

LAST  663 
LAST  278 
LAST  609 


LAST  7ni 


LAST  6 36 
f AST  6 0 1 


LAST  6 - 7 


LAST  6°7 
LAST  6°7 
LAST  701 


06 . 2656 

04 . 2657 

04. 2660 

04. 2661 

04.2662 

04.2663 

04.2664 
04 , 266  5 
04,26^6 
04 ,2667 

*04 ,2670 
04,2671 
04,2 67? 

04 . 2673 

04.2674 

04.2675 

34.2676 

04.2677 

04.2700 

04.2701 

04.2702 

04.2703 

04.2704 

04.2705 

04.2706 


1418 

1419 

1420 

1 W?  1 

REF 

REF 

REF 

REF 

1 

9 

32 

1 

LAST 

LAST 

657 

701 

04, 2707 

04.271 0 

04.2711 

04 .2712 

04.2713 

i.  f 4 1 

1422 

142  3 

REF 

15 

LAST 

701 

04,2714 

1424 

1425 

REF 

19 

LAST 

3 "1 

94.2715 

04.2716 

1 

1427 

1428 

14  2 c 

REF 

10 

LAST 

701 

04,2717 

04.2720 

04 . 2721 
04,272? 

1430 

1431 

PEE 

5 

LA  9? 

701 

04 .2723 

04.2724 

1432 

REF 

2 

LAST 

701 

04,2725 

1433 

1434 
1^35 

REF 

9 

LAST 

317 

04.2726 

04.2727 
04,2730 

1436 

REF 

3 

LAST 

701 

04,2731 

1437 

1438 

REF 

5 

LAST 

317 

04.2732 

04 . 2733 

22  007 
3 4 76  5 
53 1 052 
3 301  1 

0 4616 
20334 

1 5472 
1 2667 
1 2661 
53*052 
0 0,006 
1 30  00 
52  155 
0 6037 

77634 
21716 
34041 
27043 
63375 
00007 
00001 
02  2 07 
632  56-. 
53435 
77626 
61562 

0 C 0 1 5 
34041 
27057 
63375 
00007 
0 000 1 
77725 
00015 
24037 
6 1406 
63245 
02207 
72441 
022  15 
26201 

00001 
72441 
02215 
26203 
OCC07 
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CAF 
DXCH 
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TCF 

TC  F 

DXCH 
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BZF 

ASTROTIM  DXCH 
TC 
RTB 
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VI  LAD 


STORF 

UNIT 
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STOOL 

STCALL 

VLOAD 


PDDL 

STOVL 

PUSH 

BVSU 

DOT 

STOVL 

DOT 

STOVL 


RPASS36 

$$/R36 
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DSPTFMX 
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GOMARKE 
ENDEXT 
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-5 

DSPTFMX 

l REGCHK 

MPAC 

I N T P n E T 

DPMCDE 

TDEC1 

QTHRP EC 

PDVl 

VATT 

R ATT 

RPASS36 

PDVL 

UNIT 

UNP36 

TAT 

TDEC1 

THISPREC 

PDVl. 

VATT 
R ATT 

TAT 

300 

PUSH 

PDVL 

RPASS36 

SL1 

UNP36 

RANGE 

COD 

S LI 

UNP36 

PRATE 

06D 
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TERMI NATE 
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A-REG  ZERO  GOTO  CHECK  L-REG  FOR  ZERO 
A-REG  NON-ZERO,  time  = ASTRO  INPUT  TI ME 
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U 


VELOCITY  VECTOR 


OOD 


SAVE  TIME  IN  LOCATION  300  FOR  REDISPLAY 


POSITION  VECTOR  R 
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1440 

04,2735 
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1441 

04,2736 

OCOOl 

0 

00D 

- 

1442 

04,2737 

0 C Q 2 3 

0 

180 

(U  XV  )XU  =u 

144  3 

04, 27 4 0 

53552 

0 

VSL2 

UNIT 

RA  A RA  A 

0 4 , 274  1 

776  56 

UN  I T 

1 M -*  JUJ 

14  44 

04,2742 

24001 

0 

STOVL 

COD 

UNIT  HORIZONTAL  IN  FORWARD  DIR.  OOD 

1445 

04,2743 

00023 

0 

180 

14  46 

04,2744 

74  241 

0 

DOT 

VXSC 

- 

1447 

04,2745 

0 0015 

0 

1 2D 

J 

1448 

04,2746 

77  75  2 

1 

VSL2 

L 

144c 

04,27&7 

53445 

1 

RVSU 

UNIT 

144905 

04,2750 

77656 

1 

UNIT* 

1450 

04,2751 

50206 

0 

PUSH 

DOT 

LOS  PROJECTED  INTO  HORIZONTAL  12D 

1451 

04,2752 

Ot  001 

0 

00D 

PLANE 

1452 

04,2753 

65  552 

0 

SL1 

ARCCf'S 

- 

1443 

REF 

5 

L AST 

317 

04,2754 

2 4 2 ( 5 

1 

STOVL 

RTHET A 

PS  I = ARC  C0C ( U .U  ) 

1454 

04,2755 

50235 

0 

VXV 

DOT 

A L 

1455 

04,2756 

0CCC1 

0 

OOD 

145  6 

04,2757 

71244 

0 

BPL 

DLOAD 

1457 

REF 

1 

04,2760 

10765 

1 

R36TAG2 

145  8 

REF 

2 

LAST 

37 

04,2761 

24020 

0 

LODPMAX 

145  9 

04,2762 

77625 

0 

DSU 

14  6 C 

REF 

6 

L AST 

702 

04,2763 

02205 

1 

P THETA 

1461 

P EF 

7 

LAST 

702 

04,2764 

02205 

1 

STORE 

R THE  T A 

1462 

04,2765 

4-7145 

1 

P36TAG2 

DLOAD 

RTB 

146  3 

04,2766 

00C37 

0 

3 OD 

1 4 6 4 

REF 

2 

LAST 

376 

04,2767 

21612 

1 

SGN AGREE 

1465 

REF 

8 

LAST 

701 

04,2770 

C 1052 

1 

STORE 

DSPTEMX 

1466 

0 4 , 2771 

77776 

1 

EXIT 

1467 

REF 

1 

04,2772 

3 3012 

1 

CAF 

VC6N90N 

DISPLAY  Y , YQOT  , AND  PSI 

1468 

REF 

1 70 

LAST 

701 

04,2773 

0 4616 

1 

TC 

BAMKCALl 

1465 

REF 

10 

LAST 

701 

04,2774 

20334 

1 

CADR 

GOMARKE 

147  r 

REF 

37 

LAST 

701 

04,2775 

1 ‘'472 

1 

TCF 

ENIDEXT 

TERMINATE 

14?] 

REF 

38 

LAST 

702 

04,2776 

1 5472 

1 

TCF 

ENDEXT 

PROCEED  , END  9F  PROGRAM 

V 72 

RFF 

2 

LAST 

284 

94,2777 

1 2661 

0 

TCF 

R 36  +3 

REDISPLAY  OUTPUT 

1473 

REF 

93 

l AST 

678 

C4 , 3000 

56  001 

0 

LPEGCHK 

XCH 

L 

1474 

04,3  1 

0 0006 

1 

EXTEND 

1475 

REF 

1 

04,3002 

1 3005 

0 

BZF 

E NTT  I M2 

L-REG  ZERO  , SET  TIME  = PRESENT  time 

1476 

P EF 

94 

LAST 

70  2 

C4  , 3003 

56  001 

0 

XCH 

L 

L-REG  NON  ZERO,  TIME  = ASTRO  INPUT  TIME 

14  77 

REF 

1 

04,3004 

1 2672 

1 

TCF 

ASTROTIM 

1471 

REF 

83 

LAST 
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(V-  , 3004 

0 6 037 

0 

ENT’ IM2 

TC 

I NT  PR  FT 

1479 

04,3006 
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1 

PTB 

GOTO 

1480 

REF 

14 

LAST 
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04 ,3007 

21573 

0 

LOADT IME 
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1 
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1 
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0 
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1 
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VN 
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COUNT  * $ $/P  3 1 


0006 

0007 

000 8 
00(39 

AAAO 

REF 

REF 

REF 

REF 

D 12  P 

9 

24 

23 

1 

1 

10 

LAST 

LAST 

LAST 

260 

592 

680 

40.3674 

40 .3675 
E 7 , 1670 

40.3676 

40.3677 
4C, 3700 

UUU 

0010 

Ktr 

REF 

LAST 

561 

001 1 
0012 

REF 

9 

LAST 

488 

40.3701 

40.3702 

0013 

REF 

25 

LAST 

597 

40,3703 

001^ 
001  5 

PEF 

1 

40.3704 

60.3705 

3 5015 
0 5105 

0 

0 

R31CALL 

CAF 

1C 

PR  I 03 

F INDVAC 

EBANK= 

SUBEXIT 

03121 

76067 

0 

1 

2C  ADR 

V83CAL.L 

0 5221 
00144 
3 1044 

0 

0 

0 

DSPDELA Y 

TC 

DEC 

CA 

FIXDELAY 

100 

EXTV8ACT 

7 6 740 

1 

MASK 

BIT12 

0 0006 

1 

EXTEND 

1 3700 

1 

PZF 

DSPQEL  AY 

0016 

REF 

5 

LAST 

488 

40, 3706 

0017 

REF 

14 

LAST 

605 

6C,37C7 

00  IF 

REF 

3 

L AST 

666 

E7 , 16  1 1 

0019 

PEF 

1 

40,3710 

00 14 

0 E F 

1 

30 

40.^71 1 

0020 

REF 

LAST 

605 

"U  t J ' Lx 

40,3712 

3 5017  1 CAF  PP.I05 

0 5072  1 TC  NGVAC 

E B A N K = T S T r T 

03113  1 2CA0R  D I SPN  c X 

76067  1 

1 5261  0 TC  F TASKOVER 


00202 

00204  REF  1 

002  06 

002 OP  REF  1 


37,3113 
37,2000 
37, 3313 


BANK  37 
SETLOC  s 3 1 
BANK 

COUNT  * ?$/•'  31 


0021 

REF 

1 

37,3113 

3 

3407 

1 

0022 

REF 

171 

LAST 

702 

37,31 14 

0 

4616 

1 

002  3 

PEF 

1 1 

LAS" 

702 

37,3115 

20334 

1 

002  4 

o.EF 

6 

LAST 

489 

37, 3116 

0 

5563 

1 

002  r 

REF 

7 

LAST 

703 

37,3117 

0 

5563 

1 

0026 

REF 

2 

LAST 

703 

37,3120 

1 

3113 

0 

002  7 

REF 

4 

LAST 

280 

37,312  1 

4 

C 103 

1 

002  8 

REF 

2 

LAST 

186 

37,3122 

7 

4747 

0 

002° 

37,3123 

0 

00  06 

1 

003  0 

REF 

1 

37,3124 

1 

3377 

0 

0031 

REF 

7 

LAST 

5 39 

37,3125 

4 

0104 

0 

0032 

REF 

6 

LAST 
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37, 3126 

7 

4 744 

0 

003? 

37,3127 

0 

0006 

1 

00  36 

PEF 

1 

37,3130 

1 

3403 

1 

003  5 

RFF 

84 

LAST 

702 

37,3131 

0 

6037 

0 

0036 

37,3132 

77634 

0 

DISPN5X 


V83CALL 


CAF 

TC 

CAD' 

TC 

TC 

TCF 

CS 

MASK 

EXTEND 

BZF 

CS 

MASK 

EXTEND 

BZF 

TC 

P.TB 
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BANKCALL 
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B5DFF 

B50FF 
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0 
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REF 
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0 
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1 
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1 
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STORE* 
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LAST 
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37,3145 

3404  1 

0 

STCALL 
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43 

0 
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0049 

37,3147 

77775 

1 

VI  GAD 

0050 

REF 

7 

LAST 

704 

37,3150 

000  17 

1 

RATT1 

00  § 1 

FEE 

1 

37, 3151 

26140 

0 

ST,  VL 

BASEL. TP 

005  2 

REF 

II, 

LAST 

704 

37,3152 

0002  5 

0 

VATTi 

0053 

REF 

1 

37,3183 

02120 

0 

STORE 

BASEOTV 

0056 

-2  7 . -2  , e A 

77774 

1 

F Y T T 

D f f Jl  JT 

i i i f o 

1 

0055 

REF 

CT 

LAST 

703 

37, 3155 

4 0103 

1 

REV83 

CS 

FLAGWPD7 

0056 

REF 

3 

LAST 

703 

37,3156 

7 4747 

0 

MASK 

AVEGFBIT 

0057 

37,3157 

0 0006 

1 

EXTEND 

oop  a 

REF 

1 

37,3160 

1 3326 

1 

BZF 

GETRVN 

0059 

PEF 

8 

LAST 

703 

37,3161 

4 0104 

0 

CS 

F L AGWD  DF 

0060 

REF 

7 

LAST 

703 

37,3162 

7 4744 

0 

MASK 

SURFFBIT 

0061 

37,3163 

0 CO  06 

1 

EX) END 

0062 

REF 

1 

37,3164 

1 3370 

1 

BZF 

I-  31  SURF 

0043 

PEF 

88 

LAST 

7o  3 

37 , 3165 

0 6 0 37 

0 

TC 

T MTPRFT 

1 IN  1 r ia  tr  i 

0064 

37,3166 

77634 

0 

PTB 

0065 

REF 

16 

L AST 

704 

37 ,3167 

21573 

0 

L CADTIME 

006F 

REF 

35 

LAST 

7 04 

37,3170 

34041 

0 

STCALL 

T DEC  1 

0067 

REF 

21 

LAST 

688 

37,3171 

2 7414 

0 
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37,3177 
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37,3175 

25535 

0 

STOVL 

RCV 

0072 

REF 

2 

LAST 

704 

37,3176 

02105 

1 

BASETHV 

007  3 

REF 
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2 

LAST 

297 

37,3202 

04344 

0 

MOOMTHI S 

0077 

37,3203 
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REF 
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LAST 
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REF 
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LAST 
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REF 
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1 
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1 

0THC0N1C 
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0107 

0108 
0109 
01 1 r 
0111 
0112 

0113 

0114 

0115 

0116 
0117 
Oil? 
03 1 
0120 
0121 
0122 
0123 
012* 

0125 

0126 

0127 

0128 
012° 

0130 

0131 

0132 

0133 
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REF  20 
REF  7 
REF  16 
REF  1 
REF  22 

REF  11 
REF  12 
REF  36 

REF  2 
REF  « 
REF  9 
RFF  2 
REF  8 
P.  FF 

RFF  3 

REF  10 
REF 

REF  5 

REF  21. 
REF  8 

KEF  2 


REF  10 
REF  17 

RFF  2 

REF  6 
REF  9 

REF  6 

REF  1 

REF  17 


LAST 

LAST 

LAST 


LAST 

LAST 

LAST 

L ACT 
LAST 


701 

339 

701 


LAST  704 


LAST 
L AST 
LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


704 

704 

704 

704 

704 

704 

704 

704 

704 


LAST  704 


705 

704 

704 

705 
705 


LAST  585 


LAST  6°? 


37.3212 

37.3213 

37.3214 

37.3215 
37 , 32  1 6 
37 , 3217 

37.3220 

37.3221 

37.3222 

37. 3223 

37.3224 

37.3225 

37.3226 

37. 3227 
37,3230 

37.323  1 

37.3232 

37.3233 

37.3234 
37,3234 

37.3236 

37.3237 
37,3240 

37.324  1 
37,3242 
37,3  24  3 

37.3244 

37.3245 

37 .3246 
37,324-7 


LAST  705 


37.3261 

37.3262 
37,3  26  3 

37.3264 

37.3265 

37.3266 

37.3267 

37.3270 

37.3271 
37,327? 
37,3273 


0CC01  0 
26207  0 
00 CO 7 0 
36215  1 
27414  0 
71214  0 
01473  0 
00015  0 
0 00-41  1 
43175  0 
02140  0 
00263  0 
25535  0 
02120  0 
15543  1 
02114  1 
4-3014  0 
04344  0 
77236  0 
00063  1 
35517  1 
2 7 1 C 7 l 
52375  1 
r 0001  0 
02207  0 
65234  1 
21724  0 
0(  045  0 
77657  0 
26201  0 


LAST 

701 

37,3250 

26201 

0 

LAST 

705 

37.3251 

37.3252 

OC  007 
§0252. 

0 

1 

t AST 

705 

37,3253 

0 2215 

0 

37 , 3254 

777  52 

1 

LAST 

701 

37 , 3254 

26203 

1 

LAST 

705 

37 , 3256 

02207 

0 

37 , 3257 

63256 

0 

LAST 

580 

3 i i 3 Zb  0 

C 6 5 1 4 

1 

77624  1 
47661  0 
41505  1 
01734  0 
72431  1 
0GCG1  0 
53445  1 
00007  0 
47315  0 


0(  001 
02215 


STOVL 
ST  CALL 
SET 

OTHINT  STORE 
VLOAO 

STOVL 

STOOL 

BOF 

ETC ALL 

COMPDISK  VLOAO 

RTB 

St.* 

STOVL 

VSU 

SI  1 

STOVL 

UNIT 
CALL 
VXM 
VPROJ 
B VSU 
PD  VL 


RATT 
P ONE 
VATT 
VONE 

INTSTALL 
DIO  AD 
I NT  Y PEL  G 
TAT 
TDEC1 
CLEAT 
BAS EOT P 
MOPNFL  AC 
F CV 

BASEOTV 
V CV 

BASETIF  F 
SET 

MCOWTHIS 
+ 2 

MOONFl AG 
TET 

I NT  EG!’  V S 
VSU 
F AT  T 
RCNE 
PDDL 

NQRMUNX 1 
3 6D 

0,1 

RANGE 

VATT 

DOT 

VCNF 

RR  ATE 
RCNE 
PDVL 
UNITZ 

CDU*NBSM 

PUSH 

REFSMMAT 

VSL2 

OD 

UNIT 

6D 

VXV 

OD 

VCNE 
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705 


. 2. 

USER'S 

GET  SET  FOR 


970  KISSING 
PAGE  MO.  3 

CONIC  EXTRAP. 


EO  S3 


OTHER. 


UNIT! RANGE ) TO  PD  C-c 
RESCALE  AFTER  NOR  MUNI T 
SCALED  2 ( 29  ) M 

( VCM-  VLM ) .UNIT ( LOS ) , PD=0 
SCALED  2 (7 1M/CS 

UNIT(R)  TO  PD  0-5 

UNIT  ( Z ) / 4 ~0  P D 6-11 

UNIT! P)=UNIT (UZ  - < U Z ) PROJ (UR) ) 

TO 


UNIT ( P) 
UNIT! RL  ) 


PD  12-17 
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0134 

37,3274 

50235 

0 

vxv 

0136 

37,3275 

00CG1 

0 

0136 

o "7 

n 

Si  ■ j DC  1 C 

gL  ui  v 

V 1 

0137 

37,3277 

77716 

1 

PDVL 

013  P 

37,3300 

75241 

1 

DDT 

0136 

37,3301 

00007 

0 

01  ' 

37,3302 

00015 

0 

0141 

37,3303 

65512 

1 

SL2 

0142 

REF 

8 

LAST 

702 

37,3304 

26205 

1 

STOVL. 

0143 

37,3305 

00001 

0 

0144 

37,3306 

51041 

0 

DOT 

m if  c 

37, 3307 

00007 

0 

0146 

37,3310 

77315 

0 

C 1 1 

37,3311 

45345 

1 

DLOAD 

0148 

REF 

9 

LAST 

675 

37,3312 

06530 

1 

0149 

REF 

9 

LAST 

70  6 

37,3313 

0 2205 

1 

01  5 C 

REF 

10 

LAST 

706 

37,3314 

02205 

1 

STORF 

n 1 c,  l 

37.3316 

7^776 

EXIT 

UI?  I 

f > Jj  _>  1 ,2 

0152 

REF 

28 

LAST 

613 

37, 3316 

3 4747 

1 

CA 

0153 

REF 

10 

LAST 

703 

37,3317 

7 1044 

1 

MASK 

0 1 

37,3320 

0 0006 

1 

EXTEND 

ii 

REF 

39 

LAST 

702 

37,  332  1 

1 6472 

1 

BZF 

01! 

REF 

1 1 

LAST 

706 

37,3322 

4 1044 

1 

CS 

0157 

REF 

26 

LAST 

703 

37,3323 

7 4740 

1 

MASK 

016  8 

REF 

12 

LAST 

706 

37,3324 

27 '044 

1 

ADS 

0159 

REF 

1 

37,3325 

1 3155 

1 

TCF 

0160 

REF 

3 

LAST 

534 

37, 3326 

3 7710 

0 GETPVN 

CA 

0161 

REF 

10 

LAST 

4°6 

37,3327 

0 5146 

1 

TC 

0162 

REF 

86 

LAST 

704 

37 , 3330 

0 6037 

0 

TC 

016  3 

37,333  1 

40375 

1 

VLOAD 

0164 

PFF 

5 

LAST 

32C 

37,3332 

01221 

1 

016  5 

37  7333 

or  n o i 

n 

V W ' 7 1 

U 

0166 

REF 

10 

LAST 

705 

37,3334 

26207 

0 

STOVL 

0167 

REF 

5 

LAST 

320 

37 , 3335 

01227 

1 

0168 

REF 

4 

LAST 

705 

37,3336 

26215 

0 

STOVL 

0169 

REF 

2 

LAST 

598 

37,3337 

01726 

0 

0170 

37,3340 

65315 

0 

PDVL 

017  l 

REF 

2 

LAST 

598 

37,3341 

01720 

0 

0172 

REF 

5 

LAST 

597 

37,334  2 

01235 

1 

0173 

37, 3343 

77776 

1 

EX  I T 

01  7< 

REF 

10 

1 AST 

703 

37,3344 

3 5015 

0 

CA 

0175 

REF 

11 

LAST 

706 

37,3345 

0 5146 

1 

TC 

0176 

REF 

87 

LAST 

706 

37 , 334-6 

0 6037 

0 

TC 

0177 

37 , 3347 

77214 

0 

BPFF 

0178 

RFF 

2 

LAST 

22  9 

37 , 3350 

03347 

1 

0179 

REF 

1 

37,3351 

77363 

1 
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CD 

121) 

(UR  * VI.  )*UR  . U(  P) 

SIGN 

6D 

SIGN  tq  12-13  , LOAD  U(P) 

1 2D 

ACOS 

RTHETA 

OD 

ARCCOSIUP.UZ(SIGN) ) 

BPL 

60 

+ 5 

DSU 

DPPOSMAX 

RTHETA 

RTHETA 

IF  UP  .UZ  MEG, 

RTHETA  = 1 - PTHETA 

BIT5 

EXTVBACT 

ENDEXT 

IF  ANSWERED, 

TERMINATE 

EXTVBACT 

BIT12 

EXTVBACT 

P EV83 

SET  BIT  12 

AND  START  AGAIN. 

PR  I 022 

PRIOCHNG 

1NTPRET 

SETPD 

INHIBIT  SERVICER 

F N 

LM  STATE  VECTOR  IN  PN,VN 

0 

RONE 

VN 

VONE 

V(CSM) 

PDDL 

R (CSM ) 
PIPTIMF 

LOAD  R(CSM) ,V( CSM)  IN  CASE  MUNFLAG  SET 
(TO  INSURE  TIME  COMP A T ABI L I T Y ) 

PR  I 03 

PRIOCHNG 

INTPRET 

VLOAD 

MUNFLAG 

GETRVN2 

IF  MUNFLAG  RFSET,  DO  CM  DELIA  PRECISION 

GAP: 
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L R 31 


0180 

018] 

REF 

18 

LAST 

705 

0182 

0183 

0184 

01  P 5 
0186 

0187 

0188 

REF 

19 

LAST 

707 

REF 

1 

01  8° 

0100  REF  23  LAST  705 

0191 

0192  REF  12  LAST  705 

0193  REF  1 

0194  REF  88  LAST  706 

OlO1' 

0196  REF  17  LAST  704 

0197  REF  37  LAST  705 

0191  REF  7 LAST  704 

01 9 c 

0200  REF  1 

0201  PEF  2 LAST  186 

0202  REF  2 LAST  186 

0203 

0204  REF  2 LAST  704 

0205  REF  89  LAST  707 

0206 


0207 

REF 

18  LAST 

0208 

REF 

1 

020° 


OGR  AM  AP11RGPE  BY  EYLES 


60505  1 VXM 

01734  0 

77715  1 POVL 

765C5  0 VXM 

01734  0 

40206  1 PUSH 

0C001  0 

77650  1 GOTO 

77240  1 


77624  1 GETRVN2  CALL 
27414  0 

52014  0 CLEAR 

01673  1 
77222  0 

0 6037  0 P 3 1 SURF  TC 
77634  0 FT B 

21573  0 


34041 

27057 

0 

0 

STCALL 

77650 

1 

Gf.  TO 

7 7 2 1 1 

0 

4 0102 

0 

MUfH? 

CS 

7 4744 

0 

MASK 

0 0006 

1 

EXTEND 

1 3326 

1 

BZF 

0 6 037 
K 2 0 3 4 

0 

1 

ONEBASE 

T C 

PTB 

21573 

0 

77144 

0 

04066 

0 

V16N54 

VN 

OF  AGC  PF 

37,3352 

37,3353 

37,3354 

37, 3355 

37,3356 

37 , 3357 

37, 3360 

37,3361 

37,3362 

37,3363 

37,3364 

37, 3365 

37,3366 

37,3367 

37,3370 

37,3371 

37,3372 

37,3373 

37,3374 

37, 3375 

37,3376 

37,3377 

37,3400 

37,3401 

37,3402 

37, 3403 

37 , 3404 

37,3405 

37,3406 

37,3407 
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VSR4  CHANGE  TO  REFERENCE  SYSTEM  AND  RESCALE 

REFSMMAT 


R 

TO 

PD 

0-5 

VSL  1 

REFSMMAT 

SETPD 

V 

TCI 

PD 

5-11 

0 

CGMPDISP 


INTSTALL 

GOTO 

I NTYPFLG  PREC  EXTRAP  FOR  OTHER 

OTHINT 

intpret 

LM  IS  PM  SURFACE,  SO  PRECISION 
LOADTIME  I NT  EG  P AT  I C N USES  PLANETARY  INERTIAL 

TDEC1  ORIENTATION  SUBROUTINE 

LEMPREC 

DO  CSM  COMIC 

OTHCONIC 
PLAGWRD6 
MUNFLBI T 

GETPVN  IF  MU NFL  AG  SET,  CSM  BASE  NOT  NEEDED 

I NT  PR  FT  GET  CSM  BASE  VECTOR 

GOTO 
L OADTIME 
DOCMBAS  E 
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3:15  DEC.  2, 1970  KISSING 
USER'S  PAGE  NO.  1 
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FO  S3 


P5000  1)  PROGRAM  NAME  - TARGET  DELTA  V PROGRAM  (P76). 

R 500 1 2)  FUNCTIONAL  DESCRIPTION  - UPON  ENTRY  BY  ASTRONAUT  ACTION,  P76  FLASHES  DSKY  REQUESTS  TO  THE  ASTRONAUT 

R 5003  TO  PROVIDE  VIA  DSKY  (II  THE  DELTA  V TO  BE  APPLIED  TO  THE  OTHER  VEHICLE  STATE  VECTOR  AND  (2)  THE 

R 5005  TIME  (TIG)  AT  WHICH  THE  OTHER  VEHICLE  VELOCITY  WAS  CHANGED  BY  EXECUTION  OF  A THRUSTING  MANEUVER . THE 

R 5007  OTHER  VEHICLE  STATE  VECTOR  IS  INTEGRATED  TO  TIG  AND  UPDATED  BY  THE  ADDITION  OF  DEI  TA  V (DELTA  V HAVING 

R 500c  BEEN  TRANSFORMED  FROM  LV  TO  REF  COSYS).  USING  INTFGP  VS , THE  PPOGPAM  THEN  INTEGRATES  T HE  OTHER 

R Si  11  VEHICLE  STATE  VECTOR  TO  THE  STATE  VECTOR  OF  THIS  VEHICLE,  THUS  INSURING  THAT  THE  W-MATRIX  AND  BOTH  VEHICIE 
R 501 3 STATES  CORRESPOND  TO  THE  SAME  TIME. 

R5G1'  3)  ERASABLE  INITIALIZATION  REQUIRED  - NONE. 

R5015  4)  CALLING  SEQUENCES  AND  EXIT  MODES  - CALLED  BY  ASTRONAUT  REQUEST  THRU  DSKY  V 37  E 76  E. 

R 50 1 7 EXITS  BY  TCF  EN  DOF  JOB . 

R 501 F 5)  LIT  PUT  - OTHF?  VEHICLE  e T ATE  VECTOR  ILTECP  ATfD  TO  TIG  AND  I NCREMENTED  BY  DELTA  V IN  PE  F COSYS. 

R 502  0 THE  PUSHLIST  CONTAINS  THE  MATRIX  BY  WHICH  THE  INPUT  DELTA  V MUST  BE  PCIST-MULTIPLIED  TO  CONVERT  FROM  LV 

R 502 2 TO  REF  COSYS. 

R 502  3 6)  DEBT- IS  - OTHER  VEHICLE  STALE  VECTOR  . 

R5C24  7)  SUBROUTINES  CALLED  - BANKCALL  , GOXDSPF  , CSMPREC  (f'F  LEMPR  EC  ) , ATOPCSM  (OP  A TO  PL  EM  ) , I NTSTALL  , I NTW  AKE , PHASCHNG 

R 502  < INTPRET,  I N'fEGRVS  , AND  MINI  RE  CT  . 


R 502  7 6)  FLAG  USE  - MOCNFLAG  jCMOONFLAG, INTYPFLG  ,RASFLAG,  AND  MAPKCTP. 


502  8 

30,2061 

5029 

REF  1 

13,2000 

503  0 

13,2207 

BANK  30 
SETLOC  P76LCC 
BANK 


5031  REF 


COUNT*  $ $/ P76 


5032 

REF 

19 

LAST 

o75 

E7  , 1441 

50  3 3 

REF 

39 

LAST 

681 

13,2207 

5034 

REF 

6 

LAST 

629 

13,2210 

EBANK=  TIG 

0 5504  0 P76  TC  LJPFL AG 

0 003 1 0 ADR  OS  T F A C K F I C 


503  ^ 1 
50342 

REF 

90 

LAST 

PEF 

20 

LAST 

5 C 3 4 3 

503  <■  4 

5034  5 

REF 

4 

LAST 

707 

13,2211 

0 6037 

0 

13,2212 

7 7775 

1 

692 

13,2213 

03434 

1 

316 

13,2214 

02223 

0 

13,2215 

77776 

1 

TC  INTPRET 

VLOAD 

DELVLVC 
STORE  DELVOV 
EXIT 


5035 

REF 

1 

13,2216 

3 2336 

0 

CAF 

V 0 6 N 8 4 

FLASH  LAST  DELTA  V , 

5040  :: 

REF 

17  2 

LAST 

703 

1 3,2217 

0 46  16 

1 

TC 

BANKCALL 

AND  WAIT  FOR  KEYBOARD  ACTION. 

5041 

REF 

1C 

LAST 

643 

13,2220 

20476 

0 

CADR 

GOFLASH 

5042 

REF 

1 

13, 2221 

l 2333 

1 

TCF 

ENDP76 

5043 

13,2222 

0 22  24 

1 

TC 

+2 

PROCEED 

5044 

I 3,2223 

0 2216 

0 

TC 

-5 

STORE  DATA  AND  REPEAT  FLASHING 

5045 

REF 

2 

LAST 

709 

13,2224 

3 2337 

1 

CAF 

V06N84  +1 

FLASH  VERB  06  NOUN  33,  DISPLAY  LAST 

5046 

REF 

173 

LAST 

709 

13,2225 

0 4616 

1 

i C 

BANKCAL  L 

AND  WAIT  FOF  KEYBOARD  ACTION. 

504  7 

REF 

19 

LAST 

709 

13,2226 

2 047  6 

0 

CADR 

GOFLASH 

50^8 

REF 

2 

LAST 

709 

13,2227 

1 2333 

1 

TCF 

ENDP76 

5049 

13,2230 

0 2232 

0 

TC 

+ 2 

505  0 

13,  2231 

0 2224 

1 

TC 

-5 

5051 

REF 

91 

LAST 

709 

13,2232 

0 6037 

0 

TC 

INTPRET 

RETURN  TO  INTERPRETIVE  CODE 

T I G, 
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5052 

13, 2233 

77745 

1 

DLGAD 

5053 

REF 

20 

LAST 

709 

l 3,2234 

03442 

0 

TIG 

cot:/. 

o c r: 

1 A 

70  7 

1 T.  77 7 5 

7 A.  04  1 

o 

ct  r a i i 

TOEC  1 

D U 0 *+ 

ft  I 

J © 

l.  A o 

1 U I 

1 J f f.c..'  J 

3 r U*t  1 

5055 

REF 

2 

LAST 

701 

13, 2236 

27  043 

0 

OTHPREC 

5056 

1 3,2237 

5357T 

0 

COMPMAT 

VLOAD 

UNIT 

505  7 

REF 

22 

LAST 

7 0S 

13,2240 

00001 

0 

P ATT 

5058 

13,2241 

77676 

0 

VCOMP 

505° 

13,2242 

0CC31 

0 

STORE 

24D 

5060 

13,  224  3 

53435 

0 

VXV 

UNI  T 

5061 

REF 

18 

LAST 

705 

13,2244 

00007 

0 

VATT 

506  2 

13,2245 

Or  02  3 

0 

STORE 

18D 

1 7 . ~>  ? A.  / 

53435 

g 

VXV 

UNI  T 

J L O IJ 

I _>  | C.  U.  *T  vJ 

5064 

13,2247 

00031 

0 

24D 

5065 

13,2250 

24015 

0 

STOVL 

1 2D 

5066 

REF 

5 

LAST 

709 

13,2251 

02223 

0 

DELVOV 

506  7 

13,2252 

76605 

0 

V X M 

VSL  1 

5068 

13,2253 

00015 

0 

1 2D 

5066 

1 3, 2?  c 4 

776  55 

1 

VAO 

5070 

REF 

1° 

LAST 

710 

13,2255 

00007 

0 

VATT 

5071 

13,2256 

00007 

0 

STORE 

6 

BP7  7 

13,2257 

77624 

CAl  L 

JU  1 A 

5073 

REF 

24 

LAST 

707 

1 3,2260 

274  14 

0 

TNTSTA!  L 

5074 

13,2261 

77624 

1 

CA1  L 

5075 

6 FF 

1 

13,2262 

26340 

1 

P76SUB1 

5076 

13, 2263 

53775 

1 

VLOAD 

VSR* 

5077 

13,2264 

00007 

0 

6 

5078 

13,2265 

57176 

0 

0,2 

5076 

REF 

6 

LAST 

705 

L 3 , 22  66 

2 5543 

1 

STOVL 

VCV 

5080 

REF 

23 

LAST 

710 

13,2267 

0CC01 

0 

F ATT 

5081 

13,2270 

77657 

0 

VSC  * 

5082 

13,2271 

57176 

0 

0 » 2 

5083 

REF 

10 

LAST 

705 

13,2272 

15535 

0 

STODL 

RCV 

5084 

REF 

2 1 

1 ALT 

7 1 fl 

13, 2273 

n 

t r r. 

L-  /A  O 1 

1 i.  ' J 

w _)  . H- 

1 I L7 

5085 

REF 

10 

LAST 

705 

13,2274 

0 1517 

0 

STORE 

TET 

5086 

1 3,2275 

71214 

0 

CLEAR 

OLOAD 

5087 

PEF 

13 

LAST 

707 

13, 2276 

01673 

1 

I NTYPFLG 

5088 

REF 

1 

13,2277 

01643 

1 

TETTHIS 

5089 

REF 

39 

LAST 

710 

13,2300 

34041 

0 

I NTCTH I S 

STCALL 

T DEC  1 

5090 

REF 

6 

LAST 

705 

13,2301 

271Q7 

1 

INTEGRVS 

5061 

13,2302 

77  624 

1 

CALL 

5093 

PEF 

25 

LAST 

710 

13,2303 

27414 

0 

INTSTAIL 

5064 

1 3,2304 

7777* 

1 

VI  0 AD 

5095 

REF 

8 

LAST 

704 

13,2305 

000  17 

1 

R ATT  1 

5096 

REF 

3 

LAST 

495 

13,2306 

01503 

0 

STORE 

RRECT 

5097 

REF 

1 1 

LAST 

710 

1 3 , 23C  7 

1 5535 

0 

STODL 

RCV 

5098 

PEF 

13 

LAST 

705 

13,2310 

00015 

0 

TAT 

5099 

REF 

1 1 

L AST 

710 

13,2311 

255  17 

0 

STOVL 

TET 

5100 

REF 

11 

LAST 

704 

13,2312 

0002  5 

0 

VAT'l  1 

5101 

13,2313 

776  24 

1 

CALL 

5102 

REF 

2 

LAST 

495 

13,2314 

23455 

1 

M IN  I RECT 

3 : 1 5 DEC.  2 , 19  70  KISSING  .050  PAGE  710 
USER *S  PAGE  Nr  . 2 E7  S3 

SET  0 ( MP AC ) =T I G IN  CSEC  828 
SET  T DEC  1=  T I G FOR  ORBITAL  INTEGRATION 


U ( - R ) 

U ( -R ) TO  2 AD 
U(-R) XV  = U ( V X R ) 


U ( V X R ) X U ( — R ) = U ( ( R X V ) X R ) 


V( MPAC)=DELtA  V IN  REFCPSYS 


V( PD6 ) =VATT  + DELTA  V 

PREVENT  WOULD-BE  USER  OF  ORBITAL 

1 NT  EG  Ff  OF  INT  EP  FEF  ING  WITH  UPDATING 


GAP: 


ASSEMBLE  t-  V I S I IN  001  OF  AGC  PROGRAM  AP11ROPE  BY  EYLES 


L P 76 


5103 

51 04  REF  29  LAST  681 

5105 

5106  REF  40  LAST  709 

5107  REF  1 

5109  PEF  92  LAST  709 

5110 

5111  PEF  1 

51  16 

5117  REF  3 LAST  610 

5118  REF  1 

5119  REF  174  LAST  709 

5120  REF  1 

5121 

512 c REF  129  LAST  701 

5126  PEF  5 ! AST  585 

5129  REF  18  LAST  683 


13.2315  77776  1 

13.2316  0 5353  1 

13.2317  04024  0 

13,2320  0 5504  0 

13,2721  §0236  0 

13.2322  0 6037  0 

13.2323  77624  1 

1 3.2324  26661  1 

17.2325  77531  0 

13.2326  00053  1 

13.2327  26332  1 

13.2330  0 4616  1 

13.2331  27445  1 

13.2332  77776  1 OUT 

13.2333  3 4754  i ENDP7)1 

13,7334  55 >46 2 1 

13,2335  1 6001  1 


5130 

1 3,2336 

01324 

0 

5131 

13,2337 

01441 

1 

5132 

13,2340 

43  174 

1 

5133 

I 3,234  1 

Or  002 

0 

5134 

REE 

1 1 

LAST 

705 

13,2342 

00063 

1 

5135 

13,2343 

770  14 

1 

5136 

REF 

6 

LAST 

693 

13,2344 

04303 

0 

5137 

REF 

4 

LAST 

711 

13,2345 

OC  052 

0 

5138 

13,2346 

00000 

1 

5 1 39 
5140 

13,2347 

13,2350 

4341r 

00263 

1 

0 

REF 

12 

1 AST 

711 

V06NE4 
P76SUB  1 


EX  I T 

TC 

OCT 

TC 

A P;  F S 


TC 

CALL 

SSP 


TC 

C A OR 
EXIT 
CAF 
TS 
TC  F 

NV 
N V 

AXT  ,2 


BON 


Ct  EAR 


< 


3: 15  DEC. 

2,19  70 

KISS  ING 

.050  PAGE  711 

..1 

USER 

•S  PAGE 

NO.  3 

E7  S3 

P HA  SC  HN  G 
04024 

UPFLAG 

PEIMTFLG 

INTPRET 

atopoth 

EXIT 
Q P R E T 
OUT 

BANKCALL  PERMIT  USE  OF  ORBITAL  INTEGRATION 

INI  WAKE  1 

ZERO 

MAP'KCTR  CLEAR  F P TRACKING  MAD  K COUMTER 

GOTOPOOH 

0684 

0633 

SET  < 

2 


MOONFLAG 

AXT, 2 

SET 

MEANS 

MOON 

IS 

SPHERE 

OF  INFLUENCE. 

C MO ONE LG 

SET 

MEANS 

PERM 

CM 

state 

IN  LUNAR.  SPHERE. 

QPR  ET 
0 

R VO 

MOONFLAG 


GAP: 


ASSEMBLE'  REVISION  OC 1 OF  AGC  PROGRAM  API  IP  UP  E BY  EYLES 


3:15  DEC 


2 ,1970  KISSING  .050  PAGE  712 


L F 30  USER'S  PAGE  NO.  1 EC  S3 

P0001  SUBROUTINE  NAME:  V82CALL 

R 0002  MOD  NO:  0 
R 0004  MOO  3 Y : RE  BAIRNS  FA THEE 
PC006  MOO  ’>  f;  i '00  BY: 

ROOOE  MOD  NO:  2 MOD  BY 

R0010  MOO  NO : 3 MOD  BY 

R 00 1 2 NEW  FUNCTIONAL  DESCRIPTION: 

R 00 1 3 USED  THROUGHOUT. 

ROOlc  1.  IF  AVERAGE  G IS  OFF: 

ROC  If  FLASH  DISPLAY  V04N0C.  k2  INDICATES  WHICH  SHIP'S  STATE  VECTOR  IS 

POOl-  8F  UPDATED.  MITTAL  CHOICE  IS  THIS  SLOP  ( F 2=  1 > . AST*'  FNAUT 

P 001 7 CAN  CHANGE  TO  OTHER  SHIP  BY  V22EXE,  WHERE  X NUT  EO  1. 

R00I8  SELECTED  STATF  VECTOR  UPDATED  BY  THISPREC  (OTHPPEC). 

RGC19  CALLS.  SL3C.1  (WHICH  CALLS  TFFCGNMU  + TFFRP/RA)  TO  CALCULATE 

R 00  2 1 -PER  (PERIGEE  ADIUS),  RAPO  ( APOGFF  RADIUS),  HP  ER  (PERIGEE 

R 002 1 HEIGHT  ABOVE  LAUNCH  PAD  OP.  LUNA'  LANDING  S^TE),  HARD  (APOGEE 

R 002  2 HEIGHT  AS  ABOVE),  TPER  (TIME  TO  PERIGEE),  TFF  (TIME  TG 

R 002  3 INTERSECT  300  KFT  ABOVE  PAD  OR  35KFT  ABOVE  LANDING  SITE). 

R0024  FLASH  MONITOR  V16N44  (HAPO,  H PER , TEFI.tfF  IS  -59M59S  IF  IT  WAS 

R 002E  NOT  COMPUTABLE,  OTHERWISE  IT  INCREMENTS  ONCE  PER  SECOND. 

R 002  ( ASTRONAUT  HAS  OPTION  TO  MONITOR  TPER  BY  KEYING  IN  N 32  E. 

R 0027  DISPLAY  IS  IN  HMS , IS  HE GATI VE  (AS  WAS  TFE ) , AND  INCREMENTS 

R 002  R ONCE  PER  SECOND  ONLY  IF  TEH  DISPLAY  WAS  -59M59S. 

R 0029  2.  IF  AVERAGE  G IS  ON: 

R0030  CALLS  Sf’30.1  APPROX  EVERY  TWO  SECS.  STATE  VECTOR  IS  ALWAYS 

R0031  FOP  THIS  VEHICLE.  V"2  DOES  NOT  DISTURB  STATE  VECTOR.  RESULTS 

R 0032  OF  SR30.1  ARE  APO,  RPEP  , HA  PO , HP  ER , TPER,  TFF. 

R 003  3 FLASH  MONITOR  V16N4*-  (HAPO,  HPER,  TFF). 

R 0036  ADDENDUM:  HAPO  AND  HPER  SHOULD  BE  CHANGED  TO  E AO  HAPOX  AND  HPFRX  IN  THE 
R 0037  ABOVE  REMARKS. 

R0C38  CAN  ING  SEQUENCE:  VE^B  32  ENTER. 


R003Q  SUBF  OUT  IN  ES  CALLED:  SR30.1,  GOXDSPF 

R0G40  1 1 A Y B E - THISPREC  , OTHPREC,  LOADTIME,  DELRSPL 

R004 1 NORMAL  EXIT  MUDES:  TC  ENDEXT 


P.004  2 

ALAR MS  : 

NONE 

R0043 

OUTPUT  : 

HAPOX 

(-29  ) 

M 

R 0044 

HPERX 

(-29  ) 

M 

R 0045 

RAPO 

(-29) 

M EARTH 

R 0046 

(-27  ) 

M MOON 

ROO^.t 

- D E R 

(-29) 

M EARTH 

R 0048 

(-27  ) 

M MOON 

R 0049 

TFF 

(-28) 

cs 

R0050 

-TPER 

(-28  ) 

cs 

• BA  I R NS  FAT  HEP 
ALOE  SO 
ALONSO 


CATE: 

DATE 

DATE: 


CALLED  BY  VERB  82  ENTER. 


11  APR  67 
II  DEC  67 
2fc  MAP  68 
PRIORITY  10 


DATE:  16  FEB  67 

LOG  SECTION:  R 30 

SR  30. 1 CHANGED  TO  ALLOW  MONITOR  OPERN 
VB82  PROGFAM  REWRITTEN 

PROG  Mod  TO  HANDLE  DT F EAPTH/MOOE  SCALE 


CALCULATE  AND  DISPLAY  ORBITAL  PARAMETERS 


( \I  NS  EG  AT  I V E UAN1  TY 
CONTAINS  NEGATIVE  QUANTITY 


GAP 


ASSEMBLE  REVISION::  001  OF  A3C  PROGRAM  API  IROPE  BY  fcYLES 


L R30 

R 005  1 

R.0052  ERASABLE  INITIALIZATION  REQUIRED:  STATE  VECTOR. 

R 0053  DEB  IS:  QPRET  , 'I  ONE*  VONE  , TFF/RTMU , HPERMIN,  RPADTEM*  V82EMFLG. 
R 005  A f A YBE  : T^A  '02,  V82F  LAGS  * TD  EC  1 . 


0055 

0056 

0057 

0058 

0059 

0060 
006  1 
0062 
0063 
006/ 


REF 

3 

LAST 

314 

REF 

2 

LAST 

44 

r>  c p 

p 

1 ART 

44  TO 

“li 

L H -3  I 

REF 

93 

LAST 

7 11 

REF 

2 

LAST 

22  8 

REE 

1 

REF 

1 

E4  * 1517 
31,2144 
22,2000 
22, 3242 
44 : 


22. 3242 

22.3243 

22.3244 

22 . 3245 

22.3246 


4 4* 

0 6037  0 
52014  0 
03712  0 
4 5465  1 
4 624  7 1 


EB ANK=  HAPOX 
BANK  31 
SETLOC  R30L  1C 
BANK 

COUNT  * $$/P30 

V82CALL  TC  INTPRET 

BON  GOTO 

AVEGFLAG 
V82GQN 
V 82  GOFF 


0065 

22, 3247 

77776 

1 

0066 

REF 

37 

LAST 

56  3 

22,3250 

3 4752 

0 

006"7 

REF 

1 1 

LAST 

3 3 6 

22,  3 ? <5 1 

55  * 051 

0 

OC'6  B 

REF 

8 1 

l AST 

44  6 

i 

c.  c.  y j c.  - c. 

D i 1 J Z3 

1 

0069 

REF 

12 

LAST 

713 

22,3253 

55*052 

0 

0070 

REF 

1 

22,3254 

3 3316 

0 

0071 

REE 

175 

LAST 

711 

22,3255 

0 4616 

1 

007? 

REF 

8 

LAST 

608 

22,3256 

2 0334 

1 

0073 

REF 

40 

LAST 

706 

22, 3257 

O'  5472 

0 

007/ 

n o ? t o 

r.c.  J JZ.  D V' 

U Z>  C.  D c. 

1 

0075 

22,3261 

0 3254 

1 

A 0076 

0077 

REF 

23 

LAST 

604 

22,3262 

3 ,47  50 

1 

0078 

REF 

30 

LAST 

650 

22,3263 

0 52  03 

0 

0079 

REF 

3 

LAST 

314 

E 4 , 1540 

0080 

REF 

1 

22,3264 

03430 

0 

0080 

REF 

1 

22,3265 

440  64 

0 

0081 

22, 3266 

0 0003 

1 

0082 

REF 

1 

22,3267 

3 3320 

0 

0083 

F EE 

20 

LAST 

678 

22,  32  TO 

54  C03 

0 

0084 

REF 

130 

LAST 

711 

22,3271 

3 47  55 

1 

0085 

REF 

? 

LAST 

115 

22, 3272 

56 ' 537 

0 

A 0086 

0087 

REF 

6 

LAST 

292 

22, 3273 

3 5021 

1 

0088 

REF 

2 5 

LAST 

703 

22,3274 

0 5105 

0 

0089 

REF 

4 

LAST 

713 

E4 , 1540 

0090 

REF 

1 

22 , 3275 

0 3321 

1 

0090 

REF 

l 

??, 3276 

44064 

0 

0091 

22,3277 

0 0003 

1 

0092 

REF 

20 

LAST 

601 

22,3300 

3 6245 

1 

V82G0FF  EXIT 

CAE  TWO 

TS  OPTIQNX 

CAF  ONE 

TS  OPTIQNX  +1 

CAF  OPT  I ONVN 

TC  BANKCALL 

C ADr  GOXDSPF 

TC  FNDEXT 

TC  +2 

TC  -5 

CAF  BIT4 

TC  WAITUS" 

E B A N K = TEE 

2 C A DP  TICKTES1- 


REl.  INT 

V82GUELE  CAF 
TS 
CAF 
TS 


TFFBANK 

EBANK 

ZERO 

V82 FLAGS 


CAE  PRIC7 

TC  FINDVAC 

E6ANK=  TEE 

2 CAD  V82GOFF1 

REL  INT 

V82ST ALL  CAF  THREE 


3:15  DEC.  2,1670  KISSING 
USER'S  PAGE  NO.  2 


.050  PAGE 
EO  S3 


713 


IF  AVERAGE  0 ON 
IF  AVERAGE  G OFF 


ALLOW  ASTRONAUT  TC  SELECT  VEHICLE 
DESIRED  FOR  ORBITAL  PARAMETERS 
CALCULATION  AND  DISPLAY. 


V 04  N 06 


TERMI NATE 
PROCEED 

DATA  IN.  0PTI0N1+ 1 


80  MS 


UN  EQ 


1 FOR  THIS  VEHICLE. 
1 FOR  OTHER.  VEHICLE. 


MAJOR  RECYCLE  LOOP  ENTRY 


ZERO  FLAGS  FOR  TTCKTESf . INHIBITS 
DECREMENTING  OF  TFF  AND  -T  PER . 

V82G0FF1  WILL  EXECUTE  STATE  VECTOR 
UPDATE  AND  ORBIT  CALCULATIONS  FOR 
SELECTED  VEHICLE  ABOUT  PROPER  BODY. 


STALL  IN  THIS  LOOP  AMD  WITHOLD  V 16  N 44 


gap:  ASSEMBLE  REVISION  001  GE  AGO  PROGRAM  AP11R0PE  BY  EYLES  3:15  DEC.  P.,1970  KISSING  .050  PAGE  714 


L 

R 30 

USER’S  PAGE  NO.  3 E4  S3 

0093 

REF 

3 

LAST 

713 

22 , 3301 

7 1537 

0 

mask 

V82FLAGS 

UNTIL  STATE  VECTOR  UPDATE  SETS  ONE  OF 

0094 

REF 

P 1 6 

LAST 

678 

22,3302 

10  0 00 

0 

CCS 

A 

OUR  FLAG  BITS. 

0095 

REF 

1 

22,3303 

0 33  LO 

0 

TC 

FLAGG ON 

EXIT  FROM  STALL  LOOP. 

0096 

REF 

7 

LAST 

68  0 

22, 3304 

3 4777 

1 

CAF 

IS  EC 

G097 

REF 

176 

LAST 

7 13 

22,3305 

0 46  1 6 

1 

TC 

BANKCALI 

009? 

REF 

12 

LAST 

600 

22 , 3306 

01735 

1 

CADR 

DELAY. J OP 

0099 

REF 

1 

22, 3307 

0 3300 

1 

TC 

V 8 2 S T A L L 

UlOO 

REF 

1 

22, 3310 

3 3317 

1 

F L AGGON 

CAF 

V16N44 

MONITOR  HAPO, HP  ER , TFF . 

0101 

REF 

177 

LAST 

7 14 

22,3311 

0 4616 

1 

TC 

8 ANKCALL 

0102 

REF 

9 

LAST 

713 

22,3312 

20334 

1 

CADE 

GCXDSPF 

0103 

REF 

8 

LAST 

70  3 

22,3313 

0 55  63 

1 

TC 

B50FF 

TERM  THIS  TELLS  TICKTEST  TO  KILL  ITSELF 

0104 

REF 

9 

LAST 

714 

22,3314 

0 5563 

1 

TC 

B50FF 

PROCEED  DITTO 

0105 

REF 

1 

22,3315 

0 3267 

1 

TC 

V82G0FLP 

RECYCLE  RECOMPUTE  STATE  VECT  + DISPLAY 

0106 

22,3316 

01014 

0 

OPT  IUNVN 

VN 

412 

0107 

22,3317 

04  054 

1 

V16W44; 

VN 

1 644 

0100 

REF 

5 

LAST 

713 

22,3320 

0 2140 

0 

tffbamk 

EC  ADR 

TFF 

0106 

REF 

94 

LAST 

713 

22,3321 

0 6037 

0 

V82GOFF1 

TC 

I.  NT  FRET 

Olio 

22 , 3322 

77634 

0 

RTB 

0111 

R E F 

19 

LAST 

707 

22 , 3323 

21573 

0 

LOADTIME 

0112 

REF 

40 

LAST 

710 

22,3324 

00041 

1 

STORE 

TDECI 

TIME  FOR  c TAT  E VECTOR  UPDATE. 

0113 

REF 

3 

LAST 

339 

22,3325 

02205 

1 

STOPE 

T STAR T3 2 

TIME  FOR  INTERNAL  USE. 

0114 

22,3326 

77776 

1 

EX  IT 

0115 

REF 

13 

LAST 

713 

22 ,3327 

4 1052 

0 

cs 

PPTITNX  +1 

1 FOR  THIS  VEHICLE,  MOT  l FOR  OTHER. 

0116 

REF 

82 

LAST 

713 

22,3330 

6 4753 

1 

AD 

ONE 

0117 

22,3331 

0 0006 

1 

EX  TEND 

01 1 « 

REF 

1 

72,333? 

1 3 3 6 ‘ 

0 

8ZF 

T MT',  ■*  U ’ f 

1 Li  i O v n L r 

0119 

REF 

95 

LAST 

714 

22,3333 

0 6037 

0 

DTHSHIP 

TC 

INTPRET 

01  2 

22,3334 

77624 

1 

CALL 

CALL  STATE  VECTOR  UPDATE  FOR  OTHER  SHIP. 

012  1 

REF 

3 

L AST 

710 

22,3335 

2 7043 

n 

riTHPR.Fr 

V 

012? 

2?  , 33 3 0 

77775 

1 

BOTHSHIP 

VLOAD 

MOVE  RESULTS  INTO  TFFCONIC  STORAGE  AREAS 

0123 

REF 

24 

LAST 

710 

22, 3337 

OOOCl 

0 

9 ATT 

TO  BE  CALLED  3V  SC30.I. 

012  4 

R EF 

1 l 

LAST 

706 

72, 3340 

26207 

0 

S TO  VL 

ROME 

R ATT  AT  I -2° ) M FOR  EARTH  0=  MOON 

0125 

REF 

20 

LAST 

7 10 

22,3341 

00007 

0 

VATT 

0126 

REF 

5 

LAST 

706 

22,3342 

022  15 

0 

STORE 

VONE 

VATT  AT  (-71M/CS  FOR  EARTH  PR  MOON 

0127 

22 , 3343 

77743 

1 

DLOAD* 

0128 

REF 

1 

22,3344 

73774 

1 

1 /RTM'JE,  2 

X2  IS  0 F0>  EARTH  CENTER®  STATE  VEC 

012c 

REF 

1 

22, 3345 

0 t 037 

0 

STORE 

TFF/RTMU 

X2  I S 2 FCR  MOON 

01  3 0 

22,3346 

1774  3 

1 

DLOAD* 

AS  LEFT  BY  thisprec  OR  OtHPREC. 

0131 

REF 

1 

22, 3347 

7 2411 

0 

MI  NP  ER  E , 2 

0132 

REF 

2 

LAST 

1 15 

22,3350 

02201 

0 

STORE 

HPERMIN 

TFFRTMIJ,  HPERMIN  AND  RPADTEM  APE  ALL 

0133 

22, 335 1 

46  1 3 5 

1 

SLOAD 

BHIZ 

EARTH/MOON  PARAMETERS  AS  SET  HERE. 

0134 

REF 

12 

LAST 

696 

22,3352 

COO  50 

1 

X2 

0135 

REF 

1 

22, 3353 

45367 

1 

EARTHPAD 

0136 

22,3354 

77650 

1 

GOTn 

0137 

REF 

1 

22,3355 

45373 

1 

MOON PAD 

I 


GAP  : 

i_ 

0138 

0139 

014-0 

0141 

0142 

R 0 1 4 3 

014-6 

0146 

014? 

014? 

0148 

0 1 4 9 

0150 

0151 

0152 

0153 

0154 

015  5 

0 1 5 6 

0157 

0158 

0156 

0160 

0161 

0162 

0163 

0164 

0165 

0166 

0167 

0168 

016  9 

0170 

017] 

0172 

0173 

0174 

0175 

0176 

0177 

017  6 

0179 

018  0 
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R30 


REF 

96 

LAST 

714 

22, 3356 

0 6037 

0 

THISSHI P 

TC 

INTPRET 

22,3357 

77624 

1 

CALL 

REF 

2 

LAST 

701 

22 , 3360 

27057 

0 

THISPREC 

22, 3361 

77o5  0 

1 

GOTO 

REF 

1 

22, 3362 

453  3 6 

0 

BOTH  SHIP 

THE 

FOLLOWI  NG 

CONSTANTS  ARE 

PAIRWISE 

indexed,  do 

NOT  SEPARATE 

PAIR 

22, 3363 

0G0U1 

0 

Ml NF  ERM 

ontr 

1 Go  6 8 

R_G7 

4 U c u 

O C.  I 

22, 3364 

1 15  30 

1 

22.3365 

22. 3366 

Of  002 
31230 

0 

1 

M INFER E 

2DEC 

91440 

B— 29 

REF 

LAST 

696 

22,3367 
22, 3370 

43145 

06315 

0 

0 

EARTHPAD 

DLOAD 

C LR  GO 
p PAD 

2 

REF 

1 

22 , 3371 

03635 

1 

V82EMFLG 

REF 

1 

22 , 3372 

46377 

0 

BOTHPAD 

USER'S  PAGE  NO.  4 E4  S3 


CALL  STATE  VECTOR  UPDATE  FOP  THIS  SHIP. 


35  KFT  MIN  PERIGEE  HEIGHT  EOF  MOON(-27)M 
300  KFT  <-2c)M  EOF  EARTH 

PAD  37-9  RADIUS.  SCALED  AT  (-2Q)M. 
INDICATE  EARTH  SCALING  FOR  SR30.1 


REF  4 LAST 

REF  2 LAST 
REE  2 LAST 
REF  1 

REF  20  LAST 
TEE  4 -LAST 
PEE  5 LAST 

-EE  2 LAST 
REF  1 

REE  3 LAST 
REF  6 LAST 
-EF  4 LAST 

REF  34  LAST 
REE  4 LAST 
REF  103  LAST 


22,3373 
696  22,3374 

22,3375 
715  22,3376 

1 15  2 2,  33  77 

22,3*00 

22,340 1 

714  22,3402 

7 14  22,340  3 

715  22,3404 
22, 3405 

306  22,3*06 

22,3407 
22 , 34  10 
715  22,3411 

715  22,3412 

715  22,3413 

22 ,3414 
612  22,3415 

714  22,3416 

607  22,3417 


51575  1 MOONPAD 
02023  1 

77614  1 
03476  1 

36203  0 BOTHPAD 

45551  1 

45234  0 

21573  0 

02205  1 

0220 5 1 

53145  1 

02143  0 

45420  0 

43345  1 TICKTPER 
02 1 43  0 
02205  1 
021 '-3  0 
77776  1 
3 4753  1 
55*537  0 
0 5155  0 


VLOAD  ABVAL 
RLS 

SET 

V82EMFLG 
STC  ALL  RPAO?EM 
SP30. 1 
RTB  DSU 

LOADTIME 
TSTAR  T 82 
STORE  TSTART82 
DLOAD  BZE 

—TP  EB 
T ICKTFF 
DLOAD  DAD 

-TPE  ■' 

T ST  ARTS  2 
STORE  -TPE  . 

EX  IT 

CAF  B IT  1 
TS  V82FLAGS 

TC  ENDOF JOB 


COMPUTE  MOON  PAD  RADIUS  FROM  P.LS  VECTOR. 
SCALED  AT  (-27JM. 

INDICATE  MOON  SCALING  FOR  SR30.1 
CALCULATE  ORBITAL  PAPAMETEPS 


PRESENT  TIME  - TIME  V82G0FF1  BEGAN 
SAVE  IT 

SR30.1  SETS  -TPER  =0  IF  HPE^  L/ 

HPERMIN  ( 30D  OR  35)  KFT. 

(-TPEP  = 0) 

(-TPEP  NGN  ZERO)  TFF  WAS  NOT  COMPUTED, 
BUT  WAS  SET  TO  59M59S.DONT  TICK  TFF,  00 
TICK  -TPEF.  DISPLAY  BOTH. 

-T  PER  CORRECTED  FOR  TIME  SINCE  V82GOFF1 
BEGAN. 

INFORMS  TICKTEST  TO  INCREMENT  ONLY  -TP  ER 


22, 3420 

4334  > 

1 T ICKTFF 

DLOAD 

DAD 

( -TPEF  =0 ) TFF  WAS  CO Mn UT ED. TICK  TFF. 

P EF 

6 

LAST 

7 14 

22,3421 

0.2  141 

1 

TFF 

DO  NOT  TICK  -TPER. DISPLAY  TFF,  BUT  NOT 

REF 

7 

LAST 

715 

22,3422 

02205 

1 

T ST  ARTS 2 

-TP  ER . 

REF 

7 

LAST 

715 

22,3423 

02141 

1 

STORE 

TFF 

TFF  CORRECTED  FOR  TIME  SINCE  V82G0FF1 

22 , 3424 

77776 

1 

EXIT 

BEGAN. 

REF 

3 7 

LAST 

655 

22,3425 

3 *752 

0 

CAF 

B IT  2 

REF 

5 

1 AST 

716 

22, 3426 

55*537 

0 

TS 

V82FLAGS 

INFORMS  TICKTEST  TO  INCREMENT  ONLY  TFF. 

REF 

104 

LAST 

7 15 

22,3427 

o 5155 

0 

TC 

ENDOF JOB 

GAP:  ASSEMBLE  REVISION  OGl 


L "SO 


0181 

REF 

29 

LAST 

706 

0182 

REF 

13 

LAST 

706 

0183 

REF 

2 17 

LAST 

714 

0184 

R E-F 

1 

0185 

REF 

3 

LAST 

592 

0186 

REF 

15 

LAST 

703 

0187 

REF 

14 

LAST 

716 

0188 

REF 

41 

LAST 

713 

0188 

OU-s 

REF 

31 

LAST 

703 

Oioo 

REF 

8 

LAST 

714 

0191 

REF 

31 

LAST 

7 13 

0192 

REF 

8 

LAST 

71  5 

0193 

P.EF 

2 

LAST 

713 

0193 

0194 

REF 

21 

LAST 

713 

019  6 

REF 

6 

LAST 

715 

0196 

RFF 

21« 

LAST 

716 

0197 

0198 

REF 

32 

LAST 

716 

A 01 99 

0200 

0 EF 

1 

0201 

RFF 

0 

LAST 

7 16 

020? 

REF 

95 

LAST 

70  2 

0203 

REF 

131 

LAST 

713 

020^ 

REF 

9 

LAST 

716 

0205 

REF 

33 

LAST 

716 

020  6 

REF 

10 

LAST 

716 

0207 

REF 

96 

LAST 

716 

0208 

R E F 

1 32 

l AST 

7 I 6 

0209 

REF 

5 

LAST 

715 

0210 

REF 

34 

LAST 

716 

AGC  PROGRAM  API  1 ROPE  BY  EYI.ES 


, 3430 

3 4747 

1 

TICKTEST 

CAE 

,343  1 

7 1044 

1 

MASK 

i n ncio 

n 

rrc 

, y ■ , .>  c 

I U U U *- 

J 

,3433 

0 3441 

0 

rc 

, 34  34 

3 7713 

0 

CAF 

, 843  5 

0 5072 

1 

TC 

1044 

EBANK 

,3436 

05472 

0 

2CADR 

, 3437 

0406  2 

1 

,3440 

0 62  61 

1 

TC 

, 344  i 

3 477  7 

1 

DCTTCK 

CAF 

,344  2 

0 F 203 

0 

TC 

i I - 

EBANK 

, 3443 

03430 

0 

2C  ADR 

,3444 

44064 

0 

,344  5 

3 62  4 5 

1 

CAF 

, 3446 

7 1537 

0 

MASK 

, 3 4 4 7 

50  000 

1 

INDEX 

, 3450 

0 3451 

1 

TC 

,3451 

0 5261 

1 

TC 

, 3452 

0 3460 

0 

TC 

* 3453 

3 4 7 77 

1 

T F FT  I CK 

CAF 

,3484 

54  001 

1 

TS 

, 34  5 5 

3 47  55 

1 

CAF 

,3456 

21 • 541 

1 

CAS 

, 345  1 

0 52  61 

1 

TC 

, 3460 

3 477  7 

1 

TPFRTICK. 

CAF 

, 3 ' ; 1 

54  001 

1 

TS 

, 346  2 

3 4 7 5 5 

1 

CAF 

,346  3 

21 » 543 

0 

DAS 

,3464 

0 5261 

1 

TC 

OF  • 

22 

22 

22 

2 2 

22 

22 

22 

22 

22 

22 

22 

E4 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

2 2 

2 2 

22 

22 


« 


3:15  DEC.  2,1570  KISSING  .050  PAGE  716 

USER'S  PAGE  NO.  5 E4  S3 

B I T 5 THIS  WAITLIST  PROGRAM  PERPETUATES  ITSELF 

EXT V B ACT  ONCE  A SEC  UNTIL  BIT  5 OF  E XTVBACT  =0. 

A 

OOTICK 
PR  1 025 

NOV AC  TERMINATE  V P 2 . CANT  CALI  ENOEXT  IN  RUPT. 

EXTVBACT 

ENOEXT 

T ASKOVEF 

I SEC  I E-';  E QUEST  TJCKTEST. 

WAITL 1ST 
TFF 

T ICKTEST 


THREE 

V82FLAGS 

A 

+ 1 

TASKOVER 

TPfci-  TICK 
I SEC 
l 

ZERO 

TFF 

TASKOVER 
1 SEC 
t. 

ZERO 

-TPER 

TASKOVER 


IF  NO  FLAGBITS 
-TPER,  BUT  CON 
ONLY  BIT  1 SFT 
ONLY  BIT  2 SFT 


SET  DONT  CHANGE  TFF  OR 
INUE  LOOP. 

INCR  -TPER  BY  1 SEC. 

I NCR  TFF  BY  1 PEC. 


GAP: 


ASSEMBLE  REVISION  001  OF  AGC  PROGRAM  API  ll'f.PE  BY  EYLES 


3:10  DEC 


2,1970  KISSING 


050  PAGE  717 


» 


330 


021 1 
A0212 
0213 
02  1 A 
021S 
C21  6 
0 213 

0217 

0218 
021 ' 

A 0220 
A 022  1 
022? 

0223 

0224 
022* 
0223 

0227 

0228 
A 022  9 

023  0 

0231 

0232 

0233 

0234 
023  c 

0236 

0237 

0238 
023<= 


REF  7 LAST  713 
REF  2 LAST  713 
REF  1 LAST  716 
REF  1 
REF  1 


REF 

4 

LAST 

552 

REF 

3 

LAST 

552 

REF 

2 

LAST 

714 

REF 

1.78 

LAST 

7 14 

REF 

1.0, 

LAST 

714 

«ef 

10  ■ 

1 AST 

714 

RFF 

11 

LAST 

717 

P EF 

I 

REF 

97 

LAST 

715 

REF 

6 

LAST 

706 

REF 

1 

REF 

12 

LAST 

7 14 

REF 

6 

LAST 

706 

REF 

6 

LAST 

714 

REF 

4 

LA  c T 

705 

REF 

REF 


22  ,3465 

22,3466 
22, 3637 
E4,  154? 
22,3*70 

22 . 3471 

22 . 3472 

22 . 3473 
22, 347-. 


77776  1 

3 5021  1 
0 5105  0 

03503  1 
44064  0 
0 0003  1 
10  067  1 
0 8122  0 


22.3475  3 3317  1 

22.3476  0 *616  1 

22.3477  20334; 1 

22,3  5 00  0 V-:.  1 1 

22,3501  C 5533  1 
22,3802  0 3475  1 

22 ,3503  0 6037  0 

22,350*  52175  0 

22,3505  01221  1 

2 2,3  506  4 r 5 0 7 1 

22, 3507  26207  0 

22.3510  01227  1 

22.3511  02215  0 

22.3512  52014  0 

22.3513  04304  1 

22.351 4 45 51 6 1 

22.3515  45527  0 


V82GON 

EXIT 

CAF  PRI07 

TC  FINDVAC 

EBAN‘K=  T FF 

2C  ADR  VR2G0M1 

RELINT 

CCS  NEW JOB 
TC  C HANOI 

VS2RE0SP  CAF  V16N44 

TC  BANKCALL 

C A Q R GGXDSPF 

TC  B 50 FF 

TC  B50FF 

TC  V 8 2 R E 0 S P 


V82GON1  TC  INTPRET 


VLDAD 


NEXTLINE  STOVL 


STORE 

BON 


GOT' 

R N 

NEXTLINE 

PONE 

VN 

VONE 

GOTO 

MOONTHIS 

mSongon 

EARTHGON 


> 

I 

3" 

> 

I 

2" 

I 


0240 

22,3516 

71214 

0 

MOUl.GON 

SET 

□ LOAD 

0241 

1 FF 

3 

LAST 

715 

22,3517 

03475 

1 

VS2EMFLG 

02  42 

REF 

1 

22,3520 

C4001 

1 

1 / r MIJM 

0243 

REF 

2 

LACT 

714 

22,3521 

14037 

0 

STL:  01 

TFF  / TM( 

0244 

REF 

1 

22,3522 

05364 

0 

MINPERM 

0245 

REF 

3 

LAST 

714 

22,3523 

26201 

0 

STOVL 

HPERMIN 

0246 

REF 

LAST 

7 1 6 

9?.  Si  c:  o a 

02023 

1 

ft  1 Q 

-J 

c.  C T J _>  C.  T 

I 

0247 

22,3525 

52046 

1 

ABVAL 

GOTO 

02*6 

REF 

1 

22,3526 

45536 

0 

V82G0N2 

0246 

22, 35?7 

712  14 

0 

EARTHGON 

C L E AP 

DLnA  D 

0250 

REF 

4 

LAST 

717 

22 , 3530 

03675 

0 

V82EMFLC 

0251 

REF 

2 

LAST 

714 

22,353  1 

04003 

0 

1 /P TMUE 

0 2 5 2 

REF 

3 

LAST 

7 17 

22 , 3532 

14037 

0 

STODL 

TFF/RTMU 

0253 

' E F 

2 

LAST 

714 

22 , 35  3 3 

0 5366 

1 

MINPERE 

021  * 

? EF 

4 

LAST 

717 

22,3534 

16201 

0 

STOOL 

HPERMIN, 

0255 

REF 

3 

LAST 

715 

22,3535 

06315 

0 

RPAD 

0256 

REF 

3 

LAST 

7 15 

22, 3536 

36203 

0 

V82GGN2 

STCALL 

RPADTEM 

0257 

RFF 

2 

L AST 

715 

22 ,3537 

45551 

1 

SR30. 1 

USER'S  RAGE  NO.  6 E4  S3 

AVERAGE  G ON.  USE  CURRENT  STATE  VECTOR 
FOR  ORBITAL  PARAMETER  CALCULATIONS. 

LESS  THAN  LAMBERT 

V82G0N1  WILL  PERFORM  ORBIT  CALCULATIONS 
ABOUT  PROPER  BODY  APPROX  ONCE  PEP  SEC. 


W_|T HO L D V 16  N44  UNTIL  FIRST  ORBIT  CALC 
TS  DOLE.  NOTE:  V82GnNl  (PRI07,  FINOVAC 
JOB)  IS  COMPLETED  BEFORE  V«2G0N  (PRI07, 
NOVAC  JOB) . 

MONITOR  HAPO,  HP  ER , T FF 


TERM  THIS  TELLS  V82GON1  TO  KILI  ITSELF. 
PROC  DITTO  . 

R ECYCLE 

THIS  EXEC  PROGRAM  PERPETUATES  ITSELF 
ONCE  A SEC  UNTIL  BIT  5 OF  EXTVBACT  =0. 
HOLDS  OFF  CCS  NEWJPB  B FT  WEEN  RN  AND 
VN  FETCH  SO  RN  , VN  A?  E FROM  SAME 
STATE  VECTOR  UPDATE. 

RN  AT  (-29) M FOR  FARTH  OR  MOON 

VN  AT  (-7 ) M/CS  FOR  FARTH  OF  MOCU 

FLAG  INDICATES  BODY  ABOUT  WHICH  TR8ITAL 
CALCULATIONS  APE  TO  BE  P EF  FORMED . 

IF  SET  - MOON  , IF  RESET  - EARTH. 


INDICATE  MOON  SCA'ING  FOR  SR30.1 
LUNAR  PARAMETERS  LOADED  HERE  FOR  Sr3C.l 


SCALED  AT  <-27)M. 


INDICATE  EARTH  SCALING  FOR  SF30.1 
EARTH  PARAMETERS  LOADED  HERE  FOR  SR30.1 


COMMON  CODE  FOR  EARTH  8 MOON. 


1 


GAP:  ASS  E ' PL  E .EVISION  001  G|  AGO  PF  uG  AM  APil-OPE  BY  EYLES 


3:15  DEC 


2,1970  KISSING 


050 


PAGE  718 


L P.3  ' USER'S  PAGE  1 . 7 E4  S3 


0? 

22,3540 

77776 

1 

EXIT 

0259 

REF 

30 

LAST 

7 16 

22,3541 

3 4747 

1 

V82GON3 

CAF 

BIT5 

026C 

REF 

15 

LAST 

7 1 to 

22,3542 

7 1 l 44 

1 

MASK 

EXTRACT 

SEE  IF  ASTRONAUT  HAS  SIGNALLED  TERMINATE 

0251 

2 2 , 35  6 3 

0 000  6 

1 

EXTEND 

0262 

REF 

42 

LAST 

716 

22 , 3 544 

1 .5472 

1 

B7F 

FNDEXT 

YES,  TERMINATE  VB  F2  LOOP 

0263 

PEF 

11 

LAST 

716 

2 2 , "*645 

3 4777 

1 

CAF 

1 SEC 

026* 

REF 

179 

LAST 

7 17 

22,3546 

0 4616 

1 

TC 

BANKCALL 

WAIT  ONE  SECOND  BEFORE  REPEATING 

0265 

REF 

13 

LAST 

714 

22,3547 

017  3 5 

1 

CADR 

DELAY  JOB 

ORBITAL  PARAMETER  COMPUTATION. 

0266 

REF 

2. 

LAST 

717 

22,3550 

C 3503 

1 

TC 

V82GON.1 

0267 

REF 

1 

22,3541 

SPI R ET 

= 

V82G0N3 

GAP: 


ASSEMBLE  REVISION  001  UF  AGC  PROGRAM  AP11R0PE  BY  EYLES 


3: 15  DEC 


2,1970  KISSING 


050  PAGE  719 


L 

P 0268 
R 0265 
R 027  1 
R 027  3 
R 0275 
R 0277 
R 02  7° 
R 028  1 
R 02  3 3 

R 02  8 A 
R0286 
R0237 
R 023  8 
R 0289 
R 0290 
R 02°  1 
R 029? 
P 0293 

R0294 
R 0295 

R 0296 
R 02  97 
R 0298 
R0299 
R 0300 
R 030  1 
R 0302 
R 0303 
R 0304 
R 0305 
R 0307 
R 030G 
R 03 1 0 
R 03  1 1 
R 03  1 2 
R 031  3 
P.0314 
R 03 1 c 
R 031  6 
R 03 1 7 
R 03 1 8 
R 03  19 
R 032  0 

R 03  2 1 


R 30 


USEE ' S PAGE  N C . 8 E4  S3 


SUBROUTINE  NAME:  SR30.1 

MGD  NO : 0 

M v. : 0 BY:  ••  0 A I - NS  E AT  H E 

MOD  NO:  1 MOD  BY:  RR  BAIRNSFATHE 

MOD  NO:  2 MOD  BY:  FR  BAIRNSFATHE" 

MOD  NO:  3 MOD  BY  ALONSO 

MOD  NO:  4 MOD  BY  ALONSO 

MOD  NO:  5 MOD  BY:  RR  BAIRNSFATHER 


DATE:  16  FEB  67 

LOG  SECTION:  R32 


date: 

1 1 

APR 

67 

SR 30. 1 CHANGED  Tn  ALLOW  MONITOR  OPERN 

DATE: 

14 

APF 

67 

ADD  OVFL  CK  FOR  P.APO 

DATE: 

1 I 

DFC 

67 

SUBROUTINE  REWRITTEN 

DATE: 

26 

MAF; 

68 

PROG  MOD  TO  HANDLE  DIF  EARTH/MOON  SCALE 

DATE  : 

6 

AUG 

68 

OVFL  CK  FOR  HAPO  6 HPER. VOIDS  MOD  #2. 

NEW  FUNCTIONAL  DE  f Cl  IP  T I -I : ( • BIT  AL  PARAMETERS  DISPLAY  FOR  NOUNS  32  AND  44. 

S 0 3 0 . 1 CALLS  TFFCLMMU  AND  TFF  o/f  A TO  CALCULATE  RPEP  (PERIGEE  "ADIUS), 

RAPO  (APOGEE  RADIUS),  HP  Ef  (PERIGEE  HEIGHT  ABOVE  LAUNCH  PAD  OR  LUNAR 
LANDING  SITE),  HAPO  (APOGEE  HEIGHT  AS  ABOVE),  TP  ER  (TIME  TO  PERIGEE), 

TFF  (TIME  Tl  INTE  .SECT  MK-  KF T ABOVE  PAD  OR  35KFT  ABOVE  LANDING  SITE). 

IF  HP  El  IS  G:  FATE'  •'HAL  " EQUAL  To  HP  E ’ Ml  N , CALCULATES  TP  EE  AND  STORES 
NEGATIVE  T ' - T P E I . 'THE-  SL  STu-ES  +0  IF  -TREE.  WHEMEVE!  TP  EL  IS 
CAL  CHI  ATED,  TFF  IS  NOT  CCMPUTARLF  AND  DEFAULT"  TO  -r>9M  IN  59SEC . IF  HAPO 
WOULD  EXCEED  9999.9  NM,  IT  IS  LIMITED  TO  THAT  VALUE  FOR  DISPLAY. 


ADDENDUM: 


HAPO  AND  HPE-  SHOULD  BE  CHANGED  TO  - EAD  HAPOX  AND  HPERX  IN  THE 
ABOVE  REMARKS. 


CALLING  SEQUENCE: 

SUBROUTINES  CALLEI 
NORMAL  EXIT  MODE: 
ALARMS : 


OUTPUT:  RAPO  ( 

( 
( 
( 
( 
( 


RAPO 

RPER 

HAPOX 

HPERX 

TFF 

-TPER 


E A r T h 
MOON 
EARTH 
MOON 


( 

ERASABLE  INITIALI 
T FF/5 TMU 

ROME 
VO  ME 
F PAOTiM 


-29) 

-2  7 ) 

-2°  ) 

-27  ) 

-2,9  ) 

-2°  ) 

-2H  ) 

-28  ) 

ZATION 
(+17)  EARTH 
(+14)  MOON 
(-29)  1 

(-7)  M/CS 


CALL 

SR30.1 

TFFCONMU , TFf  -P/  A,  CALC TPER,  CALCTFF 
CALLING  LINE  +1  (STILL  IN  INTERPRET  I VF  MODE) 
NONE 

APOGEE  PAD  I US 


PER IGE  E RADIUS 


CS 

CS 


EARTH  CENTERED  COORD. 
MOON  CENTERED  COORD. 
EARTH  CENTERED  COORD. 
MOON  CENTERED  COORD. 
APOGEE  ALTITUDE  ABOVE  PAD  OR  LAND.  SITE 
FEf  IGEE  Al  7 . ABOVE  FAD  (;:  LAND.  SITE 
TIME  TO  book  FT  OR  3 ‘'KF  T ALTITUDE 
TIME  TO  PERIGEE 


1EQUI  RED- 


PROPER 
- 1 / SQF 


GRAV  CONSTANT 
T ( MU  ) . 


FOR 


MAX 

MAX 


V Al  UE 
VALUE 


LIMITED 

LIMITED 


TO 

T0 


9999.9  NM. 
9999.9  NM, 


HPERMIN 
V82EMFI.  G 


RECIPROCAL  C F 
EARTH  OR  MOON 
STATE  VECTOR 
STATE  VECTOR 

(-2°)  M EA  VH  r AD ! JS  IF  LAUNCH  PAD  OF  LUNA?  LANDING 
(-27)  M MOON  SITE. 

(-29)  M EARTH  (300  OR  351KFT  MINIMUM  PERIGEE  ALTITUDE 
(-27)  M Li  ON  ABOVE  LAUNCH  PAD  OF  LUNA-  LANDING  SITE. 
(INT  SO  BIT)  RESET  FOR  EARTH,  SET  FOE  MOON. 


DEBRIS:  0 P R E T , POL,  S2 


GAP: 

ASSEMBLE  REVISION 

001 

OF  AGC  PROGRAM  API 1KDPE  BY  EYLES 

3:15  OEC.  2,1970  KISSING  .050  PAGE  720 

L 

6 30 

USER'S  PAGE  NO.  9 E4  S3 

032  2 

RFF 

1 

COUNT* 

$ $/ SR  30  S 

O'}  9 -3 

9.9  . 53  ee  l 

AAA  n 1 

0 

crnn  1 

ccrpn 

r 1 * 

INITIAi  T7P  PIJ’st-innWM  t T C T 

\J  D/C  _» 

C.  4-  f .9  9 L 

t'tl  5 1 

. > 1 w 

0324 

22,3552 

00  001 

0 

0 

032  5 

RFF 

7 

1 AST 

6 10 

22,3553 

00051 

0 

s? 

A 032  6 

SR30.1  INPUT:  ROME  AT  (-291M  EARTH/MOQN 

A 032  7 

VONE  AT  (-71M/CS 

A 032  F 

TFFCONMU  ,TFFRP/RA ,CALCTPEF  AND  CALCTFF 

A0329 

CALLS  REQUIRE  : 

A 033  0 

EARTH  CENTERED  I NO  RESCALING  REQUIRED) 

A0331 

RONE  SCALED  TO  B-29  M 

A0332 

VONE  SCALED  Tr  B-7  M/CS 

A 033  3 

MOON  CENTERED  (RESCALING  REQUIRED) 

A 0334 

RONE  SCALED  TO  B-27  M 

A 03  3 5 

VONE  SCALED  TO  B-5  M/CS 

03  36 

22,3554 

772  14 

0 

BOFF 

V LOAD 

0337 

RFF 

5 

t A « T 

71? 

22,3555 

03  75  5 

0 

782EMFLG 

OFF  FOR  EARTH  , ON  FOP  MOON. 

033« 

REF 

1 

22,3556 

6£?565 

0 

TFFCALl  S 

0339 

REF 

13 

LAST 

717 

22 , 3557 

02207 

0 

RCNE 

0340 

22,3560 

77752 

1 

VSL2 

0341 

REF 

14 

LAST 

7 20 

22, 3561 

26207 

0 

STOVL 

RONE 

0342 

REF 

7 

LAST 

717 

22, 356? 

•022  15 

0 

VC  ME 

0343 

32,3543 

77752 

1 

V SL  2 

O'*  4^ 

RFF 

8 

LAST 

72  n 

22 , 3564 

022  15 

0 

STORE 

VONE 

0345 

22,3565 

77624 

1 

TFFCAL  LS 

CAt  L 

0346 

REF 

1 

22 ,3566 

57361 

1 

TFFCONMU 

034  7 

22,3567 

77624 

1 

CALL 

TFFiP/RA  COMPUTES  RAPO,KPF  . 

0348 

REF 

1 

22,357 0 

57427 

1 

T F F P / 0 A 

A 0349 

RETURNS  WITH  P APO  IN  O(MPAC). 

0350 

'’2,3571 

77625 

n 

DS IJ 

0351 

REF 

4 

LAST 

717 

22,3572 

02203 

1 

RPAOTEM 

0352 

22,3573 

64414 

1 

BOFF 

SR2R 

NEED  HAPO  AT  (-29) M FOP  DISPLAY. 

A 03  53 

IF  MOON  CENTERED,  PFSCALE  FROM  ( — 2 7 ) M . 

A 036  ? 

IF  EARTH  CENTERED  ALREADY  AT  (-29 >M. 

035  5 

REF 

6 

LAST 

72  ) 

22,3574 

03755 

0 

V 8 2 E -1 F l G 

OFF  FOR  EARTH  , ON  FOR  MOON. 

0356 

22 , 3575 

45576 

1 

+ 1 

0357 

22,3576 

776  24 

1 

CALL 

IF  HAPO  > MAXNM , SET  HAPO  =9999.9  NM. 

0358 

REF 

5 

LAST 

653 

22 , 3577 

4 5 6 3 6 

0 

MAXCHK 

OTHERWISE  STORE  ( R APO-R  PADTEM ) IN  HAPO. 

0359 

REF 

4 

LAST 

713 

22, 3fo0C 

16120 

0 

S TOR  HAP  C 

STOOL 

HAPOX 

036  0 

REF 

l 

22 , 360 1 

COO  17 

1 

R PER 

0361 

22,3602 

7762  5 

0 

DSU 

0362 

REF 

5 

LAST 

7 20 

22 , 3603 

02203 

1 

RPAOTEM 

GIVES  HPEP  AT  (-2°)M  EARTH,  (-27)M  MOON. 

0363 

REF 

283 

LAST 

701 

22,3604 

00161 

1 

STOP  E 

MPAC  +4 

SAVE  THIS  F CP  COMPARISON  TO  HPERMIN . 

0364 

22 , 3605 

644 1 4 

1 

BOFF 

SR2R 

NEED  HPFR  AT  (-29)M  FOR  DISPLAY. 

A 036  5 

IF  MOON  CENTERED,  RESCALE  FROM  (-27)M. 

A 036  6 

IF  EAFTH  CENTERED  ALREADY  AT  (-29JM. 

0367 

REF 

7 

LAST 

720 

22,3606 

03755 

0 

V82EMFLG 

OFF  FOR  EARTH,  ON  FOR  MOON. 

0368 

22,3607 

45610 

1 

+ 1 

0369 

?2 , 3610 

77624 

1 

CALL 

IF  HP  ER  > PAXNM,  SET  HP  ER  = 9999.9  NM. 

0370 

REF 

6 

LAST 

720 

22,3611 

45636 

0 

MAXCHK 
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0371 

037? 

0373 

0374 

0375 

0376 

0377 

0378 
037c 
0380 
0331 
038? 

0383 

0384 

0385 

0386 

0337 

0338 

0389 

0390 


R30 


REF 

2 

LAST 

314 

REF 

284 

LAST 

720 

KEF 

5 

LAST 

717 

o E F 

1 

REF 

4 

LAST 

593 

REF 

1 

PE  F 

2 

LAST 

720 

REF 

1 

REF 

6 

LAST 

716 

REF 

6 

LAST 

721 

REF 

6 

LAST 

720 

0 EF 

1 

REF 

1 1 

LAST 

717 

REF 

8 

LAST 

720 

2 2, 36  12 

16122 

1 

STOP  HP ER 

STODL 

22, 3613 

00161 

1 

22,3614 

51025 

1 

DSU 

22,3615 

02201 

0 

22,3616 

456  22 

0 

2 2,  3(6 1 7 

5214-5 

0 

DLOAD 

22,  3620 

06522 

1 

22,3621 

45626 

1 

22,3622 

451-.- . 

0 

OGTPER 

DLOAD 

22,3623 

OOC  17 

1 

22 , 3624 

57465 

1 

22.3625 

22. 3626 

77<.7A 

n 

DCOMP 

STODL 

f 1 o r 0 

16143 

v_/ 

0 

SKI PTPER 

22, 3627 
22, 3630 
22 , 363  1 

22 . 3632 

22.3633 
22,3634- 
?2, 3635 


02201  0 
45QA6  1 
02203  1 
5 7470  0 
77676  0 
36141  0 
00051  0 


DAD 


DCOMP 

STCALL 


039  1 

22 ,3636 

51026 

1 

MAXCHK 

DSU 

0392 

p E F 

1 

22,3637 

05646 

0 

0393 

? 2 , 3640 

^ 5 6 4 3 

1 

0394 

22,3641 

43415 

0 

DAD 

0395 

REF 

2 

LAST 

721 

22,3642 

05646 

0 

03  96 

22, 3643 

43545 

1 

+ 3 

OL.dAD 

039  7 

REF 

3 

l A 5 T 

721 

22,3644 

05646 

0 

07  Q £ 

? 9 3 A /.  R 

' . l r a ^ 

n 

M A V A f M 

9 r 5 r t 

J 7 C 

ZL  ZL  f JuHu 

u 

H A A |\J  r\ 

4U  L/  ' 

0398 

2 2?  36  46 

05  603 

1 - 
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2 
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USER  ' S c/vGE  N0*  10 


HPERX 

MPAC  +4 

STORE  (P.PER  - RPADTEM 

) INTO 

BPL 

HPERMIN  AT 

(-29  )M  FOR 

EARTH, 

HPERMIN 

IF  HP  ER  LZ 

HPERMIN 

( 300  or 

DOTPER 

TH EN  ZERO  INTO  -TPEP 

# 

GOTO 

OTH  ET  WT  p E CALCULATE 

TPER. 

E4  S3 

HPEC  X. 

( -27JM 
35 ) K FT , 


HI6ZER0S 
SKI PTPER 
CALL 


RPEk 


CALCTPEF 


-TPER 
HPERMIN 
CALL 
R PACT  EM 
CALCTFF 

IFF 

S2 


TPER  IS 

PUT 

MEG 

INTO 

-TPFP . 

HPERMIN 

AT  ( 

-29) 

M FOR 

EA°  TH , 

(-2?  )M 

R PADTEM 

AT  ( 

-?3) 

M FOR 

EARTH, 

( -27 ) M 

GIVES  5 9M59S 

FOP 

TFF 

IF  RPEP 

G/ 

HPERMIN  + RPADTEM.  (TPER  WAS  NON  Z 
OTHERWISE  COMPUTES  TFF.  (GOTO) 


BPL  IF  C(MPAC)  > 9999.9  NM,  MPAC  = 9999. 

M A X N M 

+ 3 OTHERWISE  C('PAC)  = B(MPAC). 

RVQ 

MAXNM 

RVQ  (USED  BY  P30  - P37  ALSO) 

MAXNM 


01065  05603 


MOON 


MOON 
MOON 
ERO  ) 

9 NM 


GAP: 
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3" 
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R 000 1 STABLE  ORBIT  RENDEZVOUS  PROGRAMS  (P38  AND  P78) 

R 0002  MOD  NO  -1  LOG  SECTION  - STABLE  ORBIT  - P38-P39 

ROOT 3 MUD  BY  UDMCK  • . ' DAT 

► 

R 000  A Ft  JNCT  I Of)  A 1 DES  Cr>  I PT  ICN 


i ROOD  5 

R 0006 
R 0007 

> Roooa 
R 000° 
R0010 

> R 00 1 ! 


P38  AND  P7  8 CALCULATE  THE  FEOUIREO  DEI T A V AND  OTHER  INITIAL 
CONDITIO  .'.  RECJIRED  BY  THE  AGC  TO  111  PUT  TEE  ACTIVE  VEHICLE 
ON  A TRANSFER  TRAJECTORY  THAT  INTERCEPTS  THE  PASSIVE  VEHICLE 
ORBIT  A GIVEN  DISTANCE,  DELTA  R,  EITHER  A H F A D OF  OR  BEHIND  THE 
PASSIVE  VEHICLE  AND  (2)  ACTUALLY  PLACF  THF  ACTIVF  VEHICLF  IN  THE 
PASSIVE  VEHICLE  ORBIT  WITH  A DELTA  R SEPARAT ION  BETWEEN  THE  TWO 
VEHICLES 


R 00 l 2 CALLING  SEQUENCE 

R OCT  ^ ASTRO''1  A1 1"  REQUEST  >r  U DiKY 


> R0014 

POO  15. 


V37E38E  IF  THIS  VEHICLE  IS  ACTIVE  VEHICLE 
V37E78E  IF  OTHER  VEHICLE  IS  ACTIVE  VEHICLE 


I l ■ 


I 


i 


i 


i 


ij 


2" 


R 0017 

(1) 

SOI 

MANEUVER 

R0013 

(A) 

TIG 

TIME  OF  SCI  .MANEUVER 

ROOK 

( B) 

CENT A MG 

ORBITAL  CENTRAL  ANGLE 

R 002  0 

R 002  1 

(C) 

deltas 

OUTING  TRANSFER  FROM  T 
THF  DESIRED  SEPARATION 

P 0022 

R 002  3 

P 002 4 

( D) 

OPTION 

SPECIFIED  AS  A DISTANC 
ORBIT 

EQUALS  1 FUR  SOI 

R 002  5 

(2) 

SOk 

MANEUVER 

R0026 

(A) 

TIG 

TIMF  OF  SCR  MANEUVER 

R 002  7 

( B) 

CENTANG 

AN  OPTIONAL  RES  PE  Cl  PIC. 

R 002  8 

(C  ) 

OP T I ON 

EQUALS  2 FOR  SOR 

R 002  9 

( D) 

DELTTIME 

THE  TIME  REQUIRED  TO  1 

OF  THE  PASSIVE  VEHICLE 
IG  TO  TIME  OF  INTERCEPT 
OF  ■'HE  TWO  VEHICLES 
E ALONG  THE  PASSIVE  VEHICLE 


R 0030 
R 003  1 
R 0032 
R 0033 


! E ) TINT 


T AVI  l I G AT  A VELOCITY 
VELOCITY  OF  THE  PASSIVE 
SOI  PHASE 

TIME  HE  INTEPCEPT  (SC  I ) 


TON  OF  1 (8)  ABOVE 

WE  it  DELTA  WHEN 
EQUAL  TO  THE  HOP  I ZQNT AL 
VEHICLE  - SAVED  FROM 

- SAVED  FROM  SOI  PHASE 


R 003  A 

OUT  PUT 

P 003  c 

( 1 ) 

TRKMKCN'T 

NUMBER 

OF  MAR 

P 0036 

(2) 

TTOGO 

TIME  TO 

GO 

R 0037 

(3) 

+ MGA 

MIDDLE 

GIMBAL 

€ 


l" 


GAP:  AS  St  I hi  If 

L STABLE 
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OR  BIT  - P32-P  3° 
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R 003  Q 

(4)  dsptemi 

TIME  OF  INTERCEPT  0 

R0039 

(FOR  SOI  ONLY) 

R 0040 

15)  PCST  TP  I 

PERIGEE  ALTITUDE  OF 

R 004  1 

THE  c!jI  ! SOR ) MANEU 

R 0042 

(6)  DELVTPI 

MAGNITUDE  OF  DELTA 

R 0043 

(7)  DEIVTPF 

MAGNITUDE  OF  DELTA 

R 0044 

(8)  DEL VL VC 

DELTA  VELOCITY  AT  S 

R 0045 

COORDINATES 

R C046 

SUBROUTINES  USED 

R 004  7 

avflaga 

R 0048 

AVFLAGP 

R 004° 

VNDSPLY 

P 0050 

GAN KC ALL 

R 0050  2 

GCF LASH5 

R 00504 

GOTOPOOH 

P 00506 

ri  a '.!<■  PT 

ni./A  i ,t,  l I 

R C05  0P 

ENDOF JOB 

R0051 

PREC/TT 

R 005  2 

SEL  ECTMU 

R 005  3 

INTRPVP 

R 006  ^ 

MAI NPTNE 

F PASSIVE  VEHICLE  ORBIT 

ACTIVE  VEHICLE  ORBIT  AFTER 
VER 

V AT  SOI  (SO)  TIME 

V AT  INTERCEPT  TIME 

01  (AND  SOP)  - LOCAL  VERTICAL 


005^ 

04,3013 

BANK 

04 

0056 

REF 

I 

34,2000 

SETLOC 

STBLEGRB 

0057 

34,3271 

BANK 

005  6 

REF 

24 

LAST 

70  3 

E7, 1470 

EBANK= 

SUBEXIT 

005  9 

n EF 

1 

COUNT* 

H/OICTC 

4>  D / r J O 1 

0060 

REF 

180 

LAST 

718 

34,3271 

0 

4616 

1 

P 38 

TC 

BANKCALL 

0061 

RFF 

5 

LAST 

AAA 

<4, R 9 7 ? 

79147 

1 

r AnR 

AVFL  AGA 

, v y y 

1 } J C~  l A. 

1 C,  J r 1 

1 

0062 

34,3273 

0 

32  7 6 

1 

TC 

+ 3 

0063 

KEF 

181 

l AST 

724 

34,3274 

0 

461A 

1 

P78 

TC 

8ANKCAL L 

OP  A* 

REF 

5 

L APT 

6 6 6 

34, 3?7S 

72  354 

0 

CADP 

AVFLAGP 

0064  5 

REF 

182 

LAST 

724 

34,3276 

0 

46  16 

1 

TC 

BANKCALL 

006*6 

REF 

6 

LAST 

666 

34,3277 

72361 

0 

CADR 

P20FLG0N 

00646 

REF 

I 

34 . Bonn 

R 

3641 

1 

OAF 

DECTWO 

J 1 J ' J V J 

1 

v W 1 

0064  9 

REF 

8 

LAST 

673 

34,3301 

66 1 466 

0 

TS 

NN 

0065 

REF 

1 

34,3302 

3 

36  3 2 

0 

CAF 

V06N33SP 

0066 

PEF 

1 

34,3303 

0 

3621 

1 

TC 

VNDSPl  Y 

0067 

REF 

1 

34,3304 

3 

36  33 

1 

CAF 

V06N55SR 

0068 

REF 

183 

LAST 

724 

34,3305 

0 

4616 

1 

TCP 

BANKCALL 

0069 

RfcF 

1 

34,3306 

20635 

c 

CADP 

GOFLASHR 

006  94 

REF 

19 

1 AST 

71 1 

34,3307 

I 

6001 

1 

TCF 

GCTUPOOH 

006  96 

34, 3310 

L 

3315 

1 

TC  F 

+ 5 

00698 

34,331  I 

1 

3304 

1 

TCF 

-5 

0070 

REF 

22 

LAST 

716 

34, 3312 

3 

6245 

1 

CAF 

THREE 

00702 

REF 

9 

LAST 

489 

34,3313 

0 

5464 

1 

TCP 

BLANKET 

t 
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THIS  VEHICLE  ACTIVE 

OTHER  VEHICLE  ACTIVE 
SET  UPUATELG,  TRACKFLG 

DISPLAY  TIG 
DISPLAY  CENTANG 

TERMINATE 

PROCEED 

RECYCLE 

IMMEDIATE  RETURN  - BLANK  Rl,  R2 
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00704 
0071 
007  2 
007  3 

007  4 
007*2 
00744 
00746 
0074b 
007? 
00752 
007* 

0077 

0078 

0079 

008  0 
0081 
008  2 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 
009  0 1 
00902 
009  1 
0092 
009  3 
00931 
0094 
0096 
00962 
009*4 
00966 

0096  8 

0097 
0097  2 
0096 
0O9‘- 
0100 
010r’l 
01002 
01003 
0101 
0102 

0103 

0104 


REF  105 
REF  15 


REF 

REF 

REF- 

REF 


2 

83 

6 

1 


REF  184 
REF  2 
REF  20, 


REF  3 0 
REF  10 
REF  106 
EF 


REF 

REF 

REF 

REF 

REF 
0 EF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 
REF 
R EF 
REF 


REF 

REF 


REF 

REF 

REF 

REF 

REF 


LAST 
LAST 
l AST 
LAST 
LAST 

LAST 
L AST 
LAST 


1.  A c T 
LAST 
LAST 
LAST 


715 

678 

305 

714 

656 

724 

724 

724 


413 

724 

725 
7 17 


LAST  725 


2 

12 

1 

LAST 

LAST 

72  5 
681 

22 

LAST 

710 

13 

LAST 

7 25 

2 

LAST 

725 

1 

185 

LAST 

725 

3 

LAST 

725 

21 

LAST 

725 

1 5 

LAST 

592 

1 1 

LAST 

726 

107 

LAST 

7 25 

3 

LAST 

725 

25 

LAST 

657 

1 

2 

L AST 

f 3 4 

99 

LAST 

72  5 

34.3314 

34. 3315 
34 , 3 3 1 6 
34, 3317 

34.3320 

34.3321 

34.3322 

34.3323 

34.3324 

1 5155 
3 4756 
55  * 14-4 
3 47  5 3 
55  » 1*5 
3 3634 

0 4616 
2 0635 

1 6001 

34,33  25 

1 3332 

3 4,3326 

1 3321 

34, 3-3  27 

3 4751 

34,3330 

0 54  64 

34,3331 

1 5155 

34 , 3332 

0 6037 

34,3333 

70535 

34,3334 

Oil*  6 

34, 3335 

71230 

34,3336 

71344 

34,3337 

0 3631 

34, 3340 

02  30  3 

34,  3 3 4 1 

7761* 

34,334 ? 

012  3 0 

34, 33*3 

71375 

34,3344 

43014 

34,3345 

01070 

I-  , 3 3-'-' 

OCfcTO 

3 4 , 334  7 

77624 

34, 3350 

715  54 

34,3351 

4301? 

34,3352 

03442 

34,3353 

00470 

34,3354 

03631 

34,3355 

77776 

3 , 3356 

3 3635 

34,3357 

9 *616 

34, 3360 

20635 

34 , 3 36  1 

1 6001 

34,3362 

1 3367 

34,3363 

1 3356 

3*  , 3364 

3 6 242 

84, 3365 

0 5464 

34,3366 

1 5155 

34,3367 

0 0006 

34,3370 

3 1631 

34 , 337  l 

53*046 

34 , 3372 

3 3636 

34 ,3373 

0 36  21 

34,3374 

0 6037 

34,3375 

45014 

OPT!  1 


+ 5 


JUNG  TNI 


TCF 

CAF 

rs 

CAF 

TS 

CAF 

TCR 

CADR 

TCF 

TCF 

TCF 

CAF 

TCR 

TCF 

VC 

SLOAD 
BHI  Z 


STORE 
CL  RGO 


SET 

CALL 

DAD 


STORE 

EXIT 

CAF 

TCR 

CADR 

TCF 

TCF 

TCF 

CAF 

TCR 

TCF 

EXTEND 

DC  A 

DXCH 

CAF 

TC 

TC 

CLEAR 


ENDOF JOB 
FIVE 
OPT  I ON  1 
ONE 

0PTI0N2 

V04N06SP 

BANKCALt 

GOFLASHR 

G C l o P 0 0 H 

+ 5 

-5 

B IT  3 
BLANKET 
ENDOF JOB 
INTP.EET 
SRI 

0PTIQN2 
DLOAD 
0PTN1 
TINT 
f INI  SOI 

OPT NSW 
JUNE  TNI 
CLEAR 
OPTNSW 
UPDATFLG 

PREC/TT 

SET 

TIG 

UPDATFLG 

TINT 

VQ6N57SR 

BAMKCAI  l 

GOFl ASHR 

GOTOPOOH 

+ 5 

-5 

SIX 

BLANKET 
ENDOF JOB 

T I NT 
DSPTEM1 
V 06 N 34 SR 
VNDSPL Y 
INTPRET 
CALL 
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OPTION  CODE  IS  SET  TO  1 
DISPLAY  0 P T T ON  CODE  - 1 = SOT,  2 


TERMINATE 

PROCEED 

RECYCLE 

IMMEDIATE  REfURN  - BLANK  R3 


STORE  FOR  SOP.  PHASE 
OPTNSW : ON  = SOI,  OFF  = SOF 

SOI 


T I = TIG  + TF 
DISPLAY  DELTA  R 


TERMINATE 
PROCEED 
RECYCl E 

IMMEDIATE  RETURN 


81.  ANK  R 2 , P.3 


FOR  DISPLAY 

DISPLAY  TIME  OF  INTERCEPT 


I 


725 


SOR 
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L 

STABLE  OP  BIT  - 

P 3 8 - 

P39 

0105 

REF 

1 

34,3376 

04266 

1 

P39/79SW 

0106 

REF 

5 

LAST 

6 66 

34, 3377 

20000 

0 

SELECTMU 

0107 

- unn 

77A  DA 

1 

R P f Y f 1 F 

r a 11 

1 { Q C , 

1 

IN  E—  V-.  I L L L, 

0 A L-  L, 

0108 

REF 

2 

IASI 

725 

34,340  1 

PI  5 54 

0 

PREC/TT 

010? 

34 , 3402 

7 12  1 ^ 

0 

BUFF 

DLOAD 

0110 

REF 

LAST 

7 P 4 

3 6. , ^ L o 3 

013  50 

0 

f)pJ(v|C  ^ 

0111 

REF 

1 

34,3404 

71424 

0 

OPT  N2 

0112 

REF 

4 

LAST 

725 

34,3405 

03631 

0 

TINT 

0113 

REF 

41 

LAST 

714 

34,3406 

36  041 

0 

STCALL 

T DEC  1 

0114 

REF 

1 

34, 34 C 7 

7160  5 

l 

I NT- PVP 

0116 

34 ,3410 

5 3575 

0 

VI  GAD 

UNIT 

0116 

REF 

26 

[ \ c~ 

714 

34 ,3411 

00001 

0 

P ATT 

0117 

34, 3412 

47315 

0 

PD  VL 

VXV 

0118 

REF 

21 

LAST 

714 

34,3413 

00007 

0 

VAT” 

0119 

34  , 14  1 4 

6C246 

1 

ABVAL 

NORM. 

0120 

REF 

1 6 

LAST 

683 

34 ,341.6 

00047 

1 

XI 

0121 

34 , 3-16 

56  32  5 

0 

P DDL 

DDV 

0122 

REF 

c> 

last 

•J  1 c 

02303 

0 

D E L T A P 

J J J • L t 

0123 

34,3420 

77657 

0 

SI  * 

0124 

34, 3421 

20172 

1 

0 -7,1 

0125 

REF 

2 

LAST 

1 17 

34,3422 

36305 

1 

STEAL L 

DEL  I TIME 

0126 

REF 

1 

34 ,3423 

71430 

0 

JUNCTN2 

0127 

34,3424 

43345 

1 

CPTI-  2 

OLOAD 

DAD 

0128 

REF 

2 

L AST 

7 25 

34 , 342* 

02303 

0 

TINT  SOI 

0129 

REF 

3 

LAST 

663 

34,3426 

00037 

0 

T 

0130 

REF 

5 

LAST 

726 

34 , 3427 

03631 

0 

STORE 

TINT 

0131 

34,8430 

45345 

1 

JUNCTN2 

DLOAD 

DSU 

0132 

REF 

6 

LAST 

726 

34,34 31 

03631 

0 

TINT 

0133 

REF 

3 

LAST 

7 26 

34,3432 

02305 

0 

DELTT 1 «E 

0 1 3 * 

R FF 

1 

T,  U , ^ A,  "3,  3 

0 2 30  7 

1 

STORE 

TAP  C.1  IMF 

1 

1 PA  rv  yj  1 1 L 

R0135 

.... 

MAINRTNE 

• • • • 

R 0 1 3 fc 

SUBROUTINES  USED 

R 01  37 

S3435.26 

R 0 1 3 9 

P EP  I A P 0 1 

P 013° 

WICT.l 

R 0 1 40 

VNDSPLY 

R0141 

BANKCAI  L 

R 0142 

GQFLASH 

0 0143 

GOT  OPGCH 

R 0 1 4 5 

VN1 645 

0146 

REF 

42 

LAST 

726 

34,3434 

34041 

0 

MAINRTNE 

STCALL 

TDEC1 

0147 

REF 

2 

LAST 

726 

34,3435 

71605 

1 

INTRPVP 

0148 

34,3436 

77745 

1 

DLOAD 

0145 

PEF 

23 

L AST 

725 

34,3437 

03442 

0 

TIG 

0150 

REF 

6 

LAST 

689 

3 4,346  0 

03610 

0 

STORE 

INTIME 

0151 

34,3441 

7 7331 

0 

SSP 

VL  HAD 

0152 

REF 

25 

LAST 

724 

34,3442 

03471 

0 

SUBEXIT 

0153 

REF 

1 

3 4,346  3 

71447 

0 

TEST3979 

i” 


< 


3:15  OEC.  2,1970  KISSING  .050  PAGE  726 
USER*  S PAGE  NO.  4 E7  S3 

SELECT  MU,  CL  EAr,  F INALFLG,  GO  TO  VN1645 


PRECISION  UPDATE  PASSIVE  VEHICLE  TO 
INTERCEPT  TIME 

PP/ (RP) 

(VP  X KP/(KP  ) ) 

DELTA  R / (VP  X RP/RP) 

DELTA  T = (RP ) DELTA  R / (VP  X RP ) 


T I = T I + TF 


TT  = TI  - DEL T A T 


PRECISION  UPDATE  PASSIVE  VEHICLE  TO 
TARGET  T 7 M E 


GAP: 

L 

015  A 

0155 

0156 

0157 

0158 
Ol^o 
OlbO 
0161 
0162 

0163 

0164 
01645 

0165 

0166 

0167 

0168 
0169 


ASSEMBLE  PEV1SI1N  001  OF  AGO  PS G&F.  AM  A<?11M-'PE  BY  EYLES 
STABLE  ORBIT  - P3S-P39 


REF  26  LAST  726 


REF 

PEE 

PEE 

REF 

REF 


REF 


2 LAST  726 
1 

8 LAST  693 
1 


REF  14  LAST  725 


1 


REF  12  LAST  6«0 
REF  7 LAST  663 
REF  3 LAST  673 


0171 

0172 

0173 
017  6 

REF 

REF 

4 

21 

■EF 

8 

0175 

REF 

5 

0176 

0177 

REF 

1 1 

0178 

RFF 

5 

0179 

0181 

PEE 

9 

0181 

P EF 

1 

0182 

rr 

15 

tr  r 

0183 

0184 

REF 

1 

0185 

LEE 

3 

0181 

REF 

1 

0187 

RFF 

4 

0188 

c EF 

100 

0189 

0204 

REF 

5 

0205 

REF 

13 

0206 

REF 

12 

0207 

REF 

7 

0208 

0209 

REF 

3 

0210 

P EE 

l 

021  1 

REF 

1 

l AST 
LAST 
LAST 


LAST 

LAST 


600 

663 

697 


L A r T 6 '5  0 
LAST  663 

LAST  663 
LAST  663 

LAST  727 

LAST  727 

LAST  725 

LAS1'  72? 
I AS"  72  * 


675 
727 
LAST  680 
LAST  693 


LAST  727 


R 0 2 1 2 STABLE  OF  BIT  Y r DC  OL F 


34.3444 

34. 3445 

34. 3446 

34. 3447 

34 . 345  0 
34,34=  1 

34. 3452 

34.3453 

34. 3454 

36.3455 

36.3456 

34.3457 

34.3460 

34.3461 

34 . 346  2 
3 4 , 346 3 
34,3464 
34 , 346= 

34.3466 

34.3467 

34.3470 

34.3471 

34. 3472 

34.3473 

34.3474 

34.3475 

34.3476 
34,34.7  ? 

36.3509 
3 6 , 3 501 

34.3502 

34.3503 
34, 350,4 

34 . 3505 

36.3506 

36 . 3507 

34.3510 

34.3511 

34.3512 
3'  ,3513 
3 ‘,,3514 
3'-  , 351  = 
34,3516 
34,3817 
34,3520 

SE  PROGRAM 


00001  0 
77624  1 
73327  0 

43014  0 

,6  1 

71460  0 
01311  0 
71456  0 
77614  1 
00470  1 
77776  1 
0 3505  1 
51575  1 
02366  0 
27576  0 
03506  1 
51451  0 
03566  1 
26350  0 
03536  1 
45115  0 
02337  1 
46316  1 
77624  1 
46426  0 
03606  1 
43014  0 
01311  0 
7 150?  0 
00470  1 
77776  1 
3 3637  0 
0 34  21  1 
3 3640  0 
0 3621  1 
0 6037  0 
7 72  14-  0 
01267  0 
02366  0 
37656  0 
73606  0 
52016  0 
04306  0 
71541  1 
71400  0 
( D 3 9 AND 


CALL 

TEST3979  BOFF 

SET 

P3°P?9  EXIT 
TC 

MA1NPTN1  VLOAD 
STUVL 
VSU 
STOVL 
PDVL 


CALL 

STORE 

BON 


DSPLY58  EXIT 
CAF 
TC 

DSPLY81  CAF 
TC 
TC 

CLEAR 


STCALL 

BON 


P 7 9 ) 


R 02 1 3 
R 0214 


Yf-0  NO  -1 

MOD  BY  RUDNICKI.S 


LOG  SECT  TON  - STABLE  ORBIT  - P38-P39 
DATE  25JAN68 


RATT 

,S  3435*25 
BON 

P 39/79 SV 
MAT N8 TNI 
E INALE  LG 
P39P79 

UPDATFLG 

DSPL Y81 

ABVAL 

DELVEET3 

DELVTPI 

VPASS4 

ABVAL 

VTPr  INF 

DELVTPF 

RACT3 

CALL 

VI  PR  I ME 

PEL  I A P<  1 

SHI  FI  I 1 
POSTTP I 
SET 

F1NAI  FLG 
DSPLY58 
U PD  AT  FI  G 

V06N58SR 

VNDSPLY 

V06M81SF 

VNDSPl  Y 

IMP - ET 

VLOAD 

XDELVFLG 

0ELVEET3 

OELVS IN 

V N 1 645 

GOTO 

P39/79SW 

P39/P79B 

RECYCLE 
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FOP  P39  AN D P79 

DELTA  V 

DELTA  V ( F INAL  ) = V*T  - V T 

GET  P EF  I GEE  At  T ITUDE 


DISPLAY  HP,  DELTA  V,  DELTA  V (FINAL) 
DISPLAY  DELTA  V (LV) 


727 


DISPLAY  TFKtkCNT 


TTOGO 


+MGA 


t 


* 


GAP: 


AS  Si.  i<l  L REVISION  001  OF  AGC  PROGRAM  AP11KUPE  OY  EYLES 


I 


L ST  A SI  F BIT  - P3F-5  39 

R 02 1 5 FUNCTIONAL  DESCRIPTION 

R 02 1 6 P39  AND  P<7  5 CALCULA  E THE  F QIJ 1 9 ED  DELTA  V AND  OTHER  INITIAL 

0 0217'  CONDITIONS  •EOiJm'ED  BY  THE  AGC  TO  MAKE  A MIDCOURSE  CORRECTION 

P 021 9 v A I.  JVC  A F T E ’•  COMPLETInI  THE  SOI  MANEUVER  BUT  BEFORE  MAKING 

R 02  1 <*  f HE  SOP  • ANFUVE' 

R0220  CALLING  SEQUENCE 

R0221  ASTRONAUT  REQUEST  THRU  DSKY 

R 02  2 2 V37E39E  TF  THIS  VFH'CLE  IS  ACT  t VE  VtHICIE 

R 0 2 2 3 V37E79E  IF  OTHER  VEHICLE  IS  ACTIVE  VEHICLE 

R 02  2 A INPUT,., 

RU225  (1)  TPASSA  T • '*E  F INTERCEPT  - SAVED  FROM  P3°/P78 

R 022  '■  (?)  TARGTIME  TI-’E  T H ''  f PASSIVE  VEHICt^  ! A r I N T E R C F P r P0INT  - 

R 0227  SAVED  FROM  P38/P78 


R 022  8 OUTPUT 


R 022  ° 

( 1) 

TRKMKCNT 

NUMBER  OF  MARKS 

R 0230 

(2) 

TTOGO 

TIME  TO  GO 

R 02  3 1 

(3) 

+f  GA 

MIDDLE  GIMBAL  ANGLE 

R 02  32 

(A) 

DEL VLVC 

DELTA  VELOCITY  AT  MID  - LOCAL  VERTICAL  COORDINATES 

R 023  3 SUCUOUTIMES  USED 

R 0 2 3 A AVFLAGA 

R 0235  AVFLAGP 

R0236  LOADTIME 

R 0237  SELECTMU 

R 0238  PRECSET 

R023P  S34/35.1 

R 0240:  MAI  MPTNE 


02A  ] 

REF 

18fc 

LAST 

725 

34,352  1 

0 4616 

1 

P 39 

TC 

BANKCALL 

024  2 

REF 

6 

LAST 

724 

34,3522 

72347 

1 

CADR 

AVFLAGA 

0243 

34,3523 

0 COOS 

1 

EXTEND 

0244 

REF 

L 

! AST 

6 66 

34,3524 

3 1401 

0 

OCA 

ATIGINC 

024* 

REF 

1 

34 , 

0 3 53  2 

0 

TC 

P3Q/P79A 

0246 

R EF 

187 

LAST 

728 

34 , 3526 

0 4616 

1 

P79 

TC 

BANKCALL 

0247 

REE 

6 

LAST 

7 24 

34 , 3527 

72354 

0 

CADR 

AVFLAGP 

0248 

34, 3530 

0 0006 

1 

EXTEND 

02  Ac 

REF 

2 

LAST 

66  6 

34,3531 

3 1403 

1 

OCA 

PTIGINC 

0250 

REF 

4 

LAST 

666 

34,3532 

53' 576 

0 

P3S/P79A 

DXCH 

KT 

02505 

REF 

188 

l AST 

72« 

34,3533 

0 4616 

1 

TC 

BANKCAL  1 

02506 

REF 

7 

LAST 

724 

34,3534 

72361 

0 

CADR 

P20FLG0N 

0251 

REF 

101 

LAST 

727 

34,3535 

0 6037 

0 

TC 

INTPRET 

i" 
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PAGE 
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THIS  VEHICLE  ACTIVE 

OTHER  VEHICLE  ACTIVE 

TIME  TO  PRFP  ARE  FOR  BIFN 


i 


E 7 S3 


SET  UPDATFLG , TRACKFI.G 


G AP  : 


0255 
02^5 

0256 
025? 
025  8 

025  ° 

0259 

0260 
0261 
0262 

026  5 
026'' 

0265 

0266 
R 02  72 
R 027  3 

Q 021 l' 

R 0275 
R 027 6 

0277 

0278 

0279 

0280 
0281 
0282 
0283 
0 286 
02  85 
0286 
02.  7 
0288 
02  h' 
02  9 C 

0291 

0292 

0293 

0296 
0295 
02  96 

0297 

0298 

0299 

0300 

0301 
K 0 3 0 2 
R 0303 

R 0306 


ASSEMBLE  RfcVISlUN  001  OF  AGC  PROGRAM  APUROPE  3Y  PYLES 


STABLE  UR3|T  - P78-Pfo 


REF 

4 

LAST 

727 

LAST 

726 

Ktr 

6 

REF 

21 

LAST 

716 

REF 

5 

LAST 

7 28' 

REF 

24 

LAST 

726 

REF 

43 

1 AST 

726 

REF 

5 

LAST 

6 66 

REF 

3 

LAST 

66  7 

REF 

REF 

2 

1 

LAST 

726 

....  PREC/TT  .... 

SUBROUTINES  USED 


34.3536 

34.3537 
3 4,  364CI 

34.354 1 

34.3542 
3 4,3  54  3 

34 . 3544 

34.3545 
3 4, 3546 
34,3  54 7 
34,3550 
34,355  1 
34,3652 
34,3553 


45014 
04066 
2 ( 000 
43  2 34 
21  5 73 
03  5 76 
03442 
34041 
*♦  6 3 60 
77624 
73274 
62145 
0 2 307 
71434 


0 

0 

0 

0 

0 

0 

0 

0 

0 

1 

1 

0 

1 

1 


SET 

CAl  L 

P39/79SW 

r r i rr  tui  i 

P39/P79B  RTb 

otL  t L ! uJ 

DAD 

LCADT IMF 

is  T 

STORE 
STCAl L 

•N  1 

TIG 

T DEC  1 
nccr  cxt 

CA!  L 

DLOAD 

r K 1 1 ot  1 

S 34/35.1 
GOTO 

TARGTIME 

MAINRTNE 

P "SET 
T IMETHET 
S 34/35. 1 


°EF 

REF 

8 

2 5 

LAST 

LAST 

68  3 
729 

RFF 

44 

LAST 

729 

REF 

6 

LAST 

72o 

REF 

pep 

12 

8 

LAST 

I ACT 

697 

69C 

l-  M J I 

REF 

7 

LAST 

662 

REF 

, 5 « 

LAST 

662 

R E F 

7 

LAST 

662 

REF 

7 

LAST 

662 

REF 

9 

LAST 

697 

REF 

10 

LAST 

695 

RFF 

6. 

LAST 

66  3 

REF 

4 

LAST 

7 29 

REF 

4 

LAST 

726 

REF 

9 

LAST 

7 29 

.... 

TNTRPVP  . 

... 

SUBROUTINE'S  USED 

34,3554 

71220 

1 

34,3555 

03465 

0 

34, 3556 

0 3442 

0 

34,3557 

34041 

0 

34,3560 

46360 

0 

34,3561 

53775 

1 

34,3562 

03552 

0 

34, 356 3 

57176 

0 

34 , 3564 

16655 

0 

34,3565 

03621 

1 

34, 3566 

71406 

0 

34,3567 

16  132 

0 

34,3570 

43156 

1 

34,3571 

03966 

0 

34,357? 

2 6 730 

1 

34,3573 

03560 

1 

34,3574 

77657 

0 

34,3575 

57176 

0 

34,3576 

36  744 

0 

34,3577 

2^73:2 

1 

34,3600 

77624 

1 

34,3601 

73274 

1 

34,3602 

52145 

0 

34,3603 

00037 

0 

34,3604 

03465 

0 

PREC/TT 


STQ 

STCALL 

VLGAD 

STOOL 

PUSH 

STOOL 

SIM 

STPVL 

VSR* 

STCALL 

CALL 

DLOAD 


DLOAD 

RTRM 

TIG 

T DEC  1 

PRECSET 

VSR* 

R PAS S3 
0,2 
RVEC 
CENTANG 
COS 
C ST  H 
SET 
7 VS  W 
S NT  H 
VPASS3 

0,2 

WEC 

TIME  THE T 

S34/35.  1 
GOTO 

T 

RTRN 


CSMPREC 
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E7  S3 


SELECT  MU,  CLEAR  F INALFLG,  GO  TO  VN 1645 


TIG  = T (PRESENT)  + PREPARATION  T I M E 
PRECISION  UPDATE  ACTIVE  AND  PASSIVE 
VEHICLES  TO  TIG 

GET  UNIT  NORM Al 


CALCULATE  CELTA  V AND  DELTA  V (LV) 


PRECISION  UPDATE  ACTIVE 
VEHICLES  TO  TIG 


AND  PASSIVE 


GET  TFANSFEP  TIME  BASED  ON  CENTANG  OF 
PASS  I VF  VEHICLE 


GET  UNIT  NORMAL 


GAP:  ASSEMBLE  ,,E  VISION  001  OF  AGO  PROGRAM  APllRQPE  BY  EYLF.S 


STABLE  ORBIT  - 

P 3 3 - 

P39 

! 0305 

LEMPPEC 

0306 

34,5605 

43020 

1 

INTRPVP 

STQ 

BCFF 

0307 

f FF 

19 

LAST 

7 29 

34, 5606 

03465 

0 

RTRN 

03  OP 

REF 

' 5 

LAST 

6 97 

39,7607 

01  35  2 

1 

A VFt AG 

0309 

REF 

1 

3/-,  36  10 

71615 

0 

OTHER  V 

0310 

34,3611 

77624 

1 

CAL  L 

031  1 

REF 

5 

LAST 

704 

34,3612 

27043 

0 

CSMPREC 

0312 

3-  ,3613 

77650 

1 

GOTO 

031.3 

R EF 

1 1 

LAST 

730 

34 , 3614 

0 34  65 

0 

kTRM 

031 A 

3-  ,3615 

77624 

1 

OT  HEP  V 

CALL 

0316 

° EF 

8 

L ACT 

■^07 

39,3616 

27057 

0 

LFMPREC 

0316 

34,3617 

77650 

1 

GOTO 

0317 

REF 

12 

LAST 

730 

34,3620 

03465 

0 

RTRN 

R 031  8 

« • • 

. VNDSPLY  . 

♦ • • 

R031° 

SUB  OUT  IN  ES  USED 

« AM  i<  r A 1 ! 

n UjC  L 

n hm|  in  a l 

R 032  1 

GOFLASH 

R 032  2 

GOTOPOOH 

032  3 

34, 562  1 

0 00  06 

1 

VNDSPLY 

EXTEND 

03  2 A 

REF 

13 

LAST 

730 

34, 3622 

2 3 ' 6 5 

1 

QXCH 

RTRN 

0325 

REF 

5 

LAST 

683 

34,3623 

55 ' 6 1 5 

0 

TS 

veornuhn 

0326 

REF 

6 

LAST 

7 30 

34 , 3624 

3 1615 

1 

CA 

VERBNOUN 

0327 

REF 

186 

LAST 

728 

34,3625 

0 4616 

1 

TCR 

BANKCALL 

0323 

...  REF 

20 

LAST 

709 

34,3626 

204  76 

0 

GAOR 

GOFLASH 

0329 

D E F 

22 

LAST 

725 

34,3627 

1 6601 

1 

TCF 

GOTOPOOH 

033  0 

REF 

14 

LAST 

790 

34,3630 

0 1465 

1 

TC 

RTRN 

0331 

3 j 3 ^ 3 

1 3 6 2 L 

n 

TC  F 

— 6 

'J 

.J 

0351 

34,3632 

01441 

1 

V06N33SR 

VN 

0633 

0352 

34,3633 

01467 

0 

V06N55SF 

VN 

0655 

0353 

34, 3634 

01006 

0 

VO  N06Sf 

VN 

0406 

03  5 A 

34,3635 

01471 

1 

V 0 6 N 5 7 S R 

VN 

0657 

0355 

34,3636 

0 14-2 

1 

V06N34SP 

VN 

0636 

0356 

34, 3637 

01472 

1 

V06M58SP 

VN 

0658 

0357 

34,3640 

01521 

0 

V06N B1SR 

VN 

0681 

0358 

34,3641 

( 0002 

0 

DECT  WO 

OCT 

2 

£ ** 
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PRECISION  UPDATE  PASSIVE  VEHICLE  TO 
T D EC  1 


FLASH  DISPLAY 


1 ERMINATE 
PROCEED 
- FCYCI  E 


• 

H 

O 

ft 

O 

ft 


• 

ft 

ft 

ft 

ft 

ft 

3* 

ft 

ft 

2' 

ft 

I 

1 " 
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L BUR  , BABY,  BJPN  — MAS  'F  ■ IGNITION  ROUTINE 
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USER'S  PAGE  NO. 


.13?  PAGE  731 

EO  S3 


0001 

0002 

REF 

3 

LAST 

40 

36,2022 

36,2000 

y jl.  9 rt  o 9 

0003 

0004 

REF 

3 

t AST 

650 

5 O 1 / ' J c.  c. 

E7 , 1465 

0005 

REF 

3 

LAST 

40  TO 

A 0 c 

o.  0006 

ROOOP 
3 0010 
R 001  2 

R0013 

ROCl* 

R0017 

R 0010 
R0021 

R 0022 


R GO 2 A 


R 0025 
R 002  5 
R 0027 

R 0023 


13  * 


BANK  36 
SF7LDC  P40S 
BANK 

EBANK=  WHICH 
COUNT*  $ $/  PAO 


,P„  w _ ....  ___  MG  LE  *RI  > F AMS:  P12,  PAO,  PA2 , P61,  P63. 

[T  p[  S M ; HOI  IMMf  DI ATELY  ASSOCIATED  WITH  APS  OR  OPS  IGNITION:  IN  PARTICULAR,  EVERYTHING  LYING 

EE  the  PRE-IGNITION  TIME  CHECK  — ARE  WE  WITHIN  A5  SECONDS  OF  TIG?  — AND  TIG  + 26  SECONDS,  WHEN  >)'  r 
P.  u grams  throttle  up. 

VARIATIONS  AMONG  PROGRAMS  ARE  ACCOMODATED  BY  MEANS  OF  TABLES  CONTAINING  CONSTANTS  (FOF  AVEGEXIT,  FOR 
WATTI  T«T,  FOR  pj  ■ i B At  I ) AND  TC.F  INSTPtJCTfONS.  USE  F S PLACE  THE  A OR  E<  OF  THE  HEAD  OF  THE  APPROPRIATE  TABLE 
(OF  P61TABLE  FOR  P6ILM,  FOR  EXAMPLE)  IN  ERASABLE  REGISTER  'WHICH'  (E4).  THE  IGNITION  ROUTINE  THEN  INDEXES  BY 
WHICH  TO  OBTAIN  OR  EXECUTE  the  PROPER  TABLE  ENTRY.  THE  IGNITION  ROUTINE  IS  INITIATED  BY  A TCF  3UPNBABY, 
THROUGH  BANK JUMP  IF  oECESSA- Y.  THERE  IS. NO  RETURN. 

THE  MASTER  I GNI T I ON  2 OUT TNE  i AS  CONCEIVED  AND  EXECUTED,  AND  I NG  T A BENE)  IS  MAINTAINED  BY  ADLER  AMD  EYLES. 

HONI  SOIT  QUI  MAL  Y PENSE 

$ * *#*!}!  **  > **  ***  *#*****'S)R***  **  ** 

TABLES  FOP  THE  I GNI T I ON  ROUT TNE 

if  * # if  * £ if  if  # if  * * * * * * * if  * * if  # if  * * if  if  * * if  5!=  if  if  if  if  if  if  if  * if 
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TTOGO 

P41 BLANK 

T-ASKOVER 

A NEGATIVE  ULLAGE  TIME  TNDtCATES  P41,  IN 
WHICH  CASE  WE  HAVE  TO  SET  UP  A JOB  TO 
BLANK  T HE  DSKY  FH"  FIVE  SECONDS,  SINCE 
CLOKJOB  IS  NOT  RUNNING  DURING  P41. 

BANKCAL  L 

CLE AMDS  P 
ENDOFJOB 

BLANK  DSKY. 

PR1C1 7 

NOVAC 

I TOGO 

T IG-30 A 

SET  UP  JOB  TO  RESTORE  DISPLAY  AT  TIG-30 

TASK  OVER 
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USER'S  PAGE  NO.  6 

E7  S3 

0265 

REF  1 

36,2273 

3 3761  1 TIG- 30 A 

CAF 

V16N85B 

0266 

RFF  193  LAST  735 

36 , 2274 

0 4616  1 

TC 

BANKCAL L 

RESTORE  DISPLAY. 

02  b 7 

REF  1 

36,2275 

20465  1 

CAor 

RifegjpOSP 

P EGO  DSP  DOES  A TCF  ENDQFJ08 

R026B 

* $ ^ * # £ * * >:■  >; 

# ;Ir  * 3l<  # 31,'  # * 5}e  ajs  ;,•<  # -jfc  5$:  # # # #${e 

0269 

REF 

1 

36,2276 

3 3144 

0 

TIG-30 

CAF 

S24.9SEC 

0270 

RSJg 

1 1 

LAST 

735 

36;,  22  77 

0 5173 

1 

TC 

TWI DOLE 

0271 

REF 

3 

l AST 

241 

36,2300 

02352 

1 

AD!  ES 

TIG-5 

0272 

RFF 

3 

LAST 

735 

36,2301 

4 *76? 

1 

cs 

CNTDMDEX 

$TAPT  up  cloktark  AGAIN 

0273 

REF 

7 

LAST 

735 

36,2302 

55' 1 63 

0 

TS 

DISPDEX 

0274 

REF 

8 

LAST 

735 

36,2303 

51  '455 

1 

INDEX 

W H I C H 

PICK  UP  APPROPRIATE  ULLAGE-ON  TIME 

0275 

36 , 2304 

3 f 006 

1 

CAF 

6 

0276 

36,2305 

0 00  C 6 

1 

EXTEND 

0277 

RFF 

5 

i 4S7 

73  3 

8 A - i ?■  3 n A 

* 2 3 2 5 

T 

B Z E 

ill  1 O'  JOT 

nnu  ' T CAT  1 1 n 111  1 A 65  F TF  F)T  T c IFG  0 7 /POfl 

\Jc.  1 ' 

dl  r 

w * o J uU 

'ILL  '.3  T > ; 

0278 

REF 

8 

LAST 

734 

36,2307 

55*477 

0 

TS 

SAVET-30 

SAVE  DEI T A-T  FOR  RESTART 

0279 

REF 

12 

LAST 

73  6 

36,2310 

0 517  3 

1 

TC 

TWIDDLE 

n?ftn 

1'.  FF 

? 

1 A CT 

? 3C 

n 7 3AA 

1 

a n k r s 

ill  1 

»\  c r 

4. 

6 .1  J 

~>  w , , j i l 

L't  JnD 

i 

MUaL  o 

- 1 . L V r\  v I* 

0281 

REF 

2 3 

i AST 

724 

36,2312 

3 624  5 

1 

CA 

TH‘  EE 

;-ESTAFT  PROTECT  ULLGTASK  ( 1 . 3S°0T  ) 

0282 

REF 

97 

LAST 

716 

36 ,2313 

54  001 

1 

TS 

L 

0283 

R EF 

24 

LAST 

736 

36,2314 

4 6245 

0 

CS 

THREE 

0284 

REF 

3 

LAST 

216 

36,2315 

52  753 

1 

DXCH 

-PHASE1 

02  5 

REF 

5 

LAST 

367 

36,2316 

4 0025 

1 

CS 

TIME1 

0286 

REF 

1 

36,2317 

55*053 

1 

TS 

T BAS  El 

02  86  1 

R.EF 

u 

1 ast 

7 36 

3 A . ? 3 70 

T 1 1 4 F K 

INDEX 

uuirn 

J C.D  C-\J 

-A  I “ V lA 

1 

w n i v_.  n 

62.  ■ 2 

36 , 2321 

1 0C01 

1 

TCF 

i 

02863 

REF 

11 

LAST 

2 95 

36,2322 

4 C 1 Q 6 

1 

WANTAPS 

CS 

F LG  W ROIC 

(1)  FOF  P 42  ENSURE  APSFLAG  IS  SET.  IF  IT 

02866 

REF 

7 

LAST 

295 

36,2323 

7 47  3 7 

1 

MASK 

APSF  LBI T 

WASN'T  SFT,  DA°  Will  BE  INITIALIZED  TO 

02865 

REF 

12 

LAST 

7 36 

36,2324 

26  106 

1 

ADS 

FLGWRD1C 

ASCENT  VALUES  BY  1/ACCS  IN  2 SECONDS. 

0287 

36,2325 

0 00C6 

1 

ULLGNUT 

EXTEND 

( 1 ) 

0288 

REF 

10 

LAST 

736 

36,2326 

5 1455 

1 

INDEX 

WHICH 

0289 

36,2327 

3 GG10 

0 

DC  A 

7 

LOAD  AVEGEXIT  WITH  APPROPRIATE  2CADR 

0290 

REF 

3 

LAST 

105 

36,2330 

53 '2 53 

0 

DXCH 

AVEGEXIT 

029  1 

REF 

38 

LAST 

713 

36,2331 

3 4752 

0 

CAF 

TWO 

4.2SP0T  RESTARTS  IMMEDIATELY  AT  9ED04.2 

0292 

REF 

9 3 

LAST 

736 

36, 2332 

54  001 

1 

TS 

L 

0293 

REF 

39 

LAST 

736 

36,2333 

4 4752 

1 

CS 

TWO 

AND  ALSO  AT  TIG-5  AT  THE  CORRECT  TIME. 

0294 

REF 

3 

LAST 

224 

36,2334 

52  761 

c 

DXCH 

-PHASE4 

0295 

REF 

6 

LAST 

736 

36,2335 

4 0025 

1 

CS 

T I ME  1 

0296 

REF 

2 

LAST 

232 

36,2336 

55'061 

0 

TS 

T8AS  E* 

SET  T BAS  E4  FOR  TTG-5  REc:TA,'T 

02961 

36,2337 

0 0006 

1 

RE DC  2.  17 

EXTEND 
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PAGE 

USER  ' 

S PAGE 

NO. 

7 

E7  S3 

02962 

REF 

10 

LAST 

536 

36, 2340 

3 4755 

1 

OCA 

NEGO 

CLEAR  f UT  GROUP  2 SO  LAMBERT  CAN  START 

02963 

REF 

4 

LAST 

231 

36,2341 

52  755 

1 

nxr.H 

-PHASER 

IF  NEEDED. 

0297 

REF 

1 

3^  , 234  2 

10  7 63 

1 RED04.2 

CCS 

PHASES 

IS  SERVICER  GOING? 

0298 

REF 

43 

LAST 

735 

36 , 2343 

1 5261 

0 

TCF 

T AS ROVER 

YES,  DON'T  START  IT  UP  AGAIN. 

0299 

REF 

40 

LAST 

611 

36,2344 

0 4635 

0 

TC 

POST  JUMP 

0300 

REF 

1 

36,2345 

77410 

1 

CADR 

PREREAD 

PREPEAD  ENDS  THIS  TASK 

R 030 1 

if  if  if  # if  if  if 

* * # * sjc  $ aj,  * $ * * * # # 3 

0302 

0303 

0304 

0305 

REF 

REF 

1 

32 

LAST 

735 

36.2346 

36 . 2347 

36.2350 

36.235 1 

0 2657  1 

0 5353  1 
0C0Q1  0 

1 52  c l 0 

ULLGTASK  TC 

TC 

OCT 

TCF 

AGt  THIS  COMES  AT  TIG-7.5  OR.  TIG-3.5 

PHASCHNG 

1 

TASKCVEP 

PEF 

Li, 

LAST 

737 

R 0306 

v*  £ 

* A-  £ * -f  *■  6 =;<  * * * A A 6 4 * 

: % ^ sje  if  if  if  if  if  if  if  if  if  if  # 

** 

1 

7 j /'  _ r.  FXT  F Mn 

0307 

> < 1 C.  ->  S>  C. 

vV  UU  V.J  V.J 

I 

1 t,  C A ! !:  rl:J 

03072 

REF 

] l 

LAST 

737 

36,2353 

3 4755 

1 

DC  A 

NEGO 

INSURE  THAT  G'-OUP  3 IS  INACTIVE. 

030  74 

PFF 

2 

LAST 

21' 

36,2354 

5?  757 

0 

DXCH 

-PHASE3 

03076 

PEF 

2 

LAST 

735 

36,2355 

3 3756 

0 

CAF 

5SEC 

0308 

REF 

13 

LAST 

736 

36, 2356 

0 5173 

1 

TC 

TWI DOLE 

0309 

REF 

2 

LAST 

241 

36,2357 

02403 

1 

ADRES 

TIG-0 

0310 

REF 

56 

t AST 

629 

36,2360 

0 55  It 

0 

TC 

DOWN FLAG 

RESET  I GN FLAG-  AND  ASTNFL  AG 

r\'i  1 i 

OLE 

I 

-3  A 3 a a 1 

n 

A p);:-  c.  c 

t r;\'F  1 a a 

FHP  1 IGHT  — HP  1 nn  Tf 

\JD  L 1 

Atr 

1 

3C, ' L 

U 'J  1 " j 

0/ 

A U 1 1 0 

lunrmu 

TUI  L 1 UFl  1 U r L U U I 

0312 

REF 

57 

l AST 

737 

36,2362 

0 5516 

0 

TC 

downflag 

0313 

REF 

1 

36,2363 

00154 

1 

ADR  E S 

ASTNFLAG 

031 : 

REF 

1 1 

LAST 

736 

3 6,2364 

51  '4C5 

1 

INDEX 

WHICH 

031c 

36,2365 

1 OOll 

0 

TCF 

1 1 

03  2 0 

REF 

1 

36,2366 

10  757 

0 

P40SJUNK  CCS 

P H A S E 3 

Ill)  P40  AND  P42.  S 6 0 . 1 3 IN  PROGRESS? 

03202 

REF 

4 

LAST 

733 

36,2367 

1 2376 

0 

TCF 

D ISPCHNG 

YES 

03204 

REF 

4 

L Ac  T 

384 

36,?370 

3 4736 

1 

CAF 

PRI 020 

0321 

RFF 

27 

PAST 

717 

36 , 2371 

0 5 1 0 5 

0 

TC 

F I NOV AC 

0322 

REF 

13 

LAST 

735 

E7 , I 45  3 

E B A N K = 

TTOGO 

0323 

REF 

2 

LAST 

240 

36,2372 

02540 

1 

2CADR 

S40. 13 

0323 

36,2373 

56067 

0 

032  3 2 • 

REF 

33 

LAST 

737 

36 , 2374 

0 5 353 

1 

TC 

PHASCHNG 

3.5SPCT  FOR  S'  0.13 

03234 

36, 2375 

000  6 3 

1 

OC  T 

00053 

0324 

RFF 

1 

36,2376 

4 47  60 

0 

D ISPCHNG  CS 

VB99DEX 

(11) 

032  5 

REF 

8 

LAST 

736 

36, 237  7 

55' 163 

0 

TS 

DI SPDEX 
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BUFF. 

, BABY , BJ  — 

'AST  F!  I GN  I T 1 0 . 

ROUTINE 

03252 

REF 

34 

LAST 

737 

36,2400 

0 5353 

1 COM* 

TC 

PHASCHNG 

03254 

36,240 I 

40074 

0 

OCT 

40074 

0326 

REF 

45 

LAST 

737 

36,2402 

1 5261 

0 

TCF 

TASKOVER 

R0327 

#$###>*;*  jVjJs  j}e  # * ###  > £ if.  # # # % & # % # # # # # : 

0328 

REF 

6 

LAST 

704 

36,2403 

4 0103 

1 

TIG-0 

cs 

FLAGWPD7 

032° 

REF 

1 

3a ,2 404 

7 4737 

1 

MASK 

IGNFLBIT 

0330 

REF 

7 

LAST 

7 3 8 

36,2405 

26  103 

1 

ADS 

F L AG NP  07 

0331 

REF 

2 

LAST 

735 

36 , 2406 

0 5321 

1 

TC 

CHFCKMM 

0332 

36,2407 

C0077 

1 

DEC 

63 

033  3 

REF 

1 

36,2410 

1 2421 

0 

TCF 

IGNYET? 

0334 

REF 

2 

LAST 

240 

36,2411 

3 1422 

1 

CA 

ZOOMTIME 

0335 

REF 

32 

LAST 

7]  6 

36,2412 

0 5203 

0 

TC 

WAIT!  1 SI 

0336 

REF 

21 

LAST 

242 

E7  ,1515 

E BANK  = 

DVCNTR 

03365 

REF 

1 

3 f , 24 1 3 

0 21-07 

1 

PC  AQP 

PA  3 ZOOM 

03365 

■ FF 

1 

36,2414 

36067 

0 

033  7 

REF 

4 

LAST 

650 

36 , 24 15 

0 5327 

1 

TC 

2PHSCHNG 

033  3 

36,  2416 

40033 

0 

GCi 

40033 

0339 

3o, 2417 

05014 

1 

OC  T 

0501  - 

0340 

36,2420 

77777 

0 

OCT 

77777 

0341 

REF 

1 

36,242  1 

3 474  0 

0 

yf:t? 

CAF 

ASTNB1T 

0342 

REF 

8 

LAST 

738 

36,2422 

7 C 1 03 

1 

MASK 

FLAGWRD7 

0343 

36,242 3 

0 CO  06 

1 

EXTEND 

0344 

REF 

12 

LAST 

7 37 

36,2424 

5 l*t  55 

1 

INDEX 

WHICH 

0345 

r> 

-17  c 

JO,  c.  ^ c.  J 

1 V U I 6 

u 

L2  r 

1 c. 

0346 

REF 

19 

LAST 

606 

36,2426 

4 0101 

0 

IGNITION 

CS 

FLAGWFD5 

034bl 

REF 

3 

LAST 

216 

36,2427 

7 4745 

i 

MASK 

ENGONBIT 

03462 

R FF 

20 

LAST 

738 

36,2430 

26  101 

0 

AOS 

FLAGWRD5 

03463 

REF 

6 

LAST- 

257 

3 f-  , 243  1 

4 43  58 

1 

CS 

PR  1030 

0347 

36, 2432 

0 0006 

1 

EXTEND 

0348 

REF 

22 

LAST 

470 

36,2433 

02  011 

0 

RAND 

DSALMOUT 

0349 

REF 

26 

LAST 

562 

36,2434 

6 473  7 

0 

AD 

BIT13 

0350 

36,2435 

0 0006 

1 

EXTEND 

03  51 

r E F 

23 

LAST 

738 

36,2436 

01  011 

0 

w<  1TE 

DSAL  M 0 IJ T 

0352 

36,2437 

0 0006 

1 

EXTEND 

0353 

REF 

17 

1 AST 

F 07 

3 6 , 2440 

3 00  2 5 

0 

DC  A 

T IMF2 

035'* 

R.EF 

4 

LAST 

200 

36,2441 

53 ' 345 

0 

DXCH 

T EV  ENT 

035  5 

36,2442 

0 0006 

1 

EXTEND 

0356 

REF 

4 

LAST 

24  1 

36 , 2443 

3 1517 

0 

DC  A 

T GO 

0357 

REF 

30 

LAST 

7 3'. 

36,2444 

53 '442 

0 

DXCH 

TIG 

035  8 

3b , 2445 

0 0006 

1 

EXTEND 

0359 

REF 

18 

LAST 

738 

36 , 2446 

3 0025 

0 

DC  A 

T I ME  2 

0360 

REF 

31 

LAST 

738 

36 , 244  7 

21  '442 

0 

DAS 

TIG 
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SET  IGNFLAG  SINCE  TIG  HAS  ARRIVED 


IN  P63  C A c F , THROTTLe-UP  IS  ZOOMTIME 
AFTER  NOMINAL  IGNITION,  NOT  ACTUAL 


CHECK  ASTNFLAG:  HAS  ASTRONAUT  RF  SPONDED 
TO  OUR  ENGINE  ENABLE  REQUEST? 


BRANCH  IF  HE  HAS  N0T  RESPONDED  YET 
INSURE  ENGONFLG  IS  SET. 


TURN  ON  THE  ENGINE. 


SET  T EVENT  FOR  DOWNLINK 


UPDATE  TIG  USING  T GO  FROM  S40.13 
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03601 

RFF 

1 

36, 

03602 

REF 

9 

LAST 

704 

36, 

036C3 

RtF 

10 

LAST 

73  9 

36 , 

0361 

REF 

13 

LAST 

738 

36, 

n ^ a 6 

2 A . 

* “ * 

0363 

36, 

0364 

REF 

1 

36 , 

0366 

REF 

1 

36  , 

n *2  a a i 

O p P 

1 A 4T 

4 8 1 

UjOr  1 

6 LI 

1 ” 

LAo  ' 

JCI 

03662 

REF 

9 

LAST 

737 

36, 

0370 

REF 

1 

3 6, 

0371 

FEF 

1 

36, 

0372 

RFF 

2 

LAST 

739 

34, 

0373 

REF 

q 

LAST 

738 

36, 

0374 

REF 

i 

36, 

0375 

REF 

LAST 

73  9 

3 6 , 

03175  1 

RIFF 

3 

LAST 

285 

36, 

03752 

D f p 

1 - 

LAST 

294 

1 A £ 

1 ID 

03753 

RFF 

17 

LAST 

739 

36, 

03754 

36, 

03755 

RFF 

1 V 

LAST 

738 

36, 

0375  6 

REF 

3? 

LAST 

73  8 

36, 

03  76 

REF 

1 34 

LAST 

733 

36, 

0377 

REF 

1 

36, 

03771 

REF 

2 

LAST 

149 

36, 

0378 

RFF 

40 

LAST 

736 

36  , 

0379 

RFF 

2 

LAST 

1 • 

36, 

0380 

RFF 

2 

LAST 

732 

36, 

0381 

REF 

2 1 

LAST 

738 

36, 

038  2 

REF 

1 

36, 

0383 

36  , 

03  6 '■< 

REF 

3 

L A r ' 

735 

3 6, 

03  8 5 

REF 

3 

LAST 

73  8 

36  , 

03  66 

REF 

33 

LAST 

738 

36  , 

0387 

P EF 

22 

LAST 

738 

E7  , 

03875 

REF 

1 

36, 

03875 

REF 

1 

3 5 , - 

0388 

RtF 

C ; 

LAST 

738 

36  , 

0389 

36 , ; 

0390 

36, 

0391 

36,. 

7450  4 * 742  0 CS 

245  1 Z 0104  0 '''ASK 

2452  54  104  0 TS 

2453  51*455  1 INDEX 

2454  1 0013  1 TCP 

0006  1 Pf  3 1 GN  EXTEND 

2456  3 3137  1 DC A 

2457  53*253  0 OXCH 

7460  3 CO 05  1 CA 

246 1 55' 163  0 TS 

2 4 6 2 •+  0105  1 CS 

2 '63  7 4 743  1 MASK 

2464  26  1J5  1 AOS 

2465  4 0103  1 CS 

2466  7 4741  0 MASK 

2467  26  103  1 ADS 

->47?  4 4735  0 CS 

244  17  01111  MASK 

2472  54  111  1 TS 

2473  0 0006  1 EXTEND 

2474  3 0025  0 OCA 

2475  53*442  0 DXCH 

2476  3 4755  1 CAP 

2477  55*351  0 TS 

250C  55  *621  1 TS 

2501  3 4752  0 CA 

250?  55*623  0 TS 

2503  1 2541  1 TCP 

2504  4 0101  0 P401GN  CS 

2505  7 4740  1 MASK 

2506  Q 0006  1 EXTEND 

2507  1 2 5 I 1 82  F 

2510  3 1422  1 CA 

2511  0 5203  0 TC 

1515  EBANK= 

2512  02015  1 2C ADR 

2513  36067  0 

2514  0 532  7 1 P03IGN1  TC 

2515  40033  0 OCT 

2516  05014  1 OCT 

2517  77777  0 OCT 


FLUNDBIT 

FLAGWRD8 

FLAGWK06 

WHICH 

13 


DSP2CADF 
AVGEX IT 

Z 

DISPOEX 

F L AGWR DP 
LFTA3BIT 
FLAG  -I  R D 9 

FLAGWRD7 
SWANDBI T 
FL AGWRD7 

PULSES 
UAPBOOLS 
DAP8C  OLS 


TIM  £2 
TIG 

ZERO 

WCHPHASE 

WCHPHOLD 

TWO 

FLPASSO 

P42 IGN 
FLAGWRD5 
N.Tiv. B I T 

P42IGN 
ZCOMT l "E 
WAITLIST 
DVCNTR 
P40Z  ’CM 

2PHSCHNG 

40033 

05014 

77777 
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(13)  I NT  T I ATE  BURN  DISPLAYS 

ASSASSINATE  CLOKT  A S^ 

SET  FLAG  FOR  P70-P71 

SET  SWANDISP  TO  ENABLE  RIO. 

MAKE  SURE  CAP  IS  NOT  IN  ’’INI  MUM- 1 “PUL  SE 
MODE,  IN  CASE  OF  SWITCH  TO  P66 

INITIALIZE  TIG  FQk  P70  AND  P7 1 . 

INITIALIZE  WCHPHASE  AND  FLPASSO 
ALSG  WHCPHCl D 


( 13  ) 


3.3SPOT  FOR  ZOOM  RESTART. 

TYPE  C RESTARTS  HERE  IMMEDIATELY 
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0392 

REF 

4 

LAST 

739 

36,2520 

1 2541 

1 

TCF 

P42IGN 

03  98 

REF 

6 

LAST 

520 

36,2521 

3 5015 

0 

P121GN 

CAF 

EBANK6 

(IK 

REF 

? 1 

! A 6 T 

7 1 ft 

o/o - ? A?  ? 

k /.  on; 

A 

TC 

FRANK 

C.  1 

L M J i 

u - r J J CD 

V 

JO 

C UMIV  0 

0396  1 

C EF 

7 

t AST 
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36,274  l 

53*454 

1 

DXCH 

TtOGO 

0560 

36,2742 

0 0006 

1 

EXTEND 
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HAVE  TIG  - TIME2,  UNDOUBTEDLY  A + NUMBER 
POSITIVE,  SINCE  WE  PASSFD  THE 
45  SECUr C CHECK 

RESTS  I CT  MAGNITUDE  OF  NUMBER  INI  A 


GET  REMAIN  DEL- 


6.3SP0T  FOR  CLOKT ASK 


SET  TEASEL  FOR  GROUP  6 RF  ST  APT 


WAIT  A SECOND  BEFORE  STARTING  OVER 


KILL  RESTART 


GAP:  ASSEMBLE  E VISI 3N  Ql 1 OF  AGC  PROGRAM  AP11RQPE  BY  EYLES 
L BU' N,  BABY,  BJPN  — ‘AST  E?  IGNITION  RDUTINE 


0561 

056? 

0563 

0564 

0565 

0566 

0567 

0568 

0569 

0570 


REF 

REF 

21 

2 1 

LAST 

1 AST 

743 

744 

PFF 

15 

LAST 

74  4 

P.EF 

1 14 

LAST 

743 

REF 

115 

LAST 

745 

REF  220.  LAST  740 
REF  1 


36.2743 

36 . 2744 

36.2745 

36.2746 

36.2747 
34  , ? 7 5 0 

36.2751 

36.2752 

36.2753 

36.2754 


3 0025  0 
2 1 ' 454  1 

0 0004  0 
11 ’ 163  0 

1 51551 
1 5 1 5 1 

4 OCOO  0 

0 0003  1 
50  C GO  1 

1 3011  0 


DC  A 

DAS 

INHINT 

CCS 

TCP 

TCF 

COM 

P.FL  I NT 

INDEX 

TCF 


TIME2 

TTOGO 

DISPDEX 
ENDOF JOB 
ENDOF JOB 


A 

OISPNCT  -1 


0C7  1 


PFF 


476  5 


VB97DEX  = OCT36 


05711  REF  136  LAST  743  36,2755 

05712  REF  l 36,2756 

0572  REF  l 36,2757 

0573  KEF  135  LAST  742  36,2760 

0574  REF  1 36,2761 

0575  REF  1 36,2762 

0576  REF  1 36,2763 

0577  REF  I 36,2764 


4755 

0 

-35 

CS 

ZERO 

5' 067 

0 

TS 

NVW0RD1 

0371 

1 

CA 

NVWfiRD  +2 

4616 

1 

TC 

8ANKCALL 

2047  3 

0 

r a n p 

r | r,r pi  ay 

U Luv,  r LH  T 

3013 

1 

TCF 

STOPCLOK 

2610 

0 

TCF 

C.CMFAI  l 1 

2c23 

0 

TCF 

COME A I L 2 

A 058  3 


05  8 * 

REF 

1 

36, 2765 

3 3 146 

1 

-25 

CAF 

VO  6 Mai 

0585 

REF 

196 

LAST 

745 

36,2766 

0 4616 

1 

TC 

BAN KC ALL 

0586 

R EF 

1 

36,2767 

20457 

0 

C A OR 

REFLASH 

0587 

KEF 

2 

LAST 

745 

36,2770 

1 3013 

1 

TCF 

STOPCLOK 

0588 

?EF 

I 

3 6 ,2771 

1 30  30 

0 

TCF 

ASTNKETf 

05  8 4 

36,2772 

1 2764 

1 

TCF 

-6 

0590 

REF 

1 

4762 

CNTDNUE  X 

= 

L0W4 

0591 

KEF 

15 

last 

742 

36,2773 

51 '455 

1 

-17 

INDEX 

WHICH 

0592 

36,2774 

3 (.000 

1 

CAF 

0 

0593 

REF 

197 

LAST 

745 

36,2775 

0 4616 

1 

T C 

3ANKCALL 

0594 

REF 

? 

L A CT 

7 36 

36, 2776 

20465 

1 

CAQR 

REGODS  P 

0595 

REF 

2 

LAST 

467 

4760 

V 899  0 EX 

= 

ELEVEN 

05  95  5 

36,2777 

V«9P FCYC 

EQUALS 

059^6 

pff 

20 

LAST 

667 

36,2777 

4 4743 

1 

- 13 

CS 

B I T9 

05967 

REF 

2 

LAST 

745 

36, 3000 

55 '067 

0 

TS 

NVW0PD1 

0596 

REF 

16 

LAST 

745 

36, 3001 

51*455 

1 

INDEX 

WHICH 

05  97 

36,3002 

3 0000 

1 

CAF 

0 

0598 

PFF 

198 

LAST 

745 

36, 3003 

0 4616 

1 

TC 

BANKCALL 

059  - 

REF 

2 

LAST 

745 

36,3004 

20473 

0 

CADE 

CLOCPl  AY 

0600 

RFF 

3 

LAST 

7'-5 

36,3005 

1 3013 

1 

TCF 

STOPCLOK 

0601 

PEF 

l 

36 , 3006 

1 3041 

0 

TCF 

^PROCEED 

0602 

PEF 

1 

36,3007 

l 3044 

0 

TCF 

CENTER 
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IF  DISPDEX  HAS  BEEN  SET  POSITIVE  BY  A 
TASK  OR  A HIGHER  PRIORITY  JOB  SINCE  THF 
LAST  CLDKTASK,  AVOID  USING  IT  AS  AN 
INDEX . 

*****  DISPDEX  MUST  NEVER  BE  -0  ***** 

( -1  DUE  TO  EFFECT  OF  CCS  1 

NEGATIVE  OF  THIS  IS  PROPER  FOR  DISPDEX 

INDICATE  VERB  97  PASTE 

NVWROD+2  CONTAINS  V06  S APPROPRIATE  NOUN 


TERMINATE  CLOKTASK  ON  THE  WAY  TO  POOH 


THIS  DISPLAY  IS  CALLED  VTA  ASTNCLGK 
IT  IS  PRIMARILY  USED  BY  THF  CREW  IN  P63 
TO  RESET  HIS  EVENT  ttmEP  TO  AGr  EE  WITH 
TIG. 


OCT  1 7 ; NEGATIVE  PROPER  FOR  DISPDEX 

THIS  DISPLAY  COMES  UP  AT  ONE  SECOND 
INTERVALS.  IT  IS  NORMALLY  OPERATED 
BETWEEN  TIG-30  SECONDS  AND  TIG-5  SECONDS 
R EGO D S P DOES  ITS  OWN  TCF  ENDOF JOB 

0CT13;  NEGATIVE  PFOPER  FOR  DISPDEX 


INDICATE  VERB  99  PASTE 

THIS  IS  THE  "PLEASE  ENABLE  ENGINE" 
DISPLAY;  IT  IS  INITIATED  AT  tig-5  SEC. 
THE  DISPLAY  IS  A VC9NXX,  WHERE  XX  IS  THE 
NOUN  THAT  HAD  PREVIOUSLY  BEEN  DISPLAYED 
TERMINATE  GOTGPOOH  TURNS  OFF  ULLAGE. 


GAP:  ASSL.1C.Lfc  .-.EVIS10M  001  . F AGC  PROGRAM  APIIkQPE  BY  EYLES 


BURN 

, RA3Y,  BURN  — 

M AS  T Ek  I GN  I T I ON  RO  UT  1 N E 

0606 

REF 

42 

LAST 

7^4 

4752 

Bl  ANKDEX 

= 

TWO 

0607 

REF 

199 

LAST 

745 

36 ,3010 

0 46  It 

1 

-2 

TC 

BANKCALL 

06  OF 

REF 

2 

LAST 

73  5 

36 ,3011 

20456 

1 

CAD 

Cl  E AN  DSP 

0609 

e EF 

1 1 '• 

LAST 

74  5 

36,3012 

1 c- 1 5 5 

1 

DISPNDT 

TCF 

ENDUE  JO  b 

0610 

REF 

1 

36,3013 

0 3015 

0 

STOPCLOK 

TC 

NULLCLOK 

Obll 

REF 

23 

LAST 

730 

36,3014 

1 6001 

1 

TCF 

GUT  QPCjOH 

0612 

8 i , 30 1 5 

0 0004 

0 

NULLCLOK 

INHINT 

061  3 

36,301 6 

0 0006 

1 

EXTEND 

0614 

P EF 

1 

36,3017 

23*142 

1 

QXCH 

P40/RET 

0615 

RFF 

2 

LAST 

740 

36 , 3020 

0 2653 

0 

TC 

NOUt-LAGF 

0616 

REF 

11 

LAST 

742 

36,302 1 

0 6027 

1 

TC 

KIL  L TASK 

0617 

P EF 

3 

LAST 

7 36 

36,3022 

74.3  46 

0 

CADE 

ULLGTASK 

061  8 

REF 

40 

LAST 

742 

36 ,3023 

0 5353 

1 

TC 

PHASCHNG 

0619 

36,3024 

00  001 

0 

0CT 

1 

0620 

REF 

18 

LAST 

742 

36,3025 

3 0005 

1 

CA 

Z 

0621 

REF 

16 

LAST 

745 

36,3026 

55*163 

0 

TS 

DISPDEX 

0622 

REF 

2 

LAST 

746 

36,3027 

0 1142 

1 

TC 

P40/RET 

06222 

- EF 

41 

LAST 

746 

36 , 3030 

0 5353 

1 

AST  NR  ETN 

TC 

PHASCHNG 

06224 

36,3031 

04024 

0 

OCT 

04024 

0623 

REF 

137 

LAST 

745 

36,3032 

3 4755 

1 

CAF 

ZERO 

062  31 

REF 

17 

! AST 

7 46 

36,3033 

55*163 

0 

IS 

DISPDEX 

06232 

R EF 

1 

36 , 3034 

3 r02  3 

0 

CAF 

P R 1013 

0625 

5 EF 

28 

LAST 

737 

36 , 3035 

0 5 105 

c 

TC 

F INOVAC 

0626 

RFF 

2 

LAST 

1 2 l 

E 6 , 1757 

E 8 A N K = 

CTAh  T M n 

0627 

REF 

1 

36, 3036 

032  10 

1 

2CADR 

ASTNP  ET 

062  7 

REF 

1 

36,3037 

64  065 

0 

0628 

REF 

117 

LAST 

746 

36,3040 

1 5155 

1 

TCF 

ENDCJF  JOB 

062° 

R EF 

45 

LAST 

743 

36 , 304 1 

n c 6 1 '4 

n 

^PROCEED 

T r 

1 ipf  1 an 

I v. 

06  30 

REF 

3 

LAST 

740 

36 , 3042 

00154 

1 

ADRES 

ASTNFL  AG 

0631 

REF 

1 

36,3043 

1 3102 

0 

TCF 

IGNITE 

0632 

36 , 3044 

0 0004 

0 

CENTER 

INHINT 

0633 

REF 

17 

l AST 

745 

36 , 3045 

51 *455 

1 

INDEX 

WHICH 

0634 

36 , 3046 

1 0003 

0 

TCF 

3 

063  5 

REF 

? 

LAST 

211 

36,304  7 

3 4 644 

0 

GO PO 5 T 

CAF 

PT 1012 

0636 

P FF 

29 

LAST 

746 

36,3050 

0 5105 

0 

TC 

F I NDV AC 

06  37 

RtF 

22 

LAST 

745 

F7 , 1453 

F B A N K = 

T TOGO 

063  8 

REF 

2 

1 AST 

241 

36,3051 

03223 

1 

2CADF 

PCSTBUF1 

0638 

36, 3052 

74  06  7 

0 
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I S PROPER  -FOR  DT  SPDEX 


BLANK  OSKY.  THF  DSKY  IS  BLANKED  FOR 
5 SECONDS  AT  TIG-35  TO  INDICATE  THAT 
AVERAGE  G IS  STARTING. 


STOP  CLOKTASK  & TURN  OFF  ULLAGE  ON  THE 
WAY  TO  PCO  (GOTnPOOH  RELINTS) 


TURN  OFF  ULLAGE... 

DON'T  LET  IT  CONE  ON,  EITHER... 

I r " EVEN  IF  thepe*S  A n F ST  AR  T . 

KILL  CLOKTASK 


STOP  DISPLAYING  BUT  KEEP  RUNNING. 


(3)  MUST  BE  LOWER  PRIORITY  THAN  CIQKJOB 


GAP  : 


ASSEMBLE  REVISION  001  OF  AGC  PROGaAM  APll-;.OPt  BY  EYLfcS 


L BU  M,  BABY , BJPN  — f ASTER  IGNITION  ROUTINE 


06382  36,3053  0 0004  0 INHINT 

06383  REF  25  l AST  742  36,3054  0 4674  0 TC 

06384  REF  2 LAST  230  36,3055  40204  0 CAOR 

0630  REF  2 LAST  746  36,3056  0 3C15  0 TC 

0640  REF  42  LAST  746  36,3057  0 5353  1 TC 

0641  36,3060  00134  1 OCT 

0642  REF  118  LAST  746  36,3061  1 5155  1 TCF 


0643 

0644 

0645 

0646 
0646 

0649 

0650 

REF 

d i r p 

3 

LAST 

I ACT 

735 

746 

738 

7^2 

7^2 

36.3062 

36 . 3063 
E7,  1516 

36.3064 
3.6,3065 

34 . 3066 

36.3067 

3 5027 
0 5105 

02424 
30067 
0 551c 

C 017  5 

1 

0 

1 

0 

0 

1 

GOCUTOFF  CAT 

TC 

E 8 A N K = 
2CADR 

TC 

A DEES 

Her 

REF 

REF 

REF 

OFF 

REF 

5 

1 

1 

63 

3 

LlQ  1 

LAST 

1 AST 
LAST 

06502 

36,3070 

0 0004 

0 

INHINT 

06504 

REF 

26 

LAST 

747 

36 , 307  I 

0 4674 

0 

TC 

065  06 

REF 

3 

LAST 

747 

36, 3072 

402  04 

0 

GADR 

0651 

REF 

3 

LAST 

747 

36, 3073 

0 3015 

0 

TC 

0652 

REF 

43 

LAST 

747 

36,3074 

0 53  53 

1 

TC 

0653 

36,3075 

07  024 

0 

OCT 

0654 

36,3076 

17000 

1 

OCT 

0655 

REF 

6 

LAST 

747 

E 7 , 1516 

E B ANK  = 

0656 

REF 

2 

LAST 

747 

36,3077 

02424 

1 

2 CAOR 

0656 

36,3100 

30067 

0 : 

0657 

OFF 

1 1 V 

LAST 

747 

36,310  1 

1 5155 

1 

TCF 

0658 

REF 

13 

LAST 

740 

36, 3102 

4 0103 

1 

IGNITE 

CS 

065  9 

REE 

2 

LAST 

7 3 8 

36,3103 

7 47  3 7 

1 

MASK 

0660 

REF 

221 

LAST 

74.5 

34 , 3104 

10  000 

0 

CCS 

0661 

REF 

1 

36,3105 

1 3116 

0 

TCF 

0 66? 

REF 

36 

LAST 

743 

36,3106 

3 6.753 

1 

CAP 

0663 

36, 3107 

0 00  04 

0 

INHINT 

0664 

REF 

1 6 

LAST 

744 

36,3110 

0 5173 

1 

TC 

0665 

REF 

2 

LAST 

24  1 

36,31  11 

02426 

0 

ADRES 

0666 

REF 

1 

36, 3112 

3 43  6 0 

0 

CAF 

0667 

REF 

100 

LAST 

74A 

36, 3113 

5 A 001 

1 

TS 

0668 

36,31  14 

4 0000 

0 

COM 

066  9 

RFF 

5 

LAST 

741 

, 3115 

52  761 

0 

DXCH 

0670 

REF 

5 

LAST 

7 42 

36,3116 

4 4 7 62 

1 

I SIM  IT  El 

CS 

06  71 

F EF 

18 

LAST 

7 46 

36, 3117 

55'  1 - 3 

0 

TS 

0672 

REF 

120 

1 AST 

747 

36,3120 

1 5155 

1 

TCF 

I BNKCALL 
ALLCOAST 
NULLCLOK 
PHASCHNG 
0 013  4 

ENDOF JOB 


PR  1 0 1 7 
FINDVAC 
T GO 

CUTOFF 

DC WMF L AG 
F LUND I SP 


I BNKCAL L 

ALLCOAST 

NULLCLOK 

PHASCHNG 

0 7 0 2 a 

17000 

T GO 

CUTOFF 


ENDOF JOB 


FLAGWRD7 
IGNFl BIT 
A 

1GNJ  TE1 
BIT  1 

TWIDDLE 

IGNITION 

OCT  2 3 
L 


-PHASE4 

CNTONDfX 

DISPDEX 

ENDOF JOB 


3:15  DEC 
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SET  UF  THE  DAP  FOR  COASTING  FLIGHT. 

4.13  RESTART  FOP  POSTBURN 


( 3) 


SET  UP  THE  DAP  FGF.  COASTING  FLIGHT. 


IMMEDIATE  ESTAPT  AT  IGNITION. 


( ESTOP E OLD  DISPLAY 


GAP : 

L 

R 0673 

0674 

06  7 c 

0676 

0677 

0678 

0670 

06  30 

0681 

0682 

0683 

R 0684 

0685 

0636 

0687 

0688 

0689 

0690 

06  91 

069  2 

06Q3 

0694 

0695 

0696 

0697 

0698 

069° 

0700 

0701 

0702 

0703 

0704 

070*; 

0706 

0707 

0708 

0709 

0710 

071  1 


ASSEMBLE  ! E VISION  OC  1 06  AGC  PROGRAM  AP11RUPE  BY  EY1.ES 


3: 15  DEC 


2 f 19  7q 


fly 
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BURN,  BABY,  B J R N — MASTER  IGNITION  ROUTINE  USER’S  PAGE  NO.  18  E7  S3 


**  4 

£ # jjc  j*c  ajc  s!<  5}i  # 3{c  # 5j;  sjc  # s{c  # # 

REF 

29 

LAST 

662 

36,312 1 

0 

5So7 

0 

P4Q-ALf/l  TC 

ALARM 

PROGRAM  SELECTION  N0T  CONSISTENT  WITH 

36,3122 

01706 

1 

OCT 

1706 

VEHICLE  CONE  I GURAT  I 01 

° EF 

4 

LAST 

Af  2 

36,3123 

3 

5006 

1 

RFP4CALM  CAF 

V05N09 

( 14) 

REF 

200 

LAST 

746 

36,3124 

0 

4616 

1 

TC 

BANKCALL 

REF 

21 

LAST 

730 

36,2125 

2 0476 

0 

CADR 

GCFLASH 

REF 

24 

LAST 

746 

36,3126 

1 

/ c 0 1 

1 

TCP 

GCTOPHOH 

V34 F TERMINATE 

3c ,3127 

1 

3131 

0 

TC  F 

+2 

PROCEED  CHECK  FOP  P42 

def 

2 

LAST 

737 

36,  3 #0 

1 

3123 

0 

TCF 

0 EPaOA  l m 

V32E  REDISPLAY  ALARM 

REF 

18 

LAST 

7 46 

36, 3131 

51*455 

1 

INDEX 

WHICH 

FOR  P 62 , ALLOW  CREW  TO  PPOCEED  EVEN 

3c, 3132 

1 

0014 

0 

TCF 

14 

THOUGH  VEHICLE  IS  UNSTAGED 

^ 3;c  ^ sjc  :{<  a}c  # # # afc  # ;*c 

3 1 ,2144 

BANK 

31 

REF 

1 

35,2000 

SETLOC 

P40S? 

35,3747 

BANK 

R EF 

1 

COUNT  * 

$ $ / P4 0 

REF 

10 

LAST 

743 

35,3747 

0 4645 

1 

P40AUT0 

TC 

MAKECADR 

HELLO  THERE. 

REF 

4 

LAST 

474 

35, 3750 

55 ' 1 64 

1 

TS 

TEMPI  60 

FOR  GENERALIZED  RETURN  TQ  OTHER  BANKS. 

REF 

201 

LAST 

748 

3 5,375  1 

0 4616 

1 

P 4 OA/P 

TC 

BANKCALL 

SOB ROUT  I E TC  CHECK  PGNCS  CONTROL 

RFF 

3 

LAST 

5 18 

3 5,3752 

5 4255 

1 

CADR 

G+N , AUTO 

AND  AUTO  STABILIZATION  MODES 

8 EF 

222 

LAST 

T47 

35, 375 3 

10  000 

0 

CCS 

A 

+0  INDICATES  IN  PGNCS,  IN  AUTO 

RFF 

1 

3 5,  3754 

1 3766 

1 

TCF 

TURNI TON 

+ INDICATES  NOT  IN  PGNCS  AND/OR  AUTO 

REF 

8 

LAST 

736 

35,3755 

3 4737 

0 

CAF 

APS  FL  BIT 

ARE  WE  ON  THE  DESCENT  STAGE? 

REF 

1 3 

LAST 

7 it 

8 5. Y7  5 6 

7 0 1 0 0 

]_ 

mask 

F 1 r.  wr  ni  0 

I -J 

U IN 

I L.UWr  U 1 v 

REF 

223 

I AST 

748 

35,3757 

1C  000 

0 

CCS 

A 

REF 

1 

3 5,  3760 

1 3773 

0 

TCF 

G 0 BACK 

RETURN 

REF 

31 

LAST 

718 

36,3761 

3 4747 

1 

CAF 

BIT5 

YES,  CHECK  FOP  AUTOTHROTTLF  MODE 

35, 3762 

0 0006 

1 

EXTEND 

c EF 

A 

LAST 

475 

35,3763 

02  030 

0 

RAND 

CHAN30 

35, 3764 

C C006 

1 

EXTEND 

REF 

2 

LAST 

748 

35,3765 

1 3773 

0 

BZF 

GOBACK 

IN  AUTOTH  TTLE  MODE  — RETURN 

PFF 

1 

35,3766 

3 37  7 5 

1 

TURN I TON 

CAE 

P40A/PMD 

DISPLAY  V50N25  Pl=203  °LEASE  PERFORM 

RFF 

202 

LAST 

748 

35 , 37  6 7 

0 46  1 6 

1 

TC 

BANKCALL 

CHECKLIST  203  TURN  ON  PGNCS  F^C. 

REF 

3 

LAST 

513 

35,3770 

20623 

1 

CADR 

G0PERF1 

REF 

25 

LAST 

748 

35,  3771 

1 6001 

1 

TCF 

GOTOPOOH 

V34E  TERMINATE 

REF 

1 

35,3772 

1 3751 

c 

TCF 

P40A/P 

RECYCLE 

REF 

5 

LAST 

748 

35,3773 

3 1164 

c 

GOBACK 

CA 

TEMPK60 

R E F 

13 

LAST 

744 

35,3774 

0 4640 

1 

TC. 

RANK JUMP 

GOODBYE.  COME  AGAIN  SOON. 

35,3775 

00203 

0 

P40A/PMD 

GCT 

00203 

GAP  : 
L 


0712 

0713 

0714 

071  5 

R 071 6 
R 07 1 7 
R.071S 

0719 


ASSEMBLE  REVISION. OC 1 OF  AGC  PROGRAM  API 
BUFF',  BABY,  B J '•  --  '4A$tep  IGNITION  >0 

36,3133 

REF  5 LAST  7^2  36,2000 

36,3133 

REF  5 LAST  742  TO  743:  226  603 

* * **  ** 
CUNSTA 

REF  3 36,210? 


0720  REF  1 36,1133  02036  0 

0721  REF  1 3 0,3134  02046  1 

0722  REF  1 36,3135  02061  1 


0723 

0724 
0724 


REF  26  LAST  742  E7,l515 

REF  1 36,3136  03471  0 

REF  1 36,3137  62057  1 


0727 

" EF 

27 

L AST 

0728 

REF 

1 

0728 

REF 

1 

0729 

F EF 

26 

LAST 

0730 

0730 


74,9 

E7, 1 51- 

36, 3140 

03642 

1 

748 

36,3141 

6001 

70067 

1 

36,3142 

00000 

1 

3‘  , 3 14  3 

056  56 

1 

0731 


36,314,4  04:672  0 


0732 

0733  REF 
07331 


36 ,314  « 

32  LAST  743  4747 

36,3146 


00752  1 


01475  0 


1R0PE  BY  BYLES 
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L970 

FLY 

.132 

PAGE 

UT  1 NE 

USER*  S 

PAGE 

NO. 

19 

E7  S3 

BANK 

SETLOC 

BANK 

36 

P40S 

* 

count* 

$ t/P40 

**********  ********  *******  *******  ** 

NTS  FOR  THE  IGNITION  ROUTINE 

i * Y:  A J;  i Yt  sG  V/  V;  iG  iG  »G  6'  -*G  'ft  ■6-  -4-  ,1.  -,G  v.  ,g  V'  4 *4  + ^ 4 6*  0- 

SERVC.ADF 

= 

t r 'i-  t t-  -r-  t--  -r-  -v  -r 

P63TABLE  +7 

P40ADRES 

ADRES 

P40T  ABLE 

, P41ADRES 

ADRES 

P41T  ABLE  -5 

P42A0RES 

AORFS 

P42T  ABLE 

DSP2C ADR 

E B ANK  = 
2 C ADR 

DVCNTF 

P63DISPS  -2 

ATMAGADR 

FR  ANK  - 
2CA0R 

DVCNTP, 

ATMAG 

? 

GCTGPOOh 

D29.9SEC 

2D  EC 

?C9C 

S24.9SEC 

DEC 

2490 

4.9SEC 

DEC 

490 

0CT20 

= 

B I T5 

V06N61 

VN 

0661 

749 


GAP: 


P 073  5 
R 0736 
R 0737 


R 073  8 

R 0739 
R 07  A 1 
R 0743 
R 0745 

R 0 7 4 6 

A 074c 
A 074° 

A 075  0 

P 07  5 1 

R0752 

R 07  5 3 

R0754 

0755 

0756 

0757 

075  R 

0759 

0760 
07605 

076  1 
076  3 

0763 

0764 

0765 

0766 
076  7 


0768 

076  Q 
0770 
077] 

0772 
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BURL,  BABY,  BURN  — MASTER  IGNITION  ROUTINE  USER'S  PAGE  NO. 

KILLTASK 

MUD  NO:  NEW  PROGRAM 
MOD  BY:  CUVELLI 


FUNCTIONAL  DESCRIPTION: 

KILLTASK  IS  USED  TP  EMOVE  A TASK  FROM  THE  WAITLIST  BY  SUBSTITUTING  ANULL  TASK  CALLED  'NULLTASK'  (OF  COURSE), 
•J  H I C U tTELY  DIES  A TC  TASKQVi  . IE  THE  SAflE  TASK  IS  SCHEDULED  MORE  THAN  ONCE,  ONLY  THE  ONF  WHICH  WILL  OCCUR 
FIRST  IS  REMOVED.  IF  THE  TASK  IS  NO r SCHEDULED,  KILL  ASK  TAKES  NO  ACTION  AND  RETURNS  WITH  NO  ALARM.  KILLTASK 
LEAVES  INTERRUPTS  INHI  01 '-‘ED  S 0 CALLER  MUST  S'  EL  I NT 

CALLING  SEQUENCE: 


.132  PAGE  750 
20  E7  S3 


L TC  KILLTASK  IN  FI XED-F I XED 

L + I CADS  ????????  CAOR  (NOT  2C ADR ) OF  TASK  TO  BE  ° EMOVE  D . 

L +2  (RELINT)  RETURN 


EXIT  MODE:  AT  L+2  CF  CALLING  SEQUENCE. 


ERASABLE  INITIALIZATION  NONE. 
OUTPUT  : 2CADR  OF  NULLlASK  I'!  U‘2 


DEBRIS:  ITEMP1  - ITEMP4,  A , L , Q. 


■REF  19 

LAST 

221 

E3 ,14  10 

EBANK= 

LST2 

60  2 7 

8L  OCK 

3 

REF  2 

LAST 

1 

6000 

SFTl.OC 

FFTAG6 

4027 

BANK 

0 EF 

1 

COUNT  * 

$ $ / K I L L 

REF 

1 

6027 

3 6 0 36 

1 

K 1 1 L TASK 

CA 

KILLBB 

603  0 

0 OC 04 

0 

I NH  T NT 

' EF 

224 

LAST 

748 

603  1 

22  000 

1 

LXCH 

A 

P EF 

191 

LAST 

744 

6032 

5C  002 

c 

INDEX 

Q 

6033 

3 PCOO 

1 

CA 

0 

REF 

16 

LAST 

584 

6034 

22  006 

1 

LXCH 

BBANK 

REF 

1 

6035 

1 2200 

0 

TCF 

K ILL  TSK? 

REF 

20 

LAST 

750 

E3 , 14 10 

EBANK= 

LST  2 

P EF 

2 

LAST 

7 50 

6036 

56063 

1 

K I L L B B 

BBCON 

KILL TSK2 

27, 22C0 

BANK 

27 

REF 

3 

LAST 

44 

27,2000 

SETLOC 

P40S1 

27,2200 

BANK 

REF 

I 

C’HJNT* 

$$/KU L 

REF 

10 

LAST 

544 

27,2200  22  062  0 

KILLTSK2  LXCH 

ITEMP2 

KILLTASK  MUST  3E  IN  FIXED-FIXED. 


GET  C A D r . 

CONTINUE  IK  SWITCHED  FIXED 


SAVE  CALLER'S  B6ANK 


b (+b± 
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0773  REF  192  LAST 

0774 

077  5 REF  29  LAST 

0776  REF  16  LAST 

0777  REF  A LAST 

0778  REF  21  LAST 

077  ° REF  7 LAST 


750 

27,2201 

24  002 

0 

27,2202 

0 0006 

1 

612 

27,2203 

22  061 

0 

560 

27,2204 

56  0 63 

0 

t £ p 

27,2205 

7 5 01  2 

0 

43  1 

27, 2206 

6 4741 

1 

559 

2 7,2207 

54  064 

I 

I NCR  Q 

EXTEND 

QXCH  ITEMP1 

TS  1 TE  MP3 

MASK  10W10 

AD  BIT11 

TS  ITEMP4 


0780 

REF 

6 

LAST 

75  1 

27,22 10 

0781 

KEF 

1 7 

LAST 

751 

27, 2211 

0782 

P FF 

1 Q 

1 AST 

1 

27, 2212 

4 5012  0 OS  I.CW  10 

7 C 063  0 MASK  I TEMP 3 

54  063  0 TS  ITEMP3 


2” 


0783 

0784 

, REF 

101 

LAST 

747 

27.2213 

27.2214 

22  007 
50  001 

0 

0 

ADkSCAN 

ZL 

INDEX 

L 

0785 

REF 

21 

LAST 

750 

27,2215 

4 1410 

1 

CS 

I.ST2 

0786 

A 7 Q 7 

R F F 

8 

LAST 

7 5 1 

27.2216 

27.2217 

6 00  64 
0 0006 

0 

1 

AD 

EXTEND 

ITEMP4 

O 1 “ t 

0788 

R FF 

1 

27,2220 

1 2232 

1 

BZF 

T ST  FB  AN  K 

0789 

REF 

1 

27,2221 

4 4747 

0 

LETITLI V 

CS 

LSTLIM 

0790 

KEF 

102 

1 ART 

751 

27,2222 

6 0 001 

0 

AD 

L 

07-1 

27 ,2223 

0 OC 06 

1 

EXTEND 

079  2 

r EF 

1 

27,2224 

1 22  30 

0 

BZF 

DEAD 

0793 

P P F 

1 0 8 

LAST 

751 

27,2225 

24  001 

0 

I NCR 

L 

"lf 

0794 

REF 

104 

LAST 

751 

27,2226 

24  001 

0 

I NCR 

L 

079* 

REF 

1 

27,2227 

1 2214 

0 

TCF 

ADRSCAN 

0796 

REF 

30 

LAST 

751 

27,2230 

52  062 

1 

DEAD 

DXCH 

I7EMP1 

0797 

27,2231 

52  C06 

0 

D7CB 

0798 

REF 

7 

LAST 

7*1 

27, 2232 

4 5012 

0 

TSTFBANK 

CS 

LOW  10 

0799 

REF 

105 

LAST 

751 

27,2233 

50  001 

0 

INDEX 

L 

0800 

REF 

22 

LAST 

751 

27,2234 

7 1411 

0 

MASK 

LST2  +1 

0801 

27,2235 

0 0006 

1 

EXTEND 

0802 

KEF 

19 

LAST 

7*1 

27,2236 

60  0 63 

1 

SU 

ITEMP3 

0803 

27,2237 

0 0 006 

1 

EXTEND 

0806 

REF 

1 

27,2240 

1 2242 

0 

BZF 

KILLDEAD 

0805 

REF 

1 

27,224 1 

1 2221 

0 

TCF 

LETITLIV 

0806 

REF 

1 

27, 2242 

3 4-353 

0 

KILL  DEAD 

CA 

TCTSKOVR 

0807 

REF 

106 

LAST 

751 

27,22- 3 

50  C01 

0 

INDEX 

L 

0808 

REF 

23 

LAST 

75  1 

27,2244 

55*  MO 

1 

TS 

1 ST2 

0809 

RtF 

2 

LAST 

751 

27, 2245 

1 2230 

0 

TCF 

DEAD 

0810 

REF 

33 

LAST 

749 

4 747 

LSTLIM 

EQUALS 

BITS 

* 

I 


I 


< 
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USER'S  PAGE  NO.  21  E3  S3 

RETURN  2CADF  IN  I T EMP  1 , I T E MP 2 
CADR  IS  IN  A 

GENADF  OF  TASK 

..e 

FRANK  OF  TASK 


CCMPAFE  GENADRS 

IF  THEY  MATCH,  COMPARE  F BANKS 

ARE  WE  DONE? 

YES  - DONE , SO  RETURN 

CONTINUE  LOOP. 


COMPARE  FEANKS  ONLY. 


MATCH  - KILL  IT. 

NO  MATCH  - CONTINUE. 


REMOVE  TASK  BY  INSERTING  TASKOVE*- 


DEC  16 


G AF  : 

L 

P0001 
R 0002 
R 000  3 

ROCCA- 

R 000  5 
R 0007 

R 00 OF 

R 000° 
R 00 1 1 

R0012 
R 001A 

R0016 

R0018 

R 00 1 9 

P 0020 
R 00  2 1 
R 002 2 
R 0023 
R 00  2 A 
R 13025 
R0026 
R 002  7 
R 002  8 
R0029 
R0030 
R 003  1 
R 003  3 
R0035 

R0036 

R 003  7 
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3:15  DEC.  2,1970  FLY 
USER'S  PAGE  NO. 


.132  PAGE 
1 EO  S3 


DECFMBER  22,  1966 
MARCH  3,  1967 


PROGRAM  DESCRIPTION  PA- 0 BOTH 
MOD  03  BY  PETER  ADLER 
CALLED  VIA  JOB  FROM  V37E 

FUNCTJ  ;NAL  DEcC.'  I PT  I C- ’ 

1)  TO  COMPUTE  A P R E FER  P E D IMU  ORIENTATION  AND  A PREFERRED  VEHICLE  ATTITUDE  FOR  A LM  DPS 
THRUSTING  MANEUVER. 

3)  TO  DO  THE  VEHICLE  MANEUVER  TO  the  THRUSTING  ATTITUDE. 

A ) T ° COPT- PL  THE  PGMCS  DU-  I ,NG  COUi  TDOWv,  IGNITION,  THRUSTING,  AND  THRUST  TERMINATION  OF  A 
PGNCS  CONTROLLED  DPS  MANEUVER. 

5)  I p( 1 S T BUr  —ZERO  r ENDEZVQUS  COUNTER,  iAI  TAIN  VG  CALCULATIONS  FCK  PLSSIBLE  RCS  MANEUVER, 
SET  MAXIMUM  DEADBAND  IN  DAP,  RESET  STEERLAW  CSTEER  TO  ZFRO. 

NOTE:  pA  2 , HUTCH  15  IN  THIS  LOG  SECTION,  DOES  T HE  SAME  FOR  AN  APS  BURN,  AND  P41  DOES  1-3  Fro 

RCS  PLUS  DISPLAYS  PARAMETERS  FOR  MANUAL  CONTROL . 

GUBROUT INES  USED 

R 02 
S40.  ] 

SAO. 1 3 
S40. 2 ,3 
S4C.8 
S40.9 
R60LEM 
I EMPREC 
PREREAD 
ALI COAST 
CLCKT  ASK 
PHASCHNG, 

PR  I OL ARM, 

KILLTASK, 


IMU  STATUS  CHECK 

C CM PUT  AT  I ON  OF  THRUST  DIRECTION 
LENGTH  OF  BURN 
PFEFEERED  IMU  OR  I ENA TT I ON 
X PRODUCT  STEERING 
LAM3ERT  V TOG A I N 
ATT  I T j iJF  MANEUVER 
EKTRAPOL  ATF  STATE  VECtPR 
AVERAGE  G,  SERVICER 
DAP  COASTING  INITIALIZATION 
ERG.  CLOCKJ  .3  — COUNT  DOWN 
INTPRET,  FLAGUP,  FLAGDOWM,  WAITLIST, 


LCNGCALL,  GOFLASH,  GD  FLASH-' , GO  PER  FI , ALARM, 


GCTOPCOH, 
SGN AGREE , 


ENDUE  JOB,  BANK  CAL  l 
TPAGREF,  FTC. 


SET  MAXDB,  SETMINDB,  CHECK  MM,  FLATOUT,  OtJTFLAT , 


RESTARTS  VIA  GROUP  4 


DISPLAYS 


R003P 

V50N  2 c 

203  A/P 

R 0040 

V06N^0 

TTI,  VG 

R 004 1 

V 5 ON  9 9 

PLEASE 

R0G42 

VC6N4C- 

TG  (TIM 

R (3043 

V 1 6 N 4<-  0 

FINAL  V 

P 00^-4 

V16N35 

C C M P OF 

P 004.5 

V05N0  9 

POSSI 8L 

R 0046 

V50N07 

PLFASE 

’<  PGMCS,  AUTO  THROTTLE  MODE , AUTO  ATTITUDE  CONTROL 
, DEI.TAVM  (DISPLAYED  ONCE/SECOND  BY  CLOKTASK) 

PERFORM  ENGINE  ON  ENABLE 

fc  TC  GO  TO  CUTOFF-),  VG,  DEL  T A VM--ONC  E /S  ECOND 
AI.UES  OF  TG,  VG,  DELTAVM 
VG  (BODY  AXES)  FOR  POSS. 

E ALARMS 
SELECT  POO 


f CS  MANUAl  MANEUVER 
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R 0047  VIA  R 30 

R 0048  V06N44  HAPO,  PEP  I,  T#F 

R 0049  VQ6N3  5 TIME  TO  PERIGEE,  HM S 


R G05C  ALARM  OR  ABORT  EXIT  MOOES 

R 005 1 PROGRAM  ALARM,  FLASHING  DISPLAY  OF  ALARM  CODE  1706  IF  P40  SELECTED  WITH  DESCENT  UNIT  STAGED. 

Q 0053  V34E  (TEf'l  ATU  IS  THE  ONLY  RESPUl.SE  ACCEPTED.  TC  GOTOPOOH. 


R0054  PROGRAM  ALA  v,  FLASH  CODE  1703:  TIG  LESS  THAN  45  $FCS  AWAY.  V34E=  GOTCPOt  H OR  V33E=  SLIP 

R 005b  TTG  3 Y 45  SECS. 


R0057  ERASABLE  INITIALIZATION 
ROC  5,8  DEBRIS 

R0059  OUTPUT 


R 006  0 SEE  SUBROUTINES  F.G.:  S40.1,  S40.2, 3 , SAC. 13,  S40.8,  S40.9,  TRIMGIMB 

R 0062  XDELVFLG  = 1 FOR  EXT  DEL V COMPUTATION 

R 0063  = 0 FOR  AIMPT  (LAMBERT)  COMP 


0064 

•'  E F 

2 

L AST 

38  TP 

38: 

10 

10* 

COUNT* 

$ $/  D40 

0065 

REF 

19 

LAST 

74  3 

E7 , 1455 

E B A N K = 

WHICH 

006  6 

36,3147 

BANK 

36 

0067 

REF 

6 

LAST 

74  9 

36,2000 

SETLOC 

P40S 

0068 

36, 3147 

BANK 

0069 

REF 

LAST 

747 

35,3147 

0 5 3 5 3 

1 P40LM 

TC 

PEAS CHUG 

(“in A Q 7 

3 6,31  R,  0 

024 

o 

OCT 

vtu  C. 

00694 

REF 

1 

36,3151 

3 3133 

G 

CAP 

P40ADRES 

0070 

REF 

2 0 

LAST 

753 

36,3152 

55 ' 455 

0 

TS 

WHICH 

0071 

Q£F 

14 

LAST 

748 

36,3153 

3 Cl Oo 

0 

CA 

FLGWR D1C 

0072 

REF 

9 

LAST 

748 

36,3154 

7 4737 

1 

MASK 

APSFLBIT 

0073 

REF 

225 

LAST 

750 

36,3155 

10  000 

0 

CCS 

A 

0074 

REF 

1 

36,3156 

1 3121 

1 

TCF 

P40ALM 

007  9 

REF 

203 

LAST 

748 

36,3157 

0 4616 

1 

TC 

BANKCALl. 

00  bO 

REF 

5 

1 AST 

5 €2 

36, 3160 

1125  4 

1 

CADE 

R 02 B'  TH 

003  0 1 

REF 

24 

LAST 

743 

36,3161 

4 0111 

1 

CS 

DAPBOOLS 

00802 

REF 

5 

LAST 

294 

36 ,3162 

7 4737 

1 

MASK 

CSMDOCKD 

00303 

R EF 

226 

LAST 

753 

36  , 3163 

10  000 

0 

CCS 

A 

0080^ 

REF 

1 

36,3164 

3 2020 

1 

CAP 

THRE3H1 

00805 

REF 

1 

3 6,316  5 

6 2021 

0 

AD 

T HP  ESH3 

00806 

REF 

2 

LAST 

105 

36,3 1 6 6 

65 '25  1 

1 

TS 

DVTHRUSH 

00807 

REF 

11 

LAST 

742 

36,3167 

3 4751 

0 

CAF 

FOUR 

0080  8 

REF 

28 

LAST 

749 

36,3170 

55' 515 

0 

TS 

DVCNTR 

INITIALIZATION  FOR  BURN8ABY. 


GO  DO  IMIJ  STATUS  CHECK  ROUTINE. 


INITIALIZE  DVMON 
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L 

° 4 - 

■P47 

USER'S  PAGE  NO.  3 E7  S3 

0081 

REF 

104 

LAST 

735 

36,3171 

0 6037 

0 

TC 

INTPRET 

LOAD  CONSTANTS  FOP  DPS  BURN 

0062 

36 , 3172 

43175 

0 

VLOAD 

CLEAR 

LOAD  F,  MOOT,  TDFCAY 

0083 

REF 

1 

36,3173 

340  01 

1 

FDPS 

008  4 

REF 

1 

36,3174 

02663 

0 

NCTHROT L 

00  8 c 

REF 

2 

LAST 

143 

36, 3175 

03  735 

0 

STORE 

F 

00«c2 

36,3176 

77735 

0 

SIOAO 

00854 

REF 

1 

36 , 31 77 

26002 

1 

DPSVEX 

008  5 6 

36, 3200 

7 0476 

0 P40IN 

DC  OMP 

SRI 

0086 

REF 

1 

36,3201 

37743 

0 

STCALL 

VEX 

LUAD  EXHAUST  VELOCITY  FOR  TGC  COMP. 

0087 

REF 

1 

3 6,3202 

56246 

1 

S40. 1 

COMPlJTtS  UT  AND  VGTIG 

0088 

36,3203 

776  24 

1 

CAL  L 

0089 

REF 

1 

36, 3204 

56413 

1 

$4-0. 2 ,3 

COMPUTFS  PREFERRED  IMU  OR  I ENT  AT 1 ON 

0090 

36,3205 

77776 

1 

EXIT 

009C1 

36,3206 

0 0004 

c 

INHINT 

00902 

REF 

27 

FAST 

747 

36,3207 

0 4 6 74 

0 

TC 

I BNKCALl 

009  03 

REF 

1 

36,3210 

! (■  1^2 

1 

C A 0 R 

PFLI TEDB 

ZERO  ATTITUDE  ERRORS,  SET  DB  TO  ONE  DEG. 

0091 

REF 

1 

36,3211 

0 3213 

1 

TC 

P40SXT4 

P 009  2 

# 5j:  £ 3j£  £ % # 3*c  jJc  ijc  ;|c  £ 3*;  # jjc  >j£ 

0093 

P 0094 

REF 

1 

36,3212 

1 212'  1 

TC  F BURNS ARY 

0095 

36,3213 

u CO 06 

1 

P40SXT4 

EXTEND 

CO  9 6 

REF 

3 

LAST 

746 

36,3214 

23 '142 

1 

QXCH 

P40/P  ET 

01  oc 

36,3215 

0 00  03 

1 

P41MANU 

R E 1 IM 

0101 

RFF 

64 

LAST 

747 

36,3216 

0 5516 

0 

TC 

DOWNFLAG 

0102 

REF 

6 

LAST 

519 

36,3217 

00124 

0 

ADPES 

3AXISFLG 

0103 

REF 

206 

LAST 

753 

36,3220 

0 4 /,16 

1 

TC 

BANKCALL 

0104 

RFF 

4 

LAST 

5 1 9 

36,3221 

54  123 

0 

CADS 

f 60 LEM 

010* 

PEF 

4 

FAST 

754 

36,3222 

0 11-2 

1 

TC 

P40 /c  E T 

0 1 c 

REF 

7 

LAST 

741 

E 7, 146  2 

E8ANK= 

TRKMKCNT 

0107 

P.EF 

19 

LAST 

76  6 

36,3223 

3 

0 005 

1 

P 0 S T BURN  CA 

Z 

0108 

REF 

1 ' 

l AST 

747 

36,3224 

55 

•163 

0 

TS 

DISPDEX 

01  Oc 

36,3225 

0 

0006 

1 

EXTEND 

0110 

REF 

1 

36,3226 

3 

2056 

0 

DC  A 

ACADN85 

01 1 1 

REF 

5 

LAST 

741 

36,3227 

53 

'253 

0 

DXCH 

AVEGEXI T 

0112 

REF 

1 

36,3230 

3 

3760 

0 

CAP 

V16N40 

0113 

REF 

205 

LAST 

754 

36,3231 

0 

‘ o 1 6 

1 

TC 

BANKCALL 

0114 

REF 

4 

LAST 

725 

36, 3232 

206  3 5 

0 

CADR 

GOF  LAS  HR 

0115 

D EF 

1 

36 , 323  3 

0 

32  5 6 

0 

TC 

TEPM40 

0116 

R EF 

2 

LAST 

741 

36,3234 

1 

32  4 1 

1 

TC  F 

T IGNOW 

0117 

REF 

3 

LAST 

746 

36,3235 

0 

3223 

1 

TC 

POSTBURN 

CLEAR  3AXISFI G — R60  WILL  USE  VFCPOINT. 


DO  ATTITUDE  MANEUVER  ROUTINE 
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0124  36, 

0125  REF  2 LAST  736  36, 

0126  REF  2 04  L A CT  75'  36, 

0127  P.EF  1 36, 

0128  REF  2 LAST  754  36, 

0129  REF  3 LAST  755  36, 

0130  36, 

01305  r-  FF  1 36, 


1 

1 

1 

RELINT 

CAF 

TC 

V 1 ft  N 0 5 B 
BANKCAL  L 

u 

C A DP 

REFLASHP 

0 

TC 

TERM40 

1 

TC  F 

TERM40 

0 

TC 

— 5 

1 

TC  F 

R40PHS1 

0118  REF  45  LAST  753  36,3236 

0119  36,3237 

0120  f t F 121  LAST  747  36,3240 

0121  36, 32''  1 

01211  R FF  2 Q LAST  754  36,3242 

01212  REF  4 LAST  519  36,3243 

0122  PFF  29  LAST  755  36,3244 

? 3 KEF  3 LAST  5 19  36,3245 

324  6 
326  7 
3 25  0 
32  r 1 
32  5 2 
3 25  3 

3254 

3255 


0 5353 

1 

P40PHS1 

TC 

P HA SC HUG 

0001 

1 5155 

1 

1 

OCT 

TO  t 

C0014 
END1.  F JOB 

1 C r 

0 CC64 
0 4674 

0 

0 

TIGNOW 

INHINT 

TC 

IBNKCAl  L 

40  1 c 3 

1 

CAPR 

ZATTf 

0 4674 

0 

TC 

IBNKCAL  L 

40140 

0 

C APR 

S El  MI  NOB 

0 0003 
3 3761 
0 '‘6  16 
2 04  62 

0 3256 

1 3256 

0 3247 

1 3235 


0131 

36,3256 

0 C 006 

1 TERM40 

EXTEND 

0132 

REF 

1 

36,3257 

3 2106 

1 

CCA 

SERVCADR 

1 

0133 

R E F 

6 

LAST 

754 

36 , 3260 

53*253 

0 

CXCH 

AVEGEX  I.  T 

013' 

REF 

138 

LAST 

746 

36 , 3261 

3 4755 

1 

CAF 

ZERO 

1 

REF 

8 

LAST 

7 56 

3 ',3262 

55*46? 

1 

TS 

t&kmkcnt 

0136 

REF 

20 

LAST 

7 5ft- 

36,3263 

3 000  5 

1 

CA 

Z 

0137 

REF 

20 

LAST 

754 

36,3264 

55 ' 1 63 

0 

TS 

OISPDEX 

0138 

36,3265 

0 0004 

0 

INHINT 

013  9 

OFF 

30 

LAST 

75S 

36, 3266 

0 4674 

0 

TC 

1 8NKCALI 

0140 

REF 

6 

1 AST 

519 

36,3267 

4012  3 

0 

CADR 

rfstordb 

014  1 

36, 327C 

q r>f)()3 

1 

0 

1 F L T MT 

0142 

REF 

27 

LAST 

749 

36,3271 

0 6001 

TC 

GOTPPOOH 

ZERO  p ENDZVS  OUTERS 


0143 

REF 

21 

LAST 

0144 

c EF 

1 

0145 

REF 

1 

0146 

r-EF 

22 

LAST 

755 

E 7, 1455 

36.3272  3 3134  1 P41LM 

36.3273  55*455  0 


E B A M K = WHICH 
COUNT*  { $ / P 4 1 
CAF  P4l ACRES 

TS  WHICH 


INITIALIZATION  FOR  8URNBABY 


0147 

0148 


REF  207 
REF  6 


LAST  755 
LAST  763 


36 ,3274 
36,3273 


0 4616  1 
11254  1 


TC  BANKCALL 

CAP  A R 02  BOTH 


0149 

REF 

105 

LAST 

754 

36,3276 

0 6 037 

0 

TC 

IMTP -ET 

BOTH  LM 

0150 

36,3277 

71214 

0 

BON 

OLOAO 

IF  NJETSFLAG 

IS  SET,  LOAD  2 

JET  F 

0151 

REF 

1 

36,3300 

00700 

0 

NJETSFLG 

0152 

REF 

1 

36,3301 

75305 

0 

P41FJET1 

0153 

REF 

1 

36 , 330  2 

340  15 

1 

FRCS4 

IF  NJETSFLAG 

IS  CLEAR,  LOAD 

4 J ET  F 

0154 

REF 

3 

LAST 

754 

36, 3303 

37735 

1 

P41FJET  SIC ALL 

F 

0155 

REF 

1 

36, 3304 

75310 

1 

°4 1 1 N 

0156 


36,3305  77745 


P41FJET1  DLGAD 


GAP:  ASSEMBLE  REVISION  001  Of  AGC  PROGRAM  AP11R0PE  BY  EYLES 


L 

0157 

01  5 P 

PRO- 

REF 

REF 

.047 

1 

4 

LAST 

755 

36 . 3306 

36.3307 

34  017 
03735 

0 

0 

STORE 

FRCS? 

F 

0159 

36 ,3310 

77624 

1 

P 4 1 1 N 

CALL 

0160 

REF 

2 

1 AST 

754 

36 , 331 1 

66  246 

1 

S40.1 

0164 

36, 3312 

77624 

1 

P4 1 N0D M 

CALL 

0165 

REF 

2 

LAST 

7 54 

36,3313 

56413 

1 

S40.2  ,3 

0166 

36,3314 

77776 

1 

EXIT 

0169 

36,3315 

0 0006 

0 

INHINT 

0170 

REF 

31 

LAST 

755 

36 , 33  1 6 

0 4674 

0 

TC 

IBNKCAL I 

0171 

RFF 

6 

LAST 

753 

36 , 3317 

40153 

1 

C ADP 

Z ATT  ES  OP 

017? 

REF 

32 

LAST 

756 

36 , 3320 

0 4674 

0 

TC 

I BNK  CALL 

0173 

REF 

4 

LAST 

755 

36,332  1 

40140 

0 

C ADR 

SETMINDB 

0174 

REF 

2 

LAST 

754 

30,3322 

0 3213 

1 

TC 

P40SXT4 

0175 

REF 

106 

LAST 

755 

3,3323 

0 6037 

0 

TC 

INTPRET 

0176 

36,3326 

45175 

0 

VLOAD 

CALL 

0177 

REF 

3 

LAST 

194 

36,3325 

03701 

1 

VGTIG 

0178 

REF 

1 

36, 3326 

57267 

0 

S41. 1 

0179 

REF 

6 

LAST 

31  6 

36,3327 

03502 

0 

STORE 

vgbcoy 

0180 

36,3330 

77776 

1 

EXIT 

0181 

REF 

3 

LAST 

755 

36,3331 

3 3761 

1 

CAE 

V16NP5B 

0182 

REF 

208 

LAST 

755 

36,3332 

0 4616 

1 

TC 

BANKCALL 

0133 

REF 

1 

36,3333 

20446 

0 

CADR 

GODSPRET 

01931 

REF 

6 

LAST 

703 

36,3334 

3 5C17 

1 

CAF 

PR  105 

01832 

REF 

21 

LAST 

755 

36,3335 

5 5 ' 1 6 3 

0 

TS 

DTSPDEX 

01833 

REE 

31 

LAST 

747 

36, 3336 

0 5105 

0 

TC 

F INDVAC 

01834 

REF 

3 

LAST 

243 

E 7 , 1700 

EBANK= 

VGPREV 

01835 

REF 

1 

36,3337 

033  61 

0 

2CADR 

DYNND1 SF 

0183  5 

REF 

1 

36 , 3340 

74067 

0 

01836 

TEF 

7 

LAST 

7 44 

36,334  1 

0 5327 

1 

TC 

2PHSCHNG 

0186 

36,3342 

00076 

0 

OCT 

00076 

0135 

36,3343 

06Q24 

0 

OC.T 

04024 

R 0 1 86 

3jc  ^ 

0187 

5 EF 

1 

36,3344 

1 2135 

0. 

TCP 

8*RNB*B* 

A 01 87 1 

-f  % * # * * * # ❖ *■  ❖ $ * £ * # £ * 

01872 

REF 

13 

LAST 

744 

36, 3345 

3 

6777 

1 

BLNKWAI T 

CAF 

1 SEC 

01873 

REF 

209 

LAST 

756 

36 , 3346 

0 

4616 

1 

TC 

BANKCALL 

01874 

P EF 

14 

LAST 

718 

36,  336  7 

01735 

1 

C AD; 

DELAY  JOB 

01875 

RFF 

22 

LAST 

7 5 6 

36, 3350 

3 

1163 

1 

RE DC 6. 7 

CA 

DISPDEX 

01876 

REF 

43 

LAST 

746 

36,3351 

6 

4752 

0 

AD 

TWO 
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BOTH 

CALCULATE  PP.EFERPED  I MU  ORIENTATION  AND 
SET  PFRATFLG. 


1 ER  0 ATTITUDE  errors 
SET  0.3  DEGREE  DEADBAND 


TRANSF  I 1 VFt  C I T Y-TQ — B E— G A 1 NED  AT  TIG 
FROM  REFERENCE  COORDINATES  TO  L M BODY- 
AXIS  COORDINATES  FOR  V16N85  DISPLAY. 
(SCALED  AT  2 (+7)  METERS/CENTI SECOND) 


F n \ SAFETY  ONLY 


GROUP  6 RESTARTS  AT  PED06.7 
GROUP  A RESTARTS  HERE 


ON  A RESTART,  DO  NOT  PUT  UP  DISPLAY  IF 
BLANKING  (BETWEEN  TIG-35  AND  TIG-30) 


GAP:  ASSEMBLE  E VIS  1 3'.  GC1  Of  A6C  PROGRAM  AP11RGPE  BY  EYLES 


L P4Q-P47 


018801  36, 

018802  REF  1 36, 

018803  REF  LAST  786  36, 

018804  REF  210  LAST  756  3c , 

0188  05  REF  2 LAST  7**  36, 

018806  REF  7 LAST  756  36, 

01 88 07  REF  12  LAST  706  36, 


3352 
335  3 

0 C006 

1 3345 

1 

1 

EXTEND 

BZF 

3354 

3 3761 

I 

CAF 

3355 

0 46  1 6 

1 

TC 

33  5 6 

2 0A46 

0 

CAD" 

3357 

3 5017 

1 

CAF 

33 6 C , 

0 5146 

1 

TC 

018808 
018809 
0188  1 
018811 
C188  12 
018813 
0138 14 
013815 
018816 
018817 
01881b 
018819 
018  P 2 


0139 

0190 

0191 

0192 
01Q3 

0194 

0195 

0196 

0197 

0198 

0199 

0200 

0201 

02012 


02014 

0202 

0203 

020' 

0205 

0208 

0209 


REF 

23 

LAST 

7 56 

36,  33  6 1 

3 5 ,3362 

36.3363 

36 . 3364 

36.3365 

36.3366 

36.3367 

3 i.  . -3-2-7  r. 

3 1163 
r ) pn06 

REF 

REF 

REF 
REF 
p F F 

122 

107 

4 

2 

7 

LAST 

LAST 

LAST 

LAST 

1 ACT 

755 

756 

7*6 

756 

■ 5 1 ■ : 
0 6037 
4517  5 
0 3701 
572  67 

n -2  c rv  -> 

f 

LA'  T 

r ” o 

D O f D D l ■ ■ 

D s 'J  C 

36,3371 

77776 

REF 

14 

LAST 

756 

36 , 3372 

3 4777 

REF 

211 

LAST 

757 

36,3373 

0 46  ifc 

REF 

1 5 

LAST 

756 

36 , 3374 

f 1735 

REF 

2 

LAST 

756 

36,3375 

1 3361 

REF 

108 

LAST 

757 

36, 3376 

0 6037 

36,3377 

77624 

REF 

1 

36,3400 

7 * :•  1 1 

36,3401 

45  175 

p E F 

5 

LAST 

757 

36,3402 

03701 

REF 

3 

LAST 

757 

36,3403 

57267 

REF 

8 

LAST 

757 

36 ,3'404 

03502 

77  7 76. 

lift  O 

REF 

42 

LAST 

741 

36 , 3406 

0 4635 

REF 

3 

LAST 

732 

36,3407 

6 5770 

REF 

1 

REF 

23 

LAST 

755 

E7 , 1455 

F FF 

4 6 

L A S T 

755 

36,3410 

0 r 3 63 

36 ,34 1 1 

O'  024 

REF 

I 

36,3412 

3 3135 

REF 

24 

LAST 

757 

36,3413 

55*455 

R FF 

15 

LAST 

753 

36 , 34 14 

3 0106 

r<  f f 

1 0 

I AST 

7 5 3 

36,3415 

7 473  7 

REF 

2 2 7 

LAST 

793 

'6,3'  16 

10  000 

REF 

2 

LAST 

753 

36 , 3417 

0 3121 

REF 

2 12 

LAST 

757 

36,3420 

0 46  16 

L 

1 

0 

0 

u 

1 

0 

0 

1 

1 

1 

1 

1 


0 

1 

0 

0 

1 

0 

0 

1 

0 

1 


1 

0 

0 

0 

1 

1 

0 

0 

1 


dymmdisp  ca 

EXTEND 

BZMF 

TC 

VLUAO 


STORE 

EXIT 

CAF 

TC 

CADR 
TC  F 


CALCN85  TC 

CALL 

V LOAD 


STORE 

EXiT 

TC 

CAD 

COUNT* 

E8ANK= 

P42LM  TC 
OCT 

CAF 

TS 

CS 

MASK 

CCS 

TC 

P42STAGE  TC 


BLNKWAJT 

V16N85B 
BANkCALL 
GO!)SP>-  FT 

PR  105 
PP.IQCHNG 

oispdex 

ENOOFJOB 
INTPRET 
CALI 
VGPR EV 
S41 . 1 
VGBO DY 

1 S EC 

BANKCALL 

DELAYJOB 

DYNMDISP 


INTPRET 

UPOATEVG 
CALI 
VGPPEV 
S41. 1 
VGBODY 

PCSTJUMP 

SERVEXIT 

$ $/ P42 
WHICH 

PFASCHNG 

04024 

P42 ADRES 
WHI  CH 

FLGWRD1C 

APSFLQIT 

A 

P40ALM 

BANKCALL 
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A NON-POSITIVE  DISPOEX  INDICATES  PAST 
TJG-35,  SO  SFPVTCEr-  WILL  BE  DOTNG  THE 
UPDATING  OF  NOUN  85.  STOP  DYNMDISP. 


INITIALIZATION  FOP  BUPNBABY 


GAP:  ASSEMBLE  REVISITS  0C1  OF  AGC  PROGRAM  AP11ROPE  BY  LYLES 


L 

P40- 

•P  47 

0210 

REF 

7 

LAST 

755 

36 , 342  1 

11254 

1 

CADR 

R02  BOTH 

02101 

R FF 

1 

36,3422 

3 6000 

1 

CAF 

THRESH2 

02102 

REF 

3 

LAST 

753 

36,3423 

:f  5 ' 2 p 1 

1 

TS 

D VTH:^  USH 

02103 

REF 

12 

LAST 

753 

36,3424 

3 4751 

0 

CAF 

FOUR 

02104 

REF 

29 

l AST 

75  3 

36,3425 

55 '515 

0 

TS 

DVC1  TR 

0211 

REF 

109 

LAST 

757 

3b  ,3426 

0 6037 

0 

TC 

INTPRFT 

0212 

36,3427 

77214 

0 

SET 

VLOAD 

0213 

REF 

. 6 

LAST 

730 

36,3430 

C1C72 

0 

AVFLAG 

0214 

REF 

1 

36,3431 

34007 

1 

FAPS 

0215 

REF 

5 

LAST 

756 

36 ,3432 

03735 

0 

store 

F 

0216 

3 6 , 34  3 3 

52135 

1 

SLOAD 

GOTO 

02162 

REF 

1 

36,3434 

26001 

1 

APSVFX 

02164 

REF 

1 

36 , 3435 

75200 

1 

P40IN 

0217 

REF 

25 

LAST 

757 

E7 , 1455 

FBANK= 

WHICH 

021° 

REF 

1 

COUNT* 

$$/P67 

0219 

REF 

2 13 

LAST 

757 

36,3436 

0 4 616 

1 

P47L  I 

TC 

BANKCAL t 

0220 

REF 

8 

LAST 

758 

36,3437 

11254 

1 

CADR 

R02B0TH 

0221 

REF 

11  ■ 

LAST 

758 

36,3440 

0 6037 

Q 

TC 

I NT  PF  ET 

0222 

36, 344  1 

77  6 24 

1 

CALEB 

0223 

REF 

1 

3 f ,344  2 

27553 

1 

MIDTOAV2 

0224 

REF 

289 

LAST 

744 

36,3443 

3 0155 

0 

CA 

MP AC  +1 

0225 

REF 

17 

LAST 

747 

36 , 3444 

0 5173 

1 

TC 

TWIDDLE 

0226 

REF 

1 

36,3445 

03447 

0 

ADR  ES 

S T AR  T P47 

02261 

REF 

123 

1 AST 

757 

36,3446 

1 5155 

1 

TCF 

E IDl  FJ 

0227 

REF 

47 

LAST 

757 

36,3447 

0 5353 

1 

STAPTP4  7 

TC 

PHASCHNG 

02391 

36,3450 

05014 

1 

OCT 

05014 

02392 

36, 3451 

77777 

0 

OCT 

77777 

0239  3 

36,3452 

0 6 0 06 

1 

EXTEND 

0240 

p*EF 

1 

36, 3453 

3 3764 

1 

DC  A 

ACADN'J3 

0241 

REF 

7 

LAST 

755 

36,3454 

53 ' 2 53 

0 

DXCH 

AVEGEXIT 

0242 

PEF 

5 

LAST 

73  7 

36,3455 

3 z 73  6 

1 

CAF 

PRI 020 

026  3 

REF 

32 

LAST 

756 

36,3456 

0 5105 

0 

TC 

F I I.DVAC 

0244 

REF 

4 

LAST 

316 

E7 » 162.2 

EB AMK= 

DEL  V I MU 

0245 

R E F 

1 

36,3457 

03513 

0 

2 CADR 

0 4 7 R 0 D Y 

0245 

OFF 

1 

36 , 36-6  0 

76067 

0 

0246 

REF 

2 

LAST 

241 

3 6,346  1 

1 2342 

1 

TCF 

RED04.2 

A 0247 

024  6 

REF 

1 1 1 

LAST 

758 

36,3462 

0 4 03  7 

0 

CAL CN83 

TC 

I NIP WET 

024c 

36 , 366 3 

53375 

0 

VLOAD 

VAD 

02  50 

R FF 

1 

36 , 3464 

03502 

0 

DEL  VCTL 

0251 

REF 

2 

EAST 

147 

36,3465 

03527 

1 

DELVREF 

0252 

REF 

13 

LAST 

7 27 

36 , 3466 

03656 

1 

STORE 

DELVSIN 
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INITIALIZE  DVMQN 


LOAD  FAPS  , MDOTAPS,  AND  ATDECAY  INTO 
F,  MOOT,  AND  T DECAY  BY  VECTOR  LOAD. 


CHECKS  PHASE  5 AMD  GOES  TO  PREREAD 
SEE  TIG-30  IN  BURN BABY. 


TEMP  STOP  AGF  FOR  RESTARTS 


GAP 


ASSEMBLE  R F V I S I C N 001  Of  AGO  PROGRAM  AP11R0PE  BY  LYLES 


P40 

-P  47 

0253 

0254 

REF 

4 

LAST 

757 

0255 

j rr. 

— 

LAST 

7 58 

■ x tr 

> 

0256 

02561 

02562 

REF 

48 

LAST 

7 58 

02563 

02564 

R FF 

112 

LAST 

758 

REF 

14 

LAST 

758 

02565 

0256  6 

n E F 

2 

LAST 

75  8 

025  67 


0257  REF  43  LAST  757 

02 S 3 REF  4 LAST  757 

0?r'c  REF  1 

0260  REF  214  LAST  750 

0261  REF  5 LAST  754 

0262  REF  28  LAST  755 

0263  REF  23  LAST  7 53 

02631  REF  2 LAST  758 


02632  REF  2 LAST  755 


0264  REF  113  LAST  759 

026  c 

0266  FF  5 LAST  721 


0268 

0269 

0270 

REF 

REF 

3 

1 

LAST 

759 

0271 

t [■ 

5 

L AST 

749  TO 

027  2 

REF 

7 

L AST 

747 

0272  1 

REF 

1 

0273 

REF 

1« 

LAST 

758 

0274 

REF 

2 

LAST 

241 

0275 

F EF 

65 

LAST 

7 54 

0276 

r-'  EF 

3 

< AST 

740 

0277 

REF 

66 

1 AST 

759 

0278 

REF 

4 

LAST 

746 

0279 

REF 

67 

LAST 

759 

0280 

REF 

1 

028  1 

02  82 

R EF 

49 

LAST 

7 59 

0283 

0284 

REF 

13 

LAST 

744 

77624  1 CALL 

57267  0 

03623  0 STORE 

77776  1 EXIT 

0 5353  1 TC 

10035  0 OCT 

0 6037  0 TC 

77  7 75  1 V L 0 A D 

03656  1 

03502  0 STORE 

77776  1 EXIT 


0 4635  0 TC 

65770  1 C ADR 


3 3762  1 P47B0D  CAF 

0 4616  1 TC 

20635  0 CADR 


1 1 

) 6001 

0 

0 

TC 

TC 

3 8 13 

1 

TC  F 

3236 

1 

TC  F 

; 6 037 

0 

P47BPDY  TC 

77  775 

1 

VLUAD 

06  5 22 
03623 

1 

0 

STORE 

03 50 2 0 STORE 

77776  1 EXIT 

0 3504  0 TC 


12  615*  COUNT  * 


3 1517 

0 

I M PL BURN  CA 

0 3735 

0 

TC 

0 5173 

1 

TC 

03542 

l 

ACRES 

0 5516 

0 

TC 

00153 

0 

ADt  ES 

0 1 

n 

TC 

00154 

1 

ADRES 

0 5516 

0 

TC 

00044 

1 

AD.”  ES 

0 5353 

1 

TC 

40114 

1 

OCT 

0 5221 

0 

TC 

00062 

0 

DEC 

36,3467 

36,3470 

3 6 , 347  1 

36,3472 

36,3473 

36,3' 74 

36,3475 

36,3476 

36,3477 

36, 3500 

36,3501 

36,3502 

36,3503 

36,3504 

36,3505 

36,3506 

36,3507 

36, 3510 

36 ,3511 

36,3512 

36, 3513 

; 6,351* 

36 , 3515 

36,3516 

36,3517 

36,3520 

36,352  1 

750  : 

34,3522 

36 ,3523 

36,3524 

36 , 3525 

36,3  5 2 6 

36,3527 

36,3530 

36 ,353  1 

36,3532 

36,3533 

36 ,3534 

36,353 5 

36,3536 

36,3537 
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NO. 

0 

E7  S3 

S41  . 1 
DELV I MU 

PHASCHHG 

1 003 c RFGEADAC  ANO  HERE 

I NT PRET 

DEL  VS  IN 
OELVCTL 


POSTJUMP 

SERVEXI1 


VI'-  3 3 
B ANKCAt L 
GOFLASHR 
GOTO  POOH 
G CTO POOH 

P47B0DY 

P40PHS1 

I FTP  'ET 

H 16  ZEROS 
DEL V I MU 
DELVCTL 


P47B0D 


$i/P40 
T GO  +1 
GETDT 
TWI  DDI..E 
ENGOFTSK 

DOWNFLAG  TURN  OFF 

IGNFL AG 
DOWNFLAG 
AST NFL  AG 
DOWNFLAG 
I MPULSW 
PHASCHNG 
401  L4 


IGFFL  AG 


( ENG  IN  OFF ) 


TORN  OFF  ASTNFLG 
TURN  OFF  IMPULSW 
RESTART  PROTECT  ENGOFT sk 


FIXDELAY  WAIT  HALF  A SECOND 

50 


759 
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0285 

REF 

3 

LAST 

746 

36 , 3540 

0 2653 

0 

TC 

NCULL AGE 

n?  R A 

R p £ 

An 

1 A<;T 

7 4.4. 

A . A n A 1 

1 

1 

T C 

taQri  , \i  c r. 

\JC  Li  Kj 

\ g r 

.7  v 

L 8 J 1 

1 *T*T 

' • 1 ->  J *T  L 

W 34U  1 

1 

1 FA  J t\  1 V L ’ 

02  K 7 

REF 

33 

LAST 

756 

36, 3542 

0 4674 

0 

ENGOFTSK 

TC 

IBNKCALL 

0288 

REF 

1 

36 , 3543 

75545 

l 

C AD° 

FNGTNPFF 

028° 

REF 

51 

LAST 

760 

36 ,3544 

0 5261 

1 

TC 

TASKOVER 

029  0 

REF 

3 

LAST 

74  6 

36, 3545 

3 4644 

0 

EN GIN OFF 

CAF 

PRI 012 

0291 

REF 

33 

LAST 

758 

36,3546 

0 5105 

0 

TC 

F I MOV AC 

0292 

REF 

6 

LAST 

755 

E7, 146  2 

EBAMK= 

TRKMKCNT 

0293 

REF 

4 

LAST 

754 

36,3547 

03223 

1 

2C  ADR 

POSTBURN 

0293 

36,3550 

7 4067 

0 

0294 

REF 

37 

LAST 

747 

36,3551 

3 4753 

1 

E NGi NQF  2 

CAF 

Bill 

0295 

REE 

34 

l AST 

73° 

36,3552 

0 52  03 

0 

TC 

WAITLIST 

0296 

R EF 

4 

LAST 

732 

E6 , 142  ? 

EBANK  = 

□MEG AQ 

02°  7 

9 ef 

3 f.  f 3 5 c,  3 

03606 

2CADR 

C r A 9T S FT 

V,  rn  J i J L 

0297 

REF 

1 

36, 3554 

74066 

1 

0298 

REF 

14 

L AST 

747 

36,3555 

4 0103 

1 

ENGIN0F1 

CS 

FLAGWPD7 

0299 

REF 

1 

36,3556 

7 4745 

1 

MASK 

IDLEFBIT 

0300 

REF 

18 

LAST 

760 

36,3557 

26  103 

1 

ADS 

FLAGWRD7 

0301 

REF 

LAST 

76  0 

36,3560 

0 2653 

0 

TC 

NOUt L AGE 

0302 

36,3561 

0 0006 

1 

ENGIN0F4 

EXTEND 

0303 

REF 

22 

LAST 

745 

36,3562 

3 002  5 

0 

DC  A 

T 1ME2 

030*- 

REF 

5 

LAST 

73B 

36, 3563 

53' 345 

0 

DXCH 

T EVENT 

0305 

PFF 

4 

LAST 

73  8 

36,  354*- 

4 *-745 

1 

ENGIMQF3 

CS 

ENGONBI T 

03051 

REF 

22 

LAST 

739 

36,3565 

7 C-1 01 

0 

MASK 

FLAGWRD5 

0305  2 

REF 

23 

LAST 

760 

36,3566 

d4  1C1 

0 

TS 

FLAGWRD5 

0305  3 

REF 

7 

LAST 

738 

36,3567 

4 4355 

1 

CS 

PR  1030 

0306 

36,3570 

0 CO 06 

1 

EXTEND 

0307 

REF 

24 

1 AST 

7 33 

36,3571 

02  011 

0 

RAND 

DSALMOUT 

0308 

REF 

6 

t AST 

788. 

36,957? 

6 47  3 6 

] 

AD 

PR  I n20 

0309 

36,3573 

0 0006 

1 

EXTEND 

0310 

REF 

25 

LAST 

760 

36,3574 

01  on 

0 

WRITE 

DSAIMOUT 

03 1 A 

KEF 

2 5 

LAST 

753 

36,3575 

4 0111 

1 

C5 

D A D BOO LI 

03  lr 

FEE 

1 

36’.,  3576 

7 473  6 

0 

MASK 

USEQI,  JTS 

031  6 

REF 

26 

LAST 

760 

’6,3577 

26  111 

1 

ADS 

DAPBOOL  S 

0317 

REF 

1 

36, 3600 

4 47  3 7 

1 

CS 

HIRTHROT 

03  19 

REF 

3 

LAST 

741 

36,360  1 

54  055 

0 

TS 

THRUST 

032  0 

REF 

30 

LAST 

74  1 

36,3602 

3 4750 

1 

CAF 

B I T 4 

0321 

36,3603 

0 0006 

1 

EXTEND 

0322 

REF 

9 

LAST 

741 

36,3604 

05  014 

1 

WPP. 

CHAN14 

0323 

REF 

3 

LAST 

612 

36,3605 

0 4707 

0 

TC 

ISWRETFN 

1” 
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TURN  OFF  ULl AGE 

THIS  CODING  ALLHWS  FNGINOFF  ET  Al  TO  3E 
USED  ROTH  BY  WAITLIST  AND  BY  TC  IBNKCALL 

MUST  BE  LOWER  PRIO  THAN  CLCCKJOB 


SET  THE  IDLE  BIT. 


INSURE  ENGQNFl G IS  CLEAR. 

ENGINCF3  IS  USED  AS  A PRE-ENGINE  ARM 
SUBROUTINE. 

TURN  OFF  the  ENGINE  - DPS  OR  APS 


TURN  OFF  TRIP  GIMBAL 


ZERO  AUTO-THFOTTLE  WHENEVER  THE  ENGINE 
IS  TURNED  OFF. 

THE  HARDWARE  DOES  SO  ONLY  WHEN  THE 
ENGINE  IS  DISARMED. 
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0324 
032  * 
0326 


REF 

34 

LAST 

760 

36 , 3606 

0 4674 

0 

COASTS FT  TC 

I BNKCALL 

REF 

4 

LAST 

747 

36 , 3607 

40204 

0 

C A0C 

ALLCOAST 

REF 

52 

LAST 

760 

36.3610 

0 5261 

1 

TC 

TASKOVER 

0327 

0328 
032° 

0330 

0331 
0331  1 

03312 

03313 

03314 

03315 

03316 

03317 

03318 


REF 

REF 

REF 

REF 

OFF 

REF 

REF 

REF 

REF 


5 LAST  760 

3 LAST  142 
1 

6 LAST  727 

4 LAST  761 
3 LAST  687 
1 


6 LAST 
1 


706 


F 6 , 142  2 

34.3611 

36.361 2 

36.3613 
36 , 36  L4 
36,3615 
3 6,36  16 
36,7617 
36,3620 
36,362  1 

36.3622 

36.3623 

36.3624 


4*020  1 
03665  1 
56447  0 
43014  0 
01307  1 
03665 
03705 


ebank= 

UPDATEVC-  STQ 


BON 


1 

0 

75633  0 
45345  1 
01235  1 
03763  0 
70025  0 


□ LOAD 


DSU 


033  1<" 

° EF 

1 

36,3625 

034  3 2 

1 

0332 

OFF 

1 

36,3626 

75656 

0 

0332  1 

36,3627 

43345 

1 

DLUAD 

03322 

DCF 

1 A <vT 

7/  1 

■2, A _ ‘in 

0 9 7/,9 

0 

r\  t r 

4 

L.  M o 1 

I L 

-J  O f D O J U 

' . f Oj 

03323 

PEF 

2 

LAST 

761 

36,3631 

034  32 

1 

0333 

7 EF 

1 

36,3632 

03765 

0 

STORE 

0336 

36,3633 

Z7776 

1 

1 80S  FT UP 

EXIT 

03361 

REF 

1 

36 , 3634 

10  755 

1 

CCS 

03362 

RFF 

1 

36 , 3635 

1 3663 

0 

TC  F 

0337 

REF 

4 ; 

LAST 

257 

3 6 , 3 5 36 

3 4737 

0 

CAF 

0338 

36,3637 

0 0004 

0 

l-  HINT 

033  r 

RFF 

34. 

LAST 

760  : 

36 ,3640 

0 5105 

0 

TC 

0340 

ref 

? 

LAST 

14  3 

FI,  1 7 ,)  A 

CO  Afv|V- 

C f 1 ' o 

n d a in  tv  — 

0341 

REF 

1 

36,3641 

02707 

0 

2C  ADR 

0341 

REF 

1 

36 , 364  2 

56067 

0 

0342 

REF 

8 

LAST 

756 

36 ,3643 

0 5327 

1 

TC 

0343 

3 6 , 3644 

00172 

0 

OCT 

0344 

36 , 3645 

10035 

0 

OCT 

0347 

REF 

114 

LAST 

759 

36 , 3646 

0 6037 

0 

ENDSTEEP. 

TC 

034701 

36, 3647 

77745 

1 

QLOAD 

034702 

REF 

2 

LAST 

761 

36,3650 

03765 

0 

034  7 1 

REF 

3 

LAST 

761 

36, 365  1 

27763 

0 

STOVL 

03472 

RFF 

7 

LAST 

717 

36,3652 

01221 

1 

03477 

REF 

9 

l AST 

60? 

36, 3653 

26323 

1 

STr'VL 

03474 

REF 

7 

LAST 

717 

36,3654 

01227 

1 

03475 

RFF 

3 

LAST 

692 

36,3655 

02331 

1 

STORE 

03476 

36, 3656 

45345 

1 

GE  TRAMS 

DLUAD 

034  77 

RFF 

9 

LAST 

675 

36,3657 

0 3 6 31 

0 

034  78 

REF 

7 

LAST 

761 

36,3660 

012  3 5 

1 

0348 

REF 

7 

1 AST 

689 

36 , 366  1 

37482 

0 

STCALL 

0349 

REF 

5 

LAST 

761 

36,3662 

03665 

1 

OMEGAQ 

CALI 

QTEMPl 

540 .8 
BLN 

XDELVFI  G 
QTEMPl 

NORMS W 
1 80SETUP 
DSU 

PIPT1ME 
T IGSAVE 
B M N 
TNEWA 
GETF  ANS 
DAD 

T IGSAVE 
TNEWA 
T IGSAVEP 

PHASE2 
NO. 9 
PRI01Q 

F INDVAC 
VG 

540. 9 

2 PHSCHNG 

00172 

10035 

INTPRET 

T IGSAVEP 
T IGSAVE 
RN 

PINIT 

VN 

VINIT 

DSU 

TP ASS 4 
PIPTIME 
DELLT4 
QTEMPl 
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DU  DAP  COASTING  INITIALIZATION 


X-PR0DUC7  steering 


LAMBERT  VTOGAIN 


2 . 17  S POT  FCR  S40. ° 

HERE  AND  EP  EA  OAC  AFT  E~  RESTART 
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L P 40—  PA? 


034°  1 

REF 

115 

LAST 

761 

36 , 3663 

0 6037 

0 

NO.  9 

TC 

INTPRET 

03492 

36,3664 

77650 

1 

GOTO 

03493 

REF 

o 

LAST 

761 

36,3665 

03665 

1 

Q TEMPI 

0350 

REF 

11c 

LAST 

762 

36,3666 

0 6037 

0 

STEER  ING 

TC 

INTPRET 

0351 

36,3667 

776  2Z 

1 

CALL 

035  2 

REF 

2 

LAST 

757 

36,3670 

7561  1 

0 

UPDATEVG 

0353 

36,3671 

77776 

1 

EXIT 

0354 

RTF 

30 

LAST 

758 

E7,  16  15 

E6ANK= 

DVCNTR 

035* 

36,3672 

0 0004 

0 

NSTFER 

INHINT 

03*6 

0 FF 

5 

! AST 

7 ' 0 

36,3673 

3 5016 

0 

CA 

EBANK7 

0357 

REF 

23 

LAST 

740 

36,3674 

54  0C3 

0 

TS 

E8ANK 

0359 

REF 

19 

LAST 

740 

36 , 3675 

4 0076 

1 

CS 

FLAGWRD2 

036C 

REF 

2 

LAST 

74C 

3 -■ , 3676 

7 4743 

1 

MASK 

I NPULBIT 

0361 

REF 

228 

LAST 

757 

36,3677 

10  000 

0 

CCS 

A 

AQ  C Q 

■7  A . -2  70  o 

1 27P.  S 

1 

TC  F 

+5 

U DO  / 

1 D t D 

1 

0363 

REF 

1 6 

LAST 

760 

36,3701 

4 0103 

1 

CS 

FLAGWPD7 

0364 

REF 

2 

LAST 

760 

36,3702 

7 4745 

1 

MASK 

IDLEFBIT 

036  5 

REF 

22  9 

LAST 

762 

36, 3703 

10  000 

0 

CCS 

A 

0366 

36, 3704 

1 3 707 

0 

TC  F 

+ 3 

0367 

REF 

44 

LAST 

7 59 

36,370 * 

0 463  5 

0 

TC. 

POST JUMP 

0368 

RFF 

5 

LAST 

7*9 

36,3706 

6 5770 

1 

CAOP 

SERVPXTT 

03681 

REF 

35 

LAST 

761 

36,3707 

0 4674 

0 

TC 

I BNKC ALL 

0368  2 

REF 

3 

LAST 

363 

36, 3710 

40165 

1 

CADR 

STOP RATE 

0369 

R EF 

63 

l AST 

759 

36,3711 

0 5516 

0 

TC 

DOWS. FLAG 

037° 

REF 

2 

LAST 

7 59 

36,3712 

00044 

1 

ADRES 

I MPUL  SW 

0371 

REF 

46 

LAST 

746 

36,3713 

0 *504 

0 

TC 

UPFLAG 

0372 

REF 

4 

LAST 

742 

36, 3714 

0 C 1 6 1 

1 

ADRES 

IDLEFLAG 

037? 

36, 371 r 

0 0004 

0 

INHINT 

0374 

36 , 3716 

0 0006 

1 

EXTEND 

0375 

REF 

35 

LAST 

744 

36 , 37 17 

3 1442 

1 

DC  A 

TIG 

0376 

REF 

290 

LAST 

758 

36,3720 

52  155 

1 

DXCH 

MPAC 

0377 

36, 3721 

0 00  06 

1 

EXTEND 

0378 

REF 

2 3 

LAST 

760 

36,3722 

4 00  2 8 

1 

DCS 

TIME2 

037? 

REF 

29  1 

LAST 

If- 2 

3 6 ,3723 

20  155 

1 

DAS 

MPAC 

0380 

P.  EF 

8 

LAST 

744 

36,3724 

0 7 2 57 

0 

TC 

TPAGPFE 

0381 

REF 

292 

LAST 

762 

36,3725 

30  155 

0 

CAE 

MPAC  +1 

0382 

P EF 

2 

LAST 

759 

3b, 3726 

0 373  5 

0 

TC 

GETDT 

0391 

REF 

19 

LAST 

7 59 

36 , 3727 

0 5173 

1 

TC 

TWIDDLE 

03°  2 

REF 

3 

l AST 

759 

36,3730 

03542 

1 

A DP  ES 

fngpftsk 

03°3 

?EF 

9 

LAST 

761 

3f  , 373  1 

0 *327 

1 

TC 

2 PHSCHNG 

0394 

36,3732 

40  L 14 

1 

OCT 

40114 

0395 

36,3733 

00035 

1 

OCT 

00035 
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CHECK  IMPULSE  SWITCH.  IT  IS  SET  FITHER 
BY  SAC .13  IF  T BURN <6  SECS  OR  BY  S40.8  IF 
STEERING  IS  ALMOST  DONE. 

T MPUL  SW  = 0 E X I T 

IMPULSW  = 1 WHY?  CHECK  IDLEFLAG 
( IDLEFLAG  = 0 — > DVMON  ON) 

DVMON  ON — >THRUST  ING — > IMPUL  SW  VIA  S°9.8 
DVMI  -1  OFF — > T MPlJL  SW  ON  VT  A S40.13 — >FXIT 


TURN  f F F I MPULSW 


TURN  OFF  DVMON 


ENGOFTSK  ( ENG  I NOFF ) 
SERVICER  — REP  EADAC 
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0396 

0397 

0398 

0399 
0^00 
0401 
040  2 
0903 
0404 
040  5 
0A06 


R0424 

042  5 

0426 

0427 
0427 
042  8 

042  9 

043  0 

0431 

0432 
043  7 
0438 
04  3° 
046  0 

0441 

0442 

0443 
046  3 

R 044  6 


P40— P47 


REF  124 


REF  2 3u 


REF  139 
RFF  84 
REF  107 
KEF  140 
REF  3 
REF  9 
PEF  193 
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LAST 

LAST 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


758 
7o  2 


755 
725 
751 
76  3 
759 
763 
7^1 


36,3734  1 5155  1 


36. 3735 

36.3736 

34 .3737 

36. 3740 

36.3741 

36.3742 

36.3743 

36 . 3744 

36.3745 
3 6 ,37 a 4 


10  000 
1 3 741 
1 374  1 
3 *>755 
6 4753 
56  001 
3 4755 
63*51? 
3 1517 
0 000  2 


GETDT 


TCF 

CCS 

TCF 

TCF 

CAF 

AD 

XCH 

CAF 

DXCH 

CA 

TC 


ENDOF JOB 
A 

+ 3 
+ 2 

ZEPP 

ONE 

L 

ZERO 
T GO 
TGO  +1 
0 


i|c  JjAc  pJp  3yL-^V  2 


|c  jjc  Jjc  £ ijc  3J: A:  sfa  jJx  # j}c  A ; 


# £ ##  jjcjjc*  * £ & * £ * * % # £ £ £ £ $$£$$$ 


REF 
D EF 


1 5 

2 


LAST 

LA5T 


757 

T 4 9 


36, 374? 

36.3750 

36.3751 

36.3752 

36.3753 

36.3754 

36.3755 

36,375a 

36,3757 
36,3760 
36,3760 
3 6 , 37  6 2 
477? 
3 6, 20  a c 


Of  0 00  1 
0273*  0 
GCOOO  1 
05670  0 
C COO  j 1 
10624  0 
00000  1 
00764  1 
05050  1 
04050  0 
04125  0 
04123  0 


SEC 15 DP 
S EC1  c 
SEC30DP 

S E €45  DP 
SEC65 
5SECDP 
5 SEC 
26SECS 
V16N40 
V16NS5B 
V 168  3 
S ECO  1 
AC ADHQ  5 


OCT  00000 

DEC  1 500 

2DEC  3000 


OCT 

DEC 

OCT 

DEC 

DEC 

VN 

VN 

VN 


REF  7 LAST  759  E7,16 22 

REF  1 36,3763  03462  1 

REF  1 36,3764  74067  0 

* 6 £ * $ * $*:{<*£={•'  ft#**#  ajt  sj:;}:**  * * >!:  >p  *= '■!*  * * 


E B A N K = 

ACADN83  2CADR 


GOGOL 
4 500 

000  CO 
POO 
2600 
1640 
1685 

1 683 
1SE0 

P41TABI E +2 

DEL V I MU 
CALCN83 


DON'T  SEPARATE 
DON'T  SFPAf-ATE 


DON'T  MOVE  FRO  1 JUST  BEFORE  SEC45 
DON'T  MOVE  FROM  JUS ! BEFORE  55EC 


2" 


I 

► 

► 

) 

} 

} 

> 

> 

► 

► 

► 

► 

I 

► 

I 

3' 
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) 
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USER'S  PAGE 

NO. 

13 

E7  S3 

P0445 

PROGRAM  DESCRIPTION  S40.1  DATE  15N0V66 

R 0446 

MOD  N02 

LOG  SECTION  P40-P47 

R0447 

MOD  BY  ZELDIN  AND  ADAPTEC  BY  TALA YOG 

R 044  3 

FUNCTIONAL  DESCRIPTION 

R 0449 

COMPUTE  INITIAL  THUJST  DITECTIONIUT)  AND  INITIAL  VALUE  OF  VG 

R 0450 

VECTO!  (VGT LG) . 

R 045  1 

CALL  ING  SEQUENCE 

R 045  2 

L 

CALL 

R0453 

L + l 

S 4 0 . 1 

R 0454 

NO!  PAL  EXIT  MODE 

R 045  3 

AT  i+2  he  CAILING  SEQUENCE  ( G IT!  L + 2) 

NORMAL  RE  TUI N 

OR 

R 045  4 

ERROR  RETURN  IF  NOSOFLAG  =1 

R Q457 

SUBROUTINES  CALLED 

R045  8 

LEMPREC 

R 0459 

INITVEL 

R 0460 

CALCS" AV 

R 046 1 

M I DG  I M 

R 046  2 

ALAI M OP 

ABORT  EXIT  MODE S 

R 0463 

L+2 

OF  CALLING  SEQUENCE ,UNSOLVABLE  CONIC  IF 

N0S0FLAG=1 

R 0464 

ERASABLE 

INITIALIZATION  REQUIRED 

R046  5 

v E I GH 1 /G  ANTICIPATED  VEHICLE  MASS, 

DP 

BloKGM 

P 0466 

XDELVFLG  l=DEl.T  A-V  LANEUVEf ,0=A IMPT  STEEL 

R 044  7 

F _HP Dr-  F ENGINE  USED 

R 0460 

TF 

DELTA-v  '■  A f fuv- 

R 046  9 

DELVSIN  SPECIFIED  DELTA-V  REQUIRED  IN 

R 0470 

INERTIAL  COORDS.  OF  ACTIVE  VEHICLF 

R 047  1 

AT  TIME  OF  IGNITION 

VECTUi 

B7M/CS 

R 047 2 

DEL VS  AB  MAG.  OF  DELVSIN 

OP 

B7M/CS 

R 047  3 

RTIG  POSITION  AT  TIME  OF  IGNITION 

V E C T 0 r 

B2°M 

R0474 

VTIG  VELOCITY  AT  TI  E-  OF  IGNITION 

VECTOR 

B7M/CS 

R 047  5 

IF 

AIMPf  STEER 

R 047  6 

TIG  TIME  OF  IGNITION 

DP 

B28CS 

R 0477 

RTAk.g  position  target  time 

VECTOR 

B29M 

PQ478 

CSTSEP  C FOP  STEEP  LAW 

DP 

02 

R 0479 

DLTARG  TARGET  T T : U-  - 1 ON  f T ID  ;■ : TIME 

DP 

B2  8CS 

R 04R0 

OUTPUT 

R 048  1 

UT 

DESIRED  THRUST  DIRECTION 

VECT. 

B2M/ ( CS . CS ) 

P 048  2 

VGT 

IG  INITIAL  VALUE  OF  VELOCITY 

R 0483 

TO  BE  GAINEU  (INERT.  fiDCRO. ) 

VECTOR 

B7M/CS 

P 04R4 

DEL 

VL VC  VGT I G IN  LHC.  VERT.  COORDS. 

B7M/CS 

R 048  5 

BUT  V REQUIRE..)  AT  TIG  -V  REQUIRED  AT 

( T I G- 

2 SEC  ) 

P 0486 

-GDT  FOf  S 40 .13 

VECT  B7M/CS 

R 040  7 

RTI 

G CALC  IN  S40.1B( AIMPT)  FOR  S40 

.2,3 

VECTOR 

B29M 

R 043  8 

POSITION  AT  TIME  OF  IGNITION 

R 0489 

DEB!  IS 

Q TEMPI 

R 0490 

MPA 

C,QP0 ET 

R 04<>1 

PUS 

HL  1ST 

049  2 

1 4 , p 3 4 7 

BANK 

14 

049  3 

REF  4 

LAST  750  27,2000 

SETLOC  P40S1 

0494 

27,2246 

BANK 

..I 


..Z 


.£ 


) 


I 


GAP:  ASSEMBLE-  REVISION  001  OF  AGO  PROGRAM  API  1R0PE  BY  EYLFS 

L P40—P47 


049  A 

0496 

0497 
049  8 
049  81 
0490 

0500 

0501 

0502 

0503 
050^ 
0508 

0506 

0507 

0508 

0509 

0510 

0511 

0512 

0513 

0514 
05  1 c 

0516 

0517 

0518 

04  1 
0520 
C52  1 

0522 

0523 

0524 

0525 

0526 

0527 
052  0 

0529 

0530 

0531 

0532 

0533 

0534 

0535 

0536 

0537 

05  3 3 

0539 

0540 

0541 

0542 


REF 

1 

REF 

3 

LAST 

6 1 7 

REF 

36 

LAST 

762 

REF 

4 

LAST 

76  1 

REF 

REF 

7 

1 

LAST 

761 

Kef 

?;•  c 

6 

0 

LAST 

1 AST 

652 

7 .4,  I 

AT  1 

REF 

8 

L H J 1 

LAST 

1^-1 

653 

KEF 

3 

LAST 

144 

REF 

9 

LAST 

765 

REF 

10 

LAST 

761 

REF 

REF 
r,»  c c 

1 

A 

1 

6 

LAST 

645 

REF 

LAST 

758 

REF 

15 

LAST 

7 59 

REF 

4 

LAST 

765 

REF 

5 

LAST 

765 

REF 

16 

LAST 

765 

REF 

6 

LAST 

7‘65 

fi  FF 

A 

LAST 

7 A A 

R EF 

5 

LAST 

76  5 

27.2246 

27. 2247 

27.2250 

27.2251 

27. 2252 

27.2253 

27.2254 

27.2255 

27.2256 

27. 2257 

27. 2269 

27.2261 

27. 2262 

27.2263 

27.2264 

27.2265 

27.2266 

27.2267 

27.2270 

27.2271 

27. 2272 

27.2273 

27.2274 

27.2275 

27.2276 

27.2277 
27,2300 


71220  1 
0 3 63  2 0 
03442  0 
03763  0 
77614  1 
01347  0 
56336  1 
77201  1 

00001  c 

03650  1 
02331  1 
53435  0 
03642  1 
27673  0 
03642  1 
02323  1 
65236  0 
00045  0 
56205  0 
16412  1 
41205  0 
03664  0 
01245  0 
77671  1 
03735  0 
240 1 7 1 
03&56  1 


COUNT 

S40.1  STQ 


STORE 

DFLVTEST  BOFF 

CALCTHET  SETPU 

STORE 
VX  V 

STOVL 

STUPE 

vsi 

DM  P 
DMP 

DDV 

STOVL 


27.2301  74241  0 DOT 

27.2302  03673  0 

27.2303  03673  0 

27.2304  41552  0 VSL2 

27.2305  65245  1 BVSU 

27.2306  9345,  ! 

27.2307  00017  1 

27.2310  63356  1 SIN 

27.2311  00007  0 

27. 2312  53435  0 VXV 

27.2313  03673  0 

27.2314  45561  1 VXSC 

27.2315  50076  0 ST  VL 

27.2316  65256  0 UNIT 

27.2317  00017  1 

27,2320  74346  0 COS 

2 7,2321  74255  0 VAD 

27,212 2 03701  1 

27.2323  00045  0 

27.2324  53352  0 VSL2 

27.2325  77626  0 STADR 


I 


< 


$ $ / S40,  1 
DLCAD 
QTEMP 
TIG 

TIGSAVE 

XDEI  VF  I.  G 
S40. IB 

V LOAD 
0 

VTIG 

V IN  1 T 
UNIT 
PTIG 
UT 

RTIG 
R I N I T 
PDDl 
360 
DDV 

i BETACfiN 
DMP 

DELVSAB 
WEIGHT /G 

F 

14D 

DEL  VS  IN 

{ 


( 

(DELTAV.UP  )UP  SCALED  AT  2(+7)  P.D.L.  0 
DELTA  VP  SCALED  AT  2(+7)  P.D.L.  6 

I 


I 


I 

UN1T( VPXUP)SIN(THETAT/2)  IN  VGTIG. 

UNIT ( DELTA  VP ) IN  P.D.L.  6 

I 


VXSC 

UT 

UT 

PUSH 

POOL 

DEL V S I M 

I4D 

PDVL 

6D 

UNI  T 
UT 

ST  ADr 

VGTIG 

PDDL 

14D 

VXSC 

VXSC 

VGTIG 

3 6D 

VAD 


3: 15  DEC.  2,16  70  FLY 
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.132  PAGE  765 
E7  S3 


UP  IN  UT 


GAP:  ASSEMBLE  RlVISI IN  001  ‘F  AGC  PROGRAM  APHROPE  BY  L YLES 


840- 

P47 

0543 

REF 

6 

LAST 

765 

27, 23? 6 

74076 

0 

STORE 

0 7 .07  0 7 

1 

1 iM  T T 

C . , 21  0 dl  / 

/ (OOO 

1 

Ujn  1 ! 

0545 

REF 

7 

l AST 

765 

27,2330 

27673 

0 

STOVL 

0546 

REF 

7 

LAST 

766 

27, 2331 

03701 

1 

054-7 

27,2332 

45006 

0 

PUSH 

054  8 

REF 

2 

LAST 

653 

27, 2333 

15733 

1 

0552 

27,2334 

77650 

1 

GOTO 

0553 

REF 

4 

LAST 

7-6  5 

27,2335 

03632 

0 

0554 

27,2336 

77745 

1 

S40. 18 

DL 4 D 

055  5 

REF 

37 

LAST 

765 

27,2337 

03442 

0 

0556 

REF 

47 

LAST 

736 

27 , 2340 

0004  1 

1 

SThr  e 

0557 

27,2341 

77621 

1 

BDSU 

0558 

REF 

10 

LAST 

761 

27,2342 

03631 

0 

0559 

REF 

. a , 

LAST 

76  1 

2 7 ,234  3 

37452 

0 

STCALL 

0560 

REF 

9 

LAST 

730 

27,2344 

2 7 057 

0 

0561 

27,23*5 

40  37  5 

1 

VLOAD 

0*62 

REF 

2 7 

LAST 

727 

27,2346 

0000] 

0 

0563 

27,2347 

00001 

0 

0564 

REF 

10 

LAST 

765 

27,2350 

03  642 

1 

STORE 

0565 

REF 

11 

LAST 

765  .. 

27,2351 

02323 

1 

STORE 

056*1 

27,235? 

77656 

l 

UN  I T 

0565  2 

REF 

2 

LAST 

147 

27,2353 

27537 

0 

STOVL 

0564 

R EF 

22 

LAST 

726 

27,2354 

00007 

0 

05665 

REF 

7 

LAST 

765 

27 , 2355 

03650 

1 

STORE 

0567 

REF 

10 

LAST 

765 

27,2356 

02331 

1 

STORE 

0568 

27, 2357 

6 5345 

0 

OLGAD 

956q 

RFF 

11 

LAST 

677 

27,2360 

06522 

1 

0570 

Lr 

1 

2 7,236  1 

1640  6 

1 

0571 

27 ,2362 

4321* 

1 

BOFF 

0572 

RFF 

4 

LAST 

1 

27,2363 

03745 

1 

0573 

D E F 

1 

27,2364 

56366 

1 

0574 

REF 

1 

27,2365 

16410 

0 

057  5 

27,2366 

66006 

1 

S MAI  LEF'S 

PUSH 

0576 

REF 

13 

LAST 

698 

27,2367 

02776 

0 

0*77 

27,2370 

4*  1 34 

0 

S X A , 2 

0578 

KEF 

12 

LAST 

699 

27,237  1 

02777 

1 

0579 

REF 

3 

LAST 

674 

27,2372 

22000 

1 

0580 

27,2373 

41575 

0 

VLOAD 

05  81 

REF 

1 4 

LAST 

727 

27,2374 

02366 

0 

0582 

REF 

« 

LAST 

766 

27,2375 

03701 

1 

STORE 

0583 

27,2376 

77656 

1 

UN  I 7 

0586 

REF 

8 

LAST 

766 

27,2377 

17673 

0 

STOOL 

0585 

27,2400 

00045 

0 

0586 

P.EF 

4 

LAST 

653 

27 , 24 C 1 

37664 

1 

STCALL 

0587 

REF 

3 

LAST 

766 

27,2402 

15733 

1 

0585 

27, 2403 

77650 

1 

Gl  TO 

0589 

REF 

5 

LAST 

76  a 

27, 2404 

03632 

0 

0590 

27,2405 

QC'707 

1 

EPS1 

2DEC  * 

0590 

27,2406 

03434 

1 

3 : 15  DEC 
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USER'S  PAGE  NO.  15  F7  S3 

VGT  I G 

VG  IGNITION  SCALED  AT  2(+7)M/CS 

UT 

VGTIG 

CALL 

THRUST  DIRECTION  SCALED  AT  21*1 ) 

GET .L VC 

VGTIG  IN  IV  COOP  AT  2(+7)M/CS  7N  DELVLVC 

QTEMP 

TIG 

TDEC1 

TPASS4 

DELL.  T 4 

L EM PR  EC 

INTERCEPT  TIME  - TIG. 

SET  PD 

RATT 

0 

RTIG 

RI-N.IT 

LOAD  STATE  VECTOF  AT  TIG  FOR  INITVEL. 

UNIT/P/ 

VATT 

VTIG 

VINIT 

POOL 

ZEROVECS 

EPS1 

DAD 

NORMS W 

SMAL l EPS 

NUMIT  = 0 

EPS2 

S X A , 1 

R T X 1 

CALL 

RTX2 

INITVEL 

PUSH 

EPS ILC  N4  = 1C  DEGREES  OP  45  DEGREES. 

DELVEET3 

VGTIG 

VGTIG  = VR  - VN. 

U T 

36D 

UT  = UNIT  (VGTIG) 

VGDISP 

GET . L VC 

QTE  no 

CONVERT  VGTIG  (IN  PUSHLIST  ) TO  LOCAL 

VERTICAL  COORDINATES. 

2.777777778  E-2*  10  DEGREES  AT  l REVOLUTION 


0 GAP:  ASSEMBLE  EVISIDN  001  ' F AGO  PH'jG  AM  API  1RUPE  By  EYLES 

EPS2  2 DEC* 

THETACON  20EC 

• 

ft 

ft 

ft 

ft 

3" 

ft 

1 


0591 

27,24-07 

03070 

0 

0591 

27,2410 

3^*344 

0 

0592 

27,241 1 

00024 

1 

0592 

27,2412 

13714 

1 

2” 


I 


► 


i 


< 
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USER ' S PAGE  NO . 16  E7  S3 

9.722222222  E-2*  35  DEGPEES  AT  1 REVOLUTION. 

. 31830969  B-8 


» 


1 


GAP:  ASSEMBLE; RLVISI JN  001  OB  AGC  PLUGS  AM  API  1R0PE  8Y  EYLES  3:15  DEC.  2,1970 

l P40rP47  USER'S  PAGE 

P0593  SUBROUTINE  NAME:  SAC. 2, 3 MOD.  NO.  3 DATE:  APRIL  4,  1967 

F 0599  MODIFICATION  8Y:  JONATHAN  D.  ADDELSTQN  (ADAi  S ASSOCIATES) 

R 059  5 MOD.  NO.  4:  JULY  18,  1967:  PETE'  ADLER  (M$T/Il  ) 

P.05C6  MUD.  NO.  5:  OCTOBER  IB,  1967:  PETER  ADLER  (MIT/ILt 

R 059  7 ORIGINALLY  BY:  SAY  DEAD  ZELDIN  UIT  I NS  T RlJM  §N  I AT  I ON  LA8  ) AND  RICHARD  TaLAYCU  (SYSTEM  DEVELOPMENT  CORP  ) 


FLY  .132  PAGE  768 

NO.  17  E7  S3 


R 0*90 
R 060 1 
R 0603 
R 0605 
R 0607 


S4  0.2,3  COMPUTE  c "PI  I . IT  V ■> ' " WHICH  IS 
WHICH  IS  THE  SAME  VECTi"  IN  f EFEF  FNC 
AXIS  FOR  DPS,  APS,  AID  PCS  BURNS.  T 
COORDINATES.  THESE  VECTORS  ALSO  DEF 
THE  " P EF  ERRED  AT  T I TUUE  CCMPUT  ED"  FL 


THE  HAL  F— LIN  IT  DESIRED  THPUST  VECTOR  IN  STA8L  E-*'EMBE°  COORDINATES  FROM  "IJT" 
F COO' DIN ATE S.  IT  DETERMINES  THE  CORRECT  VALUES  FOR  "SCAXIS"  USING  THE  +X 

HE  "W  - EVf  I EADS— UP " l 1 ORIENTATION  IS  THEN  COMPUTED  IN  REFERENCE 

IKE  THE  "PREFERRED  IMU  ORIENTATION".  UPON  COMPLETION  OF  THIS  CALCULATION, 
AG  IS  SET  ! P FRA T FUG) • 


R060F  CALLING  SEQUENCE: 


A 060c 

L 

CALL 

A 061 0 

L +1 

S40 .2,3 

A 06  1 1 

L +2 

( ’ ETURN ) 

P 0612 

SUBROUTINES  C Al LEO: 

NONE. 

R 06  1 3 

NORMAL  RETURN:  L +2 

( SEF  CALL ING 

SEQUENCE  ABOVE ) . 

INTERPRETIVE  CALL. 

G I MBA  L ANGL  E VECTOR  IN  MPAC. 


R Ofc  1 ' ALAS'"/ ABORT  S!  DES  : : 'E. 

R 061  * I N P U 7 : 


R 06 1 6 
R 06 1 6 
R 06  1 9 


1.  PEESMMAT 

2.  UT 

3.  RTIG 


MAT'  IX  FROM  REFERENCE  TIJ  STABL  E- ME  MB  ER  COORDINATES  SCALED  AT  2. 
HALF-UNI!  DESIRED  THRUST  DIRECTION. 

POSITION  AT  TIG  IN  DEFER FNCE  COORDINATES. 


P 062  1 OUTPUT: 


R 062  2 

1.  : XSCREF 

R 062  3 

: YSCP.EF 

R0623 

: ZSC'-EF 

P 062  5 

2.  POINTVSM 

R0627 

3.  SCAXTS 

R 062  9 

4.  PFRATFLG 

R 063  1 

DEBf  IS:  NONE. 

I 


to  I NGS- LEVEL  HEADS-UP  LM  ORIENTATION 
IN  REFERENCE  COORD I MATES 
(PREFERRED  IMU  ORIENTATION). 

PE'ITED  THUS'  DIRECTION  IN  STABLE-MEMBER  COORDINATES. 

HALF-UNIT  OF  AXts  TO  ALIGN  IN  ST ABliTE— MEMBER  COORDINATES. 

INTERPRETIVE  FLAG.  ON:  PREFERRED  ORIENTATION  COMPUTED ; OFF:  NOT  COMPUTED. 


i" 


ASSEMBLE  FVISIGN  < .(  1 OF  AGC  °t  GG>  AM  API  1<  OPE  BY  EYLE5 


o 


gap: 


0632 

0633 

0634 

0635 

0636 

0637 

0638 

0639 

0640 
064] 
06  42 
0643 

06431 

06432 

0643  3 
06434 

0644 

0645 
064  6 
0647 
064° 

064  9 

065  0 

06501 

06502 
0650  3 
06504 
0650  K 
06506 


?M'-P47 


REF 


REF 

P E F 

DCC 

..  ..  9 

22 

c; 

LAST 

LAST 

LAST 

LAST 

766 

734 

FTP 

" L 1 

REF 

6 

590 

REF 

22 

LAST 

518 

REF 

10 

LAST 

7 65 

P.  EF 

1 

REF 

1 1 

LAST 

766 

PEF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 


1 

1 

2 LAST 
1 

1 

3 LAST 
3 LAST 


769 


769 

766 


27.241 3 

27.2414 

27,2414 

27,2416 
2 7, 2 41  -> 
27,2420 

27.242  1 

27.2422 

27.2423 

27.2424 

27.2425 

27.2426 

27 .2427 
27 , 2 + 3 0 

27. 243  1 

27 . 2432 

27.2433 

27.2434 

27.2435 

27.2436 

27.2437 
2 7, 244  0 

27.2441 

27.2442 

27 . 2443 

27.2444 

27.2445 

27.2446 


77775 
03673 
7652  1 
01734 
27  77  3 
06520 
27765 


03673  0 
03607  C 
53435  0 
03642  1 
46125  0 
00045  0 
Ft 441  0 
45575  1 
74162  1 
76435  1 
03607  0 
77676  0 
03623  0 

+3414  1 
01073  1 
47375  0 
03607  G 
03650  1 
41456  0 
77650  1 
56431  1 


S40. 2 ,3 


P L US  X 


ST'O  Y 


F!  XY 


> 


count* 

VLOAD 
MX  V 
STOVL 
STOVL 


STORE 

VXV 


POOL 


V!  JAD 
STORE 
VXV 

VCOMP 

STORE 


SET 
VL  OAD 


UNIT 

GOTO 


3:15  DEC 
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$ $/S40 . 2 
UT 

VSL1 

F EF  ST  : 1A  T 
POINTVSM 
UN  I T X 
SCAX I S 

UT 

X5CF  EF 
UNIT 
RTIG 
BHI  Z 
3 6D 
FIXY 
ST  a or 
YSCREF 
VS  L 1 
X SCR  E F 

ZSCr  EF 

RVQ 

PFRATFLG 

VXV 

XSCRFF 

VTTG 

PUSH 


USER  *S  PAGE  NO.  18 


E7  S3 


UT : DESIP  ED  THRUST  DIRECTION  (HALF-UNIT) 
(PUT  INTO  TOP  OF  PUSH-DOWN-LIST.) 
TRANSFORM  THRUST  DIRECTION  TO  STABLE- 
MEMBER  FROM  REFERENCE  COORDS  (RESCALE). 
SAVE  FOR  "VECPOINT"  ROUTINE  (LEMMAMU). 
SCA  XI S SET  TC  +X,  FOP  P40  AND  P42  AND 
FOR  P41  IF  PCS  NOT  -X , +Y , -Y , +Z , -Z . 

ASSUME  +X  9UFN  ALWAYS,  EVEN  FOR  PCS. 
XSCREF  = UT  (DESIRED  THRUST  DIRECTION.) 
RTIG  = POSITION  AT  T I ME-OF - I GN I T ION . 
YSCREF  = UNIT ( UT  X RTIG) 

TEST  MAGNITUDE  OF  UT  X RTIG 
IF  SMALL,  USE  UT  X VTIG  AS  YSC 


COMPUTE  (YSCREF  X XSCREF), BUT  FOP  A 
RIGHT  HANDED  SYSTEM,  MEED  (X  CROSS  Y). 
ZSCPLF  « - (YSCREF  X XSCREF ) 

= + (XSCREF  X YSCRFF) 


IN  THIS  CASE, 

YSCREF  f UNIT ( XSC ■ EF  X VTIG) 


STOP  Y 


GAP 


ASSEMBLE  RE  VISION  OC  1 1 F AGC  PRCGl  AM  APlli-GPE  BY  EYLES 


.3:  15  OEC 


2,1970  FLY 
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L P40-P47  USER'S  PAGF  NO.  19  E7  S3 

P 065 1 SUBROUTINE  S40.8 

R 0652  MODIFIED  APRIL  3,  1968  BY  P ETLk  ADLER  MIT/IL 

R 06  5 3 DESCRIPTION 

R0654  S4C.B  UPDATFS  THE  V E LOC T T Y-TO-BE- G A I N ED  VECTOR,  VG,  (AND  FOR  LAMBERT  TARGETTED  BURNS  ALSO  EXTRAPOLATES  VG 

R 065  - USING  THE  BUT  VECTOR)  COMPUTES  THE  TIME  FOR  ISSUING  THE  ENGINE  OFF  COMMAND,  T GO , AND  CALLS  THE  ROUTINE 

R 065  8 "FI KUCOUW " , WHICH  GENE.  ATES  STEERING  COMMANDS  FOR  THE  DAP. 

R 06  5 9 CALL  ING  SEQUENCE 

R 0660  L-l  CALL 

R 066 1 L S40.8 

R 0662  L + l INTERPRET  I VE  RETURN 

R 066  3 ALA  P 


R 0664  IF  VG  . DELVREF  IS  NEGATIVE  ( VG  AND  OELVREF  OVER  90  DEGREES  APART),  BYPASS  TGO  AND  STEERING  COMPUTATIONS 

R 0666  AND  SET  ALARM  1407.  RETURN  TO  CALLER  NORMALLY. 


R 066  7 INPUT  Afsjf)  I N I T I Al.  T Z A T I • '*' 


R 066  8 

VGPREV 

f<  EFEPfNCE 

2(7) 

M/CS 

R 

DELVREF 

REFERENCE 

2(7) 

M/CS 

R 067  0 

BDT 

REFERENCE 

2(7) 

M/CS 

R 067 1 

TDECAY 

TAIL-OFF  TIME 

2(23 

) CS 

R 0672  XDELVFLG  1 = EXIF!  IAL  DELTA-V : 0 = LAMBERT  (AIMP0IN7) 

R 067  3 S T t:  L S'  I = D°  STEEPING  At  D TGO  COMPUTATIONS;  C = VG  UPDATE  CMLY 

R 0674  FIRSTFLG  1 = GONF  TO  LAMBERT  AT  LEAST  ONCE;  0 = HAVEN'T  GONE  TO  LAMBERT  YET 

R 067  6 NOTE:  VGTIG  EQUALS  VGPREV 

R 0677  OUTPUT 

R067P  STFFRSW  See  INPUT 

R 0679  IMPULSW  L = ENGINE  OFF  IN  TGO  CENTI SECONDS ; 0 = CONTINUE  BURN 

R 0680  TGC  TIME  TO  CUT-OFF  2(28)  CS 

R Ofc  8 1 SEE  F ' ' 1 DC  DU  W FOR  SIJfE  ING  o U T PUTS. 

R 063  2 S U B P 0 U TIME  C A L L E 0 

R 06  8 3 F INDCOUW 

R 0634  DEBRIS 

R 06F  5 °AC S , PUSHLIST 


0686  REF 


CLUNT  * $ $/ S40 . 8 


GAP: 


0687 

0698 

0689 

0690 

0691 

0692 

0693 

0694 

0695 

0696 
0707 
0709 

0709 

0710 

0711 

0712 

0713 
07 1 A 

0715 

0716 

0717 

0718 
0710 

0720 

0721 

0722 
072.3 

0724 

0725 

0726 

0727 

0728 

0729 

0730 

0731 
073  2 

0733 

0734 

0735 

0736 
073  7 
073« 

0739 

0740 

0741 

0742 

0743 


0744 


AS  SfcMBLE  REVISION  001  OF  AGO  PROGRAM  AP11R0PE  BY  EYLES 
P40-P47 


27,2447  77614  1 S40.8  BOF 

REF  8 ! AST  765  27,2450  01347  0 

REF  1 27,2451  56731  1 

27,2452  52375  1 VL  0 AD 

REF  6 LAST  '?F7  27,2453  03701  1 

REF  3 LAST  78fi  27,2454  03527  1 

REF  3 LAST  761  27,2455  03707  1 VGAIN*  STORE 

27,2456  76521  0 MXV 

REF  2 3 LAST  76.9  27,2457  01734  0 

EF  3 LAST  200  27,2460  03254  1 STORE 

27,2461  51575  1 BDTOK  VLOAO 

REF  4 LAST  771  27,2462  03707  1 

REF  5 LAST  766  27,2463  03664  0 STORE 

27.2464  77201  1 TGOCALC  SETPD 

27.2465  00001  0 

REF  5 LAST  771  27,2466  03707  1 

REF  7 LAST  771  27,2467  27701  1 STOVL 

TEE  4 LAST  771  27,2470  03527  1 


REF  1 

REF  5 LAST  711 


REF 

REF 

REF 


LAS-  77  1 


LAST  754 


27.2471 

27.2472 

27.2473 

27.2474 

27.2475 

27.2476 

27.2477 

27.2500 

27.2501 

27.2502 


57414  1 
01344  0 
00052  0 
77666  1 
41441  0 
03707  1 
56244  0 
56526  0 
03 743  1 
7121  5 1 


80FF 


UN  I T 
DOT 

BPL 


DAD 


7EF 

12 

LAST 

669 

27*2503 

06  520 
562  61 
2061 3 
C 0045 
432  0 6 

0 

1 

1 

0 

1 

s° 

c.  f f C-  DU: 

27.2505 

27.2506 
? 7 . 2 5 0 7 

DMP 

I 

L7  I'i  r 

REF 

1 

27,2510 

16  535 

0 

REF 

1 

27,2511 

0 3 741 

0 

REF 

10 

LAST 

763 

27,251 2 

0 3517 

1 

store 

27,2513 

77615 

0 

CAD 

REF 

8 

LAST 

76  1 

27, 2514 

01235 

1 

REF 

38 

LAST 

7 66 

27,2515 

17442 

0 

ST  UOL 

REF 

11 

LAST 

771 

27, 251 6 

0 35  17 

1 

27,2517 

5 1025 

1 

osu 

REF 

1 

27,2520 

16  537 

1 

REF 

1 

27, 252  1 

61111 

1 

27,2522 

43014 

0 

SET 

REF 

3 

LAST 

762 

27,2523 

01066 

0 

REF 

2 

LAST 

7 71 

27,2524 

01224 

1 

REF 

6 

LAST 

771 

27,2525 

00052 

0 

27,2526 

77776 

1 

ALAFMIT  EXIT 

* 
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USEP  • S PAGE  NO.  20  E7  S3 

GENERATE  VR  IF  NOT  EXTERNAL  DELTA-V  BURN 

XOEL.VFLG 

R4STEER1 

VSU 

VGPr  EV 
DEI  VREF 

VG  VELOCITY  TO  BE  GAINED  SCALED  AT  (7JM/CS 

VSL  1 

REFS M MAT 
UNFC/2 
ABVAL 
VG 

VGDISP 

VLOAD 

0 

VG 

VGPREV 
DEL VREF 
VCOMP 
STEERSW 
QPRET 


PUSH 

VG 

DDV 

ALAPMIT  DEL  V IS  MORE  THAN  90  DEGREES  FROM  VG. 

VEX 

DMP 

DPHAL F 

DDV 

I0D 

36D 

DAD 

-FOUR DT 
T DEC AY 
T GO 

PIPTIME 

TIG 

TGC 

BPL 

FOUR SECS  400  CS 

FINDCDUW  -2 

CLRGO 

IMPULSW 

STEER  SW 

QPRET 


GAP:  ASSEMBLE  - E VISION 


P40- 

■P47 

0745 

0746 

REF 

30 

LAST 

748 

07  47 

REF 

1 17 

LAST 

762 

074  P 
07485 

REF 

2 

LAST 

771 

07^-9 

0749 

0751 

0751 

07515 

PEF 

3 

LAST 

771 

AGC  Pl'UftRAM  API  II- OPE  BY  LYLES 


,2527 

0 5567 

0 

TC 

, 2530 

014C7 

0 

OCT 

,253  1 

0 6U37 

0 

TC 

,253  2 

776  5 0 

1 

GOTO 

,2533 

61111 

1 

, 2534 

77715 

1 

-FOURDT 

2DEC 

, 2535 

77777 

0 

,2536 

GGOOO 

1 

FOUl  SECS 

2DEC 

,2537 

0 0620 

0 

, 174  2 

2VEXHUST 

= 

OF 

27 

27 

27 

Z*7 

27 

2 7 

27 

2 7 

27 

E 7 
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USER'S  PAGE  NO.  21  E7  S3 

ALARM 

01407 

1NTPRET 

FINDCDUW  -2 

SKIP  T GO  COMPUTATION  BUT  CALL  FINDCDUW. 

F I NDC DUW  Wilt  EXIT  TO  UPDATEVG  +3. 

-900  B-l 8 

-4  (200  CS. ) B (-18) 

400 

VEX 

400  CS  SCALED  AT  2(+28)CS 

I 


GAP:  ASSEMBLE  .gEVISr  JN  0C1  OF  AGC  PROGRAM  AP11ROPE  BY  EYLfcS  3: 


L 040-^7 

P 0752  NAME  S40.13  - TIMEBURN 

R 0753  FUNCTION  (1)  DETERMINF  WHETHER  A GIVFN  COMBINATION  OF  VELOCITY  TO 

R 0754  BE  GAINLC  AND  ENGINE  CHOICE  RESULT  IN  A BURN  TIME 

R 075  5 SUFFICIENT  TO  ALLOW  STEERING  AT  THE  VEHICLE  DURING  THE 

R 0756  8 UP R 

P 075  7 (?)  THE  MAGNITUDE  IF  THE  RESULTING  BURN  TIME  — IF  IT 

R 0758  IS  SHURT  — AND  THE  ASSOCIATED  TIME  OF  THE  ENGINE  OFF 

R 075  9 SIGNAL 

R0760  CALL  ING- SEQUENCE  VIA  EINQVAC  AS  A NEW  JOB 

R 07  61  INPUT  VGTIG  VELOCITY  TO  BE  GAINED  VECTOR  (ME'ERS/CS ) A'r  +7 

R 076  2 WEIGHT/C  MASS  OF  VEHICLE  IN  KGM  AT  +16 

R 076  3 E APS  ENGINE  -THRUST  IN  M. NEWTONS  AT  +7 

R0764  AND  ALSO  FOR  RCS  ENGINE 

R 076 R MOOT  RATE  OF  DECREASE  OF  VEHICLE  MASS  DURING  ENGINE 

R0766  BURR  IN  KILOGKAMS/CS  AT  +3  . THIS  SCALING  MAY 

R 0767  REQUIRE  MODIFICATION  FOR  SATURN  BURNS. 

R 076 8 ENG IF l AG  SWITCH  TO  DECIDE  WHETHER  APS  OP  DPS  ENGINE  IS  USED 

R 076°  =0  DPS 

R 0770  =1  APS 

R 077 1 OUTPUT  IMPULSW  ZERO  FOR  STEERING 

R 077 2 ONE  FOR  ATTITUDE  HOLD 

P 077  3 NOTH- OIL  l Fr 0 FOR  THROTTLING 

R 0774  ONE  TO  INHIBIT  THROTTLING 

R 0775  rC(  tjvf  BURN  IN  CS 

R 077  6 THE  QUANTITY  M.NEWTQA  = 10000  NEWTONS  WILL  BE  USED  TO  EXPRESS 

R 0777  FORCE 


07TB 
077  ° 

::FF 

Dpp 

12 

1 

L AST 

771 

E7 , 1516 

E B A N K = 
r r t if?  t & 

T 60 

$,<£//  f ) 1 S3 

r r 

1 

Ly  L U?  ‘ I ^ 

■P  Tp  / 1 W • 1 D 

0780 

REF 

118 

LAST 

772 

27, 25A0 

0 6037 

0 S40.13 

TC 

I NTPRET 

078  1 

27, 25A1 

43001 

1 

SETPD 

CLEAR 

D7R  ? 

f AAAI 

A 

n on 

vz  - O c 

1 f «£  D C 

u 

V uu 

0783 

s EF 

A 

LAST 

771 

27,2543 

0 1 2 6 o 

i 

IMPULSW 

078  A 

27,2564 

51575 

i 

VI 0 AD 

ABVAl 

0785 

REF 

Q 

LAST 

766 

27,254  ^ 

03701 

i 

VGTIG 

078  6 

27,254-6 

41325 

0 

PDDL 

DMP 

0787 

REF 

1 

27,2547 

21021 

1 

4SEC (17) 

0788 

REF 

2 

LAST 

756 

27,2550 

34017 

0 

ERGS  2 

076c 

27,2561 

7 2471 

0 

ODV 

SL.l 

07  SC 

REF 

2 

LAST 

765 

27 , 255 2 

01245 

0 

WEIGHT /G 

07R 1 

27 , 2553 

41421 

0 

BDSU 

PUSH 

0792 

27,2554 

43014 

0 

BOFF 

SET 

0793 

REF 

I 

27,2555 

05342 

1 

APSEL AG 

079  A 

REF 

1 

27,2556 

56626 

0 

S40. 130 

079c 

REF 

2 

LAST 

7 56 

27,2557 

02463 

1 

NCTHr’OTL 

0794 

27,2560 

56345 

0 

DL  ' AO 

DDV 

079  7 

OFF 

1 

27,2561 

1 60  0 I 

1 

K 1 V A 1 

0798 

REF 

3 

LAST 

773 

27,2562 

01245 

0 

WEIGHT/G 

0799 

27,2563 

500  21 

1 

BDSU 

BMN 

15  DEC.  2,1970  FLY  .132  PAGE  773 
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ASSUME  NO  STEER! NG  UNT*L  FOUND  OTHERWISE 

VELOCITY  Tn  BE  GAINED  AT  +7 

OOD  = MAG  CF  VGTIG  AT  +7 

CORRECT  VG  FOR  A SECS  OF  2 JET  ULLAGE 

SCALE 

FOR  DPS  ENGINE 

OOD  = MAG  OF  VGTT G CORRECTED 
M. NEWTONS— CS  AT  +2^ 


GAP:  ASSEMBLE  REVISION  001  CF  AGC  PROG  AM  API 1RQPE  BY  EYLES 

L P^0-P47 


0800 

27,2564 

OF  001 

0 

OOD 

0801 

REF 

1 

27,2565 

56610 

0 

S40. 131 

0802 

27,2566 

41325 

0 

POOL 

OMP 

0803 

REF 

2 

LAST 

1 4 3 

27,2567 

03737 

1 

MDU7 

R 0804 

M D 0 7 

REPRESENTS  THE 

’■  ATE  Of 

DECK  EASE 

OF 

VEHICLE 

MASS  DUPING  ENGINE 

R 0805 

BURN 

! IN 

KILDGRAMS/CS 

. WHEN 

SAT1’  ' 

I S 

USED  , THE  SCA 

LING  MAY 

R 0806 

REQUIRE 

ADJUST  El 

0807 

REF 

1 

27,2570 

16700 

1 

3.5SEC 

0808 

27,257 L 

6^221 

0 

BDSU 

PDDl 

0809 

REF 

4 

! AST 

773 

27,2572 

01245 

0 

WEIGHT/G 

0810 

REF 

7 

LAST 

765 

27,2573 

03735 

0 

F 

0611 

27,2574 

60405 

0 

DMP 

SR2 

081? 

REF 

1 

27,2575 

16702 

0 

5SECS 

0813 

2T , 2 57  6 

41471 

0 

DDV 

PUSH 

0814 

2 7 ,2577 

c 1021 

0 

BDSU 

BPL 

0815 

2 7,260  0 

poor:  3 

1 

020 

0816 

REF 

2 

LAST 

773 

27,260  1 

55626 

0 

S40. 130 

0817 

27, 2602 

55346 

0 

OLUAO 

BDDV 

0818 

27,2603 

43205 

1 

DMP 

DAO 

0819 

RFF 

2 

LAST 

774 

27,2604 

16702 

0 

5 SECS 

0820 

PFF 

1 

27,2605 

16676 

1 

1SEC2D 

08  21 

27,2606 

77650 

1 

GOTO 

0822 

REF 

1 

27,2607 

56616 

0 

S40. 132 

0823 

27 , 2610 

41345 

0 

S40. 131 

DLIJAD 

DMP 

0824 

REF 

c 

L AST 

774 

27,2611 

01245 

0 

WEIGHT/G 

0825 

27,2612 

4 1 5 4 2 

1 

$f-  1 

PUSH 

0826 

27,2613 

56215 

1 

DAO 

00  V 

0827 

REF 

I 

27,2614 

1 6 003 

0 

K2VAL 

0828 

REF 

1 

27, 2615 

1 6005 

0 

K3VAL 

0829 

27,2616 

7 74  14 

0 

S40 . 132 

SET 

EXIT 

0830 

REF 

5 

LAST 

773 

27,2617 

010  6 6: 

0 

IMPULSW 

0831 

REF 

9 

LAST 

762 

27, 2620 

0 72  57 

0 

$4  . 132* 

TC 

T PAG-- EE 

083? 

RFF 

29  3 

1 AST 

76  2 

27,2621 

3 0154 

1 

CA 

M PA  C 

0833 

RFF 

108 

LAST 

76  3 

27, 2622 

56  001 

0 

XCH 

L 

0834 

REF 

141 

LAST 

76  3 

27, 2623 

3 4755 

1 

CA 

ZERO 

0835 

REF 

13 

LAST 

773 

27,2624 

53 '517 

1 

DXCH 

T GO 

0836 

REF 

1 

27 , 2625 

1 2650 

1 

Tr  p 

C A n ] '2/. 

i 

1 V>  i 

JTV  » I . J 

0837 

27 , 2626 

41345 

0 

S40. 130 

OLUAO 

OMP 

0838 

27,2627 

00001 

0 

OOD 

0839 

REF 

6 

LAST 

774 

27,2630 

01245 

0 

WEIGHT/G 

0840 

27 , 26  3 1 

43006 

0 

PUSH 

BCN 

0841 

REF 

2 

LAST 

773 

27, 2<  3 2 

05302 

0 

APS  FL  AG 

064? 

REF 

1 

27,2633 

566  7 1 

1 

APSTGO 

084? 

27,2634 

4 3 071 

0 

DDV 

CLEAR 

0844 

REF 

1 

27,2639 

16007 

1 

S40. 136 

0845 

REF 

3 

LAST 

773 

27,2636. 

02663 

0 

NOTHROTL 

0846 

2 7, 26  37 

' 1 400 

0 

BGV 

PUSH 

3:15  DEC.  2,1970  FLY 
USER'S  PAGE  NO. 
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774 


T GO  LESS  T H AF1  100  CS 
020  = TEMPI  AT  +7 


350  CS  AT  +17 


SCALE 

040  = TEMP  2 


100  CS  AT  +17 


M , NEWTON  CS  AT  +24 
M. NEWTON  CS  AT  +10 


FOR  OPS  ENGINE 


» 

» 


GAP:  ASSEMBLE  REVISION  QC I OF  AGC  PROGRAM  API 1ROPE  BY  EYLES 


0847 

0848 

0849 
088  0 
08  51 
085? 
0853 
08  54 
0855 
08  56 

0857 

0858 

0859 

0860 
0861 
086? 
086? 


086  6 

0865 

0866 
0867 
086* 
0866 

0870 

0871 


0381 
0886 
0884 
R 0833 
P 088 5 
R 0890 
P 0891 
R 08  9 2 
P 089  ? 
R 0894 
R 0 8 9 5 
ROB  9 6 


P40-P47 
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REF 


REF 

REF 


0872 

0873 
08735 

0874 
0878 
0876 


PFF 

REF 

? 

2 

LAST 

LAST 

775 

774 

REF 

50 

LAST 

7 59 

REF 

1 2* 

LAST 

763 

REF 

REF 

1 

14 

LAST 

774 

REF 

2 

L AST 

774 

REF 

OFF 

1 

1 

REF 

4 

LAST 

774 

REF 

1 

REF 

2 

LAST 

75  8 

PEE 

2 

LAST 

775 

27.2640 

27.2641 

27. 2642 

27.2643 
27,264  4 

27.2645 

27.2646 

27.2647 

27.2650 

27. 2651 

27. 2652 
? 7 ,2653 

27.2654 

27. 2655 

27.2656 

27 . 2657 
27,2660 


56653 
51025 
16704 
56  66  1 
52C  15 
16  704 
56616 
77776 

0 5353 
C 0 003 

0 5155 
40545 
77671 
16011 
03517 
77  7 76 

1 265  0 


S40.137  DSU 


DAD 


S40 . 130V 
B PL 
6 SEC 
S40. 138 
GOTO 
6SEC 
S40. 132 


600.0  CS  AT  +14 


S 4 0 . 133 
S40. 134 


S 40. 130V 


EXIT 

TC 

flCT 

TC 

DLOAD 

DDV 


PHASCHNG 
COO  03 
ENDUP  JOB 
SR4 


S TOR  E 

EXIT 
TC  F 


S40 . 1 36. 
T GO 


“ ECOY PUTF  TGC  IN  TIME2  UNITS 
S40.136  SHIFTED  LEFT  10 


S40.134 


REJOIN  COMMON  CODING  FOR  RESTART  P R Q T E C T 


27.2661 

27.2662 
27 , 2d  6 3 

27.2664 

27.2665 

27.2666 

27.2667 


51025  1 S40.138  OSU 


BPL 


2 7,2671 

27, 267  2 

27. 2673 

27.2674 

27. 2675 
2 7,26  76 


16706 

1 

85SEC S 

56666 

1 

STORETGO 

776  14 

1 

SET 

024  63 

1 

NCTH»OTL 

77745 

1 

STOP ETGC  01  GAD 

77  776 

I 

EXIT 

2620 

0 

TCP 

S40 .132* 

624  71 

1 

APSTGO  DDV 

SL2 

3 4-0  C 7 

1 

FAPS 

LOAD  T GO  A T 2(14) 


776  5 0 
56667 
00144 
GCOOC 


GOTO 


1 S EC  20 


2 DEC 


STOP  ETGC'  +1 
100.0  3-14 


100.0  CS  AT  +14 


08  7 c 

2 7,2677 

01274  I 

3. 5SEC 

2 DEC 

3 50.0 

B — 1.3 

350  CS  AT  +13 

Q87« 

27,27C0 

C COOT  1 

08*0 

27, 27C1 

."(’764  i 

5SECS 

2DEC 

500.0 

B-14 

500.0  CS  AT  + 

0830 

27,2702 

00000  1 

0831 

27,2703 

01130  1 

6SEC 

2 DEC 

600.0 

B- 14 

600.0  CS  AT  + 

+ 14 


FUNCT  I Of 


27,2704 

21,2105 

27,2706 


OCOOO 

21304 

00000 


89  SEC  S 


2DEC 


8500.0  8-14 


(1  ) GEf  E>  A ' E ' ; E ui  U " E D VELOCITY  AND  VE I.  DC  I T Y - T*  -B  E-G  AI  NE  D 
VECTORS  FOR  USE  DURING  AIMPOINT  MANEUVERS  EVFRY  TWO 
CYCLES  (4  SECONDS). 

THE  B VECTOR  WHICH  IS  USED  IN  THE  FINAL 
OF  EXTRAPOLATING  THE  VELOC  ITY-TO- BE-GA I NED 
2-SECOND  INTERVAL  INTr  THE  FUTURE. 


CALL  TNG 
INPUT 


SEO 


COM  PUT  AT  17;  | 
(2)  UPDATES 
CALCULAT 1CN 
THROUGH  ONE 
VIA  FTUi: VAC 
RN 
V V 


AS 

- ACTIVE 

- ACTIVE 


NEW  JOB. 
VEHICI  E 
VEHICLE 


RADIUS  VECTOR  IN  METERS  AT  +2°. 
VELOCITY  VECTOR  IN  METERS/CS  AT 


+ 7 


i" 


r 


t 


GAP:  ASSEMBLE  ,<EVISI3N  0C1  GF  AGC  P:  QGF  AM  AP11RGPE  BY  EYLES 

L PAQ-P4 7 


3:15  DEC.  2, 1970  FLY 
USER'S  PAGE  NO. 
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776 


R 01 

R 0898 
R 089  9 
R090C 
R 0901 
R 0°0? 
R 0903 
R 0904 
R 5 
R 0C06 
R 09  Q7 
R 0°08 
P 090° 
R 09  1 ( 

0911 

0912 

0913 
091  A 
0915 
0°2  5 

0926 

0927 

0928 
092c 

0930 

0931 

0932 

0933 

0934 

0935 

0936 

0937 
093  8 
09  39 


VR  r^F V 


TIG 

DLTARG 
PI PTIMF 
GOT/? 


DELVREF 


OUTPUT  VGP»EV 

VGDISP 
V" PR  FV 
BUT 

SUBROUTINES  USED  - 


REF 

, 8 

LAST 

771 

REF 

2 

L AST 

A A T ( ■ 

REF 

11'-' 

LAST 

773 

REF 

7 

LAST 

7 5jfc 

REF 

6 

LAST 

75c 

r-  EF 

2 

LAST 

766 

REF 

5 

LAST 

766 

REF 

1 

REF 

2 

' AST 

766 

R FF 

1 

REE 

51 

LAST 

775 

REF 

1 26 

LAST 

775 

- LAST  COMPUTED  VELOCITY  REQUIRED  VECTOR  IN 
METERS/CS  AT  +7. 

- TIME  OF  IGNITION  IN  CS  AT  +28. 

- COMPUTATION  CYCLE  INTERVAL  = 200  CS  AT  +28. 

- TIME  OF  R N AND  VN  IF  CS  AT  +28. 

- HAl T OF  VFL0C1TY  GAINED  IN  DELTA  T TIME  DUE  TO 
ACC E PER AT  I ON  OF  GRAVITY  IN  METERS/CS  AT  +7. 

- CHANGE  IN  VELOCITY  DUPING  LAST  2 SEC  IN 
ME1FTS/CS  AT  +7. 

- VFL  C TY  T i BE  GAINED  VECTL,  IN  METEr  S/CS  AT  +7. 

- MAG  OF  VGPREV  FOR  DISPLAY  PURPOSES. 

- VEl  C’TY  r EQUIP  ED  VEC  o,  IN  METERS/CS  AT  +7. 

- 8 VECTOR  IN  METERS/CS  AT  +7. 


INITVEL 

E7, 1700 

E 8 A N K = 

VGPREV 

A A : 

2 

2 A 

COUNT * 

*$/S40. 5 

27,2707 

0 6037 

0 

S40.9 

TC 

1 NT  PK FT 

27,2710 

77601 

0 

S ETPD 

27,2711 

0CC01 

0 

OOD 

27,271 2 

712  IA 

0 

SET 

DLOAD 

27  ,2713 

01072 

0 

AVFLAG 

27,271 A 

06  52  2 

1 

HI6ZER0S 

27,2715 

77725 

1 

PDOL 

27,2716 

164  06 

1 

EPS  1 

27,2717 

A32  1 A 

1 

BOFF 

DAD 

27,2720 

037A5 

1 

NOR MS W 

27,2721 

56  723 

1 

EPSSMALL 

27,2722 

1 6 A 1 0 

0 

E PS  2 

27,2723 

45  00  6 

0 

epssmall 

PUSH 

CALL 

27,2724 

22002 

0 

HAVEGUES 

27,2725 

77776 

1 

ENDS A 0.9 

EXIT 

27,2726 

0 5353 

1 

TC 

PHASCHNG 

27,2727 

00002 

0 

OCT 

2 

27, 2730 

I 515  5 

1 

TCF 

ENDUF JOB 

SET  AVFLAG  EOF  LEM  ACTIVE 


EPS  ILONA  = 10  OR  A5  DEGREES. 


..z 


09A0 

27,2731 

51575 

1 

RASTEEP.l  VLUAD 

ABVAL 

0941 

REF 

8 

LAST 

761 

27,2732 

01221 

1 

RN 

0942 

27,2733 

53  744 

0 

LXC  ,2 

SLA 

0943 

REF 

13 

LAST 

766 

27,2736 

02777 

1 

: TX2 

0944 

27,2735 

57576 

1 

0,2 

0045 

REF 

2 

LAST 

143 

27, 2736 

27715 

1 

STOVL 

T MAG 

0946 

REF 

8 

LAST 

690 

27,2737 

03444 

0 

KTARG 

0947 

27,2740 

47051 

0 

VSU 

RTB 

0948 

REF 

9 

LAST 

776 

27,2741 

01221 

1 

RN 

094° 

r E F 

3 

LAST 

70  5 

2 7 , 274  2 

21724 

0 

MU  MU  NX  1 

095  0 

p EF 

1 

27,2743 

17656 

1 

ST'.'DL 

I C 

0951 

27,2744 

00045 

0 

3 6D 

C( 3 60 ) = ABVAL (C) 

0952 

27,2745 

53674 

1 

X A D , 2 

SLA 

0953 

REF 

16 

LAST 

726 

27,2746 

00046 

0 

XI 
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0954 

0955 

0956 
095“ 
095  P 

095  c 

0960 

0961 

096  2 
096  5 
0964 
096  K 

0966 

0967 
0968, 

0969 

0970 

0971 

0972 

0973 

0974 

0974 

0976 

0977 

0978 

0979 

0980 
09  P 1 
098? 

0983 

0984 

0985 

0986 
05  8 7 
093  Q 

0989 

0990 

0991 
09  9 2 
0993 
0494 

0995 

0996 

0997 

0998 

0999 
100C 
1001 
II 

1003 


REF 

REF 

13 

3 

LAST 

LAST 

714 

776 

REF 

17 

LAST 

776 

REF 

13 

LAST 

777 

REF 

1 

REF 

2 

LAST 

1-  3 

RFF 

4 

LAST 

777 

REF 

4 

LAST 

686 

REF 

1 

FEE 

3 

LAST 

6 ° 0 

RFF 

LAST 

6°0 

REF 

2 

LAST 

777 

REF 

5 

LAST 

777 

REF 

19 

LAST 

777 

REF 

3 

LAST 

777 

REF 

20 

LAST 

777 

RFF 

2 

L AS  T 

111 

REF 

3 

LAST 

683 

RFF 

3 

LAST 

777 

RFF 

4 

LAST 

111 

REF 

4 

LAST 

777 

REF 

4 

LAST 

777 

r<  e f 

5 

LAST 

777 

REF 

21 

LAST 

111 

27,2747 

27. 2750 

27.2751 

27.2752 

27.2753 
27, 27c4 

27.2755 

27.2756 

27.2757 

27.2760 

27.2761 

27.2762 

27.2763 

27.2764 

27. 2765 

27.2766 

27.2767 

27. 2770 

27.2771 

27.2772 

27.2773 

27.2774 

27.2775 

27.2776 

27.2777 

27. 3000 

27.3001 
27 , 30 G 2 

27.3003 

27.3004 

27 . 3005 

27.3006 

27.3007 

27. 3010 

27.301 1 

27 .3012 

27. 3013 

27.3014 

27. 3015 

27.3016 

27.3017 

27. 3020 

27.3021 

27. 3022 

27.3023 

27.3024 

27.3025 
27,302  6 
27,3027 
27,3030 


57576  1 
00037  0 
41301  0 
0C050  1 
03715  1 
57101  0 
00047  1 

00046  0 
77  7 3*,  1 
03766  0 
17725  1 
00037  0 
65342  1 
03715  1 
65342  1 
03723  1 
43342  0 
46415  C 
74044  1 
41225  1 
00037  0 
03721  0 
77621  1 
03717  0 
45325  1 
03733  0 
03715  1 
70501  1 

00047  1 
41271  0 
C 37  2 5 1 
53664  0 
00046  0 
57575  1 
77754  1 
03766  0 
75366  0 
02673  1 
00041  1 
413'"'  0 
03733  0 
03721  0 
77621  1 
03717  0 
,5325  1 
03733  0 
03723  1 
70501  1 
CO 04 7 1 
41271  0 


STORE 

NORM 

NORM 

SXA  ,2 
STOOL 
SR  1 
SKI 
1 

DAO 

STORE 

DSU 

8 0S  U 
POOL 

NORM 
DO  V 
XS'J,  2 

! XA,2 

SORT 

STORE 
DL  Q AD 

BDSU 

POOL 

NORM 

DDV 


< 


3:15  DEC.  2,1970  FLY 
USER'S  PAGE  NO. 

0,2 

300 

DMP 

X2 

RMAG 

X AO, 2 

XI 
XI 

MUSCALE 

9 1 C 

3 CD 

PDDL 

RMAG 

POOL 

RTMAG 

DAO 

STAOr 

S S SS  = (R1  +R2  +C  1/2 

DM0 

300 

MU/ A 

MUASTEFR 

DSU 

SS 

RMAG 

Snl 
XI 
DMP 
R 1C 
SL  * 

XI 

1,2 


i 

.132  PAGE  777 

26  E7  S3  < 

i 

..z 

{ 

21+58  -X)  i 

< 

< 

< 

i 

< 

I 

I 

I 


MUSCAL F 
S IGM 
GEOMSGN 

320  + OR  - A 

OMP 

SS 

MU /A 

MUA STEEP 

DSU 

SS 

RTMAG 

SRI 

XI 

DMP 
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L P40-P4? 


1004 

REF 

4 

LAST 

777 

27, 3031 

03725 

1 

1005 

27, 3032 

53664 

0 

XSU  ,2 

l,’ 

REF 

22 

LAST 

777 

27,3033 

00,046 

G 

1007 

27, 3034 

57575 

1 

io  os 

27,3035 

6 5366 

1 

SORT 

i 

V EE 

5 

1 AST 

777 

27,3036 

03733 

0 

1010 

27, 3037 

56225 

1 

DSU 

1011 

27,3040 

00037 

0 

1012 

REF 

6 

LAST 

778 

27,3041 

03733 

u 

1013 

27, 3042 

415  66 

1 

SORT 

101 ' 

27,3043 

67542 

0 

SR  1 

1C  1 : 

?7 , 304 4 

66205 

0 

DMP 

1016 

REF 

1 

27 , 3045 

172  16 

1 

1017 

27, 3046 

56325 

0 

PDDL 

1018 

2.7 , 3047 

00C37 

0 

1019 

REF 

7 

LAST 

778 

27,3050 

03733 

0 

1020 

2 7 , 30  5 l 

77600 

1 

BC'V 

10  21 

27, 3052 

5 7053 

Q 

1022 

27,3053 

41366 

1 

SORT 

1023 

27 , 3054 

4424  2 

0 

SP  3 

102* 

2 7,3055 

65365 

1 

S I GN 

1025 

£ F 

4 

! AST 

777 

27,3056 

0 2 6 7 3 

1 

1026 

REF 

2 

LAST 

778 

27,305? 

17216 

1 

102  7 

2 ? ,306 0 

A 53  02 

1 

SR  2 

1C28 

27,3061 

65205 

0 

DMP 

1029 

REF 

8 

LAST 

778 

27,3062 

03733 

0 

1C  30 

REF 

9 

LA 

7 78  . 

27,3063 

03733 

0 

103  1 

27 ,3064 

7 5 442 

1 

ST  3 

1032 

2 7 , 306  5 

77  605 

1 

DMP 

1033 

27 , 306  6 

52525 

1 

PDDL 

1034 

REF 

5 

LAST 

777 

27 , 3067 

03717 

0 

1G35 

27,3070 

55366 

1 

SORT 

1036 

27,3071 

43225 

0 

DSU 

1037 

r E F 

11 

LAST 

766 

27,307? 

036  31 

0 

I 038 

REF 

9 

LAST 

7 7 1 

27,3073 

01235 

1 

lose 

27,307* 

14037 

0 

STODL 

1040 

27,3075 

77765 

0 

SIGN 

1041 

27,3076 

00037 

0 

1042 

27,3077 

0 0 037 

0 

STORE 

1043 

27,3100 

7721* 

0 

BON 

1044 

REF 

6 

LAST 

776 

27,3101 

03705 

0 

1045 

REF 

1 

27,3102 

5 7 1 2 3 

0 

1C  46 

REF 

2 

LAST 

776 

27 , 3103 

03656 

1 

1047 

27,3104 

53451 

1 

vsu 

1 ■'  - 

REF 

3 

LAST 

766 

27,3105 

035  37 

0 

104C 

27,3106 

6 3361 

0 

VX-.C 

] 

27, 3 1C  7 

00037 

0 

1051 

RFF 

3 

LAST 

778 

?7 , 31  10 

03656 

1 

1052 

27,3111 

53455 

0 

VAD 

1053 

REF 

4 

LAST 

778 

27,3112 

03537 

0 

3:15  DEC. 

2, 1970 

FLY 

.132 

PAGE 

USEE 

• S PAGE 

NO. 

27 

E7  S3 

PIC 
S L# 

XI 

1,2 

POOL  -8  (NO  SIGN) 

DDV 

30D 

ss 

PUSH 

AS  IN 

POOL 

2PI+3 

DDV 

300 

SS 

+ l 

DMP 

BDSU 

PDDL 

GEOMSGN 

2PI+3 

D SU 

PDDL 

SS 

ss 

SQR  T 
SL3 

MUASTEEP 

BDDV 

DAD 

TPASSA 
PIPTIME 
3 OD 

30D  B WITH  SIGN 

3 OD 

VLOAD 

NORMS W 

1 SOME  S S 

IC 

UNI  T 
UNI r/R/ 

PDVL 

30D 

IC 

UNIT 
UNI T/R / 


778 
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1054 

1055 

1056 
105  7 

105  5 

1059 

1060 
1061 
1062 

106  3 

1064 

1065 
106  6 

1067 

1068 
1 06  9 
1070 
107] 

1072 

1073 
107' 

1075 

1076 

1077 

1078 

1079 

1080 
108  1 
1082 
1 OP  3 

1084 

1085 

1086 

1087 

1088 
103  9 

1090 

1091 

1092 

1093 
109  4 
1095 
1 

1097 

1098 
109« 
1100 
1101 
1102 
1103 


P40-P47 


REF 

1 4 

LAST 

776 

pep 

a 

L AR  T 

7?7 

C t 

REF 

1 

REF 

4 

LAST 

778 

REF 

5 

LAST 

778 

REF 

1 

REF 

5 

LAST 

779 

REF 

6 

“'last 

7 79 

REF 
R E F 


4 LAST 
8 LAST  778 


REF 

1 

REF 

7 

LAST 

779 

REF 

6 

LAST 

779 

REF 

5 

LAST 

779 

REF 

6 

LAST 

779 

27.3113 

27.3114 

27.3115 
27 , 3 1 1 6 
27,3117 
•>7,3120 

27. 3121 

27.3122 

27.3123 

27.3124 

27.3125 

27.3126 

27 .31 27 
27,3130 
27,  1131 

27.3132 

27 . 3133 

27.3134 

27.3135 

27.3136 

27.3137 

27.3140 

27 . 3141 

27.3142 

27.3143 

27 .3144 

27.3145 

27.3146 

27.3147 
*27,3150 
27,3151 
2^,Mr? 

27.3153 

27.3154 
27,3165 
27 ,3156 
2^,3157 

27.3160 

27. 3161 

27.3162 

27.3163 
?7, 3164 


53361  0 
00041  1 
53744  0 
02777  1 
57177  1 
02337  1 
77650  1 
57166  1 
50375  0 
03656  1 
03537  0 
77240  1 
57146  0 
03( 56  1 
6 3 3 6 2 G 
33537  0 

53362  0 
77656  1 
57406  1 

2 35  1 
02674  0 

02673  1 
7*256  0 
00037  0 
77715  1 
77650  1 
57113  0 
74575  0 
03537  0 
7*515  0 
C 36  56  1 
53451  1 
77606  1 
75235  1 

02674  0 
02673  1 
74256  0 
00041  1 
77715  1 
533'  1 0 
00037  0 
77650  1 


GETVPVG1  VXSC 
6ETVRVG2  LXC,2 


STORE 

GOTO 

180MESS  VLUAD 


BMN 


VS-  1 

VS  >•'  1 
UNIT 
PUSH 
VXV 


UN  I T 

PDVL 

GOTO 

NEGPTOD  VI.  ">40 

PDV 

VSU 

PUSH 

VXV 

UNIT 

POVL 

VXSC 

GOTO 


REF 

1 

27,3165 

57115 

0 

27,3166 

77651 

0 

VSU 

REF 

3 

LAST 

735 

27,3167 

03553 

1 

PEF 

15 

LAST 

76  6 

27,3170 

02  3 6b 

0 

AST:-  END 

STOP  E 

27,3171 

5 313  8 

0 

FIRSTTME 

St  0 AD 

RFF 

15 

LAST 

779 

27,3172 

03000 

1 

REF 

1 

27,3173 

57177 

1 

27,3174 

52175 

0 

VLOAD 

3:15  DEC 


2 


13?  PAGE 


779 


, 1970  FLY 


USEF 'S  PAGE  NO.  28 


VAD 

320 

VSR* 

PTX2 
0 -1,2 
VI  PR  TME 

ASTRENO  -2 

DOT 

IC 

UNIT/R/ 

VTQAQ 

NEGPROD 

IC 

P0V1 

UNIT/R/ 

VAD 

FOR  A 


UNIT  C 1C— I R ) +-B 


V COM  P 

SIGN 

UN 

GEOMSGN 
VXSC 
3 OD 


GET VR VG1 
VSP  1 
UNIT/R/ 

VSR  1 
IC 

UNIT 

s i g r 

UN  FOR  B 

GEOMSGN 
VXSC 
3 2D 

VAD 

30D 

GETVRVG2 

VN1 

DEL  VEET3 
BZE 
RTX2 
GETGOBL 

GOTO  NO  OBLATENESS  COMP  IF  IN  MOON 


F7  S3 


SPHERE 
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1104 

1105 

1 1 

REF 

PEF 

16 

l 

LAST 

779 

27,31-75 

27.3176 

27.3177 

02366 
572  12 
53575 

0 

1 

0 

J 

1107 

REF 

10 

LAST 

776 

27,3200 

01221 

1 

1108 

27,3201 

4 5 3 4 5 

1 

1109 

REF 

10 

LAST 

778 

27,3202 

0 1 2 3 c 

1 

111 

REF 

3 

LAST 

733 

27,3203 

036  1 2 

1 

1111 

27,3204 

56205 

0 

1112 

REF 

1 

27,3205 

16023 

1 

1113 

27, 3206 

OOG43 

0 

1114 

27,3207 

5 3361 

0 

1 1 1 - 

pee 

1 

27 , 3 2 IP 

Q3  52  1 

1 

1116 

REF 

17 

LAST 

780 

27,3211 

02366 

0 

1117 

REF 

IP 

LAST 

780 

27,3212 

02366 

0 

1118 

27 , 321 3 

77650 

1 

1115 

REE 

1 

27,3214 

56455 

0 

GETGQBL 


NOGOBL 


1120  27,3215  31103  1 2PI+3 

1120  27,3216  36652  0 


V LOAD 
DLOAD 

DMP 

VXSC 

STOP  E 
GOTO 

2DEC 


DELVFET? 

NOGOBL 

UNIT 

RN 

DSU 

piptime 

GOB  L T I ME 
DDV 

EAR7HMU 

340 

VAD 

UNITGOBL 

0ELVEET3 

0ELVEET3 

VGA  IN* 


3:15  DEC.  2,1970  FLY  .132  PAGE 

USER'S  PAGE  NO.  29  E7  S3 

CALCULATE  OBLATENESS  TERM. 

2 

G = -(MU/R  ) (UNITGOBL) I T - TIG) 

OBL 

340  = /RN/  (2)  FROM  UNIT  OPERATION. 

OUTPUT  FROM  INITVEL  VG  = VR  - VN 
VG  = VR  + GOBL  - VN 


780 


3.141592653  B-2 


GAP:  ASSEMBLE  REVISION  OOI  OF  AGC  PROGRAM  API 1R0PE  BY  EYLES  3:  15  DEC.  2,1970  FLY  .132  ° AGE  731 

L P40-P4-7  USER’S  PAGE  NO.  30  E7  S3 

P 1 1 2 1 TR I MG  I MB  (FORMERLY  S40.6) 

R 1 1 2 2 MOO  0 24  FEB  67  PETER  ADLER 

R 1123  FUNCTION: 

R 1 1 24  TRIMS  OPS  ENGINE  TO  MINIMIZE  THRUST/CG  OFFSET . ENGINE  IS  GIMBALLEO  TO  FULL  + PITCH  AND  + ROLL  (T0  LOCK) 

R 1 1 2 6 FOR  REFERENCE  AND  IS  THEN  BR3'JGHT  BACK  T0  TRIM  POSITION  BY  PUNNING  FOR  THE  PROPER  TIMES  (TO  BE 

R 1 1 2 P SDECIFTEO  BY  GAEC)  TN  - PITCH  AND  - ROl L. 

R112P  CALLING  SEQUENCE: 

R 1 1 30  VIA  WAITLIST  FRCM  R03 

R1131  INPUT: 

R 1 1 3 2 PITTIME  TIME  " 0 RUN  F;t  1 FULL  +■  PITCH  TO  TV  IM  ( CS  ) 

R 1133  ROLLTI-'E  V!  ME  TO  ,\HN  FROM  FULL  + POLL  TO  TRIM  (CS) 

R 113'''  SUBROUTINE*!  USED: 

R 1 1 35  WAITLIST,  F I XDE  LAY , VARDELAY,  FLAGUP,  FLAGDOWN,  NOVAC 


1136  REF  1 COUNT*  $$/S40.6 

1137  REE  3 t AST  3 1-  E 6 ,101  EBANK=  ROLL  7 l‘ME  OCTAL  MASKS:  PPI05=05000  EBANK5=02400 


113  3 REF  6.p  LAST  76  2 27,3217 
1139  REF  1 27,3220 


0 551C  0 T R I MG  1 M B TC  DOWNFLAG  GMBDPVSW  FLAG  IS  SET  WHEN  EITHEP  ROLI  OR 

00137  1 ADRES  GMBDRVSW  PITCH  IS  COMPLETED,  WHICHEVER  IS  FIRST. 


1140 

REF 

3 

LAST 

757 

2 7 , 322  1 

4 5017 

0 

CS 

PR  1 05 

1141 

27, 3222 

0 CO 06 

1 

EXTEND 

1142 

REE 

6 3 

LAST 

607 

27,3223 

0 3 012 

1 

WAND 

CHAN  1 2 

1 143 

REF 

4 

L A ST 

For 

37 . 3 3 3 4 

3 c 0 1 £ 

i 

r ip 

FH*  |xi  K F 

1 

C_  IjMI'  in  j 

1 1 ■ 

27,3225 

0 0006 

1 

EXTEND 

1145 

REF 

44 

LAST 

781 

27,3226 

05  012 

1 

WOR 

CHAN  12 

1146 

REF 

14 

LAST 

759 

27,3227 

221 

0 

TC 

F I X DEL  AY 

1 1 47 

27,3230 

13560 

0 

DEC 

6000 

1 148 

REF 

4 

LAST 

78  I 

27,3231 

4 5 014 

0 

CS 

E BANK 5 

1 1 4° 

37. 4343 

r\  r.  n r,  A 

1 

F y T c N!  n 

f.  ' 1 j cL  D /!_ 

1 

CA  1 C U 

1150 

REF 

45 

LAST 

78  1 

27,3233 

03  012 

1 

WAND 

CHAN12 

1151 

REF 

9 

LAST 

73  1 

27 , 3234 

3 5017 

1 

CAF 

PR  105 

1152 

9 7 . 9 

n r.nph 

c y t P m n 

c.  i D c 3 J 

U VUvO 

i 

1153 

REF 

6 6 

LAST 

74  1 

27,3236 

Oc  012 

1 

WOR 

CHAN  12 

1154 

REF 

2 

1 AST 

314 

27,3237 

31 '402 

0 

CAE 

P ITT  T ME 

1155 

REF 

20 

LAST 

76  2 

27 , 3240 

0 5 173 

1 

TC 

TWI DOLE 

1156 

REF 

1 

27,3241 

03260 

0 

ADRES 

P ITCHOFF 

1157 

REF 

4 

LAST 

731 

27,3242 

31 ' 40  1 

0 

CAE 

rolltime 

1158 

REF 

6 

L AST 

6 05 

27,32*3 

0 52  2* 

0 

TC 

VARDELAY 

llB'v 

REF 

27 

LAST 

706 

27, 3244 

4 4740 

1 

CS 

8 IT  1 2 

1160 

27,3245 

0 0006 

1 

EXTEND 

1161 

REF 

47 

LAST 

7 1 

27,3246 

03  012 

1 

WAND 

C HAN  1 2 

1 1 2 

REF 

3 

LAST 

707 

27,3247 

3 0102 

1 

ROLLOVER  CA 

FLAGWRD6 

1163 

REF 

1 

27,  3250 

7 4 74  2 

0 

MASK 

GMBOA BIT 

1166 

27 , 32  5 1 

€ 0006 

1 

EXTEND 

1)65 

REF 

2 

1 AST 

781 

27 ,3252 

1 3264 

0 

BZF 

PITCHOFF  44 

1166 

PEF 

5 

LAST 

761 

27,3253 

3 4737 

0 

CAF 

PRID10 

1167 

REF 

20 

LAST 

744 

27 , 3254 

0 507? 

1 

TC 

NOVAC 

1168 

REF 

3 

LAST 

593 

E 7 , 147  1 

EBANK= 

WHOC ARES 

TURN  OFF  - PITCH,  - POLL,  IF  ON. 


TURN  ON  + PITCH,  + D 0 L L . 


WAIT  ONE  MINUTE  TO  MAKE  SURE  ENGINE  IS 
AT  FULL  + PITCH  AND  FULL  + ROLL 
TURN  OFF  + PITCH,  + ROLL. 


TURN  ON  - PITCH,  - ROLL. 


GET  T T ME  TO  SHUT  OFF  - PITCH  AND  SET  UP 
TWIDDLE-TASK  TO  TURN  IT  OFF  THEN 


GET  TIME  TO  SHUT  OFF  - ROLL  AND  GO  AWAY 
UNTIL  THEN 


SHUT  OFF  ROl L 

IF  HERE  INLINE  (POLL  DONE)  IS  PITCH  DONE 
IF  HERE  FROM  PITCHOFF,  IS  ROLL  DONE? 

NO.  SET  FLAG,  ROLL  OP  PITCH  DONE. 
'RETURN  TO  R03 


GAP:  aS-EMBLE  REVISION  001  OF  A GC  PROGRAM  AP11R0PE  bY  EYlES 


P40- 

P47 

1169 

REF 

1 

27,3255 

llb9 

REF 

1 

27,3256 

1170 

REF 

53 

LAST 

761 

27 ,3257 

1171 

PEF 

30 

LAST 

6 06 

27,7260 

1172 

27,3261 

1173 

REF 

48 

LAST 

781 

27,3247 

117^ 

REF 

1 

27, 3263 

1175 

REF 

47 

LAST 

762 

27,3264 

1176 

REF 

2 

LAST 

731 

27,3265 

1177 

REF 

54 

LAST 

782 

27,3266 

02323 

1 

2 C ADR 

TRIMDONE 

02067 

1 

0 5261 

1 

TC 

TASKOVER 

4 4742 

0 

PI TCHOFF  CS 

BIT10 

0 CC  06 

1 

EXTEND 

03  012 

1 

WAND 

C HAM  1 2 

1 3247 

1 

TCP 

ROLLOVER 

0 5504 

0 

TC 

UPFLAG 

00137 

1 

A DOES 

GMBDFVSW 

0 52  61 

1 

TC 

TASK OVER 

3:15  DEC.  2,1970 

FI  Y 

.132 

PAGE 

USER'S  PAGE 

NO. 

31 

E?  S3 

782 


SHUT  off  p itch 

SEE  IF  ROLL  HAS  FINISHED  ALSO. 

ROLL  DONE;  OR  PITCH  DONE;  BUT  NOT  BOTH 


G AP  : 


ASSEMBLE  REVISION  004  OF  A GC  PROGRAM  APllROPt  BY  EYLE$ 


3: 15  DEC 


2,1970  FLY 


132  PAGE  783 


L 

P 1178 

R 1179 

R 118  1 

R 1182 
R 1184 
R lice 
Riles 
R 1 1 8 9 
R 1 191 
R 1 193 
R 1 195 


R 1 r : 

A 1 19  7 
A 1198 
A 1 199 
A 1200 

R 1 20 1 

R 120  2 
R 12  C 3 
R 12  ' " 

I 

P 1206 


P40-°47  USER'S  PAGE  NO.  32  E6  S3 

SUBROUTINE  NAME:  S41.1  MOD.  NO.  0 DATE:  FEBRUARY  28,  1967 

, MOD.  NO.  1 DATE:  JANUAi- Y 23,  1968:  BY  PETER  ADLER  (MIT/Il) 

AUTHOR : JONATHAN  D.  ADDFLSTON  (ADAMS  ASSOCIATES) 

S41.1  PERFORMS  THE  COORDINATE  SYSTEM  T RANFORMAT ION  FROM  THE  REFERENCE  FRAME  TO  THE  BCDY  OF  THE  LM. 

SPECIFICALLY,  IT  if,  USED  TO  TRANSF  Oc  M A VELOCITY  (SCALED  AT  2 ( +7  ) METERS /CENT  IS  ECOND ) FROM  REFERENCE  TO  LM  AXIS 
COORD  I -ATES.  FI  ST  THE  VECTO,'  IS  T Ail  S FORMED  TC  THE  STABLE  MEMBER  COORDINATES  BY  THE  MATRIX  RFFSMMAT  . THIS 
LEAVES  THE  VECTOR  IF  VRAC,  SCALED  AT  2(+8)  ME7EF S /CENT  ISECON D.  THE! 

T HE  SUB I OUT  THE  LOU7'  IG  )>  CALLED  TO  SET  UP  THE  DOUBLE- PR E C I S I ON  COU  VECTOR  ALONG  WITH  ITS  SINES  AND  COSINES. 

THE  VEC  Tn  f IS  THEN  TRANSFORMED  FPCW  ST ABL E M EMBER  COORD  IN  AT FS  TO  SPACECRAFT  (OR  LM)  COORDINATES  BY  THE 
SUBROUTINE  *SMNB*.  FINALLY ( THE  VECTOR  IS  RESCALED  TO  ?(+7>  MET ER S /CENT  I SE COND , AND  CONTROL  IS  RETURNED  TO  THE 
CALLER  WITH  C(MPAC)  = VE LOC I T Y ( L M ) . 


CALLING  SEQUENCE: 


L VL.OAD  CALL 

L +t  VELOC I TY (REF ) SCALED  AT  2(+7)M/CS  IN  REFERENCE  COORDS. 

I +2  S41. 1 

L +3  ST  E VELOCITY ( LM)  SCALED  AT  2(+7)M/CS  IN  LM  BODY  AXIS  SYS. 

SUBEnuTT'ES  CALLED: 

1.  CDUTRIG, 

WHICH  CALLS  CDULGGIC. 

2.  *SMNB* 

Mi  PMAL  R-FTJ  N:  t +3  (REE  C ALL  1 NG  SEQUENCE,  ABOVE.) 

ALARM/ABORT  MODES:  NONE. 


R 1207 


RESTART  PROTECT  DM  : NONE 


GAP:  ASSEMBLE  EVISION  001  OF  AGC  PRCG:  AM  AP11R0PE  BY  EYLE3 


3: 


"40-04  7 


P 1208 

R12C9 

R 1210 

R 1211 

INPUT: 

1 . 
2. 

3 . 

REFSMMAT. 

C DUX i C DU  Y 
VELOCITY  ( 

R 12 1 2 

OUTPUT : 

R 1213 

1. 

CDUSPOT  : 

R 1214 

2. 

S INC  DU  : 1 

0 1215 

3 . 

CO SC  DU: 

R1216 

4. 

MPAC  : 

R 1217 

DFBP  IS  : 

NONE. 

R 1 2 1 c 

CHECKOLT 

STATUS:  CODED. 

COUZ. 
-F)  IN 


‘n  AC. 


DOUBLE  PKFC1GIUN  CDU  VECTOR,  ORDERED  Y,Z,X. 

HALF  c I NE5  OF  COUSPOT  COMPONENTS. 

HALF  COSINES  OF  COUSPi  T COMPONENTS. 

VELOC I TY ( L M ) (SCALED  AT  ? ( +7  ) MET E S / C FN T T S FCON 0 ) 


12  lc 

REF 

1 

COUNT*  $$/SM.l 

1220 

27,3267 

76521 

0 S41.1 

M XV  VSL 1 

122  1 

REF 

24 

LAST 

771 

27,3270 

01734 

0 

REFSMMAT 

1222 

27,3271 

77650 

1 

GOTO 

1223 

REF 

2 

LAST 

518 

27,3272 

4764.6 

0 

CDU*SMNB 

A 1T2A 


15  DEC.  2,1070  FLY  .132  PAGE  734 
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CONVERT  VECTOR  IN  MPAC  FROM  REF  AT  2<+7) 
TO  SM  AND  RESCALE  DUE  TO  HALF  UNI T MATRIX 
CONVERT  TO  BODY  AT  2 ( +7  ) USING  PRESENT 
CDU  ANGLES.  CQU*SMNB  WILL  RETURN 
VTA  PVU  TO  THE  CALLER  OF  S4I.1 


GAP:  ASSEMBLE  REVISION  001  OR  AGC  PROGRAM  AP11RQPE  BY  EYLES 


0001 

0002 

0003 

0004 

R 0005 
R 0006 
R 0007. 


THE  LUNAR  LANDING 


REF 


REF 


LAST  600 


3:15  DEC.  2,1970  FLY 
USER'S  PAGE  NO. 


32,2776  BANK  32 

32,2000  SETLOC  F2DPS-32 

32,2776  BANK 

£7,1621  EBANK-  E2DPS 

Jje*  if  *>;<>!!  $#$4$  $$$>!:  3jC  ^5  aj:  5^  S[5  #s|c  If*'## 

P63 : THE  LUNAR  LANDING,  BRAKING  PHASE 

v ^ v 'I'  o' ^ jJ'  ^ ^ ^ :{c  ^ ?Jc  ^ ^ jj*  ^ ^ 


000  H 


R EF 


COUNT  * $*/P63 


.132  PAGE  785 
EO  S3 


0009 

0010 

REF 

52 

LAST 

776 

32.2776 

32.2777 

0 5353 
04024 

1 P63LM 

0 

TC 

OCT 

PHASCHNG 

04024 

0011 

REF  215 

LAST 

759 

32 , 3000 

0 461b 

1 

TC 

BANK CALL 

DO  IMU  STATUS  CHECK  POUTINE  f 02 

0012 

REF 

9 

LAST 

75  8 

32 , 300  1 

112  54 

1 

C A D 

R 02  BOTH 

0013 

0014 


0015 

0016 


REF 

REF 


1 

26 


LAST  756 


001-1  EF  1 

00142  REF  4 LAST  758 

001 43  REF  13  LAST  7*P 

00144  REF  31  LAST  762 


REF  85  LAST 
REF  2 LAST 


76  3 
7 39 


32. 3002 

32.3003 

32.3004 

32.3005 

32.3006 

32.3007 

32 , 3010 
3 2 , 30  1 1 


3 3253  0 
55 '45  5 0 

3 2 000  0 
5 5 1 2 5 1 1 

3 4751  0 
55*515  0 

4 4753  0 
56*351  0 


P63ADRES 

WHICH 


WCHPHASE 


0017 

REF 

14  2 

LAST 

-rye, 

32,3012 

3 47  5 c 

1 

CA 

ZERO 

00175 

REF 

3 

LAST 

739 

32,3013 

55  *6  23 

0 

TS 

FLPASSO 

0018 

Dec 

6 A 

1 A Q T 

bn  a 

7*?.  1 A 

n 

r q 

QJT1 

< L r 

■J  Q 

LA  J 1 

Q U O 

J C.  1 3 'v  1 -,V 

*+  ' ( D u 

V 

Dill  . 

OC 1 9 

32,3015 

0 0006 

i 

EXTEND 

0020 

REF 

49 

LAST 

732 

3 2 , 30  1 6 

0?  0 12 

i 

WAND 

CHAM  12 

0023 

REF 

120 

LAST 

776 

32,3017 

0 6037 

0 

FL AGORGY 

TC 

INTPPET 

0024 

3 2,  3020 

43014 

0 

CLEAR 

CLEAR 

0025 

REF 

5 

LAST 

775 

32,302 1 

02663 

0 

OTH  ( T l 

002  6 

REF 

1 

32,3022 

032  71 

0 

R EOF LAG 

0030 

3 2,  302  3 

4301* 

0 

CLEAR 

SET 

0031 

REF 

1 

32,3024 

05660 

1 

LR BYPASS 

0032 

REF 

4 

LAST 

734 

32,3025 

03067 

0 

MUNFLAG 

0033 

32 , 3026 

43014 

0 

CLEAR 

CLEAR 

003:4 

REF 

3 

LAST 

502 

32,3027 

00266 

0 

P25FLAG 

003  5 

P EF 

4 

LAST 

56  5 

32,3030 

0027C 

1 

f MDVZFLG 

A 003  6 

0037 

32,3031 

77201 

1 

I GNALG 

SETPD 

V LOAD 

INITIALIZE  WHICH  FOR  BURNBABY 


INITIALIZE  DVMQN 


INITIALIZE  WCHPHAS  E AND  FLPASSO 


REMOVE  TP  ACK-EMABLE  DISCRETE. 
DIONYSIAN  FLAG  WAVING 


TERMINATE  P25  IF  IT  I r RUNNING. 
TERMINATE  P20  IF  IT  IS  RUNNING 

£ ;}:  * 5* *4^*********$**  * ***=!=  *****=!=**:{< 

FIRST  SET  UP  INPUTS  FOP  RP-TO-R:- 


GAP; 

AS  St  MR  LI.  ' L VISION  001  OF  A GC  PROGRAM  APUROPF  BY  EYl.ES 

3: 15  DEC.  2 , 

19  70 

FLY 

.132 

PAGE 

L 

THE  LUNAR  LANDING 

USER • S 

PAGE 

MO. 

2 

E 7 S3 

0038 

32,3032 

0C001 

0 

0 

AT  OD  LANDING  SITE  IN  MOON  FIXED  FRAME 

003° 

REF 

6 

LAST 

717 

32,3033 

02023 

1 

RLS 

AT  6D  ESTIMATED  TIME  OF  LANDING 

0G40 

32,3034 

41525 

0 

P DDL 

PUSH 

MPAC  MAN-ZERO  TO  INDICATE  LUNAR  CASE 

0041 

REF 

3 

LAST 

200 

32,3035 

024  01 

0 

TLAND 

004  2 

REF 

2 

LAST 

149 

32,3036 

37  62  5 

1 

S rc ALL 

TRIP 

ALSO  SET  TPTP  FOR  F- 1 5 S T GUIDANCE  PASS 

0043 

REF 

1 

32,3037 

55716 

1 

R P—  Tn— R 

004'- 

32 , 3040 

64312 

0 

VSLA 

MXV 

0045 

REE 

25 

LAST 

78  a 

32,304  1 

01734 

0 

REFS  MM AT 

0046 

REF 

3 

LAST 

2 00 

32, 304  2 

37  63  5 

0 

STC ALL 

LAND 

004  Y 

REF 

1 

32,3043 

464  32 

0 

GUI DI NIT 

GUI  DIM  1 T INITIALIZES  W.M  AND  /LAND/ 

004? 

32,3044 

45345 

1 

DLtJAQ 

DSU 

004° 

REF 

4 

LAST 

786 

12, 30 a 5 

02401 

0 

TLAMO 

0050 

REF 

1 

32,3046 

25260 

1 

GUIDDUR!' 

0051 

REF 

48 

LAST 

766 

32 , 3047 

34041 

0 

STCALL 

TDEC1 

INTEGRATE  STATE  FORWARD  TO  THAT  TIME 

0052 

REF 

ID 

LAST 

76  6 

32,3050 

27  05  7 

0 

LEMPREC 

0053 

32 ,3051 

773  31 

0 

SSP 

V LOAD 

0053  1 

r EF 

1 

32,3052 

03647 

1 

!G' L V 5 

00532 

32,3053 

00050 

1 

a OD 

0057 

REF 

7 

LAST 

769 

32,3054 

06520 

0 

UNITX 

0058 

REF 

2 

LAST 

122 

32,3055 

2.6603 

0 

STOVL 

CG 

005  9 

REF 

4 

LAST 

58  0 

32,3056 

06516 

0 

UNITY 

0060 

REF 

3 

LAST 

786 

32, 3057 

2 6 61  1 

0 

STOVL 

CG  +6 

006  1 

RFF 

7 

LAST 

70  6 

32,3060 

0651  a 

1 

UN  I T Z 

006? 

REF 

A . 

LAST 

736 

32 ,306  1 

16617 

0 

S T 7 D L 

CG  +14 

0062  1 

REF 

i 

32,3062 

25256 

1 

99999C0M 

00622 

REF 

4 

LAST 

315 

32,3063 

27665 

1 

STOVL 

DELTAH 

INITIALIZE  DELTAH  FOR  V16N68  DISPLAY 

0062  3 

REF 

12 

LAST 

76  6 

32,3064 

06522 

1 

ZEROVECS 

\ 

0062  4 

P EF 

4 

LAST 

77  1 

32,3065 

17254 

1 

STOOL 

UNFC/2 

INITIALIZE  TRIM  VELOCITY  CORRECTION  TERM 

0063 

RFF 

7 

LAS” 

776 

32,3066 

36  522 

1 

HI6ZEFPS 

006c 

REF 

3 

LAST 

200 

32,3067 

03643 

0 

STORE 

TTF/R 

0066 

32,3070 

77745 

1 

I GNALOOP 

DLOAD 

0067 

REF 

15 

LAST 

734 

32,3071 

.00015 

0 

TAT 

006  8 

REF 

LAST 

734 

32,3072 

2 7 56  1 

0 

STCJVL 

PIPTIME1 

007  y 

REF 

10 

LAST 

734 

32,3073 

00017 

1 

RATT1 

0074 

32,3074 

64312 

0 

V SL4 

MXV 

0075 

REF 

26 

LAST 

786 

32, 3075 

01734 

0 

REFSMMAT 

0076 

REF 

5 

LAST 

598 

32,3076 

37521 

0 

STCALL 

R 

0077 

REF 

2 

LAST 

734 

32,3077 

67130 

1 

MUNGRAV 

0078 

REF 

4 

LAST 

678 

32,3100 

35237 

1 

STCALL 

GOT  / 2 

0079 

RFF 

1 

32,3101 

6 2454 

0 

? GUI DS  UB 

WHICH  DELIVERS  N PASSES  OF  GUIDANCE 

R 008  0 

DDUMCALC 

IS  PROGRAMMED  AS  FOLLOWS:- 

R OOF  1 

2 

_ 

R 00°  3 

( : 1 CMZ  - 

; u ) / r + 

I ( \GtJ 

)KIGNY/B8 

+ ( SU 

- ' i ON  X ) !<  I Of  X / 34 

+ IABV AL { VGU ) - V IGN ) KIGNV/B4 

R 008  5 

2 

1 

0 

R 0 0 R 6 

OD'JM 

- 

R 008  3 10 

R 0039  2 (VGU  - 16  VGU  KIGNX/R4) 


GAP:  ASSEMBLE  RF VISION  001  A6C  PROGRAM  API  IROPE  BY  EYlES 
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P0090  2 


0097 
0097  1 
0097  2 
00c« 

0099 

0100 
0101 
0102 
0103 
CIO  i 

0105 

0106 
0107 
0103 
OIOS 

0110 

0111 
0112 
0113 
01 1 A 
0 1 1 5*  : 
0116 
Oil" 
Olio 

0119 

0120 
0121 
0122 


0123 


3:15  DEC.  2,1970  FLY 
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0 


R 00-  1 THE  NUMERATE).  IS  SCALED  IN  METERS  AT  2 (2b).  THE  DENOMINATOR  IS  A VELOCITY  IN  UNITS  OF  PllOJM/CS. 

R 0093  7 HC  GIFT  I E**T  1 ••  THU<  A “•  IN  IN)  TS  OF  2 ( 1 6 ) CFNTI  SECONDS.  THE  FINAL  SHIFT  PERCALES  TO  UNITS  OF  2(28  ) CS 

R 0095  THE;:  E IS  NR’  DAN-’  T MG  FACT'.  . THE  C)  <S  T AMT  S KIGNX/84,  KIGNY/B8  AND  KIGNV/B4  ATE  AM  NEGATIVE  IN  SIGN. 


REF 

REF 

2 

1 2 1 

LAST 

LAST 

786 

785 

REF 

3 

LAST 

200 

REF 

2 

LAST 

121 

REF 

4 

LAST 

737 

REF 

2 

LAST 

121 

REF 

2 

LAST 

200 

pep 

-3 

I ACT 

707 

i\  r r 

L M ^ 

f o / 

REF 

2 

LAST 

121 

REF 

4 

LAST 

7 ft  7 

B FF 

2 

LAST 

121 

REF 

3 

LAST 

787 

REF 

5 

LAST 

787 

REF 

2 

LAST 

121 

kef 

2 

LAST 

121 

32.3102 

32.3103 

32.3104 
32 ,313c 

32. 3106 

32 . 3107 

32.3110 

32.3111 

32.3112 

32.311 3 
32,31)4 

32.3115 

32.3116 

32.3117 

32.3120 

32.3121 

32.3122 

32.3123 

32. 3124 

32.3125 

32.3126 

32.3127 

32 , 3 13 C 

82.3131 

32.3132 

32.3133 

32.3134 

32.3135 


55 ' 646  0 
0 6037  0 
57345  1 
03627  1 
02501  1 
-V  2 3 2 1 
03633  1 
45325  1 
02477  1 
02643  1 
6522?  0 
02641  0 
57316  1 
02503  0 
65232  1 
02637  1 
57225  0 
02475  0 
02501  1 
51515  1 
03627  1 
57225  0 
02473  0 
02505  0 
43215  0 
56215  1 
77661  0 
21613  0 


DDUMCALC  TS 
TC 

DLL)  AD 


St.  6 R 


PDDL 


SR  40 


DS3 


SL4k 


ns  u 


PDVL 


DSU 


DAD 
DAD 
SR  K 


NIGNLOOP 
I NT  P R ET 
DMPR 
VGU 

KIGNX/B4 
BDSU 
VGU  +4 
DSU 
RIGNZ. 

R GU  +4 
DDDL 
P GU  +2 
DMPR 

KIGNY/B8 

PDDL 

JGU 

DMPR 

RIG  MX 

KIGNX/B4 

ABVAL 

VGU 

DMPR 

VIGN 

K I G N V / B 6 

DAD 

DDV 


FORM  DENOMINATOR  FIRST 


10D 


32,3136  43206  1 


RUSH 


DAD 


0124 

REF 

5 

LAST 

786 

32,3137 

03561 

0 

P IPT IME1 

0125 

REF 

49 

LAST 

786 

32,3140 

14041 

1 

STODL 

TOE  C.1. 

STORE  NEW 

GUESS  FOF 

NEXT  INTEGRATION 

0126 

32, 3141 

45246 

0 

ABS 

DSU 

0127 

REF 

1 

32,3142 

25262 

0 

DDUMCRIT 

0128 

32 ,3143 

45  040 

1 

BMU 

CALL 

0129 

REF 

1 

32,3144 

65163 

0 

DDUMGOPD 

0130 

REF 

26 

LAST 

710 

32,3145 

27414 

0 

INTSTAL  L 

0131 

32,3146 

43014 

0 

SET 

SET 

0132 

REF 

14 

LAST 

710 

32,3147 

01473 

0 

INTYPFLG 

0133 

REF 

13 

LAST 

71 1 

32,3150 

0 0063 

1 

MO ON FLAG 

0134 

32, 3151 

77745 

1 

QUOAD 

0136 

REF 

6 

LAST 

7«7 

32,3152 

03561 

0 

P IPTIME  1 

0137 

REF 

12 

LAST 

710 

32,3153 

25517 

0 

STOVL 

TET 

HOPEFULLY 

?GU I DSUB 

DID  MOT 

0138 

PEF 

11 

LAST 

786 

32,3154 

0C017 

1 

PATTI 

CLOBBER 

RATT1  AND 

V ATT  1 

I- 


GAP:  ASSEMBLE  REVISION  OC1  i.F  AGC  PROGRAM  AR11RUPE  3Y  EYLES 


L THE  LUNAR  LANDING 


0139 

REF 

12 

LAST 

710 

32, 3155 

25535  0 

STOVL 

RCV 

0140 

REF 

13 

LAST 

734 

32, 3156 

00025  0 

VATT1 

0141 

REF 

10 

LAST 

7 1 Q 

35543  0 

c T r A 1 1 

VCV 

1 j.  u 

J /_  f J i > t 

*0  ! O v L- 

0142 

REF 

7 

LAST 

710 

32,3160 

27107  1 

TNTEGRVS 

0143 

32,3161 

77650  1 

GOTO 

0144  REP  1 3 2 ,3162  650^0  0 T GNAL OOP 


0145 

32,3163 

54335 

0 

DDUMGOOD 

SLOAD 

SR 

0146 

REF 

4 

LAST 

739 

32, 3 16  4 

03423 

1 

ZOOM-TIME 

0147 

32,3165 

20617 

0 

14D 

0148 

32, 3166 

776  21 

1 

BDSU 

f)  1 u O 

ppc 

50 

| KT 

7 87 

32,3167 

0004- 1 

1 

T DEC  1 

V/  I *T 

LI 

LMT  I 

0150 

REF 

39 

LAST 

771 

32,3170 

27442 

0 

STOVL 

TIG 

0151 

REF 

3 

LAST 

598 

32,3171 

03527 

1 

V 

0152 

32, 3172 

53435 

0 

VXV 

UNIT 

0153 

r ef 

6 

LAST 

736 

32,3173 

03521 

1 

R 

015' 

32,3174 

7 2441 

0 

DOT 

SL1 

met 

r PC 

4 

1 KT 

73  6 

77.  3 1 7 6 

03  6 3 5 

1 

L AMD 

U 1 

tr  r 

LB. 

D 1 > 1 I 

1 

0156 

REF 

3 

LAST 

315 

32,3176 

26627 

0 

R60INI T 

STOVL 

OUTOFPLN 

0157 

REF 

5 

LAST 

786 

32,3177 

0 32  54 

1 

UNFC/2 

0158 

REF 

3 

LAST- 

122 

32, 320C 

02631 

1 

STORE 

R60VSAVE 

0162 

32, 3201 

77776 

1 

EX  IT 

A0163 

0164 

R FF 

53 

LAST 

785 

32, 3202 

0 53  53 

1 

IGNALGRT 

TC 

PHASCHNG 

0165 

32,3203 

04  024 

0 

OCT 

04024 

0166 

REF 

1 

32, 3204 

4 ' 362 

0 

ASTNCLOK 

CS 

ASTNDEX 

0167 

i FF 

216 

LAST 

78  5 

3 2 , 3205 

0 6 6 1 6 

1 

TC 

BANKCALL 

0168 

R FF 

2 

L ACT 

7 34 

32, 3206 

746  64 

0 

CARP 

ST CL PR  ? 

0169 

REF 

127 

L AST 

776 

32,321  7 

1 5155 

1 

TC  F 

ENDPF JOB 

0170 

REF 

122 

LAST 

707 

32,32 10 

0 6 037 

0 

AS  T NR  ET 

TC 

INTPRET 

0171 

32,3211 

47  131 

1 

SSP 

RIB 

0172 

p E F 

2 

L AST 

124 

32, 3212 

02747 

1 

QMAJ 

0173 

REF 

1 

32,3213 

662  15 

1 

FC  ADR 

P63SPOT? 

0174 

REF 

1 

32,3214 

31135 

1 

R51P63 

0175 

32,3215 

53575 

0 

P63SP0T2 

VLOAD 

UNIT 

01751 

FF 

4 

LAST 

788 

32 ,3216 

02631 

1 

P 60VSAVE 

01752 

F FF 

6 

LAST 

769 

32,3217 

2777  3 

1 

ST"  VL 

PCINTVSF 

01753 

REF 

8 

LAST 

7 36 

32,3220 

065  20 

0 

UNITY 

01784 

REF 

23 

LAST 

769 

32,3221 

03765 

0 

STORE 

SCAXIS 

01755 

32,3222 

77776 

1 

EXIT 

01756 

REF 

9 

LAST 

762 

32,3223 

3 5016 

0 

CAF 

EBANK7 

01757 

REF 

24 

LAST 

76? 

32,3224 

54  00  3 

0 

TS 

EBANK 

01  76 

32,3225 

0 OOU4 

0 

IN HI NT 

0177 

REF 

36 

LAST 

762 

32 , 3226 

0 4674 

0 

TC 

I BNK  CALL 

0178 

REF 

2 

LAST 

754 

32, 3227 

40142 

1 

CADR 

PFL I TEDB 

3:15  DEC 
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USER'S  PAGE  NO.  4 E7  S 3 


COMPUTE  DISTANCE  LANDING  SITE  WILL  BF 
OUT  OF  LM'S  ORBITAL  PLANE  AT  IGNITION: 
SIGN  IS  + TF  LANDING  SITE  IS  TE  THE 
FIGHT,  NORTH";  - IF  TO  THE  LEFT,  SOUTH. 


INITIALIZATION  FOR  CALCMANU 

STORE  UNF C/2  TEMPORARILY  IN  P60SAVE 

PREVENT  REPEATING  IGNALG 


RETURN  IN  NEW  JOB  AND  IN  EBANK  FIVE 


GO  DICK  UP  DISPLAY  AT  END  FF  P51: 
"PROCEED"  WILL  DO  A FINE  ALIGNMENT 
" ENTEf  " WILL  F ETURN  T0  P6 3 SPOT 2 

INITIALIZE  KALCMANU  FOR  BURN  ATTITUDE 


GAP:  ASSEMBLE  REVISION  001  UF  A6C  PROGRAM  API 1RQPL  BY  EYLES 


01?9 

018G 
018  1 

OIF? 

0183 

0184 

0185 

0186 

0187 

0188 

0189 
0180 
019  1 

0192 

0193 

0194 

0195 

0194 

0197 


R 0198 
R 0199 


THE  LUNAR  LANDING 


REF  21 7 LAST  788 
REF  5 LAST  754 

0CF  54  LAST  7«9 


s E F 3 9 

REF  21 

P EF  1 

REF  1 
P EF  213 
REF  4 
REF  30 
REF  1 

REF  219; 
• EF  1 

REF  4 5 
REF  2 


LAST  681 
LAST  604 


LAST  tcq 
LAST  1h° 
I AST  759 


LAST  *7o9 


LAST  762 
LAST  754 


32.3230  0 0003  1 

32. 3231  0 4616  1 

32.3232  54123  0 

32.3233  9 c353  1 

32.3234  04024  0 


32.3235 

32.3236 

32.3237 
32 , 324  0 

32.3241 

32.3242 
32,  324  3 

32,3244 

32,3248 

32.3246 

32.3247 

32.3250 

32.3251 

32.3252 


RELINT 

TC 

CADE 

TC 

ncT 


8 ANKCALL 
P.601.  EM 

PHASCHNG 

04024 


3 4746  0 
0 0006  1 

02  033  0 
0 0006  1 
1 3247  1 

3 3254  1 

0 4616  1 
20623  1 

1 6001  1 
1 3235  1 

0 4616  1 
67721  1 

0 4635  0 
74126  1 


P 6 3 S P U V 3 CA 


CAE 

TC 

C ADR 

tcf 

TC  F 

PO3SP0T4  TC 

C A DP 

TC 

C ADR 


CODE?  00 
B ANKCALL 
GO  P E R F 1 
GOTO°nCH 
P63  SPOT  3 

BANK CALL 
SETP0S1 

POST  JUMP 
BIJRMBARY 


CONSTANTS  FOR  P-3LM  AND  TGMALG 


0200 

REF 

2 LAST 

...  749 

32, 3253 

C2  076 

1 

P63ADKES 

GEM ADR 

P63T  ABLE 

0202 

P EF 

2 LAST 

45  8 

436  2 

ASTNDEX 

= 

MD1 

0203 

3 ?,  32  54 

005  00 

1 

CUDE500 

oc  r 

005C0 

02035 

32, 32*6 

00035 

1 

q Q Cl  Q C C 0 N 

?DEC 

30479.7  R- 24 

02035 

32,3256 

30373 

0 

0204 

32,325T 

00  004 

0 

GUI  DDUF  N 

2 DEC 

+ 66440 

020  4 

32, 3260 

01610 

1 

020  5 

32,3261 

00000 

1 

ODUM C° IT 

2DEC 

+8  B-28 

0205 

32,3262 

00010 

0 

< 
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FL  Y 

.132 

PAGE  789 

..l 

USER'S  PAGF 

NO. 

5 

E7  S3 

PREVENT  PECAI  LING  R60 

IS  THE  LP  ANTENNA  IN  POSITION  1 YET 

BRANCH  IF  ANTENNA  ALREADY  IN  POSITION  1 

ASTRONAUT:  PLEASE  CRANK  THE 

SILLY  THING  AROUND 

TFRM1 NATE 

PROCEED  SFF  IF  HE'S  LYING 

ENTER  INITIALIZE  LANOING  RADAR 

OFF  TO  SFF  TME  WIZARD... 


OCT  25;  INDEX 


FOR  CL  0KT  A SK 


GUIODURN  +6.6440031 4E+  2 


CRITEP10N  FOR  IGNALG  CONVERGENCE 


GAP  : 
L 


ASSEMBLE  REVISION  00 1 E A SC  Pi  CG  AM  API  1.*  OPE  PY  EYLES 

3:15  DEC.  2, 

1970 

FLY 

.132 

PAGE 

THE  LUNAR  LANDING 

USER  * S 

PAGE 

MO. 

fc 

E7  S3 

R.  0206 


GAP: 


P 0207 
R020P 
R 0209 

02  1C 
0211 
0212 

0213 

02  1' 
02 1 r 

02151 
02 1 6 
0217 

02  lc 
0220 

022  1 
022  2 
0223 
02  2 A 

0225 

0226 

0230 

0231 

0232 

0233 

0234 

0235 

0236 
02  3 7 
02  3 p 
023r: 

024  0 

0241 

0242 

0243 

0244 

0245 

0246 

0247 

0248 
02  4 c 

025  0 


02!:  1 


ASSEMBLE  REVISION  001  UP  AGO  PROGRAM  A°]1R0PE  BY  EYLES  3:15  DEC.  2,1970  ELY  .132  PAGE  791 

THE  LUNAR  LANDING  USER'S  PAGE  NO.  7 E7  S3 

jJcjft**  5}:  Jjc#$:j:sjcj{c:jt:fc  sjc  *>}:>!;  jj:  # $ 4=*=Se  * 

P68 : LANDING  CONFIRMATION 
* » ajc# »» *4  4 4*44**44  44  44 


REF  2 


LAST 


39 


31,2164 

31,2000 

31,2144 


BANK  31 
SETLOC  F20PS631 
BANK 


REE  1 


C UNT*  $$/P656  7 


REF  55 


REE  22 G 
REF  6 

REF  R21 
REF  1 


REF  123 


r e F 

p r f 

14 

1 

3 

“ ti  i 

REF 

REF 

1 1 

E EF 

3 

’EF 

1 1 

REF 

3 

REF 

2 

REF 

12 

REF 

12 

REF 

1 

REF 

7 

REF 

1 

REF 

222 

REF 

22 

REF 

31 

REF 

124 

LAST  789  31,2144  0 5363  1 LAND JUNK  TC 

31,2146  04026  0 OCT 


PHASCHNG 

04024 


3 1 ,2146  0 C 004  0 

LAST  7*9  31,2147  0 4616  1 
LAST  756  31,21-0  40153  1 


INHINT 

TC  BANKCALl 

C A DP  ZATTEROP 


I.  AST  7ci  31,2151  0 7.616  1 

31,2152  4C127  1 


TC  BANKCALL 

CADP  SETMAXDB 


LAST  788 
LAST  656. 


LAST  774 
LAST  78L 
LAST  657 
LAST  780 

LAST  656 
LAST  657 


LAST  7rU 
LAST  791 


LAST  7 3 ( 


LAST  791 
LAST  748 
LAST  7,8  0 


31.2153 

31 .2154 

31.2155 
3 1,2156 
31,2157 
3 1, 2160 

31.2161 

31.2162 

31.2163 

31.2164 

31.2165 

31.2166 

31.2167 
3 1 ,2170 
31,2171 
3 1,217'’ 

31.2173 

31.2174 
.31,2175 

31.2176 

31.2177 
3 1 , 2200 
3 1 , 220  1 

31.2202 

31.2203 

21.2204 

31 . 2205 


0 6037  0 
43014  0 
04067  1 
04666  0 
77214  0 
05062  0 
01221  1 
16032  1 
01235  1 
45014  0 
01 4c 3 1 

26351  1 
772G1  1 
CC001  0 
01221  1 
65352  0 
01235  1 
45006  0 
5 1 6 7 Q 1 
■ 2023  1 
'7776  1 
3 2215  0 

0 4616  1 
20476  0 

1 6001  1 
1 2206  0 
1 2200  0 


TC 

INTPRFT 

SET 

CLEA’ 

SURFFLAG 

lftabort 

SET 

V LOAD 

APSFLAG 

RN 

STOOL 

SET 

ALPHAV 

P 1 p ri  M E 
CALI 

SE  T PD 

LUNAFL AG 
L AT-LONG 
VLOAD 

0 

RN 

VS  L 2 

R DDL 
PIPTIME 

PUSH 

CALL 
—TO—  ! 

STORE 
EX  IT 

RLS 

CAF 

V06N43* 

TC 

BANKCALL 

CADP 

GOFLASH 

TCF 

GCTGPOOH 

TC  F 

+ 2 

TCF 

-5 

LAST  791 


31 ,2206  0 6037  0 


TC  INTPRET 


ZERO  ATTITUDE  ERROr. 


SET  F DEGF  EF  DEADBAND 


TO  INTERPRETIVE  AS  TIME  IS  NOT  CRITICAL 


COMPUTE  ELS  AND  STORE  IT  AWAY 


ASTRONAUT : NOW  LOOK  WHERE  YOU  ENDED  UP 


TERMINATE 
PROCEED 
F ECYCL  E 


GAP:  ASSEMBLE  REVISION  00  1 OF  AGC  PROGRAM  API  1RC3PE  BV  EYLES 

L THE  LUNAR  LAND ING 


0252 

31,2207 

77775 

1 

VLOAD 

0253 

REF 

q 

LAST 

788 

31,2210 

06520 

0 

UNI  T X 

025  A 

REF 

5 

LAST 

2 02 

31,221  1 

36231 

1 

STCALL 

GSAV 

0255 

REF 

1 

31,2212 

33506 

1 

REF  ME 

0256 

3 1 ,2213 

77776 

1 

EXIT 

0257 

REF 

32 

LAST 

7^1 

3 1, 22 14 

1 6001 

1 

TCF 

GOTOPOOH 

025  A 

31,2215 

01453 

1 V06N43* 

VN 

0643 

3:15  DE 


INITI 

YMB 


C.  2 

, 1970 

FLY 

.132  PAGE 

USES  * 

s page 

NO. 

8 E7  S3 

AL  I ZE 

GSAV 

AND 

( USING  PEFMF ) 

SAV, 

ZNBSAV 

AND 

ATTFLAG  FOR  P57 

792 


ASTRONAUT:  PLEASE  SELECT  P57 


i 


GAP:  ASSEMBLE  r.EVlSICN  001  iF  AGC  PROGRAM  AP11R0PE  BY  EYLES 


0001 

0002 

0003 

0004 

0005 
R 0006 

R OOOP 

0010 
0011 
0012 
001? 
001 A 

0015 

0016 

0017 

0018 
00  lc 
00  2 C 
0021 

R 002? 


TH  « rut  C IT  ' L ROUT  TIES 

31,2216 

REf  2 FAST  AO  31,2000 

31,2216 

RFF  2 LAST  149  E7,1612 

REF  2 LAST  40  TO  40:  5,  5* 

)jt  ^ ^ 3^  ^ Jjc  * )lc  ^ 5^  * >}:  $ £ # ❖ # 


3:15  DEC.  2,1970  FLY 
USER'S  PAGE  NO. 


.132  PAGE  793 
1 EO  S3 


BANK  31 
SETULC  F INPUT 
BANK 

E B A N K = PIF 
COUNT 4 $ $/ THROT 


* * * 


* # =!=  # * 3=  # Jjt 

HF°  F FC,  DESIRED  THE  1 1 S T , AND  FP,  PRESENT  Thl'JST,  UNWEIGHTED,  AP  F COMPUTED. 


REF 

REF 

REF 
REF 
R EF 

REF 

REF 

REF 

REF 


3 LAST  211  31,2216  3 124b  0 THROTTLE  CA 


LAST  149 


LAST 

LAST 

LAST 

LAST 


140 
79  3 
200 
140 


31,2217 

31. 2220 

31.2221 

31.2222 

31 .2223 

31 .2224 
3 1 , 222  5 

31 . 2226 

31.2227 
31 , 2230 
3 1 , 22  31 


0 0006 
7 24. 1 1 
0 0006 
23 ' 607 
0 2400 
53' 470 
0 0006 
3 1 A 64 
0 2400 
5 5 ' 6 1 5 
53 ' A66 


+ 3 


AFDUMP 


EXTEND 

MR 

EXTEND 

QXCH 

TC 

OXCH 
E X r EN  D 
CCA 
TC 
TS 

DXCH 


A6DELV 

/AF/CNST 

RTNHOLD 

MASSMULT 

FP 

/AFC/ 
MASS  MU I T 
FC 

FCOOD 


COMPUTE  PRESENT  ACCELERATION  IN  UNITS  OF 
2(-4)  m/CS/CS,  SAVING  SERVICER  TROUBLE 


FP  = PRESENT  THRUST 


FC  = THRUST  DESIRED  BY  GUIDANCE 
FCODD  = WHAT  IT  IS  GOING  TO  GET 


r I"  HA!  PtF  LESS  HA ' 3 SECONDS  SI'-'CE  THE  LAST  TH  NTT  LI  TO,  AUGMENT  FP  USING  THE  FWEIGHT  CALCULATED  THEN. 


002^ 

REF 

2 

LAST 

149 

31,2232 

4 

1617 

1 

0025 

RFF 

8 

J A CT 

744 

a 

( r ? s 

n 

'Ll 

L_  A-\  J . 

J 1 K 6 U 

o 

0026 

REF 

13 

LAST 

557 

3 1 , 22  3 4 

7 

4 7 33 

0 

0027 

31,2235 

4 

f 000 

0 

00  2 P 

REF 

1 

31 , 2236 

6 

c002 

0 

0029 

31,2237 

0 

0006 

1 

0030 

REF 

1 

31,2240 

6 

2244 

1 

0031 

3 L,  2241 

0 

C006 

1 

003  2 

RFF 

2 

LAST 

149 

31,2242 

3 

1611 

0 

0033 

P EF 

2 

LAS'* 

7«3 

3 1,224  3 

21 

’470 

I 

CS  T THROT 

AD  T I ME  1 

MASK  POSMAX 
COM 

AD  3 SECS 

EXTEND 

BZMF  WHEFETO 
EXTEND 

DC A FWEIGHT 
DAS  FP 


THIS  CODING  ASSUMES  A FLATOUT  WITHIN 
„ BO  SECONDS  BEFORE  FIRST  THROTTLE  CALL 


BRANCH  IF  (rIMEl-TTHROT  +1)  > 3 SECONDS 


> P 003 A 
R 0036 
R 003 F 

> 


THIS  LOGIC  DETERMINES  THE  THROTTLING  IN  THE  REGION  10*  - 945g.  THE  MANUAL  THROTTLE,  NOMINALLY  SET  AT 
MINIMUM  BY  ASTRONAUT  0'  ' ISSIuN  CCNT’  OL  PROGRAMS,  PROVIDES  THE  LOWER  BOUND.  A STOP  IN  THE  THROTTLE  HARDWARE 

PROVIDES  the  UPPE<  . 


003  9 
\ 0040 


REF  5 LAST  781  31,2244  3 5014  1 WHERETO  CA 

REF  25  LAST  788  31,2245  54  003  0 TS 


EBANK5 

EBANK 


INITIALIZE  L*WCR*T  AND  H*GHCP*T  FROM 
PAD  LOADED  ERASABLES  IN  W-MATRIX 


I 


I 


1" 


GAP: 

L. 

0041 

0042 

0043 

0044 

0045 

0046 

004  7 

004  8 

004  9 

005  0 

0051 

0052 

0053 

0054 

0055 

005  6 

0C  57 

005  P 

0059 

006  0 

0061 

0062 

00b3 

0064 

006  5 

0066 

006  7 

006  8 

006° 

0070 

A 0071 

A0072 

A OC  1 

A 007  5 

A 0076 

A 0097 

A 007  8 

0061 

008  2 

0083 

0084 

0085 

0086 


ASSEMBLE  REVISIT'  001  OF  AgC  PROGRAM  APllKCPE  BY  EYLES 


3:15  DEC 


2,1970 


132  PAGE  794 


fly 


throttle  control  i f urn  fs  user's  page  no.  2 ei  S3 


REF 

2 

1 AST 

121 

E5 , 1506 

EBANK  = 

LOWCRIT 

3 1 , 2246 

0 

0006 

1 

EXTEND 

RF.F 

3. 

LAST 

794 

31,2247 

3 

1507 

1 

OCA 

LQWCRIT 

REF 

i 

31 ,2250 

52 

131 

0 

DXCH 

t *WCF *T 

REF- 

7 

LAST 

788 

31 , 2251 

3 

5 C 1 6 

0 

CA 

EBANK7 

RFF 

26 

LAST 

793 

31  ,22^2 

54 

003 

0 

TS 

EBANK 

REF 

3 

LAST 

7°  3 

F7, 1612 

EP  ANK  = 

PIF 

REF 

143 

LAST 

785 

3 1, 2253 

4 

4755 

0 

CS 

ZERO 

INITIALIZE  PIFPSET 

REF 

2 

LAST 

149 

31,2254 

56 

• : 

1 

TS 

P IFPSET 

REF 

1 

31, 2255 

4 

Cl  31 

0 

CS 

H*GHCR*T 

REF 

2 

LAST 

149 

31 , 2256 

6 

162  0 

1 

AD 

FCOLD 

31 , 2257 

0 

0006 

1 

EX I END 

REF 

1 

31 , 2260 

6 

2272 

1 

BZMF 

L GW  F COL D 

BRANCH  IF  FCOLD  < OR  = HIGHCR 

REF 

2 

LAST 

794 

3 1, 2261 

4. 

0130 

1 

CS 

L*WCR*T 

REF 

3 

LAST 

7 53 

31 , 2262 

6 

1465 

1 

AD 

FCCOD 

31,2 2 f 3 

0 

f 006 

1 

EXTEND 

PEE 

1 

31,2264 

6 

22  67 

0 

BZMF 

FCOMPSET 

BRANCH  IF  FC  < OR  = LOWCRIT 

PFF 

L J C T 

79  3 

•j  1 , 2266 

3 

1 467 

0 

C £ 

F p 

SEE  NOT E 1 

REF 

1 

31, 2266 

1 

2277 

0 

TC  F 

FLA TOUT  1 

REF 

1 

31, 22  6 7 

4 

2 002 

0 

FCOMPSEl 

CS 

FMAXODD 

SEE  NOTE  2 

REF 

4 

LAST 

79  6 

31,2270 

6 

146  7 

0 

AD 

FP 

0 E F- 

1 

31,2271 

1 

2 301 

0 

TC  F 

FLATOUT? 

REF 

2 

LAST 

794 

31,2272 

4 

0131 

r\ 

U 

10WFCOLD 

CS 

H*GHCR*T 

REF 

4 

LAST 

794 

31, 2273 

6 

1 

AD 

FCODD 

31,2274 

0 

0006 

1 

EXTEND 

0 EF 

1 

31 , 2275 

6 

2 30  2 

1 

BZ  MF 

OOP  IF 

BRANCH  IF  FC  < OF  = HIGHCRIT 

REF 

1 

3 l , 2276 

3 

2 003 

0 

CA 

F MAX  PPS 

NO:  THFOT  TIE-UP 

REF 

5 

LAST 

794 

3 1 , 2277 

53 

'466 

0 

FL  AT0UT1 

DXCH 

FCODD 

REF 

1 

31 , 2300 

3 

6737 

0 

CA 

FEXTR A 

REF 

3 

LAST 

794 

31,2301 

55 

'606 

1 

FLAT0JT2 

TS 

PIFPSET 

NOTE  1 EC  IS  SET  EQUAL  Tf  FP  SO  PIF  WILL  BE  ZERO.  TH! S IS  DESIRABLE 
AS  THERE  IS  ACTUALLY  NO  THROTTLE  CHANGE. 


NOTE  2 


HERE,  SINCE  WE  ARE  ABOUT  TO  RETURN  TO  tHE  THROTTLEABLE  REGION 
(BELOW  55%)  THE  QUANTITY  -(FMAXODD  - FP ) T$  COMPUTED  AND  PUT 
INTO  PI E PS  ET  TC  COMPENSATE  FOP  THE  DIFFERENCE  BETWEEN  THE 
NUMBER  OF  BITS  COS R E5 PON DING  TO  FULL  THROTTLE 
NUMBER.  COF  RESPONDING  TO  ACTUAL  THRUST  (FP). 

THROTTLE  COMMAND  PIF  = FC  - FP  - ( FM AXODD  - FP) 


(FMAXODD)  AND  THE 
THUS  THE  TOTAL 
= FC  - FMAXODD. 


REF 

I 

31,2302 

0 

3740 

1 DOPIF 

TC 

FASTCHNG 

31 , 2303 

0 

0006 

1 

EXTEND 

REF 

6 

l AST 

7C4 

31  , 2304 

3 

1466 

1 

DC  A 

FCODD 

REF 

3 

LAST 

794 

31 ,2305 

55 

•620 

0 

TS 

FCOLD 

REF 

4 

LAST 

794 

31 , 2306 

53 

•613 

0 

DXCH 

PIF 

31 , 23C  7 

0 

0006 

1 

EXTEND 

GAP: 

L 

0067 

0088 


0080 

0090 

009] 

009? 

0093 

0096 
009  5 
00°  6 

0097 

RQ098 
R0100 
R 01  02 

R 0103 
R0104 
R 01 0 5 

ROir  - 

RCinp 
R 0 1 10 

011.2 

0113 

0114 
0116 
0116 
01  17 

0118 

011° 

0120 

0121. 

0122 

0126 

01261 

01262 

01263 

0127 

012P 

012° 

0130 

0131 

0132 


ASSEMBLE  REVISION  GUI  OF  A GC  PROGRAM  AP11R0PE  BY  EYLES 
THR  P rTl  E CONTR  OL  f OUT  I ME  r 


REF 

5 

LAST 

794 

3 1,2310 

4 1470  1 

DCS 

REF 

5 

LAST 

794 

31,2311 

2 1 ' 6 1 3 0 

DAS 

REF 

6 

LAST 

795 

31, 2312 

3 1612 

0 DOT  T 

CA 

n tr  r 

A 

I AST 

7 O L 

31,2313 

6 16Q6 

0 

AD 

K r r 

REF 

3 

LAST 

200 

31,2314 

5 5 ' 6 1 4 

1 

TS 

REF 

4 

LAST 

760 

31,2315 

54  05  5 

0 

TS 

REF 

31 

LAST 

760 

31 , 2316 

3 Hi  50 

1 

CAP 

31,2317 

0 C0C6 

1 

EXTEND 

REE 

10 

LAST 

760 

31 ,2320 

05  01^- 

1 

WUR 

i;  C7C 

o ■ 

1 A ^ T 

793 

793 

31 ,2321 

3 1,2  122 

'3  0025 
•617 

o 

CA 

TS 

aCl 

REF 

7 

3 

Lao  1 

LAST 

1 
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FP 

PIF  PIF  = FC  - FF,  NEVER  EQUALS  +0 


PIF 

PIFPSET  ADD  IF  PIFPSET,  W I THOUT  CHANGING  PIF 

PSEUDC55 

THRUST 

RIT4 

CHANT  A 

TIMF1 

TTHROT 


SINCE  /AF/  IS  NOT  AN  INSTANTANEOUS  ACCELERATION,  BUT  RATHE:  AN  "AVERAGE"  OF  THE  ACCEL  EF  AT  I ON  LEVELS  DURING 
THE  PR. EC  ££0,1  NO  P I RA  i'  F VAL,  AND  SINCE  FP  IS  COMPUTED  DIRECTLY  FROM  /AF/,  FP  IN  ORDER  TO  CORRESPOND  TO  THE 
ACTUAL  THRUST  LEVEL  AT  THE  END  OF  THE  INTERNAL  MUST  «E  WEIGHTED  BY 


P I F ( PPROCES S + TL ) PIF  /PIF/ 

FWEIGHT  = + 

PGUID  2 PGUID  FRATE 


WHERE  PPP  OCFSS  IS  THE  TIME  BETWEEN  PIPA  'FADING  AND  THE  STAR  f OF  THROTTLING,  PGUID  IS  THE  GUIDANCE  PERIOD,  AND 
F'  ATE  IS  THE  THROTTLING  - ATE  (32  UNITS  PE'  C FNT  I S EC!  DO ) . PGUID  IS  EITHER  1 OF  2 SECONDS.  THE  "TL"  IN  THE 
FIRST  TERM  REPRESENTS  THE  ENGINE'S  ESPCUSE  LAG.  HE  E FWEIGHT  IS  COMPUTED  FOP  USE  NEXT  PASS. 


REF 

2 

LAST 

151 

31,2323 

3 1762 

0 

CA 

THI-STPI  P 

+ 1 

INITIALIZE  FWEIGHT  CDMP  AS  IF-  FOP  P66 

REF 

49 

LAST 

457 

31,2324 

54  130 

1 

TS 

BUF 

°EF 

12 

LAST 

683 

31,2326 

4 1011 

1 

CS 

( Df  EG  % 

APE  WE  IN  FACT  IN  P66? 

P EF 

1 

31,2326 

6 2501 

1 

AD 

DEC66 

31,2327 

0 0G06 

1 

EXTEND 

FvEF 

1 

31,2330 

1 2 33  5 

1 

6ZE 

FWCGMP 

YES 

IFF 

13 

LAST 

791 

31,2331 

3 1235 

1 

CA 

PIPTIMF 

+ 1 

NO:  INI T I A 1 IZE  FOR  TWO  SECOND  PERIOD 

REF 

5 0 

1 AST 

795 

31 ,233? 

54  130 

1 

TS 

RUE 

R FF 

2 

LAST 

165 

31 , 2333 

3 KD03 

1 

CAE 

4SECS 

REF 

2 

LAST 

795 

31,2334 

1 2 3 36 

1 

TCP 

FWCOMP 

+ 1 

REF 

5 

LAST 

605 

31  , 23  3 n 

3 5000 

1 

F WCC Mp 

CAF 

2 SECS 

REF 

154 

LAST 

76  3 

31,2336 

54  CC2 

1 

+ 1 

TS 

Q 

31,2337 

0 rO06 

1 

EXTEND 

REF 

40 

LAST 

789 

31, 2340 

7 4746 

1 

•MP 

BIT6 

REF 

51 

LAST 

795 

31,2341 

22  131 

1 

LXCH 

BUF  +1 

REF 

52 

LAST 

795 

31,2342 

4 0130 

1 

C.S 

3UF 

TIME  OF  LAST  PIPA  RFADING. 

REF 

1C 

LAST 

795 

31,2343 

6 0025 

0 

AD 

T I ME  1 

REF 

1 

31,2344 

6 2 C 0 4 

1 

AD 

T HROn  AG 

COMPENSATE  FOR  ENGINE  RESPONSE  LAG 

REF 

4 

LAST 

460 

31, 23  4.5 

7 4357 

0 

MASK 

LOWR 

MAKE  SURE  S^ALL  AND  POSITIVE 

31,2346 

22  007 

0 

ZL 

31 ,2347 

0 0006 

1 

EXTEND 

SAP  : 


0133 

0134 

0135 

0136 

0137 
013R 

0139 

0140 

0141 

0142 

0143 

0144 
014  ‘ 
0 1 4f 
014  7 


014« 


R 0149 

0151 

015? 

0153 

0154 

0155 

0156 

0157 

oi5s 


R 015'. 

0161 

016? 

0163 

0164 

0165 
01 

0167 
016  8 

0169 

0170 

0171 
01  72 

0173 

0174 

0175 
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REF  195  LAST  795  31,2350 

31  , 2351 

,EF  7 LAST  795  31,2352 

31,2353 

REF  3 I A^T  793  31,2354 

REF  8 LAST  796  31,2355 

REF  86  LAST  785  31,2356 

31 ,2357 

REF  87  LAST  7^6  31,2360 

31  ,23'  1 

REF  9 LAST  7^6  31,236? 

31 , 2363 

REF  53  LAST  795  31,2364 

31 , 2365 

REF  4 LAST  796  31,2366 


REF  3 LAST  793  31 , 2367 


10  C02 

1 

DV 

Q 

0 0006 

1 

EXTEND 

7 1612 

1 

MP  : 

PIF 

fc  0000 

1 

DOUBLE 

53*611 

1 

DXCH 

FWEIGHT 

11*612 

1 

CCS 

PIF 

6 47  5 3 

1 

AD 

ONE 

1 2361 

0 

TCF 

+ 2 

6 4753 

i 

AD 

ONE 

0 C 006 

i 

EXTEND 

7 1612 

l 

MP 

PIF 

0 0006 

i 

EXTEND 

10  131 

0 

DV 

BUF  +1 

22  007 

0 

ZL 

21*611 

1 

DAS 

F WE  IGHT 

r- 

o 

c 

o 

1 THDUMP 

rc 

R T NHL’  L D 

FLAT OUT  THROTTLES  HP  THE  DESCfc  ;T  ENGINE,  AND  IS  CALLED  AS  A SASIC  SUBROUTINE. 


REF 

28 

LAST 

74  1 

31 ,2370 

3 4737 

0 

FLAT OUT 

C AF 

B IT  1 3 

4096 

PULSES 

REF 

5 

LAST 

7 a f, 

31 ,2  37  1 

6 6’^ 06 

1 

WHATOUT 

TS 

PIFPSET 

USE 

PIFPSET 

SO  FWEIGHT  WILL  BE  7 EPQ 

REF 

144 

LAST 

794 

31,2372 

4 4755 

0 

CS 

ZERO 

PEF 

4 

LAST 

794 

31 ,2373 

55 ' 620 

0 

TS 

FCOLD 

REF 

10 

LAST 

796 

31,2374 

55*612 

1 

TS 

PIF 

31,2375 

0 0006 

1 

EXTEND 

PEF 

4 

LAST 

7°6 

31 ,2 376 

23*607 

1 

DXCH 

RTNHOLD 

PFF 

1 

31 , 2377 

1 2312 

1 

TCF 

DOIT 

o CAL  ACC  EL  ERA  I , A IVING  IN  A AND  L \1  UNITS  OF  2 ( - 0 ) M/CS/CS,  TO  FORCE  IN  PULSE  UN] 


31 ,2400 

0 0006 

1 

MASSMULT  EXTEND 

REF 

54 

LAST 

796 

31 ,240  1 

22  130 

0 

QXCH 

BUF 

REF 

294 

LAST 

774 

31 ,2402 

52  155 

1 

DXCH 

MPAC 

REF- 

15 

LAST 

435 

31,2403 

0 7103 

1 

TC 

DMP 

REF 

5 

LAST 

295 

31 ,2404 

01244 

Ancrc 

M jc  r 

REF 

16 

LAST 

796 

31 , 2405 

0 7103 

1 

r*  U " O 

TC 

63  v* 

DMP 

LEAVES  PROPERLY  SCALED  FORCE  IM  MPAC 

REF 

1 

31 ,2406 

0200  5 

0 

ADRES 

SCAL  EF AC 

REF 

In 

LAST 

774 

31 ,2407 

0 7257 

0 

TC 

tpagref 

REF 

295 

LAST 

796 

31,2410 

3 015*- 

1 

CA 

MPAC 

31,2411 

0 0006 

1 

EXTEND 

31,2412 

1 2415 

1 

BZF 

+ 3 

REF- 

14 

LAST 

793 

31,2413 

3 4733 

1 

CAF 

PQSMAX 

REF 

55 

LAST 

796 

31,2414 

0 0130 

0 

TC 

BUF 

PEF 

296 

LAST 

796 

31 ,2416 

52  156 

1 

DXCH 

MPAC  +1 

REF 

56 

LAST 

796 

31,2416 

0 0130 

0 

T C 

BUF 

GAP: 

L 

R 01  76 
0177 
0180 
R0181 
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CONSTANTS 

REF  29  LAST  796  4737  PEXTRA 

31  ,24  17  04143  0 / AF/CNST  DEC 
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USER'S  PAGE  NO.  5 E7  S3 

B IT  1 3 FEXT  +5. 133090-20E  + 4 

.13107 


# # * * 


> 

GAP:  ASSEMBLE  REVISION!  001  CF  AGO  P.  OGRAM  API  lli OPE  BY  EYL&S 

k L tUNAF  t.ANQI:  G GUIDANCE  EQUATIONS 


3: 15  DEC.  2,1970  FLY 
USER  * S PAGE  NO. 


.13?  PAGE  798 
1 EO  S3 


PO<  1 


1 


0002 


0003 


R0004 
R COOT 
I R 0009 


REF 

2 

LAST 

7B5 

E7,  1621 

E8ANK= 

E2DPS 

REF 

2 

LAST 

0 

— i 

D 

40: 

2 

2 * 

COUNT  * 

i*/F2DPS 

>Jc  # sjcsjssjojc####  ###  tjcajojc  * ###  sjc#  # # 3»c3{c ^J«  3cs{«  s{c  * # jjejJe  3*cj*c  sjcsjc  s}e  % # aflcs^'afie ijc  sjc  sjc##  * #:$:#  ajesjcrfcajc  sjc#  ##  ##:$:  sjc  ajcajc # s{c 

LUNAP  LANDING  FLIGHT  SEQUEMGfi  TABl  ES 

❖ * * *■ * Sfic  ij<  ^ :Jc  * Jje  # i}c  ije  £ * 5jf  $ ^ * * ;Jc  sjf  # * jjc  >Jc  |c  * * & & # # # £ tJi  $ ^ j$c  $ $ $ £ jJ<  # # # # a^  $ -!<  * a{t;js  ajeafc  ajc  sj«  j{e  ?{:#  ;*?  * # # j|*  # # ❖ * ❖ sje  $ * <?*# 

FLIGHT  SEQUENCE  TABLES  A E A'-  ANGED  3Y  FUNCTION.  THEY  ARE  REFERENCED  USING  AS  AN  INDEX  THE  REGISTER  WCHPHASE: 


A 001 1 
> A 0012 

A 001  3 
A CO  1 4 

1 

r oni K 


WCHPHASE 

WCHPHASE 

WCHPHASE 

WCHPHASE 


-1  > 

0 > 

1 > 

2 > 


1GNALG 
BR  AKQUAD 
APPRQUAD 
VERTICAL 


************************  **********  **  **  ************************  **************;^  ********************  ************** 


R 00  17 

ROUTINES 

FOP  STARTING  NEW  GUIDANCE 

001  8 

REF 

1 

31 , 24  20 

1 

2 6 

0019 

P EF 

2 

LAST  798  31,2421 

1 

26 

0020 

REF 

1 

31 ,2422 

1 

26 

0021 

P 002  2 

REF 

1 

31,2423 

1 

26 

PHA SES : 


4 1 

1 

TCF 

T T F I N C R 

I GN  At.  0 

41 

1 

NEWPHASE  TCF 

TTFINCR 

BRAKQUAD 

30 

1 

TC  F 

STARTP64 

APPRQUAD 

21 

1 

TCF 

P65  ST  ART 

VERTICAL 

R002  3 

PRF- 

GUIDANCE 

P OH  PUT  A 

nous: 

00  24 

p EF 

l 

31, 2424 

1 

3 0 03 

0 

T f f- 

r a l r r r \/  r 

T OK!  Al  r. 

I I 

U A I.  u 1 .1 J V \7 

1 OIN  ML  O 

0025 

REF 

1 

3 1 ,2425 

1 

3013 

1 

PREGUIDE 

TCF 

RGVGCALC 

BRAKQUAD 

0026 

REF 

I 

31 ,2426 

1 

2704 

1 

TCF 

REDESIG 

APPRQUAD 

002  7 

REF 

2 

LAST 

7 9g 

31 ,2 427 

30  13 

i 

TC  F 

Rfi\/nr  Al  r 

\J  FRT  I f Al 

-L 

i\  U V U V-  n L.  L, 

V CO  1 I L ML 

R 002  8 

R 00  26 

GUIDANCE 

EQUAT I ONS : 

0030 

REF 

i 

3 1 , 2430 

1 

3061 

1 

TCF 

TTF/8CL 

I GN AL  G 

0031 

RFF 

2 

LAST 

798 

31,2431 

1 

3061 

1 

WHAT  GUI D 

TCF 

TTF/8CL 

BRAKQUAD 

003  2 

REF 

3 

LAST 

798 

3 1, 24  32 

1 

30  61 

1 

TCF 

TTF/8CL 

APPPQUAD 

0033 

REF 

1 

31,2433 

1 

3531 

1 

TCF 

VERTGUID 

VERTICAL 

R 0034 

R 003  5 

POST 

GUIDANCE 

EQUAT  I 

ON  COMPUTATIONS : 

0036 

REF 

1 

31 ,2434 

1 

3245 

0 

TCF 

CGCALC 

IGNALG 

003  7 

REF 

2 

LAST 

798 

31,2435 

l 

3245 

0 

AFT0  GUI D 

TCF 

CGCALC 

BRAKQUAD 

0038 

RFF 

3 

LAST 

798 

31,2436 

1 

3245 

0 

TCF 

CGCALC 

APPRQUAD 

0039 

REF 

1 

31 ,2437 

1 

3432 

0 

TCF 

STEE" ? 

VERTICAL 

P0040 


I 


> 


I i 
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ASSEMBLE  REVISION  001  OF 

AGC  FF-GGRAM  API  I-  OPE  BY  LYLES 
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.132 

PAGE 

L 

LUNAR  LANDING  GUIDANCE 

F 3UAT  IONS 

USER'S  PAGE 

NO. 

2 

E7  S3 

RC0A1  WINDOW  VECTno  COMPUTATIOI  ' : 


0042 

. REF 

1 

31,2440 

1 

3331 

1 

TCF 

EXGSUB 

IGNALG 

0043 

REF 

1 

31,244  1 

1 

3352 

1 

WHAT  EX  IT  TCF 

EXDRAK 

BRAKQUAD 

0049 

REF 

I 

31,2442 

1 

3 36C 

0 

TCF 

EX NORM 

APPRQUAD 

R 004 5 • 

R 0046  DISPLAY  ROUTINES: 

0047  REF  2 LAST  74o  31,24*3  1 3473  0 WHATDISP  TC F P63DISPS 

0048  REF  1 31,2444  1 34  77  1 TC  F P64DISPS 

004°  REF  1 31,2405  1 3527  P TCF  VFRTOISP 

R0050 


R0Q51  ALARM  ROUTINE  FOR  IT F COMPUTATION: 


005  2 

AAR  Q 

’ EF  1 

REF  1 

REF  2 

31,2446 

31 , 7'  47 
LAST  799  31,2450 

1 3733  1 

1 3735  1 WHAT  AL  M 

1 3735  1 

TCF 

TCF 

TCF 

1406  POO 

1 406 A L M 
1406ALM 

I GNAL G 

BRAKQUAD 

APPRQUAD 

V'JZ)  3 

0054 

RG055 

R 0056 

INDICES 

FOR  referencing  target 

PARAMET  ERS : 

0657 

31 , 2451 

V ( PC  1 

OCT 

0 

IGNALG 

0058 

31 , 2452 

OCOOO  1 TARGTDEX 

OCT 

0 

BRAKQUAD 

005  9 

31 , 2453 

00034  0 

OCT 

34 

APPRQUAD 

R 0060 

R 006  1 

* * * * * 

* *** 

* * * * * 

* * * *****:{:#:!=**  $X‘ 

* $ £ * * 

* * * * * *******  * *********************************  * *****  * *****  : 

ROC  4 3 

entry 

POI NTS: 

?GUin^J8  FOB 

THE  IGNITION  ALGORITHM, 

LUNL AND  FOP  SERVOUT 

R0064 

***** 

***** 

*******  * * * ** * * : 

$$  * $ * # =r  * 

#***  ***>,-  J******  * Xt*** 

R 006  6 

T a N T T T flN 

A ( r HR  T T HM 

CMTDV  ' H Cl  T W P D C M 

p ac c cc  n F 

ni  i a n.o  at  i r m i i n anip  f 

M Lji  LJJa  £ J lilt 

' 

* M o ^ cr  u r 

v ) Ab  A 1 1 L W * . 1 i b Al'ib  C 

0067 

31  ,2454 

77 776  1 

7GUIDSUB 

EXIT 

006  8 

REF 

44 

LAST 

756 

31 , 2455 

3 ‘ 752  0 

C AF 

T WO 

u 

0069 

REF 

1 

31 ,2455 

55*647  1 

TS 

NGUI  DSIJB 

0070 

REF 

1 

31,2457 

1 2603  I 

TCF 

GUI LDRFT  +2 

0071 

REF 

2 

LAST 

799 

31 ,246  0 

55*647  1 

GUIDSUB 

TS 

NGUIDSUR 

ON  SUCEEDING  PASSES  SKIP  TTF I NCR 

0072 

REF 

2 

l AST 

798 

31,2461 

l 3003  0 

TCF 

CALCRGVG 

R 0073 

NORMAL  ENTRY: 

CONTROL  COMES 

HERE  FROM 

SERVOUT 

0074 

ref 

56 

LAST 

791 

31,2462 

0 5353  1 

LUNL AND 

TC 

PHASCHNG 

0075 

3 1 ,246  3 

0C035  1 

OCT 

00035 

GROUP  5:  RETAIN  ONLY  PIPA  TASK 

0076 

REF 

57 

LAST 

7 99 

31,2464 

0 5353  1 

rc 

PHASCHNG 

007-7 

31 , 2^65 

05023  0 

OCT 

05023 

GROUP  3:  PROTECT  GUIDANCE  WITH  PFIO  21 

0078 

31 , 2466 

21000  1 

OCT 

21000 

JUST  HIGHEF  THAN  SERVICER'S  PRIORITY 

HR AKOUAD 
APPRQUAD 
VERTI  CAL 
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R 0079 
R 008  1 
R 0032 

0084 


*******!»'*!!' *******  ****#*>!: 

GUI LDENST  ERN : AUTO-MODES  MONITOR  (113) 

£ * !r  * V -t.  >Jc  # j}c  # :£  £ ^ ;J;  3jr  # $ # £ # % # $ * $ * .-;:  # # j{t  #.$&$£  .Sfcjfc#  ❖ ❖ ❖ vt'-I  n * * $$..$.&.$$  sjt  jjt  # # 5J  #>!<  £ * ft  # # ❖ ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ftft  ft  ft  ftft  ftft  ft  $ ftft  ftftftft  ft 

5 E F 1 COUNT*  $ $ /P  13 
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SINCE  REDESIG  MAY  CHANGE  LANDTEMP 
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DLOAD 


BMN 


STORE 
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MAKE  SURE  REDESIGNATION  IS  NOT 
TOO  CLOSE  TO  THE  HORIZON 


L OOKANGl  WILL  BE  COMPUTED  AT  7GVGCALC 


COMPUTE  STATE  IN  GUIDANCE  COORDINATES 
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RGIJ  = CG  (R  - t AND) 
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si  i jnc  /, 

g f~  fjQi, 
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LOOKANGL 
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onri  j.  /. 
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A ( 3 1 = 8 JDG  TO  TABLTTF 
2 
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RQ445 
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6 0131 

1 

31 ,3143 

50  120 

1 

31,3144 

54  03  2 

1 

31,314- 

5 Cl  31 

1 

31,3146 

SO  120 

1 

31,3147 

54  034 

1 

31 ,3150 
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41 
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795 

4746 

-AZBIT 

_ 

BIT6 
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1032 

1 1 , 2373 

00063 

1 

ALL4BITS 
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00063 

1033 

11,2374 

01074 

0 

AZEACH 

DEC 

.03401 

2 DEGFEES 

3" 


1034  11,2375  00217  0 ELEACH  OEC  .00873  1/2  DEGREE 

R 103  5 **  4 4 4 ' 4##  jje  sic  4 4 4 *4  44  4 44  44  * 4 44  444  * 4444  44  44  44  4 4 *444444  4444*44444444  44  444  4 * 44  * 4 4 4 4 44  4 4 444  =1=  44  * 44  * 444  * 44  4 44  4 4 44  44  4 4 * 

R 1037  P.f  .fll  7 RAP 


R 1 03  f 

4 44 

sec-  ^ ^ ^ V 
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20, 2000 
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RODTRAP 
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BANK 
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1 
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$$/F20PS  4 4 444  4444  4 44444444444  44444444444444  44444 
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BIT7  COME  HERE  FROM  MARKRUPT  CODING  WITH  BIT 

1045 
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10  000  0 

CCS 

A 7 OR  6 OF  CHANNEL  16  IN  A:  BIT  7 MEANS 

1046 
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49 
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4 4752  1 

CS 
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1 04  7 
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90 
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6 4753  1 

AD 
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REF 

5 
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REF 

20 
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1 05  C 
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3 
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31,3553 

BANK 

1053 

REF 

4 
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R 1054 
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4 44  4: 
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SO $4  4 4 4 4 4444  4 4 

4 4 4 4 4 4 4 4 4 * 44  4 4 4 4 4 4 4 4 

4 4 44  44  4 
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R lc5t 

DOUBLE 

PRECISION  ROOT  FINDER 

SUBROUTINE  (BY  ALLAN  KLUMPP1 

R 1057 

4 4 44  44  44  4 444  44 
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R 1 0 5 9 

N N-l 

R 1060 

ROOTPSRS  FINDS  ONE 

ROOT  OF  THE  POWER  SERIES  A 

X + A X +...+AX+A 

R 1062  N N- 1 10 


R 1064  USING  NEWTON'S  METHOD  STARTING  * 1 T H AN  INITIAL  GUESS  FOR  THE  ROOT.  THE  ENTERING  DATA  MUST  BF  AS  FOLLOWS: 


A 1066 

A 

SP 

LOC-3 

ADPES  FOP  REFERENCING  PWR  COF  TABL 

A 1067 

L 

SP 

N-l 

N IS  THE  DEGREE  OF  THE  POWER  SERIES 

A 1068 

MP  AC 

DP 

X 

INITIAL  GUESS  FOR  ROOT 

AIL 6 - 

L0C-2N 

DP 

AID) 

A 1070 

« • • 

A 1071 

LOC 

DP 

AIN) 

A 1072 

LOC  + 2 

SP 

PRECROOT 

PREC  POD  OF  ROOT  (AS  FRACT  OF  1ST  GUESS) 

1” 
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R 1073  THE  0°  ESULT  IS  LEFT  IN  MPAC  UPON  FXIT,  AND  A SP  COUNT  OF  THE  ITERATIONS  TO  CONVERGENCE  IS  LEFT  IN  MPAC+2. 

R 107  5 RETURN  IS  NCPMALLY  TO  LOCtTC  RtQTPSR S ) +3 . IF  ROOTPSRS  FAILS  TT  CONVERGE  IN  8 PASSES,  RETURN  IS  TO  LOC+1  AND 

R1C77  OUTPUTS  ARE  NOT  TO  BE  TRUSTED. 

R 107 R PRECA'JTi  IN;  rfm-SF?  4KE  TC  CHECK'  F;  OVERFLOW  CP.  FO-  IMPROPER  US  AGE . IMPROPER  USAGE  COULD 

R 108  C PRECI  ODE  CON  VF ; Of  ’ C t 1 EQ'Lf’F  E EXCESSIVE  ITERATIONS.  AS  A SPFCIFIC  EXAMPLE,  ROOTPSRS  FORMS  A DERIVATIVE 
R 1(  COEFFICI  CH  All)  BY  I,  WHERE  I RANGES  FROM  1 0 N.  IF  AN  ELEMEN  IF  THE  D! RIVATI VE 

1 ( EFFICIENT  TARl  E = 1 Of  >1  IN  1AGNITUDE , ONLY  THE  EXCESS  IS  RETAINED.  ROOTPSRS  MAY  CONVERGE  )l  THE  CORRECT 

R ic.:  5 ROOT  NONETHELESS,  BUT  IT  MAY  T AKE?  AN  EXCESSIVE  NUMBER  OF  ITERATIONS.  THEREFORE  THE  USER  SHOULD  RECOGNIZE: 

R 108  8 1.  USE  'S  RESPONSIBILITY  t ASSURE  THAT  T X , { T ) < 1 IN  MAGNITUDE  FOR  ALL  I. 

R 1090  2.  USER'S  RESPONSIBILITY  TO  ASSURE  OVERFLOW  WILL  NOT  OCCUR  IN  EVALUATING  EITHER  THE  RESIDUAL  OR  THE  DERIVATIVE 

R 1092  POWER  SERIFS.  THIS  OVERFLOW  W JLD  BE  P ODUCED  BY  SUBROUTINE  POWRSERS,  CALLED  BY  ROOTPSRS,  AND  MIGHT  NOT 

R 1094  PRECLUDE  EVENTUAL  CC  r- VERGtNCE  . 

KK  3.  AT  PRESENT,  ERASABLE  LOCATIONS  ARE  RESERVED  ONLY  FOR  N UP  TO  3.  AN  N IN  EXCESS  OF  5 WILL  PRODUCE  CHAOS. 

R 10°'  AH  ! * OS F D 11  ED  r - FROM  MPAC-33  OCT  TO  MPAC+7. 

R 109'=  4.  THE  ITERATION  COUNT  RETURNED  IN  MPAC+2  1 A Y BE  USED  TO  DETECT  ABNORMAL  PERFORMANCE. 

A 1101  STORE  ENTERING  DATA,  IN.ITLIZE  ERASABLES 
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1 
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1 
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0 

CA 
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1107 
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1 
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1 

TS 

DEkPTP 
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110  8 
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L-  rs  I M D L HU^L  j 

1 1 
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313 
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i 
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MPAC 
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1110 

REF 
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31 , 3563 
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0 

TS 

MPAC 
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mi 
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817 

31 ,3564 

3 4755 

1 

CA 
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REF 

10 
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31 , 3565 
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1 
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1114 

31,3566 
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1 
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31, 3567 

3 Cl  55 

0 

DC  A 

MPAC 
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1116 
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1 

31 , 3570 

52  127 

1 

DXCH 

ROOTPS 

AND  IN  ROOTPS 

11  17 

REF 
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31 ,3571 
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1 

INDEX 

MPAC 

+ 3 

PWP  TABL  ACRES 
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1 

CA 

5 
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1 

TC 

SHORTMP 
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RFF 

2 

LAST 
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31 , 357'- 

0 4713 

0 

TC 

USPRCADR 

1121 

REF 
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01226 

0 

CADR 

ABS 
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DXCH 

MPAC 

1123 

REF 

1 

31 ,3  577 

5 2 125 

0 

DXCH 

DXC!  IT 

CR!TEF ION 

A 1 1 2 4 
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REF 

81 

LAST 
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TC 

DMPNSUB 
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EXTEND 
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3 
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31 ,361) 
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PWRPTR 
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3 000  2 

0 
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1 

1136 

REF 

320 
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824 

31,3613 

52  155 

1 

DXCH 

MPAC 

1137 

REF 

2 

LAST 

823 

31,3614 

50  141 

0 

INDEX 

DERPTR 

1138 

31,3615 

52  004 

1 

DXCH 

3 

1 1 3C 

REF 

50 
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822 

31,3616 
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1 

CS 

TWO 

1140 

RFF 

4 

LAST 

8 24 

31 ,3617 

26  117 

1 
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PWRPTR 

1141 

REF 

51 

LAST 

8 24 

31, 3620 

4 4752 

1 

CS 

TWO 

1142 

REF 

3 

LAST 

824 

31,3621 

26  141 

1 
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1143 
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2 
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31,3622 

10  140 

0 

CCS 

PWRCNT 

1144 

R EF 

1 

31,3623 

1 3605 

0 

TC  F 

D E R C L C 0 P 

A 1 1 4 5 
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31 ,3624 

0 0006 

1 

ROOTLOOP 

EXTEND 

1147 

REF 

2 

LAST 
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31 , 3625 

3 0127 

0 
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ROCTP.S 

1 1 4 ' 
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P74 

31 ,3626 
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1 

DXCH 

MPAC 

1145 

31,3627 

0 0006 
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EXTEND 
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322 

LAST 

8 24 

31 ,3630 
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1 
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MPAC 

1151 
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1 

31 ,3631 
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0 
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31 , 3632 
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i 
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1153 

REF 
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LAST 

8 24 

31 ,3633 
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0 
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ROOTPS 
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RFF 

323 

LAST 

824 

31 ,3634 
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DXCH 

MPAC 

1155 

RFF 

75 

LAST 
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31 , 3635 
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0 

DXCH 

BUF 
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31 ,3636 
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REF 
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LAST 

8 24 

31,3637 
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EXTEND 
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REF 
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LAST- 
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31,3644 
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MPAC 

1143 

REF 
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AIM)  TO  MPAC 
N— l TO  A 

loop  Counter 

YIELDS  DERCOF  = I X All)  IN  MPAC 

At  I -1  ) TO  MPAC,  FETCHING  DERCOF 
DEPCOF  tq  DEr  T ABL 
DECREMENT  FWf  POIMTEP 
DECREMENT  DER  POINTER 

CONVERGE  ON  P00T 

FETCH  CURRENT  ROOT 
LEAVE  IN  M P AC 

LOAD  A,  L PITH  DER  TABL  ADRES,  N-2 
YIELDS  DERIVATIVE  IN  MPAC 


CURRENT  -l  • T TO  MPAC,  FET CHI  NG  DE':  IVTIVE 
LEAVE  DERIVATIVE  IN  BUF  AS  DIVISOR 

LOAD  A,  L WITH  PWR  TABl  ADRES,  N-l 
YIELDS  RESIDUAL  IN  MPAC 


YIELDS  -DX  II  MPAC 


FETCH  DX,  LEAVING  -DX  IN  MPAC 
CORRECTED  ROOT  NOW  IN  ROOTPS 


YIELDS  ABS(DX) 


IN  MPAC 
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REF 

2 
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31,3651 
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0 

DCS 

DXCRIT 
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20  155 
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MPAC 
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0 
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LAST 
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0 
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1 
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RETROOT 
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REF  l 
REF  1 
REF  328 
REF  2 
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REF  13 
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LAST  825 
LAST  825 
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LAST  825 
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LAST  825 


31  ,365  7 
31 , 3660 
? 1 , 366  1 
31  , 3662 

31.3663 

31 . 3664 

31.3665 

31 . 3666 
31  , 3667 
31  , '3670 
31 , 367  1 
31,3672 
31  , 367  3 

31 . 3674 

31.3675 


24  1 u3  0 
10  154  0 
1 3624  0 
1 366*  1 
1 3670  1 
10  155  1 
1 3624  0 
1 3670  1 
1 3670  1 
52  127  1 
52  155  1 
3 0163  0 
54  156  1 
50  132  1 
1 0002  1 
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TO  F 
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MPAC 

F COT LOOP 
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‘ C j I LUUA 

TCF 

ROOTSTOF 

CCS 

MPAC 

TCF 

ROOT LOOP 

TCF 

' C OTSTC  R 

TCF 

ROOTSTOh 

DXCH 

ROOT PR 

DXCH 

MPAC 

CA 

TS 

MODE 

MPAC 

INDEX 

RETFCOT 

TCF 

2 

INCREMENT  ITERATION  COUNTER 
TEST  HI  OPDEP  OX 


TEST  LO  ORDER  OX 


STORE  SP  I T ELATION  COUNT  IN  MPA.C  + 2 


PEF 


31 , 3676 


00147  0 DERTABLL  AJ.ES  0ERCOFN  -3 


£ $ -f-  v -'r  t-  -f  * **  * v -‘f  i'  3?:  b !■  ;;  ;j< jjc  jjcjsjjc#  s[s  3-'  >y  tf;  # 4-'$  $ $ $ $#$$  $ 
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0 
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1 
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PEF 

8 
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813 

31,3710 

3 5014 

1 

CA 

EBANK5 

TPEDES  BECOMES  ZERO  TWO  PASSES 

REF 

29 
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813 

31  , 3711 

54  0C3 

0 

TS 

EBANK 

BEFORE  TCGFAPPR  IS  REACHED 
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2 
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E 5 , 1.470 

EBANK= 

TCGFAPPR 

REF 

3 

LAST 
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31,3712 

3 1470 

0 

CA 

TCGEAPPR 

REF 

21 
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31,3713 

2*  006 

1 

INCR 

3BANK 

REF 

22 
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825 

31,3714 

24  006 

1 

INCR 

BRANK 

RFF 

18 

L AST 
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F7 , 1642 
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TTF/8 
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R 1231 
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124  r 
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1 

.0  i f J I I i 

REF 

1 

31 , 3720 

6 3 747 

0 

AD 

-DEC  1 03 

REF 

i 

LAST 

5°7 

3 1 , 37  2 1 

6 ' 735 

1 

AO 

NEGMAX 

REF 

121 

LAST 

8 9 | 

31 ,3722 

54  001 

1 

TS 

L 

REF 

122 

LAST 

826 

31, 3723 

4 CO  Cl 

1 

CS 

L 

REF 

123 

LAST 

826 

31,3724 

6 C001 

0 

AD 

L 

REF 

1 

31,3725 

6 3750 

0 

AD 

+DEC9S 

REF 

19 

LAST 

8 12 

31,3726 

6 4 73  3 

1 

AD 

POSMAX 

REF 

3 

L A ST 

3 1 4 

31 ,3727 

5 1 * 6 fc  6 

1 

TS 

TrEOFS 

R CC 

4 

LAST 

R ? f. 

31,3739 

4 1666 

CS 

TREDFS 

per 

REF 

5 

LAST 

826 

31,3731 

27  '66  6 

1 

ADS 

TREDES 

REF 

201 

LAST 

813 

31 ,3732 

0 ( 002 

0 

TC 

Q 

REF 

LAST 

45  5 

31 , 37  33 

0 56  52 

0 

1406  PON 

TC 

p CO DOG 

31 , 3734 

0 1 4 06 

1 

OCT 

014-06 

REF 

33 

t AST 

3 1 3 

81  , 3739 

0 556  7 

0 

140- ALM 

TC. 

A L A 6 M 

31, 3736 

014-06 

1 

OCT 

01406 

REF 

2 

LAST 

813 

31 ,3737 

1 3443 

0 

TCF 

RATESTOP 

***  * * * ***  *******  **  * :)  t * **  ******  ***  ***  **  ****** **********  5|c****  **  * * * * * ***  **  * * **  * * **  * * ****  * *******  ******************* 

SPECIALIZED  "P  HASCHNG"  SOB ROUT  INF 

if  # aje^s  sje  if  ifif  if  ###&#  %.  >f  # if  5^.-^  # * if  if - if  njcjfc.*  >}?,*#  # if  if  if  if  if. if  j}c  if  if  if  if  if  if  if  if  if  if  if  if.  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  Jfcsjc#  if  if  if  if  sjc  if  if  if  if  i(  it  # * if  if  if  if  if  if  # # it  if  # 


REF 

1 

E3 , 1440 

EBAMK- 

PHSNAME2 

REF 

2 

LAST 

223 

31 , 374  0 

3 5007 

0 

F ASTCHNG  CA 

E8ANK3 

SPECIALIZED  'PHASCHNG'  ROUTINE 

u E F 

30 

L AST 

82  5 

3 1 , 374  1 

56  i 03 

1 

X C H 

EBANK 

REF 

124 

LAST 

827 

31,3747 

5?  0 02 

1 

DXCH 

L 

REF 

1 

31 , 374  3 

55  »442 

0 

TS 

PHSNAMF3 

REF 

31 

LAST 

826 

31 , 3744 

22  003 

1 

LXCH 

EBANK 

REF 

3 

LAST 

798 

E7  , 1621 

EB  ANK  = 

F2DPS 

REF 

240 

LAST 

325 

31,3745 

0 CCOO 

1 

TC 

A 

it&ifiifific  $*******  ####*#£**  if  it*  if  if  ifif  if  if  if  if  if  if:  if  if  *****  if^ifif  #£-#$*:{«*3jc3M<***#'$*-*****>Ms**  *$*❖**■**  *******  ****** 

PARAMETER  TABLE  INDIRECT  ADDRESSES 


******  ^ * i 

!=***** 

V 'i-  ',s  tJ,  Jji  tJ: 

if  if 

*************** 

if  if  if  ;4 

if  ^c^saje3}c^c^e^c5}j5j«^  if  if  if  if  % if  if  if  if  if  if  if  it  ic  if  if  if  if  if  if  if  if  if  if  if  if  if  ic  if  if  if  if^iiif  if  if  # if  if 

REF 

2 

LAST 

121 

FB , 1402 

RDG 

= 

RBRFG 

REF 

2 

LAST 

121 

E 8 , 1410 

VDG 

= 

VBi'FG 

RFF 

2 

LAST 

1 7 1 

E5,  141 4 

ADG 

ABRFG 

REF 

2 

LAST 

121 

F 5 , 1424 

VDG2TTF 

= 

VBRFG* 

REF 

2 

LAST 

121 

E 5 , 1426 

ADG2TTF 

= 

ABRFG* 

REF 

2 

LAST 

121 

E 5 , 143  0 

JDG2TTF 

= 

JBRFG* 

******************  ******  * **  ***.;•***  ****  ******  ********  * *#**  **5fe**  **********  **£***  *********************************** 
LUNAR  I AND1NG  CONSTANTS 

******************************  *******j)||i  *****************************  **ipjc  *******  ******  ******!jc3j:  ********  ********** 


« 


0 


0 

) 

) 

I 

) 

» 

» 

t 

% 

$ 

* 

» 

1 

P 

* 

* 

P 

3 

P 

P 

2 

> 
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GAP : 

L 

1258 

ASS  i ■ :-U  REVISION  001  UF  A GC  PROGRAM  AP11KCPE  BY  EYLES 

LUNAR  LANDING  GUIDANCE  EQUATIONS 

REF  7 LAST  807  31,3746  01565  0 TABLTTF  L ADRES 

TABLTTF  +3 

3:15  DEC.  2,1970  FLY  .132  PAGE 

USE1'  * S PAGE  NO.  30  E7  S3 

ADDRESS  FOP  REFERENCING  TTF  TABLE 

125  ° 

RFF 

30  LAST  821 

4740 

TTFSCA1  F 

= 

BIT12 

1260 

REF 

33  L AST  8 2 5 

4750 

TSCAL.INV 

= 

BIT4 

1261 

31 , 37-  7 

77630 

1 

-DEC  103 

DEC 

-103 

1262 

31 ,3750 

00143 

1 

+DEC99 

DEC 

+ 99 

12 

31,375  1 

75340 

1 

TR ED  F SC  1 

DEC 

-.08 

1264 

31 ,3752 

00264 

1 

180DEGS 

DEC 

+ 180 

126  5 

31,3753 

00056 

1 

1/2DEG 

DEC 

+.0C27R 

1266 

31  ,3754 

01542 

0 

PRO J MAX 

DEC 

.42262  B-3 

S I N I 2 5 * 

1/8  TO  COMPARE  WITH  PROJ 

1267 

31,3755 

01  022 

0 

PPO JR  IN 

DEC 

.25882  6-3 

S IN ( 1 5 1 

1/8  TO  COMPARE  WITH  PROJ 

1268 

31  , 3756 

01477 

1 

V06N63 

VN 

0663 

P63 

1269 

r>  1.  C f ; A 

0 

V06N64 

VM 

n aa/l 

J L f i J l 

L o o H 

P 64 

12  70 

5 1 , 37  60 

01474 

1 

VC  R.  6 0 

VN 

0660 

P65,  P66,  P67 

1271 

22,3647 

BANK 

22 

1272  REF  1 

22,2000 

SETLOC 

L ANDCNST 

1273 

22,3647 

BANK 

1274  REF  1 

COUNT 4 

$ $/F  2DP  c 

1 2 7C 

22,3647 

00021 

1 

HIGHESTF 

2DEC 

4.3454676° 

B— 1 2 

1275 

22,3650 

14161 

1 

1276 

22,3651 

1 - ' 

0 

GSCALE 

2 DEC 

100  B—  1 1 

1276 

22,3652 

00000 

1 

1277 

22 ,3653 

1/-  00  0 

1 

3/3  DP 

2DEC 

.375 

1277 

22,3654 

00000 

1 

1278 

22,3655 

30000 

1 

3 /40P 

2DEC 

.750 

1278 

22,3656 

00000 

1 

127° 

22,3657 

77534 

0 

DEPRCRIT 

2DEC 

-.02  B— 1 

1279 

22, 3660 

45074 

0 

..I 


,.2 


I 


GAP:  ASSEMBLE  kEVISMN  001  Oft  AGO  PKOG  AM  AP11LUPE  BY  EYLES 


3:1?  DEC 


2,1970  FLY 


132  PAGE  828 


L 

R 12  10 
R 12  l 


LUMA"  L AND  I MG  GUIDANCE  EQUATIONS  USER’S  PAGE  NO.  31  E7  S3 

$ <1  ££  # if  * ##  $>;<  S)::;:  s*  if  # 3^  * sjc  s,V  * sjt  -.Is  sjt  # >|oJc  s[c  # & $ $ # # if  £ & » * & # # =i<  * # =!<  $ + # * # * ^ * # =!<  ije  * ^ <c  £ * ^ ^ $ £ * $ * * =1=  sjt*  * * * * * jjc  a[t  ]jc  # jjs  #^c  >,*  # :$: 

$ * # #a|t  sjc  #:(:>>:  >)t  $$$,(:  $ >{c  £ fcjjcj:  $$$$*$  jJc^jSkJc  * :Jc  s*  $;  # **#*#=!=#*  =5=  4=  ={l Sjc *^*  * # ##*^  ^t^c^csjc 


GAP  : 


ASSEMBLE  REVISION  001  • 5F  AGC  ff  CG- AM  APllsOPE  BY  EYL.ES 


L P7E-P71 


0001  21,2006  BANK 

0002  REF  1 21,2000  SETLOC 

0003  21,200:6  BANK 


0004  REF  33  LAST  816  E7,1515  EB  ANK  = 

000c  REF  I COUNT* 


0006  REF  17  LAST  762  21,2006  4 0103  1 R10,R11  CS 


00C7  REF  4 LAST  704  21,2007  7 4747  0 MASK 

00 OF  UP  241  LAST  826  21,201°  10  ( no  0 CCS 

0009  R£F  57  LAST  921  21,2011  1 5201  0 TCF 

0010  FEF  3 LAST  6-v  21,2012'  $1  *05  6 1 CCS 

0011  21,2013  1 2015  0 TCF 

0012  RFF  1 21,2014  1 2130  0 TCF 


0013  REF  1 21,2015  5 S'  714.  0 +2  IS 


0014  OFF  2 LAST 

001'“  RFF  3 LAST 

0016  REF  3 LAST 

0017  RFF  23  LAST 

001 F REF  2 LAST 

0019  ••  F F 2"  LAST 

0020  REF  34  LAST 

0021 

0022  REF  1 


1-1  E7 , 1714 

506  1056 

436  21,2016  3 6010  0 

820  9 1,2017  0 5173  1 

240  21,2020  02006  0 

612  21,202 l o 1303  1 

821  21 , 2022  7 4733  0 

il,  202  3 0 doof  1 

21,2024  1 2042  1 


pi  Peru  = 

PIPCTP 

CAF 

TC 

AOPES 

10,  11 A CS 

MASK 

EXTEND 

BZF 


0023 
002  5 


REF 

PEP 


12  LAST  613 

1 


21.2025  7 0 1 u 7 0 

21.2026  0 00. C 6 1 

21.2027  1 2033  1 


FjLASHH?  MASK 

EXTEND 

BZF 


0026 

0027 

0020 

REF 

REF 

REF 

2 

125 

LAST 

LAST 

612 

826 

21, 

21, 

£ 1 r 

0 0 2 c 

REF 

1 

21, 

003  0 

F EF 

13 

l AST 

8 2° 

21  , 

0031 

21  , 

0032 

REF 

2 

LAST 

829 

21  , 

2030  3 4747  1 CA 

2031  54  001  1 TS 

2032  0 4606  0 TC 

20  33  3 4752  0 FLA:  MV?  CA 

2034  y 0107  0 MASK 

2035  0 0006  1 EXTEND 

2036  1 2042  1 BZF 


0033 

RFF 

2 

LAST 

613 

21,2037 

3 

] 

0 

0034 

REF 

126 

LAST 

829 

2 1 , 2040 

54 

C - 1 

1 

0035 

REF 

2 

LAST 

9 ? 9 

21,2041 

0 

4606 

0 

CA 

TS 

TC 


0036 

RFF 

3 LAST 

73  9 : 

2 1 ,2042 

3 

0105 

0 

0037 

REF 

2.  LAST 

7 3'- 

21, 2043 

7 

6743 

1 

003  6 

21, 2044 

0 

0006 

1 

003c 

P EF 

I 

21,2045 

1 

2150 

1 

CA 

MASK 

EXTEND 

BZF 


0040 


REF  14  LAST  801 


21,2046  4 1011  1 P71NCW?  CS 


21 

11 


DVCNT f 
$$/P 11 

FLAGWRD7 
AVEGFBI 1 
A 

r ASKOVER 
PIPCTR 
+ 2 

LRHTASK 
PI  PCJR  1 

L ADQSAV1 
PHSPf-  DT  2 
0CT31 
TWI DDL E 
R 10  , 1 1 
I MODE S33 

biu 

10,11 

FLGWRDl 1 

FLASHV? 

HLITE 

L 

FLIP 

VFLSHBIT 

FLGWRDl! 

10,11 

VI  ITF 

I 

FlIP 


FLA6WP  DS 
L ET  ABB  ' T 

LANDTSP 

MODR  EG 


3:15  DEC 


2,  1970 


FLY 


132  PAGE  829 


..i 


USER'S  PAGE  NO. 


EO  S3 


IS  SERVICER  STILL  RUNNING? 

LET  AVGEND  "AKE  CARF  OF  GROUP  2. 

LAST  PASS.  CALL  LRHTASK. 


IF  LAMP  TFST,  00  NOT  CHANGE  L ■ LITES. 

CIA)  = 1 = HFLASH  BIT 
H FLASH  OFF,  SO  LEAVF  ALONE 

FLIP  H LITE 

VFLASHBIT  UJST  BE  BIT  2. 

V FLASH  OFF 

FLIP  V LITE 

IS  THE  L FT  ABC  RT  FLAG  SET  ? 

NO.  PROCEED  T0  PIP. 

YES.  ARE  WE  IN  P71  NOW9 


: 

J 


0 

i 

d 

) 

:> 

) 

d 

) 

) 

) 

) 

:> 

: 


l 


GAP:  ASSEMBLE  . E V I S I S K 001  OP  AGC  PROGRAM  AP11RGPE  BY  E Yl  E S 

L P7--P71 


0041 

REF 

1 

21 , 2047 

0042 

21,2050 

REF 

) 

I ACT 

8 2 9 

2 1 .206  1 

Uv  o 

z- 

Lh  J t 

0044 

21  , 20r 2 

004  5 

OFF 

6 

LAST 

800 

2 1,7063 

0046 

21,2054 

0047 

REF 

127 

LAST 

82° 

21,2055 

0048 

REF- 

34 

LAST 

827 

21,2056 

004  o 

REF 

2 42 

LAST 

82  5 

21 , 205  7 

0060 

REF 

2 

LAST 

24  2 

21,20  6 O' 

6 2107 
0 0006 

1 2154 

0 0006 

0 

1 

1 

1 

AD 

EXTFND 

ft  7 P 

1 DECT  1 

j Min  i c p 

L.  1 

EXTEND 

00  030 

1 

PF  AD 

CHAN30 

4 0000 

0 

COM 

54  001 

1 

TS 

L 

7 47  50 

c 

MASK 

BIT  4 

10  000 

0 

CCC 

A 

1 20  76 

0 

TCF 

P71A 

0051 

REF 

15 

LAST 

■ 8 29 

2 1,2061 

0052 

REF 

1 

21,2062 

0053 

2 1, 2063 

00  54 

RFF 

2 

LAST 

830 

21  ,2066 

0 1011  1 P70N0W?  CS  MOD  EG  * 

6 2106  1 AD  1DEC70 

0 0C06  1 EXTEND 

1 21  1 82 P LAND  I S P 


005  6 

o EF 

1 28 

LAST 

0056 

REF 

40 

LAST 

0057 

REF 

243 

LAST 

0058 

PsEF 

2 

LAST 

0059 

RFF 

4 

LAST 

8 3 0 21  , 20  6 5 8 opr  1 0 

829  21  , 2066  7 4753  0 

830  2 1 , 2067  10  000  0 

241  21,2070  1 2073  C 

680  21,2071  1 2 1 j - 1 


CA  L 

MASK  BIT1 

CCS  A 

TCF  P70A 

TCP  LANDISP 


0060  r’  EF  1 


COUNT-  $ $ / P 7 0 


0061 


REF 


21,2072  0 2110  0 P70 


TC 


l EGAL? 


0062 

REF 

155 

LAST 

82  3 

21, 2073 

4 

4755 

0 

P7  0A 

CS 

ZERO 

006  3 

21,2074 

1 

2077 

1 

TCF 

+ 3 

0064 

REF 

2 

LAST 

8 30 

21  > 207c 

0 

2 116 

0 

P71 

TC 

LEGAL? 

006  5 

REF 

52 

last 

4 74 

21 , 2076 

3 

47  5 2 

o 

P7  i A 

CAF 

TWO 

0066 

REF 

202 

LAST 

826 

21, 2C77 

5' 

002 

1 

+ 3 

TS 

Q 

0067 
00  6 T 

0069 

0070 


F;EF 


21,2100 

21,2101 

21,2102 

21,2103 


0 0004  0 
0 CC 06  1 
8 2 I 0 9 1 
52  COS  0 


INHINT 
EXTEND 
DC  A 
D'rCB 


CNTA8TAD 


0071 

0072 
0072 
007  3 
0074 


P EF  34  LAST 
REF  1 
REF  1 


829  E7  , 1515 

21.2104  03402  1 

21.2105  12067  0 

21.2106  00106  0 

21,2107  00107  1 


EB ANK=  DVCNTF  - 

CNTABTAD  2CADR  CCNTABPT 

1DEC70  DEC  7q 

1DEC71  DEC  71 


0075 

05,3402 

0076 

REF 

1 

05 , 2000 

0077 

05,3402 

0078 

REF 

1 

0070 

RFF 

L 

0 5,3602 

3 3406 

0 

0080 

REF 

1 

05,3403 

54  017 

0 

0081 

05,3404 

5 0017 

1 

BANK  05 
SETLOC  A SORT  S 1 
BANK 

COUNT  * $ $ / P 7 0 

CONTABRi  CAF  ABRTJADP 

TS  BRUPT 

RESUME 


i" 


3:15  DEC 


2,1970  FLY 


132  PAGE  830 


USER  * S PAGE  NO.  2 F7  S3 

YES.  PROCEED  TO  P10. 
r ■■;.  IS  AN  ABORT  STAGE  COMMANDED? 

YES. 

NO.  ARE  WE  IN  P70  N3W? 

YES.  PROCEED  TO  P10. 

NO.  IS  AN  ABORT  COMMANDED? 

YES. 

X'G.  PROCEED  TO  ? 10. 


GAP:  ASSEMBLE  REVISIOIs  Q.C  l F AGC  PROGRAM  A^l  i-  'PE  BY  EYLES 


P70- 

•P7  1 

0082 

PEF 

1 

008  3 

REF 

1 

008* 

REF 

203 

0085 

REF 

12  9 

0086 

0087 

REF 

6 

0038 

REF 

204 

0089 

REF 

1 

0090 

pFF 

16 

05 

LAST 

LAST 

830 

8 3E 

U J 

0 5 
0 5 
0 5 

LAST 

LAST 

747 

931 

05 

05 

05 

08 

LAST 

83  0 

.3405 

1 3406 

1 

- 3406 

3 3477 

0 

.3  407 

6 0002 

0 

. 8410 

54  0C1 

1 

34  11 

4 0000 

0 

,3412 

52  761 

0 

3*13 

50  002 

0 

,3414 

3 3476 

1 

, 34  1 5 

55'0ll 

1 

ABRTJADF  TCF 

ABR  i JASK  CAP 
AP 
TS 
COM 
DXCH 
INDEX 
CAE 
7 S 


0091  REF  24  LAST  757  (f  5 , 3*1  6 55*163  0 


TS 


0092  REF  205  LAST  831  05,3417  10  002  1 CCS 

0093  : REF  16  LAST.  757  05,3420  4 L 106  1 CS 

0094  REF  11  LAST  7^7  05,3421  7 4737  1 MASK 

0095  REF  17  LAST  831  05,3422  26  106  1 ADS 

0096  REF  1 05,3423  4 3501  1 CS 

0097  REF  27  LAST  760  05,3424  7 0111  1 MASK 

0098  REF  28  LAST  831  05,3425  54  111  1 TS 


009  9 

R F F 

24 

LAST 

760 

05 , 3426 

4 

C101 

0 

0100 

REF 

5 

LAST 

740 

95,3427 

7 

4745 

1 

0101 

p ef 

25 

1 AST 

831 

05,3430 

26 

101 

0 

CS 

MASK 

ADS 


0102  REF 

0103 

0104  R FF 

0105  REF 

0106 

0107  REF 


8 

LAST 

760 

05,3431 

4 4355 

1 

CS 

05 , 343? 

0 f 006 

1 

EXTEND 

26 

LAST 

760 

05 , 3433 

02  011 

0 

RAND 

33 

LAST 

82  L 

05,3434 

fc  4737 

0 

AD 

05, 3435 

0 0006 

1 

0 

F X T P M n 

27 

LAST 

831 

05 , 3436 

01  011 

L_  A 1 II  1 ' I J 

WRITE 

0108  REF  4 LAST  555  05,3437  3 4735  1 

OIL  c<  EF  It  LAST  820  0 5,3-40  54  107  0 


CAF 

TS 


0110 

REF 

25 

0111 

REF 

1 

0112 

REF 

26 

AC1L3 

LAST 

592 

05 

05 

LAST 

831 

05 

, 34* 1 4 0074  0 
,3442  7 4752  1 
, 3443  26  C74  0 


CS 

MASK 

ADS 


Oil*' 


' ! F 1 ■ LAST  5*3 


05,3444  0 6011 


TC 


0115 

0116 
0117 


REF  25 
REF  6 


LAST  816 
LAST  760 


05 , 3448 
05 , 344  6 
03,3447 


0 0006  1 
3 0025  0 
53 ' 345  0 


EXTEND 
DC  A 
DXCH 


0118 

011°  REF 
0120  REF 


05,3450  0 0006  1 

1 05,3451  3 3475  1 

3 LAST  740  05,3452  53'253  0 


EXTEND 
DC  A 
DXCH 


ABRTJASK 

QCTAL27 

Q 

L 

-PHASE* 

Q 

MODE  7 0 
CD:  . - 

DISPOEX 

Q 

FLGWRD10 
APSFLBP 
FL.GWRD10 
D ARB  ITS 
DAPBOOLS 
DAP  BOOL  S 

FLAGWRQ5 
ENGGWBIT 
FL AGURD5 

P R I 030 

DSAi  MQUT 
B IT  1 3 

DSALMOUT 

LRBYBIT 

FLGWRD11 

F L AG WP  DO 
R10FLBIT 
F I.AGWRDO 


CUADMOD 


TIME2 

TEVENT 


SVEXT  TAD 
AVGEXIT 


15  DEC. 

2,1970 

EL  Y 

.132  PAGE 

US 

EL'S  PAGE 

NO. 

3 F7  S3 

INSURE  DISPDEX  IS  POSITIVE. 

SET  APSFLAG  IF  P71. 

SET  APSFLAG  PRIOR  TO  THE  ENEMA. 


DAPBITS  = OCT  640  = BITS  6,  P,  9 

(TURN  OFF:  ULLAGE,  DDIFT,  AND  XOVINHIB  ) 


SET  ENGONFLG. 


INSURE  THAT  THE  ENGINE  IS  ON,  IF  ARMED. 


TERMINATE  R12. 


^ ET  9 10  F I AG  TO  SUPPRESS  OUTPUTS  T0  THE 
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19.5  FPS 


GAPS  ASSEMBLE  REVISION  001  OF  AGC  PfUbA-’  API  1R  JPL  BY  EYLES 


L ASCENT  GUIDANCE 


0001  34,3642 


0002 
ann  7 

REF 

1 

34,2000 

a /.  9 a/.  9 

JUU.? 

o - r j oh  c 

0004 

REF 

40 

LAST 

3 3,0 

E7,  1515 

0005 

REF 

1 

0006 

REF 

69, 

LAST 

840 

34, 3642 

0 5353 

1 

0007 

36, 3643 

C 00  3 5 

1 

0005 

RFF 

144 

1 AST 

339 

34 , 3646 

0 6 037 

0 

000° 

7 / , 7 A ' r 

7 7 A 1 4 

f i O It 

L 

0010 

REF 

2 

LAST 

832 

34,3646 

04705 

1 

001  1 

REF 

2 

LAST 

840 

34,3647 

60321 

1 

0012 

34,3650 

4534  5 

1 

0013 

RFF 

2 

LAST 

147 

34 , 365  1 

03514 

1 

0014 

REF 

1 

34,3652 

26205 

1 

0015 

7 / . 7 A R 7 

lu  % 04  A 

1 

D r f 

I 

0016 

REF 

1 

34,3654 

60750 

0 

0017 

REF 

15 

LAST 

79  1 

34,3655 

042  67 

0 

0018 

3 4. 3 A3  A 

A 1 7 1 4 

1 

J *r  f D O J .. 

C I A * 

I 

0019 

RFF 

10 

LAST 

609 

34,3657 

02676 

1 

0020 

REF 

1 

34,3660 

31716 

0 

0021 

34,365 1 

77471 

0 

0022 

REF 

3 

LAST 

843 

34,3662 

03514 

1 

0023 

REF 

331 

LAST 

825 

34,3663 

52  155 

1 

002  4 

REF 

4 

LAST 

841 

34 , 3664 

53 '641 

1 

0025 

RFF 

4 

LAST 

84  1 

34,3665 

53' 637 

0 

002  A 

REF 

4 

LAST 

841 

34, 3666 

53*635 

1 

0027 

REF 

1 

53*571 

1 

ZJ  f 9 0'  ’ 

1 

0028 

REF 

145 

LAST 

843 

34,3670 

0 6037 

0 

0029 

34,3671 

43345 

1 

0030 

REF 

2 

LAST 

343 

34,  3,672 

03571 

1 

00  31 

REF 

5 

LAST 

84  3 

36,3673 

03635 

1 

0032 

34,3674 

43215 

0 

003  3 

REF 

5 

LAST 

a/*3 

34,3675 

0363  7 

0 

0034 

REF 

5 

LAST 

843 

34,3676 

03641 

1 

003  5 

34,3677 

41205 

0 

0036 

REF 

4 

LAST 

841 

34,3700 

02265 

1 

0037 

REF 

1 

34,3701 

21032 

0 

0038 

34,3702 

65252 

1 

0030 

REF 

4 

LAST 

841 

34,3703 

022  71 

1 

0040 

34,3704 

43342 

0 

0041 

34,3705 

77625 

0 

0042 

REF 

1 

34,3706 

21027 

1 

0043 

REF 

5 

LAST 

843 

34,3707 

16271 

1 

0044 

REF 

5 

L AST 

843 

34,3710 

022  65 

1 

0045 

54, 371 1 

56342 

1 

0046 

REF 

6 

LAST 

843 

34,3712 

02271 

1 

0047 

R EF 

C 

LAST 

841 

34, 371 3 

36263 

0 

BANK 

SETLOC 

BANK 


EBANK= 


COUNT* 


ATMAG  TC 
OCT 
TC. 
BOW 


DLu  AD 


BMM 


CLEAR 


POV 

DXCH 

DXCH 

DXCH 

DXCH 

DXCH 

TC 

DL  0 A D 


DAD 

DMP 

SL3 

SRI 

DSU 

si  not 

SRI 

STCALL 


34 

A SC  F I L T 


DVCNTR 

$3;/ A sent 

PHASCHNG 

00035 

intprft 

FLRCS 

ASCENT 

DSU 

ABDVCONV 

*■'  I A8D  V 

CLEAR 

ASCTERM4 

SURFFLAG 

SLOAD 

RENCWFLG 

BIT3H 

EXIT 

ABDVCONV 

MPAC 

1 /DV3 
I/DV? 
1/DV1 
1/DVO 
INTPRET 
DAD 
1/DVO 
1/DV1 
DAD 
1/DV? 
1/DV3 
DMP 

VE 

2 SEC ( 9 ) 
PDDL 
TBUP 
DAD 

6SEC  NS) 

TBUP 

VE 

DDV 

TBUP 

AT 
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PAGE  343 


USER  ’ 


ELY  .132 


PAGF  NO. 


EO  S3 


..e 


t 


I 


GAP: 

ASSEMBLE 

lEViriGN  1 CF  AGO  PLOW.  A-  AM  1 i’C  BY  EYLES 

3: 15  DEC.  2,1970 

FI  Y 

.132 

PAGE 

L 

ASCENT 

GUIDANCE 

USER'S  PAGE 

NO. 

2 

E7  S3 

004  8 PEF  3 LAST  843  34,3714  60321  1 ASCENT 


844 


0049 


34,3715 


0LCG4  0 B I T 31 1 


OCT 


4 
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P0050 


0051 

0052 

0053 
005  A 


OC1 5 r 

005  6 

00^7 

0058 

0059 

0060 
0061 
0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 
003  1 
0082 

0083 

0084 

0085 
0036 

0087 

0088 

0089 

0090 
009  1 
0092 
009  3 

0094 

0095 


ASCENT  GUIDANCE 


30,2321  BANK  30 

REF  2 LAST  39  30,2000  SETLOC  ASENT 

30,2321  BANK 

REF  2 LAST  39  TO  39:  2 2*  COUNT  4 $$/ASENT 


REF 

8 E F 

IF 

2 

L A 5 T 

1 AST 

RFF 

2 

LAST 

REF 

9 

LAST 

RFF 

2 

EAST 

REF 

3 

LAST 

REF 

14 

LAST 

REF 

2 

LAST 

REF 

10 

L A 5 T 

REF 

3 

LAST 

REF 

3 

l AST 

REF 

2 

LAST 

REF 

1 

REF 

16 

LAST 

REF 

16 

LAST 

REF 

11 

LAST 

REF 

3 

LAST 

REF 

2 

LAST 

REF 

6 

LAST 

RFF 

3 

LAST 

REF- 

2 

LAST 

REF 

4 

LAST 

REF 

3 

LAST 

RFF 

4 

LAST 

REF 

2 

1.  AST 

REF 

3 

LAST 

REF 

6 

LAST 

39 , 23~  l 

839  30,2322 
llc  30,2323 

840  30,2324 
30,2325 

840  30,2326 

120  30,2327 

84  5 30,2330 

30,2331 

840  30,2332 

120  30,2333 

30, 2334 
P'S  30,2335 
316  30,2336 

839  30,2337 

30, 2340 
147  30,2341 

30.2342 

30. 234 3 
845  30,2344 

30,2345 
845  30,2346 

845  30,2347 

30, 2350 
845  30,2351 

30.2352 

30. 2353 
120  30,2354 

839  30,2355 

30,2356 
8^5  30,2357 

120  30,2360 

30,2361 
845  30,2362 

841  30,2363 
30,2364 

845  30,2365 

120  30, 2366 

30,2367 
845  30,2370 

8^-1  30,2371 


'1676  1 ASCENT 

03521  1 

26301  1 

03726  1 

72441  0 

03527  1 

26313  1 

03726  1 

76435  1 

03537  0 

02303  0 

72441  0 

03527  1 

36311  1 

57312  0 

77775  1 

03563  1 

5C341  1 

27147  0 

03537  0 

47315  0 

03537  0 

03527  1 

56236  0 

02301  1 

43352  1 

77626  0 

61462  0 

02277  1 

77625  0 

02313  1 

02343  1 

65361  0 

03726  1 

02275  0 

6762  5 0 

02311  0 

02341  0 

65361  0 

02303  0 

022/3  0 


VI. 0 AD  ABVAL 
R 

STOVE  /R/MAG 
ZAXIS1 
DOT  S LI 

V 

STEVE  /DOT 

ZAXI SI 
VXV  VSt  1 

UNIT/R/ 
STORE  LAX  IS 
DO  I SL1 

V 

STCALl  YDOT 
Y'COMP 

VLOAD 

GOT  1/2 
V/SC  DOT 

2 SEC ( 18 ) 
UNIT/R/ 
PD VI  VXV 

UNIT/P/ 

V 

VSQ  DOV 

/R/MAG 
Si  1 DAD 
St  ADR 

STGDL  GEFF 
Z DOT  D 

DSU 

ZDOT 

STORE  D Z D 0 T 
VXSC  POOL 

ZAXIS1 

YDOTD 

DSU 

YDOT 

$1  l E DYD'-’T 
VXSC  PDDL 
L AX  I S 
RDOTD 
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845 
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Z.V  = ZDOT*2(-8). 
7D0T*2(-7 ) 


Z X UR  = LAXIS*2<-2> 
LAXIS*2(-1 ) 

L.V  = YDOT *2 ( -3 ) . 
YDOT  * 2 t - 7 ) 


LOAD  GDT1/242I-7)  M/CS. 


G . U R *2(9)  = G R * 2 ( 9 ) . 

STORE  IN  PD!(0) 

LOAD  UNIT /R/42 (-1 ) . 

UR*2<-1)  X V*2 ( -7 ) = H/R*2(-8). 
H(2)/P(2)*2(-16). 

H ( 2 > / R ( 3 ) * 2 I 9 ) . 


GEF  F*  2 ( 10)M/CS/CC. 


DZ  DOT  = (ZDETD  - IfOT) *2 (7) M/C S . 


( 2) 


DYOOT 


( YDOTD  - YDOT )*2(7 1M/CS 
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L ASCENT  GUIDANCE 


3" 


0096 

0097 
009  8 
0099 
OIOC 
0101 
0102 

0103 

0104 

0105 

0106 
0107 

oi  oe 

0109 

0110 
0111 
0112 

0113 

01 14 

0115 
011  6 

0117 

0118 

0119 

0120 
0121 
0122 

0123 

0124 

0129 
0126 
0127 
0 1 2 P 
012° 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 
0130 

0140 

0141 

0142 

0143 

0144 
01  ' 


REF 

2 

LAST 

840 

kEF 

2 

LAST 

120 

RFF 

17 

LAST 

845 

REF 

3 

LAST 

2 00 

REF 

2? 

LAST 

835 

FEE 

3 

LAST 

845 

REF 

18 

LAST 

846 

REF 

4 

LAST 

846 

REF 

5 

LAST 

846 

REF 

4 

LAST 

8 12 

PEF 

10 

LAST 

835 

REF 

6 

LAST 

846 

9 EF 

3 

l A ST 

843 

PEF 

1 

REF 

1 

REF 

23 

LAST 

846 

REF 

1 

REF 

6 

LAST 

843 

REF 

1 

REF 

1 

RFF 

7 

LAST 

843 

PEF 

4 

LAST 

841 

REF 

24 

LAST 

846 

REF 

23 

LAST 

746 

PEF 

25 

LAST 

846 

REF 

6 

LAST 

833 

PEF 

1 

REF 

2 

LAST 

773 

REF 

1 

REF 

26 

LAST 

846 

30,2372 

77625 

0 

30,2373 

03474 

0 

30 , 23  74 

023  3 7 

1 

30,2375 

5 3361 

0 

30,2376 

03537 

0 

39,2377 

76455 

1 

30,2400 

77626 

0 

30,2401 

7 4131 

1 

30, 2402 

41345 

0 

?C, 2403 

(.■3517 

1 

3 0,  2404 

G 2 3 1 5 

1 

30,2405 

76561 

1 

30, 2406 

03537 

0 

30,2407 

77645 

0 

30,2410 

03646 

0 

30,2411 

03646 

0 

30,2412 

76521 

0 

30,2413 

0 2146 

0 

30,2414 

27502 

0 

30, 24  15 

0 36  46 

0 

30,2416 

43046 

1 

30,2417 

0^745 

0 

30,2420 

6 0425 

1 

30 , 242 1 

77671 

30,2422 

20001 

1 

30,2423 

37517 

0 

30,2424 

60746 

1 

30,2425 

41471 

0 

3 0 , 242  6 

022  65 

1 

30,2427 

442  05 

0 

30,2430 

262C1 

0 

30,2431 

17771 

0 

30 , 2432 

41205 

0 

30,2433 

0 2271 

1 

30,243' 

77625 

0 

30, 2435 

02267 

0 

30,2436 

03517 

1 

30 , 2437 

57461 

0 

30,2440 

20614 

0 

30,2441 

174  5 4 

1 

30,2442 

03517 

1 

30 , P4A  3 

4 5 2 1 4 

l 

30, 2444 

03710 

1 

30,2445 

60451 

1 

30,2446 

21021 

1 

30,2447 

77640 

0 

30,2450 

3 03  5 5 

1 

30,2451 

77745 

1 

30,2452 

03517 

1 

30,2453 

50025 

0 

DSU 

STORE 

VXSC 

VAD 

STADR 

STORE 

DLUAD 

VXSC 

BVSU 

STORE 
MX  V 

STOVL 

ABVAL 

DDV 

STCALL 

MAIN ENG  00V 
DMP 

UMP 

DSU 

STORE 

SP 

STODL 

BON 

BMN 

T2TEST  OLOAD 
DSU 
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R DOT 

DR  DOT 

VAD 

UNIT /R/ 

VS  LI 

DR  DOT  = ( P GOT  D - RDOT ) *2 ( 7 ) MACS . 

VGVECT 

DMP 

T GO 

GEFF 

VSL  1 

VG  = (DRDCT)R  + (DYDOUL  + (DZDOT)Z. 

LOAD  T GO 

TGO  GEFF 

UNIT/R/ 

T GO  GEFF  UR 

VGVECT 

VGVECT 

VSL  1 

XNBPIP 

VGBODY 

VGVECT 

COMPENSATED  FOR  GEFF 

STORE  FOR  DOWNLINK 

GET  VGBODY  FOP  N85  DISPLAY 

BOFF 

FLPCS 

MAINE MG 

MAGNITUDE  OF  VGVECT 

IF  FLF  CS  = C ,00  NORMAL  GUIDANCE 

AT/RCS 

USE  T GO  = VG/AT  WITH  RCS 

T GO 

ASCTERM2 

THIS  WILL  BE  USED  ON  NEXT  CYCLE 

PUSH 

VE 

VG/VE  IN  PDL(O)  (2) 

BDSU 

KT1 

NEAP.  ONE 

1-KT  VG/VE 

DMP 

T8UP 

TTO 

T GO 

DCOMP 

1 ID 

TBUP  VG ( 1-KT  VG/ V E ) / V E (0) 

= TGO 

COMPENSATE  FOR  TAILOFF 

TTO  GO 

T GO 

DSU 

IDLEFLAG 

T2TFST 

T GO *2 (-28  ICS 

4SEC( 17) 

ENGOFF 

( TGO  - 4 ) 42 ( - 1 7 ) CS. 

T GO 

BMN 

IF  TGO  - T 2 NEG.,  GO  TO  CM PON ENT 

GAP : 


ASSEMBLE  REVISION  001  OF  AGC  PROGRAM  AP11RGPE  BY  FYLES 


0146 

0147 

0148 
0140 

0150 

0151 
015? 

0153 

0154 

015  5 

0156 

0157 

0158 
015Q 
0160 
0161 
016? 
016’ 

0 1 6 4 

0165 

0166 
016  7 
016  8 
01 6 c 

0170 

0171 

0172 

0173 
01  76 
017* 

0176 

0177 


A SC  ENT  GUI  DAGO E 


REF 

REF 

REF 

RFF 

REF 

RFF 


REF 

REF 

REF 

REF 

RFF 

REF 

REF 

REF 

RFF 

RFF 

REF 

REF- 

REF 


1 

1 

8 

27 

9 

1 


2 8 
10 

L 

1 

29 

1 

1 

2 


2 

2 

1 

30 


LAST 

LAST 


LAST 

LAST 

LAST 


846 

846 


LAST  847 


LAST 

LAST 


847 

847 


I AST  847 


LAST  047 


Pi  1 
120 
120 


LAST  847 


017° 

RFF 

31 

l AST 

847 

1 

018C 

0181 

PEF 

3? 

LAST 

P4-7 

0182 

RFF 

3 

LAST 

846 

1 

3" 

0183 

0184 

REF 

lf 

LAST 

e45 

0185 

REF 

3 

LAST 

84-1 

1 

0186 

0187 

REF 

3 

LAST 

1 

2" 

1 

0188 

0189 

0190 

0191 

0192 

RFF 

33 

LAST 

847 

01  R3 

REF 

LAST 

847 

0194 

0195 

REF 

1 

30.2454 

30.2455 
3 0 , 2 4 - > 
30,24*7 
30,2460 
3R  , 246  1 

30.2462 

30.2463 
3,0 , 2464 

30.2465 

30.2466 

30.2467 

30.2470 

30 . 2471 

30.2472 

30.2473 
30 , 247  4 
30,2476 

30.2476 

30.2477 
30,2500 
3 C , 2 50  1 

30.2502 

30.2503 

30. 2504 

30.2505 

30.2506 
3 C,  2 507 
30,2510 
3 n , 2 * 1 } 

30.2512 

30.2513 
30, 2514- 
30,2515 
3.),?51f 
30, 25  17 
30,2520 
30,252  1 

30.2522 

30.2523 

30.2524 

30.2525 

30.252 6 

30.2527 

30.2530 

30.2531 

30.2532 
30,2633 

30.2534 

30.2535 


21C23  0 
60612  1 
453‘-  i 1 
02271  1 
03517  1 
4*071  0 
02271  1 
61036  0 
41461  1 
20206  1 
44265  C 
03517  1 
02271  1 
43006  0 
04703  1 
60502  0 
6 5 3 4-  * 1 
03517  1 
21025  0 
43 044  0 

6 C 5 1 0 0 
04463  1 

7774*  1 NOTATES 

06522  1 

02351  1 

02353  0 

77650  1 

60572  L 

4-53  4 6 1 RATE! 
03617  1 
00003  1 
72406  0 
52421  1 
03517  1 
41325  0 
03517  1 
0 34  74-  0 
45215  0 
02301  1 
03631  0 
41325  0 
02337  1 
00005  1 
62415  0 
56271  0 

00007  0 
03517  1 
02351  1 
71240  1 
60541  1 


DLL)  AD 

DDV 

SL 

BDDV 

PUSH 

DLL  AO 

BPL 

DL  Li  AD 

STORE 
STORE 
GOT o : 

Dl.  0 AD 

PUSH 

BDSU 

POOL 

DAO 

POOL 

DAO 

DDV 


STC'R  F 
BMM 
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T2  A 

C MPONENT 
DSU 
TftUP 
T GO 

CALL  1-TGO/TBUP 

TBUP 

LOGSUB 

PUSH  -L  IN  F 01  (0)  (2) 

5 

BOSU  -TGO/I.  *2  ( - 17  ) 

TGO 

TBUP  TBUP  + tgo/I  = 01 2*2 ( -17) 

BON  STORE  IN  P DL ( 2 ) (4) 

F L PC  IF  FL  PC  = 1,  GO  TO  CONST 

NOR ATES 

DSU 

TGO 

T 3 

SET  F L P C.  = 1 

RATES 

FLPC 


H 16  ZEROS 

PRATE  R = 0 

YRATE  D = 0 


CL  NS T 

GO  TO  CONST 

DSU 

TGO 

02D 

TGO  - D 1 2 = D2 1*2 ( -17  ) 

SL1 

IN  PDL ( 4 ) 

SI  3 

( 1/2TG0  - C21 ) *2 ( - 13 ) 

TGO 

D H P 

IN  PDL  (6  ! 

TGO 

RDOT 

RDOT  TGO  * 21-24) 

DSU 

F + RDOT  TGO 

/R/MAG 

R + RDOT  TGO  - RCO 

FCC 

MPAC  = - DR*2(-24). 

DMP 

-DR  1 0 PDL  C e ) 

DR  DOT 

04D 

D21  DP  DOT  *2 ( -2  4 ) 

SL2 

(D21  DR  DOT-DP ) *2 ( -2? ) 

DDV 

06D 

(D21  DP  DOT -DP  )/E*2(-9) 

TGO 

PRATE 

B * 2(8) 

DLOAD 

B>0  NOT  PERMITTED 

CHKBMAG 

(6) 

m 


( 10) 


( 8 ) 


;a  p: 

ASS E MB 

LE 

REVISION  001 

OF  AGO  PRl 

. GK AM  Af 

>1  1 
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YL  E S 
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E 
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E 7 S3 

0196 

REF 

10 

LAST 

847 

30,2536 

06522 

1 

HI6ZER0S 

0197 

REF 

4 

LAST 

847 

30,2537 

36351 

0 

STCAL  L 

PRATE 

0,198 

REF 

30. 2540 

60553 

PROK 

-2  ' > y C.  -J 

0199 

30,2541 

56  202 

1 

CHKBMAG 

SR4 

DOV 

8*2 (4  ) 

0200 

REF 

11 

LAST 

847 

30,2542 

0 2271 

1 

TBUP 

< 8 / TAU)  * 2(21) 

0201 

30,2543 

8 102  5 

1 

DCU 

BPI 

020  2 

REF 

1 

30,2544 

26203 

1 

PRL  IMI T 

( B/  TAU)  * 2(21)  MAX. 

0203 

REF 

2 

LAST 

848 

30,2545 

o05  53 

1 

PROK 

020' 

30,2546 

41345 

0 

DLQAD 

DMP 

0209 

REF 

2 

LAST 

848 

30,2547 

262  03 

l 

PRL IM IT 

0206 

REF 

12 

LAST 

848 

30, 255  C 

0 22  71 

1 

TBUP 

B MAX . * 2(4) 

0207 

30 , 2551 

7761  2 

1 

SL4 
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26  102 

0 

ADS 

FLAGWRDfc 

0218 

REF 

4 

LAST 

862 

33,2351 

1 2375 

0 

TCF 

USE  JETS 

021° 

REF 

2 

1.  AST 

86  1 

33,2352 

0 3 5 52 

0 

LOT HRUST 

TC 

QUIKFAZ5 

02  2 0 

REF 

47 

LAST 

86  2 

33, 2353 

1 1 ' 5 1 5 

0 

CCS 

DVCNTR  - 

02?  1 

REF 

1 

33,2354 

1 2 3 66 

l 

T 0 F 

n F T C M r r 

I./  l_VCr  1 ' I 

0222 

REF 

1 

33,2355 

10  761 

0 

CCS 

PHASER 

02222 

REF 

2 

LAST 

3 62 

3 3 , 2356 

1 2400 

0 

TCF 

SFRVQUT 

J L I ' V U U 1 

02224 

REF 

75 

LAST 

860 

33,2357 

0 5353 

1 

/ 

TC 

PHASCHNG 

02226 

33 , 2360 

00374 

1 

-/ 

OCT 

00374 

02228 

REF 

4 

LAST 

716 

33,2361 

3 7713 

0 

CAF 

PRI025 

0223 

REF 

22 

LAST 

8 57 

33,2362 

0 5072 

1 

TC 

NQVAC 

02232 

REF 

3 0 

LAST 

863 

E"7  , 1455 

EBANK= 

WHICH 

02234 

REF 

2 

LAST 

242 

33,2363 

02571 

0 

2CADR 

CGMFAII 

02234 

33,2364 

74067 

0 

02236 

REF 

3 

LAST 

362 

33,2365 

1 2400 

0 

TCF 

SEPVOUT 

0224 

REF 

1 

33,2366 

55 ' 570 

0 

DECCNTR 

TS 

DVCNTR 1 

022  5 

REF 

3 

LAST 

862 

33,2367 

0 3 5 52 

0 

TC 

QUIKFAZ5 

02  26 

REF 

2 

LAST 

86  2 

33,2370 

3 1570 

1 

CA 

DVCNTR 1 

0227 

REF 

48 

LAST 

86  2 

33,2371 

55 ' 5 1 5 

0 

TS 

DVCNTR 

0228 

3 3 j 23  72 

0 0004 

0 

INHINT 

C 2 l 

REF 

43 

LAST 

854 

33,2373 

0 4674 

0 

TC 

I BNKCALL 

3:15  DEC.  2,1970  FLY  .132  PAGE 

USEP ' S PAGE  NO.  6 E7  S3 

THRUST  HAS  BEEN  DETECTED. 

BRANCH  IF  APS  FLAG  IS  SET. 


CHECK  GIMBAL  FAIL  BIT 


SET  AUXFLAG  TO  0. 


SET  AUXFLAG  TO  1. 


COM  FA  I L JOB  ACTIVE? 

YES  WON'T  NEED  ANOTHER. 

4 . 3 7 S P(  T FOL  COM  FA  I L . 


IS  LOW,  NO-  STEERING  IS  DONE 

/ 


862 


IF  THRUST 


GAP:  ASSEMBLE  RE  VIS!-'  U 001  ‘F  A SC  PROGRAM  APllRpPE  BY  EYLES 


L SERVICE 


0230 

REF 

6 

LAST 

813 

33,2374 

40165 

1 

cadr 

STOPRATE 

0231 

REF 

31 

LAST 

862 

33,2375 

4 0111 

1 

USEJETS 

CS 

DAPBOOLS 

0232 

REF 

3 

LAST 

862 

33,2376 

7 473o 

0 

MASK 

USEQRJTS 

0233 

REF 

32 

LAST 

663 

33,2377 

26  111 

1 

ADS 

DAPBOOLS 

023* 

33,2400 

0 0003 

1 

SEP  VnUT 

RELINT 

no  o e 

DPP 

5 a n 

1 KT 

8 6. 1 

3 , 240  1 

0 4616 

TC 

BANKCA! 1 

c.  O 

0236 

nxf 

REF 

c.  t'J 

l 

L M D I 

33,2402 

40457 

0 

CADR 

1/ACCS 

0239 

REF 

11 

LAST 

2 69 

33,2403 

3 C 1 6 7 

1 

CA 

PRIOR  I TY 

0240 

REF 

8 

LAST 

43  0 

33 , 2*04 

7 500* 

1 

MASK 

LCW9 

0241 

PFF 

8 

L A S T 

8 06 

33,3405 

54  166 

1 

TS 

PUSHLOC 

88.8406 

2 2 00  7 

0 

Z L 

D D J C.  TU" 

0243 

REF 

25 

LAST 

825 

33,2407 

52  12  1 

1 

DXCH 

FIXLOC 

0244 

REF. 

4 

LAST 

362 

33 , 2410 

0 3562 

0 

TC 

OUI KFAZ5 

0245 

33,2411 

G COL  ' 

1 

EXTENO 

0246 

R E F 

6 

LAST 

859 

33, 2412 

3 12  53 

1 

DC  A 

4VGEX  >t 

AO  A 7 

DPP 

S>  1 

1 ACT 

3 5*  , ) A I "2 

5 2 0 06 

n 

DXCH 

7 

U <1  + f 

C.  1 

L A j ! 

IU" 

L 

02475 

REF 

7 

LAST 

851 

33,2414 

02145 

0 

XN3PT  PAD 

EC  ADR 

XNBPIP 

0248 

32, 3770 

BANK 

3 2 

0249 

REF 

1 

22 , 2000 

SET'  OC 

SERV2 

0250 

22,366 1 

BANK 

0251 

REF 

1 

COUNT* 

$$/SEP V 

0252 

REF 

19 

LAST 

852 

22,3661 

3 12  3 5 

1 

AVGEND 

CA 

PIPTIME  +1 

0253 

REF 

3 

LAST 

860 

22,3662 

55*075 

0 

TS 

1/PIPADT 

0254 

REF 

55 

LAST 

853 

2 2,36  6 3 

n 5 S 0 4 

0 

rr 

IIPpI  AT 

V'  4 ‘T 

i U 

’ ? r r L hu 

0255 

REF 

1 

22,3664 

0C036 

1 

ADRES 

DR  I FT  FL G 

0256 

REF 

241 

LAST 

863 

22, 3665 

0 4616 

L 

TC 

BAJKCAL.L 

0257 

REF 

1 

22,3666 

17310 

0 

CADR 

P IPFREE 

025  8 

REF 

23 

LAST 

36  2 

22,3667 

4 4743 

1 

CS 

B IT9 

0259 

22,3670 

0 0006 

1 

EXTEND 

02  60 

REF 

29 

LAST 

858 

22,3671 

03  011 

1 

WAND 

DSALMOUT 

0261 

eEF 

10 

LAST 

76  2 

22,3672 

0 532  7 

1 

TC 

2PHSCHNG 

0262 

22,3673 

00005 

1 

OCT 

5 

0263 

22,3674 

05022 

1 

OCT 

05022 

0264 

22  , 3675 

2 C 0 0 0 

0 

OCT 

20000 

0265 

REF 

151 

LAST 

86  1 

22,3676 

0 6037 

0 

TC 

INTPRET 

0266 

22,3677 

43014 

0 

SET 

CLEAT 

0267 

REF 

2 

LAST 

850 

22,3700 

01464 

0 

NOR 29 FUG 

0268 

REF 

1 

22,37 0 1 

03664 

0 

S WAND  IS P 

0269 

22,3702 

45014 

0 

CL  EAR 

CALL 

0270 

REF 

7 

LAST 

861 

22,3703 

03267 

1 

MUNFLAG 

15  DEC.  2,1970  FLY 

.132 

PAGE  863 

..1 

USER  * S PAGE  NO. 

7 

E7  S3 

AND  THE  DESIRED  RATES 

AF  E 

SET 

TO  ZERO. 

..z 


FIXLOC  AND  OVFTND 


EXIT  to  SELECTED  ROUTINE  WHETHER  THERE 
IS  THRUST  OR  MOT.  THE  STATE  OF  STEEP SW 
WILL  CONVEY  THIS  INFORMATION. 


FINAL  AVEF  AGE  G EXIT 

SET  UF  FREE  FALL  GYRO  COMPENSATION. 

SET  DRIFT  FLAG. 


GROUP  5 OFF 
GROUP  ? ON 


SHUT  OFF  R29  WHEN  SERVICER  ENDS. 
SHUT  OFF  F 10  WHEN  SERVICER  ENDS. 
RESET  MUNFLAG. 


gap  : 

ASSEMBLE  REVISION  001  OF  AGC  PROGRAM  A?UROPE  BY  EYLES 

3 ! 1 3 DEC.  2,1970 

FLY 

.132 

PAGE 

L 

SERVICER 

USEh  ' S PAGE 

NC . 

8 

E 7 S3 

0271 

0272 
027  3 

02  7 4 

D EF 

R F F 

1 

1 

3 

22. 3704 

22 . 3705 

2 2,3  706 

27467 
77414 
0 367 1 

1 

0 

1 

1 AVER  TCP 

REF 

LAST 

857 

22,3707 

3 12  60 

0275 

REF 

14 

LAST 

748 

22,3710 

0 ' 640 

1 

AVETOMI D 
CLEAR  EXIT 

V37FL AG 

CA  nUTROUTf  P ETUr  N TP  DESIRED  POINT 

TC  SANK  JUMP 


0276 

REF 

1 

22 , 3707 

CIUTGPAVE  = 

AVEPTRN 

0277 

REF 

5 LAST  860 

E7 , 1570 

DVCNTR1  = 

MASS1 

GAP:  ASSEMBLE  . F.VIMDP  001  F AGC  f!  i 16  AM  AP11  OPE  BY  EYLES 


L SERVICE^ 


P 027  9 


021  f ? 

REF 

1 

27,2000 

SET  LUC 

5 Ec  V 3 

02734 

27,3321 

BANK 

02786 

REF 

I 

COUNT* 

T $/ S ER V 

0279 

27,3321 

0 0006 

1 

SERVIDLE 

EXTEND 

0280 

REF 

L 

27,3322 

3 3357 

0 

OCA 

SVE  XTADR 

0281 

REF 

7 

LAST 

863 

27,3323 

53' 253 

0 

DXCH 

AVGEXIT 

0232 

REF 

23 

LAST 

861 

27,3324 

4 Cl  03 

1 

CS 

FLAG  W D ")  ? 

n '} ; , 'i 

R F F 

4 

1 A FT 

3 6 1 

27,3325 

7 4745 

MA  c K 

T 111  C CO  I Y 

Ucu  j 

ocr 

LW  J 1 

1 u l.  L 1 D 1 1 

0284 

REF 

24 

LAST 

865 

27,3326 

26  103 

1 

ADS 

FLAGWRD7 

0285 

REF 

5 

LAST 

831 

27, 3327 

3 47  35 

I 

C AI- 

LRBYBIT 

0236 

REF 

15 

LAST 

831 

27,3330 

54  107 

0 

TS 

FLGWRD1 1 

n ? a 7 

A7  .AAAI 

0 POflA 

1 

EXTEND 

4 0 f 

i 1 D D D I 

vy  U vO 

1 

0288 

REF 

18 

LAST 

832 

27,3332 

3 4755 

1 

DC  A 

NEGO 

0289 

REF 

5 

LAST 

83  2 

27, 3333 

52  753 

1 

DXCH 

-PHASE1 

0290 

REF 

12 

LAST 

86  2 

27, 3334 

3 0102 

1 

CA 

FLAGWRD6 

0201 

REF 

4 

LAST- 

858 

27 , 3335 

7 4744 

u 

MASK 

munfi  an 

029  2 

RFF 

2 c 4 

LAST 

862 

27, 3334 

10  000 

0 

CCS 

A 

0293 

27,3337 

1 3343 

1 

TCF 

+ 4 

0294 

27, 3340 

0 CO 06 

1 

EXTEND 

029  5 

REF 

19 

LAST 

6 65 

27,3341 

3 47  55 

1 

DC  A 

NEGO 

0296 

REF- 

6 

LAST 

8 59 

27 , 3342 

52  755 

1 

DXCH 

-PHASE2 

0297 

27 , 3343 

0 00  06 

1 

+4 

EX v END 

0298 

REF 

20 

LAST 

865 

27,3344 

3 4755 

1 

DC  A 

NEGO 

0299 

REF 

5 

LAST 

8 3 2 

7 7. 334  5 

FA  7 F 7 

n 

n v r u 

— Priit FA 

.c.  * y U 6/. 

w f-  1 m • 

V 

u A L,  n 

I 1 i R v t—  3 

0300 

27,3346 

0 0006 

1 

EXTEND 

0301 

REF 

21 

LAST 

865 

2?  , 33<=  7 

3 4755 

1 

OCA 

NEG9 

0302 

REF 

4 

LAST 

83  2 

27,3350 

52  765 

1 

DXCH 

-PHASE6 

0303 

REF 

2 

LAST 

224 

27, 3351 

3 4764 

0 

GAF- 

OCT33 

0304 

REF 

1 35 

LAST 

859 

2 ^ , 3 3 r>  ? 

54  C01 

1 

TS 

L 

030  5 

27, 3353 

4 0000 

0 

COM 

0306 

REF 

8 

LAST 

332 

27,3354 

52  7-1 

0 

DXCH 

-PH A SEA 

0307 

REF 

1 

27,3355 

1 5 644 

0 

TCF 

WHIMPER 

A 030  S 

A 03 OP 
A 03  1C 
A 03  11 


0312 


REF  49  LAST  862 


E7, 1515 


EBANK=  DVCNTP 


3:  15  DEC.  2, 

1970 

FLY 

.132  PAGE 

USFP  ' S 

PAGE 

NO. 

9 E7  S3 
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DISCONNECT  SERVICEP  FROM  ALL  GUIDANCE 

,.e 

D I SCDNN  ECT  THE  DELTA-V  MnNITOP. 


TERMINATE  R12  IF  RUNNING. 


DO  NOT  TURN  OFF  PHASE  2 IF  MUNFLAG  SFT . 


4. 3t3S  PUT  FOP  GOPOOF  IX 


PERFORM  A SOFTWATE  RESTART  AND  PFOCEED 
TO  GOTCPOCH  WHILE  SEFVICER  CONTINUES  TO 
RUN,  ALBEIT  IN  A GROUND  STATE  WHFFE 
ONLY  ST  AT E-V EC TOP  DEPENDENT  FUNCTIONS 
ARE  MAINTAINED. 


GAP:  ASSEMBLE  ;E VISION  COl  OF  A GC  PROGRAM  AP11ROPE  BY  EYLES 


L SERVICEF 


0313 

REF 

8 

LAST 

859 

27,3356 

03770 

1 

SVEXTADP 

2CADP 

SERVEXIT 

0313 

27,3357 

64067 

1 

031^ 

8 ? . 87  70 

BANK 

33 

3 C. 

0315 

ft  EF 

1 

32,2000 

SET'  OC 

SERV 

0314 

32,3770 

BANK 

0317 

REF 

l 

COUNT* 

$$'/$  ER  V 

0318 

REF 

76 

LAST 

862 

32, 3770 

0 5353 

1 

SERVEXIT 

TC 

PHASCHNG 

0319 

32,3771 

OC.C35 

1 

CCT 

00035 

032  C 

REF 

132 

LAST 

850 

32,3772 

1 5155 

1 

+ 2 

TC  F 

ENUF  F JOB 

0321 

23,2461 

BANK 

23 

0322 

REF 

1 

23,2000 

SETLOC 

NORML I Z 

0323 

23,2461 

BANK 

032  A 

REF 

1 

COUNT* 

$ $/  S ER  V 

3:  15  DEC,  2 
USE"' ' 


,1970  FLY 


.132  PAGE  866 


S PAGE  NO.  10 


E?  S3 


..z 


GAD:  ASSEMBLE  kE.VI.  I J-N.  ■'  1 F A GC  PkOGR  AM  API  1 - F Pk  BY  EYLE: 


L 

SERVICER 

P0325 

NORMLIZE 

AND 

COPYCYCL 

032  6 

REF 

152 

LAST 

863 

2 it  2461 

0327 

23,2462 

032  6 

9EF 

3 

LAST 

14° 

23, 2463 

n 7 q 

REF 

q 

1 AST 

8 4 3 

? 7 . ?£  A L. 

L-  H J I 

6 7 1 C-  ' 

0330 

REF 

1 

23,2465 

0331 

23,2466 

0332 

REF 

32 

LAST 

842 

23,2467 

0333 

REF 

1 i 

L A ST 

845 

23,2470 

0334 

REF 

4 

LAST 

539 

23, 247  1 

033  c 

77,747? 

0336 

REF 

4 

LAST 

77Q 

23,2473 

0337 

23,2474 

03  38 

REF 

33 

LACT 

36  7 

23,2475 

0339 

REF 

12 

LAST 

345 

23,2476 

0340 

FEE 

4 

LAST 

7 34 

23,2477 

0341 

23, ?800 

0342 

REF 

4 

LAST 

734 

23, 2501 

0343 

REF 

3 

LAST 

151 

23,250? 

0344 

7 3 . 7 3 T,  7 

c.  / f c v v-  _> 

0345 

? 3 , 2804 

0346 

REF 

22 

LAST 

8 65 

23,2503 

0347 

d FF 

7 

LAST 

3 A5 

73,2596 

0348 

REF 

53 

LAST 

853 

23,2507 

034  S 2 

, REF 

1 

23,2510 

0348  3 

33+2415 

034  84 

RFF 

5 

LAST 

8 40 

3 3,7  0 0 0 

03485 

33,2415 

3 

REF 

5 LAST 

859  TO 

863: 

0349 

33,2415 

0350 

R EF 

1 

33,2.6  1 6 

0351 

3 3 ,2417 

0352 

REF 

1 

33,2420 

0353 

REF 

2 

LAST 

361 

33, 2421 

0354 

RFF 

133 

LAST 

866 

33,2422 

0355 

REF 

7 

LAST 

859 

33,2423 

0356 

0357 

REF 

4 

LAST 

3 33 

33. 2424 

33.2425 

0353 

REF 

31 

LAST 

751 

33,2426 

0359 

0360 

RFF 

32 

LAST 

867 

33 , 2677 
33 , 2430 

0361 

REF 

4 

LAST 

867 

33,2431 

0362 

REF 

33 

LAST 

867 

33,2432 

. - 03  7 0 i LIZE  TC  I NT  P PET 

+31 7b  0 VLOAD  BOFF 

03  54  3 0 PM 

0 3 3';  7 1 MI.JNFl  AG 

66415  1 N0RMLIZ1 

64252  0 V SL6  MXV 

01734  0 REFSMMAT 

37521  0 STCALl  F. 

67130  1 MUNGPAV 

7 1 f 75  1 VLOAD  VSL1 

03553  1 VN1 

77721  0 MXV 

01734  0 F-  FFSMMAT 

2752  7 1 ST  Vs  V 

01726  0 V(CSM) 

53435  0 VXV  UNIT 

01720  0 P(CSM) 

03720  1 STORE  UHYP 

77776  1 ASCSPOT  EXIT 

0 C 006  1 EXTEND 

3 4755  1 DC A NEGO 

r2  755  1 DXCH  -PHASE2 

0 4635  0 TC  POST  JUMP 

6 6s 20  1 CADS  TCK MLIZ2 

BANK  33 
sftloc  Services 

BANK 

135  172  * COUNT*  $$/SERV 


77624 
66730 
7 7776 

1 

0 

1 

N0KMLIZ1 

CAL  L 

EX  IT 

CALC  G R A V 

3 2437 

0 

N0RMLIZ2 

CA 

EIGHTEEN 

0 2424 

1 

TC 

CUPYCYC  +1 

0 5155 

0 

TC 

ENDOF JOB 

3 6007 

0 

CUPYCYC 

CA 

OCT  2 4 

0 0004 

0 

+ 1 

INHINT 

7 7747 

0 

+ 2 

MASK 

NEG1 

54  0 61 

1 

TS 

I TEMPI 

0 0006 

1 

EXTEND 

5 0061 

0 

INDEX 

ITEmci 

3 1545 

1 

DC  A 

RN1 

50  061 

0 

INDEX 

ITEMP1 
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MAKE  SURE  GOUP  2 IS  OFF. 


DC.  NOT  COPY  MASS  IN  NORMLIZE 


DEC  20 


867 


: EDUCE  BY  1 IF  ODD 


GAP:  ASSEMBLE  F VISIT  K 001  Qf  ACC  PROGRAM  AP11K0PE  BY  EYLES 


SERVICER 

0363 

REF 

13 

LAST 

791 

33,2433 

53' 221 

0 

DXCH 

0364 

REF 

34 

LAST 

867 

33,2434 

10  061 

1 

CCS 

0365 

REF 

3 

L AST 

867 

3 3,2435 

1 2425 

1 

IGF 

03  66 

ft  E F 

211 

LAST 

860 

33,2436 

0 0,002 

0 

TC 

0367 

33,2437 

00022 

I 

EIGHTEEN  DEC 

3 : 15  DEC 
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ITEMP1 
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R 03  60  HOD  NO.  on  BY  0.  LICKLY  DEC. 9 1966 


GAP:  ASSEMBLE  REVISION  0 -1  GF  AGC  PROGRAM  APllRHPL  BY  EYLES  3:15  DEC.  2,1970 

L SERVICER  ' USER'S  PAGE 


R 0370  FUNCTIONAL  DESCRIPTION 

R 037 1 SUB  OUTINE  TO  LEAD  PIPA  COUNTERS,  TRYING  T'  BE  Vl-  Y CAREFUL  SO  THAT  IT  WILL  BE  RESTARTABLE. 

R 0373  PIPA  READINGS  ARE.  S'"  E 0 IN  ThE  VECTOR  DELV.  THE  HIGH  ORDER  PART  OF  EACH  COMPONENT  CONTAINS  THE  PI 

R037r  E ST AD  TS  BEGIN  AT  REPEADAC. 


R 0376  AT  THE  END  OF  THE  PIPA  READER  THE  CDUS  ARE  READ  AND  STORED  AS  A 

R 0377  VJECTOF  IN  CDUTEMP.  THE  HIGH  ORDER  PART  OF  EACH  COMPONENT  CONTAINS  , 

R0378  THE  CDU  FADING  IN  2S  C-  BP  IN  THE  OLDER  CDUX,Y,Z.  THE  THRUST 

R 0379  VECTOR  ESTIMATOR  IN  FINDCOUD  REQUIRES  THE  CDUS  BE  READ  AT  PIPTIME. 

R 0380  CALLING  SEQUENCE  AND  EXIT 

R0381  CALL  VIA  TC,  ISWCALL,  ETC. 

R 038  2 EXIT  is  VIA  0. 

R 03  8 3 

R 0384  INPUT 

R 03  8 5 INPUT  TS  THROUGH  THE  CnjUTE'S  PI  PAX,  D I P A Y , PTP'AZ,  AND  TI«E2. 

R 0386  OUTPUT 

R 03  87  HIGH  0 P DE " COMPONENTS  iF  the  VECTOR  DELV  CONTAIN  T ME  PIPA  READINGS. 

r 03  p 8 Uptime  contains  time  of  pi  pa  reading. 


R 0339 

DEBRIS 

(ERASAS 

LE  LOCATIONS  DESTROYED 

BY 

PROGRAM) 

R 039  0 

TE^X 

T E NY 

TEMZ 

PIPAGE 

0391 

0392 

0393 

REF  2 

l AST 

35  7 

37,3541 
37, 2 U 0 0 
37,3541 

BANK 

SETLDC 

BANK 

37 

S ERV  1 

039* 

REF  2 

LAST 

857  TO 

35  9: 

BQ 

A9* 

COUNT  * 

t$/SEPV 

0395 

37,3541 

0 0006 

1 

PIPASR 

EXTEND 

PAGE  869 
E 7 S3 


A READING, 


GAP:  ASSEMBLE  REVISION  QOl  OF  AGC  PROGRAM  APIL'OPE  BY  EYLES 


L SE  VICE) 
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05643  33,2527  0 0006  1 EXTEND 

05644  3 EF  1 33,2530  6 2447  1 BZMF  HIGATASK  IF  UXBXP  > QS  W , TH  EN  REPOSITION 


0565 

0566 
056  7 

REF 

42 

LAST 

821 

33. 2531 

33.2532 

33.2533 

3 4746 
0 00  06 
02  033 

0 OC  06 

1 3155 

0568 

0569 

RFF 

2 

LAST 

874 

33. 2534 

33.2535 

0570 

REF 

34 

last 

826 

33, 2536 

0 5567 

0571 

33,2537 

0051  1 

0572 

33,2540 

0 0004 

0573 

REF 

1 

33,2541 

4 3154 

0574 

REF 

25 

LAST 

8 74 

33,2542 

7 0107 

0575 

REF 

26 

LAST 

875 

33,2543 

54  107 

0576 

REF 

44 

LAST 

862 

33,2544 

0 4674 

05  7 a 1 

RFF 

1 

3 3, 25 a 5 

53607 

0 pOSICHK 

1 
0 
1 
1 


CAF  BIT.- 

EXTEND 
RAND  33 
EXTEND 

BZF  UPDATCHK 


HIGATF  NOT  IN  SIGHT-DO  POST  CHK 


LR  IN  POS 1-CHECK  FOP  LR  UPDATE 


0 

1 

0 

C 

0 

0 


LP PCSALH 
C0N7  = ER V 


TC 

OCT 

T Kl  u T M T 

ALA'  M A \ 

ni  V 

LP  NOT  IN  PROP  ER  PCS- ALARM-BYPASS  UPDATE 
AND  CONTINUE  S EL  VICEF 

CS 

MASK 

TS 

B ITS4-7 

FLGWPD1 1 
FLGWRD1 1 

CLEAR  LR  MEASUREMENT  MADE  DISCRETES. 

0 TC  I BNKCALsL  SET  LR  LITES  PROPFRLY 

0 CAD;  P12LITES 


IAP:  ASSEMBLE  • E V IS  I 3N  001  OF  AGO  PRGGR  AM  APllPCPE  BY  bYLES 


L 

P 0577 
0578 

SERVICER 

REF 

LAST 

863 

33,2546 

0 3552 

0 

COPYC YC1 

TC 

057c 

REF 

14 

LAST 

605 

33,2547 

3 0077 

1 

P 29? 

CA 

0580 

REF 

1 

33, 2550 

7 6014 

0 

M ASK 

0581 

REF 

255 

LAST 

865 

33,2551 

10  000 

0 

CCS 

0582 

REF 

1 

33,2552 

1 2 5 64 

0 

TCF 

0583 

REF 

114 

last 

612 

33, 2553 

3 C110 

1 

CA 

0584 

REF 

1 

33,2554 

7 2250 

0 

MASK 

0585 

PFF 

256 

LAST 

876 

33,2555 

10  000 

0 

CCS 

05  86 

R FF 

2 

LAST 

8 76 

33, ?584 

1 25  64 

o 

TCF 

0587 

REF 

115 

LAST 

876 

33,2557 

3 0110 

1 

CA 

0588 

P.EF 

6 

LAST 

857 

33,2560 

7 7710 

1 

MASK 

0589 

REF 

2 57 

LAST 

876 

33,2561 

1C  COO 

0 

CCS 

0590 

RET 

6 

LAST 

598 

33,2562 

1 2570 

0 

TCF 

059  1 

REF 

2 

LAST 

597 

33,2563 

1 2045 

0 

TCF 

0592 

33,2564 

0 CCQ4 

0 

R29N0DES 

INHINT 

0593 

REF 

10 

LAST 

604 

33, 2565 

4 6742 

0 

CS 

0594 

REF 

116 

LAST 

876 

33,2566 

7 0110 

0 

MASK 

0595 

REF 

1 17 

LAST 

376 

3 3,2  567 

54  110 

0 

TS 

0596 

REF 

153 

LAST 

867 

33,2570 

0 603  7 

0 

N0R29N0W 

re 

0597 

33,2571 

51575 

1 

VLOAD 

0598 

REF 

2 

LAST 

147 

33,2572 

03573 

0 

0599 

83, 2573 

45  206 

1 

PUSH 

060  D 

REF- 

9 

LAST 

850 

9 3,2674. 

02  3 33 

o 

0601 

REF 

4 

LAST 

315 

33,2575 

03535 

1 

STORE 

06015 

REF 

3 

LAST 

818 

33,2576 

03775 

1 

STORE 

060  2 

33,2577 

47075 

0 

DM  PR 

0603 

REF 

1 

33 , 260  C 

26026 

1 

0604 

REF 

3 

LAST 

702 

33,2601 

21612 

1 

060  8 

R F F 

2 

LAST 

151 

33, 2602 

27742 

0 

ST  OV  L 

0606 

REF 

25 

LAST 

859 

33, 2603 

03537 

0 

0607 

33,2604 

53435 

0 

VXV 

0608 

REF 

4 

LAST 

8 67 

33,2605 

03720 

1 

0609 

PEF 

3 

LAST 

151 

33,2606 

27726 

1 

STOVL 

Of  10 

REF 

3 

LAST 

876 

33,2607 

03573 

0 

0611 

33,2610 

60505 

1 

VXM 

0612 

REF 

34 

LAST 

867 

33,2611 

01734 

0 

0613 

REF 

5 

LAST 

867 

33,2612 

27545 

0 

STOVL 

0614 

REF 

4 

LAST 

840 

33,2613 

0 3601 

0 

061  5 

33,2614 

76505 

0 

VXM 

0616 

RFF 

35 

LAST 

876 

33,2615 

01734 

0 

0617 

PEF 

5 

LAST 

867 

33,2616 

275  53 

1 

STOVL 

0618 

RFF 

26 

LAST 

876 

33 , 2617 

03537 

0 

0619 

33,2620 

51435 

1 

VXV 

i" 


3:15  DEC 


132  PAGE  876 


. 2,1970  FLY 


USER’S  P AGF  NO.  20 


E7  S3 


QUIKFAZ5 


FLAGWRD3 
NR29SR DR 

A IS  NDP29FLG  OR  READRFLG  SET? 

R29N0DES  YES,  SO  DON'T  DESIGNATE. 


SADMODE S 
OCT  10002 
A 

R 29NDDF S 


NO,  ST  R29  IS  CALLED  FOR. 

IS  THE  RR  NOT  ZEROING  ITS  CDUS,  AND 
IS  THE  RENDEZVOUS  FADAP  T N AUTO  MODE? 
NO,  SO  DON'T  DESIGNATE. 


RADMODE S 
PRI 022 

A IS  RR  REPOSITIONING  DR  RE  MOD I NG? 

NQR29N0W  YES;  COME  BACK  IN  2 SECONDS  S T"Y  AGAIN. 


R 29 

R 29  NOT  ALLOWED  THIS  CYCLE. 
DIES  I GBIT  SHOW  THAT  DESIGNATION  IS  OFF. 

RADMODES 

T admodes 


INTPRET 
ABVAL 
R IS 
DSU 

/LAND/ 

HCAL.C 

HCALC1 

RTB 

ALTC  )NV 
SGN AGREE 
ALT  BITS 
UNIT/R/ 
UNIT 
UIHYP 
UHZP 
R IS 
VS  ■ 

REFSMMAT 
PN1 
VIS 
VSL  1 

P EFSMMAT 
VN1 

UNIT/R/ 

ABVAL 


INTPRET  DOES  A RELINT. 

MP AC  = A3VALI  NEW  SM.  POSITION  VECTOR) 

( 2 ) 


NEW  HCALC*2 ( 24 ) M . 


ALTITUDE  EOr  RIO  IN 


DOWNS ANGE  HALF-UNIT 


TEMP.  REF.  POSITION 


TEMP.  REF.  VFLOCITY 


BIT  UNITS. 


VECTOR  FOR  RIO. 


V ECTOR* 2 ( 2 9 ) M . 


VECT0R*2(7)M/CS. 


GAP  : 


ASSEMBLE;  REVISION  001  Ofi  AGC  PROGRAM  AP11RGPE  BY  EYLES 


L SERVICER 


0620  REF  5 

06  21 
0622 
06  2 3 

0624  PEE  1 

0625  REF  4 

0626 

0627 

0628  REF  27 

062 Q REF  3 

063  0 REF  23 

0631  REF  4 

0632  REF  29 

0633  REF  5 

0634  REF  342 

0635  REF  2 


LAST  376  33 

33 
33 
33 
33 

l ACT  376  33 

33 
3 3 

LAST  376  33 

LAST  151  33 

LAST  577  33 

LAST  377  33 

LAST  877  33 

LAST  877  33 

LAST  361  33 

LAST  151  33 


262  1 

03601 

0 

2622 

63552 

0 

2623 

776  71 

1 

2 624 

57075 

0 

2625 

26030 

0 

2624 

21612 

1 

2627 

77776 

1 

2630 

0 C004 

0 

26  31 

3 1536 

u 

It  32 

55*743 

! 

26  3 3 

3 1540 

1 

2634 

5^ '744 

o 

2635 

3 15  42 

0 

2636 

55*745 

1 

2637 

3 0154 

1 

2 64  0 

55 ' 716 

1 

SL1 

oov 

OMPR 


C0PYCYC2  EXIT 

INHINT 

CA 

TS 

CA 

TS 

CA 

TS 

CA 

TS 


0636  33, 

0637  REF  4 LAST  876  33, 

0638  REF  20  LAST  867  33, 

0639  33, 

0640  REF  5 LAST  87?  33, 

0641  REF  21  LAST  37?  33, 

0642  33, 

0643  REF  6 LAST  877  33, 

064'  REF  22  LAST  377  33, 

0645  33, 

0646  REF  6 LAST  877  33, 

0647  REF  13  LAST  867  33, 

0648  33, 

0649  REF  7 LAST  ill  33, 

0650  REF  14  LAST  877  33, 

0651 

0652  REF  fi  LAST  ill  33, 

0653  REF  15  LAST  ill  33, 

0654  REF  1 33, 


2641 

0 0006 

1 

EXTEND 

2642 

3 1573 

1 

DC  A 

2 64  3 

53' 521 

1 

DXCH 

2644 

0 0006 

1 

EXTEND 

2645 

3 1575 

1 

DC  A 

2 646 

53' 523 

0 

DXCH 

26'  7 

0 0006 

1 

EXTEND 

2650 

3 1577 

0 

CCA 

265  1 

53' 525 

0 

DXCH 

2652 

0 C 0 06 

1 

EXTEND 

2653 

3 1 6 0 1 

1 

OCA 

26  54 

53' 527 

1 

DXCH 

2 65  4 

n n r,  n 6 

1 

r y tpm n 

1 

t_  A 1 l'y  U 

2656 

3 1603 

0 

DC  A 

2657 

53’ 531 

0 

DXCH 

266  0 

0 0006 

1 

EXTEND 

266  1 

3 160  5 

0 

DC  A 

266  2 

53 '533 

1 

DXCH 

2663 

1 2275 

1 

TCF 

VIS 

dsq 

STB 

ARC  I VI 
SGNAGPFE 


UNIT /R/ 

R UN  1 T 

UNIT / R / +2 
RUNIT  +1 
UNIT/P/  +4 
RUNIT  +2 
MPAC 

D ALT RATE 


R1S 

R 

R IS  +2 
1 +2 

R1S  +4 
R +4 

VIS 

V 

VIS  +2 

V +2 

VIS  +4 

V +4 

COPYCYC  L 


3: 15  DEC 


2,1970  FLY 


132  PAGE  877 


USER'S  PAGE  MO.  21  E7  S3 


LEAVE  ALTITUDE  PATE  COMPENSATION  IN  MPAC 
UPDATE  RUNIT  FOR  RIO. 


LOAD  NEW  D ALT  3 AT  E FOR  RIO. 


COMPLETE  THE  CDYPCYCL. 


I 


132  PAGE 


378 


GAP: 

ASSEMBLE  REVISION 

1 001 

OF  AGO  PROGRAM  API 

1RCPE  BY  EYLES 

3: 15  DEC.  2,1970  FLY  .132  PAGE 

L 

SERVICE P 

USER • S PAGE  NO.  22  E7  S3 

P 065  5 

ALTCHK  COMPARES 

CURRENT  ALTITUDE 

( 

IN  HCALC ) 

WITH  A SPECIFIED  ALTITUDE  FROM  A TABLE  BEGINNING  AT  ALTCRIT. 

R 06  5 7 

ITS 

CALLING  SEQUENCE 

IS  AS  FOLLOWS:- 

R 06  5 8 

L 

CAF 

N 

R 0659 

L + 

1 

TC 

BANKCALL 

R 0660 

L + 

2 

CAOP 

ALTCHK 

R 066 1 

L + 

3 

RETURN  HERE  IF 

HCALC 

S 

TILL  > SPECIFI ED  C 

RIFERION.  C ( L ) = +0. 

R 066  3 

l + 

4 

RETUFN  HERE  TF 

HCALC 

< 

OF  = SPECIFIED  CF: 

ITER  ION.  CIA)  = CIL)  = +0 

R 066  5 

ALTCHK  MO 

rT  BE 

BANKC 

ALL  ED  EVEN 

from  I 

T 

S OWN  BANK 

. N I S 

THE  LOCATION,  RELATIVE  TF  THE  TAG  ALTCRIT, 

R 06  67 

OF 

THE  BE 

GINNING  OF 

THE  DP  CONSTANT  TO 

8E  USED  AS  A CRIT 

ERIUN. 

0668 

33,2664 

0 f 006 

1 

ALTCHK 

EXTEND 

0669 

REF 

258 

LAST 

876 

33,2665 

5 00  00 

1 

INDEX 

A 

0670 

REF 

1 

33,2666 

3 2 700 

1 

CCA 

Al I CR  IT 

0671 

REF 

34  3 

LAST 

877 

33,2667 

52  156 

1 

OXCH 

HP AC  +1 

06  7? 

33 , 2670 

0 0006 

1 

EXTEND 

0673 

0 EF 

Oi:*5  ... 

1 AST 

376 

?3 , 267  1 

1535 

1 

DC  S 

HCALC 

0674 

REF 

344 

LAST 

878 

33,2672 

20  156 

1 

DAS 

MPAC  +1 

0675 

REF 

1 

33,2673 

0 6727 

0 

TC 

BRANCH  +4 

0676 

REF 

162 

LAST 

87  L 

33,2674 

3 4755 

1 

CAF 

ZERO  BETTER  THAN  A NOOP,  PERHAPS 

067  7 

REE 

6 

LAST 

49  1 

33,2675 

24  133 

0 

INC' 

BUF? 

0678 

RtF 

4 

LAST 

537 

33,2676 

1 4631 

0 

TC  F 

SWF ET  UR N 

06  7 c 

REF 

2 

LAST 

850 

33,2677 

ALTCRIT 

= 

25KFT 

0680 

33,2677 

00007 

0 

25KFT 

2 DEC 

7620  8-24  (0) 

0680 

33,2700 

1/.  ICO 

1 

0681 

33,2701 

00016 

0 

5 0KET 

2DEC 

15240  B-24  (2) 

06  81 

33 , 270? 

342  00 

1 

0682 

33,2703 

00000 

1 

50FT 

2 DEC 

15.24  B-24  (4) 

0682 

33,2704 

00364 

0 

0693 

33,2705 

00010 

0 

30KFT 

2 DEC 

9144  B-24  (6) 

0683 

33, 2706 

35600 

1 

06  8*- 

33,270? 

01414 

1 

2KFT/SEC 

DEC 

6.096  6-7  2000  FT/S  EC  AT  2(7)  M/CS 

R0685 

0686 

REF 

17 

LAST 

813 

33,2710 

3 6242 

0 

XORCHK 

CAE 

SIX  ARE  WE  BELCW  30000  FT? 

0687 

REF 

242 

LAST 

863 

33,2711 

0 4616 

1 

TC 

BANK  CALL 

06  8 8 

REF 

l 

33,2712 

66  6 64 

0 

CAQR 

ALTCHK 

0684 

REF 

1 

33,2713 

1 2476 

1 

TC  F 

HITFST  CONTINUE  LR  UPDATE 

0690 

REF 

56 

LA  Si 

863 

33,2714 

0 5504 

0 

TC 

UPFLAG  YES:  INHIBIT  X-AXIS  OVERRIDE 

0691 

REF 

7 

LAST 

85  1 

33, 2715 

00311 

1 

ADRES 

XCVINFLG 

0692 

REE 

5 7 

LAST 

378 

33,2716 

0 5504 

0 

TC 

UPFLAG 

0693 

REF 

1 

33,2717 

0C253 

0 

ADR  ES 

XORFLG 

0694 

REF 

2 

1 AST 

87  E 

33,2720 

1 2476 

1 

TC  E 

HITFST  CONTINUE  LP  UPDATE 

0695 

REF 

54 

LAST 

857 

33,2721 

3 4752 

0 

35KCHK 

CAF 

TWO  ARE  WE  BELOW  35000  FT? 

" 


GAP  : 


ASS  EMEU  E RE  VISION  001  OF  AGC  PROGRAM  AP11R0PE  BY  PYLES 


L S Eh  V I C F': 


0696 

0697 
0696 

REF 
REF 
. REF 

2 A3 

2 

3 

l AST 
LAST 
EASI- 

873 
878 

874 

33. 2722 

33.2723 

33. 2724 

0 4619 
66  664 

1 2 540 

1 

0 

0 

TC. 

C A DP 
TCF 

069° 

REF 

58 

LAST 

878 

33,2725 

0 1504 

0 

TC 

0700 

REF 

1 

33,2726 

00256 

0 

ADRES 

0701 

REF 

4 

LAST 

870 

33, 97  2 7 

1 2 5 40 

0 

TCF 

3:15  DFC.  2 , 

1970 

FLY 

. 132 

PAGE  879 

..I 

USER'S 

PAGE 

NO. 

23 

E 7 S3 

BANKCALL 
ALTCHK 
C OUT SE  R V 
UPFLAG 

READLR  SET  READER  FLAG  TO  ENABLE  LE  READING. 

CONTSERV 


GAP: 

L 

P 0702 

P 0705 

ASSEMBLE  REVISION  001 

SERVICER 

OF  AGO  PROGRAM  AP11KQPE  BY  EYLES 

% Jj:  5{«  $ 9,c  Jjt  * # # sje  ;Js  # # 5|£  # # ;}c  ijc 

0706 

33, 2730 

41456 

0 

CALCGPAV 

ur:  i t 

0707 

REF 

30 

LAST 

877 

33,2731 

03537 

0 

STORE 

0703 

3 3,2732 

67340 

l 

LXC  ,1 

0709 

REF 

16 

LAST 

77° 

33, 2733 

02777 

1 

0710 

REF 

17 

LAST 

880 

33, 2734 

03000 

1 

0711 

33,2735 

5CC76 

0 

UCQMP 

0712 

REF 

1 

33,2736 

66765 

0 

0713 

33,2737 

50375 

0 

V L 0 A D 

0714 

REF 

9 

LAST 

841 

33,2760 

06  514 

1 

07]  5 

REF 

31 

LAST 

880 

33,2741 

0 3 537 

0 

0716 

33,2742 

41552 

0 

SL1 

071* 

33 , 2743 

44316 

o 

DSQ 

0718 

REF 

1 

33,274  4 

27027 

1 

0719 

33,2745 

56  32  5 

0 

POOL 

072  0 

REF 

1 

33,274  6 

26  040 

1 

0721 

33 ,2747 

0004  3 

0 

0722 

33 , 2750 

00041 

1 

STORE 

0723 

33,2751 

43  2 05 

0 

DMP 

072' 

REF 

1 

33,275? 

26042 

0 

072  5 

33,2753 

6 5 3 ->  1 

0 

VXSC 

0726 

REF 

32 

i A -ST 

8 80 

33,2754 

03637 

0 

0727 

33,2755 

4 1205 

0 

DMP 

0728 

REF 

1 

33,2756 

26044 

0 

0729 

33,2757 

0 C 0 4 1 

1 

073  0 

33, 2760 

765  61 

1 

VXSC 

0731 

REF 

10 

LAST 

880 

33,2761 

04,514 

1 

073? 

33, 2762 

45455 

1 

VAD 

073  3 

REF 

2 

LAST 

780 

33,2763 

74256 

0 

STORE 

0734 

33,2764 

41455 

0 

VAD 

07  3 5 

33,2765 

6034  5 

0 

CALCGRV1 

DLQ.AD 

073  6 

33,2766 

CG043 

0 

073  7 

kEF 

14 

1 AST 

777 

33,2767 

00050 

1 

0738 

33, 27 7 n 

53663 

1 

BD0V* 

0739 

REF 

1 

33,2771 

2 603? 

1 

0740 

33,2772 

56623 

0 

0741 

33,2773 

45  561 

1 

VXSC 

074  2 

REF 

3 

LAST 

84  5 

33,2774 

74214 

0 

STORE 

0743 

33, 2775 

776  16 

0 

p V Q 

0744 

33,2776 

61375 

1 

CALCRVG 

VI  OAD 

0745 

REF 

6 

LAST 

860 

33,2777 

00325 

0 

0746 

REF 

36 

1.  AST 

876 

33,3000 

01734 

0 

0747 

33,3001 

76561 

1 

VXSC 

074  8 

REF 

4 

LAST 

860 

33,  300? 

2602? 

0 

0749 

REF 

9 

LAST 

771 

33,3003 

035  27 

1 

STOP  E 

0750 

33,3004 

41562 

0 

VSR  1 

0751 

33,3005 

41455 

0 

VAD 

3:  1 5 DEC 


2 » 1 ° 7 0 


FLY 
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* =}==8c  ={e  ={e=}c  4c***  $$$  sjsjjc*  jfe * af:  <t*****  ******** 


PUSH 

UNIT/P/ 

SAVE  UNIT/R/  IN  PUSHLIST  (18) 

4 LOAD 

R TX2 

RTX2 

QMN 

CALCGRV1 

RTX2  = 0 TF  EARTH  ORBIT,  =2  TF  LUNAR. 

DOT 

UNI  TZ 

UNIT/R/ 

( 12) 

PUSH 

BDSU 

DP1/20 

ODV 

RESQ 

( 14) 

34D 

32D 

DMP 

20  J 

POOL 

UNIT/R/ 

DMP 

2 J 

3 2D 

VS  11 

UNITZ 

STADP 

UNI TGOBL 

( RN ISO 

TEMP  FOP  ( R E/P N ) SO 

PUSH 

NCRM 

340 

X2 

SLR* 

- MUDT  , 1 

0 -2 1 D , 2 

S I ADR 

MPAC  = UNIT  GRAVITY  VECTOR.  (18) 

PERFORM  A NORMALIZATION  ON  RMAGSQ  IN 
ORDER  TO  BE  ABLE  TO  SCALE  THE  MU  FOR 
MAXIMUM  PRECISION. 

GOT  1/2 

SCALED  AT  2 ( +7 ) M/CS 

VXM 

DEL  V 

S EFSMMAT 

VSL1 

KPIP1 

OELVTFF 

PUSH 

PUSH 

( DV-OLDGDT  ) / 2 TO  PD  SCALED  AT  2<+7)M/CS 

GAP: 


0752 

0753 
075A 
075  5 
075  6 

0757 

0758 

0759 

0760 

0761 
076? 

0763 

0764 

0765 

0766 

0767 

0768 

0768 
0765 

0769 


ASSEMBLE  E VISION  001  OF  AGC  PROG  AN  API LRDPE  BY  EYL  Ej 
SERVI CEP 


REF 

REF 

REF 

8 

a 

4 

LAST 

LAST 

LAST 

818 

761 

S7  0 

33.3006 

33. 3007 
33  , 30  10 

33. 3011 

35. 3012 

37  3013 

01237  0 

65255  0 

01227  1 

01250  1 

742  o 1 1 

20207  0 

VAD 

SL 

GOT/ 2 

P DDL 

VN 

PGU I 0£ 
VXSC 

f-  Q 

REF 

1 A 

LAST 

868 

33.3014 

33.3015 

33. 301 6 

3 3 , 30  1 7 
33 , 3020 

44055  1 

01221  1 

0003 7 0 

37545  1 

66730  0 

VAD 

STQ 

RN 

3 ID 

! M 

CALCGRAV 

REF 

REF 

6 

2 

L AST 
LAST 

876 

36  7 

STCAL.L 

33,3021 

53255  0 

VAD 

VAD 

33, 3022 

77655  1 

VAD 

REF 

9 

LAST 

881 

33,302  3 

G1227  1 

VN 

REF 

6 5 

LAST 

ft  76 

3 3 , 30 24 

37553  0 

ST CALL 

VN1 

33 , 3025 

00037  0 

3 ID 

33,  3026  01463  1 DPI/20  2 DEC  0.05 

33,3027  06315  0 

33,3030  0001C  0 SHIFT11  2DEC  1 B-ll 

3 3,3:031  00000  1 


3: 15  DEC.  2, 1970 

FLY 

.132 

PAGE 

USER'S  PAGE 

NO. 

25 

E^  S3 

( 18  ) 


TEMP  STORAGE  OF  RN  SCALED  2(+29  )• 


TE«p  STn>“  AGE  OF  VN  SCALED  2(+7)N/CS 


GAP:  ASSEMBLE  : E V 1 S I T P ' 0C1  OP  A SC  PROGRAM  AP11RGPE  BY  EYLLS  3:15  DEC.  2,1970  FLY  .132  PAGE  882 

L SERVICE'  USER'S  PAGE  NO.  26  E7  S3 

P0770  ************#*************#*****************#******************$***********************************&***;!:***:):**** 

R0772  MUNFVC  IS  A SPECIAL  AV  El;  AGE  G I NT  t SI  AT  ION  k'UTLNE  USED  BY  THRUSTING 
R 0773  PROGRAM  ,/HICH  FUNCTION  IN  'HE  V I C I ITY  OF  An  ASSUMED  SPHE  . T CAL  MOON  . 

R 077  * the  TN'MJT  AND  OUTPUT  UUANTirTES  ARE  REFERENCED  TO  THE  STABLE  MEMBEP 

R 077^  COnt  D I NAT  E SYSTEM. 


0776 

33,3032 

41575 

0 

RVBPT  H 

VLGAD 

PUSH 

0777 

REF 

3 

LAST 

734 

33,3033 

0231  7 

0 

G(CS  1) 

0778 

33, 3034 

65  2 55 

0 

VAD 

PDDL 

0770 

REF 

5 

LAST 

86  7 

33, 3035 

01726 

0 

V (CSM) 

0780 

RFF 

6 

LAST 

881 

33,3036 

01250 

1 

°GU I OE 

078  1 

33,3037 

74271 

0 

DDV 

VXSC 

0782 

REF 

1 

33,3040 

27031 

0 

SHIFT1 1 

C733 

33,3041 

77655 

1 

VAD 

078^ 

OFF 

5 

LAST 

867 

33 ,3042 

01720 

0 

' (Cl ' ) 

0786 

REF 

7 

LAST 

8^7 

33,304  3 

37573 

1 

STCALL 

P IS 

0786 

REF 

5 

LAST 

8 6 7 

3 3 f 304  4 

67  1 30 

MUNG  r a V 

1 I I N V7  l \ M V 

0787 

33,3045 

53255 

0 

VAD 

VAD 

0788 

REF 

6 

LAST 

882 

33,3046 

01726 

0 

V(CS.M) 

0769 

33,3047 

77626 

0 

S 1 ADR 

0790 

REF 

9 

LAST 

877 

33,3050 

74  176 

1 

STORE 

VIS 

0791 

33,3051 

77776 

1 

EX  IT 

0792 

RFF 

6 

L AST 

876 

3 3 , 30*2 

0 3 552 

0 

TC 

0UIKFAZ5 

0793 

REF 

154 

LAST 

876 

33 , 3053 

0 6037 

0 

TC 

INTPRET 

0794 

33,3054 

77775 

1 

VLOAD 

0795 

REF 

4 

LAST 

880 

33,3055 

03563 

1 

GOT  1/2 

0796 

REF 

4 

LAST 

882 

33,3056 

2 631  7 

0 

STOVL 

G (CSM) 

0797 

REF 

6 

LAST 

882 

3 3 , 3 C S 7 

03573 

0 

‘IS 

079P 

RFF 

6 

L A^T 

3 3 2 

33, 3060 

2 6 720 

0 

STCVL 

U ( C S N ) 

0799 

REF 

10 

LAST 

882 

33,3061 

03601 

0 

VIS 

0600 

REF 

7 

LAST 

882 

33,3062 

01726 

0 

STORE 

V ( CSM  ) 

0801 

33.3063 

1 7776 

1 

EXIT 

1 

0602 

REF 

7 

L AST 

882 

33,3064 

0 3552 

0 

TC 

QUIKFAZ? 

0803 

OFF 

l 5 f 

LAST 

982 

33,3065 

0 6 03  7 

0 

TC 

INTPRET 

0604 

33,3066 

74375 

0 

MUNI  VG 

Vt  CAD 

VXSC 

080r 

REF 

7 

LAST 

880 

33,3067 

00325 

0 

DEL  V 

0806 

REF 

1 

33,3070 

26024 

0 

K P I P2 

3” 

0807 

33,307  1 

53206 

0 

PUSH 

VAD 

1ST  PUSH:  DE LV  IN 

UNITS  OF  2(8) 

M/CS 

0608 

REF 

9 

LAST 

981 

33 , 3072 

01237 

0 

GDT/2 

080c 

33,3073 

53206 

0 

PUSH 

VAD 

2ND  PUSH:  (DELV  + 

GDTI/2,  UNITS 

OF  2(7) 

0810 

RFF 

16 

LAST 

877 

33,3074 

03527 

1 

V 

(12) 

0811 

33,3075 

56325 

0 

PDDL 

DDV 

0812 

REF 

6 

LAST 

882 

33,3076 

01250 

1 

PGUI DE 

2" 

0613 

REF 

2 

LAST 

882 

33,3077 

27031 

0 

SHI  FT  1 1 

0814 

33,3100 

77761 

1 

VXSC 

06  lc 

33,3101 

77655 

1 

VAO 

0816 

REF 

23 

I AST 

877 

33,3102 

0 3c2  1 

1 

R 

0817 

REF 

9 

LAST 

882 

33,3103 

37573 

1 

STCALL 

R1S 

ST OPE  R SCALED  AT 

2 ( +24 ) M . 

0818 

REF 

6 

LAST 

882 

33,3104 

67130 

1 

MUNGRAV 

i" 


GAP : 


ASSEMBLE  EVISlGf  - 01  CF  AC-C  PRLG.'AM  AP1U0PE  BY  EYLES 


SERVICE' 


0819 

0820 
0821 
0822 
0823 
082? 

0825 

0826 
0827 
082  8 
06.2  8 

0830 

0831 

0832 

0833 
083? 

0835 

0836 

0837 

0838 

0839 

0840 
08  A 1 
0842 


REF 

17 

LAST 

662 

REF 

1 1 

LAST 

33  2 

BEF 

5 

LAS7 

735 

REF 

33 

LAST 

880 

REF 

12 

LAST 

88  3 

REF 

11 

l AST 

819 

RFF 

10 

{AST 

ppp 

REF 

5 

LAST 

842 

REF 

3 

LAST 

819 

R FF 

10 

L AST 

876 

REF 

LAST 

878 

REF 

1 

REF 

34 

LAST 

883 

33. 3105 

33.3106 

33.3107 

33.3110 

33.31 1 1 

33.3112 

33.3113 
,311 6 

33. 3115 

33.3116 

33.3117 

33.3120 

33.3121 

33.3122 

33 . 3123 

33.3124 

33. 3125 

33.3126 

33.3127 

33.3130 

33.3131 
33,3122 

33 . 3133 

33.3134 


53255 

77655 
03527 
0360  1 
776*6 
27472  0 
03537  0 
72441 
03601  0 
27474  0 
03573  0 
72435  0 
02325  1 
17734  1 
00045  0 
77625  0 
02333  0 
37535  0 
6(461  1 

77656  1 
17537  0 
00063  0 
6 5 2 ( 1 1 
20207  0 


0 


0843 

REF 

1 

33,3135 

26036 

0 

0844 

33,3136 

74205 

0 

0845 

REF 

3 

LAST 

882 

3 3,3137 

27  0 31 

0 

0846 

REF 

3 5 

LAST 

68  3 

33, 3140 

03537 

0 

0847 

REF 

5 

LAST 

88  2 

33,31/1 

035  6 3 

1 

MUNGRAV 


0068 


33,316?  7741 6 0 


084° 

0850 
085  0 
085  i 

0851 
085? 

0852 
08525 
0852  5 
OB'5  3 


33,3143 

? 7.  71  *4.4. 

003  0 3 
nnr  < < c 

l 

l 

0 

1.95SECS 

7.5 

23,3145 

Uul.  >J 

332  1 2 

33,3146 

(0014 

l 

2 SEC.  ( 18  ) 

3 3 , 31?-  7 

2 00  00 

0 

33,3150 

000  OC 

1 

2SEC ( 28) 

33,3151 

00310 

0 

33,3152 

OCCGO 

1 

4SEC ( 28 ) 

3 3 , 3 1 5 3 

006  2 0 

0 

31,3154 

or  1 1 ■ 

1 

VAD 

VAD 

STOP  E 
ABVAL 
STOVE 

DOT 

STOVE 

VXV 

STODL 

OS  U 

STCALL 

UN  I T 
STOOL 

St 

DMP 

STUPE 

VO 

DEC 
2D  EC 

2 DEC 

2UCT 

2 DEC 

ncr 


3:15  DEC 


2 , IS (0 


FLY 
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USER ' S PAGE  NO.  27  E7  S3 

VAD 

(0) 

V 

VIS 

STORE  V SCALED  AT  2<+7)M/CS. 

ARVEL 

UNIT/R/ 

SL1 

STORE  SPEED  FOR  LR  AND  DISPLAYS. 

VIS 

HOOT  0 1 SP 

R 1 S 

VSL  ? 

WM 

HDOT  = V.  UNIT(R)*2<7tM/C$. 

DEL  VS 

360 

LUNAR  ROTATION  CORRECTION  TERM *2 ( 5 ) M/ CS . 

/LAND/ 

HCALC 

MUNPFTRN 

FOR  NOW,  DISPLAY  WHETHER  POS  OR  NEG 

UNIT/R/ 

340 

BODV 

60 

-RUDTMUN 

VXSC 

AT  36 D HAVE  ABVAL(R),  AT  340  R.R 

SHI  FT  1 1 

UNIT/R  / 

GOT  1/2 

1/2GDT  SCALED  AT  2(7) M/CS . 

195 

.02236  B-6 

200  B-18 

7.5  FT/SEC  AT  2(6)  M/CS 

00000  00310 

400  8-28 

1 10 

2 SEC  AT  2(28) 

GAP: 

AS  SEN 

BLE  ' 

,E  VISES 

N CL.  1 

OF  AGC  PU 

CGI, AM  Af 

n i 

,;;PE  BY  t' 

YLL  S 

L 

SEi  VICEr 

P085-R 

0855 

REF 

2 

LAST 

872 

33,3155 

3 4742 

i 

UPDATCHK 

CAF 

NOLRRBIT 

0856 

REF 

27 

LAST 

875 

33, 3156 

7 ( 107 

0 

M A S K 

F LGWAD1 1 

0857 

REF 

2 55 

LAST 

878 

33,3157 

10  000 

0 

CCS 

A 

0858 

REF 

5 

LAST 

879 

3 3, 3160 

1 25  60 

0 

rcF 

CONTSEF V 

085  R 

i3  p F 

33,3161 

3 6 7 L‘  0 

CAF 

RNGE  DB I T 

0860 

REF 

28 

LAST 

884 

33,316? 

7 0107 

0 

MASK 

FLGWnDl 1 

0861 

33, 316 3 

0 0006 

1 

EXTEND 

0862 

REF 

1 

33,3164, 

1 3310. 

1 

BZF 

VMEASCHK 

0863 

*RFF 

26 

LAST 

863 

33,3165 

3 Cl 20 

1 

POSUPDAT 

CA 

FIXLPC 

086  * 

4 R F F 

q 

LAST 

863 

33,316 6 

54  166 

1 

TS 

PUSHLOC 

0865 

*RFF 

156 

LAST 

982 

33,3167 

0 6037 

0 

TC 

INTPRET 

0866 

33.3170 

61375 

VLUAD 

V XM 

0867 

*R  E F 

1 

33,3171 

02273 

0 

HBEAMNB 

0868 

* RE  F 

10 

LAST 

374 

33,3172 

02146 

0 

XNBPIP 

086  9 

33,3173 

72515 

o 

PDVl 

VSL  2 

0870 

*REF 

13 

LAST 

883 

33,3174 

03601 

0 

VIS 

0871 

* 

33,3175 

50255 

0 

VAD 

DOT 

0872 

*REF 

4 

LAST 

38  3 

33,3176 

037  34 

1 

DEL  VS 

0873 

* 

33,3177 

00C01 

0 

OD 

0876 

T 

33,3200 

77405 

0 

BMP 

EXT  T 

08  lc 

*RFF 

1 

33,3201 

01  355 

0 

RAOSKAL 

0876 

*REF 

2 

LAST 

85 

33, 3202 

4 0110 

0 

CS 

FLGWRD12 

0377 

JREF 

1 

33, 3203 

7 6 743 

1 

MASK 

ALT  SCBI T 

087  8 

33,3204 

0 0006 

1 

EXTFND 

0879 

* 

33,3205 

1 3210 

0 

BZF 

+ 3 

088  0 

*R  EF 

1 

33, 3206 

3 1356 

0 

CA 

skalskal 

0881 

*RFF 

i 0 

l AST 

860 

33,3207 

0 7307 

1 

TC 

SHORTMP 

0882 

*REF 

157 

LAST 

884 

33,3210 

0 6037 

0 

+ 3 

TC 

INTPRET 

0383 

* 

3 3 , 32  1 1 

54215 

0 

DAD 

SL 

0884 

*PEF 

5 

LAST 

873 

33,3212 

036  ^5 

1 

HMEAS 

088  6 

$ 

33,3213 

20210 

0 

7D 

0886 

'fi 

33,3214 

74205 

0 

OMP 

vxsc 

0387 

*§£F 

1 

33,3215 

26  01 1 

0 

HSCAL 

0888 

33,3216 

45241 

1 

JUT 

DSU 

088  9 

REF 

3 6 

LAST 

893 

33,3217 

03537 

c 

UNIT/  / 

0890 

REF 

7 

LAST 

3,83 

33, 3220 

03535 

1 

HCALC 

0891 

REF 

5 

LAST 

786 

33,3221 

03665 

1 

STORE 

DELTAH 

0892 

33,3222 

77776 

1 

EXIT 

0893 

PFF 

29 

LAST 

9 84 

33,3223 

3 0107 

1 

CA 

FLGWRD1 1 

0894 

REF 

2 

LAST 

374 

33,3224 

7 4 741 

0 

MASK 

PSTHIBIT 

0895 

33,3725 

0 0006 

1 

EXTEND 

0896 

REF 

1 

33,3226 

1 3243 

0 

BZF 

NOREASON 

3:15  DEC.  2,1970  FLY  .132  PAGE  384 

USER ' S PAGE  NO.  28  E7  S3 

SEE  IF  LR  UPDATE  INHIBITED. 

IT  TS-Nl.  LR  UPDATE 

NO  INHIBIT  - SEE  ALT  MEAS.  THIS  CYCLE. 

NO  ALT  MEAS  THIS  CYCLE-CHECK  FOR  VEL 
SET  PUSHLIST  TO  ZERO 

HBEAM  SM  At  2(2) 

STORE  HBEAM  IN  PD  0-c 
SCALE  V AT  2(5)  M/CS 

V RELATIVE  TO  SURFACE  AT  2(5)  M/CS 

V ALONG  HBEAM  AT  2(7)  M/CS 

SCALE  TO  RADAR  COUNTS  X 5 
TEST  LR  ALTITUDE  SCALE  FACTOR 

BRANCH  TF  HIGH  SCALE 
RESCALE  IF  LOW  SCALE 


CORRECT  HMEAS  FOR  DOPPLER  EF  F F CT 


SLANT  RANGE  A T 2(21), PUSH  UP  FOR  HBEAM 
SLANT  RANGE  VECTOF  AT  2(23)  M 

ALTITUDE  AT  2(24)M 
DELTA  H AT  2(24)  M 


DO  NOT  PEF  EOF  M DATA  REASONABLENESS  TEST 
UNTIL  AFTER  HIGATE 
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,AP: 

ASSEMBLE  -EVISIDM 

001 

Of  AGC  PROGRAM  API  lk.  PE  BY 

EYLES 

3:15  DEC.  2,1970  FLY 

.132  PAGE 

SERVICER 

USEP'S  PAGE  NO. 

29  E7  S3 

0897 

REF  158 

LAST 

984 

3 3 > 3227 

0 6037  0 

TC 

INTPRET 

0898 

33, 3230 

45246  0 

A8S 

OSU 

0899 

REF  2 

LAST 

121 

33,3231 

02521  0 

DEL  QF  I X 

ABS(DELTAH)  - DQFIX 

50  FT  NOM 

0900 

33, 3232 

4*2  52  0 

SL  3 

DSD 

SCALE  TO  2(21) 

0901 

REF  8 

LAST 

8 84 

33 ,3233 

u 353  1 

HC.ALC 

ABS(DELTAH)  - (50  + 

HCALC/8)  AT  2(21 

0°02 

33,3234 

77776  1 

EXIT 

0903 

REF 

2 

LAST 

IE  0 

33,3235 

25*670 

1 

INCP 

LRLCTR 

0904 

REF 

2 

LAST 

376 

33,3236 

0 6 723 

1 

TC 

BRANCH 

090  r 

REF 

1 

33, 3237 

1 3560 

0 

TCF 

HFAIL 

DELTA  H TOO  LARGE 

0906 

REF 

2 

LAST 

885 

33, 3240 

1 35  60 

0 

TC  F 

HFAIL 

DELTA  H T00  LARGE 

OCT.  7 

p f - f 

o 7 

i A T 

<3  c;  A 

33, 3241 

n 6 516 

o 

TC 

p nw  VF  1 A (9 

T 1 1 p ,\j  OFF  A 1 T c fl  T i 1 tun 

U7U  f 

O Zl 

L Ao  ? 

i Ur. 'Y  U i r L , "AIL  L A 1 r 

0908 

REF 

1 

33, 3242 

00263 

0 

ADRES 

HFLSHFLG 

0909 

REF 

3 0 

LAST 

3 84 

33,3243 

4 0107 

0 

NORFASON  CS 

FL.GW  • D 1 1 

0910 

c EF 

1 

33,3244 

7 4 744 

0 

MASK 

LRINHBJT 

091  1 

REF 

260 

LAST 

834 

33,329-5 

10  000 

0 

CCS 

A 

0912 

REF 

2 

LAST 

88'- 

33,3246 

1 3310 

1 

TCF 

VMEA^CHK 

U P D A T E INHIBITED  - TEST  VELOCITY  ANYWAY 

0Q 1 3 

REF 

159 

LAST 

885 

33, 3247 

0 6037 

0 

TC 

INTPRET 

DO  POSITION  UPDATE 

0914 

^ ^ 1 ? sn 

1 

DLOAD 

C DA 

: v D f -I  4 D 

“t  M -V 

1 

O rS-J- 

091  6 

REF 

9 

L A S T 

88  5 

33 ,325  1 

03536 

1 

HCALC 

EsCALE  H T(j  2 ( 2 3 ) M 

0914 

33,3252 

77776 

1 

EXIT 

0917 

33 ,7253 

0 0006 

1 

EXTEND 

09  IF 

REF 

6 

LAST 

884 

33,3254 

3 1665 

0 

DC  A 

DELTAH 

STORE  DELTAH  IN  MPAC  AND 

0919 

REF 

345 

LAST 

878 

33, 3255 

52  155 

1 

OXCH 

MP  AC 

BRING  HCALC  INTO  A , L 

0920 

REF 

1 

33,3256 

0 7544 

0 

TC 

ALSIGNAG 

0921 

33,3257 

0 0006 

1 

EXTEND 

TF  HIGH  PART  OF  HCALC  IS  NON  ZERO,  THEN 

0922 

33, 3260 

1 3262 

0 

BZF 

+ 2 

HCALC  > HM AX , 

0923 

Q EF 

3 

LAST 

8 9 5 

l b 9 1 n 

1 

Tr  P 

1/  ILi  C ft  C C U k 

Cfl  ItPnJfc  T c RYPA88FD 

D z)  , c.  O 1 

1 D D JL  VJ 

1 

I r 

V h C A . U n r\ 

*3  i • Ur  Urt  ■ C JLD  Dir  HoolU 

0924 

REF 

346 

LAST 

885 

33, 3262 

54  156 

1 

TS 

MPAC  +2 

FOP  LATER  SHORTMP 

0925 

REF 

137 

LAST 

874 

33,3263 

4 C001 

1 

CS 

L 

-H  AT  2 ( 1 4 ) M 

0926 

REF 

1 

33,3264 

6 1420 

0 

AD 

LRHMAX 

HM AX  - H 

0927 

33,3265 

0 0006 

1 

EXTEND 

092P 

REF 

4 

LAST 

885 

33,3266 

6 3310 

0 

BZMF 

VME  Ac  CHK 

IF  H >HM AX , BYPASS  UPDATE 

0929 

33, 3267 

0 0006 

1 

EXTEND 

0930 

RFF 

1 

33,3270 

7 1421 

0 

MP 

LRWH 

WHfHMAX  - H) 

0931 

33,3271 

0 £606 

1 

EXTEND 

093  2 

REF 

2 

LAST 

385 

33,  1272 

11*420 

1 

DV 

LRHMAX 

W H ( 1 - H/ HM  AX  ) 

0933 

RFF 

4 

LAST 

462 

33, 327  3 

54  135 

1 

TS 

MPTEMP 

0°34 

r-  EF 

1 

33,3274 

0 7313 

1 

TC 

SHOE  TM  P2 

DELTAH  (WHM1  - H/HMAX)  IN  MPAC 

0935 

REF 

160 

LAST 

885 

33,3275 

0 6 037 

0 

TC 

I NTPRET 

MODE  IS  DP  FROM  ABOVE 

0936 

33,3276 

77752 

1 

SL  1 

0937 

33,3277 

53361 

0 

vxsc 

VAD 

0938 

REF 

37 

LAST 

8 94 

33, 3300 

035  37 

0 

UNIT/R/ 

DEI. TAR  = DH  ( WH  ) ( 1 - H/HMAX)  UNIT/R/ 

093° 

RFF 

1 1 

LAST 

88  3 

33,3301 

03573 

0 

P.1S 

0940 
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0 
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0 
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USER • S PAGE  NO.  3f  E7  S3 

ZERO 
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OUIKFAZ<r 

FLGWR.D11 
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VELDABIT 
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IS  V READING  AVAIL  ABL  F? 

VALTCHK 

NO  SEF  IF  V READING  TO  BE  TAKEN 
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L 

PROCESS  VELOCTTY  DATA 
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L 

-2  VSELECT  IN  L 

L 
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-6  VSELECT  If  A 
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LRXCDU 

XI  = -6  VSELECT,  X2  = -2  VSELECT 

LRYCDU 

C DUS  POT 

LRZCDU 

C DUS  POT  +2 
LRXCDU 

C DU SPOT  +4 

STORE  L R C DUC  IN  CDUSPOTp 
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GET  SINES  AND  COSINES  FOR  NBSM 
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00025  0 


CA  EBANK7 

IS  EBANK 

EBANK=  DVCNTR 

TC  INTPRET 

VXSC  POOL 

KPIP1 
LRVTIME 
DSU  DDV 
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PUSH  UP  FOP  DELV 
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SCALE  TO  2(5)  M/CS  AND  SUBTR, ACT 
MOON  ROTATION. 
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IF  IN  P65  , P66 , P67 , USE  ANOTHER  CONSTANT 


CHANGE  EBANKS 

Wt DELTA  V ) ( VBEAMSM ) UP  6-7,  0-5 
ADD  WEIGHTED  DELTA  V TO  VELOCITY 

00  NOT  P E-UPDATE 

STORE  NEW  VELOCITY  VECTOR 

DO  NOT  REPEAT  ABOVE 

TEST  PEADVEL  TO  SEE  IF  VELOCITY  READING 
IS  DESIRED. 

TES  - READ  VELOCITY 

NO  - SEE  IE  VELOCITY  < 2000  FT/SEC 

V-  > 2000  FT/SEC  DO  NOT  READ  VEl 

V < 2000  FT/SEC  SET  PEADVEL  AMD  READ 

SET  UP  JOB  TO  READ  VELOCITY  BEAMS. 


CONTINUE  W I TH  SEFVTCER 


STORE  GNUP  ! =GNUV ) IN  R1S  OR  VIS 
A = 0 FOR  R , A = 6 FOR  V 
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EBANK 

Ulr 

REF 

142 

LAST 

886 

33, 3554 

52  C 02 

1 

DXCH 

L 

1116 

REF 

1 

E 3 , 1.446 

EBAMK= 

PHSNAME5 

1117 

REF 

2 

LAST 

890 

33,3555 

5 5 ' 446 

1 

TS 

PHSNAME5 

111  ’ 

REF 

40 

LAST 

890 

33 , 3556 

22  C 03 

1 

L XCH 

EBANK 

111° 

RFF 

52 

LAST 

8 87 

E7, 1515 

E B AN  K = 

DVCNTP 

1120 

REF 

26^* 

LAST 

889 

33,3557 

0 0000 

1 

TC 

A 

1121 

REF 

2 

LAST 

150 

33,3560 

4 

1671 

1 

HFAIL 

CS 

LRRCTR 

1122 

33,3561 

0 

CO  06 

1 

EXTEND 

1123 

REF 

1 

33, 3562 

1 

3572 

0 

BZE 

NCR  LI TE 

112A 

REF 

3 

LAST 

88  5 

33,3563 

6 

1670 

1 

AD 

1.  RLCTF 

112! 

REF 

1 

13,3564 

7 

7745 

1 

MAS  K 

NEG3 

1126 

33,3555 

0 

0006 

1 

EXTEND 

1127 

33,3566 

1 

3570 

1 

BZF 

+ 2 

1128 

R EE 

2 

1 AST 

890 

33, 3567 

1 

3 5 72 

0 

TC  F 

NORL I T F 

112° 

REF 

60 

LAST 

8 89 

33,3^70 

0 

5504 

0 

TC 

1 1 p F 1 Af; 

UrfL  r\ 

1130 

REF 

2 

LAST 

885 

33,3571 

00263 

0 

ADRES 

HFLSHFL  G 

1131 

REF 

4 

LAST 

890 

33,3572 

3 

1670 

1 

NORL I TE 

CA 

LRLCTR 

113  2 

RFF 

3 

LAST 

890 

33,3573 

t 

5 '671 

1 

TS 

LRRCTR 

1133 

REF 

5 

L A ST 

885 

33,3576 

1 

3310 

1 

TCF 

VMEASCHK 

1134 

REF 

2 

LAST 

150 

33,3575 

4 

1673 

0 VF  AIL 

CS 

L RSCTR 

1 135 

33 , 3576 

0 

0006 

1 

EXTEND 

1136 

REF 

1 

33,3577 

1 

3607 

1 

B 7 F 

NOL ITE 

1137 

REF 

3 

LAST 

387 

33,3600 

6 

1672 

0 

AD 

LRMCTR 

1138 

REF 

2 

LAST 

890 

33,3601 

7 

7745 

1 

MASK 

NEG3 

1139 

33 , 3602 

0 

CO  06 

1 

EXTEND 

1140 

33 ,3603 

1 

3605 

0 

BZF 

+ 2 

1141 

REF- 

2 

LAST 

890 

33,  3604 

1 

3607 

1 

TC  E 

NCL I TE 

1142 

REF 

6] 

LAST 

890 

33 , 3605 

0 

550^ 

0 

TC 

UPFLAG 

1143 

REF 

2 

LAST 

887 

33,3606 

00262 

1 

ADRES 

VFLSHFLG 

3:  15  DEC.  2,1570  FL.Y  " 

USER'S  PAGE  WO.  34 


.132  PAGE 
ET  S3 


3-9  0 


SET  EBANK  3 
0 TO  A,  A TO  L 


IE  R = 0,  DO  NOT  TURN  ON  TRK  EAIl 

IF  L-R  LT  4,  DO  NOT  TURN  ON  TRK  FAIL 

AMD  SET  BIT  TO  TURN  ON  TRACKER  FAR  LITF 

SET  R = L 


DELTA  G LARGE 

IF  S = 0,  DC  NOT  T Up  N ON  TRACKER  FAIL 

M-S 

TEST  FOR  M-S  > 3 

IF  M-S  > 3,  THEN  TWO  OR  MORE  OF  THE 
LAST  FOUR  V READINGS  WERE  BAD, 

SO  TURN  ON  VELOCITY  FAIL  LIGHT 

AND  SET  BIT  TO  TURN  ON  TRACKER  FAIL  LITE 


GAP:  ASS  C.'iRL  fr  Rfc  VISIT  H 001  OF  AGC  PROGRAM;  &P11R0PE  B Y EYLES 


L SERVICE- 


1 ] 

REF 

4 

LAST 

890 

33 , 36C  7 

3 16  72 

0 NOLITE 

CA 

1 1 ■ 

REF 

3 

LAST 

850 

33,3610 

55 '673 

0 

TS 

1146 

REF 

6 

LAST- 

888 

33,3611 

1 1 ' 6 6 1 

0 

CCS 

1147 

REF 

2 

LAST 

888 

33,3612 

l 3514 

0 

TCF 

1148 

REF 

62 

LAST 

890 

33 , 3613 

0 5504 

0 

TC 

1145 

REF 

2 

LAST 

888 

33,3614 

00250 

0 

ADRES 

1150 

REF 

3 

LAST 

3 ■ 1 

33,3615 

1 3514 

0 

TCF 

LRMCTR 

LRSCTR 

VSEI.FCT 

ENDVOAT 

UPFLAG 

VXINH 

ENDVOAT 


3: 15  DEC.  2,1970  FLY  .132  PAGE  891 

USER • S PAGE  NO.  35  E7  S3 

SET  S = M 


TEST  FOR  Z COMPONENT 

NOT  Z,  OH  NOT  SET  VX  INHIBIT 

Z COMPONENT  - SET  FLAG  TO  SKIP  X 
COMPONENT, AS  ERROR  MAY  BE  DUE  TO  CROSS 
LOBE  LOCK  UP  NOT  DETECTED  ON  X AXIS. 


GAP:  ASS  EMBL  t EVISI3?  001  OF  AGO  PROGRAM  AP11KCPE  BY  EYLES  3:15  DEC « 2,1970  FLY  .132  PAGE  Q<=>2 


L 

SERVICER 

USEP ' S PAGE  NO.  36  E7  S3 

P 1151 

£ # # 3jc  # sjc  # # ij«  £ £ £ £ 

3j«  3}C  ^|c  ajs  :{e  jJc  # % ^ jJc  sjs  # ije  s{e  jjc  # # sjc  # : 

fc#  : 

£ * Z £ £ $ 

* ijssjc  :Jc  ##  ;}c#  sjc  * £ 

:jc  ?Jc  >Jc  iji  ijc  5$:  jjc  j{e  jJi  ;J: 

R 1153 

LRVJCB  IS  S FT  WHEN  TFE  LEM 

IS  BELOW 

15000 

FT  DUPING 

THE  LANDING  PHASE 

P,1 1 54 

THIS 

JOB  INITIALIZES  THE  LAND  IMS  1 

'ADA  READ  ROUTINE 

FOT  5 VELOCITY 

R 1 155 

SAMPLES  AND 

GOES 

TO  SLEEP 

WHILE  THE 

SAL  PI 

ING  IS  DONE 

-ABOUT  500  MS. 

R 1156 

WITH 

A GOOD  END  RETURN  THF 

DATA  IS 

STORED 

IN  VMEAS  AND  8 IT7  OF  L R S T A T 

R 1157 

1 8 SF 

T.  THF  G I MB AT  ANGLES 

AT  F PE  AD 

ABOUT 

MIDWAY  IN 

THE  SAMPLING  . 

1158 

REF 

6 

LAST 

447 

436  1 

170MS  EQUALS 

NO  1 

1150 

REF 

1 

33,3616 

3 4 3 61 

1 

LTVJOB  CA 

170MS 

SET  TASK  TO  READ  C DUS  + PIPA' 

1160 

REF 

36 

LAST 

8 59 

33,3617 

6 5203 

0 

TC 

W A I T l 1ST 

1161 

REF 

3 

LAST 

887 

E4 , 1652 

EBANK= 

LRVTIME 

1162 

REF 

1 

33 , 3620 

03757 

1 

2C  ADR 

ROGIMS 

1 162 

REF 

1 

33, 3621 

70064 

1 

1163 

REF 

7 

L A c T 

891 

33  , 3622 

I L ' 6 5 1 

0 

CCS 

VS Et  ECT 

SEQUENCE  LR  VEL  BEAM  SELECTOF 

1164 

33 , 3623 

1 3625 

1 

TC  F 

+ 2 

1165 

REF 

^ 5 

l A ST 

878 

33 , 36  24 

3 47  5 2 

o 

C AF 

TWO 

IF  ZERO-RESET  TO  TWO 

1166 

33,3625 

6 0000 

1 

DOUBLE 

2XVSEL  ECT  USED  FOR  VBEAM  INDEX  IN  LR  V El 

1167 

REF 

245 

LAST 

886 

33,3626 

0 4616 

1 

TC 

B ANKCALL 

GO  INITIALIZE  LR  VEL  READ  ROUTINE 

1168 

REF 

1 

33,3627 

53107 

1 

CADR 

LRVEL 

1160 

r EF 

246 

LAST 

89.? 

33,3630 

0 4616 

1 

TC 

BANKCAU 

PUT  L R V J 0 B Tp  SLEEP  ABOUT  500  MS 

1170 

REF 

1 3 

LAST 

606 

33, 3 43  1 

17714 

0 

CADR 

P ADSTALL 

1171 

REF 

1 

33,363? 

1 3465 

0 

TC  F 

V8AD 

1172 

REF 

2 

LAST 

150 

33 , 3633 

1 1 ' 6 7 5 

0 

CCS 

STILBAOV 

IS  DATA  GOOD  JUST  PRESENT? 

1173 

REF 

1 

33,3634 

1 3666 

0 

TCF 

VSTILBAD 

JUST  GOOD  - MUST  WAIT  4 SECONDS. 

1174 

33,3635 

0 0004 

0 

INHINT 

1 175 

33,3636 

0 Of 06 

1 

EXTEND 

GOOD  RiETURN-ST OW  AWAY  VMEAS 

1176 

REF 

fit 

LAST 

6 70 

33,3637 

3 1102 

o 

DC  A 

SAMPLSUM 

1177 

REF 

4 

LAST 

8 86 

33,3640 

53 '653 

1 

DXCH 

V ME  AS 

1178 

REF 

5 

LAST 

886 

33,3641 

3 4741 

1 

CA 

EBANK4 

FOR  DOWNLINK 

117° 

REF 

41 

LAST 

890 

33 , 3642 

54  003 

0 

TS  immmai 

FRANK 

1180 

REF 

4 

LAST 

862 

E4, 165? 

EBANK  = 

LRVTIME 

1181 

33 ,364  3 

0 0006 

1 

EXTFND 

1182 

P,  EF 

5 

LAST 

892 

33,3644 

3 1653 

0 

OCA 

LRVTIME 

1183 

REF 

2 

LAST 

200 

33,3645 

5 3 ' 74G 

1 

DXCH 

LRVTIMDL 

1184 

33,3646 

0 0006 

1 

EXTEND 

1185 

REF 

4 

LAST 

886 

33 , 364  7 

3 lfc  55 

0 

DC  A 

LRXCDU 

1186 

REF 

3 

LAST 

201 

33,3650 

5 3 ' 7 3 5 

0 

DXCH 

LR XCDUDL 

1187 

REF 

3 

LAST 

886 

33,3651 

3 16  56 

0 

CA 

LRZC.OU 

1188 

RFF 

3 

LAST 

200 

33,3652 

55*736 

0 

TS 

LRZCDUDL 

1189 

REF 

11 

LAST 

889 

33,3653 

3 5016 

0 

CA 

EBANK7 

1 150 

REF 

42 

LAST 

852 

33,3654 

54  003 

0 

TS 

EBANK 

1191 

REF 

8 

LAST 

89  2 

F.7 ,16  51 

E 8 A N K = 

VSELECT 

1192 

REF 

35 

LAST 

889 

33,3655 

4 0107 

0 

CS 

FLGWPnD  1 1 

SET  BIT  TO  INDICATF  VELOCITY 

1193 

RFF 

2 

LAST 

886 

33,3656 

7 4745 

1 

MASK 

VELDABIT 

MEASUREMENT  MADE. 

i" 


GAP:  ASSEMBLE  R&VISI3-N  003  DF  AGC  Pf  OGK  AM  AP11R0PE  BY  E Yl_  E i> 


L SERVICE? 


1194 

REF 

36 

LAST 

892 

33 ,3657 

26  107 

0 

1195 

RFF 

g 

LAST 

892 

33,3660 

1 1 ' fa  5 1 

0 

119  6 

33,3661 

1 36  63 

0 

1197 

R FF 

56 

LAST 

392 

33,3662 

3 4752 

0 

1 19" 

REF 

10 

LAST 

393 

33, 3663 

55*651 

0 

1 lc9 

RFF 

13 4 

LAST 

8 67 

33,3664 

1 5155 

1 

ACS  FLGWRD 1 1 

CCS  VSELECT 

TCF  +2 

CA  TWO 

TS  VSELECT 

TCF  ENDOFJOP 


1200 
1201 
120  2 


REF  57  LAST  893 
REF  3 LAST  892 

REF  1 


33.3665  3 4752 

33.3666  55 '675 

33.3667  1 3650 


0 VBAD  CAF 

0 VSTILBAO  TS 
0 TCF 


TWO 

STI L8ADV 
ENDLi  V 


R 1203  L'-HjnB  IF  sET  BY  I'-HTASK  WHEN  LET  IS  BELT"-'  2r'0C0  FT.  THIS  JTTB 

R 1204  INITIALIZES  THE  LR  READ  ROUTINE  FOR  AN  ALT  MEASUREMENT  AND  GOES  TO 

R 1205  SLEEP  WHILE  THE  SAMPLING  IS  DONE-ABOUT  95  MS.  WITH  A GOODEND  RETURN 

R 1206  THE  ALT  DATA  IS  STORED  IN  HMEAS  AND  BIT7  OF  LRSTAT  IS  SET. 


1207  34,3716  BANK  34 

1208  R FF  I 5 ,?('C0  S-ETLOC  P12R'MJFF 

1209  34,3716  BANK 


1210  -FEE  1 COUNT  * $$/S6RV 


1211 

R FF 

247 

LAST 

892 

3 4 , 37  1 6 

0 4616 

1 LPH JOB 

TC 

6 AN KC ALL 

1212 

RFF 

2 

LAST 

491 

34, 3717 

53073 

0 

C ADR 

LRALT 

1213 

REF 

248 

LAST 

893 

34,3720 

0 4616 

1 

TC 

BANKCALL 

1214 

REF 

14 

LAST 

89? 

34, 3721 

17714 

0 

CADR 

R ADSTALL 

1215 

REF 

1 

34,3722 

1 774.  r; 

n 

TCF 

HBAI) 

L D I *r  J 

1216 

REF 

2 

LAST 

150 

34, 3723 

11 *674 

1 

CCS 

STILBADH 

1217 

r Ef 

1 

34,3724 

I 3755 

1 

TCF 

HSTILSAD 

1218 

1219 

1220 

REF 

9 

LAST 

892 

34 . 3725 

34.3726 
84 . 87  7 7 

0 CC  04 
0 00  06 
3 1102 

0 

1 

n 

INHINT 

EXTEND 

nr  A C AMDI  C ! IM 

J ) f l c I 

1221 

hIf 

7 

LAST 

889 

34,3730 

53*6 55 

1 

DXCH 

HMEAS 

122? 

3 4,3731 

0 ( 0 06 

1 

EXTEND 

1223 

REF 

1C 

LAST 

870 

34,3732 

3 1561 

1 

DC  A 

PIPTTME1 

1224 

REF 

8 

LAST 

606 

34,3733 

53 ' 755 

0 

DXCH 

MKT  I ME 

122  5 

34,3734 

0 0006 

1 

EXTEND 

1226 

REF 

3 

LAST 

872 

34, 3735 

3 1157 

0 

DC  A 

CDUTEMPY 

1227 

REF 

9 

LAST 

606 

34,3736 

53*460 

0 

DXCH 

A I G 

1228 

REF 

3 

LAST 

872 

34,3737 

3 1155 

1 

CA 

CDUTEMPX 

1229 

REF 

7 

LAST 

606 

34,3740 

55*461 

1 

TS 

AOG 

1230 

F FF 

3 7 

LAST 

8 9 3 

34,3741 

4 0107 

0 

CS 

FLGWRD1 1 

1231 

REF 

2 

LAST 

834 

34,3762 

7 4750 

0 

MASK 

FNGED8IT 

1232 

REF 

38 

LAST 

893 

34,3743 

26  107 

0 

ADS 

FLGWPD11 

1233 

REF 

135 

LAST 

893 

34,3744 

0 5155 

0 ENDI  RH 

TC 

ENDOF JOB 

3:15  DEC.  2 

,1970 

FLY 

.132 

PAGE 

USFD  ’ 

S PAGE 

NO. 

37 

E 7 S3 

UPDATE  VSELECT 


SET  STIL3AC  TO  WAIT  4 SECONDS 


INITIATE  L ALT  MEASUREMENT 
LRHJOB  TO  SLEEP  ABOUT  95MS 


IS  DATA  GOOD  JUST  PRESENT? 

JUST  GOOD  - MUST  WAIT  4 SECONDS. 


GOOD  FET JRN-STORF  AWAY  LR. H DATA 
LR  H DATA  1.079  FT/BIT 
FOR  DOWNL  INK 


C DU Y , 7 = A I G, AMG 

CDUX  = AOG 

SET  BIT  TO  INDICATE  RANGE 
MEASUREMENT  MADE. 


893 


TERMINATE  LRHJOB 


GAP:  ASSEMBLE  REVISION  001  OF  AGC  PROGRAM  API 1R0PE  BY  EYLES 


3:15  DEC 


2,1970  FLY 


132  PAGE  894 


L 

SEP  VI  CEP 

USEP  *5 

PAGE  MO.  38  E7 

S3 

1234 

REF- 

26 

LAST 

331 

34,3745 

3 

0101 

1 HBAD 

CA 

F LAGWRD5 

1235 

REF 

2 

LAST 

57  1 

34,3746 

7 

4742 

0 

MASK 

RNGSCBIT 

1 S 

RAD  RETURN  DUE  TO  SCALE  CHANGE? 

173  A 

14.1747 

o 

C 006 

EXTEND 

1 c 3 c 

1 T 1 3 1 r ( 

1237 

REF 

2 

LAST 

893 

34,3750 

1 

3754 

0 

BZF 

hstilbad  -1 

MO 

RESET 

HS T II  BAD 

123: 

REF 

85 

LAST 

888 

S ,3751 

0 

5516 

0 

TC 

DOWN  FLAG 

YES 

1 ES  FT 

SCALE  CHANGE  BIT  AND 

IGNORE 

1230 

REF 

4 

LAST 

606 

34,3752 

00120 

1 

ADRES 

RNGSCFLG 

1240 

REF 

136 

LAST 

893 

34,3753 

0 

5155 

0 

TC 

ENDOF JOB 

1241 

REF 

58 

LAST 

893 

34,3754 

3 47  52 

0 

CAF 

TWO 

SET  STILBAD  ^0  WAIT  4 SECONDS 

1242 

PE  F 

3 

LAST 

893 

36, 3755 

55 ' 674 

1 

HS  T 1 1 BAD 

TS 

ST  I LBADH 

124  3 

RFF 

137 

LAST 

8«4 

34,37^6 

0 c 1 5 5 

0 

TC 

ENDOF JOB 

1244 

34,3757 

BANK 

34 

1245 

REE 

1 

34,2000 

SETLOC 

SERV4 

1246 

34,37^7 

BANK 

12^7 

REF 

2 

LAST 

893  TP 

894: 

3 3 

33* 

COUNT* 

.t$/SEn  V 

R 1248 

■ DGI MS  IS 

A TASK 

SET  UP 

BY  LRVJOB  TO 

PICK  UP 

THE  1 ML 

1 CDUS  AND  TIME 

R 1249 

AT  ABOUT  THE  MIDPOINT  OF 

THE  LR  VEL  READ  ROUTINE  WHEN 

5 VEL  SAMPLES 

R 1250 

A~ t : 

SDEC  TFT  ED  . 

1251 

REF 

6 

LAST 

89? 

F6 ,16  5 2 

EBANK= 

LRVTIME 

1252 

34,3757 

0 CO 06 

1 

R DGI MS 

EXTEND 

1253 

REF 

27 

LAST 

870 

34,3760 

3 0025 

0 

DC  A 

TIME2 

PICK  UP  TIME2  , T I M E 1 

1254 

REF 

7 

LAST 

89  4 

34  ,3761 

53 ' 653 

l 

DXCH 

LRVTIMF 

AND  SAVE  IN  LRVTIME 

1255 

34, 3762 

0 0006 

1 

EXTEND 

1256 

REF 

14 

LAST 

870 

34. , 376  3 

3 003  3 

OCA 

C DU  X 

prr k up  rmiy  amo  rmiY 

1257 

REF 

5 

LAST 

892 

34,3764 

53' 655 

1 

DXCH 

LRXCDU 

AND  SAVE  IN  LRXCDU  AND  LR YCDU 

1258 

REF 

8 

LAST 

870 

34,3765 

3 0034 

0 

CA 

CDUZ 

1259 

RFF 

4 

LAST 

892 

34,3766 

55*656 

1 

TS 

LRZCDU 

SAVE  CDUZ  IP  LRZCDU 

1260 

PFF 

12 

L AST 

871 

34,3767 

3 0037 

0 

CA 

PIPAX 

1261 

REF 

6 

LAST 

887 

34, 3770 

55*657 

0 

TS 

PI PTEM 

SAVE  PIPAX  IN  PIPTEM 

1262 

14,31  l 

0 0006 

1 

EXTEND 

1263 

REF 

3 

LAST 

38  4 

37  7 2 

3 0041 

1 

DC  A 

P I PAY 

PICK  UP  PIPAY  AND  PIPAZ 

1264 

REF 

7 

LAST 

8 94 

34 ,3773 

53  *661 

0 

DXCH 

PIPTEM  +1 

AND  SAVE  IN  PIPTEM  +1  AND  PIPTEM  +2 

1265 

FEE 

60 

LAST 

859 

34,3774 

0 52  61 

1 

TC 

TASKOVEF 

1266 

33,3670 

BANK 

33 

1267 

REF 

8 

LAST, 

873 

33,2000 

SETLOC 

SERVICES 

1268 

33,3670 

BANK 

1269 

REF 

8 

L AST 

87  3 TP 

B«  3 : 

657  855* 

COUNT* 

$ $ / S F P V 

1270 

RFF 

53 

LAST 

890 

E7, 1515 

EBANK= 

DVCNTR 

" 


« 


GAP:  ASSEMBLE  REVISION  -01  OF  AGC  PROGRAM  AP1LR0PE  BY  EYLE- 

L SE*';  VI  CEC 

R1271  HIGATJOB  IS  SET  APPROXIMATELY  6 SECONDS  PRIOR  TO  HIGH  GATE  DURING 

R 1272  II  IU  PHASI  F LUNAR  LAND  ■ 1 S JOB  I ' 1 E rHE 

R 12  73  LAGGING  ADA  UP  SI  I U.NILG  utTIME  AND  GOES  TO  SLEEP  UNTIL  THE 

R1274  I. P.  ANTENNA  MOVES  FROM  POSITION  1 TO  POSITION  2.  IF  HE  LR  ANTENNA 

R 127 c ACHIEVES  POSITION  2 WITHIN  22  SECONDS  THE  ALTITUDE  AND  VELOCITY 

R 1276  REA”  VECT^'S  APE  1 EC<‘  'PUTED  TO  -SELECT  THE  NEW  ORIENTATION  PITH 

R 12 77  RESPECT  TO  THF  MB.  BIT10  OF  l.RSTAT  IS  CLEARED  TO  ALLOW  LR 

R 1278  MEASUREMENTS  AND  THE  JOB  TERMINATES. 

127 9 KEF  24?  LAST  30,31  70  0 4ol£  1 HIGATJOB  TC  BANKCALL 

12B0  REF  2 LAST  265  31,3671  53471  0 C ADR  LRP0S2 

1281  REF  250  LAST  8°5  33,3672  0 46  lf«  1 TC  B ANKCALl 

1282  RFF  15  LAST  8«3  33,3673  17714  0 CADR  RADSTALL 

1283  REF  1 33,3674  1 3703  1 TC  F POSALARM 

1284  REF  2 LAST  2 v ~ 3 3 , 3 6 o 3 7711  1 POSE'  D CA  PR  1 02  3 

1285  REF  13  LAST  757  33,3676  0 5146  1 TC  PRKCHNG 


1286  REF 


33,3677  0 3737 


TC  SET  P0S2 


1287 
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3 2 0 03 

0 

CA 

0279 

21 , 2573 

0 0006 

1 

EXTEND 

0280 

REF 

■40 

LAST 

903 

21,2574 

7 C070 

1 

MP 

0231 

21 , 2575 

20  CO  1 

1 

DDLIUBL 

0232 

r-  FF 

2 

LAST 

150 

21  ,2576 

57*700 

1 

XCH 

02  33 

REF 

1 1 

LAST 

903 

21 , 2577 

3 00  64 

0 

CA 

02  8 / 

2 1 , 2600 

0 C006 

1 

EXTEND 

0235 

REF 

4 

LAST 

903 

21 ,2601 

7 1705 

0 

MP 

0286 

REF 

41 

LAST 

.903 

21 ,2602 

56  070 

0 

XCH 

0287 

RFF 

25 

LAST 

903 

21 , 2603 

3 0063 

1 

CA 

02  3 8 

21,2604 

0 CO 06 

1 

EXTEND 

0289 

REF 

4 

LAST 

903 

21 , 26Qr 

7 1704 

1 

MP 

0290 

REF 

269 

l AST 

902 

21,2606 

4 COOO 

0 

CS 

0291 

P EF 

42 

LAST 

903 

21 ,2607 

26  070 

1 

ADS 

RUPTREG1 

VHY 

I TEMPI 
UHZP 

'UPTREG1 

ITEMP2 

UHZP  +2 
UPT' EG1 
ITEMP3 

UHZP  +4 
UPT . EG) 
RUPTREG1 

VHZ 

EBANK6 

EBANK 

M22 

M22 

ITEMP3 
M 32 

I TEMP*- 
EBAE K7 
EBANK 
UNIT/R/ 
ITEMP4 

VHY 

RUPT;  EG  1 
ITEMP3 

VHZ 

RUPTREG 1 
VELCONV 

RUPT  REG  1 

LATVEL 

HEMP* 

VHZ 

i UP! S EG  1 

I TEMP3 

VHY 

A 

RUPTREG1 
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VHY=VMP.UHYP  M/CS*2(-5>. 

NOW  CCNPUJE  VHZ,  VELOCITY  DIRECTED  ALONG 
THE  Z-COOP DIN ATE. 

HI  X OF  DOWN-RANGE  HALF-UNIT  VECTOR. 


Y 

ACCUMULATE  PARTIAL  PRODUCTS. 


Z 


VHZ  = VMP.UHZP  M/CS*2(-5). 

GET  S I N ( AOG ) , COS ( AOG ) FROM  GPMATF IX. 


COMPUTE  i ATEFAL  AND  FORWARD  VE'  -CITIES. 


= VHY( C OS ) AOG+VHZI SIN) AOG  M/CS  *2<-5) 
CONVERT  LATERAL  VELOCITY  TO  BIT  UMTS. 


LATERAL  VELOCITY  IN  BIT  UNITS  *2(-14> . 
COMPUTE  FORWARD  VELOCITY. 


=VHZ ( CGS ) AOG -VHY ( S IN) AOG  M/CS  *2(-5) 


GAP:  ASSEMBLE  HE  VISION ...  COl  CF  AGC  PROGRAM  AP11ROPE  3Y  EYLES 


l AN DING 

ANALOG 

DISPl  AYS 

0292 

REF 

2 

LAST 

903 

21,2610 

3 2003 

0 

CA 

VELCONV 

0293 

21, 2611 

0 0006 

1 

EXTEND 

0294 

REF 

43 

LAST 

903 

21, 2612 

7 CO 70 

1 

MP 

RUPTREG1 

02°  + 

21,2613 

20  001 

1 

DDOUBL 

0296 

< E F 

2 

! AST 

150 

2 1 ,26  14 

57' 701 

0 

XCH 

FORVEL 

0297 

REF 

1 

21,2615 

4 2005 

1 

CS 

MAXVBI TS 

0298 

REF 

5 

1 AST 

613 

21,2616 

54  066 

0 

TS 

ITEMP6 

029  9 

REF 

99 

LAST 

899 

21,  2617 

3 4753 

1 

CAF 

ONE 

0300 

REF 

12 

LAST 

902 

21,2620 

54  0 65 

0 

V M ON  I TO R 

TS 

1 TEMP- 

0301 

REF 

13 

LAST 

604 

21, 2621 

50  065 

1 

INDEX 

ITEMP5 

0302 

REF 

3 

LAST 

903 

21,2622 

11 ' 700 

0 

CCS 

LATVEL 

0303 

21 ,2623 

1 2627 

1 

TCF 

+ 4 

0304 

. REF 

1 

21,2624 

1 2730 

0 

TCF 

LV  LIMITS 

030  5 

21,2625 

1 26  35 

1 

TCF 

+ 30 

030  6 

REF 

2 

LAST 

904 

21,2626 

1 2730 

c 

TCF 

LVLIMITS 

0307 

PFF 

14 

LAST 

904 

21,2627 

50  065 

1 

INDEX 

ITEMP5 

0308 

REF 

4 

LAST 

904 

21,2630 

4 1700 

0 

CS 

LATVEL 

0309 

REF 

2 

LAST 

0 04 

21,2631 

6 2005 

0 

AD 

MAXVBITS 

0310 

21,2632 

Q 0006 

1 

EXTEND 

0311 

REF 

I 

2 1,2633 

6 2643 

1 

BZMF 

CHKL  AST  Y 

0312 

REF 

3 

LAST 

904 

21 ,2634 

1 2 7 30 

0 

TCF 

L VI. T UTS 

0313 

RFF 

15 

LAST 

904 

21,2635 

50  065 

1 

INDEX 

I TEMP 5 

0314 

REF 

5 

LAST 

904 

21 ,2636 

3 1700 

1 

CA 

LATVEL 

0315 

REF 

3 

LAST 

904 

21 , 2637 

6 2005 

0 

AD 

MAXVBITS 

0316 

21,2640 

0 0006 

1 

EXTEND 

031  7 

2 1 ,2641 

6 2643 

1 

BZMF 

+ 2 

0318 

REF 

4 

LAST 

904 

21,2642 

1 2 73  0 

0 

TCF 

LVLIMITS 

0319 

REF 

16 

LAST 

904 

21,2643 

50  065 

1 

CHKL ASTY 

INDEX 

ITENP5 

0320 

REF 

3 

LAST 

900 

2 1 , 2644 

1 l '676 

0 

CCS 

LATVMETR 

0321 

2 1,2645 

1 2651 

0 

TCF 

+4 

0322 

REF 

1 

21,2646 

1 2662 

0 

TCF 

LASTOK 

032  3 

21,2647 

1 2656 

l 

TCF 

+7 

0324 

REF 

2 

LAST 

904 

21 , 2650 

1 2662 

0 

TCL 

LASTOK 

032  ^ 

PFF 

17 

LAST 

904 

2 1,2651 

50  065 

1 

INDEX 

T TEMPS 

0326 

REF 

6 

LAST 

904 

21,2652 

3 1700 

1 

CA 

LATVEL 

0327 

21,2653 

0 0006 

1 

EXTEND 

0328 

REF 

1 

21,2654 

6 2 701 

0 

BZMF 

LASTPOSY 

0329 

21,2655 

1 266  2 

G 

TCF 

+ 5 

0330 

REF 

18 

LAST 

904 

21,2656 

50  065 

1 

INDEX 

! TEMPS 

0331 

REF 

7 

LAST 

904 

21, 2657 

4 1700 

0 

CS 

LATVEL 

0332 

2 1,2660 

0 0006 

1 

EXTEND 

0333 

REF 

1 

21 ,2661 

6 2716 

0 

BZMF 

LASTNEGY 

0334 

P.EF 

19 

LAST 

904 

2 1,  2662 

5C  065 

1 

LASTOK 

INDEX 

I TEMPS 

033  5 

RFF 

3 

LAST 

900 

21 ,2663 

1 1*702 

1 

CCS 

T n AK  L AT  V 

0336 

REF 

2 

LAST 

904 

2 1 , 26  64 

1 2674 

1 

TCF 

LASTPOSY 

0337 

2 1 , 266  5 

1 ?6fe7 

0 

TCF 

+ 2 

0338 

REF 

2 

LAST 

904 

21 ,2666 

1 2712 

0 

TCF 

LASTNEGY 

0339 

REF 

20 

LAST 

904 

2 1,  2667 

50  065 

1 

INDEX 

I TEMP5 

i" 
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CONVERT  FORWARD  VELOCITY  TO  BIT  UNITS. 

FORWARD  VELOCITY  IN  BIT  UNITS  *2(-14». 
ACC.  = -199  .9989  FT. /SEC. 

-547  BIT  UNITS  (OCTAL)  AT  0.5571  FPS/BIT 
LOOP  TWICE. 

FORWARD  AND  LATE' AL  VELOCITY  LANDING 
ANALOG  DISPLAYS  MONITOR. 


+ 199.9989  FT  . /SEC 


GAP: 


AS5E  BLE  r E VI S 1 3 f-  ( 1 jF  AGC  PROGRAM  APllRL'PE  BY  EYLfcS 


0340 

0341 

0342 

0343 

0344 
03*  * 

0346 

0347 

0348 
034° 
0350 
035  1 

0352 

0353 

0354 

035  c 

0356 

0357 
03  5 8 
035° 

0360 

0361 

036  2 
036? 
036* 

0365 

0366 
036  7 
0368 
036° 

0370 

0371 

0372 

0373 
o?7* 

0375 

0376 

0377 

0378 
0370 
038C 

0381 

0382 

0383 

0384 
03  " 

0386 

0387 
038  8 
0389 


LANDING  ANALOG  DISPLAYS 


REF 

8 

R F F 

1 

REF 

1 

REF 

21 

RFF 

Q 

REF 
REF 
REF 
y EF 

2 

4 

1 

2 2 

REF 

4 

REF 

5 

REF 

23 

REF 

4 

REF 

100 

RFF 

p 

REF 

24 

REF 

10 

REF 

2 

REF 

6 

P F F 

3 

REF 

25 

REF 

5 

REF  7 


REF 

REF 

26 

5 

REF 

101 

REF 

4 

REF 

2 7 

REF 

4 

REF 

1 

REF 

1 

REF 

28 

REF 

6 

REF 

1 

REF 

29 

REF 

1 1 

REF 

1 

REF 

fc 

REF 

30 

REF 

7 

LAST  904 


LAST  904 

LAST  008 


I AST  905 
LAST  9 C 4 

LAST  905 
LAST  904 
LAST  905 
LAST  905 
LAST  817 
LAS  1 90 4 

LAST  90* 
I.AST  905 
LAST  905 

LAST  905 
LAST  «05 
I AST  9*>r 
LAST  905 
LAST  905 
L A • T 

LAST  90:5 
LAST  005 
LAST  °05 
LAST  905 
LAST  9 US- 
LAST  904 


LAST 

905 

LAST 

90S 

LAST 

905 

LAST 

905 

LAST 

904 

LAST 

905 

LAST 

905 

21 ,2670 
2 1,  2671 

21 .2672 

21.2673 

21 .2674 
21,247* 

21.2676 

21.2677 

21.2700 

21.2701 

21.2702 

21.2703 

21.2704 

21.2705 

21.2706 

21 .2 707 

21.2710 

21.2711 

21.2712 

21.2713 

21.2714 

21.2715 

21.2716 
2 1 ,2717 

21.2720 

21.2721 

21.2722 
2 1, 2 72  3 
21,2724 

21 .272  5 

21 . 2726 

21.2727 
21 ,2730 

21 . 273  1 

21 . 2732 

21 .2733 

21 . 2734 

21 .2735 

21.2736 

21.2737 

21 . 2740 

21. 274 1 

21 .2742 

21.2743 

21.2744 

21.2745 

21.2746 

21 .2747 

21 .2750 

21.2751 


3 1700  1 
0 0006  1 
6 2720  0 
1 2703  0 
r0  065  1 

3 1700  1 
0 0006  1 
6 2701  0 
1 2703  0 

4 2005  1 
1 SO  2 4 0 
50  06'  1 
4 16  76  0 
6 2005  0 
50  065  1 
36  072  1 
3 4753  1 
1 3027  0 
50  065  1 
3 1700  1 

0 00 Co  1 
6 2720  0 
3 2005  0 

1 3024  0 
50  065  1 

3 1676  1 
6 2G05  0 

4 COOO  0 
50  065  1 
56  07?  1 
4 4753  0 
1 3027  0 

1 

11 '702  1 
1 2761  1 
l 2735  0 
1 2766  0 
50  065  1 
4 1676  0 
C )06  l 
6 2742  1 
1 2775  1 
50  065  1 
4 1700  0 
0 C006  1 
6 3020  0 
6 0066  1 
50  0 5 1 
6 1676  1 
0 0006  1 


C A 

EXTEND 

BZMF 

TCF 

LASTPOSY  INDEX 
CA 

EXTEND 

BZMF 

TCF 

CS 

TCF 

P 0 > V 9 A X V INDEX 
CS 
AD 

INDEX 

XCH 

CAP 

TCF 

I ASTNEGY  INDEX 
CA 

EXTEND 

BZMF 

CA 

TCF 

NEGVMAXY  INDEX 
CA 
AD 
COM 
INDEX 
XCH 
CS 
TCF 

LVLIKITS  INDEX 
CC  S 
TCF 
TCF 
TCF 
INDEX 
CS 

EXTEND 

BZMF 

TCF 

INDEX 

CS 

EXTEND 

BZMF 

AD 

INDEX 

AD 

EXTEND 


LATVEL 

NEGVMAXY 
PCSVMAXY 
I TEMP5 
LATVEL 


+ 2 

PUS  Vi  AX  Y 
MAXVBITS 
Z EROLS I Y 
ITEMP5 
L ATVMETT 
MAXVBITS 
I TEMPS 
RUPTREG? 
ONE 

ZEROLSTY 

ITEMP5 

LATVEL 

NEGVMAXY 
MAXVBITS 
ZEROLSTY 
I TEMP 5 
L ATVMETF 
MAXVBITS 


I TEMPS 

PUPTPEG3 

ONE 

ZEROLSTY 

ITEMP5 

TRAKLATV 

LATVPOS 

+ 2 

LATVNEG 
ITEMP5 
1.  ATVMETF 

+ 2 

NEGLMLV 

ITEMP5 

LATVEL 

L V M I ML  M 
T TEMP6 
ITFMP5 
L ATVMETF 


+ 3 


+ 3 


GAP:  ASSEMBLE  t-F  VISION  001  OF  AGO  PROGF,  AM  API  1RGPE  BY  EYLES 

L LANDING  ANALOG  DISPLAYS 


0390 

REF 

2 

LAST 

905 

21,2752 

6 3020 

0 

bzmf 

LVMI NLM 

0391 

REF 

31 

LAST 

905 

2 1, 2753 

50  065 

1 

INDEX 

ITEM  : 

OFF 

1 ? 

1 ART 

90  5 

2 1 .2  j 

/,  1700 

1 

AD 

1 ATVFL 

<\  > r 

1 <- 

L.  h\  ,}  1 

0393 

21,2755 

0 ''006 

1 

EXTEND 

0394 

REF 

32 

LAST 

906 

2 1 ,2756 

5 0065 

1 

L DEX 

f TEMP 5 

03Q  S 

REF 

8 

LAST 

905 

2 1 ,2757 

61 '676 

1 

SU 

1 AT VMET  P 

0396 

REF 

5 

LAST 

905 

21,2760 

1 3024 

0 

TCF 

ZEROLSTY 

0397 

REF 

33 

LAST 

906 

21,2761 

50  065 

1 

LATVPOS 

INDFX 

ITEMP5 

0398 

REF 

13 

LAST 

906 

21,2762 

4 1700 

0 

CS 

L ATVEL 

0399 

21,2763 

0 CO 06 

1 

EXTEND 

040n 

REF 

3 

LAST 

906 

21,2764 

6 3020 

0 

BZMF 

LVMI NLM 

040  1 

21  ,2  765 

1 2772 

0 

TCF 

+ 5 

0402 

RFF 

34 

LAST 

906 

21 , 2766 

50  065 

1 

LATVNEG 

INDEX 

ITEMP5 

0403 

REF 

14 

LAST 

906 

21  ,2767 

3 1700 

1 

CA 

LATVEL 

0404 

21 , 2770 

0 0006 

1 

EXTEND 

0405 

REF 

4 

LAST 

906 

21,2771 

6 3020 

0 

BZMF 

LVMI NLM 

0406 

RFF 

7 5 

LAST 

9:06 

21,2772 

50  0 65 

1 

INDEX 

IT EM P 5 

0407 

p EF 

9 

LAST 

906 

21,2773 

4 1676 

o 

C S 

L AT VMET p 

0408 

REF 

6 

LAST 

906 

21,2774 

1 3024 

0 

TCF 

ZEROLSTY 

0409 

REF 

36 

LAST 

906 

2 1 , 2775 

50  065 

1 

NEGLMLV 

INDEX 

I TEMPS 

0410 

REF 

15 

LAST 

006 

21,2776 

3 1700 

1 

CA 

LATVEL 

0411 

21 ,2777 

0 0006 

1 

EXT  END 

0412 

RFF 

5 

LAST 

906 

21,3000 

6 3020 

0 

BZMF: 

L V v 7 ML  v 

0418 

REF 

8 

LAST 

905 

2 1 , 300  1 

3 2005 

0 

CA 

MAXV8 I TS 

0414 

REF 

37 

LAST 

906 

21 ,3002 

50  065 

1 

INDEX 

ITEMP5 

0415 

REF 

10 

LAST 

906 

2 1, 3003 

6 1676 

1 

AD 

LATVMETP 

0416 

21,3004 

0000 

0 

COM 

041  7 

REF 

3° 

LAST 

905 

21 , 3005 

50  065 

1 

I N D E X 

I TEMPS 

04 1 8 

RFF 

16 

LAST 

906 

21 , 3006 

6 1700 

1 

AD 

LATVEL 

041° 

21 ,3007 

0 0006 

1 

EXTEND 

0420 

REF 

6 

LAST 

906 

21,3010 

6 3020 

0 

BZMF 

LVMI NLM 

0421 

21,3011 

0 0006 

1 

EXTEND 

0422 

REF 

3' 

LAST 

906 

21  ,3012 

5 0065 

1 

INDEX 

I TEMPS 

042  3 

REF 

17 

LAST 

906 

21,3013 

61 ' 700 

1 

SU 

I.  ATVEL 

0424 

RFF 

40 

LAST 

906 

21 ,3014 

50  065 

1 

INDEX 

I T EM  Pc 

04  2 c 

REF 

1 l 

LA  RT 

006 

21  , 30  1 5 

6 1676 

1 

AD 

LATVMETP 

0426 

21 , 3016 

4 0000 

0 

COM 

0427 

REF 

7 

LAST 

906 

21,3017 

1 3024 

0 

TCF 

ZEROLSTY 

0428 

REF 

41 

LAST 

906 

21 , 3020 

50  065 

1 

LVM1NLM 

INDtX 

I TEMPS 

0429 

REF 

12 

LAST 

906 

21,3021 

4 1676 

0 

CS 

1 AT VMET R 

0430 

0 EF 

4 2 

LAST 

906 

21,3022 

50  0 65 

1 

INDEX 

I TEMP 5 

043  1 

REF 

18 

LAST 

906 

21 , 3023 

6 1700 

1 

AD 

LATVEL 

0432 

REF 

4 3 

LAST 

906 

21,3024 

50  065 

1 

ZEROLSTY 

INDEX 

ITEMP5 

0433 

REF 

6 

LAST 

905 

21 , 3025 

56  072 

1 

XCH 

RUPTPEG3 

0434 

REF 

171 

LAST 

900 

21 , 3026 

3 47  55 

1 

CAF 

ZERO 

0435 

REF 

44 

LAST 

906 

21  ,302  7 

50  065 

1 

I NOE  X 

ITEMP5 

0436 

REF 

5 

L AST 

905 

21  , 3030 

55 ' 702 

1 

TS 

TRAKLATV 

0437 

REF 

46 

LAST 

906 

2 1 , 3031 

50  065 

1 

INDEX 

ITEMP5 

0438 

REF 

7 

LAST 

906 

21,3032 

3 0072 

1 

CA 

RUPTREG3 

0439 

P EF 

24 

LAST 

872 

21 , 3033 

6 4754 

0 

AD 

NEGO 

" 
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906 


AVOIDS  +0  DINC  HARDWARE  MAI  FUNCTION 


GAP  : 

ASSEMBLE  REVISION  00- 1 OF  A jC  PROGRAM  API  1K0PE  BY  EYLtS 

3; 15  DEC.  2 

, 1970 

FLY 

.132 

PAGE 

L 

LANDING  ANALOG  DISPLAYS 

USER  ' 

S PAGE 

NO. 

10 

E7  S3 

0440  REF  46 

0441  REF  2 

0442  REF  47 

044  3 REF  3 

0444  F.  EF  4 6 

0445  RFF  13 

0446  REF  49 

0447  REF  1 


LAST  906  21 

LAST  536  21 

LAST  907  21 

LAST  906  21 

LAST  «Q7  2! 

LAS'*’  oof  ft 

LAST  907  21 

21 


3034 

50 

065 

1 

3035 

54 

053 

0 

3036 

50 

065 

1 

30  37 

3 

0072 

1 

3040 

50 

065 

1 

’ 3 1 

27 

' 676 

0 

3042 

10 

065 

0 

304  3 

1 

2620 

0 

INDEX  ITEMP5 
TS  CDUTCMD 

i'  Jr  X ITEMP5 
CA  RUPTPEG3 

INDEX  I TE  MPr 
ADS  L ATVMETP 
CCS  ITEMP5 
TCF  VM0NIT0R 


FIRST  MONITOF  FORWARD  THEN  LATERAL  VEL. 


044  3 
046  f 

045  0 

REF 

RFF 

1 

1 5 

LAST 

045  1 

REF 

5 

LAST 

045  2 

REF 

172 

LAST 

0453 

REF 

1 43 

LAST 

0454 

REF 

1 

21,3044  3 5020  0 

2 1, 30  u 5 0 COOo  1 

84  21,3 6&I  05  01^  l 

902  21,3047  0 1714  1 

906  21,3050  3 4755  1 

890  21,305  1 54  001  1 

21,3052  I 2270  I 


CAF  BITS ET 

EXTEND 

WOR  CHAN  14 

TC  LADQSAVE 

ZERODATA  CAF  ZERO 

TS  L 

TCF  ZDATA2 


DRIVE  THE  X — F 0 INTER  DISPLAY. 


GO  TO  AL TROUT  -i-l  OR  TO  ALTOUT  + 1 

ZERO  ALTSAVE  AND  ALTSAVE  +1  - 

NO  NEGATIVE  ALTITUDES  ALLOWED. 


R O''  5 **  *44  # $ * * * 44  4444  4444  4444  44  4 4 444444  4444444444  444444444  444444444  44  *444 


045  6 
0457 

045  g 
0459 

046  0 
0461 
046  2 
0463 
046  4 
046  5 

0466 

0467 

0468 

0469 

0470 

0471 

0472 

0473 

0474 
R 0475 

0476 


REF  29 
REF  4 

REF  1 
REF  30 
REF  38 
REF  270 
REF  42 
-EF  31 


REF  53 
REF  1 
REF  39 
REF  40 
R E E 4 

rEF  3 0 
REF  31 
REF  65 
********* 


LAST  902 
LAST  902 


LAST  901 
LAST  901 
LAST  903 
LAST  ,900 
LAST  907 


21. 3053 

2 1. 3054 
21 , 30: 5 
2 1 , 3C 5 6 
21 , 30  57 

21.3060 

21 . 3061 

21 . 3062 

21 . 3063 


4 0074  0 
7 52  1 

0 ( ( " 4 1 

1 3067  1 

3 744  1 

7 1303  1 
10  000  0 
3 4752  0 
3 4744  1 


DISPFSET  CS  FLAGWPDO 

MASK  H10FL8IT 

EXTFND 

8ZF  ABO'-' TON 

CAh  B I re 

MASK  IM0DES33 

CCS  A 

CAF  B IT  2 

AD  BITS 


LAST  900 


LAST 
' ' 

LAST 

LAST 

LAST 

LAST 


907 

907 

900 
900 
9 07 
90  1 


21, 30 f 6 

2 1 . 3065 

21.3066 

21. 3067 

21.3070 

21. 3071 

21.3072 

21 .3073 

21 . 3074 

21.3075 


4 COOO  0 

0 ooo'-  1 

121 

4 3076  1 
7 1303  1 
• ' 30  5 1 

4 4736  0 
7 0075  1 
54  075  1 

1 5261  0 


A BOR TON 


*********  ***  *****************  *****  **  j; 


COM 

EXTEND 

WAND  CHAN12 

CS  BITS8/7 

MASK  IMQDES33 

TS  i MODES 33 

CS  DIDFLQIT 

MASK  FLAGWPD1 

TS  FLAGWRD1 

TCF  TASKOVER 

* * * * * * * * * * ******** * 


21,3076  0030  0 1 BITSP/7  OCT  0-230  0 


ARE  WE  IN  DESCENT  TRAJECTORY? 


NO. 

YES. 

CHECK  IF  INERTIAL  DATA  JUST  DISPLAYED. 

YES.  DISABLE  FR  ERROR  COUNTER 
NO.  REMOVE  DISPLAY  IN  EPT I A!  DATA 


RESET  INERTIAL  DATA,  INTERLEAVE  FLAGS. 


RESET  DIDFLAG. 


INERTIA!  DATA  AND  INTERLEAVE  FLAGS. 


0477  REF  2 LAST  K36  5020  BITSET  = PPT06 

R 0478  **************  ************************  ********************************** 
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GAP:  ASSEMBLE  ..REVISION  001  OF  A GC  PROGRAM  AP11RQPE  BY  LYLES 

L F I N DC  0:JW  - GUI  DAP  INTERFACE  USER’S  PAGE  NO.  1 EO  S3 


0C01 

PROGRAM  NAME: 

FINDCDUW 

00C2 

MUD  GUM BLR : 

1 68  47  15 

0003 

■ MOO  AUTHOR: 

KUJMPP 

P 000 A OBJECTS  OF  MOO : 1 . 

R 0005  2. 

R 0006 
R 0007 
P OOOP 
R 0009 

R0010  3. 

R001  1 
R 00  1 2 
R 00  1 3 

R 00 1 A FUNCTIONAL  DESCR I PTICN  : 

R0015  F IN DC DUN  PROVIDES  THE  INTERFACES  BETWEEN  THE  VARIOUS  POWERED  FLITE  GUIDANCE  PROGRAMS 

R 001 7 A.-D  THE  DIGITAL  AUTOPILOT.  THE  INPUTS  TO  FINDCDUW  ARE  THE  THRUST  COMMAND  VECTOR 

R 00 1 9 AND  f H F WINDOW  COMMAND  VECTOR , AND  THE  OUTPUTS  ARE  THE  GIMBAL  ANGLE 

R 002  0 T:  C F ? F‘TS,  THE  COMMANDED  ATTITUDE  ANGLE  ;ATCS,  AND  THE  COMMANDED 

RO021  ATTITUDE  I AG  ANGLES  (WHICH  ACCOUNT  FOR  THE  ANGLES  BY  WHICH  THE  BODY  WILL 

R 0022  LAG  BEHIND  A RAMP  COMMAND  IN  ATTITUDE  ANGLE  DUE  TO  THE  FINITE  ANGULAR 

R 002  3 ACCELERATIONS  AVAILABLE). 

R 002  4 FINDCDUW  ALINES  T HE  ESTI  "AT  ED  THRUST  VECV.iR  FhOM  THE  THRUST  DIRECTION 

R 002  5 FILTER  WITH  THE  THRU  S':'  COMMAND  V E C T L - , AND,  WHEN  XOVTNHIB  SET, 

P 002  6 ALINES  THE  + Z HALF  OF  THE  LM  ZX  PLANE  WITH  THE  WINDOW  Cl  MMAND  VECTOR. 


TO  SUPPLY  COMMANDED  GIMBAL  ANGLES  FOR  NOUN  22. 
TO  MAINTAIN  CORRECT  AND  CURRENT  THRUST 
DIRECTION  DATA  IN  ALL  MODES.  THIS  IS  DONE  BY 
FETCHING  FOG  THE  TH'UST  DIRECTION  FILTER  THE 
CD  ID'  S IN  PNG  CS-AUTO , THE  CPU'S  IN  ALL  OTHER 
MODES. 

TO  SUBSTITUTE  A STOPRATE  FOR  THE  NORMAL 
AUTOPILOT  COMMANDS  WHENEVER 
1)  NOT  IN  PNGCS-AUTo,  OR 
2 I FMGIf  E IS  OFF. 


GAP:  ASSEMBLE  REVISION  001  OF  AGC  PROGRAM  AP11R0PF  BY  EYLES 


3: 15  DEC 
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909 


P 002  7 

R 002  8 
R 002  c 

R0030 
R 003  1 
R0032 

R 003  3 

R 0034 

R 003  5 
R 0036 

R 0037 
P 003  8 

R 0039 
R0G40 
R0042 
R 00  A 3 
P OOA^ 
R0045 

R004c> 
R 0097 
ROOAp. 
ft  < 

R 005  0 
P 0052 
R 0053 
R.  0054 
R0055 
R 0056 
R 005  7 
R 005  P 
R 005  9 
R0060 


FINDCDUW  - GUI  DAP  1 NTL-P  F AC  E 
SPECIFICATIONS : 

I Ml  I AL  I Z AT  I ON 


. 2,1970  FLY 

USER  > S PAGE  NO.  2 


CAL  L : 


RETURNS: 


ALARMS 


INPUTS : 


OUTPUT:, ; 


DEBRIS : 


A S INGLr  INTERPRETIVE  CALL  TO  INITCDUW  IS  REQUIRED 
BfFCPE  EACH  GUIDED  T AN  EU  V F P USING  FINOCDUW. 

INTERPRETIVE  CALI  TO  F I N DC  DLL- 1 WITH  THE  THWJST  C C MM  AN  D 
VECT  AC.  - I ! CALI  FI  MDC  )UW  -2  WITH 

THE  THRUST  COMMAND  VECTOR  IN  UNFC/2  AND  NOT  IN  MPAC. 

NORMAL  INTERPRETIVE  IN  ALL  CASES 

1.  MOP  MALTY  ALL  AUTOPILOT  CMOS  If  ISSUED. 

2.  IF  NOT  PNGCS  AUTO,  DO  STOPRATE  AMD  RETURN 
WITHOUT  ISSUING  AUTOPILOT  CMOS. 

3.  IF  ENGINE  OFF,  DO  STOP  ATE  AND  RETURN  WITHOUT 
1 SSUINO  AIJT  IP  I LOT  CMOS  . 

00401  TF  INPUTS  DETERMINE  AN  ATTITUDE  IN  GIMBAL  LOCK. 

F I N DC  DUN  DRIVES  CDUXI)  AND  COUYD  TO  THE  RQD  VALUES, 
BUT  DRIVES  CDUZD  ONLY  TC  THE  GIMBAL  LOCK  CONE. 

00402  IF  UNFC/2  Ok  UNWC/2  PRODUCE  OVERFLOW  WHEN 

UNITIZED  USING  NORMUN IT . FINDCDUW  ISSUES 
STOPRATE  AS  ONLY  INPUT  TO  AUTOPILOT. 

UNFC/2  THRUST  COMMAND  VECTOR,  NEED  NOT  BE  SEMI-UNIT. 
UNWC/2  WINDOW  COMMAND  VECTOR,  NEED  NOT  BE  SEMI-UNIT. 

X ■ V I NH  ! B FLAG  DEf"  TING  X AXIS  LVEH  IDE  INHIBITED. 

CSMDCCKD  FLAG  DENOTING  C^M  DOCKED. 

STEEP  SW  FLAG  DENOTING  INSUFP  THRUST  FOP  THRUST  DIF  FLTR . 

DELCDIJX,  Y,  Z 
1MEGAPD,+I , +2 
on  PF  0D  , +1  , +2 
CP HI ,+l , +2  FOR  NOUN22 

FINDCDUW  DESTROYS  SINCDUX,Y,Z  AND  COSCDUX,Y,Z  BY 
WRITING  INTO  THESE  LOCATIONS  THE  SINES  AND  COSINES 
OF  THE  CDUD'S  I.  PNGCS-AUT  , !F  THE  CDU'S  OTHERWISE. 


EO  S3 


gap:  ASSEMBLE  FCVISIjN  001  CF  AGC  .PROGRAM  AP.l  1K0PE  BY  EYLES 


L 

FINDCDUW 

- GUI  DAP 

INTERFACE 

P 006  1 

INITIALIZATION 

FOP 

FINDCDUW 

0062 

■>  fs  . 7. 1 0 4 

BANK 

3 0 

W L | U I T -T 

0063 

REF 

1 

30,2000 

SET! OC 

FCD'iw 

006 

30,3104 

BANK 

006? 

REF 

2 

LAST 

136 

E6 , 1646 

ebank= 

ECDUW 

0066 

REF 

1 

CUUNT* 

$ $ / F C DU  W 

0067 

30, 3104 

77775 

1 

INITCOUW  VLOAD 

0068 

REF 

12 

LAST 

896 

371,3105 

06520 

0 

UNITX 

0069 

REF 

5 

LAST- 

136 

30,3 106 

032  70 

1 

STORE 

UNFV/2 

0070 

RFF 

9 

LAST 

852 

30,3107 

03262 

1 

STORE 

UNWC/2 

0071 

30,311 0 

7 7616 

0 

RVQ 

f 0072 

FINDCDUW 

PR  El  I BINARIES 

0073 

30,3111 

77  775 

1 

VLOAD 

0074 

REF 

19 

LAST 

85  2 

30,3112 

032  54 

1 

UNFC/2 

0075 

30,3113 

40200 

1 

FINDCDUW  BOV 

SETPD 

0076 

REF 

5 

LAST 

860 

30,3114 

61113 

0 

FINDCDUW 

007-' 

30,3115 

00023 

0 

22 

007  8 

30 , 3116 

77420 

1 

STQ 

EXIT 

0076 

REF 

2 

LAST 

136 

30,3117 

03247 

0 

QCDUWUSP 

R0080 

MORE 

HAUS  KEEPI 

NG 

0031 

REF 

1 

30, 3120 

3 3761 

1 

CA 

ECDUWL 

0082 

REF 

47 

LAST 

903 

3 0,3121 

56  003 

1 

XCH 

EBANK 

0083 

REF 

2 

LAST 

136 

30,3122 

55' 646 

0 

TS 

ECDUWUSR 

00  84 

REF 

33 

LAST 

86  3 

30 , 3123 

3 Q 1 1 1 

0 

C A 

DAPROni S 

Unr  O W L. 

008? 

REF 

6 

LAST 

7 53 

30, 3124 

7 47  3 7 

1 

MASK 

CSMDOCKD 

0086 

REF 

271 

LAST 

907 

30,3128 

10  f 00 

0 

CCS 

A 

0087 

PEF 

102 

LAST 

905 

30,3126 

3 47  53 

1 

CA 

ONE 

0088 

REF 

2 

LAST 

136 

30, 3127 

55 ' 650 

1 

TS 

NDXCDUW 

0089 

REF 

1 

30,3130 

3 4743 

0 

CA 

XQVINHIB 

0090 

REF 

2 

LAST 

136 

30, 3131 

55 ' 652 

0 

TS 

FLPAUTNf 

0091 

REF 

34 

LAST 

910 

30,3132 

7 0111 

1 

MASK 

DAPBOOLS 

0092 

REF 

2 

LAST 

136 

30,3133 

55 ' 6 5 1 

0 

TS 

FLAGOODW 

3:15  DEC.  2,1970 
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FINDCDUW  -2:  ENTRY  WHEN  UNFC/2  ORE-STORD 
INPUT  VECTORS  NEED  NOT  BE  SEKI-fllT 
FINDCDUW:  ENTRY  WHEN  UNFC/2  IN  MPAC 
INTERPRETER  NOW  INITIALIZED 
LOCS  0 THRU  21  FOR  DIRECTION  COSINE  MAT 


SAVE  RETURN  ADDRESS 


SET  EBANK 

SAVE  USER'S  EBANK 

CSMDOCKD  MIST  NOT  BF  8IT15 
INDEX  IF  CSM  DOCKED 

XQVINHIB  MUST  NOT  BF  BIT15 

SET  TO  POS-NON-ZERO  FLAG  PNGCS  AUTO  NOT 


FLAGOODW  = ANY  PNZ  NUMBER  IF  XOV  INHIBTD 


GAP:  ASSEMBLE  ' EV!SHt<  001  0§  AGC  P TOG  AM  API  tROfcp  BY  EYLE3 


POO°? 

0094 

0 Cc>* 
0094 

0097 

0098 

009  9 

one 

01n  1 
0102 

0103 

0104 
0104 

on- 

0107 

0100 

010  9 
0110 

0111 

0112 

0113 

0114 

01  lr 
0116 
0117 


FIODCUUV:  - GUI  DAP  I M E FACE 
FETCH  BASIC  DATA 


30,3134  0 0004  0 


INHINT 


REF  19  I AST  - a 39,3135  3 00  3?  0 CA 

n FF  2 LAST  372  3n,3136  54  772  1 

REF  6 LAST  870  30,3137  3 0033  1 CA 

REF  2 LAST  872  30,3140  54  766  1 TS 

REF  4 LAST  39-  30,3141  3 0034  0 CA 

RFF  ? LAST  4 2 3 , 3142  34  770  0 TS 

* FF  32  LAST  3«9  30,3143  3 •'■742  1 CA 

30,3144  0 0006  1 EXTEND 

REF  8 LAST  900  30,3145  02  030  0 RAND 

REF  272  LAST  910  30,3146  10  000  0 CCS 

»f#  1 30,3147  1 3164  0 TCF 

RFF  57  LAS”'  3 0,3150  3 4736  1 CA 

30,3151  0 0006  1 EXTEND 

FEF  7 LAST  821  30,3152  02  031  1 R AND 

REF  273  LAST  911  30,3153  1C  000  0 CCS 

KtF  2 LAST  91  1 30, 2 154  1 31fc4  0 TCF 

RFF  3 LAST  =>10  30,3155  55*652  0 TS 

REF  13  LAST  520  30,3156  3 1635  0 CA 

REF  3 LAST  911  30,3157  54  77 2 1 TS 

RFF  3 LAST  52  30,3160  3 1636  0 CA 

CEF  3 LAST  911  30,3161  >4  769  1 TS 

RFF  3 LAST  613-  30,3162  3 16  37  1 CA 

REF  3 I.AST  911  30,316  3 54  770  0 TS 


C DiJ  X 

C DUS POT  X 
CDUY 

C DUS  POT  Y 
CDUZ 

CDJSPOTZ 

BIT  10’ 

CHAN 30 
A 

PAUTNO 

81T14 

CHAN31 

A 

PAUTNO 

FL PAUTNO 

CDUXD 

C DU  SPOT  X 

COUYD 

CDUSPOTY 

CDUZD 

CDUSPOTZ 
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USE- • S PAGE  NO. 

4 E6  S3 

RELINT  AT  PAUTNO  (TC 

INTPRET ) 

,.z 

FETCH  CDUX  , CDUY, CDUZ 
REPLACE  BELOW  IF 

IN  ALL  CASES,  BUT 

PNGCS  AUTO 

..e 

PNGCS  CONTROL  BIT 

COT  PNGCS  (BITS  INVERTED) 

AUTO  MODE  BIT 

NOT  AUTO  ( c IT  $ INVERTED) 

RESET  FLAG  PNGCS  AUTO  NOT 

PNGCS  AUTO:  FETCH  CDUX D, C DUYD , CDUZD 


GAP:  ASSEMBLE  REVISION  GC1  OF  AGP.  PROGRAM  AP11RCPE  BY  EYLES 


L FINOCDUW  - GU I DAP  INTERFACE 


P01 18 

FETCH  INPUTS 

0119 

REF 

165 

L AST 

8 96, 

30,3164 

0 603  7 

0 PAUTNO 

TC 

0120 

30,3165 

7763'- 

0 

RTB 

0121 

REF 

9 

LAST 

812 

30,3166 

21726 

1 

0122 

R EF 

1 

30,316  7 

24001 

0 

S TO  V L 

0123 

REF 

10 

LAST 

910 

30 ,3170 

03262 

1 

0124 

3C  , 317  1 

47034 

0 

RTB 

0125 

REE 

IQ 

LAST 

912 

30,3172 

21726 

1 

0126 

REF 

4: 

LAST 

886 

30 ,3173 

47615 

0 

0127 

REF 

I 

30,3174 

24015 

0 

STOVL 

0128 

RFF 

8 

LAST 

882 

30,3175 

003  2 5 

0 

012° 

30,3176 

5 3404 

1 

BOVS 

0130 

REF 

1 

30,3177 

617  50 

1 

0131 

30,3200 

450  00 

0 

BOV 

0132 

REF 

1 

30,3201 

; ! 2 1 5 

0 

013  3 

REF 

6 

LAST 

8 86 

3C, 3202 

47671 

1 

R 01 34 

THRUST  1 

DI  RECT 

ION  FILTER 

0135 

3C, 32C  3 

77776 

EXIT 

0136 

REF 

1 

30, 3204 

3 1671 

0 

CA 

0137 

REF 

35  3 

LAST 

889 

30, 3205 

22  157 

1 

LXCH 

0133 

REF 

1 

30,3206 

0 3503 

1 

TC 

0139 

REF 

2 

LAST 

912 

30, 3207 

55' 671 

1 

TS 

0140 

REF 

1 

30,3210 

3 1673 

1 

CA 

0141 

f E F 

3 54 

LAST 

912 

30,32  1 1 

22  161 

1 

1 XCH 

0142 

P F F 

2 

L AS"r 

9 1 2 

3 0 , ^ 2 1 2 

0 350  3 

TC 

0143 

REF 

2 

LAST 

912 

30,3213 

5 5 ' 673 

0 

TS 

0144 

REF 

1 fee 

LAST 

912 

30 , 3214 

0 6037 

0 

TC 

3 : 15  DEC . 2 ,1970  FLY 
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I NT P RET 


ENTERING  THRUST  CMD  STILL  IN  MPAC 


N C KM UNIT 
UNX/2 
UNWC/2 
RTB 

Ni RMUNI T 
QUICTPIG 
UNZ/2 
DEL  V 
UNIT 

NOATTCNT 

CALL 

AFTF FLT F 
* SMN8* 


SEMI-UNIT  THRUST  CMD  AS  INITIAL  UNX/2 


ALWAYS  iQD  TC  OBTAIN  T •<  ! G S OF  CDUD'S 
SEMI-UNIT  WINDOW  CMD  AS  INITIAL  UNZ/2 


AT  LEAST  ONE  ENTERING  CMD  VCT  ZERO 

IF  UNIT  DEL V OVERFLOWS,  SKIP  FILTER 
YIELDS  UNIT(DELV)  IN  VEH  COORDS  FOR  FLTR 


UNFVY/2 
MPAC  +3 

FI TRSUB 
UNFVY/2 


FOR  RESTARTS,  UNFV/2  ALWAYS  INTACT,  MPAC 
RENEWED  AFTER  RETURN  FROM  CALLER, 
TWO  FILTER  UPDATES  MAY  BE  DONE. 
UNFV/2  NEED  NOT  BE  EXACTLY  SEMI-UNIT. 


UMFVZ/2 
MPAC  +c 

FLTf SUB 
UNFVZ/2 


I NT P RET 


COMPLETES  FILTER 


GAP;  ASSEMBLE  REVISION  O'  1 Og  AGC  PROGRAM  APliK^PE  BY  EYL.ES 


P 0145 

G 14  6 
0147 

014  8 
014° 

0150 

0151 

015? 

0153 

015 
0155 


01  - 
015  7 
0158 

R 01  59 

0160 
01  6 1 
01  ? 

0163 

0164 

0165 

0166 
0147 
016- 
0160 

0170 

0171 

0172 

0173 

0174 

0175 

0176 

0177 

0178 

0174 
0 1 3 0 
013  1 


FIN 00 DIM  - GUI i f ‘ T 0 C FACE 

FIND  A SUITABLE  WINDOW  POINTING  VECTOR 


"FF 

3 

LAST 

L 0 

REF 

1 

REF 

2 

LAST 

912 

REF 

l 

REF 

1 

q p p 

3 

I A ST 

9 13 

REF 

2 

LAST 

913 

REF 

11 

L A s r 

8 8* 

REF 

4 

LAST 

913 

COMPUTE 

THE  REQIJ  I R 1 

REF 

f, 

LAST 

0 1 3 

OFF 

2 

LAST 

412 

REF 

3 

LAST 

913 

REF 

6 

1 AST 

q 1 -i 

v-  r\  J 1 

' I -J 

FEE 

3 

LAST 

912 

REF 

3 

LAST 

9 12 

REF 

4 

LAST 

9 13 

RFF 

5 

LAST 

913 

REF 

7 

LAST 

913 

REF 

1 

REF 

6 

LAST 

91  3 

REF 

3 

I AST 

913 

30.3215  46135 

30.3216  03252 

30.3217  6 1223 

30.3220  45175 

30.3221  00015 

30.3222  61523 

30.3223  77775 

30.3224  ‘'2162 

30.3225  3' 015 

30.3226  61523 

30.3227  57575 
30,3  2 30  02 14-6 
3 0,32  31  OC 01  ^ 

ED  DIRECTION  COSIN 

30.3232  47375 

30.3233  00015 

30.3234  OC 001 

30,323  3 <'14  56 

30.3236  76435 

30.3237  00001 

30.3240  00015 

30.3241  63361 

30.3242  03274 

30.3243  51361 

30.3244  03272 

30.3245  53372 

30. 3246  00001 

30,  124  7 77656 

30.3250  ./<  TOl 

30.3251  76435 

30.3252  00015 

30.3253  00007 

30.3254  47276 

30.3255  0 0001 

30.3256  77772 

30.3257  00015 


1 AF  TP-FLTP  SLOAD 

1 

0 

0 VLOAD 
0 

1 

1 FETCHZM  7L  AO 
0 

1 STC  ALL 

1 

1 VLOAD 

0 

0 STORE 

: MATRIX 

0 DC.  MCI.  VLOAD 

0 

0 

0 UN  I T 

1 VXV 
0 

0 STORE 

0 VXSC 

0 

1 VXSC 

0 

1 VSL 1 

0 

1 UNIT 

0 STORE 

1 VXV 
0 

0 STORE 

1 VGuMP 
0 

0 VS  t I 

0 STORE 
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BHIZ  IF  XOV  NIT  INHIBITED,  GO  FETCH  ZNB 

FLAGOODW 

FETCHZNB 

CALL 

UNZ/2 

UNWmEST 


ZNBPIP 

UNZ/2 

UNWCTEST 

VCOMP  Z AND  -X  CAN'T  BOTH  PARALLEL  UNFC/2 

XNBPI P 

UNZ/2 


VXV 

UNZ/2 

UNX/2 

PUSH 

UNY/2  FIRST  ITERATION 

VSL  1 
UNX/2 

UNZ/2  -UNZ/2  FIRST  I TEE  ATI ON 

PDVL  EXCHANGE  -UNFVZ/2  UNZ/2  Fnf  UNY/2 

UNFVZ/2  MUST  BE  SMALL 


R V 5 U 

UNFVY/2 

VAD 

LIMY  / ? 

YIELDS  -UNFVY/2  UNY/2-UNFVZ/2  UNZ/2 

MUST  BE  SMALL 

UNX/2 

\f  r L 1 

TOTALLY  ELIMINATES  THRUST  POINTING  ERROR 
UNX/2 

UNZ/2 

UNY/2 

VXV 

UNX/2 

-UNZ/2  WAS  STORED  HERE  REMEMBER 

UNY/2 

UNZ/2 


UNZ/2 


GAP:  ASSEMBLE  l,E  V I S I T r Of  1 Of  A GC  P CGkAM  API  |RQPE  BY  EYLES 

L F I M DC  7Uw  - GUI  DAP  INTERFACE 

P 0 1 8 2 COMPUTE  THE  RE  QUIT  ED  C,  I 'BAL  ANGLES 

0183  30 » 3260  77624  1 CALL 

01  BY.  EF  1 30,3261  61  533  0 NB2CDUSP 

0185  30,3262  77776  i EXIT 


R 0 1 36  LIMIT  THE  MIDDLE  GIMBAL  ANGLE  S COMPUTE  THE  UNLIMITED  GIMBAL  ANGLE 


C 187 
0188 

0189 

0190 

0191 

REF 

K E F 
REF 
REF 

355 

144 

1 

1 

LAST 

LAST 

912 

907 

30.3263 
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R 037  8 SUBT  TO  TEST  THE  ANGLE  BETWEEN  THE  PROPOSED  WINDOW  AND  THRUST  CMD  VCTS 


0375 

0360  REF  / LAST  9] 

038  1 

0382  REE  1 

0383  REF  ) 

0384 

0385  REE  6 LAST  91 

0386 


30,3523  63441  0 

3 30,3524  00001  0 

30,352*  50026  0 

30. 3526  21767  1 

30.3527  61232  0 

30.3530  43531  1 

30.3531  03252  I 

30.3532  OCOOO  1 


UNWCTFST  DOT  DSQ 

UNX/2 

DSU  BMN 

DOTSWFMX 

DCMCI. 

SSP  RVQ 

FLAGOQDW 

0 


RVQ  FOR  ALT  CHOICE  IF  DOT  MAGN  TOO  LARGE 
ZFPOING  WINDOW  GOOD  FLAG 


9 
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L FI  DCO’J  - GUT  DA!  INTERFACE  USER'S  PAGE  NO . 13  E6  S3 

p 038  7 NB2CDUSP  RETURNS  THE  2'S  COMPLEMENT , PI,  SP  CDU  ANGLES  X,Y,Z  IN  MPAC, +1, +2  GIVEN  THE  MATRIX  WHOSE  ROW  VECTORS 

R 03  3 9 A > F T’HE  SEMI-UNIT  NAV  BASE  VECTORS  X,Y,Z  EXPf  ESSED  IN  STABLE  MEMBER  COORDINATES,  LOCATED  AT  0 IN  THE  PUSH  LIST. 

R 0391  NB2C0USP  USES  A!  CT E GS I HIGH  HAS  A MAX  IMUM  El- POP  C F +~4  BITS. 


0392 

0393 

30.3533 

30.3534 

63545 

0C003 

0 

1 

0394 

30,3535 

51021 

0 

0395 

REF 

5 ; 

LAST 

: 

3C.3536 

06512 

1 

0396 

30,3537 

61542 

0 

0397 

30,3540 

77745 

1 

03911 

q F F 

1 6 ' 

LAST 

809 

30 , 354  1 

06  522 

1 

039  9 

30, 3542 

77566 

1 

MB2CDUSP  Dl.OAD  DSQ 
2 

BDSU  B PL 

DP1/4TH 
+ 3 

DLOAD 

2 ER  (IV  ECS 
SORT  EXIT 


IN  CASE  "N  WAS  SLIGHTLY  > 1/2 
YIELDS  COS( CDU 2 ) IN  UNITS  OF  2 


040C 

30,3543 

0 0006 

1 

EXTEND 

0401 

REF 

3 59 

LAST 

0 1 4 

3 0 , 3544 

3 Cl  55 

0 

OCA 

MPAC 

0402 

30 , 354 5 

7 0 Owl 

1 

DDOUBL 

0403 

KEF 

3 

last- 

98 

30 , 3^46 

54  14  5 

0 

TS 

T EM5 

0404 

30, 3547 

1 35  52 

1 

TCP 

+ 3 

0405 

REF 

22 

last 

900 

30,3550 

3 473  3 

1 

CA 

POSMAX 

0406 

REF 

4 

LAST 

920 

30,3551 

54  145 

0 

TS 

T EM5 

OVERFLOW.  FETCH  POSMAX,  MPAC  ALWAYS  POS 
COS(CDUZ)  IN  T£M5,  UNITS  1 


040  7 

REF 

29 

LAST 

686 

30,3552 

50  120 

1 

040  8 

30, 3553 

3 C 002 

0 

0409 

REF 

360 

LAST 

920 

30,3554 

22  154 

1 

0410 

REF 

1 

30,3555 

0 3622 

1 

0411 

REF 

36  1 

LAST 

920 

30  ,3556 

54  156 

1 

INDEX  F I XL OC 

CA  2 

LXCH  MPAC 

TC  ARCTRGSP 

TS  MPAC  +2  CDUZ 


0412 

REF 

174 

LAST 

914 

0413 

REF 

1 

0414 

REF 

20 

LAST 

859 

0415 

REF 

2 

LAST 

920 

0416 

REF 

9 

LAST 

33  6. 

O'  17 

REF 

7 

LAST 

920 

0418 

REF 

362 

LAST 

9 20 

04 1 ° * 

REF 

37 

LAST 

900 

0420 

REF 

3 

LAST 

920 

0421 

REF 

1 

0^-2  2 

REF 

4 

LAST 

920 

0423 

REF 

10 

LAST 

9 20 

042  R 

REF 

3 

LAST 

92  0 

0425 

REF 

363 

LAST 

920 

0426 

REF 

168 

1 AST 

918 

042  7 
0428 


30,3557 

30,3560 

3 47  5 5 
0 3606 

1 

1 

30,3561 

3 4751 

0 

30,3562 

0 3600 

1 

30,3563 

4 0141 

0 3622 

1 

30,3564 

1 

30 , 3565 

54  155 

1 

30,3566 

3 4750 

1 

30,3567 

0 3600 

1 

30,3570 

3 3577 

1 

30,3571 

0 3600 

1 

30,3572 

4 0141 

1 

30,3573 

0 3622 

1 

30,3574 

54  154 

0 

30,3575 

0 6037 

0 

30,3576 

77616 

0 

30, 3577 

00016 

0 160CT 

CA  ZERO 

TC  DVB YC  OS  M 

CA  FOUR 

TC  DVBYCOSM 

CS  TEM1 

TC  ARCT-GSP 

TS  MPAC  +1  CDU Y 

CA  BIT4 

TC  DVBYCOSM 

CA  160CT 

TC  DVBYCOSM 

CS  TEM 1 

TC  ARCTRGSP 

TS  MPAC  C DUX 

TC  INTPRET 

RVQ 

OCT  16 


GAP:  A SS  fc-'LL  E -VISION  0;  1 it  AGC  Pi-  OG  AM  API 1RGPE  BY  EYLES  3 

L FINDCDUW  - G'JIDAP  INTERFACE 


P 0429  THE  ELEMENTS  0 F THE  NAV  BASE  MATRIX  WH 
R 043 0 ALREADY  CONTAIN  COS(MGA)/?  AS  A FACTOR 
R 043 1 ORDINARILY  NEVER  EXCEED  1/2  IN  MAGNITU 

R 0 A 3 2 THEN  CPS  ( MG  A ) tc  HEAR  y\  q,  ANq  THERE 

R 0*  3 3 ELEMENTS  OF  THE  MATRIX  iHICH  WOUt  D PRO 

R0434  ® 8FFP''->E  DTVTDIfC  HE  MAKE  c UP  E CF-S(MGA) 

R 043 5 THAN  TEE  MAGNITUDE  OF  TFF  HIGH  ORDER  P 


ICH  WE  MUST  DIVIDE  BY  COS(MGA) 

. THEFEFORE  THE  QUOTIENT  SHOULD 
DE.  BUT  IF  THE  MCA  IS  NEAR  PI/2 
MAY  BE  SOME  CHAFF  IN  THE  ETHER 
DUCE  CHAOS  UNDER  DIVISION. 

IS  AT  LEAST  ONE  BIT  LARGER 
APT  OF  THE  OPERAND. 


R On  36  IF  CUE  OR  MURE  DIVIDE  CANNOT  BE  PE  FOR  MED*  HIS  MEANS  THAT  THE 

R 0 4 3 ' REQUIRED  MGA  VERY  ''EARLY  +-D«/2  AND  THEREFORE  THE  OTHER  GIM0AL 

R 043  0 ANGLES  APE  INDETERMINATE.  THE  INNER  AND  OUTER  GIMBAI.  ANGLES  RETURNED 

R0A3Q  IN  THIS  CA«E  WTIL  BE  PANOfM  MULTIPLES  OF  PI/2. 


0440  REF  30  LAST  920  30,3600  6 0120  1 

0441  REF  1 30,3601  54  1L6  0 


DVBYCOSM  AD 
TS 


FIXLOC 

ADDRWD 


0442  REF  2 LAST 

0443 

0444 

0445 

0446 

0447  »EF  5 LAST 

04  4 8 

0*  49  REF  1 


921  30,3602  50  116  1 

30. 3603  3 0000  1 

30.3604  0 C006  1 

30.3605  6 3607  0 

30.3606  4 0000  0 

920  30,3607  6 0145  1 

30.3610  0 0006  1 

30.3611  6 3617  1 


INDEX  ADDRWD 
CA  0 

EXTEND 
BZMF  +2 
COM 

AD  T EM 5 

EXTEND 

BZMF  TSLf.TCO 


0450 

0451 

0452 

0453 

REF 

opp 

3 

(y 

LAST 

1 AST 

. 921 

Q y>  ] 

045  5 

REF- 

153 

LAST 

919 

0456 

FEE 

1 1 

LAST 

920 

C45  7 

REF 

220 

LAST 

899 

30 .3612 

30.3613 

30.3614 

30.3615 

30.3616 

30.3617 

30.3620 

30.362 1 


0 0006  1 
5 0116  1 
3 0001  0 
0 CC  06  1 
10  145  0 
54  001  1 
22  141  0 
0 0(  02  0 


TSl  STCQ 


EXTEND 

INDEX  ADDRWD 
DC  A 0 

EXTEND 
DV  TEM5 

TS  L 

LXCH  TEM1 

TC  Q 
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ADR  ES  OF  OPERAND 

FETCH  N EG  A8S  OF  OPERAND,  AD  TEM5,  AND 
SKIP  DIVIDE  IF  RFSULT  NEG  OR  ZERO 


CCA)  ZERO  OR  NEG,  C(TEM5)  ZERO  OF  POS 

DIFFERENCE  ALWAYS  SMALL  IF  BRANCH 

TEM5  EXCEFDS  A 8S  HIGH  ORDER  PART  OF 
OPERANO  BY  AT  LEAST  ONE  BIT. 
THEREFORE  !T  EXCEEDS  THE  DP  OPERAND 
AND  DIVISION  WILL  ALWAYS  SUCCEED. 


GAP:  AS  EMBLE  REVISION  001  OF  AGC  PROGRAM  APUkDPE  BY  EYLE: 


3:15  DEC 


2,1970  FLY 


132  PAGE  922 


04  7 A 
0475 


FTMDCDUW  - PUT  DAP  I f ; 1 fc r F AC E 


USER'S  PAGE  NC.  15 


E6  S3 


P 045  8 

ARC  TRGSP 

RETURNS  THE 

■2'S  COMPLEMENT, 

PI  , 

SP  ANGLE  IN  THE  A REGISTER  GIVEN  ITS  SINE  IN  A AND  ITS  COSINE  IN 

R 0460 

UNITS  OF 

2. 

THE  RESULT  IS  AN 

UNAMBIGUOU 

S ANGLE 

ANYWHERE  IN  THE  CIRCLE,  WITH  A MAXIMUM  ERROR  OF  + -4  BITS. 

R0462 

THE 

E 1 F 

IS 

PROOUCED  BY  THE 

SUb POUT  IN  E 

S PARC  SIP 

WHICH  IS  USED  ONLY  IN  THE  REGION  +-45  DEGREES. 

0466 

30,3622 

0 C 006 

1 

ARCTRGSP 

EXTEND 

046  6 

REF 

1 

30 , 3623 

1 364  5 

0 

BZF  SINZEiO  TO  AVOID  DIVIDING  BY  ZERO 

0466 

30,3624 

0 0006 

1 

EXTEND 

0467 

REF 

10 

LAST 

42  0 

30,3625 

22  144 

0 

QXCH  TEM4 

046  8 

R E F 

20 

LAST 

919 

30, 3626 

54  142 

1 

TS  TEM2 

0466 

REF 

134 

LAST 

921 

30,3627 

3 COOl 

0 

CA  L 

0470 

r-  FF 

5 

LAST 

9 1 9 

30,  363  0 

54  143 

0 

TS  TEM3 

0471 

REF 

175 

LAST 

920 

30,3631 

3 4755 

1 

CA  ZERO 

0472 

30,3632 

0 0006 

1 

EXTEND 

0473 

REF 

21 

LAST 

922 

30,3633 

10  142 

1 

OV  TEM2 

IN 


REF 


30.3634 

30.3635 


0 CO 06  1 

1 3654  1 


EXTEND 

BZF 


U SEC  US 


0476 

REF 

6 

LAST 

922 

30,3636 

10  143 

0 

CCS 

TEM3 

0477 

REF 

176 

LAST 

922 

30,3637 

3 4755 

1 

CA 

ZERO 

0476 

30 , 3640 

] 3 6 6 4 

0 

TCF 

+ 4 

0479 

REF 

22 

LAST 

922 

30, 3641 

4 6142 

1 

cs 

TEM2 

0480 

REF 

23 

LAST 

92? 

30,3642 

:>  4 14  2 

1 

TS 

T EM 2 

04.31 

REF 

(x 

LA  r'r 

826 

30, 3643 

3 4 7 35 

1 

C A 

NEGMAX 

0482 

REF 

7 

LAST 

922 

30,3644 

54  143 

0 

TS 

TEM3 

0483 

REF 

24 

LAST 

922 

30,3645 

3 0142 

0 

CA 

TEMI2 

0494 

REE 

2 

LAST 

807 

30 , 3646 

0 3672 

1 

TC 

SRARCS I N -1 

0485 

REF 

2 

LAST 

0 ip 

30,364  7 

0 37  6 3 

1 

TC 

ONE ST 02S 

0486 

30,3650 

0 C 006 

1 

EXTEND 

04  3 7 

p ef 

8 

LAST 

922 

30,3 6 5 1 

20  1 4? 

0 

MSU 

T E M ? 

048  P 

REF 

3 

LAST 

922 

30,3652 

0 3743 

1 

1 T02  8T CQ 

TC 

0NEST02S 

048° 

REF 

1 1 

LAST 

922 

30,3653 

0 0144 

0 

TC 

TEM4 

0490 

R EF 

9 

LAST 

9 22 

30,3654 

4 0143 

0 

USECOS 

CS 

TEM3 

049  1 

PEF 

3 

LAST 

922 

30,3655 

0 3672 

1 

TC 

S PARCS  IN  -I 

0492 

REF 

9 

LAST 

901 

30,3656 

6 473  6 

1 

AD 

HALF 

0493 

REF 

10 

LAST 

922 

30,3657 

5^  143 

0 

TS 

TEM3 

0494 

REF 

25 

LAST 

922 

30,3660 

10  142 

1 

CCS 

TEM2 

0495 

REF 

1 1 

LAST 

922 

30 . 366  ] 

3 0143 

1 

C A 

T FM  3 

0496 

REF 

1 

3ft  ,366  2 

1 3652 

J- 

1 

TCF 

1TU2STCP 

0497 

KEF 

12 

LAST 

922 

30, 3663 

4 0143 

0 

CS 

TEM3 

049  8 

REF 

2 

l AST 

922 

30, 3664 

1 3652 

1 

TCF 

1 T02STCQ 

0499 

REF 

155 

LAST 

922 

30,3665 

10  001 

1 

SI NZERO 

CCS 

L 

0500 

REF 

177 

LAST 

922 

30 , 366  6 

3 4755 

1 

CA 

ZERO 

0501 

REF 

221 

LAST 

921 

30,3667 

3 0002 

0 

TC 

Q 

0502 

REF 

5 

LAST 

922 

30,3670 

3 473  5 

1 

CA 

NEGMAX 

050? 

REF 

222 

1 AST 

922 

30,3671 

0 0002 

0 

TC 

Q 

SIN  IS  SMALLER  OR  EQUAL 


IF  COS  NEC,,  REVERSE  SIGN  OF  SIN, 
ANGLE  = PI— ARCSIN(SIN) 

PICK  UP  PI,  2 * S COMPLEMENT 
WE  NO  LONGER  NEED  COS 


COS  IS  SMALLER 

ANGLE  = S I GN ( S IN ) (PI/2— ARCSIN(CGS) ) 
WE  NO  LONGER  NEED  COS 


PI,  2 ' S COMP 
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3:15  DEC.  2,1970 

FLY 

.132 

PAGE 

USER'S 

PAGE 

NO. 

16 

E 6 S3 

P0504 
R 0505 
R 0506 
P 0507 


SPAPCSIN  TAKES  AM  Af GUMENT  SCALED  UNIT 
180  DEGREES  IN  A.  IT  HAS  BEEN  UNIT  TE 
DE  • EE:  ) A D Hi  AX  I HU  I EF  RC  ■ I S +-5 
4 5 1 MICE  '.tSECONDS  • S P A ;<  C S I L -1  TAKES  T 


Y IN  A AND  RETURNS  AN  ANGLE  SCALED 
STEC  IN  THE  REGION  +-.94  < +-  70 
BITS  WITH  AN  AVErAGE  TIME  OF 
HE  ARGUMENT  SCALED  TWC.IBCB  CRISP) 


05  OF 

0509 

0510 

051 1 

0512 

0513 
051  /- 

0515 

0516 

0517 

05 1 E 
051 c- 

0520 

0521 

0522 

052  3 
0524 
052  5 

0526 

0527 
0 3 2 

0529 

0530 

0531 

0532 

0533 

0534 

0535 
05  36 


REF 

8 

L AST 

444 

REF 

2 74 

LAST 

S 1 1 

REF 

1 

REF 

9 

LAST 

«23 

RFF 

275 

LAST 

923 

RFF 

12 

LAST 

921 

REF 

1 

REF 

1 

REF 

13 

LAST 

923 

REF 

1 

REF 

14 

LAST 

923 

REF 

1 

RFF 

15 

LAST 

923 

REF 

1 

• f F 

10 

LAST 

923 

REF 

223 

LAST 

922 

30.3672 

30.3673 

30.3674 

30.3675 

30. 36 76 

30.3677 

30.3700 

30. 3701 

30.3702 

30. 3703 
3 C, 3704 

30.3705 

30.3706 
30, 37C7 

30.3710 

30.3711 

30.3712 

30.3713 

30. 3714 

30.3715 

30.3716 

30.3717 

30.3720 

30.3721 

30 .3722 

30. 3723 

30. 3724 

30.3725 

30.3726 


6 0000  1 
54  021  0 
1 3700  1 
50  LOO  1 
4 4734  1 
34  021  0 
0 0006  1 
7 0000  0 
■ ) 1 I 

I 6 1 
7 37  2(  0 

6 3725  1 
0 0006  1 

7 0141  1 
6 3724  0 


SPAPCSIN 


0 DC 06 

1 

7 0141 

1 

6 37  2 3 

1 

0 0006 

1 

7 0141 

1 

6 3722 

0 

0 0006. 

1 

7 0021 

0 

0 0002 

0 

2^406 

0 

DPL  1 

00660 

1 

DPL3 

16204 

0 

DPL5 

50744 

0 

DPL7 

20315 

1 

DPL  9 

DOUBLE 

TS 

TCF 

INDEX 

CS 

TS 

EXTEND 

MP 

TS 

EXTEND 

MI 

AD 

EXTEND 

MP 

AD 

EXTEND 

MP 

AD 

EXTEND 

MP 

AD 

EXTEND 

MP 

TC 

DEC 

DEC 

DEC 

DEC 

DEC 


SP. 

+ 4 
A 

LIMITS 

SR 

A 

TEM1 

D P L 9 
DPL7 

T EM  1 
DPL5 

T EMI 
DPL3 

TEM1 
DPL  1 


SR 

0 

10502 

432 

7300 

-11803 

8397 


923 


GAP: 

ASSEMBLE  P-E 

VISION  001 

OF  AGC  PRC 

GRAM  A 1 

3 1 

1R UP E BY  E 

YLES 

L 

FINDCOUW 

- GUI  DAP  INTERFACE 

P053  7 

LIMITSUB 

LIMIT 

S THE 

MAGNITUDE 

OF  THE 

P 

DSITIVE  OR 

NEGATIVE  VAFIABL 

R 053  P 

ARRIVING 

IN  L 

TO  TEE  POSITIVE 

LICIT 

AR 

RIVING  IN 

A. 

R 053  9 

THE 

SIGNED  L I M I TED 

VARIABLE  IS 

RETURNS 

D IN  A. 

R 05  40 

V f I •'  COURTESY  HUGH  BL  A I ' - S ”TH 

0541 

REF 

16 

LAST 

923 

30,3727 

54  14 1 

1 

LIMITSUB 

TS 

T EM  1 

0542 

REF 

178 

LAST 

922 

30,3730 

3 4755 

1 

CA 

ZERO 

0543 

3 ,3731 

3 0006 

1 

EXTEND 

0544 

REF 

17 

LAST 

924 

30,3732 

1 . 141 

1 

DV 

TEM  1 

0545 

REF 

276 

LAST 

923 

30,3733 

LO  000 

0 

CCS 

A 

0546 

REF 

1 3 

LAST 

92  4 

30,3734 

22  1 4 I 

o 

L XC  H 

T E M 1 

0547 

30,3735 

1 3 737 

0 

TCF 

+ 2 

0543 

30,3736 

I 3741 

1 

TCF 

*3 

054  9 

REF 

156 

LAST 

322 

30,3737 

3 00  3 1 

0 

C A 

l 

0550 

REF 

2 24 

LAST 

923 

30,3740 

0 0002 

0 

TC 

Q 

0551 

REF 

19 

LAST 

924 

30,37  4 1 

4 0141 

1 

CS 

TE  11 

055  2 

REF 

225 

LAST 

924 

3 o , 3 7 4 2 

0 COO 2 

o 

TC 

0 

R 0553 

SUBROUTINE  TO 

CONVERT  1 * S COMP 

SP  TO 

2 

•S  COMP 

0554 

REF 

277 

LAST 

924 

30,3743 

10  000 

0 

0NEST02S 

CCS 

A 

0555 

REF 

105 

LAST 

918 

30,3744 

6 4753 

1 

AD 

ONE 

0556 

REF 

226 

LAST 

92  4 

30, 3746 

0 0002 

0 

TC 

Q 

0557 

REF 

278 

LAST 

924 

30 , 374  6 

4 0000 

0 

CS 

A 

0558 

REF 

227 

LAST 

924 

30,3747 

0 0002 

0 

TC 

Q 

P 0555 

NO 

ATTITUDE  CL  t ,,  i 

0540 

REF 

3 5 

| AST 

87  5 

30 , 3750 

0 5567 

0 

is>r  attCNT 

TC 

/ 

ALARM  <Vr 

0561 

30,3751 

00402 

1 

OC  T 

00402  '"■» 

0562 

30,3752 

0 0 004 

n 

+ 2 

T Ni  H T M T 

i IN  » ) 1 >N  1 

0563 

REF 

45 

LAST 

8T5 

30,3753 

0 4674 

0 

TC 

I BNKCALL 

0564 

!’EF 

7 

LAST 

8 6 3 

30,3754 

40165 

1 

FCADF 

STOP RATE 

0565 

REF 

1 

30 ,3755 

1 3^75 

o 

TC  F 

TCQCDUW 

R 0566 

MIDDLE  GIMBAL 

ANGLE 

ALARM 

0567 

REF 

36 

LAST 

9 24 

30,3756 

0 5567 

0 

A 1 ARMMGA 

TC 

ALARM 

056  3 

30,3757 

00401 

i 

OCT 

00401 

0569 

REF 

1 

30,3769 

1 32  75 

0 

TCF 

MG  A1'  ET 

1" 
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NO. 
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NO  ATTITUDE  CONTROL 

COME  HERE  FOR  NOATTCNT  WITHOUT  ALARM 
EEL  TNT  AT  TC  INTRRET  AFTER  TCQCDUW 


924 


RETURN  TO  USER  SKIPPING  AUTOPILOT  CMOS 


GAP:  ASSEMBLE  EVIS-JN  001  OF  AGO  PROGRAM  API  1R0PE  BY  EYLES 


3:15  DEC 


2,1970  FLY 


132  PAGE  925 


L F IN  DC DUW  - GO  I DAP  INTERFACE 

P 0570  * fc****!^*  ’fr***#  £****#*$$**#**  X'**#  **  $**=!' X1**#***  ** ’S'***  #*#5!:**##*  **>)=:{:*:>!! 

R 057 1 CONSTANTS 

R 057  2 :r  $ ".■  ■’:  # -V V $$*££  ■{  '-'.  * fej;  AXc  &X^»is,X;jfc  ={=  & *ifcA;fcXE:»&XtXj)&XcX;  Jjt  £ X-Xb&X: X=* 

R 0 5 7 3 ADDRESS  CONSTANTS 

0574  RFF  3 LAST  910  30,3761  03246  1 ECDUWL  ECADR  ECDUW 

R 0575 

R 0576  THRUST  DIRECT  LON  II!  It  CONSTANTS 

0577  30,3762  06315  0 GAINFI.TR  DEC  .2 

0575  30,3763  03146  1 DEC  .1 

0579  30,3764  00071  1 DUNFVLIM  DEC  .007  B-l 

A 0530 

0531  30,3765  02041  0 UNFVLIM  DEC  .129  B-l 

A 0582 
R 053  3 

R 0584  CONSTANTS  RELATED  TO  GI^BAL  ANGLE  COMPUTATIONS 


0585 

A 05  36 

30,3766 

016  73 

1 

DOTS WFMX 

DEC 

.93302  8-4 

0587 

30, 376  7 

03434 

1 

DAXMAX 

DEC 

.11111111111 

0588 

30,3770 

00266 

0 

DEC 

.0111111111 

0589 

30, 3771 

0 1 6 1 6 

1 

DAY/2 MAX 

DEC 

.05555555555 

0590 

30,3772 

00133 

0 

DEC 

.005555*555 

0591 

REF 

2 LAST 

916 

30,3767 

DAZMAX 

= 

DAXMAX 

0592 

30,377  3 

14344 

1 

CQUZDL  I* 

ncr 

.3  888  8888  8 8 

U £ L 

R 059  3 

R 0594 

CONSTANTS  FCf* 

DATA 

T A NS FEP 

0595 

A 0596 

30,3774 

0146  3 

1 

DT/DELT 

DEC 

.05 

0597 

R EF 

2 LAST 

916 

30,3771 

DELERLIM 

= 

DAY/2MAX 

R 05  b ft 


USER'S  PAGE  NO.  18  E6  S3 


GAIN  F I L T E r'  SANS  CSM 
GAIN  F 1 1 T E R WITH  CSM 

7 MR  MAX  CHG  IN  F DIR  IN  VEH  IN  2 SECS. 
THIS  DOES  NOT  ALLOW  FOR  S/C  ROT  RATE. 

129  MR  MAX  THRUST  OFFSET.  105  MP,  TRAVEL 
+ 10MR  D E F L + c w R MECH  MOUNT  + °MP  ABLATION. 


LIM  COLNRTY  OF  UNWC/2  & UNFC/2  TO  85  DEG 
LOWER  PART  COMES  FROM  NEXT  CONSTANT 

DEL ATTX  LIM  TO  20  DEG  IN  2 SECS,  l'S,  PI 
2 DEG  WHEN  CSM  DOCKED 

LIKEWISE  EOF  DELATTY 


LIKEWISE  FOR  DELATTZ 

70  DEG  LIMIT  FOR  MGA,  l'S,  PI 


.1  SEC/2  SEC  WHICH  IS  THE  AUTOPILOT 
CONTROL  SAMPLE  PERIOD/COMPUTATION  PERIOD 

10  DEG  LIMIT  FOR  LAG  ANGLES,  l'S,  PI 


***  END  OF  FLY 


132  *** 


GAP  : 

ASSEMBLE  E VISION  001  OF  ACC  PROGRAM  APllRuPE  BY  LYLES 

3: 15  DEC. 

2 , L970  LEMP50S 

.115  PAGE  926 

L 

PEI -P  53 

USER 

•S  PAGE  NO.  1 

EO  S3 

R 000  1 

PROGRAM  NAME-  PROG52 

DATE-  JAN 

9,  1967 

R 0003 

MOD  NO-  0 

LOG  SECTION-  P51-P53 

R 0005 

MODIFICATION  BY-  LONSKE 

ASSEMBLY- 

SUNDANCE  REV  46 

R 0007  FUMC.T  T f :MA  t DE  S CP,  I °T  I Pi  - 

R 000  8 ALIGNS  THE  I'd  TO  rt  E OF  THREE  ORIENTATIONS  SELECTED  BY  THE  ASTRONAUT.  THE  PRESENT  I MU  ORIENTATION  IS  KNOWN 

R001O  AND  IS  STORED  IN  REFS'  MAT.  THE  THREE  POSSIBLE  ORIENTATIONS  MAY  BE_ 

R 001  1 (A)  PREFERRED  l ! FN  TATI  ON 

R 001 2 AN  OPTIMUM  ORIENTATION  FOR  A PREVIOUS)  Y CALCULATED  MAN'JEVER.  THIS  ORIENTATION  MUST  BE  CALCULATED  AND 

R 001 4 STORED  BY  A PREVIOUSLY  SELECTED  PROGRAM. 

R 00 1 5 (B)  NOMINAL  ORIENTATION 


R0<  1 X = UNIT  ( ' ) 

R 00 1 7 -SM 

R 001 8 Y = UNIT  IV  X R) 

Rod's  SM 

R0020  Z - UNIT  (X  X Y t 

R 002 1 SM  SM  SM 

R 0022  WHERE. 


R0C23 

R 002  5 

R = THE 

GEOCENTRIC  RADIUS 

VECTOR 

AT 

TIME- 

T<  AL 

IGN) 

SELECTED 

BY 

THE 

A STRUNAUT 

R 0026 

V = the 

INERTIAL  VELOCITY 

VECTOR 

AT 

TIME 

T<  AL 

I GM  ) 

SELECTED 

BY 

THE 

ASTRONAUT 

R 002  8 


R002S  (C)  REFSMMAT  OR  I E NT  AT I ON 

R 002c 1 (D)  LANDING  SITE  - THIS  IS  NOT  AVAILABLE  IN  SUNDANCE 


R 0030 
R 0032 
R 0034 


THIS  SELECTION  CORRECTS  THE 
WAS  LAST  ALIGNED  ONLY  DUE  TO 
SINCE  THE  LAST  ALIGNMENT). 


PRESENT  1 MU  ORIENTATION.  The  PRESENT  ORIENTATION  DIFFERS  FROM  THAT 
GYRO  DRIFT! I. E.  NEITHER  GIMBAL  LOCK  NOR  IMU  POWER  INTERRUPTION  HAS 


TO  WHICH 
OCCURED 


IT 


R0C3E 
S 003"7 
R 003° 
P 004 1 
R 0043 
R 0045 
R 0047 


AFTE n A IMU  1 I ENT AT  I ON  HAS  BEEN  SELECTED  ROUTINE  S52.2  IS  OPERATED  TO  COMPUTE  THE  GIMBAL  ANGLES  USING  THE 
NEW  OS  I RN  TATI  OR*  A D THE  PRESENT  VEHCLE  ATTITUDE.  CAL52A  THEN  USES  THESE  ANGLES,  STORED  IN  THETAD, +1 , +2,  TO 
COARSE  ALIGN  THE  IMU.  THE  STAR  SELECTION  ROUTINE,  R56,  IS  THEN  OPERATED.  IF  2 STARS  ARE  NOT  AVAILABLE  AN  ALARM 
IS  FLASHED  TO  NOTIFY  THF  ASTRONAUT.  AT  THIS  POINT  THE  ASTRONAUT  WILL  MANUEVER  THE  VEHICLE  AMD  SELECT  2 STARS 
EITHER  MANUALLY  01.  AUTOMATICALLY.  AFTER  2 STARS  HAVE  BEEN  SELECTED  THE  IMU  IS  FINE  ALIGNED  USING  ROUTINE  R51.  IF 
THE  RENDEZVOUS  N A V I G A t If":  PROCESS  IS  OPERATING!  INDICATED  BY  r NDVZFL  G ) °20  IS  DISPLAYED.  OTHERWISE  POO  IS 
REQUESTED. 


R 0048  CALLING  SEQUENCE- 


» 


i 

) SAP : ASSEMBLE  i\L  VISION  001  OF  AGO  PROGRAM  AP11R0PF  BY  LYLES 

;> 

i L P51-P53 


3:15  DEC. 


2,1970  LEMP50S  .115 


PAGE  927 


USEC  ' S PAGE  NO. 


EO  S3 


5 R0049  THE  PROGRAM  IS  CALI  CD  BY  THE  ASTRONAUT  BY  D SKY  ENTRY. 

I 

R 005  0 SUBROUTINES  CALLED- 


I R 005  1 

R 0052 
R 005  3 
I P.  0054 

R 0055 
R 005 6 

I 

R 0057 


1.  FLAGDOWN 

2.  R02BPTH 

3.  GOPERFt 

4.  MATMOVE 

5.  GOFLASH 

6.  S52.3 

N‘ M AL  EXIT  m n D E R - 


7.  5-52, 2 

3.  CAL53A 
9.  FLAGUP 

10.  R 56 

11.  RSI 

12.  GHPEPF3 


I R 005  8 


EXITS  TO  FNDOF JOB 


13.  NEWMODE  X 

14.  PR  reL ARM 


R OC  5 9 ALARM  ni  A B 5 T EXIT  ML Of  ~ - 

I 

R 0060  NONE 


> R 0061  OU  PUT- 


ROC  6 2 
I R 0063 

R 0064 
R 0065 
) R 006  6 

R0067 
R0068 
I R0P6Ci 


THE  FOLLOWING  MAY  BE  FLASHED  ON 
1 . I MU  Or-  I ENT  AT  ICN  CODE 

2.  ALARM  CODE  ?I;:  -r  • Ffi  ' ED 

3.  TIME  OF  NEXT  IGNITION 

4.  GIMI3AL  ANGLES 

£ 5,  ALARM  CODE  :405  -TWC  ST  A , 
PI  EASE  PERFORM  POD 
* HE  MODE  DISPLAY  MAv  BE  CHANGED 


THE  DSKY 

IMS  OP  I ENTAT  I CN  NOT  SPECIFIED 

NOT  AVAILABLE 
TO  20 


R0070  ERASABLE  INITIALIZATION  P.EQUIRED- 

R0071  PFRATFLG  SHOULD  BE  SET  IF  A PREFERRED  ORIENTATION  HAS  BEEN  COMPUTED. IF  IT  HAS  BEEN  COMPUTED  IT  IS  STORED  IN 

R 0073  XS*'D,  YSMD,  ZSMD, 

R 007  4 UiDVZFLG  INDICATES  WHETHER  THE  ENDEZVOUS  NAVIGATION  PROCESS  IS  OPERATING. 


R 007  6 DEBRIS- 


R 0077 

WORK 

AR  EA 

0078 

33, 3777 

007  9 

REF 

2 

LAST 

25C 

15,2000 

0080 

i c . 3 n 

I f r-\J  .j'J 

0081 

REF 

3 

LAST 

196 

E5,  1755 

0082 

REF 

1 

0085 

REF 

252 

LAST 

895 

15,2050 

0 4616 

0086 

REF 

11 

LAST 

838 

1 5 ,205 1 

112  54 

0087 

REF 

1 

1 5,  205  2 

3 4750 

0088 

REF 

27 

LAST 

861 

15,2053 

7 0076 

0089 

REF 

279 

LAST 

924 

15,2054 

10  000 

BANK  33 

SELL  OC  P50S 

BANK 

EB ANK=  BESTI 

COUNT 7 $ $ / P 5 2 

1 PKi'GF?  TC  BANKCALt 

1 CADR  R02B0TH  I MU  STATUS  CHECK 

1 CAF  PFRATBIT 

1 MASK  FLAGWRD2  IS  PFRATFLG  SET? 

0 CCS  A 


GAP  : 


ASSEMBLE  REVISION  001  OF  AGC  PROGRAM  APURQPE  BY  EYLfJ 


00°0 

0091 

0092 
009  3 
009^* 

0095 

0096 

0097 
0C98 
0C°° 
01 00 
0101 
0102 

0103 

0104 

0105 

0106 

0107 

0108 
01  19 
one 
oil  1 
0112 

0113 

01131 

01132 

01133 

0114 

0115 

0116 
0111 

01171 

01172 
one 
011° 
0120 
0121 
0122 

0123 

0124 

0125 

0126 

0127 

0128 

0130 

0131 

0132 


051- 

REF 

REF 

REF 

■P  63 

1 

43 

2> 

LAST 

LAST 

REF 

42 

LAST 

REF 

8 

L AST 

REF 

43 

LAST 

LAST 

REF 

2 53 

REF 

1 

REF 

33 

LAST 

REF 

1 

P FF 

77 

LAST 

REF 

141 

LAST 

REF 

9 

LAST 

REF 

2 6 

LAST 

REF 

2 80 

LAST 

REF 

1 

REF 

1 

REF 

1 

REF 

16° 

LAST 

REF 

1 

REF 

5 

LAST 

REF 

2 

LAST 

REF 

25 

LAST 

REF 

26 

LAST 

REF 

1 

REF 

254 

LAST 

REF 

27 

LAST 

REF 

39 

LAST 

REF 

27 

LAST 

REF 

28 

LAST 

P.EF 

4 

LAST 

REF 

10 

LAST 

REF 

44 

LAST 

REF 

281 

LAST 

REF 

1 

15,2055 
907  15,2056 

92 fi  15,2057 
852  15,2060 

72 c 15,2061 
928  15,2062 

927  15,2063 
15,2064 

895  15,2065 

15.2066 

15.2067 
866  15,2070 

15,2071 
895  15,2072 

928  15,2073 

8 32  1 8, 2074 

927  1 5 , 20*n 

15.2076 

15.2077 

15.2100 

16.2101 
920  15,2102 

15.2103 

15.2104 

15.2105 
786  15,2106 

928  15,2107 

15,2110 
906  15,2111 

725  15,2112 

lc  ,21  13 

9 15,2114 

8 54  1 c , 2 1 1 5 
928  15,2116 

15,2117 
15,2120 
928  15,2121 

15.2122 

15.2123 

15.2124 

15.2125 
894  15,2126 

202  15,2127 

920  15,2130 

°2  8 15,2131 
926  15,2132 

15,2133 


0 2060  0 
3 4752  0 
0 2061  1 
3 4753  1 P52A 
55' 14  6 1 
3 4753  1 P52B 

0 4616  1 
20713  0 

0 6001  0 

1 2 0 73  0 
0 2062  1 
0 5353  1 

00014  1 
0 5155  0 

3 1145  0 
7 6245  0 
50  000  1 

0 2077  0 

1 2105  0 
1 2153  0 
1 2110  1 

0 6037  0 P52E 
77650  1 
32164  0 

0 0006  1 0PT4 
3 1401  0 

1 2112  G 

0 0006  1 P52T 
3 4755  1 
53 '046  0 
3 2170  0 
0 4616  1 
20476  0 
0 6001  0 
0 2121  1 

0 2113  0 
53*046  0 
° 0006  1 

6 2125  0 

1 2127  0 
0 0006  1 
3 C025  0 
63 '775  1 

3 1145  0 P52V 

7 4752  1 
10  000  0 
0 2137  0 


TC 

C AF 

TC 

P 52  A 

BIT2 

P52A  +1 

CAF 

Bill 

TS 

0PTI0N2 

CAF 

BIT! 

TC 

BANKCALL 

CAOR 

G0PERF4F 

TC 

GOTO  POOH 

TCF 

+ 5 

TC 

P 52  B 

TC 

P HASCHNG 

OCT 

0 0014 

TC 

ENOOF JOB 

CA 

UPTI0N2 

MASK 

THREF 

I NDE  X 

A 

TC 

+ 1 

TC  F 

0PT4 

TCF 

p 52  H 

TCF 

P52T 

TC 

INTPRET 

GUT  0 

P 52  F 

EXTFND 

OCA 

t LAUD 

TCF 

P52T  +2 

EXTEND 

DC  A 

NEGO 

DXCH 

DSPTEM1 

CAF 

V06N34* 

TC 

BANKCALL 

CADR 

GOFL ASH 

TC 

GCTOPOOH 

TC 

+ 2 

TC 

- 5 

DXCH 

DSPTEM1 

EXTEND 
BZMF  +2 


TCF 

+ 3 

EXTFND 

OCA 

TIME2 

DXCH 

T ALIGN 

CA 

OPT10N2 

MASK 

BIT2 

CCS 

A 

TC 

P52W 

3:  15  DEC.  2, 

19  70 

L EMP50S 

.115  PAGE 

USER *S 

PAGE 

NO.  3 

E 5 S3 

YES 

NO 


,.i 


FLASH  OPTION  CODE  AND  ORIENTATION  CODE 
FL  Ac  H V04IY06 

V33-PP0CEED 

MEW  CODE  - NEW  ORIENTATION  CODE  INPUT 
DISPLAY  RETURN 


OPTION  4 LANDING  S ITE 
OPTION  1 PREFERRED 
OPTION  2 NOMINAL 
OPTION  3 PEFSMMAT 

GO  DO  R 51 


IF  OPTION  4 DISPLAY  TL  AND 


IF  TIME  ZERO  OR  MEG  USE  T I M E 2 


GAP:  ASSEMBLE  REVISION  00],  OF  AGC  PROGRAM  AP11R0PE  BY  t'YLES 


3: 15  DEC 


2 * 19  70  LEMP50S  .115 


PAGE 


929 


L 

P 51-D  5 3 

USEF • S PAGE  NO.  4 

0133 

REF  170  LAST  928 

15,2134 

0 6037 

0 

TC 

INTPRET 

OPTION  4 - GFT  LS  ORIENTATION 

0 1 3 A 

15,2135 

77650 

1 

GOTO 

0135 

REF  1 

15,2136 

32220 

0 

P52LS 

GAP:  ASSEMBLE  REVISION  0C1  OF  AGC  PROGRAM  APllROPE  BY  EYLES 


L P51-P53 


P 0 1 5 1 

STAPT  AL 

I GNMENT 

0152 

REF 

171 

LAST 

92S 

0153 

0154 

REF 

5 

LAST 

928 

0156 

PEF 

1 

0157 

0158 

REF 

1 

0162 

0163 

PEF 

2 

LAST 

485 

0164 

RtF 

255 

LAST 

926 

0165 

PEF 

28 

LAST 

928 

1 

REF 

40 

LAST 

928 

0167 

RFF 

1 

0168 

REF 

172 

LAST 

930 

0169 

0170 

PEF 

1 

0171 

REF 

173 

LAST 

9 30 

0172 

0173 

REF 

1 

0174 

0175 

PEF 

2 

LAST 

6 80 

0176 

REF 

2 

LAST 

7AQ 

0177 

0178 

REF 

1 

0179 

0180 

REF 

41 

LAST 

930 

0196 

PEF 

5 

LAST 

748 

0198 

2137 

0 6037 

0 

P52W 

TC 

2140 

4 5 14  5 

0 

DLOAD 

2141 

02775 

0 

214  2 

31650 

0 

2143 

77624 

1 

P52D 

CALL 

2144 

31617 

0 

2145 

77  7 76 

1 

EXIT 

2146 

3 5010 

0 

CAF 

2147 

0 4-61fa 

1 

TC 

2150 

20476 

0 

CADI 

215  1 

0 60  01 

0 

TC 

2152 

1 2171 

0 

TCF 

2153 

0 6037 

0 

P52H 

TC 

2154 

77650 

1 

GOTO 

2155 

32143 

0 

215  6 

0 6037 

0 

REGCCARS 

TC 

2157 

776  24 

1 

CALL 

2160 

31327 

0 

2161 

43014 

0 

CD ARSRET 

SFT 

2162 

01462 

0 

216  3 

01273 

0 

2164 

77624 

1 

P52F 

CALL 

2165 

31015 

1 

2166 

77776 

1 

P520UT 

EXIT 

2167 

0 6001 

0 

TC 

5006 

VB05N09 

= 

2170 

014  4 2 

1 

V06N34* 

VN 

15 

15 

15 

15 

15 

15 

15 

15 

lr- 

15 

15 

15 

15 

15 

15 

15 

15 

15 

15 

1 5 

15 

15 

15 

15 

15 

15 


3:15  DEC 


2,1570  LEMP50S  .115  PAGE  930 


USER  *S  PAGE  NO.  5 E5  S3 


I NT P RET 

CALI 
TAL IGN 
S52.3 


S52.2 


PICK  UP  ALIGN  T T M E 
COMPUTE  NOMINAL  I MU 
Of  TENT  AT  1 01 

READ  VEHICLE  ATTITUDE  AND 
COMPUTE  GIMRAL  ANGLES 


V06N22 

B ANKCALL 

GGFLASH 

GOTOPOOH 

COARSTYP 

INTPRET 


DISPLAY  GIMBAL  ANGLES 


V33-PR0CEEQ,  SEE  IF  GYRO  TORQUE  COARSE 


P52D 

INTPRET 

DO  COARSE  ALIGN 
CAL53A  ROUTINE 

CLEAR 
R.EFSMFLG 
PFRATFLG 


R51 

GOTOPOOH 

V05N09 

634 


GAP: 


P 0200 
0201 
0202 
0202 

020  A 
020? 
0206 
0207 
0206 
02  0C 
0210 

021  1 
021? 
0213 

021  A 
0215 
02  If 
0217 
02  1 A 

0219 

0220 
02201 

022  02 
0221 


ASSEMBLE  REVISION  001  OF  AGO  PROGRAM  AP11R0PE  BY  EYLES 


P51-P53 


CHECK  FOR  GPRO 

REF  1 

REF  256  LAST 

REF  5 LAST 

REF  42  LAST 

REF  1 

REF  174  LAST 

REF  4 LAST 
REF  37  LAST 

REF  3 LAST 
REF  3 LAST 

REF  38  LAST 
REF  3 LAST 
REF  3 LAST 

REF  39  LAST 
REF  3 LAST 
REF  1 

RFF  1 


TORQUE  COARSE 
15,2171 
930  15,2172 

789  15,2173 

930  15,2174 

15,2175 

930  15,2176 
15,2177 

149  15,2200 

880  15,2201 

15,2202 
123  15,2203 

147  15,2204 
15,2205 

931  15,2206 

123  15,2207 

148  15,2210 
15,2211 

931  15,2212 

123  15,2213 

15.2214 

15.2215 

15.2216 

15.2217 


ALIGNMENT 
3 2217  1 

0 4616  1 
20623  1 

1 6001  1 
1 21560 
0 6037  0 

o4375  1 
03607  0 
01734  0 
77656  1 
26665  0 
03615  0 
53521  1 
01734  0 
26673  1 
' 03623  0 
53521  1 
01734  0 
36701  1 
31164  0 
77650  1 
32166  1 
00013  0 


COARSTYP  caf 
TC 

CAOR 
TCF 
TC  F 
TC 

VLOAD 


UNIT 

STOVL 

MX  V 

STOVL 

MX  V 

STC ALL 

GOTO 

OCT  13  OCT 


OCT  13 

BANKCALL 

G0PERF1 

GCTOPOTH 

PEGCOARS 

INTPRET 

M XV 

XSMD 

REFS MM AT 

X DC 
YSMD 
UNI  T 

REFORMAT 

YDC 

ZSMD 

UNIT 

REFSMMAT 
Z DC 

GYCGARS 

P520UT 

13 


3:15  DEC 


2,1970  LEMP50S  .115  PAGE  931 


USER ' S PAGE  NO.  6 E5  S3 


DISPLAY  V 50N25  WITH  COARSE  ALIGN  OPTION 

V34-TERMINSCE 
V3 3 -NOR MAI.  COARSE 
V32-GYRO  TORQUE  COARSE 

GET  SM(OESIREO)  WRT  SM ( PRESENT ) 


..z 


« 

« 

i 

4 

I 

i 

t 

l 


* 


GAP:  ASSEMBLE  aEVISIO!’  001  CF  AGC  PEL GRAM  API 1RCPE  BY  EYLES 


L P51-P53 


P0222 

COMPUTE 

LANDING 

■ OF  I ENT  AT  1 01  FOR 

OPTION  4 

0223 

15,2220 

43014 

0 P52LS 

SET 

CLEAR 

A?  ? L 

o pc 

1 A 

7 91 

15,2221 

01463 

! UNAFI  AG 

Vt  C.  • 

Pn  l i 

022  5 

n EF 

2 

LAST 

657 

15 , 2222 

00  6 62 

0 

ERADFL AG 

022  F 

15 , 222  3 

77201 

1 

SETPD 

VLOAD 

0227 

15,2224 

00001 

0 

0 

0228 

F IF 

9 

LAST 

842 

15,2225 

02023 

1 

RLS 

0229 

15,2226 

41525 

0 

POOL 

PUSH 

0230 

REF 

6 

LAST 

9 30 

15,2227 

02775 

0 

TAL1GN 

0231 

PEF 

6 

LAST 

928 

15,2230 

36401 

1 

STCALL 

TLAND 

0232 

REF 

3 

LAST 

841 

15,2231 

5^716 

1 

RP-TO-P 

0233 

15,2232 

77742 

0 

VSR  2 

0234 

REF 

4 

LAST 

79  1 

15,2233 

16032 

1 

STODL 

ALPHAV 

0235 

REF 

7 

LAST 

932 

15,2234 

02775 

0 

TALIGN 

02  3 6 

15,2235 

77624 

1 

CALL 

023  41 

REF 

1 

15,2236 

3044  6 

1 

N89DISP 

02362 

1 5 , 22  3 7 

53575 

o 

VLOAD 

UNIT 

02363 

REF 

5 

LAST 

932 

15,2240 

02032 

1 

ALPHAV 

02364 

REF 

5 

LAST 

931 

15,2241 

37607 

1 

STCALL 

XSMD 

C2365 

REF 

1 

15, 2242 

11013 

0 

LSQRI ENT 

023  66 

15,2263 

77650 

1 

GOTO 

02367 

PFF 

2 

LAST 

930 

15,2244 

32143 

0 

P 52  D 

3:15  DEC.  2,1970  LEMP50S  .115  PAGE  932 
USER'S  PAGE  NO.  7 E5  S3 

GET  LANDING  SITE  ORIENTATION 
TO  PICK  UP  PLS 

PICK  UP  LANDING  SITE  VEC  IN  ME 
PLS  PD  0-5 

JAM  ALIGN  TIME  IN  TLAND  FOR  OPTION  4 
TRANS  PLS  tq  ref 
INPUT  TO  LAT-LONG 

COMPUTE  LANDING  SITE  ORIENT  (XSMD) 


NOW  GO  COMPUTE  GIMBAL  ANGLES 


GAP:  ASSEMBLE  REVISION  001  OF  AGC  PROGRAM  API 1R0PE  BY  EYLES 

L P51-P53 

P 0237  SUBROUTINE  TO  CALCULATE  AND  DISPLAY  THE  LUNAR  l AND  I NG  SITE 

02371  REF  2 LAST  45  14,2000  SETLOC  P50S1 

02372  14,2446  BANK 

02373  EF  16  LAST  388  E5.1642  EBANK=  XSM 


0238 

0239 

0240 

0241 

0242 

0243 

0244 

0245 

0246 

0247 

0248 
024  c 


REF  3 LAST 

*REF  14  LAST 

REF  3 LAST 

PEE  3 LAST 

REF  3 LAST 

REF  3 LAST 

REF  2 LAST 

REF  3 LAST 

REF  3 LAST 


788 
90  2 
791 

314 

14.2446 

14.2447 
14,2450 
14,245  1 
14,2452 

14  , 245  3 

77620  ( 
02  746  ( 
35243  ; 
26351  : 
70545  : 
01123  ( 

317 

14,2454 

16711  1 

314 

14,2455 

01125  ( 

317 

14,2456 

16713  l 

3 1 4 

14,2457 

01121  ] 

317 

14, 2460 

16707  ( 

14,2461 

77776  ] 

N89D I SP 


STQ 

STCALL 

Dl  OAD 

STOOL 

STOOL 

STOOL 

EXIT 


QPAJ 

GOT/2  +4 
L AT-LONG 
SRI 
LONG 

LANDLONG 

ALT 

LAND4LT 

LAT 

LANDLAT 


0250  REF  1 14,2462 


0251 

REF 

257 

LAST 

931 

14,2463 

0252 

REF 

29 

LAST 

930 

14,2464 

0253 

REF 

43 

LAST 

93  1 

14,2465 

0254 

14, 2466 

0255 

REF 

1 

14,2467 

3 2505 
0 4616 
20476 

0 LSDISP 

1 

0 

CAF 

TC 

CADR 

V06N89* 

R A,'J  k r A 1 1 

GOFLASH 

1 6001 

1 

TC  F 

GGTOPOOH 

1 2470 

1 

TCF 

+ 2 

1 2462 

1 

TCF 

LSDISP 

0256 

0257 
025P 
0259 

REF 

REF 

REF 

175 

4 

4 

0260 

REF 

3 

0261 

REF 

4 

0262 

REF 

4 

0263 

REF 

4 

0266 

*REF 

15 

0265 

0266 

REF 

1 

0267 

0268 

REF 

4 

026  81 

LAST 

931 

14,2470 

0 6037 

0 

TC 

INTPRET 

14,2471 

72545 

0 

DLUAD 

SL1 

LAST 

«33 

14,2472 

0271  1 

1 

LANDLONG 

LAST 

933 

14, 2 473 

1 c 1 2 3 

0 

STOOL 

L ONG 

LAST 

933 

14,2474 

02713 

0 

LANDALT 

LAST 

933 

14,2475 

15125 

0 

STOOL 

ALT 

LAST 

933 

14,2476 

02707 

0 

LANDLAT 

LAST 

933 

14 , 2477 

15121 

1 

STODL 

LAT 

LAST 

933 

16,2500 

01243 

0 

GDT/2  +4 

14,2501 

77624 

1 

CALL 

14,2502 

26422 

1 

LALOTORV 

14,2503 

77650 

1 

GOTO 

LAST 

933 

14,2504 

02  746 

0 

QMAJ 

14,2505 

01531 

1 V06N89* 

VN 

689 
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TEMP  STORE  TIME 


DISPLAY  LAT , LONG/2 ,ALT 


V34-T  ERM  TNATP-EXI T P57 

V33-PROCEE  D-  ACCEPT  LS  DATA 

V32  OR  E-  LOOK  AGAIN  AND/OR  LOAD  NEW  LS 


PICK  UP  TIME 

GET  RLS  BACK  FROM  LAT , LONG , Al.T* 
RLS  3—29  IN  M P AC  AND  ALPHAV 


GAP  : 

ASSfcMBl.E  REV  IS  I 

ON  001  OF  AGC  PROGRAM  AP11RC1PE  BY  EYLES 

3:15  DEC.  2t 1970 

LEMP50S 

.115  PAGE 

L 

P51-P53 

USER'S 

PAGF 

NO.  9 

E5  S3 

P 0269 

NAMf  -S50  ALIAS  LOCSAM 

R 027 0 

BY 

R 027  1 

VINCENT 

R 027  2 

FUNCTION  - COMPUTE  INPUTS  TO-  PICAPAP  AND  PI ANPT 

R 0273 

fPlNE 

R 0274 

R 027  5 

U 

= UNIT!  SUN  WR1  EARTH) 

P 0 2 7 6 

ES 

R 0277 

U 

=UNIT(  MOOtl  WRT  EAFTH ) 

R 027  8 

EM 

R 0279 

R 

= POS  IT  ION  VECTOR  OF  LEM 

R 0280 

L 

R 028  1 

P 

= y FAN  r’SMNCE  ( 38440  2 KM  ) BETWEEN  EARTH  AND  MOON 

R 02 82 

EM 

R 028  3 

P 

= R AT  I f r /(DISTANCt  SUN  TO  EARTH)  >.00257125 

R 02  8* 

EM 

R 028  c 

R 

= EQUATORI£L  f'ADIUSS  (6378.166KM)  OF  EARTH 

R 0286 

E 

R 0287 

LOCSAM  COMPUTES  IN  EARTH  INFLUENCE 

R 0288 

R 0289 

VSUN  = 

U 

R 

ES 

R 029  1 

V EARTH  = 

—UNI T ( R ) 

R 029  2 

L 

R 029  3 

VMCON 

UNIT! R .U  - P ) 

R 0294 

EM  EM  L 

R 029  5 

CSUN 

COS  90 

R 0?9fc 

C EARTH  = 

C0S(5  +ARCS  I N ( P /MAG( R ) ) ) 

R 0297 

F L 

R 0298 

C MOON 

COS  5 

R 0299 

R 0300 

INPUT  - TIME 

IN  MP AC 

R 030 1 

OUTPUT  - LISTED  ABOVE 

R 030  2 

SUBROUTINES  - 

L SPOS  t LEMPREC 

R0303 

DEBR I S - VAC 

AREA  ,TSIGHT 

934- 


GAP:  ASSEMBLE  REVISION  001  OF  AGC  PROGRAM  AP11R0PE  BY  EYLES 

L P 51-P 53 


0307  REF 


0308 

030« 

0310 

031  1 

0312 

0313 
03  1 A 

0315 

0316 

0317 

0318 

0319 

0320 

0321 

0322 

0323 

032  A 

0325 

0326 

0327 

0328 
032c 

0330 

0331 

0332 

0333 

033  A 


2 LAST 


A 5 TF 


REF 

REF 

RFF 

REF 

REF 

REF 

REF 

REF 

REF 


2 

2 

1 

3 

52 

12 

9 

1 


LAST 
l AST 


FAST 

LAST 

LAST 


123 

258 


935 

839 

839 


LAST  721 


A5 : 

1 A , 2506 

14.2506 

14.2507 
14,2510 
1 A , 25  1 1 
1 A, 25  12 
14,2513 
1 a, 2514 
14,2515 
1'-  , 2516 
14,2517 

14.2520 

14 . 2521 

14.2522 


8 


8* 


COUNT*  $$/LOSAM 


S 50 

I DCS AM 


77620  0 
02745  0 
37562  1 
33664  0 
77745  1 
C 3562  0 
34041  0 
27057  0 
61131  0 
00052  0 
00000  1 
30543  0 

74375  0 E AF'TCNTF  VLOAD 


ST  g 
STCALL 
OLOAD 
STCALL 

SSP 


LOCSAM 

QMIN 

TSIGHT 

LSPCS 

TSIGHT 
T0EC1 
LEM PR EC 
TTX  ,2 
S2 
0 

TOQNCNTP 

VXSC 


REF 

9 £ E 

3 

] 

LAST 

487 

14.2523 

14. 2524 

14.2525 

14. 2526 

1 4 . ? 8 ? 7 

02  72  3 
30001 
52372 
0C001 
7 7 A 9 A 

0 

0 

0 

0 

1 

0 

V MOON 

O c | m cm 

REF 

29 

LAST 

839 

VSL1 

1 1M  T T 

o Udl" 

vsu 

RATT 

REE 

4 

LAST 

935 

1 -t  » c.  J C f 

14 , 2530 

I ( C i o 

26723 

U i 1 

STGVL 

V MOON 

REF 

30 

LAST 

935 

14,2531 

00001 

0 

P.  ATT 

REF 

3 

LAST 

124 

14,253? 

14,2533 

574  56 
16707 

1 

0 

UNIT 

STOOL 

VCOMP 

VEARTH 

REF 

REF 

PCF 


14.2534 

14.2535 

14.2536 

1 4. 2537 


30005  1 
77624  1 

30575  0 
14017  1 


CALL 


STOOL 


RSUBE 

OCCrfS 

CEAP-TH 


03  3 c 

REF 

1 

14,2540 

30604 

0 

CSS5 

0336 

REF 

1 

14,2541 

340  2 3 

1 

STCALL 

C MOON 

0337 

REF 

1 

14,2542 

30570 

0 

ENDSAM 

0338 

14,2543 

74375 

0 

MOONDNTR  VLOAD 

VXSC 

0339 

REF 

5 

LAST 

935 

14, 2544 

02723 

0 

VMOON 

034  0 

REF 

1 

14,2545 

30007 

0 

ROE 

0341 

1 4, 2546 

53^45 

1 

B VSU 

UNIT 

0342 

REF 

2 

LAST 

123 

14,2547 

02715 

0 

V SUN 

034  3 

RFF 

3 

LAST 

935 

14,2550 

26715 

0 

STOVL 

VSUN 

0344 

REF 

6 

LAST 

935 

14,2551 

02723 

0 

V MOON, 

034  5 

14, 2552 

53361 

0 

VXSC 

VAQ 

0346 

RFF 

2 

LAST 

935 

14,2553 

30001 

0 

RSUBEM 

0347 

REF 

31 

LAST 

° 3 5 

14, 2*34 

00001 

0 

RATT 

0348 

14,2555 

57456 

1 

UN  IT 

VCOMP 

0349 

REF 

4 

LAST 

935 

14,2556 

26707 

0 

STOVL 

VEARTH 

03  5 G 

REF 

32 

LAST 

935 

14,2557 

00001 

0 

RATT 

0351 

14,2560 

5 74  56 

1 

UNIT 

VCOMP 

0352 

REF 

7 

LAST 

935 

14,2561 

16  723 

0 

STODL 

V MOON 

0353 

REF 

1 

14,2562 

3000  3 

1 

RSUBM 

0354 

14,2563 

77624 

1 

CALL 

0355 

REF 

2 

LAST 

935 

14,2564 

30  575 

0 

OCCOS 

l" 
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USER  • 
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935 
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P51- 

P53 

0356 

REF 

2 

LAST 

935 

14,2565 

14023 

0 

STOOL 

0357 

REF 

2 

LAST 

935 

14,2566 

30604 

0 

03  58 

REF 

2 

LAST 

935 

14 ,2567 

000  17 

1 

STORE 

035° 

14,2570 

77745 

1 

ENDS AM 

DLOAD 

0360 

REF 

1 

14,2571 

30606 

1 

0361 

RFF 

1 

14,2572 

040  21 

1 

STORE 

0362 

14,2573 

77650 

1 

GOTH 

0363 

REF 

3 

LAST 

935 

14,2574 

02745 

0 

0364 

14,2575 

70471 

1 

OCCOS 

DDV 

036  5 

14,2576 

00045 

0 

0366 

14,2577 

43336 

0 

ASIN 

0367 

REF 

1 

14, 2600 

30610 

0 

0368 

14 , 2601 

70546 

1 

COS 

036  9 

14,2602 

77616 

0 

RVQ 

0370 

0016 

C EARTH 

= 

0371 

0020 

CSUN 

= 

0372 

C022 

CMOON 

= 

037? 

1 4 , 260  3 

077  6 C 

1 

CS  S5 

2DEC 

0373 

14,2604 

1447  3 

1 

0374 

14,2605 

04000 

0 

CSSUN 

2 DEC 

037' 

14,2606 

00000 

1 

0376 

14,2607 

00343 

0 

5DEGREES 

2 DEC 

0375 

14,2610 

2 1616 

0 
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CMC  ON 

CSS5 

CEARTH 


CSSUN 

CSUN 

QMIM 

SRI 

36D 

DAD 

5DEG°  EES 
SRI 


14D 

16D 

18D 

.2490475 
. 125 


(COS  5)/4 
(C0S60J/4 


.013888889 


SC  Al ED  IN  REVS 


936 


ft 

) 

ft 
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3:15  DEC.  2.1970  LEMP50S 
USER’S  PAGE  NO.  12 


.115  PAGE 
E5  S3 


937 


P 0380 
ft  R 038  1 

R0382 
P 038  3 
I R 0384 

R 038  5 
R 038  6 

> R 0387 
R 0388 
R 0389 

> R 0390 
R 039 1 
R0392 

> R 0393 
R 0394 
R 0399 

I R03PE 

R 0397 
R 039  A 
I R 039° 

R 04-00 
R 940 1 
R0402 
R 040  3 
R 0404 
R 0405 
R 0506 
R0407 
R 040  8 
R 040° 
R0410 
R 041  1 
R0412 
R 04 1 3 
R 04 1 4 
R 041  5 
R0416 

0417 

0418 

0419 

0420 

0421 

0422 

0423 

0424 

0425 

0426 
042  7 
042  8 
0429 


PROGRAM  NAME  - R 56 
MOD  1 

BY  KEN  VINCENT 


DATE  DEC  20  66 
LOG  SECTION  P51-P53 
ASSEMBLY  SUNDJSK  REV40 


FUNCTION 

THIS  PROGRAM  READ  THE  IMU-CDUS  AND  COMPUTES  THE  VEHICLE  ORIENTATION 
WITH  RESPECT  TO  INERTIAL  SPACE.  IT  THEN  COMPUTES  THE  SHAFT  AXIS  (SAX) 
WITH  RESPECT  TQ  REFERENCE  INERTIAL.  EACH  STAR  IN  THE  CATALOG  IS  TESTED 
T(  DETERMINE  IF  IT  IS  OCCULTED  BY  EITHER  THE  EARTH, SUN  OR  MOON.  IF  A 
STAR  IS  NOT  OCCULTED  THEN  IT  IS  PAIRED  WITH  ALL  STAR  OF  LOWER  INDEX. 
THE  PAIRED  STAP  IS  TESTED  FOR  OCCUl.  TA  T I OF! . PAIRS  OF  STARS  THAT  PASS 
THE  OCCUL  TATION  TESTS  ARE  TESTED  FOR  GOOD  SEPARATION.  A PAIR  OF  STARS 
HAVE  GOOD  SEPARATION  IF  THE  ANGLE  BETWEEN  THEM  IS  LESS  THAN  100  DEGREES 
AND  MORE  THAN  50  DEGREES • THOSE  PAT'S  WITH  GOOD  SEPARATION 
ARE  THEN  TESTED  TO  SEE  IF  THEY  LIE  IN  CURRENT  FIELD  OF  VIEW. (WITHIN 
50  DEGREE  SOF  SAX). THE  PAIR  WITH  MAX  SEPARATION  IS  CHOSEN  FROM 
THOSE  WITH  GOOD  S EP AP AT  I ON , AND  IN  FIELD  OF  VIFW. 

CALLING  SEQUENCE 
L TC  BANKCALL 

L+l  CADR  P 56 

L+2  ERROR  RETURN  - MO  STARS  IN  FIELD  OF  VIEW 

L+3  NORMAL  RETURN 

OUTPUT 

BE  S T I , BEST  J -SINGLE  PREC  , I NT  EGERS  , ST  AR  NUMBERS  UMiS  6 
VFLAG  - FLAG  BIT  SET  IMPLIES  NO  STARS  IN  FIELD  OF  VIEW 

INITIALIZATION 

DA  CALL  TO  L3CSAM  MUST  BE  MADE 

DEBRIS 
WORK  AREA 
X, Y.ZNB 
S I N C DU  , CO  SC  DU 


STAPAD  - 

STAR 

+ 5 

REF 

1 

14,261  1 

R56 

= 

PICAPAR 

REF 

1 

COUNT* 

1 $ / R 5 6 

REF 

12 

LAST 

895 

14,26  11 

0 4 645 

1 

PICAPAR 

TC 

MAKECADR 

«EF 

4 

LAST 

936 

14,2612 

55 '74 5 

1 

TS 

QNIN 

REF 

176 

LAST 

933 

14,2613 

0 6037 

0 

TC 

INTPRET 

14,2614 

77624 

1 

CALL 

REF 

4 

LAST 

548 

14, 2615 

47537 

0 

CDUTRIG 

1.4,2616 

77624 

1 

CALL 

REF 

1 

14,2617 

20030 

0 

CALCSMSC 

14,2620 

77601 

0 

SETPD 

14,2621 

00C01 

0 

0 

REF 

14,2622 

71214 

0 

SET 

DL.OAD 

1 

14,2623 

01465 

1 

VFLAG 

1 
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L 

P51- 

P53 

0430 

REF 

1 

14,2624 

24007 

0 

DPZERO 

04  31 

REF 

4 

LAST 

927 

14,2625 

26756 

1 

STOVL 

BESTI 

043  2 

REF 

3 

LAST 

381 

1 4 . 7 h ? 6 

0 ? 6,  6. 8 

0 

XNB 

v c.  c*  j 

043  3 

14,2627 

633  61 

0 

vxsc 

PDVL 

043  ^ 

REF- 

1 

14,2630 

24005 

1 

HALFDP 

0435 

REF 

3 

LAST 

374 

14,2631 

02701 

0 

ZNB 

0436 

14,2632 

74370 

0 

AXT  , 1 

VXSC 

0437 

14,2633 

00344 

1 

228D 

0438 

REF 

2 

LAST 

938 

14,2634 

2 4 0 C 5 

1 

HALFDP 

0439 

14,2635 

77655 

1 

VAD 

0440 

14,2636 

53505 

1 

VXM 

UNIT 

0441 

REF 

40 

LAST 

931 

14,2637 

01734 

0 

REFSMMAT 

0442 

REF 

1 

14, 2640 

02731 

0 

STORE 

SAX 

0443 

14,2641 

>3  31 

0 

SSP 

SSP 

0444 

REF 

7 

LAST 

609 

14,2642 

0CC51 

0 

SI 

0445 

14,2643 

00006 

1 

6 

044  6 

REF 

10 

LAST 

93  5 

14,2644 

0 0 G 5 2 

0 

S2 

0447 

14,2665 

00006 

1 

6 

VJ  V v V U 

0448 

14,2646 

52100 

1 

PIC1 

T IX,  1 

GCTO 

0449 

REF 

1 

14,2647 

3065  1 

0 

PIC2 

0450 

REF 

1 

14,2650 

30766 

0 

P ICEND 

0451 

11,2651 

5 0373 

0 

PIC2 

VL  0 A 04 

DCT 

045  2 

REF 

1 

14,2652 

30347 

1 

CATLOG, 1 

0453 

REF- 

2 

LAST 

938 

14,2653 

02731 

0 

SAX 

0456 

14,2654 

50025 

0 

DSU 

BMN 

0455 

REF 

1 

14,2655 

30765 

0 

CSS33 

0456 

REF 

1 

14,2656 

30646 

0 

P ICI 

0457 

14,2657 

77754 

1 

LXA  ,2 

045  8 

9EF 

25 

LAST 

88  6 

14 ,266  0 

00046 

0 

XI 

0459 

16,266  1 

5 2 104 

0 

PIC3 

T I X , 2 

GOTO 

0460 

REF 

l 

14, 2662 

3 06  64 

0 

P IC4 

0461 

REF 

2 

LAST 

938 

14,2663 

3 0646 

0 

PIC1 

046? 

14,2664 

50373 

0 

PI  C4 

V L 0 A D * 

DOT 

0463 

REE 

2 

LAST 

938 

1 4,2665 

474  30 

0 

CATLOG , 2 

04  66 

REF 

3 

LAST 

938 

14,2666 

0 2731 

0 

SAX 

0665 

14,2667 

50025 

0 

DSU 

BMN 

0466 

REF 

2 

LAST 

938 

14,2670 

3 0765 

0 

CSS33 

0467 

REF 

l 

14,2671 

3 0661 

0 

PIC3 

0468 

14,2672 

477  7 3 

1 

VLQAD* 

DCT* 

0469 

REF 

3 

LAST 

938 

14,2673 

30347 

1 

CATLOG, 1 

0470 

REF 

4 

L A ST 

933 

14,2674 

47430 

0 

CATLOG, 2 

0471 

14,2675 

91025 

1 

DSU 

B PL 

0472 

REF 

1 

14,2676 

30763 

0 

CSS40 

0473 

REF 

2 

LAST 

93S 

14,2677 

30661 

0 

PIC3 

0474 

14,2700 

45173 

0 

VL.OAD* 

CALL 

0475 

P EF 

5 

LAST 

938 

14 , 2701 

3034  7 

1 

CATLOG, 1 

0476 

P E F 

1 

14, ?702 

30740 

1 

OCCULT 

0477 

14,2703 

77614 

1 

BON 

0478 

P.EF 

I 

14,2704 

01710 

0 

CULTFLAG 

0479 

RFF 

3 

LAST 

938 

14,2705 

30646 

0 

P I C 1 
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XI  = 37  X 6 +6 


SAX  = SHAFT  AXIS 
S 1 = S2  = 6 


MAJOR  STAR 


GAP:  ASSEMBLE  REVISION  001  OF  AGC  PROGRAM  AP11RQPE  BY  EYLES 


P51 -P53 


0480 

14,2706 

45173 

0 

0481 

REF 

6 

LAST 

938 

14,2707 

47430 

0 

0482 

REF 

2 

LAST 

933 

14,2710 

30740 

1 

043  3 

14,2711 

77614 

1 

0484 

REF 

2 

LAST 

938 

14,2712 

01710 

0 

0485 

PEF 

3 

LAST 

938 

14,2713 

30661 

0 

0486 

14,2714 

77614 

1 

0487 

REF 

2 

LAST 

° 37 

14,2715 

01605 

0 

048  8 

REF 

1 

14,2716 

30733 

0 

0489 

14,271.7 

6r  120 

1 

0490 

RFF 

5 

LAST 

938 

14,2720 

02755 

1 

04Q  1 

D C C 

? 

1 ACT 

124 

14,2721 

02  7 56 

1 

0492 

“Li 

c. 

t.  RO  I 

14,2722 

47773 

1 

0493 

PEF 

1 

L A ST 

939 

14,2723 

30347 

1 

0494 

REF 

8 

LAST 

939 

14,2724 

47430 

0 

0495 

14,2725 

43006 

0 

0496 

RFF 

3 

LAST 

939 

14,2726 

01545 

1 

04.97 

REF 

14, 2727 

30717 

o 

0498 

14,2730 

45345 

1 

0499 

14,2731 

77644 

1 

0500 

REF 

4 

LAST 

939 

14,2732 

3 066  1 

0 

0501 

14 , 273  3 

67130 

1 

050  2 

REF 

6 

LAST 

939 

14,2734 

02755 

1 

0503 

REF 

3 

LAST 

93° 

1 a , ?73  9 

02756 

1 

0504 

14,2736 

77650 

1 

0505 

REF 

5 

LAST 

939 

14, 2737 

30661 

0 

0506 

14,274-0 

51321 

0 

0507 

REF 

1 

14,274  1 

02707 

0 

05  08 

REF 

1 

14 , 2742 

00017 

1 

050  Q 

1 / , ? 74  7 

7 7654 

o 

0510 

REF 

1 

14,2744 

30757 

1 

0511 

14,2745 

75240 

0 

0512 

REF 

2 

LAST 

939 

14,2746 

30757 

1 

0513 

REF 

364 

LAST 

9 20 

14, 2747 

0 C 1 60 

0 

0514 

14,2750 

78240 

0 

0515 

REF 

3 

LAST 

939 

14,275  1 

39757 

1 

0516 

REF 

365 

LAST 

939 

14,2752 

00162 

1 

0517 

14,2753 

43040 

1 

0518 

REF 

4 

LAST 

939 

14,2754 

30757 

1 

0519 

REF 

3 

LAST 

939 

14,275 5 

01630 

0 

0520 

PEF 

8 

LAST 

835 

14,2756 

0 C 0 5 2 

0 

0521 

14, 275  7 

77  614 

1 

0522 

REF 

4 

LAST 

939 

14,2760 

01430 

1 

0523 

REF 

9 

LAST 

939 

14,2761 

00052 

0 

0524 

PEF 

3 

LAST 

936 

0016 

052  5 

14 , 276  2 

05110 

1 

052  5 

14,2763 

35052 

0 

0526 

14,2764 

05110 

1 

0526 

14,2765 

35052 

0 

0527 

14,2766 

77414 

0 

VLOAD* 


BOW 


STPATGY  BONCLR 


XCHX,  1 


STRAT 


NEWPAR 


OCCULT 


CUl  TED 

CSS 

CSS40 

CSS33 

PICEND 


VLOAD* 


PUSH 


DLOAD 
BP  L 

SXA,  1 


GOTO 
MX  V 

BZE 

BMN 

BMW 

BMN 

SETGO 

2DEC 
2 DEC 
BOFF 


CALL 

C ATLOG  r 2 
OCCULT 

CULTFLAG 

PIC3 

VFLAG 
NEWPAR 
XCHX, 2 
BESTI 
BEST  J 
DOT  * 

CATLOG,  1 

CATLOG.2 

30FINV 

VFLAG 

STRAT  -3 

DSU 

P IC 3 
SXA  ,2 
BEST! 
BESTJ 

P I C 3 
BVSU 
CULTFIX 
CSS 

CULTED 

S IGN 

CULTED 

HP AC  +3 

S IGN 

CULTED 

MPAC  + 8 

CLRGO 

CULTED 

CULTFI.AG 

QPRET 

CULTFLAG 
QPRET 
CEARTH 
. 16070 

.16070 

EXIT 


3:15  DEC.  2,1970  LEMP50S 
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COS  50  M 


COS  50  / 4 


GAP 


ASSEMBLE  LEVISI1N  001  OF  A&C  PROGRAM  AP11RDPE  BY  EYLES 


L 

P51- 

P 5 3 

0528 

REF 

4 

LAST 

939 

0529 

REF 

1 

0530 

REF 

1 

0531 

0532 

RFF 

7 

LAST 

939 

053R 

REF 

4 

LAST 

939 

0534 

053  c 

REF 

4 

LAST 

938 

0536 

REF 

9 

LAST 

939 

0537 

0538 

REF 

5 

LAST 

960 

05  3Q 

REF 

10 

LAS  T 

Q4-0 

0540 

0541 

0542 

REF 

1 

0543 

REF 

5 

LAST 

940 

0544 

0545 

REF 

g 

1 AST 

940 

0546 

0547 

REF 

5 

LAST 

937 

054  8 

REF 

6 

LAST 

940 

054c 

PEF 

4 

LAST 

491 

0550 

0551 
055? 
0553 
05  5 A 

0555 

0556 


276  7 

01745 

0 

2770 

30772 

0 

2771 

0 3013 

0 

TC 

2772 

73150 

1 

PICGXT 

LXA  , 1 

2773 

C2755 

1 

2774 

02756 

1 

2775 

47775 

1 

VLOAD 

2776 

02731 

0 

2777 

30347 

1 

3000 

47715 

1 

PDVL 

3001 

02  731 

0 

3 00  2 

6-74  30 

0 

3003 

77625 

0 

DSU 

3004 

66044 

1 

RPL 

3005 

31011 

0 

3006 

02756 

1 

3007 

77734 

1 

SXA  ,2 

30 1 0 

02755 

1 

3 ( 1 i 

7 7776 

1 

P ICNSWP 

EX  I T 

3012 

25' 745 

0 

I NCR 

3013 

3 1745 

0 

PICBXT 

CA 

3014 

0 6 622 

0 

TC 

0000 

VP  D 

= 

0006 

VO 

= 

0014 

VI 

= 

0022 

V 2 

= 

0030 

V3 

= 

0036 

DPO 

= 

0040 

DP  1 

= 

14 

14 

1 4 

14 

l A 

14 

14 

14 

14 

14 

16 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 
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940 


VFLAG 

PICGXT 

PICBXT 

L XA  ,2 

BESTI 

REST  J 

DOT* 

SAX 

CATLOG, 1 
DOT* 

SAX 

CATLOG, 2 

SXA , 1 
P ICNSWP 
BEST  J 

BESTI 

QMIN 
QM  IN 
S'WC  A!  L 
OD 
60 
1 2D 
18D 
24D 
30D 
3 2D 


GAP  : 

L 

P0557 
R055P 
R0559 
R0560 
R05M 
R 0 *>  6 ? 

0563 

0564 

0565 

0566 

0566  1 
05662 

0567 

0568 
056Q 

0570 

0571 

0572 

0573 

0574 

0575 

0576 

0577 

0578 

0579 

0580 

0581 
0532 

0583 

0584 

0585 

0586 

0587 


ASSEMBLE  RE  VISION  0<1  OF  A GC  PROGRAM  APLIROPE  BY  EYl.ES 
Pc 1 — P 5 3 

NAME— R 5 1 FINE  ALIGN 

FUNCTIGN-TO  ALIGN  THE  STABLE  MEMBER  TO  REFSMMAT 
CALLING  SEQ-  CALL  K51 
INPUT  - REFSMMAT 
OUTPUT-  GYF.n  TPROUE  PULSES 

SURPPUTINES  -1  OCSAf-  , PICAPAF  ,P5?,P  53,R54,P55 


REF 


REF 

5 

LAST 

933 

REF 

78 

LAST 

928 

REF 

2 

LAST 

179 

REF 

258 

LAST 

933 

REF 

6 

LAST 

931 

REF 

/.<  ^ 

LAST 

933 

REF 

1 

REF 

177 

LAST 

937 

REF 

25 

LAST 

852 

REF 

1 

REF 

2 

LAST 

935 

REF 

259 

LAST 

941 

PEF 
REF 
d fF 

REF 


1 

1 

2 

37 


PE  F 1 
REF  260 


LAST  941 
LAST  924 


LAST  9^1 


16.3015 

14.3016 

14.3017 

14 . 3020 

14.3021 

14. 3022 

14.3023 

14.3024 

14.3025 

14.3026 

14.3027 

14.3030 

14.3031 

14.3032 

14. 3033 
14,3036 

14.3035 

14.3036 

14.3037 
14, 3040 
14,304  l 
14,304? 

14. 3043 

14.3044 

14. 3045 

14. 3046 


77620  0 
02746  0 
77776  1 
0 5353  1 
04  024  0 

3 4761  0 
0 4616  1 
20623  1 
0 6001  0 
30  30  1 
3 5 3 1 
0 6037  0 
43234  0 
21573  0 
31163  1 
77624  1 
30506  1 
77776  1 
1 6 1 
30611  1 
0 3043  0 
0 3053  1 
0 5567  0 
00405  0 
3 5C  06  1 
0 4616  1 


R 5 1 


R 5 1 . 1 


R51C 


P51F 
R 5 1 1 


COUNT  * 
ST  Q 

EXIT 

TC 

OCT 

CAF 

TC 

CADR 

TC 

TC. 

TC 

TC 

RTB 


CALL 

EXIT 

TC 

CADR 

TC 

TC 

TC 

OCT 

CAF 

TC 


058« 

REF 

30 

LAST 

° 3 3 

1 4,3047 

2 0*76 

0 

C ADr 

058° 

REF 

45 

LAST 

94  1 

14 , 30  K0 

0 6001 

0 

TC 

05  90 

REF 

3 

LAST 

941 

14,3051 

0 3053 

1 

TC 

0591 

REF 

1 

14,3052 

0 3022 

1 

TC 

0592 

REF 

179 

LAST 

9 24 

14, 3053 

3 4755 

1 

R51E 

CAF 

0593 

REF 

3 

LAST 

746 

14,3054 

55’ 757 

1 

TS 

059* 

PEF 

178 

LAST 

94 1 

14,3055 

0 6037 

0 

P 5 1 . 2 

TC 

0595 

14, 3056 

77776 

1 

8 51.3 

EXIT 

0594 

REF 

79 

LAST 

941 

14,3057 

0 5353 

1 

TC 

0597 

14,3060 

04024 

0 

OCT 

0599 

RFF 

179 

LAST 

941 

14,3061 

0 6 037 

0 

TC 

060° 

14, 3062 

77624 

1 

CA1  L 

0601 

PEF 

1 

14, 3063 

31  670 

1 

0602 

14,3064 

77776 

1 

EXIT 

0603 

REF 

261 

LAST 

94  1 

14,3065 

0 4616 

1 

TC 
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4 


..Z 


$$/R51 

Q-VAJ 

PHASCHNG 

04024 

OCT  1 5 
BAN KCALL 
G0PERF1 
GOT  OPQOH 

+2  V33E 

R 5 1 E ENTER 

INTPRET 
DAD 

LOADTIME 

TSIGHT1 

LOCSAM 

BANKCALL 
R5fc 
R 51  I 
R 5 1 E 

ALARM  . 

405 

V BO 5 NO 9 
BANKCALL 
GOFL  ASH 
GOTOPOOH 
R 5 1 E 
R51C 
ZERO 
STAR IND 
INTPRET 

PHASCHNG 

04024 

INTPRET 

R52  AOP  WILL  MAKE  CALLS  TO  SIGHTING 


BANKCALL 


GAP:  ASSEMBLE  REVISION  001  OF  AGO  PROGRAM  AP1UGPE  BY  EYLES 


P51- 

■P  53 

0604 

REF 

1 

14,3066 

16000 

0 

CADP 

0605 

REF 

262 

LAST 

941 

14,3067 

0 4616 

1 

TC 

REF 

1 4, 3070 

17712 

G 

C ADR 

0607 

REF 

1 

14,3071 

0 5 711 

0 

TC 

0608 

REF 

u 

1 AST 

R4  1 

14,3072 

11 '757 

1 

CCS 

060« 

14, 3073 

1 3075 

1 

TCF 

061  0 

REF 

1 

14,3074 

0 3145 

1 

TC 

0611 

REF 

180 

LAST 

941 

14,3075 

0 6037 

0 

TC 

0612 

14,3076 

77775 

1 

VL.UAD 

061  3 

REF 

14 

LAST 

317 

14,3077 

02715 

0 

0614 

REF 

5 

LAST 

253 

14,3100 

02767 

0 

STORE 

0615 

14,3101 

77776 

1 

EXIT 

0616 

REF 

80 

LAST 

941 

14,3102 

0 5353 

1 

TC 

0617 

14,3103 

04024 

0 

OCT 

06  1 9 

REF 

1 81 

LAST 

94  2 

1 4 ,3104 

0 6037 

0 

TC 

0620 

14,3105 

45145 

0 

DLOAD 

0621 

R FF 

4 

LAST 

935 

14,310'- 

03542 

o 

0622 

REF 

1 

14, 3107 

32472 

1 

0623 

14,3110 

53521 

1 

MXV 

062  6 

REF 

41 

LAST 

938 

14,3111 

01734 

0 

062  c 

REF 

15 

L A S T 

942 

14,3112 

26715 

0 

STQVL 

06  26 

REF 

2 

LAST 

145 

14,3113 

03554 

0 

0627 

14,31 14 

53521 

1 

MXV 

062  E 

REF 

42 

LAST 

942 

14,3115 

01734 

0 

062° 

REF 

16 

LAST 

942 

14,3116 

26  707 

0 

STOVL 

0630 

REF 

3 

LAST 

19  ' 

l (,31X7 

02761 

0 

0631 

14,3120 

24007 

0 

STCJVL 

0632 

REF 

6 

LAST 

942 

14,3121 

02767 

0 

0633 

14,3122 

340  1 5 

3 

STCALL 

0634 

REF 

1 

14,3123 

31256 

1 

063'=; 

14,3124 

45014 

0 

BPFF 

0636 

, REF 

1 

14, 3125 

00354 

o 

06  37 

REF 

1 

14,3126 

31134 

0 

06  3 P 

REF 

1 

14,3127 

4 74  4 1 

0 

0639 

14,3130 

77624 

1 

CALL 

0640 

REF 

1 

14,3131 

31224 

1 

0641 

14,3132 

77614 

1 

CLEAR 

0642 

REF 

3 

LAST 

930 

14 , 3133 

C 1273 

0 

0643 

14,3134 

77  776 

1 

R 5 1 K 

EXIT 

0644 

REF 

2 

LAST 

18  1 

14,3135 

3 5751 

1 

R51P63 

CAE 

064  c 

REF 

263 

LAST 

942 

14,3136 

0 4616 

1 

TC 

0646 

REF 

7 

LAST 

941 

14,3137 

20623 

1 

CADR 

0647 

REF 

46 

LAST 

941 

14,3140 

0 6001 

0 

TC 

0648 

REF 

2 

LAST 

941 

14,3141 

0 3022 

1 

TC 

0649 

REF 

132 

LAST 

942 

14,3142 

0 60  37 

0 

TC 

065  0 

14,3143 

77650 

1 

GOTO 

0651 

REF- 

6 

LAST 

941 

1 4,3144 

02  746 

0 

0652 

REF 

183 

LAST 

942 

14, 3145 

0 6037 

0 

R51. 4 

TC 

0653 

14,3146 

77775 

1 

VLOAD 
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ACTMARK 
BANKCALL 
OPTSTAI  t 
CURTAINS 
STAR t ND 
+ 2 

R51 .4 
INTPRET 

STAR  AD  +6 
ST  A ■ SAV2 

PHASCHNG 

04024 

INtPRET 

CALL 

TSIGHT 

PLANET 

UNIT 

REFS MM AT 
ST  ARAD  +6 
PLANVEC 
UNIT 

REFSMMAT 
STARAD 
STATS  AVI 
6D 

STARS AV2 
1 2D 

R 54  STAR  DATA  TEST 

CALL 

FREEFLAG 
R 5 1 K 
AXISGEN 


R 55 


GYRO  TORQUE 


PFRATFL  G 

0CT14 

BANKCALL 

G0PERF1 

GOTOPCOH 

R 5 1 C 

TNTPRET 


QMAJ 
I NTPRFT 


GAP  : 


0654 

065? 

0656 

0657 
06?8 
065° 
066  0 
0661 
0662 
066  3 
066  4 
066  5 
066c 


ASSEMBLE  KE  VISION  001  OF  AGO  PROGRAM  AP11RUPE  BY  EYLES 
P51-P53 

REF  17  LAST  042  14,3147  02715  0 


REF  4 LAST  942  14,3150  02761  0 STORE 

14,3151  45145  0 DLOAO 

REF  5 LAST  942  14,3152  03562  0 

REF  2 LAST  942  14,3153  32472  1 

REF  3 LAST  9 41  14,3154  03554  0 STORE 

14,3155  77731  1 SSP 

REF  5 LAST  942  14,3156  02760  1 

14,3157  00001  0 

14,3160  7 7 to  5 0 1 GOTO 

° EF  1 14,316  1 31056  0 


14,316?  00002  0 TSIGHT1  20EC 

14,3163  06240  1 
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STAPAD  +6 

STARS  AVI 

CALL 

TSIGHT 

PLANET 

RLANVEC 

STARIND 

1 

R51.3 

36000  6 MIN  TO  MARKING 


GAP 


ASSEMBLE  !'E  VISION  001  OF  AGO  PF.Cbri.AM  APllROPE  BY  EYLES 


L P51-P53 


P 0666 

G Ye  t 

TORQUE  COARSE 

ALIGNMENT 

0667 

14,3164 

45020 

1 

GYCCARS 

STQ 

06671 

REF 

7 

LAST 

942 

14,3165 

02746 

0 

0668 

REF 

1 

14,3166 

47247 

0 

0669 

14, 3167 

4 3014 

0 

Ct  EAR 

0670 

RFF 

2 

LAST 

863 

14,3170 

01260 

1 

0671 

REF 

3 

LAST 

930 

14,3171 

01662 

1 

0672 

14,3172 

77776 

1 

EX  IT 

0673 

REF 

1 

14,3173 

3 32  2 3 

1 

CAF 

0674 

REF 

2 64 

LAST 

942 

14,3174 

0 4616 

1 

TC 

0674 

REF 

3 

LAST 

850 

14,3175 

20451 

0 

CADR 

0676 

REF 

1 

14, 3176 

3 3255 

0 

CA 

06  77 

REF 

265 

LAST 

944 

14, 3177 

0 *616 

1 

TC 

0678 

REF 

4 

LAST 

388 

14,3200 

1 7323 

0 

CADR 

0679 

REF 

266 

LAST 

944 

14,320.1 

0 4616 

1 

TC 

0680 

REF 

3 

LAST 

378 

14,3202 

17716 

1 

CADR 

0681 

REF 

2 

LAST 

942 

14,3203 

0 5711 

0 

TC 

0682 

REF 

8 l 

LAST 

94  2 

14,32  0 1 

0 5 353 

x 

TC 

0633 

1^,8208 

04024 

0 

OCT 

0685 

REF 

184 

LAST 

942 

14,3206 

0 6037 

0 

TC 

06  36 

14, 3207 

75160 

1 

A XC  , 1 

0637 

REF 

6 

L AST 

932 

16,3210 

03606 

1 

0688 

REF 

43 

LAST 

94  2 

14,3211 

017  3 3 

1 

068° 

14,3212 

77624 

1 

CAL  L 

0690 

REF 

1 

14, 3213 

31377 

0 

0691 

14,3214 

43014 

0 

CLEAR 

0692 

REF 

4 

LAST 

942 

14,3215 

01273 

0 

0693 

REF 

4 

LAST 

94  4 

14,3216 

01462 

0 

0694 

14,3217 

7 76  24 

x 

CALL 

0695 

REF 

1 

14,3220 

31602 

1 

06951 

14,3221 

77650 

1 

GOTO 

0696 

REF 

2 

LAST 

942 

14,3222 

31134 

0 

0697 

14,3223 

04024 

0 

V16N20 

VN 
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CALL 

QMAJ 

CALCGTA 

CLEAR 

DR  I FT  FI G 
REFSMFLG 

V16N20 

BANKCALL 

GODSPR 

P 55CQR 
BANKCALL 
IMUPULSE 
BANKCALL 

I MU STALL 
CURTAINS 
PHASCHNG 
04024 

MONITOR  GIMBALS 

INTPRET 

A XC , 2 

X SMD 

pefsmmat 

MATMOVE 

SET 

PFRA7FLG 

REFSMFLG 

STORE  DESIRED  REFSMMA  T 

NCOARSE 

R 51  K 

1620 

SET  DRIFT  AMD  INITIALIZE  1/PIPADT 

GAP:  ASSEMBLE  ®E VISION  001  OF  AGC  PROGRAM  API 1RQPE  BY  EYLES 


P0698 
R 0699 
P 0700 
P 070 1 
R0702 
R 070  3 

0704 

0705 

0706 

0707 

0708 
0700 
07  in 

0711 

0712 

0713 
071 A 
071  ^ 

0716 

0717 


P51-P53 

R 5 5 GYRO  TORQ 
FUNC1 ION-COMPU 
CALL  IMG  SEQ-  C 
INPUT-  X * Y i Z DC 
OUTPUT-  GYRO  P 
SUBROUTINES-  C 
REF  1 


UE 

TE  AND  SEND  GYRO  PULSES 
ALL  K55 

- REF SR  MAT  WRT  PRESENT  STABLE  MEMBER 
ULSES 

ALCGTA ,GOFI  ASH, GODS  PR,  IMUF  INF, 


REF 

REF 


7 LAST 
2 LAST 


REF  1 
REF  267 
REF  31 


REF 
REF 
° EF 

REF 


<1 

1 

1 

82 


LAST 

LAST 

LAST 


940 

944 


944 

941 

94? 


LAST  944 


14.3224 

14.3225 
I*  , 7226 
14, 3227 

14.3230 

14.3231 

14.3232 

14.3233 

14.3234 

14.3235 

14.3236 

14.3237 
14, 3240 


77620  0 
02  745  0 
77624  1 
47247  0 
77776  1 
3 3254  1 
) 46 1 1 

20476  0 
0 6001  0 
0 3237  1 
0 32^1  1 
0 5353  1 
00214  0 


R55 


PULS 
R 55  . 


IMUPULSE, G0PERF1 

COUNT  * $ $/R5  5 
STO 


EM 

1 


R55.  2 


0718 

REF 

2 

LAST 

944 

14,3241 

3 3255 

0 

0719 

REF 

268 

LAST 

945 

14,3242 

0 46  16 

1 

0720 

REF 

5 

LAST 

944 

14,3243 

17323 

0 

072  l 

REF 

269 

LAST 

945 

14,3244 

0 46  16 

1 

0722 

REF 

9 

LAST 

944 

14,3245 

17716 

1 

0723 

REF 

3 

LAST 

944 

14,3246 

0 5711 

0 

0724 

REF 

83 

LAST 

945. 

14,3247 

0 535  3 

1 

072  5 

14,3250 

04024 

0 

0727 

REF 

185 

LAST 

944 

14, 3251 

0 6037 

0 

0728 

14,3252 

77650 

1 

072° 

REF 

8 

LAST 

945 

14,3253 

02745 

0 

0730 

14,3254 

015  35 

0 

07  3 1 

REF 

11 

LAST 

386 

1 4 , 32  5 5 

02737 

0 

0732 

RFF 

1 

14,3256 

1 0733 

ROUTINE 

NAME- 

CHKS  CAT  A 

.0735 

MOD 

NO- 

0 

0737 

MODIFICATION  BY-  LONSKE 

V06N93 
R 5 5 CDF, 
R54 


CAL  L 

EXIT 

CAF 

TC 

CADR 

TC 

TC 

TC 

TC 

OCT 

CA 

TC 

C ADr 
TC 

CADR 

TC 

TC 

OCT 

TC 

GOTO 

VN 

FCADR 


QN  IN 

CALCGTA 

V06N93 

B ANKCAL.L 

GOFLASH 

GOTOPOOH 

P55.2 

R56RET 

PHASCHNG 

00214 

F 55 CDF 

BANKCAL  L 

I NUPUL  c E 

B ANKC ALL 

IMUSTALL 

CURTAINS 

PHASCHNG 

04024 

INTPRET 

QMI  N 
0603 
OGC 

CHKSDAT  A 
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DATE-  JAN  9,  1967 
LOG  SECTION-  P51-P53 
ASSEMBLY- 

R 07  3 FUNCTTGNAl  DESCRIPTION  - CHECKS  tHE  VALIDITY  OF  A PAIR  OF  STaP  SIGHTINGS.  WHEN  A PAI  OF  STAR  SIGHTINGS  APE 

70741  by  the  a:  Tr  ■ AUi  * HIS  r uUTI NE  OPERATES  AND  CHECKS  THE  OBSERVED  SIGHTINGS  AGAINST  STORED  STAR  VECTORS  IN  THE 
R 074  CO/PIJTF  T!  r-!SU:  E A PPopg  FIGHTING  WAS  MADE.  THE  FOLLOWING  COMPUTATIONS  ARE  PERFORMED. 

R074c  0S1  = OBSERVED  STAR  1 VECTOR 

R 07 46  0S2  = OBSERVED  STAR  2 VECTOR 

R 074 7 SSI  = STORED  STAP  1 VECTOR 

R 074 b SS2  = STORED  STAR  2 VECTQPv 

P 0749  A 1 = AP CCnS ( OS  1 - 0S2  » 

R 075  0 A2  = AP.CC0SISS1  - SS2) 

R 07  5 1 A = A B S '(  2 ( A 1 - A 2 ) > 


945 


MADE 
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L P 5 1 -P  5 3 


USER'S  PAGE  NO.  21 


RC752  THE  ANGULAR  DIFFERENCE  IS  DISPLAYED  FOR  AS  TP  ON  AUT  ACCEPTENCE 
P 075  3 EXIT  MODE  1.  FPEEFLAG  SET  IMPLIES  ASTRONAUT  WANTS  TO  PROCEED 

R0754  2.  FREEFLAG  RESET  IMPLIES  ASTRONAUT  WANTS  TO  RECYCLE  ERANCE) 

R 07  5 r I'UTpiK  - l.VFRB  ;,N1U1  3-  0 I S P t AYS  ANGOLA!-  DIFFERENCE  BETWEEN  2 SETS  OF  STAR'S. 

R 07  5 8 2 . S T A i VECTORS  F;-:  n " STAF  CATALOG  ARE  LEFT  IN  6D  AND  12D. 


R Of 5 9 ERASABLE  INITIALIZATION  REQUIRED  - 

R0760  1 .MARK  VECTORS  ARE  STORED  J.N  STARAD  AND  STARAD  +6. 

R07fc>  1 2 . CAT  AL-  )G  VECTOR'S  ARE  STL  LED  IN  6D  AND  120. 

R 076  2 DEBRIS  - 

0763  REF  1 COUNT  * t$/F.54 

0764  1-4,3256  43020  1 CHKSDATA  STQ  SET 


0765 

REF 

9 

LAST 

945 

14,3257 

02745 

0 

0766 

REF 

2 

LAST 

942 

14, 3260 

00074 

1 

0767 

16 , 1261 

77760 

0 

CHKSA8 

0768 

1 EF 

13 

LAST 

943 

14,3262 

02706 

1 

R 0769 

0770 

1 4 , i2 63 

4777  3 

C HKS  8 

0771 

14,3264 

C0C01 

0 

077  2 

14 , 3265 

00007 

0 

0773 

1 4,3266 

6 5 5 5 2 

0 

J-  ■:  ? <6L'J 

077 

REF 

1 

14, 3267 

0002  5 

0 

0775 

14,3270 

43014 

0 

077  6 

<;  EF 

3 

L A V T 

946 

1 4 , 3 2 7 1 

0 03  54 

0 

0777 

REF 

1 

14,3272 

31302 

1 

0778 

REF 

4 

LAST 

946 

14,3273 

00174 

0 

0779 

14,3274 

71360 

1 

078  0 

14,3275 

C0C06 

1 

073  1 

REF 

2 

LAST 

946 

14,3276 

00025 

0 

078  2 

14,3277 

0 0 c 2 3 

0 

0783 

14,3300 

77650 

1 

0784 

REF 

1 

14,3301 

31263 

1 

078  5 

14,3302 

45345 

1 

CHKSD 

0786 

REF 

3 

LAS" 

9 4 0 

14,3303 

00025 

0 

0707 

14,3304 

C 002  3 

0 

0788 

14,3305 

<•>7046 

f) 

0789 

REF 

5 

LAST 

877 

14 , 33C  6 

21612 

1 

0790 

REF 

1 

14, 33C  7 

01046 

1 

07  91 

14, 3310 

774  14 

n 

M 

0792 

REF 

5 

LAST 

946 

14,3311 

00074 

1 

07  9 3 

REF 

1 

1 4 ,3312 

3 33  26 

0 

0794 

REF 

270 

LAST 

945 

14,3313 

0 ^6  16 

1 

0795 

REF 

32 

LAST 

945 

14,3314 

20476 

0 

0796 

REF 

48 

LAST 

945 

14,3315 

1 6001 

1 

0797 

F EF 

1 

14,33  16 

0 3323 

0 

07  9 8 

REF 

186 

LAST 

945 

14, 3317 

0 6037 

0 

079° 

14,3320 

52014 

0 

0800 

REF 

6 

L A 3T 

946 

14,3321 

002  74 

0 

0801 

REF 

10 

LAST 

946 

14,3322 

02745 

0 

0802 

REF 

187 

1 AST 

946 

14,3323 

0 6037 

0 

CHKSDA 

QP.TN 

FREEFLAG 

AXC , 1 SET  XI  TO  STORE  EPHEMERIS 

STARAD 


VIOA'B*  DOT  * CAL.  ANGLE  THETA 


St  1 

0,1 

6,1 

A COS 

S TOR  E 
80  FF 

THETA 

INVERT 

F ;■ ; E E F 1 AG 

BRANCH 

TO  CHKSD  IF 

THIS  IS 

AXC  f 1 

CHKSD 

FPEEFLAG 

DLOAD 

CLEAR 
SET  XI 

FREEFLAG 

Tn  M AO  AN'm  PC 

S yn  q g 

60 

THETA 

1 3D 

GOTO 

n l n a n 

CHKSB 

DSU 

RETURN 

TO  CAL.  2ND 

ANGLE 

ABS 

THETA 

18D 

RTB 

COMPUTE  PGS  DIFF 

SGNAGREE 
STORE  N0RMTEM1 

SET  EXIT 

FREEFLAG 
CAE  VB6N5 

TC  BANKCALL 

CADH  GOFLASH 

TCF  GOTOPOOH 

TC  CHKSDA  PROCEED 

1C  INTPRET 

CLEAR  GOTO 

FREEFLAG 

QMIN 

TC  INTPRET 


15 

E5  S3 


DATA 


2ND  PASS 
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0803 

0804 

0805 
R 0806 
RCe07 
R 0808 
R 080° 
R 0810 
R 08 1 1 
R 081  2 

0813 
081  ^ 
0815 

0817 

0818 
081? 
0820 
0821 
0822 

0823 

0824 

0825 
0825 

0827 

0828 
062c 
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REF  11  LAST  946 


14.3324 

14.3325 

14. 3326 


77650  1 
02745  0 
01405  1 


GOTO 


VB6N5 


VN 


QMIN 

605 


NAMF  - CAL53A 
FU'fCT  I ON  -C  ' 'IP 
CALLING  SEQUEM 
INPUT  - X ,Y  ,ZS 
DESIRE 
OUTPUT  - THE  1 
SUBROUTINES  - 
REF  1 


UTE  DESIRED  GIMBAL  ANGLES  AND  COARSE  ALIGN  IF  NECESSARY 
CE  - CALL  CAL  53 A 
MD  , CDUX , Y , Z 

D GIMBAL  ANGLES  - T HET AD  , + 1 , +2 
MU  COORDINATES  ARE  STORED  IN  REFSMMAT 
S 5 2 • 2 , I MUCOA  SE  , IMIJFINE 


R E F 


LAST  930 


REF  1 

REF  8 LAST 


938 


REF  10  LAST  3 7< 


14,3327 

14.3330 

14.3331 

14.3332 
1 +, 3333 
14,3334 
14,3336 

14.3336 

14.3337 
14,3340 
1 4,  334  1 
1 4,  3342 

14.3343 

14.3344 

14.3345 


775  24 
31617 
66234 
31413 
00051 
00001 


40370  1 


P0C03 
00005 
7 05  43 


0830 

REF 

1 

14, 3346 

31412 

1 

0831 

l7  , 33?? 

71240 

L 

0832 

pef 

1 

14 , 3360 

31366 

0 

0833 

14, 3361 

51025 

1 

0834 

REF 

1 

14,3352 

31413 

0 

0835 

REF 

2 

LAST 

947 

14,3353 

31366 

0 

083  5 1 

14,3354 

77776 

1 

083R  2 

REF 

84 

LAST 

945 

14,3355 

0 5353 

1 

08353 

14,3356 

04024 

0 

08354 

REF 

188 

LAST 

946 

14,3357 

0 6037 

0 

0835 

14,3360 

77624 

1 

0837 

REF 

1 

1 4,3361 

31565 

0 

083  8 

14,3362 

77624 

1 

083  c 

IFF 

2 

LAST 

944 

14,3363 

31602 

1 

0840 

14, 3364 

77650 

1 

0841 

REF 

1 

14,3365 

31370 

1 

0842 

14,3366 

77700 

0 

0843 

REF 

1 

14,3367 

31340 

1 

0844 

14,3370 

75160 

1 

0845 

REF 

17 

LAST 

933 

14,  337  1 

02642 

0 

094  A 

RFF 

44 

LAST 

0^4 

1 4 , 3172 

01733 

I 

0847 

14,3373 

77624 

1 

0848 

REF 

2 

LAST 

944 

14, 3374 

31377 

0 

CAL  K 3 A 


CALLUP 


00325  0 


70523  1 
00005  1 
51425  0 
45206  1 


COAR  FINE 


CALC0P1 


FIN  FOWL Y 


COUNT  * $ $ /r  5 0 
CAU 


RTB 


AXT  , 1 


S 52 . 2 
SSP 

RDCDUS 
SI 
1 

SET  PD 

3 

4 

DLGAU*  SRI 

THETAD  + 3D , 1 
SRI 
4,1 
ABS 
DSU 

DEGREE  1 
DLOAD 
CAL00P1 
RPL 

DEG359 
CALC0P1 


MAKE  ONE  FINAL  COMP  3F  GIMBALE  ANGLES 


READ  C DUS 


P DDL  * 


DSU 

PUSH 


BMN 


DSU 


EX  1 T 

TC 

OCT 


PHASCHNG 

04024 


TC 

CALL 


CALL 

GOTO 

T I X , 1 


INTPRET 
COARSE 
NCOARSE 
F INEONLY 


CALOOP 

AXC  , 1 AXC  , 2 


XSM 

REFSMMAT 


CALI 


MATMCVE 


I 
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GAF  : 


P51- 

P53 

0849 

14,3375 

77650 

1 

GOTO 

0850 

REF 

1 

14,3376 

32161 

0 

COAR  SRET 

nRRi 

14, 3377 

77773 

l 

MATMC VE 

VLUAD* 

085? 

16,3400 

0C001 

0 

0,1 

0853 

14,3401 

liOul 

1 

STORE 

0,2 

0854 

14,3402 

77773 

1 

VtO AD* 

08  5 c- 

14,3403 

00007 

0 

60,1 

0856 

14,3404 

10007 

1 

STORE 

60,2 

0857 

14,3405 

77773 

1 

VLOAD* 

0851 

14,3406 

00015 

0 

1 2D , 1 

085  9 

14,3407 

1001q 

r 

STORE 

120,2 

0860 

1 4 , 3 ' 1 0 

77616 

0 

R VQ 

0861 

14,3411 

00056 

l 

DEGREE1 

DEC 

46 

0862 

14,3412 

37722 

i 

DEG359 

DEC 

16338 

0863 

14,3413 

0 0004 

0 

RDCDUS 

INHINT 

0864 

REF 

16 

l AST 

91  1 

16,3414 

3 0032 

0 

CA 

C DU  X 

0865 

REF 

31 

LAST 

o?  i 

14,3415 

50  120 

1 

INDEX 

FIXLOC 

0866 

X 4 , 34 1 6 

5 4 001 

\ 

T S 

x 

0867 

RFF 

7 

LAST 

91  1 

14, 341 7 

3 0033 

1 

CA 

C DU  Y 

0868 

REF 

32 

LAST 

948 

14,3420 

50  120 

1 

INDEX 

FIXLOC 

0869 

14,3421 

54  0 02 

1 

TS 

2 

0870 

RFF 

10 

LAST 

91  1 

14,3422 

3 0034 

0 

CA 

CDUZ 

087  1 

REF 

33 

LAST 

948 

14,3423 

50  120 

1 

INDEX 

FIXLOC 

0872 

14,3424 

54  00  3 

0 

TS 

3 

0873 

14 ,3425 

0 0003 

1 

RELINT 

0874 

REF 

1 

14,3426 

0 6061 

0 

TC 

DANZ  IG 

0875 

REF 

1 

COUNT  * 

$$/ INFLT 
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TRANSFER  MAT!  IX 


1 DEG  SCALED  CDU/2 
359  DEG  SCAL  ED  CDU/2 
READ  CDUS 


+ 


« 


» 


9 
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i 

> L 

P51-P53  USER'S  PAGE  NO.  24  E5  S3 

P 091  7 
i R091R 

R 0920 

NAM  F - P51  - IMU  ORIENTATION  DETERMINATION 

MOD. NO. 1 23  JAN  67  LOG  SECTION  - P51-P53 

MUD  BY  ST URLAUGSt-N  ASSEMBLY  SUNDANCE  REV56 

f R 0922 

FUNCTIONAL  DESCRIPTION 

R 0923 
t R0925 

R 0927 

R 092  c 

► 

DETERMINES  THE  INERTIAL  ORIENTATION  OF  THE  IMU.  THE  PROGRAM  IS  SELECTED  BY  DSKY  ENTRY.  THE  SIGHTING 
( AOTMARK) ROUT INE  IS  CALLED  TO  COLLECT  AND  PROCESS  MARKED-STAR  DATA.  AOTM ARK ( R 53 ) RETURNS  THE  STAR  NUMBER  AND  THE 
STA  LOS  VECTOR  IN  STAPAO+6.  TWO  STARS  ARE  THUS  SIGHTED.  THE  ANGLE  BETWEEN  THE  TWO  STARS  IS  THEN  CHECKED  AT 

CHKSD AT  A( R54 ) . R EFSMMAT  IS  THEN  COMPUTED  AT  AXISGEN. 

R 0930 

C At  1 ING  SEQUENCE 

> R 0°3 ] 

THE  PROGRAM  IS  CALI  ED  BY  THE  ASTRONAUT  BY  OSKY  ENTRY. 

R 09  3 2 

► 

SUBROUTINES  CALLED. 

R 0933 
R0934 

► R 093  f 
R0936 

K 09  37 

► 

R 093° 

R 094  0 

1 

R 0942 

GnpEPF3 

G0PERF1 

GODS  PR 

IMUCOAKS 

I RUE IN20 

AOTMAPKIR 53) 

C HKS  DAT  A I r 54  ) 

MKRELEAS 

AXISGEN 

MATMOVE 

1 R 094 3 

ALARMS 

R 0944 

NONE  . 

R 0945 

EASARLE  INITIALIZATION 

R 0946 

7MU  ZElii  FLAG  SHOULD  BE  SET. 

R 0947 

OUTPUT 

R 0948 

R 0949 

REFSMMA7 

R EFSMFLG 

R 0950 

DEBPI  S 

R 095  1 
R0952 

R 0953 

R 0°5  ' 

R 095  5 

WORK  AREA 

STAR  AD 

STAR IND 

BEST  I 

BEST  J 

0956 


REF 


1 


COUNT  * $ $ / P 5 1 


GAP 
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0957 

REF 

271 

LAST 

946 

14,3427 

0 46  16 

1 

P 9 1 

TC 

BANKCALL 

IS  ISS  ON  - IF  NOT,  I MUCHK  WILL  SEND 

0°5  B 

REF 

1 

14,3430 

33652 

0 

CADP 

I MUCHK 

ALARM  CODE  210  AND  EXIT  VIA  GOTOPOOH. 

0959 

9 EF 

3 

LAST 

941 

16,3431 

3 4761 

0 

CAF 

CCT15 

0960 

9 EF 

272 

LAST 

950 

14,3432 

0 4fc  1 6 

1 

TC 

CANKCAl  1 

096  1 

''  FF 

8 

LAST 

94  2 

14,3433 

20623 

1 

CADP 

G0PEPF1 

0962 

REF 

49 

LAST 

946 

14 , 3434 

0 6001 

0 

TC 

GOTOPOOH 

TERM. 

0963 

REF 

1 

14,3435 

1 3461 

0 

TCF 

P51B 

V 3 3 

0964 

REF 

85 

LAST 

947 

14,3436 

0 5353 

1 

TC 

PHASCHNG 

056  5 

1 '■  » 3437 

04  024 

0 

DC  T 

04024 

0967 

RFF 

180 

l AST 

QA  l 

16 ,346 0 

3 47  55 

1 

CAF 

ZERO 

096  8 

P EF 

11 

LAST 

947 

14, 3441 

54  321 

0 

TS 

THETAD 

ZERO  THE  GIMBALS 

0969 

REF 

12 

LAST 

950 

14,3442 

54  322 

0 

TS 

THETAD  +1 

0970 

REF 

13 

LAST 

96n 

14, 3443 

5'  32  3 

1 

TS 

THETAD  +2 

0971 

REF 

3 

LAST 

030 

14,3444 

3 5010 

0 

CAF 

V<’6N22 

0972 

RFF 

273 

LAST 

5 50 

1 4,3445 

0 4616 

1 

TC 

BANKCAH 

0973 

REF 

3 

I AST 

757 

14, 34A  ft 

2 0446 

0 

CADP 

GODSPPET 

0974 

REF 

1 

14, 3447 

3 3 5 64 

0 

CAF 

V4IK 

NOW  DISPLAY  COARSE  ALIGN  VERB  41 

0975 

REF 

274 

LAST 

950 

14,3450 

0 4616 

1 

TC 

BANKCALL 

0976 

REF 

4 

LAST 

950 

14,3451 

20446 

0 

CADR 

GODSPPET 

0977 

REF 

18  - 

LAST 

947 

14,3452 

0 6037 

0 

TC 

INTPRET 

0978 

14,3453 

77624 

1 

CALL 

0479 

REF 

2 

LAST 

947 

14, 3 a 5 4 

31565 

0 

COARSE 

0980 

14,3459 

77776 

1 

EXIT 

0981 

REF 

86 

LAST 

950 

14,3456 

0 5353 

1 

TC 

PHASCHNG 

0982 

14, 3457 

G4024 

0 

OCT 

04024 

05  84 

REF 

2 

LAST 

233 

14,3460 

l 3431 

0 

TCF 

P51  +2 

098  5 

° FF 

87 

LAST 

950 

14,3461 

0 5353 

1 

P 5 1 B 

TC 

PHASCHNG 

0°86 

14,3462 

00014 

1 

OCT 

00014 

0987 

REF 

190 

LAST 

950 

14,3463 

0 6037 

0 

TC 

INTPRET 

0983 

14,  346  4 

77624 

('All 

GMl.  1- 

0989 

RFF 

3 

LAST 

547 

14,3465 

31602 

1 

NCQARSE 

0990 

14 ,3466 

403  31 

1 

SSP 

SET  PD 

059  1 

RFF 

6 

LAST 

943 

14, 3467 

02760 

1 

STAR TND 

INDEX-STAR  1 OR  2 

0992 

14,3470 

00000 

1 

0 

0993 

14,3471 

000  01 

0 

0 

099' 

14 ,3472 

77776 

1 

P51C 

EXIT 

0995 

RFF 

88 

LAST 

950 

1 a,  3'-7  3 

0 5 3 53 

1 

TC 

PHASCHNG 

0996 

14,3474 

04024 

0 

OCT 

04024 

0998 

REF 

275 

LAST 

950 

14,3475 

0 4616 

1 

TC 

BANKCALL 

0999 

REF 

2 

LAST 

942 

14,3476 

16000 

0 

CADP 

ACT  MARK 

P 53 

1000 

REF 

276 

LAST 

950 

14,3477 

0 46  16 

1 

TC 

BANKCAL  L 

ICO] 

RFF 

1 

] 4,3500 

17712 

0 

CADP 

AOTSTALL 

1002 

REF 

4 

LAST 

945 

1 4 , 3501 

0 5711 

0 

TC 

CURTAINS 

1003 

RFF 

7 

LAST 

9 50 

14 , 3502 

11 '757 

1 

CCS 

STARIND 

1004 

REF 

1 

14,3503 

1 3511 

0 

TCF 

P51D  +1 

I00c 

REF 

191 

LAST 

950 

14,3504 

0 6037 

0 

TC 

INTPRET 

GAP: 
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1006 

1007 

REF 

19 

LAST 

946 

1008 

REF 

5 

LAST 

943 

1009 
ir  lo 

REF 

89 

LAST 

950 

101  1 

14.3505  77775  1 

14. 3506  02715  0 

14.3507  02761  0 

14.3510  77776  1 P51D 

14.3511  0 5353  1 

14.3512  04 02 6 0 


1013  REF  8 

1014  REF  1 

101*  ’EF  90 

101  6 


LAST 

950 

14 

14 

14 

LAST 

951 

14 

,3513  11*757  1 
,3514  i 3530  0 
,3515  0 5353  1 
,3516  04024  0 


101*  REF  192  LAST  950 

101« 

1020 
1021 
1022 
102  3 

1024 

1025 

1026  KEF  l 

1027  PEF  51  LAST  951 

102F 


14,3517  0 6037  0 

14.3520  45145  0 

14.3521  035o2  0 

14.3522  32472  1 

14.3523  03554  o 


14,352*  3 4753  1 

14.3526  55 ' 7 5 7 1 

14.3527  1 3473  0 

14.3530  0 5353  1 P51E 

14.3531  04024  0 


RLF 

6 

LAST 

943 

RFF 

3 

LAS': 

043 

F EF 

4 

LAST 

943 

REF 

44 

LAST 

928 

REF 

9 

LAST 

951 

14,3524  77776  1 


1 < 

REF 

193 

LAST 

951 

14 , 3532 

0 6037 

0 

1031 

14,3533 

45145 

0 

10  32 

REF 

7 

LAST 

951 

14,3534 

03562 

0 

1033 

REF 

4 

LAST 

96  1 

14, 3535 

32672 

1 

1034 

14, 3536 

24015 

0 

103* 

REF 

5 

1 A ST 

QO  5 

14,3589 

03*54 

0 

1036 

1 4 , 3540 

24007 

0 

1031 

REF 

6 

LAST 

951 

14,3541 

02761 

0 

1038 

REF 

2 0 

LAST 

95  1 

14,3542 

25707 

0 

1039 

REF 

7 

LAST 

942 

14,354 3 

02767 

0 

1040 

REF 

21 

LAST 

951 

14,3544 

36715 

1 

104  1 

RFF 

2 

LAST 

04  5 

14,3*45 

31  256 

1 

104? 

1 4, 3546 

77414 

0 

1043 

REF 

7 

LAST 

946 

14,3547 

00314 

1 

1 

REF 

1 

14,3550 

31552 

1 

1045 

REF 

3 

LAST 

9 60 

14, 3551 

0 3431 

1 

1 C 

14,3552 

77624 

1 

1047 

»EF 

2 

LAST 

942 

14,3*53 

4744  i 

0 

1048 

14,3554 

75  160 

1 

1049 

REF 

4 

LACT 

931 

14,3555 

02664 

1 

1 ' 

REF 

45 

LAST 

947 

14,3556 

01733 

1 

1051 

14,3567 

77624 

1 

1052 

R FF 

3 

LAST 

947 

14,3560 

31377 

0 

105  3 

14,3561 

77414 

0 

1054 

REF 

5 

LAST 

944 

14,3562 

01462 

0 

1056 

REF 

50 

LAST 

950 

14,3563 

0 6001 

0 

P51G 


VLFAD 

STORF 

EXIT 

TC 

OCT 

CCS 

TCf 

TC 

OCT 

TC 

DLOAO 


STOP  E 

EX  IT 

CAF 

TS 

TCF 

TC 

OCT 

TC 

DLOAD 


STCVL 

STOVI 

STGVL 

STCALL 

BON 


TC 

CALL 
AXC  , 1 


CALL 

SFT 

TC 
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STAPAD  +6 
STARSAV1 

PHASCHNG 

C4024 

STAR IND 
P 31  E 

PHASCHNG 

04024 

INTPRET 

CALL 

TSIGH1 

PLANET 

PLANVEC 

B IT  1 
STARIND 

P 5 1C  + 1 DO  SECOND  STAR 

PHASCHNG 
04  02  4 

I NT  PR ET 
CALL 
T SIGHT 
PLANET 
1 2D 

PLANVFC 
6 0 

STAR S A V 1 
ST ARAD 
STAPSAV2 
STAR AD  +6 
CHKSDATA 
EXIT 

F R L i FI.  AG 
P51G 
P51  +2 

AXI SGEN 
AXC.  , 2 
X DC 

REFS MM AT 

MATMOVE 
EXIT 

P EFSMFLG 
GOTOPOOH 


CHECK  STAR  ANGLES  IN  STARAD  AND 


COME  BACK  WITH  P:  EF  SMM  AT  IN  XDC 


FINIS 


GAP 
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1<  ] 
1062 
1063 

REF 

277 

LAST 

950 

1064 

REF 

4 

LAST 

378 

106  5 

REF 

278 

LAST 

962 

106  4 

REF 

1 0 

LAST 

94S 

1<  - 

REF 

5 

LAST 

950 

106  P 

REF 

279 

LAST 

952 

1<  ( 

REF 

3 

LAST 

378 

107  0 

REF 

280 

LAST 

<R5  2 

1071 

REF 

1 1 

LAST 

952 

1072 

REF 

6 

L AFT 

96? 

1073 

REF 

194 

LAST 

95  1 

1074 

1075 

1076 

REF 

15 

LAST 

901 

1077 

REF 

o 

LAST 

863 

1 ( i 

REF 

181 

LAST 

950 

10772 

' F 

14 

LAST 

901 

10773 

REF 

5 

LAST 

901 

10774 

REF 

8 

LAST 

902 

1078 

REF 

195 

LAST 

952 

1 

1080 

REF 

3 

LAST 

687 

1081 

REF 

24 

LAST 

383 

1082 

1033 

REF 

3 

LAST 

944 

3564 

12200 

0 

V41K 

VN 

3565 

77776 

1 

CCAR  SE 

EXIT 

3566 

0 46  1 6 

1 

TC 

3567 

17000 

1 

C ADP 

3 5 70 

0 4616 

1 

TC 

357  1 

17716 

1 

C ADR 

3572 

0 5711 

0 

TC 

3573 

0 46  16 

1 

TC 

3574 

172  1C 

1 

CADR 

3575 

0 4 6 1 6 

1 

TC 

3576 

17716 

1 

CADR 

3577 

0 571  1 

0 

TC 

3600 

0 6037 

0 

TC 

3601 

77616 

0 

R VO 

3602 

77776 

1 

NCCARSE 

EXIT 

36  C 3 

3 0025 

0 

CA 

3604 

55*075 

0 

TS 

3605 

4 4755 

o 

C S 

3606 

54  037 

1 

TS 

3607 

54  040 

1 

TS 

3610 

54  04  1 

0 

TS 

3611 

0 6037 

0 

TC 

3612 

77775 

1 

VLOAD 

3613 

?6f  07 

0 

3614 

01472 

1 

STORE 

3615 

43414 

1 

SET 

3616 

01060 

0 

14 

14 

14 

14 

14 

1 4 

14 

14 

14 

14 

14 

1 -• 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

1 4 
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4100 

BANKCALL 

I YU C OAF  S 

BANKCALL 

INSTALL 

CURTAINS 

BANKCALL 

IMUFINE 

BANKCALL 

IMUSTAL  L 

CURTAINS 

INTPPET 


TIME1 

1 / P I P ADT 

ZERO 

P IPAX 

P I D AY 

PIPAZ 

INTPRET 

ZEROVFC 
C-COMP 
R VO 

DRIFTFLG 
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P 108  A 
R 1085 
R 1086 
R 1087 
R 108  8 
P 1080 

1090 

1091 

1092 
109  A 
109  5 
1 09  6 

1097 

1098 

1099 
lior 
1101 
1102 

1103 

1104 
1 1 

1106 
1107 
1 10- 
1 109 
1110 
mi 
1112 
1113 
1 11  A 

1115 

1116 


NAME-S52. 2 

F UNCTION- COMPUTE  GIMBAL  ANGLES  FOR  DESIRED  SM  AND  PRESENT  VEHICIE 
CALL-  CALL  S52.2 
INPUT-  X»  Y » ZSMD 

OUTPUT-  0 GC , IGC , MGC  , THETAl)  , +1  , + 2 

SUB F PUTIN  ES-CDUTE  IG,  CALCSMSC  , M ATf-'PV  E , C AL  CG A 


REF  1 

REF  8 LAST 

REF  5 LAST 

REF  2 LAST 

REF  9 LAST 

RFF  a LAST 

REF  46  LAST 

REF  5 LAST 

REF  1 

REF  7 LAST 

REF  18  LAST 

PEF  a LAST 

REF  2 LAST 

REF  9 LAST 


14,3617 
944  14,3620 

7 37  1 a,  362  1 

1-t,  3622 

937  14,3623 
1 A , 3624 
14,3625 

947  14,3626 

14,3627 
14,3630 

938  1A ,3631 
9 5 1 14,3632 

14,3633 
953  14,3634 

14.3635 

14.3636 
1 a,  3637 

944  14,3640 

947  14,3641 

14,3642 
951  14,3643 

14,3644 
37^  14,3645 

14,3646 
953  14,3647 


45020  1 
.02  74c  0 
47537  0 
77624  1 
29030  0 
66370  0 
00022  1 
L COS  1 0 
C 006  1 
61373  1 
02707  0 
01734  0 
77656  1 
06707  1 
77700  0 
31630  0 
75160  1 
03606  1 
02642  0 
77624  1 
31377  0 
7762/  1 
47353  1 
77650  1 
02746  0 


S52.2 


S52. 2A 


652. 2 . 1 


count  * $$/s52.i 
STQ  CALL 
QMAJ 
CDUTK  IG 

CALI 


A XT  , 1 

VL  OAD* 

UNIT 
S7  0RE 

P 1 X , 1 

A XC  , 1 

CALL 

CALL 

GOTO 


CALCSMSC 

SSP 

13D 

SI 

6D 

VXM 

XNB  +I«D,1 
REFSMMAT 

XNB  +1SD, 1 

S 52 . 2 A 
A XC  > 2 
XSMD 
X SM 

MATMOVE 

CALCGA 

QMAJ 


1 
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P 1117 

NAME- 

S 52 . 

3 

R 1118 

FUNCTION 

XSMD 

= UNIT 

R 

R 11 1° 

Y SMD 

= UNIT (V  X R) 

R 11?' 

1 SMD 

= UNIT(XSMU  X YS  TO ) 

R 1121 

CAL  L 

□ LOAD 

CALL 

R 1122 

TALIGN 

R 1123 

S52.3 

R 1124 

INPUT 

- 

TIMF 

OF  ALIGNMENT  IN 

MP  AC 

R 1 1 2 5 

OUTPUT- 

X , Y , Z SMD 

R 1 1 2 f- 

sub:  PUTIN ES-  CSMCEINIC 

1127 

REF 

1 

COUNT* 

$ $/ S52 . 3 

1128 

1 4,3450 

77620 

0 S52.3 

STQ 

1129 

REF 

10 

LAST 

953 

14 , 3651 

02746 

0 

QMA  J 

1130 

REF 

53 

LAST 

935 

14,3652 

34041 

0 

STCALL 

T0EC1 

1131 

REF 

5 

LAST 

589 

14,3653 

27100 

0 

L EMC ON  I C 

1134 

14, 3654 

53575 

0 

VI  PAD 

UNIT 

1135 

REF 

33 

LAST 

°3  5 

14,3655 

00001 

0 

P ATT 

1135 

REF 

8 

LAST 

953 

1 , 3iSB5 

27607 

0 

S VOVL 

XSMD 

1137 

REF 

24 

LAST 

839 

14,3657 

00007 

0 

VATT 

1138 

14,3660 

53435 

0 

vxv 

UNIT 

1139 

REF 

34 

LAST 

954 

1 L , 366  1 

LOGOI 

0 

RATT 

1140 

REF 

4 

LAST 

93  1 

14,3662 

27615 

0 

STOVL 

YSML1 

1141 

REF 

o 

LAST 

954 

14,3663 

: 03607 

0 

XSMD 

1142 

14, 3664 

53435 

0 

VXV 

UNI  T 

1143 

REF 

5 

LAST 

954 

14,3665 

1 1 

0 

YSMD 

1144 

REF 

4 

LAST 

931 

14,3666 

37623 

1 

STCALL 

Z SMD 

1145 

REF 

1 1 

LAST 

954 

14  , 3667 

02  746 

0 

QMA  J 
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GAP:  ASSEMBLE  REVISION  001  GF  AGC  PROGRAM  AP11R0PE  BY  EYLES  3: 

L P Sl-o  5 3 

p H46  NAME  -R52  (AUTOMATIC  OPTICS  POSITIONING  ROUTINE) 

R 1147  FUNCTION-POINT  THE  ACT  OPTIC  AXIS  BY  MANEUVERING  THE  LEM  TO  A NAVIGATION 
R 1 148  STAR  SELECTED  BY  ALIGNMENT  PROGRAMS  OR  DSKY  INPUT 

R 1 1 4 p CALI  IMG  -CALL  Rc? 

R 1150  -BESTI  AND  8ESTJ  (STAR  CODES  TIMES  6) 

R1151  OUTPUT  -STA  CODE  IE  B.I  IS  1-6,  DETECT  COOE  IN:  BITS  7-9 

R 1)  52  (NO  CHFCK  IS  MADE  TO  INSURE  THE  DETENT  CODE  TO  BE  V A'  ID) 

R 1153  PO I NT VSM_ 1/2  UNIT  MAV  STAR  VE C IN  SM 

P 1 1 §4  SCAXIS-AOT  OPTIC  AXIS  VEC  IN  N8  X-Z  °L  ANE 


R 1 1 5 5 c UBP.OUT  -R60LFM 


1156 

1157 

1 1 C O 

RFF 

D F P 

1 

1 

14.3670 

14.3671 

77420 
036  65 

1 

7 

R52 

COUNT* 

STQ 

$ $ / R 5 2 
EXIT 

8 AVON  8? 

I 

C r 

1 

O W V v TN  J C. 

1)  ' 

REF 

10 

LAST 

951 

14,3672 

51  <757 

0 

INDEX 

STARIND 

1160 

REF 

9 

LAST 

940 

14,3673 

3 1755 

1 

CA 

BES”  I 

1 1 A 1 

li,U74 

n f.nn/. 

i 

F X T F [\1  n 

11'  1 

1 -t  f J O I **T 

1 

F.  A 1 - V U 

1162 

REF 

1 

14, 3675 

7 3771 

1 

MP 

1 /6TH 

1163 

REF 

32 

LAST 

907 

14,3676 

6 4 744 

1 

AD 

BITS 

1164 

REF 

2 

LAST 

100 

14,3677 

54  735 

1 

TS 

STAPCODE 

1165 

REF 

1 

14,3700 

3 3772 

0 

R52A 

CAF 

V01N70 

1164 

REF 

281 

LAST 

952 

14,3701 

0 46  16 

1 

TC 

BANKCALL 

1167 

REF 

33 

LAST 

?4o 

14,3702 

2 04  7 6 

0 

CAUR 

GOFL ASH 

116  6 

REF 

51 

LAST 

951 

1'-,  3703 

.!  6 0 0 l 

0 

TC 

GOT  OPOOH 

1 1 6 Q 

REF 

] 

14,3704 

1 8 70  6 

1 

TC  F 

f,  K o o 

1 

n j c.  n 

1170 

REF 

1 

14,3705 

1 3700 

1 

TC  F 

R52A 

1171 

REF 

87 

LAST 

89  5 

14,3706 

0 5 516 

0 

R52B 

TC 

DOWNFLAG 

1172 

REF 

7 

LAST 

754 

14,3707 

00124 

0 

ADRES 

3AXI SFLG 

1173 

REF 

3 

LAST 

955 

14,3710 

3 0735 

0 

CA 

STARCODF 

1174 

RFF 

3 

LAST 

'633 

14,3711 

7 7744 

0 

MASK 

HIGH  9 

1175 

14,3712 

0 CO 06 

1 

EXTEND 

1176 

REF 

24 

LAST 

863 

14,3713 

7 4743 

1 

MP 

BIT9 

1177 

REF 

157 

LAST 

924 

14,3714 

54  001 

1 

TS 

L 

1 1 76 

14,3715 

0 0006 

1 

EXTEND 

1179 

REF 

1 

1A ,3716 

6 3734 

1 

BZMF 

GETAZEl 

1180 

REF 

2 

LAST 

246 

14,3717 

6 5660 

1 

AD 

NEG7 

1181 

14,3720 

0 CO  06 

1 

EXTEND 

1132 

REF 

2 

LAST 

955 

14,372  1 

1 37  35 

0 

3ZF 

GETAZEL 

1183 

RFF 

17 

l AST 

260 

F7 , 1551 

E6ANK= 

XYMARK 

1 1 ' 

REF 

14 

LAST 

903 

14,3722 

3 5016 

0 

CA 

EBANK7 

1185 

REF 

49 

LAST 

918 

14,3723 

54  003 

0 

TS 

EBANK 
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PICK  UP  STAPCODE  DETERMINED  BY  R*6 


SET  DETENT  POSITION  2 
SCALE  AND  STORE  IN  STARCODE 


DISPLAY  STARCODE  AND  WAIT  FOR  RESPONSE 
V34-T  FRMINATE 
V33-PROCEED  TO  OF  I EMT  LEM 
ENTER-SELECT  NEW  ST AR CODE-RECYCL E 


BITS  OE  F L AGWP  Dc  ZERO  TO  ALI  OW  VFC.  POINT 
AR  DETENT  CODE 


TEMP  STORE  DETENT 


CODE  0,  CO  AS  CALIBRATION 


CODE  7,  C C AS  SIGHTING 
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1186 

REF 

158 

LAST 

955 

14,3724 

50  001 

0 

INDEX 

L 

1188 

REF 

4 

LAST 

247 

14, 3725 

3 1403 

1 

CA 

AOTAZ  -1 

1139 

REF 

159 

LAST 

956 

1 4,3726 

GUI 

1 

TS 

L 

1190 

REF 

19 

LAST 

953 

E5 , 1642 

ESAN’K  = 

XSM 

119  1 

REF 

1 1 

LAST 

896 

14,3727 

3 5014 

1 

CA 

EBANK" 

1192 

t EF 

50 

LAST 

955 

14,3730 

54  003 

0 

TS 

EBANK 

1193 

REF 

36 

LAST 

874 

14, 3731 

3 4737 

0 

CA 

BIT13 

1 ] < 

REF 

160 

LAST 

956 

14,3732 

56  001 

0 

XCH 

L 

119T 

P.EF 

1 

14, 373  3 

1 3 744 

1 

TCF 

AZEL 

1196 

REF 

1 

) 4, 3734 

3 377  3 

1 

GETAZEL 

C.AF 

V06N87 

1197 

REF 

2 32 

LAST 

955 

1 4 * 3 7 3 r 

0 ^616 

1 

TC 

BANK CALI 

1198 

REF 

34 

LAST 

955 

14,3736 

20476 

0 

CAQR 

GCFLASH 

1199 

REF 

52 

LAST 

955 

14,3737 

0 6001 

0 

TC 

GCTOPOOH 

1200 

1 4,3740 

1 3742 

1 

TCF 

+ 2 

1201 

P EF 

3 

! AST 

955 

1 4 , 374  1 

1 3734 

0 

TCF 

GETAZEL 

129? 

14,3742 

0 0006 

T 

FVTFwn 

LA  I L 1 XJ  U 

1203 

REF 

4 

LAST 

3 16 

14,3743 

3 1350 

0 

DC  A 

AZ 

1204 

REF 

34 

LAST 

948 

14, 3744 

50  120 

1 

AZEL 

INDEX 

F I XL  or. 

1205 

14,3745 

52  011 

0 

DXCH 

8D 

1206 

REF 

196 

LAST 

952 

14,3746 

0 6037 

0 

TC 

IM'PRET 

1207 

1 4,3747 

77624 

1 

CALL 

1 2 0 8 

R FF 

2 

l AS" 

248 

14,3750 

1055  6 

o 

0 ANB 

1209 

14,375  1 

45034 

1 

RTB 

CALL 

1210 

REF 

26 

LAST 

94  1 

14,3752 

21573 

0 

LOADT IME 

1211 

P.EF 

5 

LAST 

951 

14,3753 

32472 

1 

PLANET 

1212 

14,3754 

53521 

1 

MXV 

UNIT 

1217 

REF 

47 

LAST 

953 

1 4,3755 

01734 

0 

REFS MM AT 

1214 

REF 

7 

LAS" 

738 

1 4 ,3756 

037  73 

l 

STORE 

POT  T'  T V 9 M 

121  5 

14,3757 

77776 

1 

EX  IT 

1216 

REF 

2 83 

L A ST 

956 

14,3760 

0 46  16 

1 

TC 

BANKCAl.  L 

1217 

REF 

6 

LAST 

789 

14,3761 

54123 

0 

C ADR 

R60I  EM 

12171 

REF 

A. 

LAST 

955 

14,3762 

3 7744 

1 

CAF 

HIGH' 

12172 

REF 

4 

LAST 

955 

14,3763 

7 0735 

1 

MASK 

STARCODE 

12173 

14,3764 

0 0006 

1 

EXTEND 

12174 

REF 

2 

LAST 

955 

14,3765 

1 3700 

1 

BZF 

R52  A 

1218 

REF 

197 

LAST 

956 

14,3766 

0 603  7 

0 

TC 

intpret 

1219 

14,3767 

77650 

1 

GOTO 

12  2C 

REF 

2 

LAST 

955 

14,3770 

03665 

1 

S AVQR52 

1221 

14 , 3771 

05253 

0 

1 /6TH 

DEC 

. 1666667 

1222 

14,3772 

00306 

1 

VC1N70 

VN 

0170 

1223 

14,3773 

01527 

0 

V06M37 

VN 

687 
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USER'S  PAGE  NO.  31  F_7  S3 

PICK  UP  AZ  CORRESPONDING  TO  DETENT 


CHANGE  TO  EBANK5  BUT  DONT  DISTURB  L 

SET  ELV  TO  45  DEG 

SET  C ( A ) = AZ  , C ( L ) =45  DEG 

GO  COMP  OPTIC  AXIS 

CODE  C OR  GET  AZ  AND  EL  KEY  IN 


V34-T  ERM  I NATE 

PROCE  ED-C  ALC  OPTIC  AXIS 

ENT EK— RECYCLE 


PICK  UP  AZ  AND  EL  IN  SP  2S  COMP 
JAM  AZ  AND  EL  IN  8 AND  9 OF  VAC 


GO  COMPUTE  OPTIC  AXIS  AMD  'TORE  IN 
SCAXIS  IN  NR  COORDS 


STORE  FOR  VECPOINT 

GO  TORQUE  LEM  Qojic  AXIS  TO  STAR  LOS 
IF  COAS  CALIBRATION  CODE  0,  PECYCIE 


RETURN  FROM  K ALCMANU 


RETURN  TO  CALLER 


SAP:  ASSEMBLE  REVISION  001  OF  AGO  PROGRAM  AP1IR0PE  BY  EYLES 

L P51-P53 

P 122 A LUNAR  SURFACE  STAR  AQUISITIOM 


1225  15,2245  BANK 

1226  KEF  3 LAST  927  15,2000  SETLOC 

1227  15,2245  BANK 

1228  REF  2 LAST  2^0  TO  251:  & 0 COUNT  * 

12281  PEF  15  LAST  876  15,2245  4 CC77  0 R59  CS 

12282  ■ ,EF  3 LAST  213  1 5,2246  7 4737  1 MASK 

12283  c EF  282  LAST  928  15,2247  1C  COO  0 CCS 

12 2 8 A REF  1 15,2250  1 2455  0 TCF 


1229  REF  1 15,2251  3 2463  1 CAF 

1230  REF  284  LAST  956  15,2252  0 4616  1 TC 

1231  REF  35  LAST  956  15,2253  20476  0 CADR 

1232  “FF  53  LAST  956  15,2254  0 6001  0 TC 

1233  PEF  1 15,2255  1 2257  1 TCF 

123'  : FF  1 1 5 , 22c  6 1 2245  1 TCF 


1235 

1236 
1 237 

1238 

1239 

1240 

1241 

1242 

1243 

1244 

1245  ! FF 

1246 

1247  REF 

i ; 

124Q  REF 


5 LAST 
S LAST 

2 LAST 
161  LAST 
11  LAST 
10  LAST 
35  LAST 
26  LAST 

2 1.  A S r 

1 

3 LAST 


PEF 

REF 

PEF 

REF 

REF 

REF 

KEF 

REF 


956 

316 


2°2 

956 

955 

955 

956 
938 

957 


957 


15,2257 
15,2260 
1'-  ,226  1 

15.2262 

15.2263 

15.2264 

15.2265 

15.2266 

15.2267 

15.2270 

15.2271 

15.2272 

15.2273 

15.2274 

15.2275 


4 7744  0 
7 0735  1 
0 CO  .o  1 
7 6242  1 
56  C LI  0 
51 • 757  0 
55*755  0 
50  120  1 
34  046  1 

0 CC 06  1 

1 2455  0 
4 0000  0 
6 25fcl  1 
0 0006  1 
6 2455  1 


R59A  CS 

MASK 

EXTEND 

MP 

XCH 

INDEX 

TS 

INDEX 

TS 

EXTEND 

BZE 

COM 

AD 

EXTEND 

BZMF 


1250 

REF 

193 

LAST 

956 

15,2276 

0 6037 

0 

1253 

15,2277 

64373 

1 

1254 

REF 

1 I 

LAST 

940 

15,2300 

30347 

1 

125  5 

1-  I 

46 

LAST 

956 

15,2301 

01734 

0 

12co 

15,2302 

45056 

0 

1257 

REF 

3 

LAST 

7 8 4 

15,2303 

47646 

0 

1258 

REF 

4 

LAST 

241 

15,2304- 

0273  1 

0 

1259 

15,2305 

77776 

1 

TC 

VLOAD* 


UN  I T 

STORE 

EXIT 


1260  REF  45  LAST  551 

1261  PEF  2 LAST  316 


15.2306  3 4753  1 

15.2307  55*242  0 


CAF 

TS 


1262 

PEF 

13 

12621 

REF 

1 5 

1263 

REF 

C1 

LAST 

955 

E7 

LAST 

955 

15 

LAST 

956 

15 

1551 

2310  3 5016  0 

2311  54  003  0 


EBANK= 
INCAZ  CA 
TS 


1 5 

P50S 

$$/P59 

FL.AGWRD3 
R EFSMBIT 
A 

R590UT 

V01N70* 
BANKCALL 
GOFLASH 
GOTQPOOH 
R 59  4 
P 59 

HIGH9 
AOT  CODE 

EE VC NT 
L 

ST  AP 1 N D 
BESTI 
F IXLOC 
XI 

p 59 OUT 

DEC227 

R59CUT 

I NT  PR  FT 
MXV 

CATLOG, 1 
REF SMMAT 
CALL 

CDU*SMNB 

STAR 


BIT  1 
PCSCPDE 

XYMARK 

F.BANK7 

EBANK 
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* 

< 

t 

USER • S PAGE  NO.  32  E5  S3  i 

4 

..z 

t 

IF  PEFSMMAT  FLAG  CLEAR  BYPASS  STAR  AQUIR 

NO  REFSMMAT  GO  TO  AOTMAPK  i 

SELECT  STAR  CODE  FOR  ACQUISITION 

( 

V34-T  ERM I NAT  E 

V33-PR0CEED  < 

V32-P  EC YCLE 

GRAB  STARCODE  FOR  INDEX  • 

JUST  6 1 

CODE  X 6 FOE  CATLOG  STAR  INDEX 
BYPASS  AQUISITIOM  IE  NOT  CATLOG  STAR 


GRAB  STAR  VECTOR 
TRANSFORM  TO  SM 

TEMP  STCD  E STAR  VEC(NB) 


INITIAL TZE  AZ  POSITION  CODE  TO  1 (-60) 


ASSL'RLt  REV  I SI  j M uOl  P F ARC  PROGRAM  AP1LROPE  BY  EYlES 


GAP: 


L 

P51  - 

P 53 

12631 

REF 

3 

LAST 

957 

12632 

REF 

5 

LAST 

956 

126  3 3 

REF 

162 

LAST 

9 57 

1264 

REF 

20 

LAST 

956 

126c 

7 EF 

12 

LAST 

086 

126  6 

REF 

52 

LAST 

°57 

12661 

REF 

37 

LAST 

956 

12662 

REF 

16  3 

LAST 

958 

126  6 3 

REF 

12 

LAST 

967 

1267 

1268 

REF 

36 

t AST 

9^7 

12  c.  9 

1270 

REF 

199 

LAST 

957 

1271 

127? 

REF 

3 

LAST 

956 

1273 

REF 

5 

LAST 

957 

1274 

1275 

1276 

1277 

REF 

24 

LAST 

788 

1278 

127° 

1280 

1201 

1282 

128? 

1204 

REF 

0 EF 

REF 

REF 

2 

1 

1 

1 

LAST 

251 

12  85 
1206 


1287  REF  1 
12P0 


1289 

1290 

REF 

25 

LAST 

9r  8 

129  1 
1292 

REF 

3 

LAST 

37 

1297 
i 2 - 

12Q  5 

REF 

26 

LAST 

9 58 

1296 

12°7 

REF 

27 

LAST 

958 

1298 

REF 

6 

LAST 

958 

I 2« 

1300 

1301 

1302 


,2312 

5 1 • 242 

1 

INDEX 

,231  3 

3 1403 

1 

CA 

,2314 

5 4 0 01 

I 

T S 

X 

1 o 

, 1642 

EBANK 

,2315 

3 5014 

1 

CA 

,2316 

54  003 

0 

TS 

,2317 

3 4737 

0 

CA 

,2320 

56  001 

0 

XCH 

,2321 

55  « 74 5 

1 

TS 

, 23  22 

50  120 

1 

INDEX 

,2323 

52  011 

0 

DXCH 

,2  324 

0 6 037 

0 

TC 

,2325 

77624 

1 

CALL 

,2  3?  4 

10  536 

0 

, 2327 

50375 

0 

VLOAD 

,2330 

02731 

0 

, 233  1 

03765 

0 

, 2332 

65552 

0 

SL1 

, 233  3 

C r 0 3 1 

0 

STORf 

, 2334 

51025 

1 

DSU 

,2335 

32466 

1 

, 2336 

3242  0 

0 

, 2337 

45345 

1 

DLO.AD 

,234  0 

00031 

0 

,234  1 

32670 

0 

,2342 

71240 

1 

BMN 

,2343 

32413 

0 

,2  344 

0003  1 

0 

,2345 

424G5 

0 

DMP 

,2346 

25  764 

0 

,2347 

24031 

0 

STOVL 

,2350 

03765 

0 

, 235  1 

53435 

0 

VXV 

,235  2 

24005 

1 

,2353 

47206 

0 

PUSH 

, 2354 

0 37  o 5 

0 

,2385 

77676 

0 

VCOMP 

,2356 

63256 

0 

UNIT 

, 2357 

03765 

0 

, 23c0 

53435 

0 

VXV 

, 236  1 

02731 

0 

, 2362 

5 0206 

0 

PUSH 

,2363 

Of  001 

0 

, 2364 

65552 

0 

SL1 

,2365 

24033 

1 

STOVL 

10 

15 

15 

E5 

10 

15 

15 

15 

15 

lc 

15 

15 

15 

15 

15 

15 

15 

15 

15 

lr 

15 

15 

15 

1 5 

1 5 

15 

1 5 

15 

15 

1 5 

1 5 

15 

15. 

15. 

1 5 

15 

15 

15 

15 

15. 

15 

15. 

15 

15 

15 
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USER'S  PAGE  NO.  33  E7  S3 

POSCODE 

AOTAZ  -1 

PICK  UP  AZ  CORRESPONDING  TO  POSCODE 

L 

..z 


XSM 

EBANK5 

EBANK 

BIT13 

L 

QMI  N 

FIXLOC 

SET  ELV  TO  45  DEG 

SET  C ( A ) = A Z , C ( L ) =45  DEG 

STORE  QMI N=AZ  FOP  LATER 

8 D 

INTPRET 

JAM  AZ  IN  80,  45  DEG  IN  9D  FOR  OANB 

OA  MB 

DOT 

GO  CALC  OP^IC  AXIS  WP T MB 

STAR 

SCAXIS 

ARC, COS 

DOT  STAR  W ITH  OA 

2 40 

TEMP  STORE  AP  CCDS  ( STAF  .PPTAXJ  S ) 

BPL 

DEG  30 

NXAX 

DSU 

24D 

DEG.  5 

SEE  IF  STAR  IN  AOT  F I E LD- OF-V I E W 

NOT  IN  FIELD  - TRY  NEXT  POSITION 

SEE  IF  STAR  AT  FIELD  CENTER 

DLOAO 

ZS°CR 

2 4D 

SL4 

CALC  SPIRAL  AND  CURSOR 

GO  ZERO  CURSOR  AND  SPIRAL 

GET  SPIRAL 

3/4 

2 4D 

12  SCALED  AT  16 

1 2 ( ARCCOS (AO. STAR) ) SCALED  IN  REVS 

SCAXIS 

UNIT 

X UN  I T 

OA 

VXV 

SCAX  T S 

OA  X UN  i f X PD  0-5 

PDVL 

SCAXIS 

UNIT 

STAR 

UNIT!  OA  X ( 0 A X UMITX))  PD  6-11 

DOT 

0 

APCCOS 

1/2I0A  X STAR)  PD  12-17 

DOT  WITH  1 / 2 < r A X UNITX)  FOR  YROT 

2oD 

STORE  THET  SCALED  IN  REVS 

GAP:  ASSEMBLE  REVISION  001  OF  AGC  PROGRAM  AP11R0PE  BY  EYLES 

L P51-P53 

1303  15,2366  77641  1 DOT 

1304  15,2367  71244  0 BPl. 

1305  REF  1 15,2370  32375  1 

1306  REF  2 LAST  250  15,2371  32047  0 

1307  15,2372  77625  0 DSU 

1308  15,2373  00033  1 

1309  15,2374  00033  1 STORE 


1310 

1311  REF 
131? 

1312 

1314 

1315  REF 

1316  REF 
131? 

131  P 
131° 

1320  REF 

1321  REF 

1322 

1323  REF 


13  LAST 


2 LAST 

3 LAST 


3 LAST 
3 LAST 

1 


15,2375 

958  15,2376 
] 5,2377 

15.2400 

15.2401 
373  15,2402 

316  16,2403 

15.2404 

15.2405 
15,2405 

959  15,2407 

316  15,2410 

15.241 1 

15.2412 


70635  0 P59D 
02  746  L 
41415  1 
00033  1 
77634  0 
21614  1 
15237  0 
00031  0 
77615  0 
77634  0 
21614  1 
01241  1 
77776  1 
1 2437  1 


SI  40 
DAD 

RTB 


STOOL 


DAD 

#T  B 

STORE 

EXIT 

TCF 


1324 

19,2413 

77776 

1 ZSPCI 

1325 

REF 

182 

LAST 

952 

15,2414 

3 4755 

1 

1326 

REF 

4 

LAST 

959 

15 ,2415 

55' 236 

0 

1327 

REE 

4 

LAST 

959 

15, 2416 

55 ' 240 

1 

1328 

R EE 

2 

LAST 

9*9 

15,2417 

1 24  37 

1 

EX  1 r 

CAF 

TS 

TS 

TCF 


132° 

1330  REF  4 LAST  958 

1331  REF  5 LAST  959 

1332  REF  12  LAST  858 

1333 

1336  ref  1 

1337  PEE  1 


15.2420  77776  1 NXAX 

15.2421  25 ' 242  1 

15.2422  4 1242  0 

15.2423  6 4757  0 

16.2424  0 0006  1 

15.2425  6 2427  1 

15.2426  1 2310  0 


EX  IT 
I OCR 

cs 

AD 

EXTEND 

RZMF 

TCF 


1338 

REF 

38 

LAST 

941 

15,2427 

0 5567 

0 

R59ALM 

1339 

15 ,243  0 

004  04 

1 

1340 

REF 

2 

LAST 

941 

1 5 , 243  1 

3 50  06 

1 

134  1 

REF 

2 85 

LAST 

957 

1 5 , 2 4 i|L2 

0 4 6 1,6 

1 

134  2 

REF 

36 

LAST 

957 

1 * , 243  3 

20476 

0 

1343 

REF 

54 

LAST 

957 

15,2434 

1 6001 

1 

1344 

REF 

4 

LAST 

957 

15,2435 

1 2455 

0 

134 ' 

R E F 

2 

LAST 

957 

15,2436 

1 2245 

1 

1346 

REF 

1 

15,2437 

3 24  64 

0 

79DI SP 

1347 

REF 

2 86 

LAST 

9 59 

15,2440 

0 4616 

1 

1348 

REF 

37 

LAST 

959 

15,2441 

2 04  76 

0 

1349 

REF 

55 

LAST 

959 

15,244? 

1 6001 

1 

TC 
OCT 
CAF 
T C 

C ADR 
TCF 
TCF 
TCF 

CAF 
TC 
C A DP 
TCF 
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USED ' S PAGE  NO.  34  E5  S3 

DLOAD 

UP  12-17,  UP  6-11  FOR  C2 

IF  TH  FT  MEG-GET  360-THET 

R59D 

ABOUTONE 

..z 

26D 

2 6D 

360-THET  SCALED  IN  REVS 

SRI 

QMIN 

PUSH 

260 

PESCALE  AZIN)  TO  REVS 

PUSH  YROT  + AZIN)  REVS 

1ST02S 

CURSOR 

?4D 

YROT  IN  1/2  REVS 

LOAD  SPOT  IN  REVS 

12 (SEP)  + YROT 

1ST02S 

SPIRAL 

SROT  IN  1/2  F EVS 

790  I S P 

GO  DISPLAY  CURSOP-SPI RAL-POS  CODE 

ZERO 

CURSOR 

SPIRAL 

7901 SP 

STAR  ALMOST  OPTIC  AXIS, ZERO  CURSOR 

AND  SPIRAL  ANGLES 

PCSCODE 

POSCODE 

SEVEN 

R59AI  M 

INCAZ 

THIS  STAR  NOT  AT  ANV  POSITION 

ALARM  ^0 

404 

THIS  STAR  CANT  BE  LOCATED  IN  AOT  FIELD 

VB05NC9 

BANKCALL 

GOFL ASH 

DISPLAY  ALARM 

GOTOPOOH 

R59QUT 

R59 

VB34-T ERM IN AT  E 

VB33-PR0CE  ED,  GO  WITHOUT  AOUIRE 

VB32-P  ECYCLE  AND  try  ANOTHER  ST  AS 

V06N79 

BANKCALL 

GOFLASH 

DISPLAY  CURSOR,  SPIRAL  ANO  POS  CODE 

GOTOPOOH 

V34-T  ERM I NAT  E 

GAP:  ASSE  :BLE  REVISION  001  OF  A GC  PROGRAM  API 1R0PC  BY 


1350 

1351 

P51- 

REF 

REF 

P 5 3 

1 

3 

LAST 

959 

15.2443 

15.2444 

1 2445 

1 2245 

1 

1 

1352 

REF 

13 

LAST 

959 

16,2445 

3 4757 

0 

R5  9E 

135  3 

5EF 

6 

LAST 

959 

1 r , 2446 

7 1242 

0 

1354 

15,2447 

0 0006 

1 

1355 

REF 

34 

LAST 

900 

15,2450 

7 4745 

1 

nr 

REF 

6 

LAST 

957 

lc,  245  1 

4 7744 

0 

1357 

REF 

10 

LAST 

95  7 

15,2452 

7 ,07  35: 

1 

135  3 

PEF 

164 

LAST 

958 

15,2453 

6 CC01 

0 

1 3 ; ' 

REF 

11 

LAST 

960 

15,2454 

54  735 

1 

1367 

REF 

287 

LAST 

959 

15,2455 

0 4616 

1 

R590UT 

1 

REF 

3 

LAST 

950 

15,2456 

16000 

0 

1365 

REF 

288 

LAST 

960 

15,2457 

0 4616 

1 

l ' 

REF 

2 

LAST 

9 50 

1 5,2^60 

17712 

0 

1371 

REF 

7 

L AST 

°52 

15,2461 

0 5711 

0 

1372 

REF 

1 

16,2462 

1 30  54 

1 

1 

15,2463 

00306 

1 

V01N70* 

1374 

15,2464 

01517 

0 

V06N79 

1375 

15,2465 

02525 

1 

DEG30 

1375 

15,2466 

12525 

0 

t 

15,2467 

0(026 

0 

DEG. 5 

1376 

15,2470 

3 0131 

1 

1377 

15,2471 

12525 

0 

DEG60 

137 

REF 

16 

LAST 

933 

1236 

CURSOR 

137V 

*REF 

17 

LAST 

960 

1240 

SPIRAL 

138'' 

*REF 

13 

LAST 

960 

1262 

POSCOOE 
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USER  * S PAGE  NO.  35  E5  S3 


TCF 

R59E 

V33-PF.CCE-ED  TO  MARK  ROUTINE 

TCF 

R 59 

V32-RECYCLE  TO  TOP  OF  R59  AGAIN 

CAF 

SEVEN 

GET  DETENT  CODE  CORRESPONDING  TO  POSCODE 

"l  ASK 

POSCODE 

EXTEND 

MP 

8IT7 

DETENT  CODE  NOW  IN  L 

CS 

HIGH9 

.MASK 

ACT  CODE 

ISOLATE  STAR.  NO  IN  BIT  1-6 

AD 

l 

TS 

AOTCODE 

STORE  DETENT  7-9 

TC 

BANKCALL 

GO  TO  AGTMAPK  FOR  SIGHTING 

CADR 

AOTMARK 

TC 

BANKCAL1 

CADR 

AGTSTALL 

SLEEP  TIU  SIGHTING  DONE 

TC 

CURTAINS 

BADEND  RETURN  FROM  AOT MARK 

TCF 

5 59P  E-T 

RETURN  TO  1 STAR  OF  2STAR 

VN 

170 

VN 

679 

2 DEC 

.083333333 

30  DEGRESS 

2 DEC 

. 001 38888 

.5  DEGRESS  SCALED  IN  REVS 

OCT 

12525 

60  DEG  CDU  SCALING 

EQUALS 

GDF/2 

EQUA1 S 

GDT/2  +2 

EQUALS 

GDT/2  +■! 

67^51 


9 


GAP:  ASSEMBLE  REVISION  GOl  OF  AGC  PROGRAM  API 1-bPE  BY  FYLES 

L P51-P53 
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961 


9 

i a 

I 

9 

9 


P 1381  NAME  - PLANET 
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0 4674 

0 

GKABGRAV 

TC 

IBNKCAL  L 

16  1 1 

PEF 

2 

LAST 

966 

15, 2732 

77544 

1 

CAD: 

PIPSRINE 

16141 

REF 

2 

LAST 

746 

15,2733 

3 r 02  3 

0 

CAF 

PRI013 

fe-establish  mainline  JOB 

16142 

RFF 

40 

LA  SI- 

873 

15,2734 

0 5105 

0 

TC 

F I NO VAC 

16143 

REF 

27 

LAST 

964 

E 5 , 1706 

E B A N K = 

STAR  AD 

16144 

REF 

1 

15 , 2735 

02740 

0 

2C  ADR 

ADDGRAV 

16146 

REF 

1 

15,2736 

32065 

0 

16  145 

REF 

66 

LAST 

907 

16 , 2737 

0 5261 

1 

TC 

TASKOVER 

16146 

REF 

297 

last 

966 

15,2740 

0 4616 

1 

ADDGRAV 

TC 

BANKCALL 

16147 

REF 

3 

LAST 

860 

15,2741 

15263 

1 

CADR 

1/PIPA 

1&148 

REF 

y 

LAST 

965 

15,2742 

25 ' 7 36 

1 

I NCR 

GCTR 

1616 

REF 

206 

LAST 

966 

1 5 , 2 74  3 

0 6 03  7 

0 

TC 

INTPRET 

16  1 6 

16,2744 

53375 

0 

VI  ( AD 

VAD 

16  17 

REF 

9 

LAST 

91  2 

1 6 . ? 7 4 S 

00325 

0 

DEL  V 

1 Mol  ’ -7 

161  P 

REF 

2 

LAST 

965 

15,2746 

02707 

0 

GACC 

1619 

REF 

3 

LAST 

966 

15,2747 

02707 

0 

STORE 

G ACC 

ACCUMULATE  G VECTOR 

1620 

15,2750 

• - 1 o | 

o 

SLUAD 

BMN 

1621 

REF 

10 

LAST 

966 

15,275 1 

02737 

0 

GCTP 

1622 

REF 

1 

1 5 , 2 7 r 2 

32  724 

1 

GREED 

16?3 

16,2753 

535  76 

0 

VLOAD 

UNIT 

1624 

REF 

4 

LAST 

966 

15,2754 

02707 

0 

GACC 

1625 

REF 

9 

L AST 

964 

15,2755 

36731 

1 

STCALL 

STAR 

1626 

REF 

6 

LAST 

953 

1 5,2756 

-,7537 

0 

CDUTRIG 

TRANSFORM  IN  MB  COOP  AND  STORE 

1627 

15,2757 

77624 

1 

CALL 

IN  OUTPUT 

1624 

PEF 

7 

LAST 

912 

15,2760 

47671 

1 

*SMNB* 

16?c 

REF 

3 

LAST 

964 

16f?761 

02715 

0 

STORE 

GOUT 

1630 

16,2762 

77776 

1 

EXIT 

1631 

REF 

95 

LAST 

966 

15,2763 

0 5353 

1 

TC 

PHASCHNG 

1632 

15,2764 

04024 

0 

OCT 

04C24 

1634 

*SEF 

207 

LAST 

966 

15,2765 

0 6037 

0 

QM  INEXIT 

TC 

intppet 

1639 

1 5,2766 

77650 

1 

GOTO 

1636 

REF 

15 

LAST 

965 

16,2767 

02745 

0 

QMIN 

1637 

15,2770 

77753 

0 

T/2SEC 

DEC 

-20 

966 
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1638 

15,2771 

01404 

0 

DISGP VEP 

VN 

0604 

16391  * 

15,2772 

07357 

1 

42DEG 

OCT 

07357 

16382  * 

15,2773 

01  2 1 1 

0 

35DEG 

OCT 

06211 

GAP:  ASSEMBLE  REVISION  00,i  OF  AGC  PROGRAM  APll.<OPE  BY  tYLES 

L PF1-P53 

P 163°  NAME  CYFOTRIM 
R 1640 

I . i I]  . x'-u  -H  i)',  CY  , C ) '■  1 CH  CAl  ' E r HE  C JUS 

R 1642  T(  ATTAIN  A PRESCRIBED  SET  UF  ANGLES.  THIS  ROUTINE  ASSUMES  THE 

R1643  VEHICLES  ATTITUDE  REMAINS  STATIONARY  DURING  ITS  OPERATION. 

R 1664. 

P.  16A5  CALL  CALL 

R 1646  GYROTRIM 

R 1647 

R164P  II  PUT  THETAD, +1, +2  = DES Ir  ED  CDU  ANGLES 
R 1 64''  CDUX , CD  UY , C OUZ 

R 165° 

R 165 1 OUTPUT  - GYRO  TORQUE  PULSES 
P 1652 

R1653  sub;  PUTINES-  T G*NBS;  ,*NBS<M*,CUUT  IG,AXISGEN,CALCGTA, IMUFINE 
R 1 6 r •'  T IMPULSE  ,IMU'  I ALL 


R 1 6 5 5 

- 

- 

- 

* 

* 

- 

P.  165  6 

DEBRIS  - 

C DUS  POT 

, SI?- CDU  , COSCDU  , 1 

STARAD  , V AC 

, XDC  , 

OGC 

1657 

REF 

2 1 

..  AST 

964 

TC  96  8: 

127  127* 

COUNT* 

$ $/P57 

1658 

15,2774 

71220 

1 

GYROTRIM 

STQ 

DLOAD 

165  9 

REF 

16 

LAST 

966 

15,2775 

02745 

0 

QMIN 

1640 

EF 

17 

L A ? T 

963 

lr ,2776 

00322 

1 

THtTAD 

1661 

I 5,2777 

6 c325 

0 

POOL 

POOL 

1662 

RFF 

18 

LAST 

06  8 

15,3000 

00326 

1 

THETAD  +2 

1663 

REF 

19 

LAST 

968 

15,301 1 

00323 

0 

THETAD  +1 

1664 

15 , 3002 

77666 

1 

VDEF 

166  5 

REF 

25  , 

LA  SI- 

896 

15, 30C3 

24767 

1 

STOVL 

CDUSPOT 

1666 

REF 

6 

LAST 

964 

1 c , 3004 

24005 

1 

XUNIT 

1667 

15,3005 

77624 

1 

CALL 

1668 

s E F 

5 

LAST 

5R0 

15,3006 

67664 

o 

T RG*N8? M 

166  9 

REF 

28 

LAST 

966 

15, 3007 

26707 

0 

STOVL 

STAP AD 

1670 

REF 

2 

LAST 

37 

15,3010 

24003 

1 

YJNIT 

1671 

15,3011 

77624 

CALL 

167  2 

REF 

6 

LAST 

964 

15 , 3012 

47f>73 

0 

*NB  SM* 

1673 

REF 

2n 

LAST 

96  8 

15,3013 

36  71  5 

1 

ST  CALL 

ST ARAB  +6 

1676 

REF 

7 

L AST 

966 

15,3014 

67537 

0 

CDUTR !G 

1675 

15,3015 

77626 

1 

CALL 

1676 

REF 

3 

LAST 

953 

15 , 3016 

2 003  0 

0 

CAL  CS  MS  C 

1677 

15,3017 

77775 

1 

VLOAD 

1678 

REF 

y 

LAS- 

964 

15 , 302  0 

02665 

0 

XNB 

1679 

15,3021 

26007 

0 

STOVL 

6 D 

1680 

REF 

3 

LAST 

374 

15 , 3022 

02673 

1 

YNB 

1681 

15,3023 

34015 

1 

STCALL 

1 2D 

1682 

REF 

3 

LAST 

951 

15,3024 

47441 

0 

A X I SGEN 

1683 

15,3025 

77624 

1 

CAl  L 

1684 

REF 

3 

LAST 

945 

15,3026 

67247 

0 

CALCGTA 

1685 

1^,3027 

77776 

1 

JUSTTR IM 

EXIT 

16  86 

RFF 

298 

1 AST 

966 

1 5,3030 

0 6616 

1 

TC 

RANK  CALI. 

1687 

REF 

5 

L AST 

965 

15 , 303  1 

172  10 

1 

CADP 

I MUFINE 

1688 

REF 

299 

LAST 

968 

lc  ,303  2 

0 66  16 

1 

TC 

BANKCALL 

15  DEC.  2 
USER  • 


I 

4 
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1689  REF  16  LAST  965  15 

1600  REF  10  LAST  965  15 

1691  REF  1 15 

1692  REF  300  LAST  96S  15 

1693  REF  6 LAST  9*5  15 

1604  OFF  301  LAST  969  15 

169c  REF  15  LAST  969  15 

1696  REF  11  LAST  969  15 

1697  *P,£f  1 15 

1700  RFF  12  LAST  945  15 


3033 

17716 

1 

CADR 

3034 

0 5711 

0 

TC 

3 3044 

1 

CA 

.3  0 3 5 

3036 

0 46  1 6 

1 

TC 

3037 

17323 

0 

CADR 

3040 

0 46  1 < 

1 

TC 

3041 

17716 

1 

CADR 

3042 

0 571  1 

0 

TC 

304  3 

1 2765 

0 

TCP 

3044 

02737 

0 GYRCOR 

EC  AOR 

4 
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IMUSTALL 

CURTAINS 

GYRCOR 

BANKCALL 

IMUPIJLSE 

BANKCAL! 

I MUSTALL 
CURTAINS 
OPINEXI T 

OGC 


i 
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P 1701  PERFORM  STAR  AQUISITION  AND  STAR  SIGHTINGS 


17  C 2 

REF 

183 

LAST 

959 

15,3045 

3 4755 

1 

2S7AF-S 

CAE 

ZERO 

1703 

15,3046 

1 3050 

0 

TCF 

+ 2 

1704 

REF 

46 

LAST 

957 

15,304  7 

3 '7  53 

1 

1ST  a; 

CAE 

BIT1 

1705 

REF 

15 

LAST 

962 

15,3050 

55’ 757 

1 

TS 

stapind 

17051 

REF 

96 

LAST 

966 

15,3051 

0 5353 

1 

TC 

PHASCHNG 

1 

15,3052 

04024 

0 

OCT 

04024 

1706 

PEE 

4 

LAST 

960 

15, 3053 

1 22  45 

1 

TCF 

R 59 

I 

REF 

16 

LAST 

970 

15,3054 

3 1757 

0 

R59RET 

CA 

STAP.IND 

1708 

1 5 , 305  r 

0 0006 

1 

EXTEND 

17 

REF 

1 

15, 3056 

1 3067 

1 

BZF 

ASTAR 

1715 

REF 

97 

LAST 

970 

16,3057 

0 5 3 53 

1 

TC 

PHASCHNG 

171  , 

1 5 , 3060 

04024 

o 

OC  T 

0 4 0 ? i 

171  P 

REF 

208 

LAST 

966 

1 5 , 30  6 1 

0 6037 

0 

TC 

intpret 

1719 

1 5 . 3062 

45  145 

0 

DLGAD 

CALL 

1.  ' f -J  ' ' r 

1 7 2 C 

L EE 

10 

L AST 

962 

15,3063 

03562 

0 

TSIGHT 

1721 

REF 

6 

LAST 

956 

15 , 3064 

32472 

1 

PLANET 

1722 

R F F 

1 

15,3066 

36731 

l 

ST CAL  L 

VEC2 

1723 

PEF 

l 

15,3066 

33101 

1 

SURFL INE 

1724 

REF 

209 

LAST 

970 

15 , 3067 

0 6037 

0 

AS  TAR 

TC 

INTPRET 

1725 

15, 3070 

77775 

1 

VLOAD 

1726 

REF 

30 

LAST 

968 

15 ,3071 

02715 

0 

STARAD  4-6 

1727 

PEF 

9 

L A S T 

065 

15,3072 

02761 

0 

STORE 

AVI 

1721 

15,3073 

45 1 5 

0 

DLOAD 

CALL 

172° 

REF 

1 1 

LAST 

970 

15,3074 

03562 

0 

TSIGHT 

1730 

REF 

7 

LAST 

970 

15, 3075 

32*72 

l 

PI  ANFT 

1731 

REF 

1 

15 , 3076 

02723 

0 

STORE 

VEC  1 

173? 

15,3077 

77776 

1 

EXIT 

1733 

REF 

1 

15,3100 

l 3 047 

0 

TCF 

ISTAR 
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INI T Al  I ZE  STAR  I NO 

ZERO  FOR  1ST  STAR,  ONE  FOR  2ND  STAR 


GO  DO  STAF  AQU  IRE  AND  ADT MARK 
BACK  FROM  SURFACE  MARKING 
1ST  STAR  MARKED 


TIME  OF  2ND  MARK 

STORE  2ND  CATALOG  VEC  ( n E F ) 


1ST  OBSERVED  STAR  (SM) 

TIME  OF  1ST  MARK 

STORE  1ST  CATALOG  VEC  (REF) 


970 


GO  GET  2ND  STAR  SIGHTING 


GAF 


ASSEMBLE  REVISION  001  OF  AGC  PROGRAM  API 1RGPE  BY  EYLES 


L P51-P53 

P 1734  DC)  FINE  OR  COARSE  ALIGNMENT  OF  I MU 


1/35 

1736  EF  11  LAST  93'-) 

1737 

1738 

1739 


1740 

RFF 

2 

LAST 

970 

1741 

REF 

10  s 

LAST 

9 54 

1742 

174  3 

REF 

31 

LAST 

970 

1 1 t 

1745 

REF 

10 

LAST 

970 

1746 

1747 

1748  P EF  1 

17481  RFF  1. 

17482  REF  l 

1749 

1750  REF  2 LAST  942 

17  51 

1752  REF  10  LAST  ?65 

1753  REF  1 

175  31 

1754  REF  4 LAST 

1755 

1756  REF  4 LAST  963 

1757 

17571  ftEF  1 

1 7 r'  7 2 RFF  14  LAST  86( 

17573  REF  256  LAST  965 

17574  REF  1 


1 

REF 

1 

1759 

REF 

302 

LAST 

969 

1760 

REF 

4 0 

LAST 

965 

1761 

RFF 

57 

(.ART 

°65 

1762 

REF 

2 

LAST 

971 

1763 

REF 

2 

LAST 

971 

1764 

REF 

210 

LAST 

970 

1765 

1 

REF 

13 

1 AST 

969 

1767 

REF 

1 

1768 

REF 

2 

LAST 

124 

r 

1770 

RFF 

2 

LAST- 

9 36 

1771 

REF 

1 

1772 

1773 

REF 

17 

LAST 

96  8 

1774 

REF 

1 

15 ,310L 

19.3102 

15.3103 
15,31"#* 

15.3105 

15.3106 

15.3107 

15.3110 

15.3111 

15.3112 

15.3113 

15.3114 

15.3115 

15.3116 
lc:  ,3117 
1 c , 3 1 2 O 

15.3121 

15.3122 

13. 3123 

15.3124 

15.3125 
16,  3126 
15,3127 

15.3130 

15.3131 

19.3132 

15.3133 

15.3134 

15.3135 

15.3136 

15.3137 

15.3140 

16.3141 
lc  ,314 2 

15.3143 

15.3144 


77131  1 
00052  0 
00006  1 
00014  1 
64373  1 
750^0  1 
03607  0 
77656  1 
12723  1 
77773  1 
75002  1 
10023  1 
43104  0 
33105  0 
04315  1 
33126  1 
77624  1 
31256  1 
77614  1 
00354  0 
33206  0 
77624  1 
47441  0 
77624  1 
47247  0 
77776  1 
3 4752  0 
7 0104  0 
10  000  0 
1 3145  0 
3 3313  0 

0 4616  1 
20476  C 

0 6001  0 

1 3145  0 
1 3207  0 


15.3145  0 6 037  0 

19.3146  40175  0 

IS  3 14  7 02740  0 

15.3150  33151  1 

15.3151  02750  1 

15.3152  40141  1 

IS  315  3 30610  0 

15.3154  33254  1 

15.3155  52131  0 

15.3156  02746  0 

15.3157  33161  1 


SURFL  INE 


WRTOESIF 


DOAL IGN 


IF  FTBY 


5 DEG TEST 


SURFSUP 


SSP 


VLOAD* 


UNIT 

STORE 

VLOAD* 

STORE 
T IX, 2 


CALL 

BUFF 


CAl  L 

CALL 

EXIT 

CAF 

MASK 

CCS 

TCF 

CAF 

TC 

CADR 

TC 

TCF 

TCF 

TC 

VLOAD 


STORE 

V/SC 


SSP 


3:  15  DEC 


2,1970 
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971 
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AXT  , 2 
$2 

6 

1 2D 

MX  V 

VEC  1 + 1 2D , 2 

XSMD 

PICK  UP  VEC  IN  REF,  TRANS  TO  DESIRED  SH 

STARAD  + 12D , 2 

VEC  IN  SM 

STARSAV1  +1 2 D , 2 

1 8D , 2 

BC  N 

WR  TDESI1- 

PICK  UP  VEC  IN  PRESENT  SM 

INITALGN 

INI T 6 Y 

IF  INITIAL  PASS  (OPTION  0)  BYPASS  R54 

R54 

DO  CHKSDATA 

FREEFLAG 

P57  POST 

ASTRO  DOES  NOT  LIKE  DATA  TEST  RESULTS 

AXISGEN 

GET  DESIRED  OP.  I ENT  WP.  T PR  E S . XDC  , YDC  , Z DC 

CALCGTA 

GET  GYRO  TORQ  ANGLFS,  OGC,IGC,MGC 

INI  TAB  IT 

FL  AGWRDP 

A 

5DEGTEST 

IF  INITIAL  PASS  BYPASS  NOUN  <=3  DISPLAY 

0 ISP GY  U 

BANK  CAl,  L 

GOFLASH 

DISPLAY  GYRO  TORQ  ANGLES  V 06N93 

GOT  r POOH 

5 DEGTEST 

P57P0ST  +1 

V34-T  FRMINATF 

VB3 3- PROCEED  TO  COADSE  OP  FINE 

VB3 2- RECYCLE,  MAYBE  RE-ALIGN 

IMP  R ET 

BOV 

OGC 

SURFSUP 

OGCT 

BCV 

5DEGREES 

C OAT R I M 

GOTO 

QMI  N 

SURFDISP 

IF  ANGLES  GREATER  THAN  5 DEGS,  DO  COARSE 
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1775 

REF 

1 

15,3160 

33027 

1 

1776 

15,3161 

77776 

1 

SURFDISP 

EXIT 

1777 

REF 

98 

LAST 

97C 

15,3162 

0 5353 

1 

TC 

1778 

lr  , 316  3 

04024 

0 

OCT 

1780 

REF 

211 

LAST 

97  1 

15,3164 

0 6037 

0 

TC 

1781 

15, 3165 

75160 

1 

AXC  , 1 

1782 

REF 

1 1 

LAST 

97  1 

15,3166 

03606 

1 

1783 

REF 

49 

LAST 

957 

15,3167 

01733 

1 

1784 

15,3170 

4 5 C 1 4 

0 

SET 

1 

RFF 

7 

L A CT 

963 

15*3171 

01462 

0 

1786 

REF 

5 

LAST 

953 

15,3172 

31377 

0 

1787 

15,3173 

77776 

1 

EXIT 

178  3 

•REF 

11 

LAST 

928 

15,3174 

11 ' 145 

1 

CCS 

17- 

REF 

1 

15,317? 

1 3177 

1 

TCF 

1790 

REF 

3 

1 AST 

971 

15,3176 

1 3207 

0 

TC  F 

1791 

REF 

2 

LAST 

971 

15,3177 

3 4752 

0 

B2F8 

CAF 

1792 

REF 

15 

LAST 

97  1 

15,3200 

7 0104 

0 

MASK 

1793 

REF 

287 

LAST 

971 

15,3201 

10  - 

0 

CCS 

i 

REF 

1 

15,3202 

1 3561 

1 

TCF 

1 

REF- 

2 12 

LAST 

972 

16 , 3203 

0 6037 

0 

TC 

1796 

1 c , 320  4 

77624 

1 

CALL 

1797 

REF 

2 

LAST 

792 

15, 3205 

33506 

1 

17 

15,3206 

77776 

1 

P57P0ST 

EX  IT 

17 

REF 

3 

LAST 

942 

15 , 3207 

3 ,5751 

1 

CAF 

18P( 

REF 

303 

LAST 

97  1 

1 5 , 3 24  0 

0 46  16 

1 

TC 

1801 

REF 

9 

LAST 

95  0 

15,3211 

20623 

1 

CAD~ 

ieo? 

REF 

58 

LAST 

97  1 

15,3212 

1 6 0 01 

TC  F 

1803 

REF 

2 

LAST 

972 

15,3213 

1 3561 

1 

TCF 

1804 

REF 

45 

LAST 

928 

15,3214 

4 4752 

1 

CS 

180! 

REF 

12 

LAST 

972 

1 5 , 32 1 5 

i i 

n 

AD 

1 80( 

15,3216 

0 0006 

1 

EXTEND 

1 

15, 3217 

1 322  1 

1 

BZF 

1 

RFF 

59 

l AST 

97  ? 

15,322 0 

1 6001 

1 

TC  F 

l 1 

REF 

99 

LAST 

972 

15,3221 

0 5353 

1 

TC 

1810 

15 , 3222 

04  024 

0 

OCT 

1811 

REF 

213 

l AST 

972 

15  , 322  3 

0 6037 

0 

TC 

1812 

16,3224 

45175 

0 

VI.  DAD 

1813 

REF 

8 

l AST 

965 

1 K , 322  6 

02231 

0 

1814 

REF 

3 

LAST 

8 1« 

15,3226 

4766  L 

0 

1 

15,3227 

43105 

1 

VXM 

181' 

REF 

50 

LAST 

972 

15,3230 

01734 

0 

1817 

REF 

LAST 

932 

15,3231 

01463 

1 

1818 

15,3232 

51515 

1 

POV! 

181'- 

RFF 

10 

LAST 

932 

15,3233 

C2023 

1 

182° 

15,3234 

45561 

1 

VXSC 

182  1 

REF 

6 

l AST 

932 

15, 3235 

75745 

0 

STORE 

1822 

15,3236 

47014 

1 

Cl  EAR 
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USER'S  PAGE  NO.  47  E5  S3 

JUSTTRIM 

ANGLES  LESS  THAN  5 DEG , DO  GYRO  TORQ 

PHASCHNG 

04024 

..z 

IN  fPRET 

AXC  ,2 

X SMD 

REFS MM AT 

CALL 

P EFSMFLG 
MATMOVE 

OPT, I ON  2 

B2F8 

P 57 POST  +1 

IF  OPTION  ZERO  DO  FINISH 

I NITABTT 
FLAGWRD8 

A 

IF  INITIAL  FI  AG  SET,  RE-CYCLE. 

P57 JUMP 
INTPRET 

ITS  SET 

REFMF 

GO  GET  ATTITUDE  VEC  IN  MF ( YNBSAV , XNBSAV ) 

CCT14 

BANKCALL 

GOP  E H 

DISPLAY  V 5 0 N 2 5 CHK  CODE  14 

GOTOPOOH 

P57JUMP 

B IT  2 

GPTI0N2 

VB3^-TERM  INATE 

VB33-PROCE  ED  TO  RE-ALIGN 

TEST  TO  SE  IF  ALIGNED  BY  OPTION  2 

+ 2 

GOTOPOOH 

PHASCHNG 

04024 

INTPRET 

YES-GO  CALCULATE  LANDING  SITE 

NO-EXIT  P57 

RESTART  P L AC F 

CALL 

GSAV 

USE  GNB 

CDIJ*NBSM 

SET 

REFSMMAT 

LUNAFLAG 

ABVAL 

RLS 

STADR 

GO  TO  SM  COOFDS 

ON  MOON  SO  SET  LUNAFLAG 

G ( REF  I = ( REFSMMAT IT  (NBSM)GNB 

ALPHAV 

RTB 

ALPHAV  = P,L  SM  AG  * G ( R E F ) 

GAP:  ASSfcMBLE  REVISION  001  Of  A 66  PROGRAM  AP11RQPE  BY  EYLES 


L P51-P53 


1823 

REF 

3 

LAST 

932 

15,3237 

00662 

0 

ERADFLAG 

18  2 4 

REF 

27 

LAST 

956 

15,3240 

21573 

0 

LOADTIME 

1825 

1 5 , 324  1 

77624 

1 

CALL 

1826 

REF 

2 

LAST 

932 

15,3242 

3C  446 

1 

N89DI SP 

1827 

REF 

15 

LAST 

8 8 1 

15,3243 

01221 

1 

STORE 

RN 

1 Q o p 

15,3244 

65352 

0 

V S l 2 

PDDL 

L 

*REF 

19 

LAST 

960 

15,3245 

01243 

0 

GDT/2  +4 

1830 

1 5,3246 

77606 

1 

PUSH 

1831 

REF 

23 

LAST 

901 

15,3247 

35235 

0 

STCALL 

PIP  TIME 

1832 

REF 

2 

LAST 

79  1 

15,3250 

51670 

1 

R-TO-RP 

1833 

REF 

11 

L AST 

972 

16,3251 

02023 

1 

STORE 

RLS 

1834 

1835 

15.3252 

15.3253 

77776 

1 6001 

1 

1 

EXIT 

TC  F 

REF 

60 

LAST 

972 

GCTOPOOH 
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USER'S  PAGE  NO.  49 


SUBROUTINE  TC1  CALC  LS  AND  GIVE 
R N = R L.  S B-  29  = LM  POSITION 
F-TO-PP  GETS  RLS  B-27  AT  0-5D 
TIME  TEMP  STORED  IN  N89DISP 
TIME  AT  6-7  IN  PDl.IST 
PIPTIME  = LM  STATE  TIME 

f LS  IN  MOC’N— F I X ED  COORDS 


E5  S3 

RLS  BACK 
IN  PDLIST 


EXIT  P57 


t 

GAP:  ASSEMBLE  REVISION  001 

# I P 1-D53 


P 18 36  COARSE  AMD  FINE  ALI 
1837 


1838 

REF 

5 

LAST 

95.1 

1839 

1840 

REF 

22 

LAST 

964 

1841 

RFF 

6 

LAST 

972 

1842 

1843 

1844 

REF 

8 

LAST 

968 

1845 

1 P 4-  6 

REF 

4 

LAST 

968 

1847 

P.  EF 

4 

LAST 

664 

18471 

16472 

REF 

2 

LAST 

971 

1847  3 

REF 

1 

1847  4 

REF 

4 

LAST 

950 

18475 

REF 

304 

LAST 

0 7 2 

18476 

REF 

41 

LAST 

971 

18477 

REF 

61 

LAST 

973 

18478 

18479 
164791 
18'-'  7 92 

RFF 

100 

LAST 

972 

1848 
1848  1 

REF 

214 

LAST 

97  2 

1849 
185  C 

REF 

3 

LAST 

::  9-5Q 

1851 

1852 

1853 

REF 

4 

LAST 

950 

REF 

1 

1854 

1855  .EF  2 LAST  971 

1856 


AGC  PROGRAM  API  1R0PE  BV  EYL.ES 


I MU 


5,3254 

75160 

1 

COATRIM 

AXC  , 1 

5,3255 

02664 

1 

-,3256 

02642 

0 

5,3257 

77624 

1 

CAL  L 

5,3260 

31377 

0 

5,3261 

77624 

1 

CALL 

5,3262 

475  3 7 

0 

5 * 32 i 3 

776  24 

1 

CAL  L 

5,3264 

20030 

0 

5,3265 

77624 

1 

CALL 

5,3266 

47353 

1 

5,3267 

77414 

0 

BCFF 

5,3270 

04355 

0 

5,3271 

33303 

1 

5,3272 

3 =010 

0 

CAF 

5,3273 

0 46  16 

1 

TC 

5 , 3274 

2 0476 

0 

CADF 

5,3275 

0 6001 

0 

TC 

5 , 3276 

1 3300 

0 

TCF 

5,3277 

1 3272 

1 

TCF 

5 , 3300 

0 4353 

1 

TC 

->,  3301 

0402  4 

0 

OCT 

5,3302 

0 6037 

0 

TC 

5, 3 30  3 

77624 

1 

CORSIT 

CAL  L 

5, 3304 

31565 

u 

5 , 3 30 5 

776  24 

1 

CALI 

5,3306 

31602 

1 

5,3307 

77624 

1 

CALL 

5,3310 

32774 

1 

5,3311 

77650 

1 

GOTO 

5,3312 

33151 

1 

5,3313 

015  3 5 

0 

DISPGYRO 

VI. 

OF 

GN 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

l 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 


t" 
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974 


AXC  ,2 

XDC 

XSM 

mItmmve 

CDIJTR  IG 
CALCSMSC 

IF  INITIAL  ALGNMENT  DISPLAY  FINAL 
GIMBAL  ANGLES  IF  COARSE  ANGLES  GREATER 
THAN  5 DEGREFS 


INTPRET 

COARSE 

NC0AP5E 

GY  TRIM 

SURFD I SP 
0 6°  3 


CALC  G A 
EXIT 

I N I T AL  GN 
COR  SI T 
VQ6N22 
BANKCAL L 
GOFLASH 
GOTOPOOH 
+ 2 
-5 

PHASCHNG 

04024 


GAP:  ASSEMBLE  -E.VIilDN  001  OF  AQC  P'OGkAM  API 1ROPE  BY  t YLES 


P51  -p  5 3 


p 1857  LUNAR  SURFACE  I MU  ALIGNMENT  PROGRAM 


1858 
1 85  V 


REF  305 
REF-  2 


LAST 

LAST 


974 

950 


15.3314 

15.3315 


0 4614  1 
33652  D 


P57 


1880 

REF 

2-7 

LAST 

9?8 

1 5 , 33  1 4 

3 6245 

1 

1861 

REF 

13 

LAST 

972 

15 , 3317 

55 ' 145 

1 

1862 

REF 

47 

LAST 

970 

15,3320 

3 4753 

1 

1863 

REE 

306 

LAST 

975 

15,3321 

0 4<  l 

1 

1? 

REF 

2 

LAST 

928 

15,3322 

20713 

0 

I 

REF 

62 

L A ST 

974 

15,3323 

0 60  01 

0 

1 QAA 

DC  C 

i 

15,3324 

1 33  31 

L 

^ t;  r 

1 

18  1 

REF 

1 

15,3325 

1 3320 

1 

1868 

REF 

101 

LAST 

974 

1 5 , 3326 

U 535  3 

1 

1 

15,3327 

00014 

1 

1870 

REF 

143 

LAST 

96  6 

15,3330 

0 5155 

0 

1871 

*REF 

14 

LAST 

97  5 

15, 3331 

3 1145 

0 

187? 

REF 

28 

LAST 

975 

15,3332 

7 6245 

0 

1873 

REF 

2 88 

L A S T 

97  2 

1 5, 3333 

50  0 00 

1 

1878 

15,3334 

1 3 33  5 

0 

1876 

REF 

1 

15 , 3335 

l 3350 

0 

1876 

R EF 

1 

15,3336 

1 3411 

1 

1877 

REF 

2 

LAST 

975 

15,3337 

1 3320 

1 

1878 

REF 

215 

LAST 

974 

15,3340 

0 6037 

0 

1879 

15,3341 

75160 

1 

1880 

PEE 

rl 

LAST 

97? 

1 5 , 3342 

01733 

1 

1881 

REF 

12 

LAST 

97? 

15,3343 

0 3606 

1 

188  2 

776  2 4 

1 

1 y .?  3 *'v  * t 

1 

i 

REF 

7 

LAST 

974 

15 , 3345 

31377 

0 

1884 

15,3346 

77650 

1 

1885 

R C F 

2 

LAST 

97  6 

1 c . 3 3 h 1 

33410 

1 1 J ->  i 

1 

18  8 6 

REF 

216 

LAST 

975 

15,3350 

0 6 037 

0 

1887 

15, 3351 

77745 

1 

188  8 

REF 

42 

LAST 

8 39 

15,3352 

03442 

0 

1889 

REF 

29 

LAST 

965 

15,3353 

01046 

1 

11 

15,3354 

77  776 

1 

1891 

REF 

2 

LAST 

928 

15,3355 

3 2170 

0 

189? 

OFF 

30  7 

LAS' 

976 

1 5,335  6. 

0 46  1 6 

1 

1893 

“EF 

4? 

LAST 

974 

15,3357 

2 04  76 

0 

1894 

REF 

63 

LAST 

975 

15 ,3360 

1 6001 

1 

1895 

15,3361 

1 3363 

0 

1896 

REF 

1 

15,3362 

1 3355 

0 

15897 

REF 

217 

LAST 

975 

15, 3363 

0 6 037 

0 

1898 

15, 3364 

652  34 

1 

1 

REF 

28 

LAST 

973 

15,3365 

21573 

0 

1900 

REF 

30 

LAST 

975 

15,3366 

01046 

1 

P570PT 


ALIGNOPT 


TO  I S P 


P57A 


P c 7 A A 


TC 

C ADR 

CAF 

TS 

CAF 

TC 

C ADR 
TC 
TC  F 
TCF 

TC 

OCT 

TC 

C A 

MASK 

INDEX 

TCF 

TCF 

TCF 

TCF 

TC 

AXC  , !. 


CAL  I 
GOTO 


TC 

DLOAD 

STQ  E 

EXIT 

CAF 

TC 

CADP 

TCF 

TCF 

TCF 

TC 

PTB 
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BANKCALL 

IS  iSS  ON  - IF  NOT,  IMUCHK  WILL  SEND 

IMUCHK 

ALARM  CODE  210  AMD  EXIT  VIA  GOTOPOOH 

THREE 

J AM  REFSMMAT  OPTION  3 FOP  INITIAL  DISP 

0PTI0N2 

Bill 

BANKCALL 

G0PERF4F 

FLASH  V04NC6  FOR  ALIGNMENT  CODE 

GOTO POOH 

V34  TERMINATE 

ALIGNOPT 

V33  PROCEED 

P570PT 

V 32  RECYCLE 

PHASCHNG 

00014 

ENDOF JOB 

0PTI0N2 

THREE 

A 

A 

+ 1 

TDISP 

OPTldN  4 1 S 0° I ENT  ATI ON 

PACK  nPT  N 

0°TI0N  1 PREFERRED 

P570PT 

OPTION  2 INVALID  IN  P57,  RECYCLE 

INTPRET 

OPTION  3 REFSMMAT 

AXC,  2 

JAM  REFSMMAT  IN  XSMD  LOC 

REES MM AT 

X SMD 

MAT MOVE 

packoptn  -1 

INTPPvFT 

TIG 

LOAD  ASCENT  TIME  FOR  DISPLAY 

DSPTEM1 

VC6N34* 

DISPLAY  TAL1GN,  TALIGN  : DSPTEM1 

BANKCALL 

GOFLASH 

GOTO POOH 

V34-T  ERMINATE 

+ 2 

P57AA 

VB32-PECYCLE 

I NT  P F E ' 

POOL 

LOADTIME 

PUSH  CURRENT  TIME  AND  PICK  UP  KEY  IN 

DSPTEM1 

GAP:  ASSEMBLE  REVISION  oCl  OF  A SC  PR  OGR  AM  AP11ROPE  BY  EYLES 

L P51-P53 


1901 


1902 

1903 

REF 

1 

REF 

31 

LAST 

975 

1904 

l c 0 5 
1.90 

REF 

2 

LAST 

976 

REF 

43 

LAST 

975 

1907 

1908 

REF 

8 

LAST 

932 

1909 

1910 

1911 
1°  1 2 
1913 
191  A 

1915 

1916 

1917 
1°1  F 
191° 

1920 

1921 

1922 

1923 

1 c 2 4 

1925 

1 

1927 
152  5 
1 9 2 r 
1937 

1931 

1932 

1933 


REF 

REF 

REF 

F'EF 


9 
54 
1 3 


LAST  976 
LA  ST 

LAST  935 


REF  33 

FEF  13 
REF  2 

REF  184 
REF  3 
REF  4 
REF  4 
RLE  16 
REF  2 89 
REF  35 
REF  5 
REF  1 
REF  13 
REF  ?"-0 
REF  3 8 
REF  6 


REF 

REF 


39 

7 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


954 

975 
o 3 2 

970 

725 

976 
957 
957 

975 
96  0 

976 

8 6 5 

976 

9 20 
976 
976 

976 


15,3367 

15.3370 

15.3371 

15.3372 
15,  33  73 

15 . 3374 

15.3375 

15 . 3376 

15.3377 

1 5 . 3400 

15. 340 1 

15.3402 

15.3403 

15.3404 

15.3405 

15.3406 

15.3407 
1 5 , 34  1 C 

15.3411 

15.3412 

15.3413 

15.3414 

15.3415 
15,34  16 
15,3417 

15.3420 

15.3421 

15.3422 

1 5.342 3 
1 , 3424 

15.3425 

15.3426 

15.3427 


65254  1 
33400  0 
51025  1 
01046  1 
33400  0 


45*5  45 
74  33  5 
36775 
33402 
45545 
75002 
34041 
27057 
53575 
OC  001 
37607 
11C  13 
77776 
3 4755 
55' 145 
55 ' 146 
3 47  37 
7 007  7 
10  000 
3 4745 
27' 146 
3 4753 
7 01  02 
10  000 
3 47  50 
27 ' 146 
3 47  50 
55' 144 


EZE 

DSU 


DL  0 AO 
STORE 
STCALL 

PS7C  DLUAD 

STORE 

P570  STCALL 

VI,  GAO 
STCALL 

EXIT 

PACKOPTN  CAF 
TS 
TS 
CAF 
MASK 
CCS 
CAF 
AOS 
CAF 
MASK 
CCS 
CAF 
ADS 
CAF 
TS 


PDDL 
P57C 
B PL 

OS  PT  EM J 
P57C 
STAOR 
TIG 

T ALIGN 
P 570 
5TAD-1 
TAl IGN 
T DEC  1 
LEMPP EC 
UN  IT 
R ATT 
XSMD 

LSORIEMT 

ZERO 

OPT  ION  1 +1 
0PTIJN1  +2 
REFS MBIT 
FLAGWRD3 
A 

B IT7 

OPT I ONI  +2 
ATTFLBI T 

FLAGWPDfc 

A 

8 IT4 

OPT  I ONI  +2 

BIT4 

OPT  I ONI 


1534 

1935 

1936 

1937 

1938 

1939 

194  0 

194] 

1942 

1 

196-4 

1045 

1046 

1947 

1948 


K E F 
REF 
REF 
REF 

REF 

R EF 
REF 
REF 
REF 
REF 
REF 
OFF 
REF 
REF 


15,3430  3 3651  0 DSPGPTN  CAF 


V BOS  MO 6 


308 

LAST 

97  5 

15,3431 

0 ^ 6 1 6 

1 

TC 

BANKCAL l 

43 

LAST 

975 

15,3432 

20476 

0 

CADR 

GOFLASH 

64 

LAST 

975 

15  , 3433 

1 6001 

1 

TCF 

GCTOPOOH 

15,3434 

1 3436 

1 

TCP 

4-  9 

T4 

1 

1 5,743^ 

1 3430 

1 

TCF 

DSPOPTN 

5 

LAST 

976 

15,3436 

3 4737 

0 

CAF 

R EFSMB IT 

17 

LAST 

976 

15,3437 

7 0077 

0 

MASK 

FLAGWRD3 

291 

LAST 

976 

1 5,3440 

10  000 

0 

CCS 

A 

1 

15,3441 

1 3541 

0 

TCF 

GETLMATT 

2 

LAST 

«76 

15,3442 

3 47  53 

1 

CAF 

ATT FL BIT 

14 

L Ac  T 

976 

15, 3443 

7 0102. 

0 

MASK 

F LAG NR  D6 

292 

LAST 

076 

15,3444 

to  000 

0 

CCS 

A 

1 

15 , 3445 

1 3545 

1 

TCF 

BYL  MATT 

46 

LAST 

972 

15, 3446 

3 4752 

0 

CAF 

B I T 2 
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L EMP 

50S 

.115  PAGE 

USER'S  PAGE 

NO. 

51 

E5  S3 

IF  KEY  IN  TIME  ZFRO-T  A L I SN  = CUR R EM T TIME 
NOT  ZERO  SO  EXCHANGE  PD  WITH  DS  PT  EM  1 


IF  KEYIN  TIME  GREATER  THAN  CURRENT  TIME 
STORE  IT  IN  TIG 


COMPUTE  D ES I D E D IMU  ORIENTATION  STORE 
IN  X,Y,ZSMD 


PACK  FLAG  BITS  FOR  OPTION  DISPLAY 
JAM  ZERO  IN  ALIGNMENT  OPTION 
INITIALIZE  FLAG  BIT  CONFIGURATION 

P EFSMFL  G 

SET 

CLEAP-JUST  ZERO 

ATT  FL G 

SET 

CLEAR-ZERO  IN  A 

JAM  OOCIO  IN  QPTIQN1  FOR  CHECK  LIST 
OISPLAY  OPTION  CODE  ANO  FLAG  BITS 


V 83 4 -TERM  I NATE 

V33-PR0CEED 

V32-P.ECYCLE 


SET,  GO  COMPUTE  LM  ATTITUDE 
CLEAR-CHECK  AT TFL AG  FOR  STORFD  ATTITUDE. 


ALL  FL  G SET,  CHK  OPTION  FOP  gRAVITY 
SEE  IF  OPTION  2 OR  3 


COMP 


GAP:  ASSEMBLE  REVISION  OG1 


L P51-P53 


1949 

REF 

15 

L ART 

975 

1950 

REF 

293 

LAST 

976 

195  1 

REF 

2 

LAST 

976 

1952 

REF 

39 

LART 

959 

1953 

lORi 

R FF 

3 

} AST 

9 5° 

1955 

REF 

309 

L AST 

°7o 

1956 

REF 

44 

LAST 

976 

1957 

REF 

65 

LAST 

976 

1 95  B 

REF 

2 

LAST 

976 

195° 

RFF 

3 

LAST 

977 

AGO  PROGRAM  AP11ROPE  BY  EYI.ES 


5,3447  7 1145  1 MASK 

5.3450  10  000  0 CCS 

5.3451  1 3545  I TCP 

5 . 3452  0 5567  0 TC 

5.3453  00701  1 OCT 

5.3454  3 5006  1 CAP 

5.3455  0 '616  1 TC 

5.3456  20476  0 CADR 

5.3457  1 6001  1 TCF 

K,^4fc0  1 3430  1 TCF 

5,3461  1 34  30  1 TCF 


OF 

1 

1 

1 

1 

1 

1 

L 

1 

1 

1 

1 
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USER'S  PAGE  NO.  52  E5  S3 

0PTI0N2 

A 

BYLMATT 

ALARM  n 

701  ^V\ 

OPTION  2 OR  3 BUT  DONT  HAVE  ATTITUDE 
OPTION  IN CONS T ST ANT  WITH  FLACS-ALARM  701 

V HO 5 NO ° 

B ANKCALL 

GOFL ASH 

DISPLAY  ALAPM  FOP  ACTION 

GCTOPOQH 

DSPOPTN 

DSPOPTN 

VB34-TERM INATE 

V33-PROCEED  ********TEMPOr  ap.Y 

VB32-PFCYCLF  TO  OPTION  DISPLAY  V 05N06 

GAP:  ASSEMBLE  RE^ISIQN  001  Of  aGC  PROGRAM  API  1 ROPE  BY  EYlt 


t p ' l - P 5 3 


P I960 

TRANSFORM 

VFC  1 

,2  FROM 

MOON  FIXED  TO  REF 

AND  JAM 

BACK  IN 

VEC1 ,2 

1 Q A 1 

1 R _ UA  9 

A.AJ  on 

n 

M c K F F 

CTO 

c p T P n 

i o i 

> V_>  C C-  U 

L- 

1 TP  U 

O 1 V 

■)c  I r u 

1962 

REF 

12 

LAST 

954 

15 ,346  3 

02  74  6 

0 

QMAJ 

1963 

16,3464 

00001 

0 

0 

196  A 

, 846  5 

77634 

o 

p J 0 

l'-  5 

REF 

29 

LAST 

975 

15,3466 

21573 

0 

LOADTIME 

1966 

REF 

12 

LAST 

970 

15,3467 

27562 

0 

STOVL 

TSIGHT 

1967 

REF 

3 

LAST 

971 

15,3470 

02723 

0 

VEC  1 

1968 

1,7,3471 

4 15  2 5 

0 

PDOl 

PUSH 

1969 

REF 

1 3 

LAST 

97  8 

15,3472 

03562 

0 

TSIGHT 

1970 

15,3473 

77624 

1 

CALL 

1971 

REF 

4 

LAST 

932 

15,3474 

55716 

1 

F P-TO-R 

1972 

REF 

4 

LAST 

978 

15,3475 

26723 

0 

STOVL 

VEC  1 

1973 

REF 

2 

LAST 

970 

15,3476 

02731 

0 

VEC2 

1974 

15,3477 

65201 

1 

setpS 

DDDL 

1975 

15,3500 

00001 

0 

0 

19  7A 

RFF 

1 

L ACT 

978 

15,3501 

03  662 

g 

T S I GHT 

1977 

15,3502 

45006 

0 

PUSH 

CALL 

1978 

REF 

5 

LAST 

978 

15  , 3503 

557  16 

1 

RP-TO-R 

1979 

REF 

3 

LAST 

978 

15,3504 

36731 

1 

STCALL 

VEC2 

1980 

REF 

13 

LAST 

978 

15, 3505 

02  746 

0 

QMAJ 
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979 


198  3 

1984 

1985 

REF 

npF 

14 

Q 

LAST 

1 A ST 

073 

Q74 

1986 

1987 

1988 
1939 
199  0 

1 9 9 1 

REF 

30 

LAST 

978 

REF 

RFF 

1 5 

5 

LAST 

LAST 

978 

974 

1992 

1993 

1994 

t r ' 5 

18  >6 

i 

REF 

REF 

52 

LAST 

LAST 

968 

975 

REF 

e EF 

16 

3 

3 

4 

LAST 

LAST 

979 

073 

1“  ■ ' 

1993 
1999 
200  f 

REF 

REF 

LAST 

LAST 

202 

938 

200  1 
2002 
2003 

PFF 

RFF 

53 

1 7 

LAST 

LAST 

979 

979 

2004 

2005 

2006 

2007 

2008 
2009 

REF 

R EF 

REF 

REF 

4 

1 

1 

15 

LAST 

979 

LAST 

97  9 

15,3508  45020  1 R E F M F 

15,3507  02746  0 

1 5.3510  47537  0 

15.3511  40234  0 

15.3512  21573  0 

15,3613  OOCOl  0 

15.3514  37562  1 

15.3515  20030  0 

15.3516  61375  1 

15.3517  02673  1 

15.3520  01734  0 

15. 3521  65256  0 

15.3522  03562  0 

18.352  3 4 5006  0 

19.3524  81670  1 

15.3525  26237  0 

15.3526  02701  0 

15.3527  53505  1 

15.3530  01734  0 

19. 3531  41525  0 

lc  ,3532  03562  0 

15.3533  77624  1 

15.3534  51670  1 

15.3535  02245  0 

15.3536  77614  1 

18.3 5 3 7 03036  1 

15,3540  1 02746  0 


STO  CALL 

DMA  J 

COir'MG  GET  SIN  AND  COS  DF  CDUS 

RTB  SETPD 

LOADTIME 

0 

STCALL  TSIGHT 

CAL.CS MS C GET  YNB  T N SM 

VI  DAD  VXM 

YNB 

REFSMMAT  YNB  TO  P EF 

UNIT  PDDL 

TSIGHT 
PUSH  CALL 

p— TQ— P p 

STOVL  YNBSAV  YNB  TO  MF 

ZNB 

VXM  UNIT 

REFSMMAT  ZNB  TC  REF 

PDDL  PUSH 

TSIGHT 

CAt  L 

P-TO-RP  ZNB  TO  MF 

STORE  ZNBSAV 

SET  GO 

ATTFl AG 
QMAJ 
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L P51-P53 


P 201  0 

BRANCH  TU 

ALIGNMENT 

CPT I ON 

2 01  l 

REF 

213 

L AST 

975  ■ 

1 5 , 354  1 

0 6037 

0 

GETL  -1  ATT. 

TC 

201  2 

1 5,3542 

776  24 

1 

CALL 

2013 

RFF 

3 

LAST 

972 

15,3543 

13506 

1 

201 A 

15 , 3544 

77776 

1 

EXIT 

2015 

REF 

64 

LAST 

965 

15,3545 

0 5504 

0 

BYLM ATT 

TC 

2016 

REF 

3 

LAST 

974 

1 5,3546 

00205 

0 

ADI-.ES 

201  7 

REF 

46 

LAST 

975 

18,3547 

3 47  5 3 

1 

CAF 

2018 

REF 

16 

LAST 

977 

15,3550 

7 1145 

1 

mask 

201° 

c E F 

LAST 

Q77 

15,3551 

10  000 

0 

CCS 

2020 

REF 

2 

LAST 

965 

15,3552 

1 2563 

1 

TC  F 

202  1 

PvEF 

102 

LAST 

975 

1 5 , 355  3 

0 5353 

1 

ATTCHK 

TC 

2022 

15, 3554 

04024 

0 

OCT 

9 0 9 9 

R F F 

3 

1 Act 

976 

1 5 , 35  r 8 

3 4753 

1 

r AF 

C.'-  C D 

LHj  1 

L>  FA  1 

202'* 

REF 

15 

LAST 

976 

15,3556 

7 0102 

0 

MASK 

2025 

REF 

295 

LAST 

980 

15,3557 

10  000 

0 

CCS 

2026 

REF 

1 

13,3560 

1 35  75 

1 

TCF 

202  7 

REF 

103 

LAST 

980 

15, 35  6 1 

0 5353 

1 

P 57 JUMP 

TC 

202  8 

15,3562 

040  24 

0 

OCT 

2029 

REF 

89 

LAST 

965 

15,3563 

0 5516 

0 

TC 

2030 

REF 

4 

LAST 

980 

15,3564 

002  05 

0 

ADR  E S 

2031 

REF 

29 

LAST 

975 

15,3565 

3 6245 

1 

CAF 

20  3? 

REF 

1 7 

L ATT 

980 

15, 3566 

7 1 145 

1 

MASK 

2033 

REF 

296 

LAST 

980 

15,3567 

50  OOO 

1 

INDEX 

2034 

15,3570 

1 3571 

0 

TCF 

2035 

REF 

2 

LAST 

980 

15, 3571 

1 3575 

1 

TCF 

2036 

REF 

1 

15,3572 

1 3616 

1 

TCF 

2037 

P.EF 

1 

1 5 , 3573 

1 3634 

]_ 

TCF 

203  8 

PEF 

1 

15, 3574 

1 36  35 

0 

TCF 

3: 
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USER ' S PAGE  NO.  5*  E5  S3 

I NTP-  ET 

R EFMF 

GO  TRANSFORM  T0  MF  *N  YNBSAV, ZNBSAV 

IJPFLAG 

1NITALGN 
b i ri 

SET  INITIAL  ALIGN  FLAG 

OPT  I ON  2 

A 

SEE  tf  OPTION  1 OR  3 

GVDETER 

PF  ASCII  NG 

04024 

OPTION  1 CR  2,  GET  GRAVITY 

ATT  FL  B IT 
FLAGWRD6 

A 

NOT  1 OP  3,  CHECK  ATT  FL AG 

P57DPT0  , 
PHASCHNG 

04024 

GET  ALIGNMENT  VECS  FOR  OPTION  0 

DOWNFLAG 

INITALGN 

THREE 

ATT  FL  G CLEAP.-RESET  INTALIGN  FLAG 

QPTI0N2 

A 

+ 1 

BRANCH  ON  OPTION  CODE 

P57OPT0 

P570PT1 

P570PT2 

P 570  P 1A 

OPTION  IS  0 

OPTION  IS  1 

OPTION  IS  2 

OPTION  IS  3 

ASSEMBLE  REVISION  001  Of  AGC  PROGRAM  API 1R0PE  BY  EYLES 


SAP: 


L P51-P53 


P 2039  OPTION  0,  GET  TWO  ATTITUDE  VECS 


2040  REE  219 

204 1 

2042  RFF  4 

2043  RFF  K 

2044  REF  2 

2045  REF  4 

2040  REF  10 

2047 

204  S P.EF  6 

20*9 

2050  REF 

2051  REF  11 

2052  REF  5 

2053  REF  8 

2054  ”EF  1 

205* 

2056  REF  2 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


LAST 


9:60 


979 
97  R 

979 

978 

979 

979 

979 
97  1 
979 
951 


970 


15.3575 

14.3576 

15. 3577 

15.3600 

15.3601 

15.3602 

15.3603 
1 K , 3 6 C 4 

15 .3605 

15.3606 
1 5 , 36C  7 

15.3610 

15.3611 

15.3612 

15.3613 
15,3*1 4 
15,3615 


0 6037  0 
77775  1 
02237  0 
26723  0 
02245  0 
36731  1 
47537  0 
776-24  1 
20030  0 
77775  1 
02673  1 
26761  0 
02701  0 
36767  1 
33462  1 
77650  1 
33101  1 


P57GPT0  TC 

VLOAD 

STOVL 

STCALL 

CALL 

VLOAD 

SAMETYP  STOVL 

STCALL 

GOTO 


R 205 7 


OPTION  1,  GET  IANOJNG  SITE  AND 


Z-A I 1 ITUDE  VFC 


205  8 

REF 

220 

2059 

2060 

REF 

12 

2061 

REF 

6 

2062 

REF 

3 

2063 

R EF 

5 

2064 

RFF 

1 1 

2Pfc  F 

2066 

P EF 

7 

2067 

2068 

REF 

9 

2069 

REF 

4 

2070 

207  1 

o EF 

1 

LAST  9P1 

LAST  973 
LAST  981 
LAST  1 

LAST  961 
LAST  981 

LAST  981 

LAST  972 
LAST  072 


15.3616 

15.3617 

15.3620 

15.3621 

15.3622 

15.3623 

15.3624 

15.3625 

15.3626 

15.3627 

15 . 3630 

15.3631 
1 : ,363  2 
15,3633 


0 6037  0 
53575  0 
2<  2 3 1 
26723  0 
02245  0 
3*731  1 
47537  0 
77624  1 
20030  0 
45175  0 
02231  0 
47661  0 
77650  1 
33610  0 


P f 7 0 P T 1 


TC 

VL  HAD 
STOVL 
STCALL 
C At  L 
VLOAD 

GOTO 


I MPRET 

YNBSAV 
VEC1 
ZNBSAV 
V EC2 
CDUTf-  IG 

CALCSMSC 

YNB 

STAT  S AVI 
ZNB 

STARSAV2 

MFRFE 

SURFLINE 


INTPRET 

UNIT 

RLS 

V EC  1 

ZNBSAV 

VEC? 

COUTR IG 

CALCSMSC 

CALL 

GSAV 

CDU*NBSM 


SAMETYP 
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Y AND  Z ATTITUDE  WILL  BE  PUT  IN  REF 


COMPUTE  SC  AXIS  WTT  PRESENT  SM 


Y SC 

AXIS 

WRT 

PRESENT 

SM 

z SC 

AX  I S 

WRT 

PRESENT 

SM 

TRANS F OF M 

VFC 

1,2  FROM 

MF  TO  REF 

LANDING  SITE  VEC 
Z ATTITUDE  VEC 


GET  ZNB  AXIS  WRT 

PRES 

SM 

FOR 

STARS 

AV2 

TRANS  GSAV  FROM 

MB  TO 

SM 

FOP 

STARS 

AVI 

NOW  DP  SAMF  AS  OPTION  0 
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P51- 

-P  5 3 

USER'S  PAGE  MO.  57  F5  S3 

2072 

OPTION  2, 

GET 

TWO  STAR  SIGHTINGS 

2073 

REF 

ggwLgg 

15,3634 

1 308-5 

1 

P570PT2 

TCP 

2STARS 

DO  SIGHTING  CN  2 STARS 

2074 

OPT 

ION  3. 

, GET 

I AND  IN 

G 31 Tt  VFC 

AND  ONE 

stap  sighting 

2075 

REF 

221 

LAST 

981 

15, 3635 

0 6037 

0 

P570PT3 

TC 

INTPRET 

207  6 

15,3636 

53575 

0 

VLOAD 

UNIT 

2077 

REF 

13 

LAST 

98  1 

15,3637 

C2023 

1 

RLS 

LANDING  SITE  VEC 

207  P 

REF 

7 

LAST 

g„  ! 

1 5, 3640 

02723 

0 

STOP  g 

VEC  1 

2079 

REF 

6 

1 AST 

98  1 

19,3641 

2 6 731 

0 

SI  VI 

VFC2 

DUMMY  VEC  2 FOR  2ND  CATALOG  S T AD 

2080 

REF 

10 

LAST 

08  1 

15,364-2 

02231 

0 

GSAV 

GRAVITY  VEC  NB 

2081 

15,3643 

77624 

1 

CALL 

2082 

PEF 

5 

LAST 

981 

I 9,3644 

47661 

0 

CDU*NBSN 

TRANS  GSAV  FROM  NB  TO  SM  FOP.  STAPSAV1 

2 ( - 

REF 

12 

LAST 

98  1 

15,3645 

36  761 

1 

STCALL 

STARSAV1 

20  84 

REF 

2 

LAST 

9 .1 

15,3646 

33462 

1 

MFRFF 

ST  Ac  $ AV2  IS  STORED  AS  2ND  OBSERVED  STAP 

2085 

1 5,364  t 

777  76 

1 

EXIT 

2086 

REF 

2 

1 AST 

070 

15,3650 

1 3 047 

o 

TC  F 

1 S T A ft 

1 STAR  GFT  VFf  7 . ST  AP  S A V'  2 . GtlF  S TH  SIIRFI  INF 

I J 1 H ('  W L_  i VLV.6.IJ1  Hr  jHV6.TWULO  I U JUiS  1 L 1 1,  L 

2087 

1 , 1651 

01206 

1 

VB05N06 

VN 

506 

GAP 


ASSEMBLE  REVISION  001  OF  AGO  PROGRAM  APUftOftE  BY  EYLES 


L 

P51-P53 

P2088 

CHECK  IMODES30 

TO 

VAR  IF Y 1 MU 

2089 

REF  46 

LAST 

470 

15,3652 

2090 

REF  25 

LAST 

955 

15,3653 

209  1 

PEF  297 

LAST 

930 

1 5,36=4 

209  2 

1 = , 3 = 5 5 

IS  ON 


4 1302 

0 IMU.CHK 

cs 

I MODE S30 

7 4743 

1 

MASK 

B I T9 

10  000 

0 

CCS 

A 

1 3661 

1 

TC  F 

+ 4 

2093 

REF 

40 

LAST 

977 

15, 

,3656 

0 5567 

0 

2C94 

15, 

,3657 

002  10 

1 

2< 

REF 

66 

LAST 

9 77 

15, 

,3660 

0 6001 

0 

TC  ALARM 

OCT  210 

TC  GOTUPOOH 


2096  !'EF  *165  LAST  990  15,3?6l  0 = 5o4  0 

2097  REF  5 LAST  383  15,3662  0C007  0 


TC  Of  PL  AG 

ADRES  I MUSE 


2093  REF 


LAST  876  1 >,3663  U 4631  1 


TC  SWRETUPK 


2099  04,3013 

2100  REF  2 LAST  24<=  04,2000 

2101  04,3013 

2102  REF  1 


BANK  04 
SETLC1C  A0TMARK2 
BANK 

Cl  UNT*  $$/P57 


2103 

2104  REF 

210  i 

2106 

2107  REF 
210 
2109 

2 1 1 C REF 

2111 

2112  PEF 

2113  REF 

2114  REF 


16  LAST 
6 LAST 

2 LAST 

14  LAST 

5 l AST 

15  LAST 

6 LAST 

17  LAST 


04 ,3013 
979  04,3014 

841  04,3015 

04,3016 
841  04,3017 

,976  04,3020 

04 , 3021 
954  04,3022 

04 , 302  3 
983  04,3024 

04, 3025 
933  04,3026 


77220  1 LSORI 
92746  0 
91555  0 
47235  0 
01563  0 
03607  0 
77656  1 
03623  0 
53435  0 
03607  0 
37615  1 
02744  0 


STQ  V LOAD 

QMAJ 

prPctcsm 

vxv  vxv 

VRECTCSM 

XSMD 

UNIT 

STORE  Z.SMD 

VXV  UNIT 

XSMD 
STCALL  YSMD 
QMAJ 
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PAGE 


933 


. 2 , 19  70 
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IS  I MU  ON 
YES 

NO,  SEND  ALARM  AND  EXIT 


SET  IMUSE  FLAG 


9 


0 

GAP: 

L 

R 2000 
R 200  2 
R2004 

R 2006 

R.  2007 
R 2009 
R 20 1 1 
R 2012 
P.  2013 
R 201  A 

R 2015 
R 201b 
R2017 
R201 c 
R 2020 
R 202  1 
R 2022 
R 2 0 2 3 
R 202  6 
R 202  5 
R 2026 
R 2028 
R 202  b 
R 203 1 

P 2033 
R 2 0 3 5 
R 2037 
R 2039 

R 204 1 
R 204  2 
R 2043 

R 204-5 
3..  R 2046 
R 2048 
R205C 
R 205 1 
R 2052 
R 205* 
R 2055 
R2C57 

R205C 

P 2061 
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LUNAR  AND  SOLAR  E PH F R ER I DES  SUBROUTINES  USER'S  PAGE  NO.  1 EG  S3 

NAME  - LSPOS  - LOCATE  SUN  AN D MOON  DATE  - 25  OCT  67 

MOD  NO. 1 

MOD  BY  NEVILLE  , ASSEMBLY  SUNDANCE 

FUNCTIONAL  DESCRIPTION 

COMPUTES  UNIT  POSITION  VECTO'  OF  THE  SUN  AND  MOON  IN  THE  BASIC  REFERENCE  SYSTEM.  THE  SUN  VECTOR  S IS 
LOCATED  VIA  TWO  ANGLES.  THE  FIRST  AN GL E ( 0 BL I QU I T Y ) IS  THE  ANGLE  BETWEEN  THE  EARTH  EQUATOR  AND  THE  ECLIPTIC.  THE 
SECOND  ANGLE  IS  THE  LONGITUDE  OF  THE  SUN  MEASURED  IN  THE  ECLIPTIC. 

THE  POSITION  VECTOR  CF  the  SUN  IS 

S=(CO  (l  n),  O’sl  ift)*S!N(LO  >,  SIN(C'BL)*SINC.  nr  ) ) , WHE-F 

LOS=  LOS  + LOS  *T— (C  * S I N ( 2pI *T ) / 36  5 . 24  +C  *C  0 S ( 2 P I *T  ) / 3 6 5 • 2 4 ) 

0 R 0 1 

LOS  ( AD)  IS  THE  LONGITUDE  OF  HE  SUN  FOR  MIDNIGHT  JUNE  30TH  OF  THE  PARTICULAR  YEAR. 

0 

L0C  (RAD/DAY)  IS  THE  NEAR'  RAT|  FOR  THE  13  AR T I CUL  AR’  Y®A  R . 

R 

LOS  AND  LOS  ARE  STORED  AS  LOSO  AND  L OSR  IN  RATESP. 

0 R ■ - ■ 

Cf  • I ' 3L ) AND  SIM(OBL)  ARE  STORED  IN  THE  MAT  IX  K UNMAT. 

T,  TIME  MEASURED  IN  DAYS  (24  HOURS),  IS  STORED  IN  TIME*3. 

C A HO  C A1  E FUDGE  FACTO'-'S  r0  MINIMIZE  THE  DEV  I A*' TON.  THEY  ARE  STORED  AS  ONE  CONST AST ( CMOD  > , SINCF 
01  221/2 
C *SIN(X)+C  *COS(X)  CAN  BE  WRITTEN  AS  (C  +C  ) *SIN(X+PHI),  WHERE  PHI=ARCTAN(C  / C ). 

0 1 0 1 10 

THE  tfC  IS  LOC AT  EE  VIA  FOUR  ANGLFS.  T HE  FIRST  IS  THF  OBLIQUITY.  THE  SECOND  IS  THF  MEAN  LONGITUDE  OF  tHE  MOON, 
MEASURED  IN  THE  ECLIPTIC  FROM  THF  MEAN  EQUINOX  TO  THE  MEAN  ASCENDING  NODE  OF  THE  LUNAR  n D R I T , AND  THEN  ALONG  THE 
ORBIT.  THE  THIRD  ANGLE  IS  THE  ANGLE  BETWEEN  THE  ECLIPTIC  AND  THE  LUNAR  ORBIT.  THE  FOURTH  ANGLE  IS  THE  LONGITUDE 
OF  THE  NODE  OF  THE  MCON,  MEASURED  IN  THE  LUNAR  ORBIT.  LET  THESE  ANGLES  BE  OBL,LOM,IM,  AND  LON  RESPECTIVELY. 

THE  SIMPLIFIED  POSITION  VECTOR  OF  THE  MOON  IS 

-1=  (COS  ( tOMl,  COS  ( 0 BU  * S I N ( LOM ) - S I S'  < 0 BL ) *S  I N ( I M ) ‘*  S I U OM-LON  ) , « IMOBD*SIN<  LOM  > +COS  (OBI.)  *51  N(  IM  ) * S T N ( LCM-LOM  ) ) 


WHERE 

LCM=  LOM  +LOM  * T - ( A *S  I-N  2PI*T/27.  5545  + A *C0 S ( 2P I* T / 27 . 5 5 45  )+B  *SIN  2PI*T/32+B  *CQS ( 2 P I *T / 3 2 ) ) , ANO 
0 R 0 1 Q 1 

LCN=LON  + LON 
0 R 

A , A , B AND  ! L ED  A AMOD  AND  BMOD  (SEE  DESCRIPTION  IF  CMOD,  ABOVE).  COS(OBL),  SI N ( OBL  ) *S IN < IM ) , 

0 10  1 

SIN(OBL),  AND  COS  I OBL ) *S IN ( I"  ) ARE  STORED  IN  KCNMAT  AS  KI,  K2.  K3  AND  K4 , ....RESPECTIVELY.  LOM  , LOM  , LON  , LON 
APE  STORED  AS  L 0MO , LCMP , LONG,  AND  LONR  IN  RATESP.  0 R 0 R 

THF  THREE  PHIS  AS  F STlV'ED  AS  A ARC.,  BARG,  AND  CARG(SUN).  ALL  CONSTANTS  ARE  UPDATED  BY  YEAR. 

CALI.  TNG  SEQUENCE 
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EO  S3 


GAP:  ASSEMBLE  REVISION  0G1  OF  AGC  PROGRAM  AP11R0PE  BV  EYltS 

L LUNA:  AND  SOLAP  EPHEME ; I DES  SUBROUTINES 

R2062  CALL  LSPOS.  RETURN  IS  VIA  QPRFT . 

R 2063  ALARMS  OR  ABORTS 

R 2064  NONE 

R 2065  ERASABLE  INITIALIZATION  REQUIRED 

R 2Cf»t  EPEE.!  - TIME  F'  0 >•!  MCNIGHT  1 JULY  PRECEDI!  G THE  LAUNCH  TC  THE  T I ME  OF  THE  LAUNCH  (WHEN  THE  AGC  CLOCK  WENT 

R 2 < ' ' T f ZENO).  TEPHEM  IS  TP  ••  ITH  UNITS  OF  CENT  I-SFCONDS. 

R20‘.'  . I "i-2  AND  TIME1  Ar  E IN  MPAC  AND  MPAC  +1  WHEN  PROGRAM  IS  CALLED. 

R 2070  OUTPUT 

R 207 1 UNIT  P0SITI1NAL  VEC  'OR  OF  SUN  IN  VSUN.  (SCALED  B-l  ) 

R 207  2 UNIT  POSITISNAL  VEC.  OF  'iQON  IN  VMOON.  (SCALED  6-1) 

R 207  3 SUPPf 'UT  IN  ES  USED 

R 2074  NONE 

R 2075  DEBT  IS 


R 207  6 CURRENT  CORE  SET, WORK  AREA  AND  FREEFlAG 

2077  04,3027 

207701  REF  1 15,2000 

207702  15,3664 


2078  D EF 
207»p  REF 
20786  P.  EF 


LAST 

LAST 


962 

935 


E5 , 17  14 

1 5 , 3664 


LUNPGS 


BANK  04 
SETLOC  EPHEM 
BANK 

EBANK = VSUN 
COUNT  * $$ /EPHEM 
EQUALS  LSPOS 


2079 

15, 3664 

54201 

0 

LSPOS 

SETPD 

sr- 

2080 

15,3665 

0CG01 

0 

0 

20£  2 

15,3666 

2 0617 

0 

14D 

TP 

20B3 

15, 3667 

56371 

1 

TAD 

DDV 

2084 

REF 

3 

LAST 

243 

1 5,3670 

01707 

0 

TEPHEM 

TIME  CF  LAUNCH 

2086 

REF 

1 

15, 3671 

12024 

1 

CSTODAY 

24  HOURS- 8640000  CENTT 

2037 

REF 

1 5 . 36  7 ? 

QG031 

n 

STORE 

TIMEP 

T T M n A V C 

J.  1 J 1 1 c. 

1 1 INI  DAY  5 

208  8 

15,3673 

77170 

i 

AXT  , 1 

AXT,  2 

16,3674 

OOCOO 

i 

0 

2090 

15,3675 

00000 

i 

0 

2091 

15, 3676 

776  14 

i 

CLEAR 

2092 

REF 

11 

LAST 

971 

15,3677 

00274 

0 

FREEFLAG 

SWITCH  BIT 

209  3 

1 5,3  700 

77  745 

1 

POSIT A 

DLCAQ 

2C94 

REF 

1 

1 5 , 370-1 

1 2 004 

0 

KONMAT  +2 

ZEROS 

20lJ  5 

REF 

1 

1 3702 

00027 

1 

STORE 

GTMP 

20  9 6 

15,3703 

4 0745 

0 

POSITB 

Dl  0 AO 

DMP* 

2( 

REF 

2 

LAST 

985 

15,3704 

00031 

0 

TIMEP 

T 

2098 

REF 

1 

15,3705 

12050 

1 

VAL67  + 4 , 1 

1/27  OR  1/32  OR  1/365 

985 
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936 


2099 

15,3706 

42661 

0 

SL 

DAD* 

210< 

15,3707 

20211 

1 

8D 

2101 

REF 

2 

LAST 

98  5 

15,3710 

12046 

0 

VAL67  +2,1 

AARG 

2102 

15,3711 

40756 

1 

s r im 

OMP* 

SIN  (T /27  + PEtI  ) HP  T/32  OR  T/365 

2103 

REF 

3 

LAST 

986 

15,3712 

120^4 

1 

VAL67 , 1 

( A0**2+Al**2)**l/2SIN( X+PHIA) 

2104 

15 , 3713 

62015 

1 

DAD 

I NCR  ,1 

PIUS 

2105 

REF 

2 

LAST 

985 

15,3714 

00027 

1 

GTMP 

( B0**2  + B1**2 ) **1/2  SIN (X  + PHIB) 

2106 

15 ,3715 

77771 

0 

DEC 

-6 

01 

. fit  F 

3 

LAST 

986 

15,3716 

CG027 

1 

STORE 

GTMP 

OR  (CC**2  + C1**2  )**1/2S  IN( X + PHIC ) 

2108 

15,3717 

776  14 

1 

BOFSET 

2109 

REE 

12 

LAST 

985 

15,3720 

0 C 0 5 4 

0 

FPEEFLAG 

2110 

PEF 

1 

1 r , 37  2 1 

337C3 

0 

PCSI TB 

2111 

15,3722 

4 0745 

0 

POSIT  D 

DLOAD 

DNP* 

2112 

REF 

3 

LAST 

985 

15,3723 

00031 

0 

TIMEP 

T 

2113 

RLI 

1 

15,3724 

65747 

0 

a A T E S P » 2 

LOMR, LOSE , LCNR 

2114 

15 , 37 2 9 

4 2661 

0 

SL 

DAD* 

2115 

1 5 , 372  6 

2 0206 

1 

50 

2116 

9 E-F 

2 

l A ST 

98  6 

15 , 3“727 

f, 574.1 

0 

RATFSP  +6.2 

1 OMD. 1 nso . 1 ONO 

2117 

15,3730 

77625 

0 

DSU 

2118 

REF 

4 

LAST 

986 

15,3731 

00027 

1 

GTMP 

2119 

REF 

1 

15,3732 

10021 

0 

STORE 

STMP , 2 

LOM, LOS, LON 

2120 

15,3733 

63135 

0 

SLOAD 

I NCR  ,2 

2121 

kEF 

17 

LAST 

964 

15,3734 

00050 

1 

X2 

2122 

15,3735 

77775 

1 

DEC 

-2 

2123 

15,3736 

53015 

0 

DAO 

BZE 

2 1 2 A 

REF 

1 

15,3737 

12  026 

0 

RCB-13 

PLUS  2 

2125 

REF 

1 

15,3740 

33770 

1 

POSITE 

2ND 

2126 

15,3741 

77644 

1 

BP  L 

2127 

PEE 

1 

15,3742 

3 3TuO 

0 

POSI TA 

1ST 

2128 

1 5,3763 

45345 

1 

POST  te 

DLOAD 

DSU 

3RD 

2129 

PEF 

2 

LAST 

986 

15 , 3744 

00021 

1 

STMP 

LOM 

2130 

REF 

3 

LAST 

986 

15,3745 

00025 

0 

STMP  +4 

LON 

2131 

1 5.3746 

65356 

SIM 

Dnni 

c [ ii  1 | n.M-l  PE  ) 

i.  t ’ > 

O i TV 

UUL 

2132 

PEF 

4 

LAST 

986 

15, 3747 

00021 

1 

STMP 

2133 

15,3750 

65356 

1 

S I N 

PDDL 

SIN  LOM 

2134 

R F F 

5 

L APT 

Q ft  6. 

15,375 1 

0<:  02  1 

1 

STMP 

2135 

1 5 , 37c  2 

55  546 

0 

COS 

VDEF 

COS  LOM 

2136 

15,3753 

5352  1 

1 

MXV 

UNIT 

2137 

REF 

2 

LAST 

935 

15,3754 

12002 

0 

KONMAT 

K 1 , K2  , K3  , K4 , 

2138 

RFF 

8 

LAST 

9 35 

15,3755 

02723 

0 

STORE 

V MOON 

2139 

1 r , 3756 

6 5 345 

0 

DLUAD 

PDDL 

2140 

R EE 

3 

L AST 

986 

15,3757 

1 2004 

0 

KONMAT  +2 

ZERO 

2141 

REF 

6 

LAST 

996 

15,3760 

00023 

0 

STMP  +2 

2142 

15,3761 

65356 

1 

SIM 

°DDI. 

SIN  LOS 

2143 

REF 

7 

LAST 

986 

15,3762 

00023 

0 

STMP  +2 

2144 

15,3763 

55546 

0 

COS 

VDEF 

COS  LOS 

2146 

15,3764 

5352  1 

1 

MXV 

UNIT 

2146 

REF 

4 

LAST 

c 36 

15,3765 

12002 

0 

KONMAT 

214  7 

REF 

7 

LAST 

985 

15,3766 

02715 

0 

STORE 

VSUN 

2148 

15,3767 

77616 

0 

RVQ 

GAP: 
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2140 

2150 

2151 

2152 

2153 

21535 

21536 

21537 

2153  8 

2163 

2164 

2165 


LUNAR  AND  SOLAR  EPHFMERI DES 

15,3770 

REF  5 LAST  936  15,3771 

REF  5 LAST  936  15,3772 

15,3773 

REF  1 15,3774 

15,3775 

REF  2 LAST  51  05,2000 

05,3506 

■ EF  2 LAST  51  TO  52: 

0026 
0026 
00  3 0 


SUBROUT  INFS 

77745  1 POSTTE  DLOAD 

1200^  0 

00027  1 STORE 

77650  1 GOTO 

33722  0 

77616  0 LUNVFL  RVO 

SETLOC 

BANK 

52  52*  COUNT* 

STMP  EQUALS 

GTMP  FOUALS 

TI«EP  EQUALS 


KONMAT  +2 
GTMP 

POSITD 

EPHEM1 

* t/EPHEr 
16D 
220 
240 


***  END  OF  LEMP50S  .115  *** 
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987 


ZEROS 


*0  FOOL  TNTEGt' ATTQN 
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DOWN-TELEMETRY  PROGR  Am 


USER • S PAGE  NO. 


EO  S3 


R 000 1 
R 0002 
R00Q4 
R 0006 
P 000 
R 001  0 
R001  1 
POO  12 
R001  3 
R CO  1 A 
ROO 1 5 
R 0 0 1 6 
R0017 
R 00 1 8 
ROC  1 9 
R 0020 
ROO  21 
R 002  2 
R 002  3 
R002  4 
R 0025 
R 002  6 
R 0027 
R 0028 
R 002c 
R 0030 
ROO  3 1 
ROO  3 2 
R 0033 
R 003  A 
R0036 
R0038 
R 0040 
R 0042 
R OCR  3 
R00A7 
R004  8 
R 0 3 
R 0050 
R 005  1 
R0C52 
R 005  2 2 
R 00525 
R00526 
R 0053 
ROC  5 A 
R 005  5 
R 0056 
R 0088 
R 0059 


PROGRAM  NAME-  DOWN  TELEMETRY  PROGRAM 

MOD  10.-  0 TC  COMPLETELY  REWRITE  THE  DOWN  TELEMETRY  PROGRAM  AND  DOWNLINK  ERASABLE  DUMP  PROGRAM  FOR  THE 

PUF.P'  SE  CP  SAVING  APPROXIMATELY  150  WORDS  OF  CORE  STORAGE. 

■Hi:  CHA-  of  ' EQIJI  !■’  FS  AN  ENTIRELY  NEW  METHOD  OF  SPECIFYING  DOWNLINK  l I STS.  REFER  T0  DOWNLINK 
LISTS  LOP  SECTICf  FL.C  MOPE  DETAILS.  HO  WE  V EP  THIS  CHANGE  WILL  NOT  AFFECT  THE  GROUND  PROCESSING 
OF  DCWN  TELEMETRY  DATA. 

MOD  BY-  KILROY,  SMITH,  DEWITT 
DATE-  020CT67 

AUTHORS-  KILROY,  SMITH,  DEWITT,  DEWOLF,  FAGIN 
LOG  SECTION-  DOWN-TELEMETRY  PROGRAM 

FMMCTIi.  f A L DFSC  IPTI  THIS  ROUTINE  IS  INITIATED  BY  TELEMETRY  END 

PULSE  F'Tm  THE  DOWN  LINK  TELEMETRY  CONVERTER.  THIS  PULSE  OCCURS 
AT  50  TIMES  P EF.  SECLEVEPY  20  MS)  THEREFORE  DQDOWNTM  IS 
EXECUTED  AT  THESE  RATES.  THIS  ROUTINE  SELECTS  THE  APPROPRIATE 
AGC  DATA  TO.  BE  TRANSMITTED  DOWNLINK  AND  LOADS  IT  INTO  OUTPUT 
CHANNELS  36  AND  35.  THE  INFORMATION  IS  THEM  GATED  OUT  FROM  THE 
LGC  IN  SERIAI  FASHION. 

THIS  PI'OGRAM  T'  CODED  FOR  A 2 SECOND  DOWN!  1ST . SINCE  DPWNRUPTS 
OCCUR  EVERY  20MS  AND  2 AGC  COMPUTER  WORDS  CAN  BE  PLACED  IN 
CHANNELS  36  AND  35  DURING  EACH  pOWNRUPT  THE  PROGRAM  IS  CAPABLE 
OF  SEND  NG  2-0.  AGC  WORDS  EVERY  2 SECONDS. 

CALLING  SEQUENCE-  NOME 

PROGRAM  TS  ENTE:  ED  VTA  *:CF  DDDOWNTM  WHICH  IS  EXECUTED  AS  A 
1ESULT  F A ■)  ,-M  OJPT . CONTROL  IS  RETURNED  VIA  TCF  RESUME  WHICH 
IN  FFFECT  IS  A RESUME. 

SUBROUTINES  CALLED-  NONE 
NORMAL  EXIT  MODE-  TCF  RESUME 
ALARM  f'"  ABORT  EXIT  M;UF—  LONE 
; ESTAPT  PR  jTECTI!  0 : 

ON  A FRFSH  START  AND  RESTART  THE  ’STARTSUB'  SUBROUTINE  WILL  INITIALIZE  THE  DnWNL  PST  POI  l#E«M  ACTUAL  LY 
) 1 3 OF  9 C )RRE  INI  ISTII.E.  CU  REN-  CONTENTS  OF  DNLSTADR).  TH!S  HAS  1 H E 

EFFECT  F IG  ING  THE  kEMAIMDEI  OF  THE  DOWMLIST  WHICH  THE  DOWN-TELEMETRY  PROGRAM  WAS  WORKING  ON  WHEN 
THE  RESTART  (OR  FRESH  o T AT)  OCCU.-.ED  AND  RESUME  DOWN  TELEMETRY  FROM  THE  BEGINNING  OF  THE  CURRENT 
DOWNL 1ST. 

ALSO  IF  iiiTE  EST  IS  THE  FACT  THAT  ON  A RESTART  THE  AGC  WILL  ZERO  DOWNLINK  CHANNELS  13,  34  AND  35. 

DC WML INK  LIST  SELECTION: 

THE  APPROPRIATE  DOWNLINK  LISTS  ARE  SELECTED  BY  THE  FOLLOWING: 

1.  FRFSH  START 

2.  V37EXXE  WHE:  E XX  = THE  MAJOR  MODE  BEING  SELECTED. 

3.  UPDATE  PROGRAM! P 27 ) 

/:.  N0N-V37  SELECTABLE  TYdE  PROG1  AMS  ( E.  G.  AGS  INITI  AL  I Z AT  IQr  ( SUNDANCE  , LUMINARY  ) AND  P61-P62 

TP  AN  ! T t ON  ( COI..US  ?U  ) E rC  . ) . 

DOWNLINK  LIST  RUl  ES  AND  LIMITATIONS: 

READ  SECTION ( S ) WHICH  FOLLOW  'DEBRIS'  WRITEUP. 

OUTPUT-  bVErY  2 SECONDS  LOO  DOUBLE  PRECISION  WORDS (T.E.  200  LGC 
COMPUTER  WORDS)  APE  TRANSMITTED  VIA  DOWNI  INK. 

ERASABLE  INITIALIZATION  REQUIRED-  NONE 

•"DNTMGOTf  ' A O 'DNLSTADP'  ARE  INITIALIZED  BY  THE  FRESH  START  PROGRAM. 

DEBRIS (ERASABI  F LOCATION)  DESTROYED  BY  THIS  PROGP  AM  )- 

LDATALS"  ,UNTMBUFF  TO  DNTMBUFF  +2 1 D , TM I NDE X , DNO . 


GAP:  Ai  JEMfttE  REVISION  001  OF  AGO  P APllf)  PE  BY  FYLES 


3:15  DEC 


087 


PAGE 


989 


L DOWN-TELENET  Y PROOF  AM 

R 0060 


. 2,1970  SKIPPER  . 

USER*  S PAGE  NO.  2 


EO  S3 


/ 


t 

GAP:  ASSEMBLE  REVISION  001  OF  AGC  PROGRAM  API 1R0PE  BY  EYLES 

t L DOWN-TELEMETRY  PROGRAM 


P 0065 
I R 00ft 6 


DO DOW NT M IS  ENTERED  EVERY  20  MS  BY  AN  INTERRUPT  TRIGGERED  BY  THE 
RECEIPT  OF  AM  ENOPUl SE  FROM  THE  SPACECRAFT  TELEMETRY  PROGRAMMER. 


3:15  DEC. 


2,1  = 70  SKIPPER  . OF  7 


PAGE  990 


USER'S  PAGE  MO.  3 


EO  S3 


R 006  7 
ROC  6P 
R 0069 
R 0070 
ROOT  5 
R 007  fc 
R 0077 
P007F 
R 007  ° 
R0080 
R 008 1 
R 008  2 
R 00  83 
R 008  ft 
R 008  ft 
R 008  6 
R 0087 
R008F 
R OOF  9 
P 00=0 
R 009  1 
R 009  2 
R 0093 
R 009ft; 
R 009  5 
R 0096 
R 0097 
R 009  8 
R0100 
R 010  1 
R0103 
R 0104 


NOTES  REGARDING  DOWf-  LINK  LISTS  ASSOCIATED  WITH  THIS  PROGRAM: 

1.  DOW  mi.  T STS . - D0WNL1STS  MUST  BE  COMPILED  TN  THE  SAME  BANK  AS  THE 
DDDN-TELEMETRv  PROGRAM.  THIS  IS  DONE  FOP  FAS  F OF  CODING,  FAC  rER 
EXECUTION. 

2.  EACH  DOWNLINK  LIST  CONSISTS  OF  A CONTROL  LIST  AND  A NUMBER  OF 
SUBLISTS. 

3.  A SU8LIST  P EF E - S TO  A SNAPSHOT  (:-■  DATA  Ct  HON  TO  THE  SAME  OR  OTHER 
DOWNLINK  LISTS.  ANY  SUBLIST  CONTAINING  COMMON  DATA  NEEDS  TO  BE 
CODED  ONLY  ONCE  FOE  tHE  APPLICABLE  DOWNLINK  LISTS. 

4.  SNAPSHOT  SJBLISTS  REFER  SPECIFICALLY  TO  HOMOGENOUS  DATA  WHICH  MUST  BE 
SAVED  IN  A BUFFER  OIJRING  ONE  DOWNRUPT. 

5.  THE  IDNADR  FOR  THE  lrT  WORD  3F  SNAPSHOT  DATA  IS  FOUND  AT  THE  END 

OF  EACH  SNAPSHOT  SUBLIST,  S I 1C  E THE  PROGRAM  COOING  SENDS  THIS  DP  WORD 
IMMEDIATELY  AETFR  STORING  THE  OTHERS  IN  THE  SNAPSHOT  BUFFER:, 
ft.  ALL  LISTS  API  C L M RINAT  I f !\ c OF  CODE®  ERASABLE  ADDESS  CONST  ANT  S 
CREATED  FOP  THE  DOWNLIST  PROGRAM. 

A.  IDNADR  1-WORD  DOWNLIST  ADDRESS. 

SAME  AS  EC  ADR,  i B-JT  USED  WHEN  THE  WORD,  ADDRESSED  IS  THE  LEFT 
HALF  OF  A DOUBLE-PRECISION  WORD  FOR  DOWN  TELEMETRY, 
ri.  2 DM  AD’:  - 6 DC!  ADI  N-WORD  i)'".A'LIST  ADO  ESr,  - = 2 - 6. 

SAME  AS  IDNADR,  BIT  WITH  THE  4 UNUSED  BITS  OF  THE  EC  ADR  FORMAT 
FILLED  IN  WITH  0001-0101.  USED  TO  POINT  TO  A LIST  OF  N DOUBLE- 
PRECISION WORDS,  STORED  CONSECUTI VEL Y,  FOR  DOWN  TELEMETRY. 

C.  ONCHAN  DOWNLIST  CHANNEL  ADDRESS. 

SAME  Ac  li§AD!  , BUT  WITH  PREFIX  BITS  0111.  USED  TO  POINT  TO 
A PAT-  OF  CHANNELS  EON  DOWN  TELEMETRY. 

It  DNPTR  DOWN  TELFMETRY  SUBl  1ST  POINTER. 

SAME  AS  CAF  BUT  TAGGED  AS  A CONSTANT.  USED  IN  CONTROL  LIST  TO  POINT  TO  A SUBLIST. 

CAUTION A DNPTR  CANNOT  BE  USED  IN  A SUBL  I ST. 

7.  THE  WORD  ORDER  CODE  I SET  TO  ZERO  AT  THE  BEGINNING  OF  EACH  DOWNLIST  (I.E.  CONTROL  LIST) 

A ' I DN  A D • tt  ■ E2  * IS  DETECTED  IN  THE  COL  Tl-  • l LIST!  HI  Y). 

8.  IN  the  S APSHNT  SUBLIST  ONLY,  THE  DN ADR ' S CANNOT  POINT  TO  THE  FIRST  WORD  OF  AMY  EBANK. 


AND  WHEN 


R 0106  DOWNLINK  LIST  RESTRICTIONS: 

R0107  (THE  FOLLOWING  POINTS  MAY  BE  LISTED  ELSEWHERE  BUT  ARE  LISTED  HERE  SO  IT  IS  CLEAR  THAT  THESE  THINGS  CANNOT  BE 

R 0109  DONE) 


R0110 
R 0 1 11 
R 01 1 3 

R 0 1 1 4 
R 01 1 ft 

ROUP 


1 


2 


SNAPSHOT  DOWNLIST: 

(A)  CANNOT  CONTAIN  THE  FOLLOWING  FCA 
{ B ) CAN  CONTAIN  ONLY  lDNADP'S 

ALL  DOWNLINKED  DATA! EXCEPT  CHANNELS 
EQUIVALENT  OF  THE  FOLLOWING  ECADRSI 

( ! 0 T E : THE  TFR  M EQUIVALENT  ' -EANT 


DPS (I.E.  1 DM AD^ 

' S)  : 

0,  40C , 

1000,  14 

00,  2000,  2400,  3000 

3400. 

) IS 

PICKED  UP 

BY  A 

<DC A < SO 

DOWNLINK 

LISTS  CANNOT  CONTAI 

N 

THE 

I.E. 

ION  ADR S ) : 

377  , 

777,  1377,  1777, 

2377,  27777,  3377, 

3777. 

THAT 

THE  IDNADR 

TO 

6DNADP 

WILL  BE 

PROCESSED  1 IKE  1 TO 

6 

ECADR  S ) 

R 0120 


CONTROL  LISTS  AND  SIJPLISTS  CANNOT  HAVE  EL  TRIES 


OCTAL  00000  OR  OCTAL  77777 
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L DOWN- TELEMETRY  PROGRAM  USER'S  PAGE  NO.  A EO  S3 

R0122  4.  THE  ' 1 ONADR  T T M E 2 ' WHICH  WILL  CAUSE  THE  DOWNLI NK  PROGRAM  TO  SET  THE  WORDER  CODE  Tr  3 MUST  APPEAR  IN  THE 

R 0124  CONTROL  SECTION  OF  THE  DOWNLISI. 

R 01 2 5 5.  ' DNCHAN  O'  CANNOT  BE  LSEO. 

R 01 26  6.  'ClNPTR  0*  C AM"  1 I BE  USED. 

R0127  7.  DNPTR  CANNOT  APPEAR  IN  A SUBLIST. 

R012P 


R 012° 
R 0 1 30 
R0132 
R 0 1 3 A 
R 01  36 
R 01 3 7 
R 01 3 8 
R 01  3Q 
R 0 1 4 0 


EBANK  SETTINGS 

IN  THE  PROCESS  OF  SETTING  THE  EBANKt  WHEN  PICKING  UP  DOWNLINK  DATA)  THE  DOWN 
'GARBAGE'  INTO  BITE  15-12  ■ F EBANK.  HUGH  BLAIR-SMITH  WARNS  US  THAT  BITS15-12 
SIGNIFICANT  SOMEDAY  IN  THE  FUTURE.  IF/WHEN  THAT  HAPPENS,  THE  PROGRAM  SHOULD 
THAT  BITS  If- 12  OF  FRANK  A E ZERO. 

1 i t T t A|  I Z AT  i nu  i-quTkEO-  TO  T NTEf  DUPT  CURRENT  LIST  AND  START  A NEW  ONE.. 

1.  ADRES  OF  DOWNLINK  LIST  INTO  DNLSTADR 

2.  NEGONE  INTO  SUBLIST 

3.  NEGONE  INTO  DNECABR 


TELEMETP  Y PROGRAM  PUTS 
OF  EBANK  MAY  BECOME 
I N SURE ( BY  MASKING  ETC.) 


0142 

0193 

REF 

2 

0144 

0145 

REF 

17 

0146 

REF 

1 

0147 

REF 

5 

0148 

0149 

REF 

5 

31 

4REF 

1 

0151 

* 

0152 

*REF 

17 

0153 

KEF 

4 

015A 

REF 

2 

01 

REF 

1 

0156 

REF 

1 

0157 

»EF 

1 

015  R 

REF 

K 

01 5 < 

REF 

1 

0160 

REF 

2 

0161 

REF 

1 

0162 

REF 

29 

0163 

0164 

REF 

2 

0165 

REF 

1 

LAST 

LAST 

1 93 

2 04 

LAST 

820 

LAST 

820 

LAST 

821 

LAST 

288 

LAST 

219 

22,3711 
05 , 200n 

05,3506 

C34  0 


05.3506 

05.3507 

05.3510 

05.3511 

05.3512 

05.3513 

05 .3514 

05.3515 
C5 , 35 1 6 
05,3517 
05,3520 


BANK  22 
SETLCC  dfCVmT  EL  M 
BANK 

EBANK=  DNTMBUFF 


5 A 01 6 1 
G 0006  1 
22  012  1 
1 3763  1 
0 CO 06  1 
05  013  0 
0 0335  1 

3 7747  1 
54  337  1 
5 l 33  6 0 
3 3640  0 


C JUN  T* 
DODOWNT m ts 

EXTEND 

QXCH 

TCP 

Wf  1 EXTEND 

WOR 
TC 

DN PHASE 1 CA 

TS 

TS 

CA 


i $ / D R !-  OG 
BANKRUPT 

ORUPT 
WOT E ST 

CHAN  1 3 

DNTMGOTO 

NEGONE 
SU8LIST 
ONE CADE 
LONPHAS? 


SAVE  0 

SET  WORD  ORDER  BIT  TO  1 ONLY  IF  IT 
ALREADY  ISN'T. 

GO  TO  APPROPRIATE  PHASE  OF  PROGRAM 

INITIALIZE  ALL  CONTROL  WORDS 
WORDS  TO  MINUS  ONE 

SET  DNTMGOTO  =0  ALL  SUBSEQUENT  DGWNRUPT  S 


LAST 

991 

05,3521 

54  33  5 

0 

TS 

DNTMGOT  C 

GO  TO  DN PHASE 2 

05,3522 

1 3536 

0 

TCP 

NEWL I ST 

LAST 

991 

05,3523 

10  336 

0 

DNPHASE2 

CCS 

DNECADR 

SENDING  OF  DATA  IN  PROGRESS 

05, 35  24 

0 365  3 

1 

DODNADR 

TC 

FETCH2WD 

YES  - THEN  FETCH  THE  NEXT  2 SP  WORDS 

LAST 

928 

05,3525 

77753 

0 

MINTI  ME 2- 

-1DNADF 

T I ME2 

NEGATIVE  OF  TIME2  1DNADP 

05 , 3526 

1 3527 

0 

TC  F 

+ 1 

(EC  ADR  OF  3776  + 74001  = 77777) 

LAST 

991 

05,3527 

10  337 

1 

CCS 

SUBLIST 

IS  THE  SUBLIST  IN  CONTROL 

05,3530 

1 3666 

0 

TCF 

NEXTINSL 

YES 

gap:  ASSEMBLE  k ; V I S ) 5 0C1  OF  AGC  P .'GRAM  AP11ROPE  BY  EYLES 


L DOWN-TELEMETRY  PROGRAM 


0166 

05,3531 

7400  1 

0 

DNADF  DCF 

OCT 

74001 

m A7 

DLC 

1 

3 03  34 

o 

C HKI  I sT 

CA 

CTLIST 

UlO  I 

'tl 

i 

. » f j j <L 

1 l < \ L.  1 J 1 

016  P 

05,3533 

0 0006 

1 

EXTEND 

0169 

REE 

2 

l AST 

99  1 

05,3534 

6 3536 

1 

BZMF 

NEWLI ST 

01 7 C 

REF 

1 

0*  , 3*38 

1 35  43 

1 

TCF 

NEXT  I NCI 

0171 

REF 

7 

L AST 

229 

05,3536 

50  332 

0 

NEWLI ST 

INDEX 

DNLSTCOD 

0172 

REF 

1 

05,3537 

3 2441 

1 

CA 

DNTABLE 

0173 

REE 

2 

LAST 

32 

, 05,3540 

54  3.34 

1 

TS 

CTLIST 

0174 

REF 

3 

L AST 

992 

05,354  1 

4 0 33  2 

1 

CS 

DNLSTCOD 

017  5 

0 EF 

1 

08,356 ? 

1 3756 

1 

IFF 

SENDID  +3 

0177 

REF 

3 

LAST 

992 

05,3543 

50  334 

0 

NEXTTNCL 

TNOFX 

CTLIST 

0178 

05,3544 

3 rooo 

1 

CA 

0 

0179 

REF 

298 

LAST 

983 

0 8,356-5 

10  000 

0 

CCS  ' 

A 

oieo 

REF 

4 

LAST 

992 

05,3546 

24  334 

0 

INCR 

CTLIST 

oiei 

05, 358  7 

1 355  3 

0 

TCF 

+ 4 

0182 

REF 

5 

LAST 

9 9 2 

08 , 3550 

56  336 

0 

XCH 

CTLIST 

0183 

0 5 ,3551 

6 0 0 00 

0 

COM 

0184 

REF 

6 

LAST 

992 

05,3552 

56  334 

0 

XCH 

CTLIST 

0185 

RFF 

299 

LAST 

992 

05,3553 

24  COO 

1 

+ 4 

INCR 

A 

0186 

REF 

3 

LAST 

991 

05, 3554 

54  336 

0 

TS 

DNECADR 

0)  87 

RFF 

1 

05,3555 

6 3525 

0 

AD 

MINT  IME2 

Cl  8 P 

REF 

300 

LAST 

99  2 

08,3556 

10  000 

0 

CCS 

A 

0189 

REF 

1 

05,3557 

1 "J  5 63 

0 

TCF 

SETWD  +] 

0190 

05,3560 

4 7777 

0 

MINB13  14 

OCT 

47777 

0191 

REF 

2 

LAST 

99? 

05,3561 

1 3 5 63 

0 

TCF 

SETWO  +1 

0192 

REF 

1 

05,3562 

0 360  5 

1 

SETWO 

TC 

WOZERO 

01°3 

RFF 

4 

LAST 

99  2 

05,3563 

3 0336 

1 

+ 1 

CA 

DNECAD' 

0194 

P EF 

1 

05,3564 

6 3560 

1 

+ 2 

AD 

MINB1314 

01  9 s: 

05,3565 

0 no  0 6 

EXTEND 

0196 

REF 

2 

LAST 

991 

05,3566 

6 3653 

1 

BZMF 

FETCH2WD 

0197 

REF 

1 

05,3567 

6 7741 

1 

AD 

MINB12 

0198 

05,3570 

0 00  06 

1 

EX  TEND 

019° 

REF 

1 

05,3571 

6 3611 

1 

BZMF 

DQDNPT  P 

0200 

05,3572 

0 f 006 

1 

DODNCHAN 

TC 

6 

0201 

REF 

5 

LAST 

992 

05, 3573 

50  336 

1 

INDEX 

DNECADR 

0202 

05,3574 

44 ■ 000 

1 

INDEX 

0 -6000 

0203 

REF 

166 

LAST 

961 

05,3575 

54  001 

1 

TS 

L 

0204 

05,3576 

0 C006 

1 

TC 

6 

020* 

RFF 

6 

LAST 

go? 

05, 3577 

50  336 

1 

INDEX 

DNECADR 

020Z 

05 , 3600 

43 • 777 

1 

INDEX 

0 -4001 

0207 

REF 

7 

LAST 

992 

0 5, 36  0 1 

54  336 

0 

TS 

DNECADR 

0208 

REF 

3 

LAST 

991 

05,3602 

3 7747 

1 

CA 

NEGONE 

0203 

REF 

3 

LAST 

992 

05,3603 

56  336 

L 

XCH 

DNECADR 

0210 

R EF 

1 

05,3604 

1 3701 

0 

TCF 

DNTMEXIT 

0211 

RFF 

36 

LAST 

976 

05,3608 

4 4745 

1 

WGZERO 

CS 

B IT7 

0212 

05 , 3606 

0 0006 

1 

EXTEND 

0213 

REF 

18 

LAST 

991 

05,3607 

03  013 

0 

WAND 

CHAN  13 

3:15  DEC.  2,1970  SKIPPER  .087  PAGE  992 
USER’S  PAGE  NO.  5 EO  S3 

DNADR  COUNT  AND  ECADR  DECREMENTED 


IT  WILL  BE  NEGATIVE  AT  END  rf  t 1ST 

INITIALIZE  CTLIST  WITH 

STARTING  ADDRESS  OF  NEW  LIST 


SET  POINTER  “0  PICK  UP  NEXT  CTLIST  WORD 
ON  NEXT  ENTRY  TO  PROG.  (A  SHOULD  NOT  =0 ) 
SET  CTLIST  TO  NEGATIVE  AND  PL AC E ( CODING ) 
UNCOMPLEMENTED  DNADR  INTO  A.  (FOP  LA) 

(ST  IN  ) 
(CTLIST) 

SAVE  DNADR 

TEST  FOR  TIMF2  IN EG.  OF  ECADP  ) 

DON’T  SET  WORD  ORDER  CODE 

MINUS  B!T  13  AND  14  (CAN’T  GET  HERE) 

DON’T  SET  WORD  ORDER  CODE 

GO  SET  WORD  ORDER  CODE  TO  ZERO. 

RELOAD  A WITH  THE  DNADR. 

IS  THIS  A -EGULAF  DNADR? 

YES.  (A  MUST  NEVER  BE  ZERO) 

NO-  IS  IT  A POINTER  (DNPTR)  OR  A 
CHANNEL ( DNCHAN ) 

IT’S  A POINTER.  (A  MUST  NEVER  BE  ZERO) 

(EXECUTED  AS  EXTEND)  IT  S A CHANNEL 

(EXECUTED  AS  READ) 

(EXECUTED  AS  EXTEND) 

(EXECUTED  AS  READ) 

SET  DNECADR 
TO  MINUS 

WHILE  PRESERVING  A. 

GO  SEND  CHANNELS 


SET  WORD  ORDER  CODE  TO  ZERO 


GAP:  ASSEMBLE  kfrVISDN  001  OF  AGC  PROGRAM  .API 1ROPE  BY  gYLfcS 


3: 15  DEC 


2,1970  SKIPPER  .087  PAGE  993 


L DOWN-TELEMETRY  PROGRAM  USER'S  PAGE  NO.  6 EO  S3 


0214 

REF 

223 

LAST 

924 

05,3610 

0 0002 

0 

TC 

Q 

RETURN  TO  CALLER 

02  1 5 

REE 

9 

LAST 

992 

05, 3611 

50  336 

1 

DODNPTR  INDEX 

DNECADR 

DNECADR  CONTAINS  ADRES  OF  SUBLIST 

02 1 6 

05,3612 

0 0000 

1 

0 

0 

CLEAR  AND  ADD  LIST  ENTRY  INTO  A. 

0217 

REF 

301 

LART 

992 

05 ,36  13 

1 0 000 

0 

CCS 

A 

IS  THIS  A SNAPSHOT  SUBLIST 

m 1 q 

D r r 

i A c T 

00^ 

05,3*14 

3 03  3 6 

1 

CA 

DNEC  ADR 

NO.  TT  IF  A PFGI1I  AR  SURI  T FT 

U/  1 n 

02  ir 

Htr 

REF 

1 \ J 

1 

L A .1  1 

05,3615 

1 36  65 

0 

TCF 

DOSUBLST 

A MUST  NOT  BE  ZERO. 

0220 

REF 

1 1 

LAST 

993 

05, 3616 

36  336 

1 

XCH 

DNECADR 

YES,  IT  IS  A SNAPSHOT  SUBLIST. 

0221 

REF 

3 

LAST 

991 

05,3617 

56  337 

1 

TS 

SUBL  1ST 

C l DNECADR ) INTO  SUBLIST 

0222 

REF 

13  5 

LAST 

976 

05,3620 

3 4755 

1 

CAE 

ZERO 

A INTO  A 

0223 

PFF 

3 

LAST 

00 

06 , 3621 

56*33% 

1 

XCH 

TMINDEX 

(NOTE..  TMINDEX  = DNECADR) 

,.e 


R 022  A THF  FALLOW  I NG  CODING  IF  "4  SN  APLQIHp  TO  SNAPENUHS  EOF  HE  PURPOSE  OF  TAKING  A SNAPSHOT  OF  12  DP  REGISTEPS. 

R 022*  THIS  . S DONE  3Y  SAVO  11  DP  REGISTERS  I DMTMBUFP  AND  SENDING  THE  FIRST  DP  WOFD  IMMEDIATELY. 

R 02  2 F THE  SNAPSHOT  PROCESSING  IS  THE  MOST  TIME  CONSUMING  AND  THEREFORE  THE  CODING  AMD  LIST  STRUCTURE  WERE  DESIGNED 

R 023  f tq  MINT  mi  ZE  TIME,  the  T1  ME  r'°TT  m I Z AT  TOM  RESULTS  IN  -ULES  UNIQUE  TO  THE  SNAPSHOT  P OPTION  OF  THE  DOWNLIST. 

R 0232  THESE  PULES  ARE 

R 023  3 1 . ONLY  1 DN  ADR ' S CAN  APPEAR  IN  THE  SNAPSHOT  SUBLIST 

R0234  2.  THE  IDNADE'S  CANNOT  REFER  Tf  THE  FIoT  LOCATION  IN  ANY  BANK. 


0236 

REF 

53 

LAST 

°58 

05 , 3622 

54  003 

0 

SNAP!  OOP 

TS 

EBANK 

0237 

REF 

5 

LAST 

795 

05,3623 

7 43  5 7 

0 

MASK 

LOWS 

0238 

05,3624 

0 C 006 

1 

EXTEND 

0239 

REF 

302 

LAST 

99  3 

05,3625 

5 0000 

1 

INDEX 

A 

0240 

E3, 1401 

E 8 A N K = 

1401 

0241 

05,3626 

3 1402 

0 

DC  A 

1601 

0242 

REF 

1 '* 

1 A ST 

991 

0 3^0 

F R flMK- 

Df'lT  M Rl  1 F F 

L U M 1 IN  — 

u 1 s ’ i’Iqu  r r 

0243 

REF 

4 

LAST 

993 

05,3627 

50  336 

1 

INDEX 

TMINDEX 

0244 

REF 

19 

LAST 

993 

05,3630 

52  341 

0 

DXCH 

DNTM8UFF 

024  5 

REF 

5 

LAST 

9.93 

08.3631 

24  3 3 6 

1 

INCR 

T M T i\>  n F y 

f ^ -2  L 

) ri  1 1 \ ij  c.  a 

0246 

PEE 

6 

LAST 

993 

05,3632 

24  336 

1 

IMCP 

TMINDEX 

0247 

RET 

4 

LAST 

99  3 

05,3633 

24  33  7 

0 

SNAP AGN 

INCR 

SUBL 1ST 

024P 

REF 

9 

LAST 

99  3 

n5 , 3634 

50  337 

0 

INDEX 

f UBL T ST 

0249 

05, 3635 

0 0000 

1 

0 

0 

0250 

REF 

303 

LAST 

993 

05,3636 

10  000 

0 

CCS 

A 

0251 

REF 

1 

01;,  36  37 

1 3622 

0 

TCF 

SNAP  LOOP 

0252 

REE 

1 

0 5,3(  40 

0 3523 

0 

L DNPHAS2 

GEN  ADR 

DNPHASE2 

02  5 3 

REF 

6 

LAST 

99  3 

05,3641 

5 4 33  7 

1 

TS 

SUBL 1ST 

0254 

REE 

4 

LAST 

90? 

08,36^2 

3 774  7 

1 

C A 

N EG ONE 

0255 

REF 

12 

LAST 

99  3 

05 , 366  3 

54  3 36 

0 

TS 

DNECADR 

0256 

REF 

7 

LAST 

99  3 

05,3644 

56  337 

0 

XCH 

SUBLIST 

0257 

REF 

54 

LAST 

993 

05,3645 

54  003 

0 

TS 

EBANK 

025  8 

REF 

6 

LAST 

993 

05,3646 

7 *357 

0 

MASK 

LOWS 

02  5 9 

05,3667 

0 COO 6 

1 

EXTEND 

0260 

REE 

304 

LAST 

993 

08,3650 

5 OOF'O 

1 

INDEX 

A 

0261 

E3 , 1401 

EBANK= 

1401 

0262 

05,3651 

3 1402 

0 

DC  A 

1401 

SET  EBANK 

ISOLATE  RELATIVE  ADDRESS 


PICK  UP  2 SNAPSHOT  WORDS. 


STORE  2 SNAPSHOT  WORDS  IN  BUFFER 
SET  BUFFER  INDEX  FOP  NEXT  2 WORDS. 

SET  POINTER  TO  NEXT  2 WORDS  OF  SNAPSHOT 

= CA  SSSS  (SSSS  = NEXT  ENTRY  IN  SUBLIST) 
TEST  FOR  LAST  TWO  WORDS  OF  SNAPSHOT. 

NOT  LAST  TWO. 

YES,  LAST.  SAVE  A. 

SET  DM EC  ADR  AMD 

SUBLIST  POINTERS 

TO  NEGATIVE  VALUES. 


PICK  UP  FIRST  2 WORDS  OF  SNAPSHOT. 


I 


GAP:  ASSEMBLE  REVISI 3N  001  OF  AGC  PRflpRAW  AP11R0PE  BY  EYLES 


L DOWN -TELE  YE  TRY  PROGRAM 


0263 

REF 

20 

LAST 

993 

0340 

ECANK= 

DNTM8UFF 

02  64 

r LF 

2 

LAST 

992 

05,3652 

1 3701 

0 

SNAPEND 

TCF 

DNTMEX  I T 

0265 

REF 

13 

LAST 

SQ3 

05, 3653 

3 0336 

1 

FETCH2WD 

CA 

DN  E C A 0 R 

0266 

REF 

55 

LAST 

op  3 

0 5,36  54 

54  003 

0 

TS 

EBANK 

0267 

REF 

7 

LAST 

903 

05,3655 

7 4357 

0 

MASK 

LOW  8 

0268 

REF 

167 

LAST 

99  2 

05,3656 

54  001 

1 

TS 

L 

0269 

REF 

1 

05,3657 

3 3531 

0 

CA 

DNAD-OCF 

0270 

REF 

14 

L AST 

994 

05 , 366  0 

26  336 

0 

ADS 

DNECADR 

0271 

05,3661 

0 0006 

1 

EXTEND 

027  2 

REF 

168 

LAST 

994 

05,3662 

5 0001 

0 

INDEX 

L 

0273 

F 3, 1400 

E B A N K = 

1 TOO 

0274 

05,3663 

3 1401 

0 

DC  A 

1400 

0275 

REF 

2 1 

LAST 

994 

0340 

E6ANK= 

DNTMBUFF 

0276 

REF 

3 

LAST 

994 

05 , 3664 

1 37,-i 

0 

TCF 

DNTMEX IT 

0277 

IFF 

8 

LAST 

9Q3 

05 , 36T  5 

5*-  3 37 

1 

D0SU8LST 

TS 

SUBLIST 

0278 

REF 

o 

LAST 

qci 

0 5 , 3*  6 6 

50  337 

0 

NEXT INSL 

INOEX 

S i JBL  I S T 

0279 

05,3667 

0 0000 

1 

0 

0 

0280 

REF 

305 

LAST 

993 

05,3670 

10  000 

0 

CCS 

A 

0281 

REF 

10 

LAST 

994 

05,3671 

24  337 

0 

I NCR 

SUBLIST 

0282 

0K , 3672 

1 36  7 6 

1 

TCF 

+ 4 

0283 

REF 

11 

l AST 

994 

05,3673 

54  337 

1 

TS 

SUBLIST 

0284 

REF 

5 

L A RT 

70  3 

05,367* 

3 7747 

1 

C A 

NEGONE 

0285 

REF 

12 

LAST 

994 

05,3675 

56  337 

0 

XCH 

SUBLIST 

0286 

REF 

306 

LAST 

99* 

05,3676 

24  000 

1 

+ 4 

INCR 

A 

0237 

REF 

15 

LAST 

994 

05,3677 

54  336 

0 

TS 

DNECADr- 

0288 

REF 

3 

LAST 

9°2 

05, 3700 

1 3564 

1 

TCF 

SETW.i  +? 

A 02  3 Y 

A 0 ? 5 n 


02°  1 

05,3701 

0 C006 

1 

DNTMEX IT 

EXTEND 

0292 

REF 

1 

.05,3702 

01  034 

1 

WRITE 

DNTM1 

0293 

D EF 

169 

LAST 

994 

^ 5 , 3 70  3 

3 0001 

0 

CA 

L 

02  94 

05,3704 

0 0 006 

1 

TMEX ITL 

EXTEND 

0295 

REF 

1 

05 , 370^ 

01  035 

0 

WRITE 

DMT  M? 

02  96 

REF 

21 

LAST 

822 

05,3706 

1 5270 

0 

TMP E SUM  E 

TCF 

RESUME 

0297 

REF 

2 

LAST 

528 

7741 

MINB12 

EQUALS 

-1/8 

029  8 

REF 

7 

LAST 

993 

0336 

DNECADR 

EQUALS 

T M INDEX 

029  5 

REF 

p 

LAST 

99 

0334 

CTL  1ST 

EQUALS 

LQATAL8  F 

0300 

REF 

? 

LAST 

90 

0337 

SUB1 T ST 

EQUALS 

DNQ 

3:15  DEC 


2 ,19  70 
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994 


< 
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USER' S PAGE  NO.  7 
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NOW  GO  SEND  THEM.  < 


SET  EBANK  < 

ISOLATE  RELATIVE  ADDRESS 

DECREMENT  COUNT  AND  ECADR  { 

( 

PICK  UP  2 DATA  WORDS 

t 

NOW  GO  SEND  THEM. 

SET  SUBIIST  POINTER  < 


= CA  SSSS  (SSSS  = NEXT  ENTFY  IN  SUBLIST) 

IS  IT  THE  END  OF  THE  SUBLIST  i 

NO- 
SAVE A.  t 

SET  SUBLIST  tr  MINUS 
RETRIEVE  A. 

i 

SAVE  DNADR 

GO  USE  COMMON  CODING! PROBLEMS  WOULD 

OCCUR  IF  THE  PROGRAM  ENCOUNTERED  A i 

DNPTR  NOW  ) 

DOWN-TELEMETRY  EXIT  < 

TO  SEND  A + L TO  CHANNELS  34  + 35 

RESPECTIVELY 

4 

EXIT  TELEMETRY  PROGRAM  VIA  RESUME. 


4 


4 

4 


4 

4 


4 


GAP : 

L 

P 030  1 
$ 0302 
R0304 
R 0306 
R0308 
R 0310 
R 031  2 
R0313 
R 031  5 
R 03 1 6 
R0317 
R 03 1 ° 
R 0320 
R 032  1 
R0322 
R 0 3 2 3 
R 0324 
5 032  5 
R 0326 
R 032  7 
R 032 C 
R0329 
P 033  ] 
R 033 3 

8 0333 
R0336 
R 0338 
R 033  9 

R 0340 
P 0342 
R 034^- 
R 034fc 
R 030  7 
R0349 
R 035  1 
R 035  3 
R 0354 
R 03  5 5 
R0356 

R 0356 
R 0359 
R 0360 
P.036  1 
R 036  3 
P 0365 
R 0366 


ASSEMBLE;  REVISION  001  OF  4GC  PROGRAM  API  1K0PE  BY  EYLES 
OOWf -TELE  MCTPY  PROGRAM 


3:15  DEC.  2,1970  SKIPPER  .087  PAGE  995 
USEP'S  PAGE  NO.  8 EO  S3 


SUBROUTINE  NAME-  DNDUMP 

L OESI  - D(DUMP)  ALL  I ASABLE  STORAGE  ' N ' TIMES. (N  = 1 To  4).  BANKS  ARE  SENT  ONE  AT  A TIME 

EACH  BACK  IS  PROCEEDED  BY  AN  ID  WORD,  SYNCH  BITS,  ECADR  AND  TIME1  FOLLOWED  BY  THE  256D  WORDS  OF  EACH 
EBANK.  EBANK,  Alt  LUMPED  ■ ORDER ( I . E.  EBANK  0 FI'S',  THEN  EBANK1  ETC.) 

CALL  IMG  SEQUENCE-  THE  Gc  OUND  OR  ASTRONAUT  BY  KEYING  V74E  CAN  INITIALIZE  THE  DUMP. 

AFTER  KEYING  IN  V74E  THF  CURRENT  DOWNLIST  WILL  BE  IMMEDIATELY  TERMINATED  AND  THF  DOWNL T NK  F^ ASABLF  DUMP 
WILL  BEGIN. 

ONCE  INITIATED  THE  DOWNLINK  ERASABLE  DUMP  CAN  BE  TERMINATED  (AND  INTERRUPTED  DOWNLIST  REINSTATED)  ONLY 
■I  BY  THE  FOLLOWING: 

1.  A FRESH  START 

2.  COMPLETION  OF  ALL  DOWNLINK  DUMPS  REQUESTED  (ACCORDING  TO  BITS  SET  IN  DUMPCNT ) . NOTE  THAT  DUMPCNT 

CAN  BE  AI.TErED  BY  A V21N01. 

3.  AMD  INVOLUNTARILY  BY  A RESTART. 

NORMAL  EXIT  MODE-  TCF  DNPHASE1 

AL ACM  OR  ABORT  UOE-  HONE 
♦ SUBROUTINES  CALLED-  7. 1- . 

ERASABLE  INITIALIZATION  REOUIRED- 

DUMPCUT  OCT  20060  IF  ••  COMPLETE  ERASABLE  DUMPS  APE  DESIRED 

DUMPCNT  OCT  10000  IF  2 COMPLETE  ERASABLE  DUMPS  ARE  DESIRED 

DUMPCNT  PCT  04000  IF  1 COMPLETE  EIASABLE  DUMP  IS  DESIRED 

DEBT  IS-  DUMPL  DC , DUMPSW,  ONT'  GOTO  , EBANK  AND  CENTRAL  REGISTERS 

T I •'  I NG-  TIMEfP  SECS)  = ! ( NO. DUMPS  )*  (NO.  FRANKS  )*  ( WDSPFR  EBANK  + NO.IDWOS))  / NO.  WDSPEf  SEC 
' I ME  ( I f SECS)  = ( 4 )♦(  8 )*  ( 256  + 4 } / 100 

THUS  TIME ( JM  SECS  Tr  SE"D  DUMP  OF  FP ASABLE  4 TIMES  VIA  DOWNLINK)  = 83.2  SECONCS 


STRUCTURE  OF  ONE  EBANK  AS  IT  IS  SENT  BY 
(REMINDER-!  I NLY  I CRIB!  E OF 
DOWNL I ST 

WORD  TAKEN  FR  CM  CONTENTS  OF 


DOWNLINK  PROGRAM— 

THE  8 C: BANKS  X 4 (DUMPS!  = 32 

w 

EXAMPLE  0 COMMENTS 


EBANKS  WHICH  WILL 


BE  SENT  BY  DNDUMP) 


1 ERASID 

2 LOW  I DC OD 

3 DUMPLCC 

4 TIME1 


cr ' 

F IPS';  W!  >i  D 

OF 

EBANK 

X 

6 

2ND 

WPP  D 

OF 

EBANK 

X 

7 

3RD 

WORD 

OF 

EBANK 

X 

2 6 OT  256TH  WOOD  OF  EBANK  X 


017TX  0 

77340  1 

1 3400  1 

14120  1 

03400  1 

0016-2  1 
00142  1 

1 
1 
1 

03777  1 


DOWNLIST  I.D.  FOR  DOWNLINK  ERASABLE  DUMP  ( X=t  CSM,  6 LM) 
DOWNLINK  SYNCH  BITS. (SAME  ONE  USED  IN  ALL  OTHER  DOWNLISTS) 


(SEE  NOTES  ON  PUMPLGC)1=  3RD  ERAS  DUMP,  3400=ECADn  OF  5TH  WD 
TIME  IN  CENTI SECONDS 


IN 

THIS 

EXAMPLF 

THIS 

WORD  = CONTENTS 

OF 

E 7 ,1400 

( ECADR 

3400 

IN 

THI  s 

EXALTE 

this 

WORD  = CONTENTS 

OF 

E7 , 1401 

( EC A DP 

3401 

IN 

THIS 

EXAMPLE 

THIS 

WORD  = CONTENTS 

OF 

E 7 , 1402 

( ECADR 

3^02 

IN 

THIS 

EX  A|V  PL  E 

THIS 

WORD  = CONTENTS 

OF 

E7, 1777 

( ECADF 

3777 

NOTE-  DUMPLCiC 
THE  BIT 


CONTAINS  THE 
STRUCTURE  of 


COUNTER 

DUMPLPC 


AND  ECADR  FPF 
IS  FOLLOWS 


EACH  WORD  BEING  SENT. 


X 

X ABC  FEE  f f I I RRRR  ABC 

EE  E 
RRRRRRRR 


NOT  USED 

ERASABLE  DUMP  COUNTER ( I. E.  ABC  = 
Cr  MPl FTE  ERASABLE  DUMP  NUMBER  1 
EBANK  BITS 

RELATIVE  ADDRESS  WITHIN  AN  FRANK 


0 

2 


1,2  OR  3 WHICH  MEANS  THA T 

3 OP  4 RESPECTIVELY  TS  JN  PROGRESS)  < 

( 


< 


GAP:  ASSEMBLE  RE  VISION  OC1  OF  AGC  PROGRAM  AP11ROPE  BY  EYLES 

L DOWF-T ELE  MET R Y P ' OGf AM 


0368 

REF 

186 

l AST 

993 

05,3707 

3 4755 

1 

DNDUMP I 

CA 

0369 

REF 

1 

05,3710 

54  336 

0 

TS 

0370 

REF 

2 

LAST 

992 

05,3711 

0 3753 

0 

+ 2 

TC 

0371 

REF 

1 

, 3712 

3 3721 

0 

C A 

0372 

REF 

6 

LAST 

991 

09,3713 

54  33  5 

0 

TS 

0373 

REF 

16 

LARr 

:bs2 

05,3714 

3 0 02  8 

0 

CA 

0376 

REF 

170 

LAST 

994 

05,3715 

56  001 

0 

XCH 

0375 

REF 

2 

LAST 

9Q6 

05,3716 

3 0336 

1 

CA 

03  7 o 

REF 

4 ■ ; 

LAST 

994 

05,37 17 

1 3701 

0 

TCP 

0377 

REF 

1 

05,3720 

03722 

0 

L DNDUMP 

6 D E S 

0373 

RFF 

1 

0 c , 3 7 2 1 

037  3 5 

0 

L DNDUMP 1 

AD^-  ES 

037° 

REF 

63 

LAST 

918 

05  ,3722 

3 4752 

0 

DNDUMP 

CA 

0380 

REF 

3 

LAST 

0 5,37  23 

26  33  6 

0 

ADS 

0381 

I EF 

8 

LAST 

99  4 

05, 3724 

7 43  57 

0 

MASK 

0382 

REF 

307 

LAST 

994 

05,3725 

U 000 

0 

CCS 

0383 

REF 

1 

08 , 372  6 

1 3737 

0 

TCP 

0384 

f EF 

4 

LAST 

996 

05 , 3727 

3 0336 

1 

CA 

0385 

REF 

2 

LAST 

211 

05 , 3730 

7 0333 

0 

MASK 

0386 

REF 

1 

08,3731 

7 7 722 

0 

MASK 

0337 

REE 

30  8 

1 AST 

99  6 

05,3732 

10  COO 

0 

CCS 

0388 

PEE 

2 

L AST 

222 

05,3733 

1 35  I 5 

1 

TCF 

A03Rq 

0390 

REF 

2 

LAST 

288 

05,3734 

1 3711 

1 

TCP 

0391 

REF 

1 

05,3735 

3 3720 

1 

DNQUMP1 

CA 

0392 

REF 

7 

1 AST 

996 

05 ,3736 

54  335 

0 

TS 

0303 

RET 

3 

1 AST 

996 

"2  OITA 

T 

DNDUMP2 

CA 

V ? f J I J I 

3 y - D D O 

1 

0396 

REF 

56 

1 AST 

994 

05,3750 

54  003 

0 

TS 

0395 

REF 

9 

LAST 

996 

05,3741 

7 4357 

0 

MASK 

0396 

REF 

229 

LAST 

993 

05,3742 

54  002 

1 

TS 

0397 

REF 

26 

l AST 

928 

05, 374 3 

3 4756 

0 

CA 

03  98 

RFF 

17  1 

LAST 

996 

05 , 3744 

54  001 

1 

TS 

0399 

REF 

230 

LAST 

98  P 

05,3765 

50  002 

0 

INDEX 

0400 

E3, 1400 

E B A N K = 

0401 

0 5 , 3 74  6 

7 1401 

1 

MASK 

0402 

REF 

172 

LAST 

996 

05,3747 

56  001 

0 

XCH 

060  3 

REF 

231 

LAST 

°9  6 

05,3760 

50  0C2 

0 

INDEX 

069< 

0 8,  3 75  1 

7 1400 

0 

MASK 

0408 

REF 

2? 

LAST 

OC4 

0340 

EBAMK= 

0406 

REF 

5 

LAST 

996 

05,  375? 

1 3701 

0 

TCF 

0407 

0408 

0409 

REF 

REE 

8 

1 

L AST 

996 

05.3753 

06.3754 
06,3795 

0 0006 
22  335 
3 501  1 

1 SENDID 

1 

1 

EXT  END 

QXCH 

CAF 

0410 

REF 

173 

LAST 

996 

05,3756 

54  001 

1 

TS 

1" 


ZERO 
OUMPLOC 
SEND  I 0 
L DNDUMP 1 
ONI M GO TO 
TIMEl 
L 

OUMPLOC 
OMTMEXI T 

DM DUMP 

1n#6mpi 

TWO 

DUMPLOC 

LOWS 

A 

DM DU  VP 2 
DUMPLOC 
DUMPCNT 
P 01034 
A 

DNPHASE1 

DNDUMP  I 

I DNDUMP 
on  r igoto 

DUMPLOC 

EBANK 

LOWS 

Q 

NEGO 

L 

Q 

1400 

1401 
L 

Q 

1400 

dntmIuff 

DMTMEX IT 


DNTMGOTO 
ER  Ac  T D 

L 


3:15  DEC.  2,1970  SKIPPER  .087  PAGE  996 

USER'S  PAGE  NO.  9 EO  S3 

INITIALIZE  DOWNLINK 
ERASABLE  DUMP 
GO  SEND  TD  AND  SYNCH  BITS 
SET  DNTMGOTO 

TO  LOCATION  FOR  NEXT  PASS 
PLACE  TIMEl 
INTO  L 

AMD  ECADP  OF  THI r EBANK  INTO  A 
SEND  DUMPLOC  AND  TIMEl 


INCREMENT  ECADR  IN  DUMPLOC 
TO  NEXT  DP  WORD  TO  BE 
DUMPED  AND  SAVE  IT. 

IS  THIS  the  BEGINNING  OF  A NEW  EBANK 
NO-  THEN  CONTINUE  DUMPING 
YES-  IS  THIS  THE  END  OF  THE 
N THIN  = 1 TE  4)  COMPLETE  ERASABLE 
DUMPIBIT14  FOR  4,  BIT13  FQF  2 OP.  BIT1.2 
FOR  1 COMPLETE  ERASABLE  D'JMP(S)). 

YES-  STAfT  SENDING  INTERRUPTED  DOWN LT  ST 
AGAIN 

+2  NO-  GO  BACK  AND  INITIALIZE  NEXT  BANK 

SET  DNTMGOTO 

FOR  WORDS  3 TO  2560  OF  CURRENT  EBANK 


SET  EBANK 

ISOLATE  RELATIVE  ADDRESS. 

(NOTE:  MASK  INSTRUCTION  IS  USED  TO  PICK 
UP  ERASABIE  fFGISTERS  SO  THAT  EDITING 
REGISTERS  20-23  WILL  NOT  BF  ALTERED.) 

PICK  UP  LOW  ORDER  REGISTER  OF  PAIR 
OF  ERASABLE  REGISTERS. 

PICK  UP  HIGH  ORDER  REGISTER  OF  PAIR 
OF  ER ASA81 E REGISTERS. 

GO  SEND  THEM 


** ENTRANCE  USED  BY  ERASABLE  DUMP  PROG.** 
SET  DNTMGOTO  SO  NEXT  TIME  PROG  WILL  GO 
TO  LOCATION  FOLLOWING  :TC  SENDID: 

**ENTF ANC  E USED  BY  REGULAR  DOWNLINK  PG** 


GAP: 


ASSEMBLE  R E V I S I 0 H 001  . F AGC  PROGRAM  AP11ROPE  BY  EYLES 


L lOWf -TELEMETRY  pc  OGRAM 


0411 

0412 

0413 

0414 

R 5006 

REF 

REF 

REF 

REF 

2 

1 

174 

6 

LAST 

LAST 

LAST 

992 

, 9*6 
996 

05,3757 

05 . 3760 

05.3761 

05.3762 

5010 

5020 

*REF 

* 

37 

LAST 

9°2 

05 . 3763 

05.3764 

503  0 

*RFF 

1° 

LAST 

992 

05,3765 

5040 

5050 

* 'FF 

;»c  D P P 

309 

o 

LAST 

I A r.  T 

9Q  6 
996 

Oc  , 3766 
ar  , 3767 

T YLI 

L Mo  1 

5060 

5070 

*REF 

*REF 

38 

l 

LAST 

9°7 

05.3770 

05.3771 

0 3605 

1 

TC 

WCZERO 

3 2065 

0 

CAF 

LOW  I DCOD 

56  001 

0 

XCH 

L 

1 3 701 

0 

TCF 

DNTMFXIT 

3 4745 
0 C006 
0 2 013 
10  COO 
0 0335 

0 WOTEST 

1 

1 

0 

1 

CA 

EXTEND 

RAND 

CCS 

TC 

8IT7 

CHAN  13 

A 

DNTMGOTO 

3 4745 

0 

CA 

BIT7 

l 3512 

0 

TCF 

W01 

3:15  DEC 


2,1970  SKIPPER  .087  PAGE  997 


USER'S  PAGE  NO.  10  EO  S3 

GO  SET  WORD  ORDER  CODE  TO  ZEPO 
PLACE  SPECIAL  ID  CODE  INTO  L 
AND  ID  BACK  INTO  A 
SEND  DOWN!.  1ST  CODEIS). 


AT  THE  BEGINNING  OF  THE  LIST  THE  WORD 
ORDER  BIT  WILL  BE  SET  BACK  TO  ZERO 


AP: 


ASS  E'-IBLE  REVISION  0 1 1 f A GC  PROGRAM  APl-lRflfE  BY  fcYLES 


3:15  DEC 


2,1970  SKIPPER 


087  PAGE  998 


l INTER— BANK  COM  NUN  ICAT  IJN  USEMS  PAGE  NO.  1 EO  S3 


R 0001 

THE  FO 

LLOWING 

ROUTINE  CAN  BE 

USED  TO  CALL  A SUBROUTINE 

IN  ANOTHER  BANK.  IN  THE  BANKCALL  VERSION,  THE 

R 000  3 

C ADR 

OF 

THE  SUBROUTINE 

IMMEDIATELY  FOLLOWS  THE 

TC  BANKCALL  INSTRUCTION,  WITH  C(A>  AND  C ( L > PRESERVED. 

0005 

4616 

BLOCK 

02 

00055 

REF 

1 

COUNT* 

T $ /BANK 

0096 

REF 

7 

EAST 

878 

6-616 

52  134 

0 BANKCALL 

DXCH 

BUF2 

SAVE  INCOMING  A , L . 

0007 

REF 

23  2 

LAST 

996 

4617 

50  002 

0 

INDEX 

Q 

PICK  UP  CADR. 

0008 

4620 

3 0000 

1 

CA 

0 

0009 

REF 

233 

LAST 

998 

46  2 1 

24,002 

0 

IK  CO 

a 

SO  WE  FETURN  TO  THE  LOC.  AFTER  THE  CAOR. 

R0010 

SWCALL 

IS  IDENTICAL 

TO  BA'-'KCALL,  EXCEPT 

THAT  THE  CAUR 

ARRIVES  IN  A. 

0012 

REF 

175 

LAST 

997 

46  2 2 

54  001 

1 SWCALL 

TS 

L 

0013 

REF 

3 

LAST 

464 

4623 

22  004 

0 

LXCH 

FBANK 

SWITCH  BANKS,  SAVING  RETURN. 

0014 

REF 

8. 

LAST 

751 

4624 

7 5012 

0 

MASK 

L0W10 

GET  SUB-ADDRFSS  OF  CADR. 

0015 

REF 

2 1 4 

LAST 

998 

462  5 

56  0 02 

0 

XCH 

3 

A , L ibk  CONTAINS  DP  RETURN. 

0016 

REF 

8 

L A ST 

99  8 

4626 

52  134 

0 

DXCH 

3 U F 2 

RESTORING  INPUTS  IF  THIS  IS  A BANKCALL. 

0017 

REF 

235 

L A S T 

998 

^■6  27 

59  002 

0 

INDEX 

0 

0018 

4630 

0 2000 

0 

TC 

10000 

SETTING  Q TO  SWRETUPN. 

0019 

REF 

. 9 

LAST 

998 

4631 

56  134 

1 SWKETUON 

XCH 

BUF2  +1 

COME S HERE  TO  RETURN  TO  CALLER.  C ( A , L ) 

0020 

REF 

4 

LAST 

99  8 

463  2 

56  004 

0 

XCH 

FBANK 

ARE  PRESERVED  FOR  RETURN. 

0021 

r,EF 

1 0 

LAST 

ogR 

4633 

56  134 

1 

XCH 

BUP  2 +1 

002? 

REF 

1 1 

LAST 

Q08 

46  34 

0 0133 

0 

TC 

0UF  2 

R 0 0 2 3 

R 002  5 

0026 

THE  FOLLOWING  ROUTINE  CAN  BE  USED  AS  A 
FI'LI  '••■JTMG  THE  TC  POST  J U'TJ  IN  ST  UC  T I UN. 

OFF  7 U 1 ACT  /,*,•»*  FA  Ci  '1 7 D DOC  , I1IUD 

UNILATERAL 

vru  n 

JUMP 

WITH  C(AtL)  PRESERVED 

c a \/P  TMfDM 

AND  THE  CAOR  IMMEDIATELY 

CIA). 

0027 

0028 

REF 

310 

LAST 

997 

4636 

4637 

50  000  1 

3 0000  1 

INDEX 

CA 

w 

A 

0 

j H V L 1 IN  V_  ’ U ‘ ’ 1 \5 

GET  CADP. 

R 002  9 

BANK JUMP  IS 

the  samf 

AS  POST JUMP,  EXCEPT  THAT 

THE 

CADR 

AFRIVES  IN  A. 

0031 

REF 

5 

LAST 

9°8 

4640 

54  004  1 

BANK  JUMP 

TS 

FBANK 

0032 

REF 

9 

LAST 

998 

4641 

7 5012  0 

MASK 

LOW  10 

0033 

REF 

237 

LAST 

998 

4642 

56  C 02  0 

XCH 

Q 

RESTORING  INPUT  C ( A ) IF  THIS  WAS  A 

0034 

REF 

233 

LAST 

998 

4643 

50  002  0 

Q+10Q00 

INDEX 

Q 

POSTJUMP. 

0035 

4644 

1 2000  1 

PR  1012 

TCF 

10000 

PR  1 0 1 2 = TCF 

10000  = 12000 

GAP 


ASSEMBLE  REVISION  001  OF  AGG  PROGRAM  AP11R0PE  BY  EYLES 


L I NT  Fr  -BANK  COM  MUM  I CAT  I UN 


P 0036  THE  FOLLOWING  ROUTINE  G 


003  8 

REF 

10 

LAST 

998 

464  5 

3 

0039 

REF 

12 

LAST 

998 

4 646  L 

7 

0040 

REF 

13 

LAST 

999 

466  7 

6 

0041 

° EE 

2 39 

LAST 

8 

465  0 

0 

ETS 

THE 

RETURN  CADR  SAVED  BY 

SWC 

5012 

1 

MAKECADR  CAP 

LOW  10 

0133 

1 

MASK 

BUF2 

0134 

1 

AD 

BUF2 

+ 1 

COO  2 

0 

TC 

0 

00465 
0047 
0047  c 

004  8 
004«5 

004  9 
00495 
0050 
0050* 

005  1 
0052 
00525 
005  3 
00534 
3 0 ‘ ! 

0054 
00545 

0055 
0C555 


K§f  5 LAST 
PEP  4 LAST 

RFF  11  LAST 
RFF  6 LAST 
REF  11  LAST 
REF  176  LAST 


r'EF  1?  LAST 
REF  177  LAST 

• £F  7 LAST 

REF  13  LAST 

REF  7 LAST 
REF  8 LAST 


83  5 
998 


555 

oqq 

999 

998 


9 a q 

999 


999 


999 

99° 

999 


4651  54  135  1 

“652  56  004  0 

4653  0 CO 06  1 

4654  04  007  1 

46  5*  56  1 35  0 

4656  7 5012  0 

4657  56  001  0 

4-66  0 0 0004  0 

4661  0 0006  1 

466  2 )1  007  1 

4663  50  001  0 

46  64  3 2(  00  0 

4-6  6,5  5 6 1 3 5 0 

4666  0 00  S 1 

4667  01  007  1 

4-670  0 (.003  1 

46  7 1 54  0 06  1 

4672  3 0135  0 

4673  0 0(02  0 


SUPQACAL  TS 
XCH 

EXTEND 

ROR 

XCH 

MASK 

XCH 

INHINT 

EXTEND 

WRITE 

INDEX 

CA 

XCH 

EXTEND 
w;  ITE 
' ELINT 
TS 

CA 

FE  TURN 


MPTEMP 
F BANK 

superbmk 
MPTEMP 
LOW  10 
L 


$U°f P BNK 
L 

10000 

MPTEMP 

SUPEkBNK 

FBANK 

MPTEMP 


3: 15  DEC 


SKIPPER  .087  PAGE 


999 


. 2,1970 

USER'S  PAGE  NO.  2 EO  S3 


OR  BANKCALL  AND  LEAVFS  IT  IN  A. 


SET  FBANK  FOE  DATA. 

SAVE  FBANK  IN  8ITS  15—11  , AND 
SUPERBANK  IN  3ITS  7-5. 

SAVE  PEL.  AGE.  IN  BANK,  FETCH  SUPERBITS. 
BECAUSE  FUPT  DOES  NOT  SAVE  SUPERBANK. 

SET  SUPERBANK  FOR  DATA. 

PINBALL  (FIX  MEM  DISP)  PREVENTS  DC A HERE 
SAVE  1ST  WD,  FETCH  01  D FBANK  AMD  SBAIXK. 


RESTORE  SUPERBANK. 

RESTORE  FBANK. 

RECOVER  FIRST  WORD  OF  DATA. 

24  WDS . DATACALL  51b  MU,  SUPDACAL  432  MU 


ASSEMBLE  REVISION  Of'l  l.F-  A GC  PROGRAM  APLlkOPE  BY  EYLES 


3:15  DEC 


2 ,1973  SKIPPER  .087  PAGE  1000 


GAP: 


L l:  TER-RAUK  C0P1YUMICAtIC; 


USER'S  P AGE  NO.  3 EO  S3 


P 005  fc  THE  FOLLOWING  F D'JT  T NES  APE  IDENTICAL  TO 


0058 

REF 

LAST 

907 

4674 

52  073 

1 

I BN  K CALI, 

0050 

REF 

24,. 

LAST 

Cjoo 

+ 675 

50  002 

0 

0060 

4 6 76 

3 CO 00 

1 

0061 

REF 

74  1 

LAST 

c 4 ¥7 

24  002 

0 

006? 

REF 

178 

LAST 

oqo 

4700 

54  ('01 

1 

I SWCALL 

OCL  3 

R LI- 

£L 

LAST 

9 ? 9a 

47C  1 

22  004 

0 

0064 

LLE 

1 2 

1 A r T 

■ICQ 

?<■  Z 

7 501  2 

0 

C(  t ' 

' EE 

2 4? 

LAST 

1 oon 

47  0 3 

6 6 1 0 2 

0 

0 <4  A 

R F f 

1 0 

LAST 

1 'n0 

4 7p  4 

52  073 

1 

0067 

REF 

243 

LAST 

moo 

4705 

50  002 

0 

006  8 

4706 

0 2000 

0 

00  6 c 

PEE 

3 

LAST 

Q 5 

4 707 

5E  C 73 

0 

I SWF  ETPN 

007  0 

r'  EF 

<? 

LAST 

loco 

4710 

66  0U4 

0 

007  1 

REF 

4 

1 A ST 

jnoc 

471  1 

5 6 073 

0 

007  2 

PEF 

1 1 

LAST 

1000 

4712 

0 0072 

1 

BANKCAL.L  AND  SWCALL  EXCEPT  THAT  THEY  ARE  USED  IN  INTERRUPT. 

DXCH  R UP 7 REG, 3 USES  F.UPT '■  EG3.4  FOR  DP  RETURN  ADDRESS. 

INDEX  Q 

CAF  0 

T f 1 (fit  o 

rs  L 

lxch  fbank 

■1  ASK  LOW  10 

xch  g 

dxch  ruptreg? 

INDEX  Q 

TC  ICOOO 

XCH  F.UPTR  EG4 

XCH  FBANK 

XCH  RUPTREG4 

TC  RUPTREG3 


R 009  C 2.  US'  : CADR  ACCESSES  I .T  ERF  ET1VE  CEDING  It:  OTHER  THAN  THE  USER'S  FBANK.  THE  CALLING  SEQUENCE  IS  AS  FOLLOWS: 


A 0C  °? 

a or  53 

A OOP  * 


L ■’  C US  PR  C ADr 

L + l CAQP  'KTpRETX  IMTPRETX  »S  THE  TNTER  PRET I VE  COOING 

RETURN  IS  TO  L+2 


0103 

REF 

3 H 

LAST 

0104 

REF 

33 

L AST 

0105 

RFF 

7 

LAST 

0106 

REF 

23 

l A c T 

0107 

010E 

010P 

0110 
01 1 1 
011  2 

0113 

0114 


4713  54  164  0 

h?1T  3 4744  1 
453  4715  54  023  1 

°2*  '714  3 0005  1 

4717  54  165  L 

4720  50  0C2  0 

4721  3 OCOQ  1 

4722  54  004  1 

5723  7 50 1 2 0 

4724  54  PC 2 0 

56  164  1 

1 4643  0 


RFF 

REF 

1 

244 

LAST 

1000 

REF 

10 

LAST 

1000 

REF 

1 3 

L AST 

1000 

REF 

245 

1 AST 

1 OOP 

RFF 

6 

LAST 

1000 

REF 

1 

1JSP:  CADI  TS 
CA 
TS 
CA 
TS 

INDEX 

CA 

TS 

mask 

XCH 

XCH 

TCF 


LOC 

13  I T 8 

E DO  P 

BBANK 

RANKSET 

Q 

0 

FBANK 
LOW  10 
Q 

LOC 

Q+10000 


c AV  E A 

EXIT  INSTRUCTION  TO  EDOP 
USER'S  B8ANK  TO  RANKSET 


INTERPRETIVE  BANK  TO  FBANK 
YIELDS  INTERPRETIVE  R EL AT I VE  ADDFESS 
INTERPRETIVE  A OOP  ESS  TO  D,  FFTCHING  L + l 
L+l  TO  LOC,  RETRIEVING  ORIGINAL  A 


IT# ) Q 


§ 

i 

» 

I 

I 

I 

I 

3" 

I 

I 

2” 

I 

> 

1" 

I 

k 


GAP  : 
L 


P0117 
R011"5 
R0120 
R 012  1 


R0122 
R 0 1 2 * 
P 0 126 
R 0128 
P 0130 
R 0 1 3 2 
RC13A 
R 0 1 3 6 
R 01  38 
R 0142 
R0144 


R014? 


P 0146 
R 01 47 
R 0 1 4 fi 
R 0149 
R 0 1 50 


R 0 1 5 1 


RC152 
R0154 
R 0 1 5 5 
R 01 5 7 
0 )15S 
R0161 


0163 
0166 
A 0 16  5 
0166 
A 0 1 6 7 


ASSEMBLE  E VISION  001  OF  AGO  PP  t GRAM  API 1RCPE  BY  EYLES 
I NT  £r -SANK  COM’^H'i  I CAT  1°' 


3:15  DEC.  2,1°70  SKIPPER  .087  PAGE  1001 
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THERE  APE  FOUR  POSSIBLE  SETTINGS  FOR  CHANNEL  07.  (CHANNEL  07  CONTAINS  THE  SUPEPBANK  SETTING.) 


PSEUDG-FIXED 


OCTAL  PSEUDO 


SUPERBANK 

SETTING  S-REG.  VALUE 

BANK  NUMBERS 

ADDRESSES 

SUPEPBANK 

3 

- 3777 

30  - 

37 

70000  - 1 077*77 

SUPEPBANK 

4 

100  2000 

- 3777 

40  - 

67 

110000  - 

127777 

SUPEPBANK 

5 

ini  2000 

- 3777 

50  - 

57 

130000  - 

147777 

SUPEPBANK 

6 

110  2000 

- 3777 

60  - 

67 

150000  - 

167777 

***  THIS 

ROUTINE  MAYBE  CALLED 

BY  ANY 

PROGRAM  LOCATED 

IN 

BANKS  00  - 

27.  I 

SU°  EPS  ANK 

SHOULD  USE  SUPERSW. 

SUPER  SW  MAYBE 

CALL  ED  IN  THIS  FASHION: 

CAF 

AB8C0N 

WHERE 

— ABBCON 

BBCON 

SOMETHIN 

— 

TCR 

SUPERSW 

(THE  SUPER BNK  BITS 

ARE 

IN 

THE  BBCON) 

(WHERE  XX  CAN  BE  ANYTHING  AND 
WILL  USUALLY  BE  SEEM  AS  11) 


ONLY  BANKS  40-6.3  WILL  EVER  BE 
AID  ARE  PRESENTLY  AVAILABLE) 


THE  USEP) 

( PF  ES  ENTL ' 
THE  USER) 


OR  IN  THIS  FASHION  : 


CAF 

TCR 


SUPERSET 

SUPERSW 


“i  HEP.  fc  SURE  SET  ' S C !E  OF  THE  FOUR  AVAILABLE 
SUPERBANK  BIT  CONSTANTS: 

SUPFPOli  OCTAL  60 
SUPER  100  OCTAL  100 
SUPER  101  OCTAL  120 
S'JPl'.  1 1 o OCTAL  140 


REF  14  LAST  999 
REF  246  LAST  1000 


4727 

0 

0006 

1 

SUPER  SW  EXTEND 

4730 

01 

007 

1 

WRITE 

4731 

0 

0002 

0 

TC 

WRITE  B I T c 7-6-5  PF  THE  ACCUMULATOR  INTO 
CHANNEL  07 

TC  TO  INSTRUCTION  FOLLOWING 
TC  SJPERSW 


GAP:  ASSEMBLE  F VISION  001  OF  AGC  PROGRAM  API 1R0PE  BY  EYLES 


3:15  DEC 


2,1970  SKIPPER  .087  PAGE  1002 


L 

I ; 7 , r eter 

USER'S  PAGE  NO.  1 EO  S3 

R 000  1 

SECTION  1 

DISPATCHER 

R0002 

EM  f Y 

TO  THE 

INTO  ° K ETEF  . I NT  PR  ET  SETS 

LOC  TO 

THE  FIRST 

INSTRUCTION,  BANKSET  TO  THE  BBANK  OF  THE 

R0CQ4 

OBJECT  INTERPRETIVE  PROGRAM, 

AND  I NT  81  T 1 5 TO  THE 

BIT15 

CONTENTS  OF 

FRANK.  INTERPRETIVE  PROGRAMS  MAY  BE  IN 

R 0006 

VIRTUAL  l Y 

AL  L 

BANKS  POES  EM  nMOEI-  AMY 

SUPE  -BANK 

SETTING,  WITH  THE 

RESTRICTION  THAT  PROGRAMS  IN  HIGH  BANKS 

ROC  OP 

(FT Tlr  OF 

PBANK  = 1) 

no  NOT  9 FFFF  TO 

LOWBANKS,  AND  VICE 

-VERSA.  THE 

INTERPRETER  DOES  NOT  SWITCH  SLIPEPBANKS. 

R0010 

E-BANK  SWITCHING  OCCURS  WHENEVER  GENERAL 

ER Ar  ABL  E (100 

- 3777)  IS 

ADDRESSED. 

001? 

6037 

BLOCK 

03 

OOl? 

PEF 

I 

COUNT'-!1 

$$/INTER 

0G135 

6037 

0 0003 

1 

INTPRET 

F FLINT 

0014 

6040 

0 0006 

1 

EXTEND 

SET  LOC  TO  THE  WORD  FOLLOWING  THE  TC. 

0015 

REF 

7 

LAST 

100° 

604  1 

22  164 

1 

QXCH 

LOC 

00  1 6 

REF 

24 

LAST 

1000 

604  2 

3 000  6 

1 

+ 2 

CA 

B BANK 

INTERPRETIVE  BRANCHES  FINISH  HERE. 

0017 

PEF 

2 

LAST 

1000 

60^  3 

54  165 

1 

TS 

BANKSET 

0018 

REF 

34 

LAST 

900 

6044 

7 473  5 

0 

MASK 

B IT  15 

GET  1 5TH  BIT  FOR  INDEXABLE  ADDRESSES. 

0019 

REF 

5 

LAST 

96 

6045 

54  115 

0 

TS 

I NIB I T 1 5 

0020 

REF 

8 

LAST 

1000 

6046 

54  0 23 

1 

TS 

EDOP 

MAKE  SURF  NO  INSTRUCTIONS  LEFT  OVER 

00  21 

p ff 

1 

60  4 7 

1 6070 

1 

TCF 

NEWPPS 

PICK  UP  OP  CODE  PAIR  AND  BEGIN. 

0022 

REF 

25 

LAST 

1002 

6050 

22  006 

1 

INTKSM 

LXCH 

BBANK 

RESUME  SUSPENDED  INTERPRETIVE  JOB 

0023 

RFF 

222 

LAST 

982 

605  1 

1 6042 

0 

TCF 

INTPRET  +3 

R 0024 

DU  AD 

LOADS 

r P A C , 'AC  +1,  LEAVING  ZERO 

IN  P AC  + 2. 

0025 

6052 

0 0006 

1 

DLOAD 

EXTEND 

0026 

REF 

4 

LAST 

921 

6053 

5 0116 

1 

INDEX 

ADDRWD 

0027 

6054 

3 00  01 

0 

DCA 

0 

LOAD  DP  C(C( ADDRWD))  INTO  MPAC, MF AX  +1 

0028 

REF 

367 

LAST 

962 

605  5 

5 2 155 

l 

SL0AD2 

DXCH 

MPAC. 

002  P 

REF 

187 

LAST 

996 

6 05  6 

3 47  55 

1 

CAF 

ZERO 

ZERO  MPAC  +2 

GAP:  ASSEMBLE  REVISION  001  OF  AGC  PROGRAM  APL1R0PE  BY  EYLES  3:15  OEC.  2,1970  SKIPPER  .087 

L INTERPRETER  USER'S  PAGE  NO.  2 

P 00  30  AT  THE  FlO  OF  MOST  INSTRUCTIONS,  CONTROL  IS  GIVEN  TO  DANZIG  TO  DISPATCH  THE  NEXT  OPERATION. 


PAGE  1003 
EO  S3 


0032 

REF 

368 

LAST 

1002 

6G57 

54  156 

1 

TS 

0033 

RFF 

15 

LAST 

886 

606  0 

54  163 

1 

NEWMODE 

TS 

0034 

REF 

3 

LAST 

1002 

606  1 

3 0165 

0 

DANZIG 

CA 

0035 

P FF 

26 

LAST 

1002 

6062 

54  006 

0 

TS 

003  6 

REF 

9 

LAST 

1002 

6063 

10  023 

1 

NOIBNKSW 

CCS 

0037 

A 003  P 

REF 

1 

406  4 

1 6.C77 

0 

TCF 

lv>P AC  +2  ANO  DECLARE  OP  MODE 

MODE  PROLOGUE  FOR  MODE-CHANGING  INSTRUCTIONS. 

BANKSET  SET  B BANK  BEFORE  TESTING  NEWJOB  SO  THAT 

BBANK  IT  MAY  BE  SAVED  DIRECTLY  BY  CHANJOB. 

EDOP  SEF  IF  AN  ORDER  CODE  IS  LEFT  OVER  FROM 

0 P JUMP  THE  LAST  PAIL  RETRIEVED.  IF  SO,  EXECUTE. 

EDOP  IS  SET  to  ZFRO  ON  ITS  PE-EDITING. 


0039 

REF 

5 LAST  717 

6065 

10  067 

1 

OCAO 

REF 

1 

6066 

l 5126 

0 

CCS  NEWJOB  SEE  IF  A JOB  OF  HIGHER  PRIORITY  IS 

TCF  CHANG2  PRESENT,  AND  IF  SO,  CHANGE  JOBS. 


0041 
P.004  2 

0043 

0044 

004  5 

REF  8 

LAST  1002 

T T P A r £ / 1 1 

REF  9 

,v  C p '.11 

LAST  1003 

LAST  993 

yj  ‘t 

004  6 

REF  1 

6067  24  164  1 

c S TO  >i'vf~W*’PS"  . 

6070  50  164  1 NEWOPS 

6071  3 0000  1 

6072  10  OCU  0 

■‘073  1 6362  1 


I NCR 

LCC 

ADVANCE  THE  LOCATION  COUNT!'3 . 

INDEX 

LOC 

ENTRY  TO  BEGIN  BY  PICKING  OP  CODE 

PAIR. 

CA 

0 

MAY  BE  AN  OPCODE  PAIR  OP.  A STORE 

CODE  . 

CCS 

A 

TEST  SIGN  AND  GET  DABS(A). 

TCF 

DOSTOFF 

PROCESS  STORE  CODE. 

0047 


6074  00177  0 L0W7  OCT  177 


0048 

REF 

10 

LAST 

1003 

004  9 

REF 

6 

L AST 

453 

0050 

P EF 

1 3 

LAST 

460 

005  l 

RFF 

14 

LAST 

1003 

0052 

P EF 

1 

0053 

REF 

■rrU 

6075 

54  023 

1 

TS 

EDOP 

6076 

7 6 074 

0 

MASK 

LOW? 

6C77 

54  020 

1 QPJUMP 

TS 

C Y R 

c.  leg 

10  020 

1 

CCS 

CYR 

6101 

1 6247 

1 

TCF 

0PJUMP2 

OP  CODE  PAIR.  LEAVE  THE  OTHER  IN  EDOP 
WHERE  CCS  EDOP  WILL  HONPF  H NEXT. 

IQWWQ  ENTERS  HERE  IF  A RIGHT-HAND  OP 
CODE  IS  T0  BE  PROCESSED.  TEST  PRFFICES 
TEST  SECOND  PREFIX  BIT. 


t 102  1 6743  0 TCF  EXIT 


+0  OP  CODE  IS  EXIT 
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0054 

PRPCE 

SS  ADDRESSES  WH 

ICH  MAY 

BE 

D IRECT, 

INDEXED, 

, OR  REFERENCE 

THE  PUSHDOWN  LIST. 

0056 

REE 

49 

LAST 

mo 

6103 

7 4753 

0 

ADDRESS 

MASK 

BIT  1 

SEE  IF  ADDRESS  IS  INDEXED. 

C Yr/  CONTAINED 

0057 

REF 

312 

LAST 

1003 

6104 

10  OCO 

0 

CCS 

A 

400 XX,  SO  BIT  1 is  NOW  AS 

TT  WAS  IN  CYR. 

005  8 

o EE 

1 

6105 

1 6146 

0 

TCF 

INDEX 

FORM  INDEXED  ADDRESS. 

0059 

REF 

10 

LAST 

1003 

6106 

50  164 

1 

or- ACRES 

INDEX 

L OC 

LOOK  AHEAD  TO  NEXT  WORD  TO 

SEE  IF 

0060 

6107 

4 0001 

1 

0CT40C ol 

CS 

1 

ADDRESS  IS  GIVEN. 

0061 

REF 

313 

LAST 

1004 

e 1 1 0 

10  000 

0 

CCS 

A 

006  2 

REF 

1 

6111 

1 6215 

0 

TCF 

PUSHUP 

IF  NOT. 

0063 

6112 

77773 

1 

NEG4 

DEC 

-4 

0064 

REF 

11 

LAST 

1 004 

6113 

24  164 

1 

I NCR 

LOC 

IF  SO,  TO  SHOW  WE  PICKED  UP  A WOPD. 

0065 

REF 

5 

LAST 

1002 

6114 

54  116 

0 

TS 

ADDRWD 

GAP: 
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P 0066 
R0068 
R 0070 


007? 
007  3 
007  A 
007  5 

0078 

0077 

007  8 
0070 

0080 

008  1 

0082 

0083 

0084 

008  5 
00  8 1 

0087 

0088 

0085 
00^0 
OOP  ] 

009  2 
009  3 
009  4 


INTERPRETER  USER'S  PAGE  NO.  4 EO  S3 

FINAL  DIGESTION  of  DIRECT  ADDRESSES  of  OP  CODES  WITH  01  PREFIX  IS  DONE  HERE.  IN  EACH  CASE,  THE 
REQUIRED  12-BIT  SUB-ADDRESS  IS  LEFT  IN  ADDRWD , WITH  ANY  REQUIRED  E OR  F BANK  SWITCHING  DONE.  ADDRESSES  LFSS 
THAN  45D  ARE  TAKEN  TO  BE  RELATIVE  TU  THE  WORK  AREA.  THE  OP  CODE  IS  NOW  IN  BITS  1-5  CF  CYR  WITH  BIT  14  = 1. 


REF  1 
REF  314 
REF  l 
REF  1 

REF  3 3 
REF  6 
REF  1 5 
REF  1 


OFF  1 

REF  14 
REF  15 
REF  7 
REF  6 
REF  11 
REF  16 
REF  2 

REF  10 
REF  3 
REF  8 
3 EE  57 
REF  17 
REF  3 


LAST  1004 


LAST  961 
1 AST  1004 
LAST  1003 


LAST  1000 
LAST  1005 
LAST  1005 
LAST  1002 
LAST  1000 

1 a:  r ion 5 

LAST  1005 

LAST  996 
LAST  460 
LAST  1005 
LAST  996 
LAST  1005 
LAST  1005 


6115 

6 62  51 

1 

AD 

6116 

10  000 

0 

CCS 

6117 

6 7743 

0 

AD 

612:0 

1 6 12  j 

0 

TCP 

612  1 

3 0 12  0 

1 

NETZEPO 

CA 

q 

an  8 

6 I ? R 

1 1 “ 

H L?  O 

6123 

50  020 

0 

ITR15 

INDEX 

6124 

7 6273 

0 

7 

6125 

G 1:  006 

1 

I ERAST  ST 

EXTEND 

t,  1 2 6 

6 6136 

0 

BZMF 

6127 

7 5012 

0 

MASK 

6130 

6 5012 

1 

AD 

613  1 

56  116 

1 

XCH 

6132 

6 0115 

1 

AD 

6 1 3 2 

54  006 

1 

TS 

6 134 

50  020 

0 

I TP.  1 2 

INDEX 

6135 

7 6273 

0 

7 

6136 

7 635  7 

0 

GEADDR 

MASK 

6137 

6 5007 

0 

AD 

4 14  P 

56  116 

1 

XCH 

6 1 4 1 

54  003 

0 

TS 

614? 

50  020 

0 

I TRIO 

INDEX 

6143 

7 6273 

0 

7 

- FNDVAC 
A 

-ENDERAS 
I ERAST  ST 


FIX  LOC 
ADDRWD 
CYR 

INDJUMP  -1 


GEAODr 


LOW  10 
LOW  10 
ADDRWD 
I NT  8 1 T1 5 
F BANK 
CYR 

INDJUMP  -1 

LOWS 
OCT  14  00 
ADDRWD 
FBANK 
CYR 

INDJUMP  -1 


SEE  IF  ADDRESS  RFLATIVE  T0  WORK  AREA. 
IF  NOT,  SEE  IF  IN  GENERAL  ERASABLE. 


IF  SO,  LEAVE  THE  MODIFIED  ADDRESS  IN 
ADDRWD  AMD  DISPATCH. 

THIS  INDEX  MAKES  THE  NEXT  INSTRUCTION 
TCP  INDJUMP  + OP,  EDITING  CYP . 


GO  PROCESS  GENERAL-ERASABLE  ADDRESS. 

FIXED  BANK  ADDRESS.  RESTORE  AND  ADD  B15. 
SWITCH  BANKS  AND  LEAVE  SUBADDPESS  IN 
ADDRWD  FOF  OPERAND  RETRIEVAL.  (TFIS 
METHOD  PRECLUDES  USE  OF  THE  LAST 
LOCATIC;N  IN  EACH  FBANK.) 


3:15  DEC 


2,1970  SKIPPER  .087  PAGE  1006 
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P 0095 

THE  FOLLOWING 

ROUTINE 

PROCESS  ES 

INTERPRETIVE  INDEXFD  ADDRESSES. 

AN  INTERPRETER  INDEX  REGISTER  MAY 

R0097 

CONTAIN 

THE  ADDRESS  OF 

ANY  E!  A 

SABLE  REGISTER  ( 0- 

42  BEING 

RE  LATI VE  TO  THE 

VAC  AREA)  OP  ANY  INTERPRETIVE  PROGRAM 

P 0099 

BANK 

, OR 

ANY  I 

NTEGE:.  IN 

THAT  RANGE . 

0100 

REF 

1 

6144 

3 7733 

1 

dodluad* 

CAF 

DLOAO* 

STOOL*  COMES  HERE  TO  PROCESS  LOAD  ADR. 

0101 

REF 

18 

LAST 

1005 

6145 

54  020 

1 

TS 

CYR 

(STOVl.*  ENTERS  HEPE). 

0102 

RFF 

39 

LAST 

1005 

6146 

3 0120 

1 

INDEX 

CA 

FIX  L DC 

SET  UP  index  location. 

0103 

REF 

1 

6 147 

5<t  130 

1 

TS 

I NDEXLOC 

0104 

REF 

12 

LAST 

1004 

6150 

24  164 

1 

I NC  R 

LOC 

(ADDRESS  ALWAYS  GIVEN). 

0105 

REF 

13 

LAST 

1 0 0 ' 

615  1 

5C  169 

1 

INDEX 

LCC 

0106 

6 lK? 

4 ceoo 

0 

CS 

O' 

0107 

REF 

315 

LAST 

1005 

6153 

10  000 

0 

CCS 

A 

INDEX  2 IF  ADDRESS  STORED  COMPLEMENTED. 

0108 

REF 

2 

LAST 

1006 

6154 

24  130 

0 

I NCR 

I NDEXLOC 

0109 

6155 

1 . 156 

1 

NOO?  * 

0110 

REF 

9 

' AST 

100  5 

61 5 4 

5*-  11 6 

0 

TS 

ADDS «D 

14  BIT  ADDRESS  TO  ADDRWD. 

0111 

RFF 

] 

4 15  7 

7 7742 

Q 

M A S K 

MI  G H 4 

IF  ADDRESS  GPFATFP  THAM  ?K.  ADD  1 f T R T T I 5 

11  HU  L'P  L J J Ui  L.  H 1 Li  i I 1 M ' C.  IN  f H L»  U 1 1 U i 1 1 U 

0112 

6160 

0 0006 

1 

EXTEND 

0113 

REF 

1 

6161 

1 6 164 

0 

BZF 

INDEX2 

0114 

REF 

7 

LAST 

100  5 

6 16  2 

3 0 115 

1 

CA 

INTBIT15 

0115 

REF 

10 

LAST 

1006 

616  3 

26  116 

0 

ADS 

A DOR WO 

0114 

RFF 

3 

LAST 

1096 

6164 

50  130 

0 

INDEX2 

INDEX 

INDEX! DC 

0117 

REF 

28 

LAST 

96  1 

616  5 

4 0046 

1 

CS 

XI 

0118 

REF 

1 1 

LAST 

1006 

616  6 

26  116 

0 

ADS 

ADDRWD 

DO  AUGMENT,  IGNORING  AND  CORRECTING  OVF. 

0119 

REF 

8 

LAST 

96  1 

6167 

7 7744 

0 

MASK 

HIGH9 

SEF  IF  ADDRESS  IS  IN  WORK  APFA. 

nl  20 

6 170 

0 0006 

1 

EXTEND 

0121 

RFF 

] 

6 17  1 

1 62  G4 

0 

BZF 

TNnWPCk 

0122 

REF 

2 

LAST 

1006 

6172 

7 7742 

0 

MASK 

HIGH4 

SEE  IF  IN  FIXED  BANK. 

0123 

6173 

0 C006 

1 

EXTEND 

0124 

REF 

1 

61  74 

1 6206 

1 

BZF 

INDERASE 

0125 

REF 

12 

LAST 

1006 

6 L7r 

3 0116 

1 

C A 

ADDRWD 

IN  FIXED  - SWITCH  BANKS  AND  CREATE 

0126 

REF 

12 

LAST 

10D5 

6176 

54  004 

1 

TS 

FBANK 

SUB-ADDP  ESS. 

0127 

REF 

16 

LAST 

1005 

6177 

7 5012 

0 

MASK 

L0W10 

0128 

REF 

1 

6200 

6 4741 

1 

AD 

2K 

0129 

REF 

13 

LAST 

1006 

6201 

54  116 

0 

TS 

ADDRWD 

0130 

0 ff. 

19 

LAST 

1006 

6202 

50  020 

0 

I TR11 

INDEX 

CYR 

0131 

REF 

4 

LAST 

1005 

6 20  3 

3 4273 

1 

3 

INDJUMP  -1 

0132 

REF 

40 

LAST 

100  6 

62C4 

3 0120 

1 

INDWORK 

CA 

FIXLOC 

MAKE  ADDRWD  RELATIVE  TO  WORK  AREA. 

0133 

REF 

1 

6205 

1 6212 

1 

TC.F 

ITR13  -1 

0134 

RFF 

4 

LAST 

1005 

620  6 

3 5007 

0 

I ND ERASE 

CA 

OCT  1 *t  0 0 

0135 

REF 

14 

LAST 

1006 

6207 

56  116 

1 

XCH 

ADDRWD 

0136 

REF 

58 

LAST 

1008 

6210 

54  003 

0 

TS 

EBANK 

0137 

REF 

11 

LAST 

1005 

6211 

7 43  57 

0 

MASK 

LQW8 

0138 

REF 

15 

LAST 

1006 

621? 

26  116 

0 

-1 

ADS 

ADDRWD 

AF  : 

ASSEMBLE  ; E V 1 G i • N 001 

OF  AUC  PROGRAM  ARllRPPE  BY 

EYLES 

3:15  DEC.  2,1970 

SKIPPER 

.087  PAGE  1007 

INTERPRETER 

USEE'S  PAGE 

NO.  6 

FO  S3 

0139 

0140 

RFF  20  LAST  1006 
REF  5 LAST  1006 

6213  50  020  0 ITR13 

6214  3 6273  1 

INDEX 

3 

CYR 

INDJIJMP  -1 

GAT:  ASSEMBLE  s E V I SICE  001  CF  AGC  PRCGi  AM  AP11RGRJ  BY  EYLES 
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L INTERPRETER  USER'S  PAGE  NO.  7 EO  S3 

P0141  PUSH-UP  ROUTINES.  WHEN  NO  OPERAMC  ADDRESS  GIVEN,  THE  APPROPRIATE  OPERAND  IS  TAKEN  FROM  THE  PUSH-DOWN 

R 014-3  LIST.  IN  MOST  CASES  TEE  MODE  OF  THE  RESULT  (VECTOR  OR  SCALAR  ) CF  THE  LAST  ARITHMETIC  OPERATION  PERFORMED 

RC145  IS  THE  SAME  AS  THE  TYPE  0F:  OPERAND  DESIRED  (ALI.  ADD/SUBTRACT  ETC.).  EXCEPTIONS  TO  THIS  GENERAL  RULE  ARE  LISTED 

R 0147  BELOW  (Nr  TE  THAT  IN  EVERY  CASE  THE  MODE  REGISTER  IS  LEFT  INTACT): 

R0148  1.  VXSC  AID  V/SC  WALT  THE  OPPOSITE  TYPE  OF  OPERAND,  E.G.,  IF  THE  LAST  OPERATION  YIELDED  A VECTOR 

R 01 50  RESULT,  VXSC  WANTS  A SCALAR. 

R0151  2.  THE  LCAC  CODES  SHOULD  LOAD  THE  ACCUMULATOR  INDEPENDENT  CF  THE  RESULT  OF  THE  LAST  OPERATION.  THIS 


R 01 53 

INCLUDES 

VIC  AD 

, DI.UAD,  TLOAD, 

P DDL  , j 

AN  0 

PDVl  (NO 

PUSHUP 

WITH  SLOAD). 

R 0 1 c-  ^ 

3.  some  arithmetic 

OPERATIONS 

P E 9U I RE 

A STANDARD  T y p F OF  OPERAND  REGARDLESS  OF  THF  PREVIOUS  OPEPATION. 

R0I56 

THIS 

IN  CL 

DDES 

SIGN 

WANTING  OP 

AND  TAD  REQUIRING 

TP. 

0157 

REF 

2 

LAST 

747 

6 215 

3 4360 

0 

PUSHUP 

CAF 

0CT23 

IF  THE  LOW  5 BITS  OF  CYR  ARE  LESS  THAN 

0158 

PEE 

21 

LAST 

1007 

62  16 

7 0020 

1 

MASK 

CYR 

20,  THI8  OP  REDUCES  SPECIAL  ATTENTION. 

0150 

REF 

1 

6 217 

6 ^2 22 

0 

AD 

-OC  T 1 0 

(NO  -0). 

0160 

REF 

316 

LAST 

100  4 

62  2 0 

I C COO 

0 

CCS 

/\ 

OIF  1 

REF 

1 

622  1 

1 6233 

1 

TCF 

REGUP 

FOR  ALL  CODES  GREATER  THAN  OCT  7. 

0162 

62  2 2 

77767 

1 

-OCT  10 

OCT 

0 

1 1 t 

1 

0163 

E F 

1 

6 2 23 

6 6112 

0 

AO 

NEG4 

WE  NOW  HAVE  7 - OP  CODE ( M 0D4 ) . SEE  IF 

0164 

REF 

317 

LAST 

1008 

6224 

1C  COO 

0 

CCS 

A 

THE  OP  CODE  (M0D4)  IS  THREE  (REVERSE). 

0165 

REF 

318 

LAST 

1008 

6225 

50  000 

1 

INDEX 

A 

NO  - THE  MODE  IS  DEFINITE.  PICK  UP  THE 

0166 

REF 

1 

6226 

4 6244 

1 

CS 

NO.WDS 

0167 

REF 

2 

LAST 

1003 

6227 

1 6235 

1 

TCF 

REGUP  +2 

0163 

REF 

16 

LAST 

100  3 

6230 

50  163 

0 

INDEX 

MODE 

FOR  VXSC  AND  V/SC  WE  WANT  THF  REQUIRED 

0 1 6C 

R EF 

4 

1 AST 

06  1 

623  1 

4 62  42 

CS 

e cur HT 

PM 8 HI  PC  nFr^FMFMT  WITHOUT  fHANIOTNG  THF 

■ C VU'V  1 

K U o Fi  l ' u,  L)  lu  c ' r.  i w i i fi.'ij'  uuH.rj  i i \j  i n r 

0170 

REF 

3 

LAST 

1008 

6232 

1 6235 

1 

TCF 

REGUP  +2 

MODE  AT  THIS  TIME. 

0171 

REF 

17 

LAST 

1008 

6233 

50  163 

0 

REGUP 

INDEX 

MODE 

MOST  ALL  OP  CODES  PUSHUP  HERE. 

0172 

REF 

2 

l AST 

1008 

6 234 

4 6244 

1 

CS 

NO.WDS 

01  73 

REF 

1 1 

LAST 

886 

6235 

26  166 

1 

+ 2 

ADS 

PUSHLOC 

017^ 

REF 

16 

l AST 

r ■ 

6236 

54  116 

0 

TS 

ADDPWD 

0175 

REF 

22 

LAST 

1008 

6237 

50  020 

0 

I TP  14 

INDEX 

CYR 

0176 

REF 

6 

LAST 

1007 

6240 

7 62  7 3 

0 

7 

INDJUMP  -1 

(THE  INDEX  MAKES  THIS  A TC  F • ) 

0177 

6241 

OC  C02 

0 

OCT 

2 

REVERSE  PUSHUP  DECREMENT.  VECTOR  TAKES  2 

0178 

6 24  2 

00006 

1 

REVCNT 

OCT 

6 

WORDS,  SCALAR  TAKES  6. 

017Q 

62-^3 

00006 

1 

OCT 

6 

0180 

6244 

00002 

0 

NO.WDS 

OCT 

2 

CONVENTIONAL  DECREMENT  IS  6 WORDS  VECTOR 

0181 

624  5 

00003 

1 

0CTAL3 

OCT 

3 

2 IN  DP,  AND  3 IN  TP. 

0182 

6246 

0C0G6 

1 

OCT 

6 

GAP:  ASSEMBLE  REVISION  001  GF  AGG  PROGRAM  APllRDPE  BY  EYLES 


3: 15  OEC 


2,19  70 


SKIPPER  .087  PAGE  1009 


L 

P 018  3 

0135 
01 H6 

0137 

R 018  8 
R0190 
R019? 


I NT  ERPr  ET  ER  USER’S  PAGE  NO.  8 EO  S3 

TEST  THE  SECOND  PREFIX  BIT  TO  SEE  IF  THIS  IS  A MISCELLANEOUS  OR  A UNARY/SHOPT  SHIFT  OPERATION. 

REF  23  LAST  1003 
REF  1 


6247 

10  G20 

1 UPJUMP2 

CCS 

CYR 

TEST 

SECOND  PREFIX 

BIT  . 

6250 

l 6263 

1 

TCF 

0PJUMP3 

TEST 

THIRD  BIT  TO 

SEE  IF  UNARY  OF  SHIFT. 

4 O K 1 

77722 

0 -EMDVAC 

DEC 

-45 

C tL  ' 1 

11  JT  I ' E 

PROCESSES  ADDRESS 

ES  OF 

SUFFI  X CLASS  10. 

THEY 

ARE  BASICALLY 

WORK  AREA  ADDRESSES 

IN  THE  FA  GF  0 - 52,  L-  ASALFE  EC  ADR  CONSTANTS  F OH  100  - 3777  , AND  FCADLS  ABOVE  THAT.  ALL  15  BITS  ARE  AVAILABLE 
IN  CONTRAST  TO  SUFFIX  1,  It  WHICH  ONLY  T«E  LOW  ORDER  14  ARE  AVAILABLE. 


01  ° 3 

REF 

14  LAST 

l no6 

6252 

24  164 

1 

1 5 B I T ADR  I NCR 

LOC 

0194 

REF 

15  LAST 

1009 

6253 

50  164 

1 

INDEX 

LOC 

0195 

6254 

3 0000 

1 

CA 

0 

0196 

REF 

6 1 AST 

98 

62  55 

54  117 

1 

TS 

POL ISH 

(ENTRY  HERE  FROM  STCAtL). 

PICK  UP  ADDRESS  WORD. 

WE  MAY  NEED  A SUBADDRESS  LATER. 


0197  PEF  1 

0198  #F  13  I.  AST  1006 

0199  REF  24  LAST  1009 

0200  REF  319  LAST  1008 

0201  REF  1 


6256  3 5013  0 

6257  54  004  i 

6260  7 0020  1 

626  1 50  000  1 

6262  1 6334  1 


I TR  7 


CAF 

l QW7+2K 

THESE  INSTRUCTIONS  ARE  IN  BANK  1. 

TS 

FBAMK 

MASK 

CYR 

INDEX 

A 

TCF 

M ISCJUMP 

G AP : ASSEMBLE  RE  VISION  ,001  OF  AGC  PROGRAM  APllkOPE  BY  EYLES 


3:  15  DEC.  2,19  70 


SKIPPER  .037  PAGE  1010 


L 1 NT  E!  P PETER 


USER'S  PAGE  NO.  9 


EO  S3 


P 0202  COMPLETE  THE  DISPATCHING  OF  UNARY  AND  SHORT  SHIFT  OPERATIONS. 


0203 

REF 

19 

LAST 

1009 

fa  26  3 

5 9 009 

1 r:\JUMP3 

IS 

F8ANK 

CALL  IN  BANK  0 (BITS  11-15  OF  A ARE  0.) 

0204 

T Tr  AC 

E (6  ) 

REFERS  TO 

"GPJ  JMP3 ". 

020K 

REF 

25 

LAST 

1009 

6264 

10  020 

1 

CCS 

CYR 

TEST  THIRD  PREFIX  BIT. 

0206 

REF 

320 

LAST- 

io09 

6 26  5 

50  COO 

1 

INDEX 

A 

THE  DECREMENTED  UNAPY  CODE  TS  IN  BITS 

0207 

REF 

1 

6266 

1 2000 

1 

TCF 

UNA  JUMP 

1-4  OF  A (ZERO,  EXIT,  HAS  BEEN  DETECTED) 

0208 

REF 

18 

LAST 

loop 

626  7 

10  163 

1 

CCS 

MODE 

its  a short  shift  code,  see  if  present 

0209 

REF 

1 

6270 

1 2017 

1 

TCF 

SHOP  TT 

SCALAR  OR  VECTOR. 

0210 

REF 

2 

LAST 

1010 

6 27  1 

1 20  17 

1 

TCF 

SHORTT 

021  1 

p ff 

1 

t 27  2 

1 2121 

0 

TCF 

SHORT V 

CALLS  THE  APPROPRIATE  ROUTINE. 

0212 

REF 

1 

>3  50 

F8ANKMSK 

EQUALS 

B ANKMASK 

0213 

REF 

39  LAST  603 

6273 

01  1 22  0 t.VBUF 

AD'  FS 

VBUF 

GAP : 


P0214 

0216 
02 1 7 
0218 
02 1 0 
0220 
0221 
0222 

022  3 

02  2 A 

0225 

0226 
0227 
0229 
022' 

023  0 
023  1 

0232 

0233 
023  A 
023  5 

0236 

0237 

023  8 
02  3 c 

0240 

0241 

0242 

0243 

0244 

024  6 
0244 

0247 
R 0248 


ASS-EMPl.  E i fc  V I 9 I J l>t  001  OF  -A  SC  (4  ' Or  AM  API  1-  UPfc  BY  EYLtS 


INTF'PRETEP. 


THE  c OLLOWI MG  IS  THE  JUMP 


TABLE  FOE  PR 


CODE? 


REF 

RFF 

REF 

ncc 

1 

l 

1 

1 

1 

6274 
627  r 
6276 

6 R77 

1 

1 

1 

i 

1 

6506 

7071 

76  5 5 
7401 
6 7 03 

^ r r 

REF 

6300 

REF 

2 LAST  357 

6301 

1 

6470 

REF 

1 

6302 

1 

6052 

REF 

1 

63  03 

1 

7624 

INDJUMP  TCF 
TCF 

t|f 

TCF 

TCF 

TCF 

TCF 

TCF 


r EF  1 

630% 

1 

6501  . 

RFF  1 

6305 

1 

6620 

P EF  1 

6306 

1 

6523 

REF  1 

6307 

1 

7 3 34  i 

REF  l 

6310 

1 

6557 

REF  1 

6 3 1 1 

1 

6626 

6 3 1 2 

73  37  ! 

c r i 

REF  1 

6313 

1 

7616 

TCF 

TCF 

TCF 

TCF 

TCF 

TCF 

TCF 

TCF 


REF 

1 

6 3 

REF 

1 

6 3 

REF 

1 

6 3 

REF 

1 

6 3 

REF 

1 

63 

REF 

1 

63 

REF 

1 

6 3 

REF 

1 

4 3 

14 

L 

7 5 74 

1 

TCF 

1 ;; 

1 

7577 

1 

TCF 

16 

1 

76  03 

1 

TCF 

17 

1 

76  21 

1 

TCF 

20 

1 

6 75  1 

0 

TCF 

2 1 

1 

6 74  7 

1 

TCF 

22 

1 

7036 

1 

TCF 

23 

1 

7331 

0 

TCF 

RFF 

1 

6324 

L 

7460 

0 

REF 

1 

6325 

1 

7%  2 5 

1 

REF 

1 

6326 

1 

7005 

1 

REF 

] 

63  2 7 

1 

7062 

0 

El .)  C.  1 

i 

yJ 

REF 

1 

633  0 

1 

6 7 75 

0 

6 331 

1 

6331 

1 

RFF 

1 

6.33  2 

1 

75  72 

1 

REF 

1 

6333 

1 

7613 

0 

TCF 

TCF 

TCF 

TCF 

TCF 

TCP 

TCF 

TCF 


CODES  10  AND  14  MUST  TUT  PUSH  UP. 


CODE  04  MAY  BE  USED 


3:15  DEC 


2,1970 


WHICH  MAY 

VLOAL) 

TAD 

SIGN 

VXSC, 

CGOTO 

TLOAD 

DLOAD 

V/SC 

SI-0  AD 
SSP 
P DDL 
M XV 
PDVL 
CCA!  L 
VXM 
TSLC 

DHPR 

DDV 

BODV 

GSHIFT 

VAD 

VSU 

BVSU 

DOT 

vxv 

VPP.OJ 

DSU 

BDSU 

DAD 

DMP  1 
S Ef  PD 


HAVE 


00 

01 

02 

03 

04 

05 

06 
0 7 

10 

11 

12 

13 

14 

15 

16 
17 


SKI 

P 

PER 

.087 

PAGE 

NO. 

10 

E 

0 

S3 

OP 

M 

AY  P 

USH 

UP 

• 

TH 

A 

VEC 

TOR. 

S I ON 

ADD 

TO 

MP 

AC 

• 

PAC 

(V  OR  SC 

) 

IF 

X 

SCALAR. 

TO. 

TH 

TR  IPL 

E PR 

EC 

IS 

ION 

TH 

A 

DP 

SCAL 

AR 

. 

ED 

B 

Y SC 

ALAP 

• 

SI 

N 

GLE 

PREC 

IS 

ION. 

MEG. 


LOAD  MP AC  IN 
SET  SINGLE  PRECISION  INTO  X. 

PUSH  DOWN  MP AC  AND  RE-LOAD  V DP, 
MATRIX  POST-MULTIPLIED  BY  VECTOR. 
PUSH  DOWN  AND  VECTOR  LOAD. 
COMPUTED  CAU  . 

MATRIX  PR  E-MU  IMPLIED  BY  VECTOP  . 
N(  I ^AL  I ZE  MP  AC  ( SCAT  \ 0 !L  Y ) . 


20  - DP  MULTIPLY  AND  ROUND. 

21  - DP  DIVIDE  BY. 

22  - DP  DIVIDE  INTO. 

23  - GENERAL  SHIFT  INSTRUCTION. 

24  - VECTOR  ADD. 

25  - VECTOR  SUBTRACT. 

26  - VECTOR  SUBTRACT  FROM. 

27  - VECTOi-  DOT  PRODUCT. 


30  - VECTOR  CROSS  PRODUCT. 

31  - VECTOR  PROJECTION. 

32  - DP  SUBTRACT. 

33  - DP  SUBTRACT  FROM. 

34  - DP  ADO. 

35  - AVAILABLE 

36  - DP  MULTIPLY. 

37  - S ET  PUSH  DOWN  POINTER  (DIRECT  ONLY) 


FOR  VECTOR  DECLARE  BEFORE  PUSHUP  IF  DESIRED 


,AP:  ASS  EM  Bit  REVISI  It.'  001  CF  AGC  PROG.  AM  API  IrsOPE  BY  EYLES 


3:15  DEC.  2,1°70  SKIPPER  .087  PAGE  1012 


P 0250 

0252 

REF 

1 

0253 

REF 

1 

025  A 

REF 

1 

02F* 

RFF 

1 

0256 

REF 

1 

0257 

REF 

1 

0258 

REF 

1 

0259 

REF 

1 

026  0 

REF 

l 

0261 

REF 

1 

0262 

REF 

1 

0263 

REF 

1 

026  A 

R EF 

1 

02  6 c 

REF 

1 

0266 

REF 

l 

1 

0267 

REF 

I uT  EP  PRET EP  USER'S  PAGE  NO.  11 

THE  FOLLOWING  J J TP  TABLE  APP1.  ItS  TO  INDEX,  BRANCH,  AND  MISCELLANEOUS  INSTRUCTIONS. 


EO  S3 


6334 

1 

2 344 

1 

M ISC  JtJMp  TCF 

AX': 

00 

ADDRESS  TQ  INDEX  T^UE. 

633  5 

1 

2361 

0 

TCF 

AXC 

01 

- 

ADDFESS  TO  INDEX  COMPLEMENTED. 

63  36 

1 

2354 

0 

TCF 

LXA 

02 

- 

LOAD  INDEX  FROM  ERASABLE. 

6337 

i 

2 3 60 

1 

TCF 

ixc 

03 

- 

LOAD  INDEX  FROM  COMP  LFMENT  OF  EPAS. 

6340 

1 

2364 

0 

TCF 

S X A 

04 

- 

STORE  INDEX  IN  ERASABLE. 

6 341 

1 

2372 

1 

TCF 

XCHX 

05 

- 

EXCHANGE  INDEX  WITH  ERASABLF. 

6342 

1 

2406 

0 

TCF 

I NCR 

06 

- 

INCREMENT  INDEX  REGISTER. 

6 34  5 

1 

2415 

1 

TCF 

T I X 

07 

TRANSFER  ON  INDEX. 

6 344 

1 

2400 

0 

TCF 

X AD 

10 

- 

INDEX  REGISTER  ADD  FROM  ERASABLE. 

6345 

1 

24  11 

0 

TCF 

XSU 

11 

- 

INDEX  SUBTRACT  FROM  ERASABLE. 

6346 

1 

24  67 

1 

TCF 

BZE/GOTO 

12 

- 

BRANCH  ZERO  AND  GOTO. 

6347 

1 

2474 

0 

TCF 

BPL/BMN 

13 

- 

BRANCH  PLUS  AND  BRANCH  MINUS. 

6350 

1 

2447 

0 

TCF 

RTB/BHI Z 

14 

- 

RETURN  TO  BASIC  AND  BRANCH  HI  ZERO. 

6 35  1 

1 

2 50  7 

0 

TCF 

CALL/ I T A 

15 

- 

CALI.  AND  STORE  QPRET. 

63  52 

1 

2 516 

0 

TCF 

SW/ 

16 

- 

SWITCH  INSTRUCTTONS  AMD  AVAILABLE. 

6353 

1 

2457 

1 

TCF 

BOV( B ) 

17 

- 

BRANCH  ON  OVERFIOW  TO  BASIC  OR  INT. 

GAP  : 


P 026  8 

0269 
02  7 r- 

0271 

0272 

0273 

0274 

0275 

0276 

0277 

0278 

0279 

0280 
0281 
028  2 
0203 
0284 
0288 


ASSEMBLE  REVISION  001  OF  AGO  PROGRAM  AP11RQPE  BY  EYLfcS 
INTEP.PP  ETER 


THE  FOLLOWING  JUMP  TABLE  APPIES  TO  UNARY  INSTRUCTIONS. 


REF 


REF 

REF 

REF 

REF 

REF 

RFF 

REF 


2 LAST 

1 

1 

1 

1 

1 

1 

1 


1002  TO  1013; 

OC, 2000 
00,2000 
0^,200  1 
00,2002 
00,2003 
00,2004 
00,2005 
00,2006 


20  5 205  * 

1 3207  0 
1 3530  0 
1 3517  0 
1 3610  1 
1 3612  0 
1 3174  1 
1 2116  1 


COUNT#  $$/ INTER 
BANK  0 

UNAJUMP  TCF  SQRT 

TCF  SINE 

TCF  COSINE 

TCF  ARCS  IN 

TCF  ARCCOS 

TCF  DSQ 

TCF  ROUND 


REF  1 
REF  1 

REF  2 LAST  601 

REF  1 

REF  1 

REF  1 

REF  1 

REF  1 


00, 

, 2007 

1 

7670 

0 

00, 

,20 

10 

1 

323? 

0 

GO, 

,20 

11 

1 

3023 

1 

"0, 

, 20 

1? 

1 

3176 

0 

00, 

,20 

13 

1 

3245 

0 

00, 

,20 

14 

1 

6334 

1 

00, 

,20 

15 

1 

3274 

1 

00, 

,20 

16 

1 

3247 

1 

TCF  COMP 

TCF  VDEF 

TCF  UNIT 

TCF  ABVALABS 
TCF  VSQ 

TCF  STADP 

TCF  R VO 

TCF  PUSH 


3: 15  DEC. 
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USER'S  PAGE  NO.  12 


EO  S3 


00 

EXIT  - DETECTED  EARLIER. 

01 

- 

SQUARE  ROOT. 

02 

- 

S IN . 

03 

- 

COS. 

04 

- 

ARC  SIN. 

05 

ARC  CCS. 

06 

- 

DP  SQUARE. 

07 

ROUND  TO  DP. 

10 

- 

COMPLEMENT  VFCTnR 

OR  SCALAR. 

11 

- 

VECTGR  DEFINE. 

12 

- 

UNIT  VECTOR. 

13 

- 

LENGTH  OF  VECTOR 

OR  MAG  OF  SCALAR. 

14 

SQUARE  OF  LENGTH 

OF  VECTOR. 

15 

~ 

PUSH  UP  ON  STORE 

CODE. 

16 

- 

RETURN  VIA  QPRET . 

17 

- 

PUSH  MP AC  DOWN. 

AP:  ASSEMBLE  .-EVIGI3N  001  OF  AGC  PkOGT  AM  API  1RCPE  BY  fcYLES 
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L INTERPRETER  USER'S  PAGE  MO.  17  FO  S3 

D 0286  SECTION  2 LOAD  AND  CTP':'E  PACKAGE. 

R02S7  A SET  LF  EIGHT  STL  c CODES  IS  PROVIDED  AS  THE  PRIMARY  METHOD  OF  STORING  THE  MULTI-PURPOSE 

R0289  ACCUMULATOR  (MPAC)  . IF  IN  THE  DANZIG  S'ECT  ION  LOC.  REFERS  TO  AN  ALGEBRAICALLY  POSITIVE  WORD,  IT  is  TAKEN  AS  A 
R 029 1 5 TOP  E CODE  WITH  A CUi  f FT  PONDING  ERASABLE  ADDRESS.  MOST  nF  THESE  CODES  ARE  TWO  ADDRESS,  SPECIFYING  THAT  THE  WORD 

R 02  7 FPU  OWING  THE  STORE  CODE  IS  TO  R F USED  AS  AN  ADDRESS  FROM  WHICH  TO  RE-LOAD  MPAC.  FOUR  OPTIONS  ARE  AVAILABLE: 

R 029  5 1.  STORE  STORE  MPAC.  THE  E ADDRESS  MAY  BE  INDEXED. 

R0297  2.  STCDL  STOKE  MPAC  AND  KE-LOAD  IT  IN  DP  WITH  THE  NEXT  ADDRESS  (THE  LOAD  MAY  BE  INDEXED). 

R029Q  3.  STOVl  STORE  MPAC  AND  RE-LOAD  A VECTOR  (AS  ABOVE). 

R 030 1 4.  STCALl  STORE  AND  DO  A CALL  (BOTH  ADDRESSES  MUST  BE  DIRECT  HERE). 

R0303  STCDL  AND  STOVL  WILL  TAKE  FROM  THE  PUSH-DOWN  LIST  IF  NO  LOAD  ADDRESS  IS  GIVEN. 


030 r 6354  BLOCK  3 

/ 


0306 

REF 

3 

L AST 

1013  Tr’ 

1014: 

15  220* 

COUNT* 

$$/ intIp 

0307 

REF 

4 

LAST 

1003 

63  54 

3 0165 

0 

ST  ADR 

CA 

BANKSET 

THE  STADR  CODE  (PUSHUP  UP  ON  STORE 

0308 

REF 

15 

LAST 

1010 

6355 

54  004 

1 

TS 

F8ANK 

ADDRESS)  ENTERS  HERE. 

0309 

REF 

16 

LAST 

1009 

6 356 

24:  164 

1 

I NCR 

LOC 

0310 

REF 

17 

LAST 

1 0 1 4 

035  7 

L . 4 

1 

IT-1 

INDEX 

LOC 

THE  STORECQDE  WAS  STORED  COMPLEMENTED  TO 

0311 

6360 

4 0000 

0 

CS 

0 

MAKE  IT  LOOK  LIKE  AM  OPCODE  PAIR. 

0312 

RFF 

F 

LAST 

6361 

6 7747 

1 

AD 

ME GONE 

(YUL  CANT  REMOVE  1 BECAUSE  OF  EARLY  CCS) 

0313 

REF 

17 

LAST 

1008 

6 36  2 

54  life 

0 

DOSTGRE 

TS 

ADDP.WD 

0314 

REF 

7 

LAST 

46  1 

6 36  3 

7 4356 

1 

MASK 

LOW  1 1 

ENTRY  FROM  DISPATCHER.  SAVE  THE  ERASABLE 

0315 

REF 

18 

LAST 

1014 

6364 

56  116 

1 

XCH 

ADORWD 

ADDRESS  AND  JUMP  ON  THE  STORE  CODE  NO. 

0316 

REF 

1 

636.5 

7 7722 

0 

■ 1 ,4  S K 

B12T14 

0317 

6 366 

0 0006 

1 

EXTFND 

0318 

REF 

36 

LAST 

821 

6367 

7 4747 

0 

MP 

BITS 

EACH  TRANSFER  VECTOR  ENTRY  IS  TWO  WORDS. 

03 1 9 

REF 

321 

LAST 

1010 

6370 

50  OCO 

1 

ITRO 

INDEX 

A 

0320 

REF 

1 

637  1 

1 6372 

0 

TCF 

STOP  JUMP 

GAP:  ASSEMBLE  REVISION  001  OF  AGC  PROGRAM  AP11R0PE  BY  EYLES 

L INTERPRETER 


P0321 

STORE 

: CODE 

JUMP  TABLE. 

CALLS  THE 

APPROPP I AT 

R 032  3 

A SUPPLIED  OPERATION 

CODE. 

R 032  3 1 

STORE 

STORE 

, 1 AND  STOKE 

,2  RETURN 

Ti  DANZIG, 

r?  i_  c 

1 

n 

6*22 

r\  c t 

• n r>  him  i,  t r 

I'Ll 

1 

n 5 1 1 

' i 

U Oiuoounr  l 

0325 

REE 

2 

LAST 

948 

6373 

i 

6C61 

l 

TCF 

0326 

REF 

1 

6374 

0 

*414 

0 

TC 

ox  9 7 

OFF 

1 ACT 

1 : 1 r 

9 7 F 

i 

1 

t r f 

K L 1 

.J 

LA  v i 

11  • 

1 

o u o I 

1 

i u l 

0328 

REF 

1 

637  5 

0 

64  17 

0 

TC 

032  9 

REF 

u 

LAST 

1015 

6 37  7 

1 

6061 

t 

TCF 

0330 

REF 

2 

LAST 

1015 

6400 

0 

6422 

0 

TC 

0331 

REF 

1 

6401 

1 

6460 

1 

TCF 

0332 

RFF 

3 

LAST 

1015 

‘ 64  C 2 

0 

6422 

0 

TC 

0333 

REF 

1 

6403 

1 

f 144 

1 

TCF 

033  A 

REF 

4 

LAST 

1015 

6404 

0 

6422 

0 

TC 

033  c 

REF 

1 

6405 

1 

6463 

1 

TCF 

033  6 

REF 

5 

LAST 

1 1 

6406 

0 

e 422 

0 

TC 

0337 

F EF 

1 

64C7 

1 

6466 

1 

TCF 

0338 

RFF 

6 

LAST 

1015 

64  1 0 

0 

6422 

0 

TC. 

0339 

REF 

2 

LAST 

279 

6411 

3 

47  66 

1 

CAF 

0340 

REF 

26 

LAST 

1010 

6412 

54 

020 

1 

TS 

0341 

REF 

1 

6413 

1 

6252 

0 

TCF 

3:15  DEC.  2,1970  SKIPPER  .087  PAGE  1015 
USER  *S  PAGE  NO.  14  EO  S3 

E STORING  ROUTINE  ANO  EXITS  TO  DANZIG  OR  TO  ADDRESS  WITH 


THUS  RESETTING  THE  E8ANK  TO  ITS  STATE  AT  INTPRET. 
STORE  STORE. 

DANZIG  PICK  UP  NEW  OP  CODE(S). 

STORE  , 1 
DANZIG 
S TOR  E , 2 
DANZ  IG 

STORE  STOOL. 

DC'DLOAD 

STORE  STODL  WITH  INDEXED  LOAD  ADDRESS. 

DO  01  HAD* 

STORE  STOVL. 

DOVLOAD 

STORE  STOVL  WITH  INDEXED  LOAD  ADDRESS. 

DOVLOAD* 

STORE  STOTC. 

CALLCODE 
CYR 

158  IT  AD' 


GET  A 15  BIT  ADDRESS 


GAP:  ASSEMBLE  • .-VISIT N 001  CP  AGC  PROG  AM  AP11R0PE  BY  EYLfcS 


L INTERPRETER 

P0342  STORE  CODE  ADDRESS  PROCESSOR. 


0343 

REF 

41 

LAST 

1.0-06 

6414 

5o  120 

1 

ST( o-  E , 1 

INDEX 

0344 

REF 

2 9 

LAST 

1006 

o4  13 

4 0046 

1 

CS 

0345 

REE 

l 

6416 

1 64  21 

1 

ICE 

0346 

REF 

42 

LAST 

1016 

6417 

50  120 

1 

STORE, 2 

INDEX 

0347 

REE 

1 9 

LAST 

986 

6420 

4 0047 

0 

CS 

0348 

REE 

19 

LAST 

1014 

642  1 

26  116 

0 

PLESTOKE 

ADS 

03^0 

REF 

20 

LAST 

1016 

6 4 2 2 

. 0116 

0 

STORE 

CS 

0350 

P EF 

1 

6 ^ 23 

6 6^72 

1 

AD 

0351 

REF 

322 

LAST 

1014 

6424 

10  000 

0 

CCS 

0352 

REF 

43 

LAST 

1016 

642  5 

3 0120 

1 

CA 

0353 

REF 

1 

6 42  6 

1 6 4 33 

1 

TCP 

0354 

REF 

5 

1 AST 

1006 

6427 

3 5007 

0 

CA 

0355 

FEE 

21 

LAST 

1016 

6430 

56  116 

1 

XCh 

0356 

Q 5 f 

LAST 

1 1 1 0 6 

64  3 1 

54  003 

f) 

T S 

0357 

REF 

12 

LAST 

1006 

64  3 2 

7 4357 

0 

MASK 

0358 

REF 

22 

LAST 

1016 

6 43  3 

26  116 

0 

AHEAD5 

ADS 

3:15  DEC.  2,1570  SKIPPER  .087  PAGE  1016 
USER ' S PAGE  NO.  15  FO  S3 


FIXlQC 

XI 

PRESTORE 

F1XL0C 

X2 

AODKWO  . RESULTANT  ADDRESS  IS  IN  ERASABLE. 

ADDRWD 

DEC45 

A DOES  THE  ADDRESS  POINT  TO  THF  WORK  AREA? 

FIXLOC  YES. 

AHEAD? 

OCT  1400  NO.  SET  EBANK  6 MAKE  UP  SUBADDRESS. 

A DDF  .-in 
EBANK 
LOW  8 
ADDRWD 


ASSEMBLE  pEVISIDN  U(H  UF  AGO  P OGKAM  AP11ROPE  BY  EYLES 


3:15  DEC. 


2,1970  SKIPPER  .087 


PAGE  1017 


• 

0 

0 

# 

) 

# 

i 

ft 

9 

9 

9 

9 

9 

ft 

9 

0 

9 

3 

9 


GAP  : 


L INTERPRETER  USER'S  PAGE  NO.  16 

P 03  5 c STORING.  ROUTINES.  STORE  DP,  TP,  OR  VECTOR  AS  INDICATED  BY  MODE. 


0360 

R 036  1 

ITT  AC E < ) 

0362 

R F F 

369 

LAST 

1003 

0363  ‘ 

DPP-' 

23 

LAST 

10  If 

r\  c r 

0364 

0365 

REF 

19 

LAST 

1010 

0366 

RFF 

1 

0367 

REF 

247 

LAST 

1001 

0368 

0369 

REF 

370 

LAST 

101  7 

0370 

0371 

0372 

REF 

24 

LAST 

1017 

REF 

371 

LAST 

1017 

0373 

0374 

0375 

REF 

25 

LAST 

1017 

RFF 

248 

LAST 

1017 

0376 

0377 

REF 

37? 

LAST 

1017 

0378 

REF 

26 

LAST 

1017 

0379 

0380 

REF 

249 

LAST 

1017 

< -34  0 0006  1 STARTSTO  EXTEND 

^ E F E i:  G TO  "S T A'  T ST  0 " . 


6435 

6436 

6437 

6440 
644  1 
644  2 

3 015c 
50  116 

52  001 

10  163 

1 64  54 
0 0002 

0 

1 

1 

1 

0 

0 

DC  A 

INDEX 

DXCH 

CCS 

TCF 

TC 

MPAC 

4DDRWD 

0 

MODE 
TSTOR E 
Q 

64^3 

0 0006 

1 

VSTORE 

EXTEND 

644  4 

3 0160 

0 

OCA 

MPAC  + 

644  5 

50  116 

1 

INDEX 

A DDK  ND 

6446 

5 2 00  3 

0 

DXCH 

2 

64*7 

0 0006 

1 

EXTEND 

6450 

3 0162 

1 

DC  A 

MPAC  +! 

645  1 

50  116 

1 

INDEX 

ADORWD 

645  2 

52  005 

0 

DXCH 

4 

645  3 

0 000  2 

0 

TC 

Q 

6454 

3 0156 

0 

TSTOPE 

CA 

MPAC  + 

6455 

50  116 

1 

INDEX 

A DDL  WD 

6456 

54  002 

1 

TS 

2 

6457 

0 0002 

0 

TC 

Q 

MR AC, +1  MUST  BE  STORED  IN 


ANY 


9 

2" 

9 


$ 

i" 


EO  S3 


EVENT. 


I 


GAP:  ASSEMBLE  REVISION  001  OF  AGC  PROGRAM  API  1SQPE  BY  EYLES  3:15  DEC.  2,1970  SKIPPER 

L INTERPRETER  USER'S  PAGE  NO.  17 

P0381  ROUTINES  TO  BEGIN  PROCESSING  OF  THE  SECOND  ADD! ESS  ASSOCIATED  WITH  ALL  STORE-TYPE  CODES 

R 0383  ITSELF. 


.087  PAGE  1018 
EO  S3 

EXCEPT  STORE 


0384 

REF 

1 

6460 

3 7732 

0 

DOOLOAD 

CAP 

Dl.OADCOD 

03  35 

RFF 

27 

LAST 

1015 

6*6  1 

54  0 20 

1 

TS 

CYR 

0386 

PEE 

1 

6*6  2 

1 6106 

1 

TCF 

OIRADRES 

GO  GET  A 

DIRECT  ADDRESS. 

0387 

REF 

1 

646  3 

3 4735 

1 

DOVLOAD 

CAF 

VLOADCOD 

0388 

REF 

28 

LAST 

1018 

£*+64 

54  020 

1 

TS 

CYR 

0389 

REF 

2 

LAST 

1018 

6465 

1 6 106 

l 

TCF 

OIRADRES 

0390 

; F F 

646  6 

3 6 107 

1 

DOVLOAD* 

CAF 

'/LOAD* 

03  91 

REF 

2 

LAST 

1015 

6467 

1 6145 

0 

TCF 

DODLOAD*  +1 

PRQLOGUF 

TO  INDEX  ROUTINE. 

GAP: 

L 

P 0392 

0394 

0395 

0396 

0397 

0398 

0399 

0400 

0401 

040? 

040  3 

0404 

040  5 

0406 

0407 

0408 

0409 

0410 

041 1 

0412 

0413 

04  1 4 

0415 

0416 

0417 

0418 

0419 

04  2 P 


ASSEMBLE  REVISION  001  OF  AGO 
INTERPRETER 

THE  FOLLOWING  LOAD 


PROGRAM  Apl IP  OPE  BY  EYLES  3:15  DEC.  2,1970  SKIPPER  . 

USER'S  PAGE  NO.  18 

INSTRUCTIONS  ARE  PROVIDED  FOR  LOADING  THE  MULTI-PURPOSE  ACCUMULATOR  MP 


087 


AC. 


PAGE  1019 
EO  S3 


REF 

27 

LAST 

1017 

RFF 

373 

LAST 

1017 

REF 

REF 

REF 

PEF 

28 

3 74 

1 Co 

1 

LAST 

LAST 

LAST 

1019 

1019 

9 24 

REF 

29 

LAST 

1019 

REF 

1 

REF 

30 

LAST 

1019 

REF 

375 

LAST 

10.19 

REF 

31 

LAST 

1019 

REF 

376 

LAST 

1019 

PEF 

32 

LAST 

1 0 1 9 

REF 

377 

LAST 

1019 

REF 

107 

LAST 

1019 

RFF 

2 

LAST 

1019 

6470  50  116  1 T LOAD 

6471  3 CC02  0 

6472  54  156  1 

6473  0 0006  1 

6474  5 C 1 1 6 1 

6475  3 C001  0 

6476  52  155  1 

6477  3 4 753  1 T MODE 

6500  1 6060  0 


INDEX  A DDR  WD 
CA  2 

TS  M P AC  62 

EXTEND 

INDEX  ADDRWO 
DC  A 0 
DXCH  MPAC 
CAF  ONE 
TCF  NEW MODE 


6501  22  C 07  0 SLOAD 

65C2  50  116  1 

6503  3 0000  1 

6504  1 6055  0 


ZL 

TNDFX  ADDRWD 
CA  0 

TCF  SL0AD2 


6K0 5 0 0006  1 VI. ' AU 

6506  5 0116  1 

6507  3 C001  0 

6510  52  155  1 


EXTEND 

INDEX  ADDRWD 
DC  A 0 
DXCH  MPAC 


654  1 0 0006  1 

6512  6 0116  1 

6513  3 0003  1 

6514  52  160  1 


ENDVIOAD  EXTEND 

INDEX  A DDF  WD 
DC  A 2 
DXCH  MPAC  +3 


6515  0 0006  1 + •' 

51<  5 Oil'  1 

6517  3 0005  1 

6520  52  162  0 


EXTEND 

INDEX  A COP  WD 
DC  A 4 
DXCH  MPAC  +5 


6521  4 4753  0 V MODE 

6522  1 6. 0 fc 0 0 


CS  ONE 

TCF  NEWMODE 


LOAD  A TRIPLE  PRECISION  ARGUMENT  INTO 
THE  FIRST  THFEE  MPAC  REGISTERS,  WITH  THE 
CONTENTS  OF  THE  OTHEP  FO'JR  IRRELEVANT. 


DECLARE  TRIPLE  PRECISION  MODE. 

LOAD  A SINGLE  PRECISION  NUMBER  INTO 
MPAC,  SETTING  MPAC+1,?  TO  ZERO.  THE 
CONTENTS  OF  THE  REMAINING  MPAC  REGISTERS 
ARE  IRRELEVANT. 

LOAD  A DOUBLE  PRECISION  VECTP°  INTO 
MPAC , +1 , MPAC+3,4,  AND  MPAC+5,6.  THE 
CONTENTS  OF  MPAC  +2  ARE  IRRELEVANT. 


PDVL  COMES  HFRE  TO  FINISH  UP  FOP.  DP,  TP. 


TPDVL  FINISHES  HERE. 


DECLARE  VECTOR  MODE. 


GAP : 


ASSEMBLE  REVISION  001  CF  AGC  PR  LG?-  AM  API  MOPE  BY  LYLES 


3:15  OEC 


2,1970  SKIPPER 


087  PAGE  1020 


L INTERPRETER  USER'S  PAGE  NO.  19  EO  S3 


P0421 

THE 

FOLLOWING 

INSTRUCTIONS 

AP  E 

PROVIDED 

FOR  STORING  OPERANDS 

IN  THE  PUSHDOWN  LIST: 

D HA  9 

1 

PilCU 

pi  Kwnn  uim 

A MD  MI  . 

I fiAH 

r v Uff-  c.  _/ 

1 • 

r I Jo1! 

r 'Jon  U J '/v*N 

LL  rt  l J • 

P 0424 

2. 

POOL 

pushdown 

AND  DOUBLE  PRECISION  LOAD. 

R 04  2 r- 

3. 

PDVL 

PUSHDOWN 

AND  VECTOR  LOAD. 

042b 

6523 

0 0006 

1 

P DDL 

EXTEND 

042  7 

REF 

33 

LAST 

101  9 

6 5 24 

5 0114 

1 

INDEX 

ACDKWD 

LOAD  MP AC , +1 , PUSHING  THE  FORMER 

042  8 

6525 

3 0001 

0 

DCA 

0 

CONTENTS  DOWN. 

042° 

REF 

378 

LAST 

1019 

65  24 

52  155 

1 

DXCH 

MPAC 

0430 

t Ep 

12 

LAST 

1 ( ’ ' 

65  27 

50  166 

0 

INDEX 

PUS  HI  DC 

04^  1 

6 6 30 

52  6 p 1 

1 

DXCH 

A 

1 

u 

043  2 

REF 

20 

LAST 

1017 

653  1 

50  163 

0 

INDEX 

MGDE 

ADVANCE  THE  PUSHDOWN  POINTER  APPRO- 

0433 

REF 

3 

LAST 

100,8  . 

6532 

3 6244 

0 

CAF 

N0.WD5 

PRIATELY. 

0^34 

K E F 

1 3 

LAST 

1020 

6533 

26  It,  6 

1 

ADS 

PUSHLOC 

0435 

R FF 

2 1 

1 AST 

10?0 

6 6 34 

10  1 6 3 

rrc 

MODE 

I 

v)  v O 

0436 

RFF 

1 

6535 

l 6552 

1 

TCF 

ENDTPUSH 

0437 

REF 

1 

6536 

1 6550 

0 

TCP 

ENDDPUSH 

043P 

f-  EF 

22 

LAST 

102  0 

6537 

54  16  3 

1 

TS 

NODE 

NOW  DP. 

0439 

REF 

379 

L AST 

1020 

6540 

54  156 

1 

ENDVPUSH 

TS 

MPAC  +2 

0440 

REF 

3 80 

LAST 

loin 

‘•441 

52  160 

1 

DXCH 

MPAC  +3 

PUSH  DOWN  THE  REST  OF  THE  VECTOR  HERE. 

0441 

REF 

14 

LAST 

1020 

6542 

50  166 

0 

INDEX 

PISHLOC 

0442 

6 54  3 

51 ' 775 

0 

DXCH 

0 -4 

0443 

R E F 

38  1 

LAST 

1 12  0 

6544 

52  162 

0 

DXCH 

MPAC  +5 

0444 

7EF 

16 

LAST 

1020 

654  5 

64  166 

0 

INDEX 

PLSHLOC 

044  s; 

6 56  6 

51  '7  77 

1 

DXCH 

n _ 9 

1 

U L 

044  6 

P EF 

5 

LAST 

1015 

6547 

1 6061 

1 

TCF 

DANZIG 

044  7 

F:  EF 

3 S 2 

LAST 

102  0 

6550 

54  156 

1 

ENDD  PUSH 

TS 

MPAC  +2 

SET  MPAC  +2  TO  ZFRO  AND  EXIT  ON  DP. 

0448 

REF 

6 

LAST 

1020 

655  1 

1 60  61 

1 

TCF 

DANZIG 

0449 

REF 

23 

LAST 

1020 

6552 

54  163 

1 

ENDTPUSH 

TS 

MODE 

0450 

REF 

383 

LAST 

1020 

6553 

56  1 *fc 

0 

XCH 

MPAC  +2 

ON  tripie,  SET  MPAC  +2  TO  ZERO,  PUSHING 

0451 

P EF 

16 

LAST 

102C 

6554 

50  166 

0 

+ 2 

INDEX 

PUSHLOC 

DOWN  THE  OLD  CONTENTS 

0452 

655  5 

53  » 777 

0 

TS 

0 -1 

045  3 

REF 

7 

LAS’" 

102  0 

6 556 

1 6061 

1 

TCF 

DANZ  IG 

GAP  : 


L 

P0454 

045  5 

0456 

0457 

045  8 
0450 

046  0 

04  61 
0462 
0A63 

0464 

0465 

0466 

§4*7 

0468 

0460 

0470 

04  71 

0472 

0473 

0474 

0475 
04  76 
0477 

047  8 

0479 

0480 

048  1 

049  2 

0483 

0484 
046  5 

0486 

0487 

R0488 

0489 
04^0 
0491 
049  2 
0493 


ASSEMBLE  REVISION  003  OF  AGO  PROGRAM  API 1R0PE  BY  EYLES 
INTERPPET  ER 


PDVL  - PUSHDOWN  AND  VECTOR  LOAD. 


REF  34  LAST  1020 

REF  384  LAST  1020 
REF  17  LAST  1020 


6557 

6560 
656  1 

6 56  2 

0 0006 

5 ( 116 
3 0 001 
52  1 55 

1 PDVL 

1 

0 

1 

extend 

INDFX 

DCA 

DXCH 

A DDR  WD 

0 

MPAC 

6563 

50  166 

0 

INDEX 

PLSHLOC 

6564 

52  001 

1 

DXCH 

0 

KEF  24  LAST  102C  6565  50  163  0 INDEX  MODE 

REF  4 LAST  1020  656 6 3 f 2 44  0 CAF  NO.WDS 

RFF  IP  LAST  1021  -6567  26  166  1 ADS  PUSH! PC 


REF  25  LAST  1021  6570  10 

REF  1 6571  1 

PFF  1 6572  1 


163 

1 

CCS 

MODE 

66  10 

1 

TCF 

T PDVL 

6511 

0 

TCF 

ENDVLOAD 

6573 

REF  35  LAST  1021  6574 

6575 

REF  365  LAST  1021  6576 

■EF  19  LAST  1021  6577 

6600 


0 0006 

1 VPDVI 

EXTEND 

5 0116 

1 

INDEX 

A CDF  WO 

3 0003 

1 

DCA 

2 

5 2 1 60 

1 

QXCH 

MPAC  +3 

50  1 66 

0 

INDEX 

PUSHLOC 

51*775 

0 

DXCH 

0 -4 

6601 

0 0006 

1 

REF 

36 

LAST 

10  21 

6602 

5 0116 

1 

6603 

3 0005 

1 

PFF 

386 

LAST 

1021 

f 6 04 

52  162 

0 

REF 

20 

LAST 

102  1 

66  0 5 

50  166 

0 

66  0 6 

51 • 777 

1 

EXTEND 

INDEX  AODFWD 
DCA  4 
DXCH  MPAC  +5 
INOiX  PLSHLCC 
DXCH  0 -2 


REF 

8 

LAST 

1020 

66C7 

1 6061 

1 

TCF 

DANZIG 

66  1 0 

0 0005 

1 

TPDVl 

EXTEND 

REF 

37 

LAST 

loll 

-611 

5 0 1 1 

1 

INDEX 

ADD- WD 

6612 

3 0003 

1 

DCA 

2 

REF 

387 

LAST 

1021 

6613 

5 2 160 

1 

DXCH 

MPAC  +3 

OFF 

388 

LAST 

1021 

6614 

3 0156 

0 

CA 

MPAC  +2 

REF 

21 

LAST 

1021 

56  15 

50  166 

0 

INDEX 

PUSHLOC 

.-616 

53*777 

0 

TS 

0 -1 

REF 

2 

LAST 

1021 

4617 

1 6515 

1 

TCF 

ENOVl OAD 

SSP 

( STOP  E 

SINGLE  PP EC  I SION  ) 

IS  EXECUTED 

i HERE. 

REF 

18 

LAST 

1014 

6620 

24  164 

1 

SSP 

INCR 

LOC 

REF 

19 

LAST 

1021 

662  1 

50  164 

1 

T NOFX 

LOG 

66  2 2 

3 CCOO 

1 

CA 

0 

F EF 

38 

LAST 

1C2  1 

6623 

5 C lift 

1 

STORE  1 

INDEX 

ADDRWD 

6624 

54  000 

0 

TS 

0 

3:15  DEC 


2,1970  SKIPPER 


087  PAGE  1021 


USEP*  S F AGE  NO.  20  EO  S3 


RELOAD  MP AC  AND  PUSH  DOWN  ITS  CONSENTS. 


ADVANCE  THE  PUSHDOWN  POINTER. 

TEST  PAST  MODE. 

JUST  t CAD  LAST  FOUR  REGISTERS  CN  DP. 
PUSHDOWN  AND  RE-LOAD  LAST  TWO  COMPONENTS 


ON  TP,  WE  MUST  LOAD  THE  Y COMPONENT 
BEFORE  STORING  MPAC  +2  INCASE  THI S IS  A 
PUSHUP. 


I N DP  . 


+ 6 


PTCK  UP  THE  WORD  FOLLOWING  THE  GIVEN 
ADDRESS  AND  STORE  IT  AT  X. 

SOME  INDEX  AND  MISCELLANEOUS  OPS  END 
HERE. 


GAP:  ASSEMBLE.  REVISION  001  Gg  AGO  PROGRAM  AP11R0PE  BY  EYLhS 


3:15  DEC 


08? 


PAGE  1022 


L 

0494 


INTERPRETER 

REF  9 LAST  1021  E625  1 6061  1 TCP  DANZIG 


. 2 


USER  ' 


,1970  SKIPPER  . 
S PAGE  NO.  21 


EO  S3 


SAP  : 

L 

P 049  5 

R 0496 

R 0498 

q n&o  o 

R 0500 

R0501 

R 0502 

R0503 

R0504 

0505 

0506 

0507 

0508 

0509 

0510 

0511 

0512 

0513 

051* 

051  K 

0516 

0517 

0518 

0519 

0520 

0521 

0522 

052  3 

0524 

052  5 

0526 

0527 

0528 

0529 

053  0 

0531 

0532 

0533 

0536 

0535 

0536 

0537 

0538 


ASSEMBLE  -:EVIS2  >N  001  OF  AGC  PROGRAM  AP11R0PE  BY  EYLES 


2,1970  SKIPPER 


087 


PAGE  1023 


3=15  DEC. 


INTERPRETER  USER'S 

SEQUENCE  CHANGING  AND  SUBROUTINE  CALLING  OPTIONS. 

THE  FOLLOWING  OPERATIONS  ARE  AVAILABLE  FOR  SEQUENCING  CHANGING,  BRANCHING, 


PAGE  NO.  22  EO  S3 


ANO  CALLING  SUBROUTINES: 


1 . GOTO 

2.  CALL 

3.  C GOTO 

4.  CCALL 

7.  B PL 

8.  BZE 

9.  BMN 


GO  TO. 

CALL  SUBROUTINE  SETTING  QPRET. 
COMPUTED  GO  TO. 

COMPUTED  CAL  I . 

BRANCH  IF  MP AC  POSITIVE  OR  ZERO. 
BRANCH  IF  MP AC  ZERO. 

BRANCH  IF  "PAC  NEGATIVE  NON- ZERO. 


REF 

20 

LAST 

1021 

REF 

21 

LAST 

1023 

!'  EF 

39 

LAST 

lr  21 

RFF 

1 

(AST 

1 01  /• 

L 

REF 

17 

LAST 

1006 

REF 

323 

LAST 

1016 

R EF 

7 

LAST 

O' 

O 

O 

REF 

5 

LAST 

1014 

R EF 

2 

LAST 

1010 

REF 

3 

LAST 

1023 

REF 

22 

LAST 

1023 

REF 

44 

LAST 

1 0 1 r 

REF 

10 

LAST 

939 

REF 

8 

LAST 

1023 

REF 

3 

LAST 

1006 

REF 

1 

REF 

6 

(AST 

1023 

REF 

2 7 

LAST 

1 ! ! 

REF 

9 

LAST 

1023 

REF 

17 

LAST 

1023 

REF 

1 8 

LAST 

1 0?  3 

REF 

2 

LAST- 

1006 

RFF 

2 3 

LAST 

1023 

" FF 

22  3 

LAS  T 

1 

REF 

10 

LAST 

10  2 3 

REF 

2 

LAST 

100  5 

REF 

324 

LAST 

1 0 2 3 

REF 

1 1 

LAST 

1023 

REF 

1 

6626  24  164  1 

6627  50  164  1 

663  C )G0  1 

■-631  50  llo  1 

'S3 2 6 0000  1 

3 3 5400  1 

6634  7 5012  0 

6635  50  000  1 

6636  3 2000  0 

6637  54  117  1 

6640  3 0165  0 

6641  7 4350  1 

6642  6 4350  0 

6643  6 0164  1 

6644  50  120  1 

6645  54  052  1 

6646  3 0117  0 

6647  7 7742  0 

66 5 0 0 00  06  1 

6651  1 6662  1 

6652  3 0165  0 

46  5 3 54  006  0 

6654  3 0117  0 

6655  54  004  1 

6656  7 5012  0 

665?  6 4741  1 

6660  c4  164  0 
4fc6l  1 6042  0 

E 3 , 1400 

' ' 2 3(1170 

6663  6 6251  1 

6664  10  000  0 

6665  3 0117  0 

S6  66  1 6675  1 


CCALL 


CALL 


GOTO 

+ 1 


+ 4 


G 0 T 0 E S 


I NCR  LOC  MAINTAIN  LOC  FOR  QPRET  COMPUTATION. 

INDEX  LOC 

CAF  0 GET  BASE  ADDRESS  OF  CADR  LIST. 

INDEX  ADDfWD 

AD  0 ADD  INCREMENT. 

F BANK  C£LECT  DESIRED  CADP. 

MASK  LCW10 

INDEX  A 

CAF  10000 

TS  PCLISH 

CA  BANKSET 

MASK  BANK  MASK 

AD  BANKMASK 

AD  LCC 

INDEX  FIXLOC 
TS  QPRET 

CA  PCLISH 

MASK  HIGH4 

EXTEND 

BZF  GCTOERS 
CA  BANKSET 

TS  8 BANK 

CA  PCLISH 

TS  F BANK 

MASK  LOW  10 

AD  2K 

TS  LOC 

TCP  I NT P RET  +3 


EBAN  l<= 

1400 

SO  YUL  DOESN'T  CUSS  THE 

"CA  1400" 

BELOW. 

CA 

POLISH 

THE  GIVEN  ADDRESS  IS  IN 

ERASABLE 

- SEE 

AD 

-ENDVAC 

IF  RELATIVE  TO  THE  WORK 

AREA. 

CCS 

A 

C.  A 

POLISH 

GENERAL  ERASABLE. 

TCP 

GOTOGE 

BASIC  BRANCHING  SEQUENCE. 


SEE  IF  ADDRESS  POINTS  TO  FIXED  OF  ERAS. 
SET  EBANK  PART  OF  BBANK.  NEXT,  SET  UP 
FRANK.  THE  COMBINATION  IS  PICKED  UP  f> 
PUT  INTO  BANKSET  AT  INTPRET  +2. 


FOR  ANY  OF  THE  CALL  OPTIONS,  MAKE  UP  THE 
ADDRESS  OF  THE  NEXT  OP-COOE  PAIR/STORE 
CODE  ANO  LEAVE  IT  IN  QPRET.  NOTE  THAT 
BANKMASK  = - (2000  - 1 ) . 


GAP  : 


0539 

0540 

0541 
054? 

0543 

0544 

054  c 
0546 
054? 
0548 
05^o 

0550 

0551 

0552 
056  3 
055* 

0555 

0556 

055  7 
0558 

055  ° 
0540 

0551 

0562 

056  3 
0564 
056c 
0566 


ASSEMBLE  REVISION  001  -OF  AGO  PROGRAM  APUROPE  BY  EYLES 


INT 

ER  pi- 

e r Eft 

PFF 

45 

LAST 

1023 

666  7 

3 

0120 

PEF 

12 

LAST 

1023 

6670 

6 

01  17 

REF 

325 

LAST 

102  3 

667  1 

50 

000 

667  2 

3 

000  0 

RFF 

13 

LAST 

1024 

46  7 3 

54 

117 

PFF 

l 

6674 

1 

6647 

CA 

AD 

INDEX 

CA 

TS 

TCP 


REF 

60 

LAST 

1016 

REF 

13 

LAST 

1016 

REF 

326 

LAST 

1024 

REF 

14 

LAST 

1 0 7 /■ 

REF 

2 

LAST 

102  4 

6675 

54  003 

0 GOTOGE 

TS 

to  6 7 6 

7 4357 

0 

MASK 

66  77 

50  000 

1 

INDEX 

67  00 

3 140C 

1 

CA 

6701 

5 4 117 

1 

TS 

6702 

1 6647 

0 

TCP 

REF 

2 4 

LAST 

1023 

RET 

40 

LAST 

1023 

REF 

18 

LAST 

1023 

REF 

19 

LAST 

1023 

REF 

32  7 

LAST 

102  4 

REF 

15 

LAST 

1024 

RFF 

3 

LAST 

1024 

670  3 

5 o 164 

1 CGOTQ 

6704 

3 0001 

0 

fc705 

50  lit 

1 

6706 

6 0000 

1 

67C7 

54  004 

1 

6710 

7 5012 

0 

6711 

50  000 

1 

6 712 

3 2030 

0 

*713 

5 4 117 

l 

.->714 

1 6 647 

0 

INDEX 

CA 

INDEX 

AD 

TS 

MASK 

INDEX 

CA 

TS 

TCP 


REF 

7 

LAST 

1023 

REF 

15 

LAST 

1024 

RFF 

25 

LAST 

1 3 2 4 

REF 

16 

LAST 

10?  4 

REF 

4 

LAST 

1024 

6715 

3 C 1 65 

0 

SWBI-ANCH  CA 

6 716 

54  004 

1 

TS 

6-717 

50  164 

1 

INDEX 

6 720 

3 I 001 

0 

CA 

-'-7  21 

54  117 

1 

TS 

6722 

1 6647 

0 

TCF 

3:15  DEC 


2,1970 


SKIPPER  .087  PAGE  1024 


USER'S  PAGE  NO.  23  E3  S3 

FIXLDC 

POLISH 

WORK  AREA. 

A 

0 

POLISH 

US F THE  GIVFN  ADDRESS  AS  THE  ADDRESS  OF 

THE  BRANCH  ADDRESS. 

GOTO  +1 

ALLOWS  ARBITRARY  INDIRECTNESS  LEVELS. 

EBANK 

LQW8 

A 

1 400 

POLISH 

GOTO  +1 

USE  THE  GIVEN  ADDRESS  AS  THE  ADDRESS  OF 

THF  BRANCH  ADDRESS. 

LOC 

1 

ADDRWD 

0 

COMPUTED  GO  TO.  PICK  UP  ADDRESS  OF  CADR 

LIST. 

ADD  MODIFIER. 

F BANK 

L OW 1 0 

A 

IOC  DO 

POL  I SH 

SELECT  GOTO  ADDRESS. 

GOTO  +1 

WITH  ADDRESS  IN  A. 

bankset 

F BANK 

LCC 

1 

POL  ISH 

GOTO  +1 

SWITCH  INSTRUCTIONS  WHICH  ELECT  TO 

BRANCH  COME  HERE  TO  DO  SO. 

i 


GAP:  ASSEMBLE  REVISION  001  OF  AGC  PROGRAM  AP11R0PE  BY  EYLES  3:15  DEC.  2,1970  SKIPPER 

L INTERPRETER  USER'S  PAGE  NO.  24 

P 0567  TRIPLF  PRECISION  BRANCHING  ROUTINE.  IF  CALLING  TC  IS  AT  L,  RETURN  IS  AS  FOLLOWS: 


.087  PAGE  1025 
E3  S3 


R 056  9 L + l IF  M P A C IS  GREATER  THAN  ZERO. 

R 0570  L + 2 IF  MPAC  IS  EQUAL  TO  *0  OR  -0. 

R 057 1 L+3  IF  MPAC  Ir  LESS  THAN  ZERO. 


0572 

REF 

389 

LAST 

1021 

6723 

10 

154 

0 

057  3 

REF 

250 

LAST 

1017 

6724 

0 

0002 

0 

0574 

6725 

L 

6727 

1 

0576 

REF 

1 

1 672' 

1 

t 74  i 

1 

BRANCH  CCS  MPAC 

TC  Q 

TCP  +2  ON  ZERO 

TC  F NEG 


0576 
05  77 

0578 

0579 


REF 

390 

LAST 

102  5 

6727 

10 

155 

1 

REF 

251 

LAST 

1025 

6730 

0 

G(  02 

0 

6731 

6732 

1 

1 

( 733 
6741 

1 

1 

RFF 

2 

LAST 

1025 

CCS  MPAC  +1 

TC  Q 

TCP  +2 

TC  F NEG 


05  80 

REF 

30  1 

LAST 

102  6 

05  31 
0582 

REF 

2 52 

LAST 

1025 

05  33 

REF 

3 

LAST 

102  5 

6737  10  156  1 

6734  0 0002  0 

6735  1 6737  0 

67  36  1 (.741  1 


CCS  MPAC  +2 

TC  Q 

TC  F + 2 

TCP  NEG 


058''  REF  2*3  LAP"  1026  6737  50  002  0 Q+l 

OSS*  6740  0 COO  1 0 


INDEX  Q 
TC  1 


0586  REF  254  LAST  1025 

0587 


6741  50  002  0 MEG 

6742  0 0002  0 


INDEX  Q 
TC  2 


IF  FIRST  NON-ZERO  REGISTER  WAS  NFGATTVE. 


0538  REF  •'<  LAST  1025  674  1 


Q+2 


MEG 


R0589  IT-  ACE  (3)  REFERS  TC  "EXIT”. 


0590 

REF 

8 

LAST 

1024 

6743 

3 0165 

0 EXIT 

CA 

BANK  SET 

RESTORE  USER' 

'S  BANK  SETTING,  AND  LEAVE 

0591 

REF 

28 

LAST 

102  3 

6 146 

54  00  6 

0 

TS 

BBANK 

INTERPP FTIVE 

MODE  . 

0592 

REF 

26 

LAST 

1024 

674  6 

50  164 

1 

INDEX 

LOC 

0503 

6746 

0 cool 

0 

TC 

1 

GAP:  ASSEMBLE  REVISION  001  OF  AGC  PROGRAM  AP11R0PE  BY  EYLES 

L INTERPRETER 


3:15  DEC.  2,1970  SKIPPER  .087  PAGE  1026 
USER’S  PAGE  NO.  25  E3  S3 


« 


P 0594  SECTION  3 - AD  D/SUBTRACT  PACKAGE. 

R 059  5 THE  E 'Ll  GWI NO,-  OPE-  AT  I ,;\'S  A E PROVIDED]  FOR  ADDING  IT  AND  SUBTRACTING  FROM  THE  MULTI-PURPOSE  ACCUMULATOR 

R 05  77  •'•'PAC  : 


R 0598 

1 . 

DAD 

DOUBLE 

PRECISION  ADD. 

R 0599 

2 . 

DSU 

DOUBLE 

PRECISION  SUBTRACT. 

R 0600 

3. 

BDSU 

DOUBLE 

PRECISION  SUBTRACT  FROM. 

R 0601 

4 . 

TAD 

TRIPLE 

PRECISION  ADO. 

R 060  2 

F 

V A 0 

VECTOR 

ADD . 

• 

R 0603 

6. 

VSU 

VECTOR 

SUBTRACT. 

Ft 0604 

7. 

BVSU 

VECTOR 

SUBTRACT  FROM. 

ROE  05 

THE  INTER  PR 

ETTVE  i Vl  > H.r  \ 

INDICATOR  'V 

FIND  S SET  :v  -ZE  'O  IE  OVERFLOW  OCCURS  IN  ANY  OF  THE  ABOVE. 

0607 

RFF 

35 

LAST 

1002 

674  7 

3 4735 

1 

VSU 

CAF 

BIT15 

CHANGES  0 TO  DCS. 

0608 

6750 

1 6 752 

0 

TCF 

+ 2 

0609 

P.EF 

o 

LAST 

a 3 1 

675  1 

3 4355 

0 

VAD 

CAF 

PRI 030 

CHANGES  0 TO  DC A. 

Of  10 

RFF 

41 

LAST 

1024 

675  2 

26  116 

0 

ADS 

ADDRWD 

061  1 

6753 

0 0006 

1 

EXTEND 

0612 

REF 

42 

LAST 

1026 

6754 

5 C 1 1 6 

1 

INDEX 

AQDRWD 

0613 

REF 

2 

LAST 

381 

675  5 

00  003 

1 

READ 

HISCALAR 

DC  A 2 OR  DCS  2 

0614 

REF 

392 

LAST 

1025 

6756 

20  160 

1 

DAS 

MP AC  +3 

061  5 

6757 

0 0006 

1 

FX TEND 

CHECK  OVERFLOW. 

06  1 s 

676  0 

1 6762 

0 

BZF 

+ 2 

Of  l 7 

REF 

1 

676  1 

0 7014 

g 

TO 

n \i  r i > c i u v 

1 J V L M l.  W T 

0618 

6762 

0 0006 

1 

EXTEND 

06  19 

, REF 

43 

LAST 

1026 

676  3 

5 0116 

1 

INDEX 

a n n r ui  n 

74  17  U I VV  LI 

0620 

REF 

2 

LAST 

21  2 

6764 

00  00  5 

1 

READ 

CHANS 

DC  A 4 OR  DCS  4 

0621 

REF 

393 

1 AST 

1026 

6 765 

20  162 

0 

DAS 

M P AC  +5 

0622 

676  6 

0 0006 

1 

EX  TEND 

0623 

6767 

1 6771 

1 

BZF 

+ 2 

0624 

REF 

1 

6770 

0 7011 

0 

TO 

OVEkFLWZ 

062  5 

6 771 

0 0006 

1 

EXTEND 

06  2 6 

REF 

44 

L A‘:T 

1026 

4 7 72 

5 0116 

L 

INDEX 

ADDRWD 

0627 

P FF 

15 

LAST 

743 

677  3 

00  001 

0 

READ 

LCHAN 

DC  A C OR  DCS  0 

062  8 

REF 

1 

6774 

1 7000 

1 

TCF 

ENDVXV 

0629 

6775 

0 0006 

1 

DAD 

EXTEND 

0630 

REF 

45 

(AST 

1026 

6776 

5 0116 

1 

INDEX 

ADDRWD 

06  31 

6777 

3 0001 

0 

DC  A 

0 

063  2 

off 

394 

LAST 

1026 

7000 

20  155 

1 

E NOV  X V 

DAS 

MPAC 

VXV  FINISHES  HERE. 

0633 

7001 

0 0006 

1 

EXTEND 

0634 

REF 

10 

LAST 

1022 

7002 

1 6061 

1 

BZF 

DANZIG 

. AP : 

ASSEMBLE  REVISION  001  OF 

AGC  PROGRAM  AP11R0PE  BY 

E YLES 

3:  15  DEC.  2,1970 

SKIPPED 

.087  PAGE 

interpreter 

USER'S  PAGE 

NO.  26 

E 3 S3 

063  5 

REF  1 

7003 

0 7017  0 SETOVF 

TC 

OVERFLOW 

0636 

REF  11  LAST  10?6 

7004 

1 6061  1 

TCF 

DANZIG 

GAP:  ASSEMBLE  FEVJ.SIDN  001  CF  AGC  PR  uGS  AM  API  1RCPE  BY  EYLES 


L INTERPRETER 


0637 

0638 

REF 

46 

LAST 

1026 

70C  5 

7006 

7007 

0 0006 
5 0116 

Zj.  v ! ij  y 

1 

1 

uro  * 

0640 

P EF 

2 

LAST 

1026 

7010 

1 7000 

1 

0641 

t tc 

17° 

1 A ST 

1 OOF 

7 0 1 1 

5 1 001 

0642 

P.EF 

19 

LAST 

858 

7012 

3 4756 

1 

0643 

7013 

1 7016 

0 

0646 

REF 

1-  0 

LAST 

If  23 

70 1 9 

54  001 

1 

0645 

REF 

30 

LAST 

980 

70  lc. 

3 62  45 

1 

0646 

RFF 

18  1 

LAST 

1028 

7016 

56  001 

0 

064  7 

REF 

328 

LAST 

1024 

7017 

50  000 

1 

0648 

REF 

2 

LAST 

923 

7020 

4 4734 

1 

0649 

FEF 

82 

LAST 

890 

7021 

54  130 

1 

0650 

7022 

0 0006 

1 

065  1 

REF 

3 29 

LAST 

1028 

702  3 

3 4 0 00 

£ 

065? 

REF 

182 

LAST 

1028 

7024 

50  001 

0 

0653 

REF 

395 

LAST 

102  6 

7025 

26  1 55 

1 

06  54 

7 02  6 

54  CG7 

1 

i- 

065  5 

RFF 

13  8 

LAST 

1002 

7 027 

3 4 755 

1 

0656 

REF 

S3 

LAST 

1023 

7030 

6 0130 

0 

065  7 

RFF 

183 

LAST 

1028 

7031 

50  001 

0 

0658 

REF 

396 

LAST 

1028 

7032 

26  154 

0 

065  9 

7033 

54  007 

1 

0660 

REF 

255 

LAST 

1025 

7034 

0 0002 

0 

06  61 

REF 

1 

7035 

1 7152 

1 

066? 

7036 

0 0006 

1 

0663 

REF 

47 

LAST 

1028 

7037 

5 0116 

1 

0664 

7040 

3 0003 

1 

0665 

RFF 

397 

LAST 

1028 

704  1 

52  160 

1 

066  6 

7042 

0 0006 

1 

0667 

704  3 

4 0001 

1 

0668 

REF 

398 

LAST 

1028 

7044 

20  160 

1 

066  9 

704  5 

0 0006 

1 

0670 

7046 

1 7050 

1 

0671 

REF 

2 

LAST 

7 HA  7 

r\  7 n 1 L. 

n 

1 J c. 

/ U:  1 1 

w 

067? 

7050 

0 0006 

1 

0673 

RFF 

48 

LAST 

102  8 

705  1 

5 0116 

1 

0674 

7052 

3 (005 

1 

0675 

REF 

399 

LAST 

1023 

705  3 

52  162 

0 

0676 

7054 

0 0006 

1 

0677 

7056 

4 00 Cl 

1 

0678 

REF 

400 

LAST 

1028 

7056 

20  162 

0 

0679 

7057 

0 0006 

1 

0680 

7060 

1 7062 

0 

06  81 

REF 

2 

LAST 

1026 

706  1 

0 7011 

0 

DSU  EXTEND 

INDEX 
DCS 
TCP 

OVER  FEW?  TS 
CAF 
TCF 

OVER  Ft  WY  TS 
CAF 
XCH 

0 V E I FLOW  TNDEX 

cs 

TS 

EXTEND 

AUG 

INDEX 

ADS 

TS 

CAF 

AD 

INDEX 

ADS 

TS 

TC 

TCF 

BVSU  EXTEND 

INDEX 
DC  A 
DXCH 
EXT  END 
DC  C M 
DAS 

EXTEND 

BZF 

TC 

EXTEND 

INDEX 

DC  A 

DXCH 

EXTEND 

DC  CM 

DAS 

EXTEND 

BZF 

TC 


A DDRWD 
C 

FNDVXV 

L 

FIVE 
+ 3 

L 

THREE 

L 

A 

LIMITS 

BUF 

A 

L 

MPAC  +1 
7 

ZERO 

BUF 

L 

MP  AC 

7 

Q 

SET0VF2 


AODRWD 

2 

MP AC  +3 


MPAC  +3 
+ 2 

OVERBLWY 


ADDRWD 

4 

MPAC  +5 


MPAC  +5 

+ 2 

0VERFLW7 
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ENTRY  FOP  THIRD  COMPONENT. 

ENT - v FOR  SECOND  COMPONENT. 

ENTRY  FOR  1ST  CO^P  OR  DP  ( L = 0 ) . 

PICK  UP  POSMAX  OR  NFGMAX . 

FORCE  OVERFLOW. 


NO  OVERFLOW  EXIT. 

SET  0 V F I NO  AMD  EXIT. 


gap  : 
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L INTERPRETER 


0682 

7062 

0 

0006 

1 BDSU 

extend 

0683 

REF 

99 

LAST 

1028 

7063 

5 

0116 

1 

INDEX 

ADORED 

0689 

7069 

3 

0001 

0 

DC  A 

0 

0685 

REE 

901 

LAST 

1028 

7065 

52 

: 155 

1 

DXCH 

MP  AC 

0686 

7066 

0 

0006 

1 

EXTEND 

0687 
068  3 

706  7 
7070 

9 

1 

0001 

7000 

1 

1 

nr  r m 

REF 

3 

LAST 

1028 

TCF 

E NOV  X V 

3: 15  DEC. 

USER 


,1970  SKIPPER  .087  PAGE. 1029 
S PAGE  NO.  28  E3  S3 


SAP  : 


ASSEMBLE  REVISION  001  OF  A SC  PROGRAM  AP11RUPF  BY  EYLEg 


L T ' T ' P ET  f ' 

P 0689  TRIPLE  PRECISION  ADO  ROUTINE. 


0690 

707) 

0 0006 

1 TAD 

EXTEND 

0691 

REF 

50 

LAST 

102  9 

7072 

5 0 116 

1 

INDEX 

AOURWD 

0692 

7073 

3 CO 02 

0 

OCA 

1 

069? 

p pp 

4 o 2 

LAST 

1029 

7074 

20  156 

DAS 

f/i  p AC  +1 

06  9 A 

REF 

51 

LAST 

1030 

7075 

50  1 L : 

1 

INDEX 

AQDRWD 

0695 

7076 

6 0000 

1 

AD 

0 

0696 

REF 

403 

LAST 

1030 

707  7 

6 0154 

1 

AD 

MPAC 

0697 

REF 

404 

LAST 

1030 

7100 

54  154 

0 

TS 

MPAC 

069° 

REF 

12 

LAST 

102  7 

7101 

1 60  61 

1 

TCF 

DANZIG 

069C 

REF 

1 

7102 

1 7003 

1 

TCF 

SETOVF 

3:  15  DEC 


2,1970  SKIPPER  .087  PAGE  1030 


USER'S  PAGE  NO.  29 


E 3 S3 


..z 

ADD  MINOR  PAFTS  FIRST. 


SET  OVFIND  IF  SUCH  OCCURS. 


GAP:  ASSEMBLE  Hi  v 31  OF  A6C  PROGRAM  AP11ROPF  BY  FVLES 


3:15  DEC 


2,1970 


SKIPPER 


087  PAGE  1031 


L INTERPRETER  USER'S  PAGE  NO.  30  E3  S3 

P 0700  ARITHMETIC  SUBROUTINES  REQUIRED  IN  FIXED-FIXED. 

R 070 1 1.  DMPSUB  DOUBLE  PRECISION  MULTIPLY.  MULTIPLY  THE  CONTENTS  OF  MpAC»  + l BY  THE  DP  WORD  WHOSE  ADDRESS 

R 070  3 IS  IN  ADDRWD  AND  LEAVE  A TRIPLE  PRECISION  RESULT  IN  MPAC. 

R 0705  2.  < DUNDSUB  ROUND  THF  TPIPLE  PRFCISCN  CONTENTS  °F  MPAC  TO  DOUBLF  PRECISION. 

R 0707  3.  D^T  SUB  TAKE  1 HE  DOT  PRODUCT  OF  THE  VECTOR  IN  MPAC  AND  THE  VECTnp  WHOSE  ADDRESS  IS  IT  ADDRWD 

R 0709  AND  LEAVE  THE  TRIPLE  PRECISION  RESULT  IN  MPAC. 

R 07 1 P 6.  POLY  ISING  THE  CONTENTS  OF  MPAC  AS  A DP  ARGUMENT,  EVALUATE  THE  POLYNOMIAL  WHOSE  DEGREE  AND 

R 07 1 2 COEFFICIENTS  IMMEDIATELY  FOLLOW  THE  TC  FGLY  INSTRUCTION  (SEE  ROUTINE  FOR  DETAILS.) 


0714 

REF  256 

LAST 

1 02p 

7103 

50  002 

0 

DMP 

INDEX 

0 

0715 

7104 

3 COCO 

1 

CAF 

0 

0716 

REF  257 

LAST 

1031 

7105 

24  002 

0 

I NCR 

Q 

07 1 7 

kt  F 52 

LAST 

1030 

7:106 

54  116 

0 

-1 

TS 

ACDrWD 

C71R 

REF  53 

LAST 

1031 

7107 

50  116 

1 

DMPSUB 

INDEX 

ADDRWD 

7110 

3 0001 

n 

r a 

u/p 

u 

0720 

REF  405 

LAST 

103  0 

711  1 

54  156 

1 

TS 

MPAC  +2 

0721 

REF  189 

LAST 

1028 

7112 

3 4755 

1 

CAF 

ZERO 

0722 

REF  406 

LAST 

103  1 

7113 

56  155 

0 

XCH 

MPAC  +1 

0723 

REF  9 

LAST 

999 

7114 

54  135 

1 

TS 

MPTEMP 

0724 

7115 

0 CC  06 

1 

EXTEND 

07  2C 

REF  407 

L AST 

1031 

7116 

7 0156 

1 

MP 

MPAC  +2 

0726 

REF  408 

LAST 

103  1 

7117 

56  156 

0 

XCH 

MPAC  +2 

0727 

7120 

0 0006 

1 

EXTEND 

072  8 

REF  405 

LAST 

1031 

7121 

7 Cl  54 

0 

MP 

MPAC 

0729 

REF  410 

L AST 

103  1 

7122 

20  J 

1 

DAS 

MPAC  +1 

0730 

REF  54 

LAST 

1031 

7123 

50  116 

1 

INDEX 

ADDRWD 

0731 

7124 

3 0000 

1 

CA 

0 

0732 

p pf  1 | 

1 ART 

l /n  ] 

7 1 ? 9 

C,  4.  1 SJ  cz 

yf  H 

MPTFUD 

I-  O 1 

i.  i 

l 1 C J 

t - 1 JU 

U 

al  n 

i 1 r 1 P < i i 

073  3 

7126 

0 ( 006 

1 

DMP SUS2 

EXTEND 

0734 

REF  11 

LAS! 

1031 

7 127 

7 0135 

1 

MP 

MPTEMP 

0735 

REF  411 

LAST 

103  1 

7130 

2C  1 56 

1 

DAS 

MPAC  +1 

0736 

REF  412 

LAST 

1031 

713  1 

56  154 

1 

XCH 

MPAC 

0737 

7132 

0 0006 

1 

EXTEND 

073  F 

REF  12 

LAST 

1031 

7133 

7 0135 

1 

MP 

MPTEMP 

07  3 r 

IFF  13 

LAST 

1031 

7134 

20  155 

1 

OAS 

MPAC 

074  0 

REF  288 

LAST 

10  31 

7 1 3 5 

0 0002 

0 

TC 

Q 

BASIC  SUBROUTINE  FOR  USE  BY  PINBALL,  ETC 
ADRES  OF  ARGUMENT  FOLLOWS  TC  DM P 


(PROLOGUE  FOR  SETTING  ADDRWO. ) 


GET  MIT1  1R  PAFT  OF  OPERAND  AT  C<  ADDRWD). 

THIS  WORKS  FOR  SQUARING  MPAC  AS  WELL. 

SET  MPAC  +1  TO  ZFRO  SO  WE  CAN  ACCUMULATE 
THE  PARTIAL  PRODUCTS  WITH  DAS 
I NSTRUCT IONS. 

MINOR  OF  M°  4C  X MINOR  OF  C( ADDRWD). 

DISCARD  MINOR  PART  OF  ABOVE  RESULT  AND 
FORM  MAJOF  OF  MPAC  X MINOR  OF  C< ADDRWD). 


GUARANTEED  NO 


OVERFLOW . 


GET  MAJOR  PART  OF  ARGUMENT  AT  Cl ADDRWD). 

SAVE  AND  BRING  OUT  MINOR  OF  MPAC. 

MAJOR  OF  C(  ADDr-WO)  X MINOR  OF  MPAC. 
ACCUMUI  ATE,  SETTING  A TG  NFT  OVERFLOW. 

SETTING  MPAC  TO  0 OP  +- 1 . 

MAJOR  OF  MPAC  X MAJOR  OF  C( ADDPWD). 
GUARANTEED  NC  OVERFLOW. 

49  MCT  = .573  MS.  INCLUDING  RETURN. 


3:15  DEC 


2,1070 
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'0741 

ROUND 

MP AC  TO 

DOUBLE 

PREC ISION, 

, SETTING 

OVFIND 

ON  THE  FARE 

EVENT  OF  OVERFLOW. 

0743 

REF 

190 

LAST 

1031 

7136 

3 47  55 

1 

RCUN&SUB 

CAP 

ZERO 

SET  MPAC  +2=0  FOR  SCALARS 

AND 

CHANGE 

074^ 

F EF 

26 

L AST 

1021 

7 137 

54  1 63 

1 

+ 1 

TS 

MODE 

MODE  TP  OP. 

074-5 

REF 

414 

LAST 

1031 

7140 

56  156 

0 

VROUND 

XCH 

MPAC  +2 

BUT  It  NEEDN*  TAKE  THE  TIME 

FOP 

vectors. 

0746 

7141 

6 0000 

1 

DOUBLE 

0747 

REF 

184 

LAST 

102  8 

7142 

54  001 

1 

TS 

L 

074  8 

REF 

2 59 

L AST 

1031 

714  3 

C 0002 

0 

TC 

0 

0749 

F FF 

415 

1 AST 

1032 

7 1 44 

6 0155 

0 

AD 

MPAC  +1 

ADD  ROUNDING  BIT  IF  MPAC  +2 

WAS 

G°  E AT ER 

07  5 C 

RFF 

416 

1 AST 

103  2 

716-5 

54  186 

1 

TS 

MPAC  +1 

THAN  .5  IN  MAGNITUDE. 

0751 

REF 

260 

LAST 

1032 

7146 

0 0002 

0 

TC 

Q 

075  2 

REF 

417 

LAST 

10  32 

714  7 

6 0154 

1 

AD 

MPAC 

PROPAGATE  INTERFLOW. 

0753 

RFF 

- If 

LAST 

1032 

7150 

56  166 

0 

T S 

MPAC 

0756 

-FF 

26  1 

LAST 

1032 

715  1 

0 CO 02 

0 

TC 

Q 

0755 

REF 

2 

LAST 

813 

7152 

54  121 

1 

SETO VF2 

TS 

0 VF I ND 

(RARE ) . 

0756 

REF 

262 

LAST 

1032 

7153 

0 0002 

0 

TC 

Q 

2” 
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L INTERPRETER  USER'S  PAGE  NO.  32  E3  S3 

P 0757  THF  dot  PRODUCT  SUBFOiJTINE  USUALLY  FORMS  THE  DCT  PRODUCT  OF  THE  VECTOR  IN  MPAC  WITH  A STANDARD  SIX 

R075c  REGISTER  VECTOR  WHOSE  ADD!  ESS  IS  IN  ADDRWD.  IN  THIS  CASE  C(DUTINC)  ARE  SET  TO  2.  VXM,  HOWEVEP,  SETS  C(DOTIMC)  TO 

R 076 1 6 SU  THAT  DOTSUB  DOTS  MPAC  -WITH  A COLUMN  VECTOR  OF  THE  MATRIX  IN  QUESTION  IN  THIS  CASE. 


0767  REF  6/-  lact  9ga  7156  3 >'-752  0 PP.FW3Y  CAF  two  PROLOGUE  TO  SET  DPf'fWC  TO  2. 

0766  ref  LAST  97  7155  54  136  1 TS  DPTINC 


076  6 

0766 

0767 
0763 

REF 

REF 

R F F 

5 

1 

419 

420 

LAST 

L AST 

m 

076° 

REF 

LAST 

1 D C. 

1033 

0770 

REF 

84 

LAST 

1028 

077  1 

REF 

421 

LAST 

1033 

0772 

REF 

85 

L AST 

103  3 

71 5 o 0 0007  1 
7157  22  137  1 

7160  0 7107  0 

7161  52  160  1 

7162  52  155  1 

7163  52  131  0 

7164  3 0156  0 

7165  56  132  0 


DOTSUB  EXTEND 

QXCH  DCTPET  SAVE  RETIJFN. 

TC  DMPSUB  DOT  X COMPONENTS. 

DXCH  MPAC  +3  POSITION  Y COMPONENT  OF  MPAC  FOR 

DXCH  MPAC  MULTIPLICATION  WHILE  SAVING  RESULT 

DXCH  BUF  THREE  WORD  BUFFER,  BUF. 

CA  MPAC  +2 

TS  BUF  +2 


IN 


0773 

RFF 

5 

EAST 

1033 

7166 

3 0136 

0 

0774 

REF 

55 

LAST 

1031 

7167 

26  1 16 

0 

0775 

REF 

2 

LAST 

1033 

7170 

0 7107 

0 

0776 

REF 

42  2 

LAST 

1033 

717  1 

52  156 

1 

0777 

REF 

86 

l AST 

I n3  3 

717  2 

20  132 

0 

0778 

REF 

6 23 

LAST 

1933 

717  3 

a 0154 

1 

0779 

P F F 

8 7 

I AST 

10  33 

? 1 7 A 

6 013  0 

0 

0780 

REF 

88 

LAST 

1033 

7175 

54  130 

1 

0781 

7176 

1 7200 

0 

0782 

RFF 

3 

LAST 

1032 

7177 

54  121 

1 

0783 

REF 

424 

LAST 

193  3 

7200 

5 2 162 

0 

0786 

R FF 

425 

t A ST 

10  3 3 

7 7 01 

9 7 1 c s. 

1 

J C-  1 > - 

L 

0785 

PEF 

6 

LAST 

1033 

7 20  2 

3 0136 

0 

0786 

RFF 

5 6 

LAST 

1033 

720  3 

26  116 

0 

073  7 

REF 

3 

LAST 

1033. 

7204 

1 

0 

07  8 8 

REF 

89 

LAST 

1033 

7205 

5 2 132 

0 

0736 

REF 

426 

LAST 

1033 

7206 

20  156 

1 

0790 

REF 

42  7 

LAST 

1033 

7207 

6 0159 

1 

0791 

REF 

90 

LAST 

1033 

7210 

6 0130 

0 

0792 

REF 

428 

LAST 

1033 

721  1 

54  154 

0 

0793 

REF 

6 

LAST 

1033 

7212 

0 0137 

1 

0794 

RFF 

2 

LAST 

1027 

7213 

0 7017 

0 

079  6 

REF 

7 

LAST 

1033 

72  16 

0 0 13  7 

1 

E 1 3D  0 T 


CA  DOT  INC  ADVANCE  ADDFWD  TO  Y COMPONENT  np 

ADS  ADDRWD  OTHER  ARGUMENT. 

TC  DMPSUB 

DXCH  MPAC  +1  ACCUMULATE  PARTIAL  PRODUCTS. 

DAS  BUF  +1 

AD  MPAC 

AD  BUF 

TS  BUF 

TC  F +2 

TS  OVFINU  IF  OVERFLOW  OCCURS. 

DXCH  MPAC  +5  MULTIPLY  Z COMPONENTS. 

DXCH  MPAC 

CA  DOTINC 

ADS  ADDRWD 

TC  DMPSUB 

DXCH  BUF  +1  LEAVE  FINAL  ACCUMULATION  IN  MPAC. 

DAS  MPAC  +L 

AD  MPAC 

AD  BUF 

TS  MPAC 

TC  DCTFET 

TC  OVERFLOW  ON  OVERFLOW  HERF. 

TC  DOTPET 


A S S t U 8 L E i E VISION  001  Ff-  AGO  PROGRAM  AP11RGPE  BY  EYLtS 


3:  15  OEC 


2, 1970 


SKIPPER.  .087  PAGE  1034 


GAP  : 

L INTERPRETER 

P 0796  DOUBLE  PRECISION  POLYNOMIAL  EVALUATOR 

R 0797  N N-l 

R 0798  THIS  ROUTINE  EVALUATES  A X + A X + 

R 0800  N N-l 


USER  'S  PAGE  NO.  33 


E 3 S3 


+ A X + A LEAVING  THE  DP  RESULT  IN  MPAC  ON  EXIT. 
1 0 


R 080 1 


THE  ROUTINE  HAS  TWO  ENTRIES 


R 08  02 
R 0 B 0 * 


ENTRY  THRU  Ptwi  SEF.5.  THE  COEF  F I C I F -'0  S MAY  BE  EITHER  IN  FIXED  OR  ERASABLE,  THE  CALL  IS  BY 
TC  - IF  AID  THE  RETURN  IS  TO  L.  C(  TC  R.  SERS  M 1 . THE  ENTERING  DATA  OUST  BE  AS  FOLLOWS 


2... 


A 

A 0807 
A 08  08 

A 080° 

A 0810 
A 081  I 

R 08  1 2 

A 08 14 

A 081  5 
A 08  1 8 
A 08 1 7 
A 081R 

A 08  1 - 

0820 

0821 

0822 

0823 

0824 

082  c 
0826 
0827 
082  8 

0829 

0830 

0831 

0832 

0833 
083* 


0835 

08,36 

0837 


A 

L 

MPAC 

SP 

SP 

OP 

LOC-3 

N-l 

X 

ADDRESS  FOR  REFERENCI 
N IS  THE  DEGREE  OF  TH 
ARGUMENT 

NG  COEF 
E DOWER 

TABLE 
SEP  IES 

L0C-2N 

DP 

A (0  ) 

LOG 

• • • 

DP 

AIN) 

2.  ENTRY  thru  poly.  the  call  to  poly  AND  THE  ENTERING  DATA  must  be  as  follows 


MPAC 

DP 

X 

ARGUMENT 

LOC 

TC 

POLY 

LOC+1 

SP 

N-l 

LOC+2 

DP 

A ( 0 ) 

L0C+2M+2 

• t « 

OP 

A ! N ) 

5 ETUP N IS  TO  L0C+2M+4 

7 2 1 5 

0 0 O 0 6 

I 

POWPSERS 

EXTEND 

1 

REF 

1 

7216 

22  141 

0 

QXCH 

POLYRET 

FETURN  ADDRESS 

REF 

17 

LAST 

1024 

7217 

54  117 

1 

TS 

POLISH 

POWER  SERIES  ADDRESS 

REF 

I 

7 > ? 0 

22  14C 

1 

i y r w 

p n 1 V C M T 

m — i t n rni  imtpb 

1 C,  C-  \J 

A U n 

i UL  T ’/I’l  } 

1 J 1 1 U oUUNf  CK 

RFF 

1 

7221 

1 7232 

1 

TC  F 

POLYCOM 

SKIP  SET  IJP  BY  POLY 

PEF 

263 

LAST 

1032 

7222 

50  002 

0 

POLY 

INDEX 

Q 

7223 

3 0000 

1 

CAF 

0 

REF 

2 

LAST 

1034 

7224 

54  140 

0 

TS 

POLYCNT 

N-l  TO  COUNTER 

7225 

6 0000 

1 

DOUBLE 

REF 

264 

LAST 

1034 

7226 

6 CC02 

0 

AD 

Q 

PEF 

13 

LART 

1034 

72.27 

54  117 

1 

TS 

POLISH 

1 ( AIN) )-3  TO  POLISH 

REF 

20 

LAST 

1 <">2  8 

7 230 

6 *756 

1 

AD 

F IVE 

PFF 

2 

LAST 

1034 

723  1 

5*  141 

1 

TS 

POLYP  ET 

STORE  RETUPN  ADDRESS 

REF 

1 

72  3 2 

3 62  73 

1 

POLYCOM 

CAF 

L VBUF 

INCOMING  X WILL  BE  MOVED  TO  VBUF,  SO 

REF 

57 

LAST 

1033 

7233 

54  116 

0 

TS 

A OOF WD 

SET  A DDT  WD  SO  OMPSUB  WILL  MPY  BY  VBUF. 

7234 

0 0006 

1 

EXTEND 

REF 

19 

LAST 

1034 

72  3 5 

5 0117 

0 

INDFX 

POLISH 

7236 

3 0 004 

0 

DC  A 

3 

1" 


1 
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GAP:  ASSEMBLE  REVISION  001  GF  A GC  PROGRAM  API 1R OPE  BY  EYLES 

L INTERPRETER 


3:  15  DEC.  2 ,1970  SKIPPEF 
USER'S  PAGE  NO.  34 


.087  PAGE  1035 
E3  S3 


0838  REF  429  LAST  1033  7237 

0839  REF  35  LAST  1010  7240 

REF  1 7241 

0841  REF  3 LAST  m34  7242 

08^2  "EE  6 5 L AST  1033  7243 

0843  REF  20  LAST  1034  7244 


52  155 
52  123 

1 7245 

1 

0 

1 

DXCH 

OXCH 

TCF 

MPAC 

VBUF 

P0LY2 

54  140 
4 -'•75  2 

0 

1 

POLYLOOP  TS 

C5 

P CL YC  NT 

TWO 

26  117 

1 

ADS 

POL  I SH 

LOAD  AIN)  INTO  MPAC, 

SAVING  X IN  VBUF 

SAVE  DECREMENTED  LOOP  COUNTER 
REGRESS  COEFFICIENT  POINTER 


0844 

0845 

REF 

4 

LAST 

l1  33 

084  6 
0847 

REF 

21 

LAST 

1035 

REF 

430 

LAST 

1035 

084  8 

7245 

0 

7107 

0 P OL Y 2 

TC 

DMPSUB 

7246 

0 

(006 

1 

EXTEND 

7247 

5 

01  17 

0 

INDEX 

POLISH 

7 OKA 

r> 

r n n ? 

0 

1 

DC  A 

DAS 

1 

MPAC 

• C.J\J 

7251 

> 

20 

V UUa 

155 

MULTIPLY  BY  X 

ADD  IN  NEXT  COEFFICIENT 

USERS  RESPONSIBILITY  TO  ASSURE  NO  OVFLOW 


0849 

REF 

4 

LAST 

1036 

7252 

10 

140 

0 

CCS 

PGLYCNT 

0850 

P E F 

1 

7 25  3 

1 

7242 

0 

TCF 

PCLYLOOP 

085  1 

REF 

3 

LAST 

10  34 

7254 

0 

0141 

0 

TC 

POLYRET 

RETURN  CALLER 

1 

I 

« 

1 


« 

.. Z 

i 

i 

..e 


« 


» 


GAP:  ASSEMBLE  REV].'.  I Of.  001  CF  AGC  PROG!  AM  API  1RQPE  BV  EYLES 

L INTEPPr  6T  ER 


DP  AGP  EE  CAF 
IS 


’0852 

MI SCELLANEOtS 

MULTI  - 

PRECIS  I 

ON 

085358 

REF 

i 9 1 

LAST 

1032 

7255 

3 4755 

1 

085399 

PFF 

431 

LAST 

10  3'- 

7 2 56 

54  156 

1 

0894 

RFF 

26  5 

LAST 

103/ 

726- 

22  CO 2 

0 

0858 

REF 

4 

LAST 

887 

7260 

0 6723 

1 

0856 

0857 

085  P 

085o 

0860 

086  1 
0862 
0863 
08  a 6 

0865 

0866 

0867 

0868 
0866 
087° 

0871 

0872 

0873 

0874 

0875 

0876 

0877 

R 087 8 


TP  AGREE 


REE 

REF 


: EF  23  LAST  920 


7261  1 7265  0 

7262  L 7305  1 

7263  4 4733  0 

7264  1 7266  0 


REF  24 
REF  266 


LAST  1036 
LAST  1036 


REF 

RFF 

REF 

REF 

REF 

RFF 

RFF 

RFF 

REF 

RFF 

REF 

REF 

REF 


330 
4 3 ? 
433 

192 

267 
4 34 
4 3 :> 

193 

268 
436 
4 37 
433 
185 


LAST 
LAST 
LAST 
LAST 
LAST 
LAST 
LAST 
L 4ST 
LAST 
LAST 
LAST 
LAST 
LAST 


102  8 

1036 

1036 

1036 

1036 

103  6 

1 o 3 6 

1 036 

1036 

1036 

i 1 

1036 

1032 


726  5 
7 266 
726  7 
7 27  T 

7271 

7272 

7273 

7274 
727<7 
7 276 
7277 

7300 

7301 

7302 
7 30  3 
73  04 


3 4733  1 
54  002  1 
0 0006  1 
24  000  1 
6 0156  0 
54  15  l 
3 4755  1 
6 0002  0 
6 0155  0 
54  155  1 
3 4755  1 
6 0002  0 
ft  01  1 

5 4 1! 

54  155  1 
0 0001  0 


ARO  + 


ARGZERQ2 


LXCH 
TC 
TCF 
TC  F 

CS 

TCF 

CAF 

TS 

EXTEND 

AUG 

AD 

TS 

CAF 

AD 

AD 

TS 

CAF 

AD 

AD 

TS 

TS 

TC 


REF  439 
REF  1 


L AST  1036 


7305  54  156  1 

7306  1 7302  0 


ARGZERO  TS 
TCF 


ZERO 
MPAC  +2 

0 

BRANCH 
ARG  + 

A <G  / i LG 

POSMAX 
+ 2 

POSMAX 

Q 


MPAC  +2 
MPAC  +2 
ZERO 
Q 

MPAC  +1 
MPAC  +1 
ZERO 
Q 

MPAC 
MPAC 
MPAC  +1 
L. 

MPAC  +2 
ARGZER02 
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DOUBLE  PRECISION  ENTRY  - 
ZERO  LOW-ORDER  WORD 

FORCE  SIGN  AGREEMENT  AMONG  THE  TF  T PL  E 
PRECISION  CONTENTS  OF  MPAC.  RETURNING 
WITH  SIGNUM  OF  the  INPUT  IN  A. 


IF  NEGATIVE. 


FORMS  +-1.0. 


Q STILL  HAS  POSMAX  OR  NEGMAX  IN  IT. 
ALWAYS  SKIPPING  UNLESS  ARGZERO. 

RETURN  VIA  L. 

SET  ALL  THREE  MPAC  REGISTERS  TO  ZERO. 


SHORT MP  'NJLTIPLTES  THE  IP  CONTENTS  OF  NPAC  BY  THE  SINGLE  PRECISION  NUMBER  ARRIVING  IN  A. 


SO  SUBSEQUENT  DAS  WILL  WORK. 


0880 

PEF 

13 

l AST 

I 03  1 

7307 

54  135 

1 

SHOP  TMP 

TS 

MPTEMP 

0881 

7310 

0 0006 

1 

EXTEND 

0882 

REF 

440 

LAST 

1036 

7311 

7 0156 

I 

MP 

MPAC  + 

083  3 

REF 

441 

LAST 

1036 

7312 

5 8-  1 56 

1 

TS 

MPAC  +. 

0884 

REF 

194 

LAST 

103  6 

7313 

3 /-T55 

1 

SHOP  TMP2 

CAF 

ZERO 

08  9 r 

REF 

44  2 

LAST 

1036 

7314 

56  155 

0 

XCH 

MPAC  + 

0836 

RFF 

1 

7315 

1 7126 

1 

TCF 

OMPCIJB 

GAP:  ASSEMBLE  REVISION  Oul  OF  A GC  PROGRAM  APllROPE  BY  EYLES 

L INTERPRETER 


3: 15  DEC.  2,1970  SKIPPER 
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.087  PAGE  1037 
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P 0887  DMPNSUB  MULTIPLIES  THE  DP  FRACTION  ARRIVING  IN  MPAC  BY  THE  SP 

R 088  8 INTFGER  ARRIVING  IN  A.  THE  OP  PRODUCT  DEPARTS  BOTH  IN  MPAC  AND  IN 

R 0889  A AND  L.  NOTE  THAT  DMPNSUB  NORMALLY  INCREASES  THE  MAGNITUDE  OF  THE 

R OF  pm  CONTENTS  OF  MPAC.  T F F CUSTOMER  MUST  INSURE  THAT  B ( A ) X B ( MPAC , MPAC + 1 ) 

R 089 1 AMD  R ( A ) X B ( MPAC ) APE  LESS  THAN  1 IN  MAGNITUDE,  THERE  B,  AS  IS  OBVIOUS, 

R 0892  INDTCATES  THE  A;°  D I V I MG  CONTENTS. 


0893  REF  1 7316 

0894  7317 

0895  REF  4^-3  LAST  1036  7320 

0896  REF  >44  LAST  1037  7321 

0897  7722 

0898  REF  2 LAST  1037  7323 

0899  PEF  186  LAST  1036  7324 

09 OC  aLF  445  LAST  1037  7325 

0901  7326 

0902  OFF  446  L A ST  1037  7327 

0903  -’FF  269  LAST  1036  7330 


54  135 
0 0006 
7 0155 
52  155 
0 0006 
7 0135 

1 

1 

1 

1 

1 

1 

DMPNSUB  TS 

EXTEND 

MP 

DXCH 

EXTEND 

MP 

DMPNTEMP 

MPAC  +1 
MPAC 

DMPNTEMP 

3 0001 

0 

CA 

L 

26  154 

0 

ADS 

MPAC 

0 0006 

1 

EXTEND 

3 0155 

0 

OCA 

MPAC 

0 0002 

0 

TC 

0 

LOW  PRODUCT  ''0  MPAC,  HIGH  FACTOR  TO  A 


COMPLETING  THE  PRODUCT  IN  MPAC 
BRINGING  ThE  PRODUCT  INTO  A AND  l 


3:15  DEC 


PAGE  1038 


GAP:  ASSEMBLE  REVISION  OQl  OF  AGC  PROGRAM  API  IRQ  ftps  BY  EYLEE 


2,1970  SKIPPER  .087 


L INTERPRETER 


USER'S  PAGE  NO.  37 


E3  S3 


P 0904  MISCELLANEOUS  VECTOR  OPERATIONS.  INCLUDED  HERE  ARE  THE  FOLLOWING: 


R 09  0 3 
R 0906 
R 0907 
Q 0908 
R 0909 
R 0910 
R 09  1 1 


1 . 

DOT 

DP 

VECTOR 

2. 

vxv 

DP 

VEC  TOR 

3. 

VXSC 

DP 

VECTOR 

4 

V /sc 

OP 

VECTOR 

5. 

VPPOJ 

DP 

VECTOR 

6. 

VXM 

DP 

VECTOR 

7. 

MXV 

DP 

VECTOR 

DOT  PRODUCT. 

Cl  OSS  PRODUCT. 

TIMES  SCALAR. 

DIVIDED  BY  SCALAR. 

PROJECTION.  ( (MPAC.X)MPAC  ). 
POST-MULTIPLIED  BY  MATRIX. 
PRE-MULT I PL  I ED  BY  1ATEIX. 


0912 

REF 

1 

7331 

0 

7154 

0 

DOT 

TC 

0913 

PEE 

195 

LAST 

1036 

7332 

3 

4755 

1 

DMODE 

C AF 

09 1 a 

REF 

3 

LAST 

1019 

7333 

1 

60  60 

0 

TC  F 

0C1 

RLE 

66 

L A ST 

197  5 

7334 

3 47  52 

0 

MX  V 

CAE 

0916 

REF 

6 

LAST 

9 R 

7335 

54  140 

0 

TS 

0917 

REF 

1 

7336 

1 7342 

1 

TC  F 

091  £ 

REF 

7 

LAST 

801 

73  3 7 

4 43  63 

1 

VXM 

CS 

0919 

REF 

7 

LAST 

1038 

7340 

54  14  0 

0 

TS 

0920 

REF 

19 

LAST 

389 

73*  i 

3 6242 

0 

CAF 

PREDOT 

ZERO 

NEW MODE 

DO  THE  DO!  PRODUCT  AND  EXIT, 
THE  MODE  TO  DP  SCALAR. 

CHANGING 

TWO 
« AT INC 
VXM/MXV 

SET  UP  MAT  INC  ANC  DOT  INC  FOR 
VECTOPS. 

GO  TO  COMMCN  PCRTION. 

ROW 

T EN 

MATING 

SIX 

SET  MATING  AND  DOTINC  TO  REFER  TO  MATRIX 
AS  THREE  COLUMN  VECTORS. 

GAP:  ASSeMDI.6  REVISIDF  .001  . r AGC  PF  0G  ' AM  APllrODPE  BY 


L Il'ftFo*  fcJER 

P 092 1 COMMON  POP 


092? 

REF 

7 

LAST 

103  3 

R 092  3 

I TP  AC  E 121 

0926 

REF 

2 

LAS'" 

601 

092  5 

REF 

1 

092  6 

09  27 

REF 

36 

LAST 

1035 

Oc  ? 0 

REF 

9 47 

LAST 

1037 

092° 

REF 

14 

LAST 

999 

0931 

REF 

37 

LAST 

1039 

0°3  2 

REF 

448 

LAST 

1039 

0933 

0934 

REF 

38 

LAST 

1039 

0936 

REF 

449 

LAST 

1039 

p F F 

ss 

1 4 9 T 

1 020 

V J 0 

1U  J 0 

0937 

REF 

58 

LAST 

1034 

0935 

REF 

2 

LAST 

1039 

093  9 

REF 

39 

LAST 

1039 

094C 

REF 

45  C 

LAST 

10  39 

Oc  41 

REF 

4 0 

LAST 

1035 

094  2 

REF 

45  1 

LAST 

1039 

0943 

REF 

41 

LAST 

1039 

0944 

REF 

452 

LAST 

1039 

0C4  5 

REF 

9 

LAST 

ic  39 

0946 

c EF 

c 0 

LAS  T 

1039 

0947 

REF 

3 

LAST 

1039 

0948 

REF 

15 

LAST 

1039 

0549 

REF 

453 

LAST 

1039 

095  0 

REF 

454 

LAST 

1039 

0951 

RFF 

42 

LAST 

1039 

095? 

RFF 

455 

L AST 

IDS* 

0°53 

REF 

1 3 

LAST 

1030 

ICN  OF  MXV  ANO  VXM. 

7342  54  13  6 1 VXM/MXV 

PE  PELS  TO  "VXM/MXV". 

73z 3 0 7532  1 

7344  0 7156  1 

7345  0 0006  1 

7346  3 0123  1 

7347  52  155  1 

7350  52  134  0 

73  5 1 0 0006  1 

7352  3 0125  1 

7353  52  160  1 

7354  0 0006  1 

736 c 3 0127  0 
73  5 1 52  162  0 

7357  3 0140  1 

7360  261160 

7361  0 715c  1 

7362  52  123  0 

7363  52  166  1 

7364  52  125  0 

7365  52  160  1 

7366  52  127  1 

7367  52  162  0 

7370  3 0140  1 

7371  26  116  0 

7372  0 7156  1 

7373  52  1 34  0 

7374  52  155  1 

7375  52  162  0 

7376  5?  125  0 

7377  52  160  1 

7400  1 6061  1 


YLES 


3: 15  DEC 


2,1970 
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TS 

TC. 

TC 

EXTEND 

DC  A 

DXCH 

DXCH 

EXTEND 

DC  A 

DXCH 

EXTEND 

CCA 

DXCH 

CA 

ADS 

TC 

DXCH 

DXCH 

DXCH 

DXCH 

DXCH 

DXCH 

CA 

ADS 

TC 

DXCH 

DXCH 

DXCH 

DXCH 

DXCH 

TCP 


USER'S  PAGE  NO.  38  E3  S3 


DOT  I NC 

MPACVBUF  SAVE  VECTOR  IN  MPAC  FOR  FUC1HER  USE. 

DOTSUB  GO  DOT  TO  GET  X COMPONENT  OF  ANSWER. 

V SUf  MOVE  MPAC  VECTOR  BACK  INTO  MPAC,  SAVING 

MPAC  NEW  X COMPONENT  IN  BU  F2 . 

BUF2 


VBUF  +2 
MPAC  +3 


VBUF  +4 
MPAC 

MATIiiC  INITIALIZE  ADDRWD  FOR  NEXT  DOT  PRODUCT. 

A DDR  W D FORMS  BASE  ADDRESS  OF  NEXT  COL UMN ( ROW ) . 

DOTSUB 

VBUF  MOVE  GIVEN  VECTOR  BACK  TO  MPAC  , SAVING  Y 

MP||  COMPONENT  OF  ANSWER  IN  VBUF  +2. 

VBUF  +2 
MPAC  +3 
VBUF  +4 
MPAC  +5 

M AT  I j C FORM  ADDRESS  OF  LAST  COLUMN  OR  ROW. 

ADDF WD 


DOTSUB 
BUF2 
MPAC 
MPAC  +5 
VBUF  +2 
MPAC  +3 
DANZIG 


ANSWER  NOW  COMPLETE.  PUT  COMPONENTS  INTO 
PROPER  MPAC  REGISTERS. 


EXIT 


GAP:  ASSEMBLE  REVISION  001  . F AGC  PROGRAM  AP11R0PE  BY  EYLES 


L INTERPRETER 

P 0954  VXSC  - VECTOR  TIMES  SCALAR. 


0955 

REF 

27 

LAST 

1 0 32 

740  1 

10  163 

1 

VXSC 

CCS 

09  c t 

CEE 

1 

7402 

1 7430 

0 

TCF 

0957 

9 EE 

2 

LAS  r 

104-0 

7403 

1 7430 

0 

TCF 

0958 

REF 

5 

LAST 

1 035 

7404 

0 7107 

0 

vvxsc 

TC 

0959 

REF 

1 

7 40  5 

0 7140 

0 

TC 

09  6 C: 

REF 

456 

LAST 

1039 

7406 

52  160 

1 

UXCH 

096  ] 

REF 

457 

LAST 

1040 

7407 

52  155 

1 

DXCH 

096  2 

REF 

458 

LAST 

10  9Q 

7*10 

5 2 160 

1 

DXCH 

096? 

^REE 

6 

LAST 

1040 

741  1 

0 7107 

0 

TC 

096* 

REF 

2 

LAST 

1040 

7412 

0 7140 

0 

TC 

0965 

l-  F 

45  9 

LAST 

1040 

7413 

52  162 

0 

DXCH 

0966 

p.EE 

460 

L AST 

1040 

7414 

52  155 

1 

OXCH 

0967 

REF 

4 61 

LAST 

104  0 

74  15 

5 2 162 

0 

DXCH 

0968 

REF 

7 

LAST 

1040 

7*- 1 6 

0 7107 

0 

TC 

0969 

REF 

3 

LAST 

1040 

7417 

0 7140 

0 

TC 

097  0 

REF 

462 

LAST 

10  40 

7420 

52  155 

1 

VP  LIT  AT  EX 

OXCH 

0971 

REF 

46  3 

LAST 

10  40 

742  1 

52  162 

0 

DXCH 

0972 

REF 

464 

LAST 

iOAo 

7422 

5 2 160 

1 

DXCH 

097? 

REF 

465 

LAST 

1049 

74  23 

52  155 

l 

DXCH 

097<t 

REF 

14 

LAST 

1039 

7424 

1 6061 

1 

TCF 

3 

15  DEC.  2,1570  SKIPPER  ,0«7  PAGE  1040 

USER*  S PAGE  NO.  3°  E3  S3 

MODE 

DVXSC 

ovxsc 

TEST  PRESENT  MODE. 

SEPARATE  ROUTINE  WHEN  SCALAR  IS  IN  MPAC. 

DMPSUB 

VROUNO 

MPAC  +3 

MPAC 

VPAC  + ? 

COMPUTE  X COMPONENT 

AND  ROUND  IT. 

PUT  Y COMPONENT  INTO  MPAC  SAVING  MPAC  IN 

MPAC  +3. 

DMPSUB 

VROUND 

MPAC  +5 

MP  AC 

MPAC  +5 

DO  SAME  FOR  Y AND  Z COMPONENTS. 

DMPSUB 

VROUND 

MPAC 

MPAC  +5 

MPAC  +3 

MPAC 

DANZIG 

EXIT  USED  T0  RESTORE  MPAC  AFTER  THIS 

TYPE  C'F  ROTATION.  CALLED  BY  VECTOR  SHIFT 

RIGHT,  V/ SC,  ETC. 

GAP:  ASSEMBLE  REVISION  GOl  OF  AGC  PROGRAM  AP11R0PE  BY  EYLES 

L INTI ' PRFTPP 

P097c;  DP  VECTOf  PROJECTION  ROUTINE. 


0976 

REE 

2 

LAST 

1038 

7*,2  5 

0 

7154 

0 vr  u 

TC 

PREDOT 

0977 

REF 

21 

LAST 

9 20 

7426 

4 

*751 

1 

CS 

FOUR 

097  F 

r EF 

60 

LAST 

1039 

7 42? 

26 

1 16 

0 

ADS 

ADDRWD 

R 0°7° 


VXSC  WHEN  SCALAR  ARRIVES  IN  MPAC  AND  VFCTCR  IS  AT  X. 


09  8 C 

7430 

0 

C 006 

1 

098  1 

REF 

4 60 

LAST 

1040 

743  1 

3 

0155 

0 

098? 

PFF 

467 

LAST 

104  1 

747? 

52 

1 30 

1 

098  3 

ore 

q«; 

1 A 7 T 

74  3 7 

n 

7107 

7140 

0 

0 

09 

“LI  1 

REF 

4 

L M j 1 

LAST 

lUTU 

1040 

7434 

0 

EXTEND 
CCA  MPAC 

DXCH  MPAC  +3 

TC  DMPSHB 

TC  VPOUND 


0985  REF  67  LAST  1038  7435 

.0986  REF  61  1 AS  T 1041  7436 

0987  7437 

0°8  8 REF  '•  68  LAST  1041  7440 

0°89  REF  469  LAST  1041  7441 

0990  REF  470  LAST  1041  7442 

0991  REF  9 LAST  1041  7443 

04-3  2 REF  5 LAST  1041  74'-  4 

0C93  PFF  68  LAST  1041  7445 

0°94-  RFF  62  LAST  104  1 7446 

0995  REF  471  LAST  104]  7447 

0996  REF  472  LAST  1041  7450 

0997  REF  473  LAST  1041  7451 

0998  3 EF  10  LAST  104  1 7452 

Oooo  pff  5 LAST  1041  7453 


3 4752 
26  116 
0 0006 
3 0160 
52  155 

G 

0 

1 

0 

1 

CAF 

ADS 

EXTEND 
DC  A 
DXCH 

TWO 

ADDRWD 

MOAT  a- 

11  r At  ^3 

MPAC 

5 2 16  2 

0 

DXCH 

MPAC  +5 

0 7107 

0 

TC 

DMPSU8 

0 7140 

0 

TC 

V ROUND 

3 4752 

0 

CAF 

TWO 

26  116 

0 

ADS 

ADDRWD 

52  160 

1 

DXCH 

MPAC  +3 

52  155 

1 

DXCH 

MPAC 

52  16  0 

1 

DXCH 

MPAC  +3 

0 7107 

0 

T C. 

D MP  SUB 

0 7140 

0 

TC 

V ROUND 

1000  REF  474  LAST  1041  7454 

1001  REF  475  LAST  10.41  7455 

1002  REF  47'  LAST  1041  7456 

10Q7  REF  1 7457 


52 

155 

1 

DXCH 

MPAC 

52 

162 

0 

DXCH 

MPAC  +5 

52 

1 5 5 

1 

DXCH 

MPAC 

1 

65  2 1 

0 

TCP 

'/MODE 

3:15  DEC.  2,1970  SKIPPER  .087  PAGE  1041 
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( MPAC. X ) MPAC  IS  COMPUTED  AND  LEFr  IN 
MPAC.  DO  DOT  AND  FALL  INTO  DVXSC. 


SAVE  SCALAR  IN  MPAC  +3  AND  GET  X 
COMPONENT  OF  ANSWER. 


ADVANCE  ADCEWD  TO  Y COMPONENT  OF  X. 


DUT  SCALAR  BACK  INTO  MPAC  AMD  SAVE 
X RESULT  IN  MPAC  +5. 


TO  Z COMPONENT. 

BRING  SCALAR  BACK,  PUTTING  Y RESULT  IN 
THE  PROPER  PLACE. 


PUT  Z COMPONENT  IN  PROPER  PLACE,  ALSO 
POSITIONING  X. 


MODE  HAS  CHANGED  TO  VECTOR 


GAP:  ASSEMBLE  .EVISI3L  001  OF  ACC  PRGGRAM  API  1R0PE  BY  EYLES 

L INTERPRETER 

PI  ( ( .'PMC’  ROUTINE  CALCULATES  (X  M -X  M , 

R 1000  32  23 


RI008 

MPAC  ANO 

X THE 

VECTOR 

AT  THE 

1009 

t*60 

1010 

REF 

477 

LAST 

1041 

7461 

101  1 

REF 

478 

LAST 

1042 

746  2 

1012 

PEF 

43 

LAST 

1039  , 

746  3 

1013 

RFF 

1 1 

LAST 

10*  1 

7464 

K i . 

746  5 

101  r' 

PEF 

479 

LAST 

1042 

7466 

101  4 

REF 

480 

1 AST 

10*2 

746  7 

1017 

REF 

44 

LAST 

1042 

7*7  0 

1010 

r E F 

12 

1 AST 

142 

7*t  7 1 

101 

T p p p 

i,C 

1 A ST 

1 ‘ 1 ■'  l 

7472 

1020 

REF 

63 

LAST 

1041 

747  3 

1021 

7*74 

1022 

REF 

481 

LAST 

1042 

7475 

102  3 

REF 

482 

LAST 

1042 

7476 

1024 

REF 

4 8 3 

LAST 

1042 

7477 

1025 

RFF 

13 

LAST 

1042 

7500 

102  6 

7501 

1027 

REF 

45 

L AST 

1042 

7502 

102  8 

REF 

484 

LAST 

10  42 

7503 

1020 

REF 

46 

LAST 

10*2 

7504 

1030 

F EF 

14 

! AST 

1042 

7505 

1031 

REF 

70 

LAST 

1042 

7506 

1032 

REF 

64 

LA  S T 

104? 

7407 

1033 

7510 

103  4 

RFF 

47 

LAST 

10*2 

7511 

103  p 

RFF 

485 

LAST 

1042 

751  2 

1036 

REF 

486 

LAST 

10*2 

7513 

103  7 

iti  a 

1038 

7515 

103° 

REF 

3 

LAST 

1 0 2 E 

7516 

1040 

REF 

1 5 

LAST 

1042 

7517 

1041 

REF 

48 

LAST 

1042 

7520 

1042 

REF 

487 

LAST 

1042 

75  21 

104  3 

RFF 

488 

LAST 

10*2 

7522 

104*. 

REF 

489 

1.  AST 

10*2 

7 523 

1045 

7524 

1046 

7525 

GIVEN  ADDRESS. 


0 0006 

1 vxv 

EXTEND 

3 0162 

1 

DC  A 

MPAC  +5 

5 2 155 

1 

DXCH 

MPAC 

52  123 

0 

DXCH 

VBUF 

0 7107 

0 

TC 

DMPSUS 

0 0006 

1 

EXTEND 

4 0160 

1 

DCS 

MPAC  +3 

52  15  5 

1 

DXCH 

MPAC 

52  125 

0 

DXCH 

VBUF  +2 

0 7107 

0 

TC 

DMPSUB 

3 47  52 

0 

CAF 

T wn 

26  116 

0 

ADS 

ADDPWD 

0 00  06 

1 

EXTEND 

4 0162 

0 

DCS 

MPAC  +5 

52  16  5 

1 

DXCH 

MPAC 

52  162 

0 

OXCH 

MPAC  +5 

0 7107 

0 

TC 

DMPSUB 

0 (006 

1 

EXTEND 

3 0 123 

1 

DC  A 

VBUF 

62  15  5 

1 

DXCH 

MPAC 

5 2 127 

1 

DXCH 

VBUF  +4 

ft  7 107 

0 

TC 

DMPSUB 

3 4752 

0 

CAF 

TWO 

26  116 

0 

ADS 

ADDRWD 

0 0006 

1 

EXTEND 

4 0123 

0 

DCS 

VBUF 

52  165 

1 

DXCH 

MPAC 

20  162 

0 

DAS 

MPAC  +5 

0 0006 

1 

EXTEND 

1 7517 

1 

81 F 

+ 2 

0 70  11 

0 

TC 

OVERFLWZ 

0 7107 

0 

TC 

DMPSUB 

52  125 

0 

DXCH 

VBUF  +2 

52  loO 

1 

DXCH 

MPAC  +3 

52  155 

1 

DXCH 

M 3 AC 

20  160 

1 

DAS 

MPAC  +3 

0 0006 

1 

EXTEND 

1 7527 

1 

8ZF 

+ 2 

3:15  DEC.  2,1070  SKIPPER  .087  PAGE  1042 

USER'S  PAGE  NO.  41  E3  S3 

M -X  M fX  M -X  M ) WHERE  M IS  THE  VECTOR  IN 
13  3 1 2 1 12 


FORM  UP  M3X1  , LEAVING  Ml  IN  VBUF. 

BY  XI  . 

CALCULATE  -X1M2,  SAVING  X 1 M3  IN  VBUF  +2. 


ADVANCE  ADDPWD  TO  X2. 

PREPARE  TO  GET  -X2M3,  SAVING  -X1M2  IN 
MP  AC  +5. 

GET  X2M 1 , SAVING  -X2M3  IN  VBUF  +4. 

ADVANCE  ADDRWD  TO  X3. 

GET  -X3M1  , ADDING  X2M1  TO  MPAC  + c TO 
COMPLETE  THE  Z COMPONENT  OF  T H E ANSWER. 


MOVE  X 1 M 3 TO  MPAC  +3  SETTING  UP  FOR  X3M2 
AND  ADD  -X3M1  TO  MPAC  +3  TO  COMPLETE  THE 
Y COMPONENT  OF  T H E RESULT. 


Ap:  ASSEMBLE  REVISION  0<U  C.F  AGC  PROGRAM  API  lROf-E  BY  EYLES 


3:15  DEC 


2,1970  SKIPPER  .087  PAGE  1043 


L IV:  P ••  T ! " 


USER' S PAGE  NO.  42  E3  S3 


1047  REF  3 LAST  1028  '’526  0 7014  0 


TC  OVERFIWY 


1048 

KEF 

16 

LAST 

1U42 

1 527 

104  0 

RFF 

4<3 

LAST 

1042 

7 5 30 

10*0 

OFF 

4 

LAST 

102  9 

75  31 

0 7107  0 TC  DMPSUB 

52  127  1 DXCH  VBUF  +4 

1 7000  L TCF  ENDVXV 


GO  ADD  -X2M3  T0  X3M2  TO  COMPLETE  THE  X 
COMPONENT  (TAIL  END  CF  DAD). 


R 1051 


THE  "'PACVBUF  SUBROUTINE  SAVES  THE  VECTOR  IN  MPAC  IN  VBUF  WITHOUT  CLOBBERING  MPAC. 


1053 

1054 
105? 

REF 

OFF 

490 

50 

LAST 

LAST 

104? 

1043 

153  2 
7533 
7554 

7 53  * 

7536 

S',  0 CO 06 

1 0155 
52  123 
0 0006 
3 0160 

1 

0 

0 

1 

0 

MR  AC  VBUF  EXTEND 
DC  A 
DXCH 

FXTPMD 

1 

1057 

REF 

491 

LAST 

1043 

DC  A 

1< 

REF 

5 1 

LAST 

1043 

7537 

52  125 

0 

DXCH 

1+  '• 
1060 

REF 

492 

l AST 

1(|  4 3 

7 540 

754  1 

0 00UO 
3 0162 

1 

1 

EXTEND 

OCA 

1061 

REF 

52 

LAST 

104  3 

7 54  2 

5 2 127 

1 

DXCH 

106  2 

REF 

270 

LAST 

1037 

754  3 

0 0002 

0 

TC 

MPAC 

VBUF 

MPAC  +3 
VBUF  +2 

MPAC  +5 
VBUF  +4 

% 


CALLED  BY  MXV,  VXM,  AND  UNIT. 


RETURN  T 0 CALLED. 


R 106  3 


DOUBLE  PRECISION  SIGN  AGREE  ROUTINE. 


ARRIVE  WITH  INPUT  IN  A+L.  OUTPUT  IS  IN  A + 1. 


106 r'  EF  331  LAST  1036 

1066  c f F 1 

1067  REF  271  LAST  1043 

1068  PEF  1 

1069  REF  272  LAST  1043 


1070 

1071 

1072 
107  3 

1 n 7 !■ 

REF 

REF 

RFF 

REF 

187 

10 

1 1 

332 

1075 

REF 

168 

1076 

REF 

189 

1 077 

REF 

273 

1(  1 

REF 

190 

107 

REF 

6 

1C 

REF 

7 

10  1 

REF 

333 

108  2 
1033 

RFF 

191 

I 

RFF 

192 

10 

11 

REF 

2 74 

LAS  f 1037 
( AST  9?  2 
LAST  1043 
LAST  1043 

LAST  1043 
LAST  1043 
LAST  1043 

LAST  1043 
LAST  922 
LAST  101/ 
LAST  1043 

LAST  1043 
LAST  1043 

LAST  1043 


7 544 

1C  000 

0 

AL SIGN AG 

CCS 

A 

-1 545 

l 75  51 

0 

TCF 

UPPr  S 

7546 

0 0002 

0 

TC 

Q 

7547 

1 7561 

0 

TCF 

UPNEG 

7550 

0 OC02 

0 

TC 

Q 

7 551 

5 6 0 0 1 

0 

U°PCS 

XCH 

L 

A /,  7 S A 

HALF 

1 Jo  6 

1 

7553 

6 4736 

1 

AD 

HALF 

7554 

54  000 

0 

TS 

A 

7555 

1 7557 

0 

TCF 

+ 2 

V?  5 6 

24  ou  1 

0 

INC- 

L 

7557 

56  001 

0 

XCH 

L 

7560 

0 0002 

0 

TC 

Q 

7 56  1 

56  001 

0 

upneg 

XCH 

L 

756  2 

6 473  5 

1 

AD 

NEGMAX 

7 5 63 

6 7747 

1 

AD 

NEGONE 

7564 

6 4 000 

0 

TS 

A 

7565 

1 7567 

0 

TCF 

+ 2 

7566 

24  001 

0 

I NCR 

L 

7567 

56  001 

0 

XCH 

L 

7570 

4 0000 

0 

COM 

76  7 1 

0 f 002 

0 

TC 

Q 

TEST  UPPER.  PART. 

IT  IS  POSITIVE 

ZERO 

NEGATIVE 

ZERO 

SAVE  DECREMENTED  UPPE'  PART. 


SKIPS  ON  OVEPFLOW 

c ESTOP  E UP  PEI  TO  ROIGINAL  VALUE 
SWAP  A+L  BACK. 


SAVE  COMPLEMENTED  + DECREMENTED  UPPER  PT 


DONT  INCREMENT  IF  NO  OVERFLOW. 


MAKE  NEGATIVE  AGAIN. 


GAP  : 


P 1087 

1C  39 

10°  0 

10  91 

1092 

1093 

1094 
109  5 
1096 

ic 

1098 

1090 

1100 

1101 

1102 

1103 

1104 

1105 

110'- 

1107 

1108 

1109 

1110 
11 11 

1112 

1113 

1114 


ASSEMBLE  E VI  S I if  ’ 001  OF  AGC  PROGRAM  AP11R0PE  BY  EYLES  3:15  DEC.  2,1970  SKIPPEP  .087  PAGE  1044 
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INTERPRETIVE  INSTRUCTIONS  WHOSE  EXECUTION  CONSISTS  OF  PRINCIPALLY  CALLING  SUBROUTINES. 


REF 

17 

LAST 

104  3 

7572 

0 

7107 

0 

DM  Pi 

TC 

OMPSUB 

DMP  INSTRUCTION. 

REF 

15 

LAST 

1040 

757  3 

1 

6 061 

1 

TCF 

DAN/ I G 

9 F F 

IB 

LAST 

1 

7 5 74 

b 

7107 

0 

DMPP 

TC 

D M P $ U B 

REF 

1 

7575 

0 

7137 

0 

TC 

ROUNDSUB  +1 

(C( A)  = +0  ) . 

REF 

16 

LAST 

1044 

7576 

1 

6061 

1 

TCF 

DANZIG 

7577 

0 

0006 

1 

DDV 

EX  LEND 

REF 

65 

LAST 

10  42 

760  0 

5 

C 1 1 6 

1 

INDFX 

ADD' WD 

MOVE  DIVIDEND  INTO  BUF. 

7601 

3 

C001 

0 

OCA 

0 

REF 

2 

LAST 

1011 

7602 

1 

7607 

0 

TCF 

BDDV  +4 

7603 

0 

0006 

1 

BDDV 

EXTEND 

MOVE  DIVISOR  INTO  MPAC  SAVING  MPAC,  THE 

FEF 

66 

LAST 

10  44 

76  04 

5 

0116 

1 

INDEX 

A DD  P W D 

DIVIDEND,  IN  BUF. 

7605 

3 

( 00  1 

0 

OCA 

0 

R F F 

493 

LAST 

I 04  3 

76  P 6 

52 

15  5 

1 

DXC  H 

MPAC 

RFF 

9 l 

LAST 

1033 

7607 

52 

131 

0 

+ 4 

DXCH 

BUF 

RFF 

196 

LAST 

1038 

7610 

3 

47  55 

1 

CAF 

ZERO 

DIVIDE  ROUTINES  IN  BANK  0. 

REF 

20: 

LAST 

102  4 

7b  1 1 

54 

■ 004 

1 

TS 

FBANK 

R EF 

2 

LAST 

3 2 4 

7612 

1 

2 3 53 

1 

TCF 

DDV/ BDDV 

off 

67 

LAST 

1044 

7613 

3 

0 1 1 6 

1 

1 

SETPD 

CA 

AQDkWO 

MUST  SET  tc  WORK  AREA,  OR  FRANK  TROUBLE 

REF 

22 

LAST 

1021 

7614 

54 

156 

1 

TS 

PUSHLOC 

REF 

1 

7615 

1 

6 0 63 

c 

TCF 

NOI BNKSW 

NO  FBANK  SWITCH  REQUIRED. 

REE 

19  7 

LAST 

10  44 

7616 

3 4755 

1 TSLC 

CAE 

ZERO 

EF 

21 

LAST 

1044 

76  17 

54  004 

1 

TS 

FBANK 

REF 

l 

7620 

1 2172 

0 

TCF 

TSLC7 

SHIFTING  ROUT  INST  LOCATED 


IN  BANK  00. 


REF  7 LAST  1003  762 1 

REF  22  LAST  1044  7622 

REF  1 7623 


3 6074  1 GSHIFT 
54  004  1 
1 2214  0 


CAF  L0W7  USED  AS  MASK  AT  GENSHIFT.  THIS  PFOCESSES 
TS  FBANK  ANY  SHIFT  INSTRUCTION  (EXCEPT  TSLC  ! WITH 
TCF  GENSHIFT  AN  ADDRESS  (ROUTINES  IN  BANK  0). 


SAP  : 

L 

P 1 1 1 p 

31117 

R 1 1 1 9 

1120 

112  1 

1122 

1123 

1124 

112*5 

1126 

1127 

1128 

1129 

1130 

11  31 

1132 

1133 

1134 

1136 

113< 

1137 

1138 

113  9 

1140 

1141 

1142 

1143 

1144 


ASSEMBLE  REVISION  001  OF  AGC  PROGRAM  AP11K0PE  BY  EYLFS 


3: 13  DEC 


2,1970  SKIPPED  .087  PAGE  1045 


INTERPRETER  USER'S  PAGE  NO.  44  E3  S3 

THE  FOLLOWING  IS  THE  PROLOGUE  TO  V/SC.  IF  THE  PRESENT  MODE  IS  VECTOR,  IT  SAVES  THE  SCALAR  AT  X IN  BUF 
I ' (ANI  . TF  I HE  P ESEN  10DE  I S SCALAR,  IT  MOVES  THE  VECTOR  AT  X INTO  MPAC,  SAVING 

THE  SCALAR  IN  MPAC  IN  SUE  BEFORE  CALLING  THE  V/SC  ROUTINE  IN  BANK  0. 


REF  23  ! AST  10/" 

REF  1 

REF  2 LAST  1045 


REF 

68 

LAST 

1044 

REF 

92 

LAST 

1044 

REF 

198 

LAST 

1044 

REF 

2 3 

1 A 

1 >44 

REF 

1 

REF 

69 

LAST 

1045 

REF 

45  4. 

I ACT 

1 0 44 

L.  “4  O 1 

l1-  49 

REF 

7 C 

LAST 

104  5 

REF 

495 

L AS T 

1045 

REF 

108 

LAST 

1Q1‘. 

REF 

29 

L AST 

1045 

REF 

71 

LAST 

1045 

REF 

436 

LAST 

1045 

REF 

1 

7624  10  163  1 V/SC 

7625  1 7636  1 

7626  1 7636  1 

0 COO 6 1 VV/SC 
5 Cl  16  1 
3 "001  0 
52  131  0 V/SC1 
3 4755  1 
54  0C4  1 

1 2654  0 

763*  0 0006  1 DV/SC 

7637  5 0116  1 

7640  3 C003  1 

7641  52  160  1 

7 6 4 2 C CO 06  1 
76/ 3 501161 

76/64  3 0005  1 

7645  52  162  0 

7646  4 4753  0 

7647  54  163  1 

7640  0 CO 06  1 

76  5 1 5 01  16  1 

7652  3 C001  0 

7653  52  155  1 

7654  I 7632  0 


7*27 
7630 
763  1 

7632 

7633 

7634 
7o35 


CCS 

MODE 

TCF 

DV/SC 

TCF 

DV/SC 

EXTEND 

INDEX 

ADD  WD 

DC  A 

n 

BUF 

ZERO 

FBANK 

DXCH 

CAP 

TS 

TCF 

EXTEND 

V/SC? 

ADDRWD 

INDEX 

DC  A 

2 

DXCH 

MPAC  +3 

EXTEND 

INDEX 

ADDRWD 

CCA 

4 

DXCH 

MPAC  +5 

CS 

TS 

EXTEND 

ONE 

MODE 

ADDRWD 

INDEX 

DC  A 

0 

DXCH 

MPAC 

TCF 

V/SC.1 

MOVE  VECTOR  INTO  MPAC . 


IN  BOTH  CASES,  VECTOR  IS  NOW  IN  MPAC  AMD 
SCALAR  IN  BUF. 


CHANGE  MODE  TO  VECTOR. 


FINISH  PrCLOOUE  AT  COMMON  SECTION. 


GAP:  ASSEMBLE  E V I S I 3 N 001  OF  AGC  PROGRAM  APllRGPfc  BY  EYLES 


P 1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 


I NT  PRET  ER 

145  SIGN  AND  COMPLEMENT 


146 

REF 

72 

1 AST 

1045 

765  5 

147 

7656 

148 

REF 

17 

LAST 

1044 

76  57 

1 AO 

76  60 

1 0 

REF 

2 

LAST 

1013 

7661 

151 

KEF 

73 

LAST 

1046 

7 66  2 

1 52 

766  3 

1 53 

RFF 

18 

LAST 

104  6 

76  64 

154 

c EF 

1 9 

LA^T 

1046 

7665 

1 

REF 

3 

LAST 

1046 

7666 

1 5 • 

RFF 

20 

LAST 

1046 

7667 

157 

7670 

158 

REF 

49  7 

LAST 

1045 

767  1 

] 85 

REF 

498 

LAST 

1046 

767  2 

160 

REF 

30 

LAST 

1045 

7673 

161 

REF 

1 

7674 

162 

REF 

2 

LAST 

1046 

7675 

163 

7676 

164 

REF 

499 

1 AST 

1046 

767  7 

165 

REF 

500 

LAST 

1 046 

7700 

166 

7701 

167 

REF 

501 

LAST 

1046 

7702 

168 

r<  EF 

50  2 

LAST 

1046 

7 70  3 

169 

RFF 

21 

LAST 

1046 

7704 

170 

REF 

503 

LAST 

1046 

7705 

171 

REF 

504 

LAST 

1046 

7706 

172 

REF 

22 

LAST 

1046 

7707 

INSTRUCTIONS  . 


:5G  116 

1 

SIGN 

INDEX 

ADO?  WD 

10  000 

0 

CCS 

0 

1 60  61 

1 

TCF 

DANZIG 

1 7662 

0 

TCF 

+ 2 

1 7670 

0 

TCF 

COMP 

50  116 

1 

INDEX 

A DDR  WD 

1C  001 

1 

CCSL 

CCS 

1 

1 60  61 

1 

TCF 

DANZ  TG 

1 60  61 

1 

TCF 

DANZIG 

1 7670 

0 

TCF 

COMP 

1 6061 

1 

TCF 

DANZI G 

0 0006 

1 

COMP 

EXTEND 

4 r 155 

1 

DCS 

MPAC 

5?  155 

1 

OXCH 

MPAC 

10  163 

1 

CCS 

MODE 

1 7705 

0 

TCF 

DCOMP 

1 7 705 

0 

TCF 

DCCMP 

0 C 006 

1 

EXTEND 

a o 1 60 

DCS 

+g 

52  160 

1 

DXCH 

MPAC  +3 

0 0006 

1 

EXTEND 

4 0162 

0 

DCS 

MPAC  +5 

52  162 

G 

DXCH 

MPAC  +* 

1 6061 

1 

TCF 

DANZ  IG 

4 01.56 

1 

DCOMP 

CS 

MPAC  +2 

54  156 

1 

TS 

MPAC  +2 

1 60  61 

1 

TCF 

DANZIG 

3:15  DEC.  2,1970  SKIPPER  .087  PAGE  1046 
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CALL  COMP  INSTRUCTION  IF  WORD  AT  X IS 
NEGATIVE  NON-ZERO. 

DO  THE  COMPLEMENT. 


COMPLEMENT  DP  MPAC  IN  EVERY  CASE. 


EITHER  COMPLEMENT  MPAC  +3  OP  THE  REST  OF 
THE  VECTOR  ACCUMULATOR. 

VECTOR  COMPLEMENT. 


GAD: 


ASSEMBLE  REVISION  OG1  F AGO  PROGRAM  Afl 1R0PE  BY  EYLES 


L INTERPRETER 

P 1 173  THE  FOLLOWING  SHORT  SHIFT  CODES  REQUIRE  NO  ADDRESS  WORD: 


R 1174 

1. 

SR  1 TO  SR4 

R 1 17  5 

2. 

SR  IP  TO  Sp/-f 

R 1176 

3. 

SL1  TO  $L* 

R 117"’ 

/ . 

ctl  TO  SL*F 

R 1176 

5. 

VSR  1 TO  V S R 8 

R 1179 

6. 

VSL ! Tl  VSL 8 

SCALAR  SHIFT  RIGHT. 

SCALAR  SHIFT  FIGHT  AMO  ROUND. 

SCALAR  SHIFT  LEFT. 

SCALAR  SHIFT  LEFT  AND  POUND. 

VECTOR  SHIFT  RIGHT  (ALWAYS  ROUNDS). 
VECTOR  SHIFT  LEFT  (NEVER  ROUNDS). 


R1180  THE  F 01  LOWING  CEDES  REQUIRE  AN  ADDRESS  WHICH  MAY  BE  INDEXED: 


R1181  1.  SR  SCALAR  SHIFT  PIGHT. 

R 1 182  2.  SRP  SCALAR  SHIFT  RIGHT  AND  POUND. 

R 1183  3.  SL  SC  At.  AR  SHIFT  LEFT. 

R 1 1 8 A 4.  St'  SCALAR  SHIFT  LEFT  AND  ROUND. 

P 1 1 8C  r.  V<T  VECTOR  SHIFT  RlGfPr. 

p 1 1 86  6.  VSL  VECTOR  SHIFT  LEFT. 

R 1 1 8 7 * IF  ’ HE  ADDRESS  IS  INDEXED,  AND  THE  INDEX  MODIFICATION  RESULTS  IN  A 

P 1189  ABSOLUTE  VALUE  OF  THE  COUNT  IS  DONE  IN  THE  OPPOSITE  DIRECTION. 


11^0  CC  , 20 1 7 


1191 

1192 
11°  3 

1 1 o/. 

REF 
REF 
REF 
P FF 

1 

20 

29 

LAST 

LAST 

I A C T 

1038 
101  8 

O ? i 

00,2017 
00,2020 
00,202  1 

1 L 

I /AO  t 

T7  c.  D 

1I°6 

REF 

30 

LAST 

104  7 

00,2022 

1196, 

REF 

1 

C 0,2023 

1197 

00,2024 

1198 

REF 

12 

LAST 

1047 

00,2025 

1199 

REF 

58 

LAST 

911 

00,2026 

1200 

REF 

14 

LAST 

1036 

CO ,20 2T 

1201 

RFF 

31 

LAST 

I 04  7 

00,2030 

1202 

REF 

1 

00,2031 

1203 

RFF 

4 

LAST 

1038 

CO,  2032 

1204 

REF 

15 

LAST 

1047 

00,2033 

1205 

00,2034 

1206 

REF 

505 

LAST 

1046 

00,2035 

1207 

REF 

5C6 

LAST 

1047 

00,2036 

1208 

RFF 

16 

LAST 

I 047 

00,2037 

1209 

,2040 

1210 

REF 

507 

LAST 

1047 

00,2041 

BANK  00 


COUNT*  $|/INTER 


3 6242 

0 

SHORTT 

CAF 

SIX 

7 00  20 

1 

MASK 

CYR 

§'4  021 

0 

TS 

SR 

10  020 

1 

CCS 

CYR 

1 2101 

1 

TCF 

TSSI. 

00024 

1 

SR  DDV 

DEC 

20 

50  021 

1 

TSSR 

INDEX 

SR 

3 4 73  6 

1 

CAF 

BIT14 

54  135 

1 

TS 

MPTEMP 

1 0 020 

1 

CCS 

CYR 

0 2050 

0 

I G H T R 

TC 

MpifcSRND 

1 6060 

0 

TCF 

NEWMODE 

3 0135 

0 

MP AC  SHR 

CA 

MPTEMP 

0 0006 

1 

EXTEND 

7 0156 

1 

MP 

M P AC  +2 

54  156 

1 

+ 3 

TS 

MPAC  +2 

3 0135 

0 

CA 

mptfmp 

0 0006 

1 

EXTEND 

7 0154 

0 

MP 

MPAC 

3: 15  DEC 


2,1970 


SKIFPEF  .087  PAGE  1047 


USER'S  PAGE  NO.  46  E3  S3 


NEGATIVE  SHIFT  COUNT,  A SHIFT  OF  THE 


SCALAR  SHORT  SHIFTS  COME  HERE.  THE  SHIFT 
COUNT-i  IS  NOW  IN  BT  T c 2-3  OF  CYP.  THE 
POUNDING  BIT  IS  IN  BIT1  AT  THIS  POINT. 

SEE  IF  RIGHT  OR  LEFT  SHIFT  DESIRFD. 

SHIFT  LEFT. 

MPTEMP  SETTING  FOR  SR  BEFORE  DDV. 

GET  SHIFTING  BIT. 


SEE  IF  A POUND  IS  DESI&FD. 

YES  - SHIFT  PIGHT  AND  ROUND. 

SET  MODE  TO  DP  (C( A)  = 0) . 

DO  A TRIPLE  PRECISION  SHIFT  RIGHT. 


(EXIT  FROM  SORT  AND  ABVAL). 


SHIFT  MAJOR  PART  INTO  A , L AND  PLACE  IN 


GAP:  ASSEMBLE  f E VISION  001  Uf  AGO  PROGRAM  API  IP  OPE  BY  EYLES 

L INTERPRETER 


121  1 

REF 

508 

LAST 

1047 

00,2042 

1212 

REF 

17 

l AST 

1047 

00,2043 

1213 

on .2044 

1214 

REP 

193 

LAST 

1 04  3 

00,2045 

1215 

PEF 

509 

LAST 

1048 

00,2046 

1216 

REF 

2 3 

L A R T 

1 04  6 

po f 2Q47 

R 1217 

MPAC 

SHIFT 

P IGHT  AND 

1218 

REF 

5 1 0 

LAST 

104o 

00,2050 

1219 

00,2051 

1220 

PEF 

IB 

LAST 

1045 

00,2052 

1221 

REF 

511 

LAST 

1048 

00,2053 

1222 

00 , 2054 

1223 

, REF 

19 

LAST 

1048 

00,2055 

1224 

REF 

512 

1.  AST 

104fj 

CO, 2056 

1226 

° EF 

194 

LAST 

1 048 

CO, 2057 

1226 

00,2060 

1227 

REF 

513 

LAST 

1048 

CO, 206  1 

1228 

00,20 62 

1225 

REF 

514 

LAST 

104  8 

00,2063 

1230 

REF 

199 

LAST 

104  5 

00, 2064 

1231 

REF 

515 

LAST 

1048 

00,2065 

1232 

REF 

516 

LAST 

1048 

CO, 2066 

1233 

00,2067 

1234 

REF 

20 

LAST 

! 04  B 

00,2070 

123  c 

R EF 

517 

L ASr 

104  8 

CO, 207  1 

1234 

RFF 

275 

LAST 

1043 

r p . ?n7 ? 

V u fxu  f r. 

1237 

REF 

21 

LAST 

1048 

00,2073 

1238 

np.  ?n  7 4 

J . t 4.U  ( s 

123° 

RFF 

515 

LAST 

1048 

CO, 2075 

1240 

PEF 

5 1 9 

LAST 

1048 

CC  ,2076 

1241 

REF 

195 

LAST 

1048 

00,2077 

1242 

REF 

1 

00,2100 

52  155  1 
3 0135  0 

0 CCQ6  1 

7 coni  i 

20  156  1 

1 6061  1 

ROUND  SUBROUTINES. 

3 C 1 c 6 0 MPACSRND 
0 CO 06  1 
7 0135  1 
56  155  0 

0 00C6  1 
7 ,0135  1 
56  155  0 
5 0001  0 

5 0000  1 VSHR2 
54  156  1 

1 2064  0 
26  155  1 

3 '755  i 
54  156  1 
56  154  1 
0 CO 06  1 
7 0135  1 
20  155  1 
0 0002  0 

3 013  5 0 VS HE  f ND 

0 C 00  6 1 
7 (155  l 
5 A 15  5 l 
56  0C1  0 

1 2060  1 


DXCH 

CA 

EXTEND 
MP 
DAS 
TC.  F 


CA 

EXTEND 

MP 

XCH 

EXTEND 

MP 

XCH 

AD 

DOUBLE 

TS 

TCP 

ADS 

CAP 

TS 

XCH 

EXTEND 

MP 

DAS 

TC 

CA 

EXTEND 
MP 
T c 
XCH 
TCP 


MP  AC 
MPTEMP 

L 

M P AC  +1 
DANZIG 


MPAC  +2 

MPTEMP 
MPAC  +1 

MPTFMP 
MPAC  +1 


MPAC  +2 
+ 2 

MPAC  +1 

ZERO 
MPAC  +2 
MPAC 

MPTFMP 

MPAC 

Q 

MPTEMP 

MPAC  +1 
MPAC  +1 
L 

VSHR2 


3 : 1 5 DEC.  2,1970  SKIPPER 
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MPAC, +1 . 


ORIGINAL  C (MPAC  +1). 
GUARANTEED  NO  OVERFLOW. 


WE  HAVE  TO  DU  ALL.  THREE  MULTIPLIES  SINCE 
MPAC  +1  AND  M P AC  +2  M I GHT  HAVE  SIGN 
DISAGREEMENT  WITH  A SHIFT  RIGHT  OF  1. 


T P.  I AL  MIL!  1R  PART. 

(FINISH  VECTOR  COMPONENT  SHIFT  PIGHT 
AND  ROUND. 

GUARANTEED  NO  OVERFLOW. 


SETTING  TO  ZERO  SO  FOLLOWING  DAS  WORKS. 


AGATN  NO  OVERFLOW. 


ENTRY  TO  SHIFT  RIGHT  AMD  ROUND  MPAC  WHEN 
MPAC  CONTAINS  A VECTOR  COMPONENT. 


GO  ADD  ONE  IF  NECESSARY  AND  FINISH 


GAP: 


ASSEMBLE  REVISION  GOl  OF  AGC  PROGRAM  AP1IR0PE  BY  EVLES 


P 1243 

1244 

1245 

124  6 
1247 
124  8 

124  9 

1250 

1251 
125? 
1253 

A 1 2 54 
1255 

125  6 

12'7 

1258 

1250 

1260 


INTERPRETER 

RDUTINE  FOR  SHORT  SCALAR  SHIFT  LEFT  (AND  MAYBE 


EF  13  LAST  1047  00,2101  I 0021  1 TSSL  CA 

TEF  22  LAST  1048  00,2102  54  135  1 +1  TS 

0 r , 2 1 0 3 0 0006  1 +?  EXTEND 

REF  520  LAST  1048  00,2104  3 0156  0 OCA 

REF  521  LAST  104°  00,2105  20  156  1 DAS 

REF, 522  LAST  1049  0<  ,2100  6 C154  1 AD 

REF  523  LAST  1049  05,2107  6 0154  1 AD 

REF  826  LAST  104°  00,2110  54  154  0 TS 

00,2111  1 2113  1 TCF 

REF  4 LAST  1033  00,2112  54  121  1 TS 

REF  23  LAST  1049  00,2113  10  135  1 CCS 

' EF  2 LAST  1047  00,2114  1 2102  1 TCF 

-EF  32  LAST  1 <V 7 00,2118  10  020  1 CCS 

REF  2 t AST  1044  0C,21  16  0 71  jo  1 ROUND  TC 

REF  24  LAST  1048  00,2117  1 6061  1 TCF 

REF  25  LAST  1049  00,2120  1 6061  1.  TCF 


ROUND ) . 
SR 

MPTHMP 


MPAC  +1 
MPAC  +1 
MPAC 
MPAC 
MPAC 
+ 2 

GVFIND 

MPT  EMP 
TSSL  +1 

CYR 

ROULDSUB 
DANZ  IG 
DANZIG  ::: 


3:  15  DEC 
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GET  SHIFT  COUNT  FOR  SR. 


ENTRY  HERE  FROM  SI  FOR  SCALARS. 
SHIFTING  LEFT  ONF  PLACE  AT  A TIME  IS 
FASTER  THAN  DOING  THE  WHOLE  SHIFT  WITH 
MULTIPLIES  ASSUMING  THAT  FREQUENCY  OF 
SHIFT  COUNTS  GOES  DOWN  RAPIDLY  AS  A 
FUNCTION  OF  tHFIR  MAGNITUDE. 

OVERFLOW.  (LEAVES  OVERFLOW-CORRECTED 
RESULT  ANYWAY). 

LOOP  ON  DECREMENTED  SHIFT  COUNT. 


SEE  IF  FOUND  WANTED. 

YES  - ROUND  AND  EXIT. 

SL  LEAVES  A ZERO  IN  CYR  FOR  NO  ROUND. 
NO  - EXIT  IMMEDIATL 


GAP:  ASSE'-BLE  REVISION  UOI  Off  AGO  PRQfi^AM  AP11R0PE  BY  E YLES 


L INTFKPRETER 

P 126 1 VECTOR  SHIFTING  ROUTINES. 


126? 

REF 

2 

1.  AST 

232 

00, 2121 

3 4 7 57 

0 

SHORTV 

CAF 

126  3 

REF 

33 

LAST 

1 069 

0 0 ,2122 

7 ( 02  0 

1 

MASK 

12  6 ^ 

REF 

24 

LAST 

10^9 

00,2123 

54  135 

1 

TS 

126* 

«EF 

34 

LAST 

10*0 

Oo,?l 24 

10  020 

1 

CCS 

1266 

REF 

1 

00,2125 

1 2145 

1 

TCF 

1267 

00,2126 

0C176 

1 

0CT176 

OCT 

124  8 

REF 

2 5 

I AST 

10  5 0 

00,2127 

50  13  5 

0 

VSSL 

1NDF 

1269 

REf 

59 

LAST 

1 > 7 

0 0,2130 

3 473  6 

1 

CAF 

1 27  ( 

REF 

26 

LAST 

105  0 

00,2131 

54  135 

1 

TS 

1271 

REF 

1 

00,2132 

0 2073 

1 

TC 

1272 

REF 

525. 

LAST 

1 049 

00,2133 

52  155 

1 

DXC.H 

1273 

REF 

526 

LAST 

1050 

00  ,2136 

32  160 

1 

DXCH 

127' 

REF 

* 27 

LAST 

10*0 

(0,2135 

32  155 

1 

DXCH 

1275 

9 

2 

LAST 

105  0 

00,2136 

0 207  3 

1 

TC 

1276 

REF 

528 

LAST 

1050 

00,2137 

52  155 

1 

DXCH 

1277 

REF 

.529 

LAST 

1050 

00,2140 

5 2 162 

0 

DXCH 

1278 

REF 

530 

LAST 

1050 

< 0,21-1 

52  155 

1 

DXCH 

1276 

REF 

3 

LAST 

1050 

00,2142 

0 2073 

1 

TC 

1280 

REF 

1 

00,2163 

1 7420 

1 

TCF 

LOW  3 
CYL 

MPTEMP 

CYR 

VSSL 

176 

MPT  EMP 
B I T 1 ^ 
MPTFMP 

VSHRRND 

MPAC 
MPAC  +3 
MPAC 
VSHRRND 

MPAC 
MPAC  +5 
M P AC 
VS  HI  P N D 

VFOTATEX 


3:15  DEC.  2,1970  SKIPPEP  .087  PAGE  1050 
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SAVE  3 BIT  SHIFT  COUNT  - 1 WITHOUT 
EDITING  CYR. 

SEE  IF  I EFT  OR  RIGHT  SHIFT. 

VECTOP  SHIFT  LEFT. 

USED  IN  PROCESSED  SHIFTS  WITH  - COUNT. 

(ENTRY  FROM  SR).  PICK  UP  SHIFTING  BIT. 
MPTEMP  CONTAINS  THE  SHIFT  COUNT  - 1. 

SHIFT  X COMFCNENT. 

SWAP  X AMD  Y COMPONENTS. 

SHIFT  Y COMPONENT. 

SWAP  Y AND  Z COMPONENTS. 

SHIFT  Z COM PONE NT . 

RESTORE  COMPONENTS  TO  PPOPEF  PLACES. 


GAP:  ASSEMBLE  REVISION  001  OF  AGC  PROGRAM  API 1R0PE  BY  EYLES 


P 1 2 8 1 

12  82 

128? 
12  84 

1285 

1286 

1287 

1288 

1289 

1290 

1291 
125  2 

1293 

1294 

1299 
129  6 
129  7 
12' 8 

125  9 

1300 

1301 

1302 

1303 


INTERPRETER 

VECTOR  SHIFT  LEFT  - DONE  ONE  PLACE  AT  A TIME. 


REF  27  LAST  1050  CO, 2144  54  135  1 -1  IS 

00,2145  0 0004  1 VSSI  EXTEND 

REF  931  LAST  lO^C  00,21' t 3 0lc5  0 DC  A 

REF  532  LAST  1051  00,2147  20  155  1 DAS 

00,2150  0 0006  1 EXTEND 

00,2151  1 2153  0 BZF 

9 FF  3 LAST  1033  00,2152  0 7017  0 TC 

00,2153  % 0006  1 EXTEND 

REF  533  LAST  1051  00,2154  3 0160  0 DC  A 

REF  534  LAST  10^1  00,2155  20  160  1 DAS 

00,2156  0 0006  1 EXTEND 

00,2157  1 2161  1 37 F 

REF  '■  LAST  1043  CO, 2160'  0 7014  0 TC 

00,2161  0 COCfc  1 EXTEND 

REF  535  LAST  1051  00,2162  3 0162  1 DC  A 

REF  536  LAST  1051  00,2163  20  162  0 DAS 

00,2164  Q 0006  1 EXTEND 

00,2165  1 2167  1 BZF 

REF  a LAST  104?  00,?! 6*  o 7011  0 TC 

P.FF  28  LAST  1051  00,2167  10  135  1 CCS 

PEF  2 LAST  1050  00,2170  1 2144  0 TC F 

REF  26  LAST  1045  00,2171  1 6061  1 “CO 


MPT  EM P 


MPAC 

MPAC 

+2 

OVER  FLOW 


MPAC  +3 
MPAC  +3 

+ 2 

OVEPFLWY 


MPAC  +5 
MPAC  +5 

+ 2 

OVERFLWZ 

MPTEMP 
VSSL  -1 
DANZ  IG 


3: 15  DEC.  2 , 

1470 

SKIPPER 

.087  PAGE 

USER'S 

PAGE 

NO.  50 

E3  S3 

SHIFTING  LOOP. 


LOOP  ON  DECREMENTED  c HI  FT  COUNTER . 


EXIT 


GAP  : 


ASSEMBLE  REVISION  001  OF  AGC  PROGRAM  API  1 ROPE  BY  EYLES 


L INTf-  P ET  FR 

P 1 30 A TSLC  - TRIPLE  SHIFT  LEFT  AND  COUNT.  SHIFTS  MPAC  LEFT  UNTIL 

R 1306  THE  COMPLEMENT  OF  THF  NUMBER  OF  SHIFTS  REQUIRED  IN  X. 


1 307 

REF 

29 

LAST 

1C  5 1 

1 3 0 ' 

RFF 

<5 

LAST 

1036 

1 30c 
1310 

PEF 

1. 

1311 

REF 

12 

LAST 

852 

131? 

1313 

REF 

RFF 

537 

1 

l AST 

1051 

131A 

1315 

REF 

30 

LAST 

1052 

REF 

53  8 

LAST 

105  2 

1 3 1 ^ 

1317 

PEF 

539 

LAST 

10  5 2 

13 1 f 

REF 

540 

LAST 

1 0 5 2 

1 I 

1320 

1321 

REF 

541 

LAST 

1052 

REF 

1 

132? 

132? 

R EF 

] 

LAST 

1 i ) ■"  ~> 

REF 

1 

132'' 

0 0 ,217 2 

54 

1 " 

1 

00,21 73 

0 

6 723 

1 

00,2174 

1 

2176 

1 

00,2175 

1 

2212 

0 

GO, 2176 

0 

7257 

0 

00,2177 

3 

0154 

1 

00,2200 

1 

2 207 

1 

00,2201 

24 

135 

0 

00,2202 

0 

C 006 

1 

00,2203 

3 

0156 

0 

CO, 2204 

20 

156 

1 

00,2205 

fe 

0154 

1 

00, 2206 

26 

154 

0 

00,2207 

6 

0000 

1 

00,2210 

54 

COO 

0 

00,2211 

1 

22  01 

1 

no,  ->2 1? 

4 

0135 

1 

00,2213 

1 

6623 

1 

TSLC  2 TS  MPTFMP 

TC  BRANCH 

TCF  + 2 

TC  F ENDTSLC 

TC  TP AGREE 

CA  MPAC 

TCF  TSLCTEST 

tslcloop  incr  mptemp 

EXTEND 

CCA  MPAC  +1 

DAS  MPAC  +1 

AO  MPAC 

ADS  MPAC 

TSLCTEST  DOUBLE 
CVSK 

TCF  TSLC l hop 

FNDTSLC  CS  MPTFMP 

TCF  ST0RE1 
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greater  than  .5  in  magnitude , leaving 

START  BY  ZEROING  SHIFT  COUNT  (IN  A MOW). 
EXIT  WITH  NO  SHIFTING  IF  ARGUMENT  ZERO. 

STORES  ZERO  SHIFT  COUNT  IN  THIS  CASE. 

MAY  CAUSE  UPSHIFT  OF  ONE  EXTRA  PI  ACE. 

BEGIN  NORMALIZATION  LOOP. 

INCREMENT  SHIFT  COUNTER. 


SEE  IF  (ANOTHER)  SHIFT  IS  REQUIRED. 

YES  - INCREMENT  COUNT  AND  SHIFT  AGAIN. 

STORE  SHIFT  COUNT  AND  RET  UF  N TO  DANZIG. 


GAP  : 

L 

P 1325 
R 1327 

R 1328 
R 132  c 
R 1331 
R 1332 
R 133? 
R 1334 
P 1335 

R 1337 


1345 

13^4 

1347 

1341 

134? 

i 


ASSEMBLE  EVISI3K  001  OP  AGC  PROGRAM  APllROPE  BY  EYLES 
I M E r PRETER 
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THE  F L LOWING  ROUTINES  PROCESSES  THE  GENERAL  SHIFT  INSTRUCTIONS  SR,  SRP,  SL , AMD  SLR 
THE  GIVEN  ADDRESS  IS  DECODED  AS  FOLLOWS: 

BITS  1-7  SHIFT  COUNT  (SUBADDRESS)  LESS  THAN  125  DECIMAL. 

BIT  8 PSEUDO  SIGN  BIT  (DETECTS  CHANGE  IN  SIGN  IN  INDEXED  SHIFTS). 

BIT  7 ^ FOR  LEFT  SHIFT,  AND  1 FOP  RIGHT  SHIFT. 

BIT  10  1 F'  r TERMINAL  ROUND  ON  SCALAR  SHIFTS,  0 OTHERWISE. 

BITS  11-13  0. 

BIT  14  1. 

BIT  15  0. 

THF  a B VF  ENCOo’fNO  IS  DONE  BY  THE  YUL  SYSTFM. 


1337 

REF 

74 

LAST 

1046 

00,2214 

7 

0 1 1 6 

0 

GEN S H I F T MASK 

ADDRWD 

GET 

SHIFT  COUNT,  TEST 

ING  FOR  ZERO. 

133? 

REF 

334 

1 AST 

104? 

DC,  22  15 

10 

OCO 

0 

CCS 

A 

( APR  I VES  WITH  C ( A ) = 

LOW 7 ) . 

133° 

REF 

1 

00,2216 

1 

2224 

0 

TCF 

GFNSHFT2 

IF 

NON-ZERO,  PROCEED 

WITH  DECREMENTED  CT 

) 3 

REF 

33 

LAST 

911 

00,2217 

3 

47  42 

1 

CAF 

BIT10 

ZERO  SHIFT  COUNT.  NO 

SH’FTS  NEEDED 

BUT 

1341 

REF 

75 

LAST 

1053 

00,2220 

7 

0116 

0 

MASK 

ADDRWD 

WE 

MIGHT  HAVF  TO  ROUND  MPAC  ON  SLR 

AMD 

1342 

REF 

335 

LAST 

1053; 

00,2221 

10 

CGO 

0 

CCS 

A 

SRR 

(SCALAR.  ONLY)  . 

1343 

REF 

3 

LAST 

1046 

CO, 2222 

0 

7 136 

1 

TC 

ROUNDS UB 

1344 

REF 

27 

LAST 

1051 

00,2223 

1 

6 061 

1 

TCF 

DANZIG 

REF 

REF 


32 

34 


RF.F  76 
REF  1 
RFF  33 A 


LAST  1052 
LAST  1000 

LAST  1053 

LAST  105’ 


00,2224 
00,2225 
00,2226 
00,2227 
00,2230 
(30 , 223  1 


54  135  1 
3 4744  l 
0 0006  1 

7 Cl  16  0 
7 7245  0 
50  000  1 


GENSHFT2 


TS 

CAF 

EXTEND 
M P 

MASK 

INDEX 


MPTEMP 

b i r 8 

A DDK  WD 

L0W2 

A 


DECREMENTED  SHIFT  COUNT  tq  MPTEMP. 

TEST  MEANING  OF  LOW  SEVEN  BIT  COUNT  IN 
MPTEMP  NOW. 

JUMPS  UN  SHIFT  DIRECTION  (BIT?)  AND 


1351 

00,2232 

L 

2233 

0 

TCF 

+ 1 

ORIGINAL  SH 

1352 

REF  1 

00 ,2233 

1 

2332 

0 

TCF 

R I GHT- 

NEGATIVE  SH 

1353 

REF  I 

00,2234 

1 

2342 

1 

TCF 

LEFT 

LL  OR  SL  . 

1354 

RFF  1 

00,2235 

1 

2336 

1 

TCF 

LEFT- 

NEGATIVE  SH 

1" 


i 


i 


GAP: 


ASSfc  'i£LE  . E V I S I If  001  OF  AGC  PRGGT  AM  AP11R0PE  BY  fcYLtS 


L INTERPRETER 


P 135* 

GENERAL  SHIFT  RIGHT. 

1356 

REF 

31 

LAST 

1046 

00, 2236 

10  163 

1 

RIGHT 

CCS 

MODE 

13*7 

REF 

1 

00,2237 

1 2277 

0 

TCF 

GEN SCR 

1358 

0 E F 

2 

LAST- 

1064 

00,2240 

l 2277 

0 

TCF 

GEN SCR 

1359 

REF 

33 

LAST 

1053 

00,22^1 

3 0135 

0 

CA 

MPTEMP 

1360 

REF 

1 

00,2242 

6 3733 

0 

VRIGHT2 

AD 

NEGI2 

1361 

00,2243 

0 ( C06 

1 

EXTEND 

1362 

REF 

1 

00 ,2244 

6 2127 

1 

B2MF 

VS  SR 

136  3 

r-  EF 

« 

( A ST 

1 04  3 

00,2245 

6 7747 

1 

A D 

M FGOMF 

1364 

REF 

34 

L AST 

1054 

00, 2246 

54  135 

1 

TS 

MPTEMP 

1365 

REF 

200 

LAST 

1048 

00,2247 

3 4755 

1 

CAF 

ZERO 

1366 

REF 

196 

LAST 

1048 

00,2250 

, 54  001 

1 

TS 

L 

136  7 

CEF 

542 

LAST 

105  2 

0 0,225  1 

56  154 

1 

XCH 

MPAC 

1 3.6  F 

REF 

54  3 

LAST 

1 C 54 

00,2252 

56  155 

0 

XCH 

MP AC  +1 

1 38  q 

REF 

] 

00,2293 

0 22  72 

] 

TC 

c c r ; '1 1 . n 

JL  1 " c'UI  lU 

1370 

REF 

544 

LAST 

1054 

00,2254 

20  155 

1 

DAS 

MPAC 

A 1371 

1372 

REF 

545 

LAST 

1054 

00,2255 

56  157 

1 

XCH 

. M P A C +3 

1373 

REF 

546 

LAST 

10  54 

00,2256 

56  160 

0 

XCH 

MPAC  +4 

1374 

REF 

2 

LAST 

1064 

00,2257 

0 2272 

1 

TC 

SET1  ■ !UMD. 

1375 

REF- 

547 

LAST 

1654 

00 ,7260 

1 

1 

DAS 

MPAC  +3 

1376 

REF 

548 

LAST 

1054 

00,2261 

56  161 

1 

XCH 

MPAC  +5 

1377 

REF 

549 

LAST 

1054 

CO,  2262 

56  162 

1 

XCH 

MPAC  +6 

1378 

RFF 

3 

LAST 

1054 

00,2263 

0 2272 

1 

TC 

SETROUND 

137° 

R EF 

550 

LAST- 

1054 

00 , 2264 

20  162 

0 

DAS 

MP AC  +5 

1380 

REF 

35 

LAST 

1054 

00,2265 

10  135 

1 

CCS 

MPTEMP 

1381 

REF 

36 

LAST 

1054 

00,2266 

54  135 

1 

TS 

MPTEMP 

1382 

REF 

1 

OO .2267 

1 ? ? 4 ? 

0 

t r p 

\/Q  TOUTO 

L C-  7 C. 

1 u 1 

V «<  i bn  J t. 

138  3 

00,227 0 

04604 

1 

BIASED 

DEC 

.2974  3- 

1384 

REF 

2 8 

LAST 

10  53 

09,227  1 

1 6061 

1 

TCF 

DANZIG 

1 3 8 - 

00,2272 

6 0000 

1 

SETROUND  DOUBLE 

1 

REF 

551 

LAST 

10  54 

00,2273 

5 4 156 

1 

TS  MPAC  +2 

1387 

RFF 

201 

LAST 

1054 

00,2274 

3 4 7 55 

1 

CAF  ZERO 

1388 

REF 

1 97 

LAST 

1054 

00  ,??7  5 

56  OOL 

0 

XCH  L 

13 

REF 

276 

LAST 

1048 

00,2276 

0 C 002 

0 

TC  Q 

3:15  DEC 
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SEE  IF  VECTOR  OR  SCALAR. 


SEE  IF  SHIFT  COUNT  LESS  TH AN  14D. 


IF  SO,  BRANCH  AND  SHIFT  IMMEDIATELY. 

IF  NOT,  REDUCE  MPTEMP  BY  A TOTAL  OF  14, 
AND  DO  A SHIFT  RIGHT  AND  ROUND  BY  14. 
THE  ROUND  AT  THIS  STAGE  MAY  INTRODUCE  A 
ONE  BIT  ERKOf  IN  A SHIFT  RIGHT  15D. 


X COMPONENT  MOW  SHIFTED,  Sn  MAKF  UP  THE 
ROUNOING  QUANTITY  (0  IN  A AND  0 OR  +-1 
IN  L ) . 

REPEAT  THE  ABOVE  PROCESS  FOR  Y AND  Z. 


NO  OVERFLOW  ON  THESE  ADDS. 


SEE  IF  DONE,  DOING  FINAL  DECREMENT. 


SQRT  CONST AN’ 


MAKES  UP  ROUNDING  QUANTITY  FROM  ARRIVING 
C ( A ) . 1 IS  ZERO  INITIALLY. 


RETURN  AND  DO  THE  DAS,  RESETTING  L TO  0 


GAP: 

L 

P 139  0 

1391 

139? 

1393 

1394 

1395 

1396 

1397 

139  8 

1 n a a 

1400 

1401 

1402 

140  3 

140* 

1^05 

1406 

1407 

1408 

140« 

1410 

141  ] 

1412 

1413 

1'  1' 

14]  ! 

1‘  1" 

1417 


ASSEMBLE  Kb  VISION  001  GF  AGC  PROGRAM  AP11K0PE  BY  EYLES 
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I NT  Ec'  PKET  E,: 


PROCESS  SR  AND  SRR  FOR 

REF  37  LAST  1054  00,2277  3 

r EF  2 LAST  1064  00,23(0  6 

00,2301  0 

REF  1 00,230?  i 


SCAL 

01  3 j 

ARS 

0 

GENSCR 

CA 

MPT  EMP 

3733 

0 

+ 1 

AD 

NEG12 

0006 

1 

EXTEND 

2322 

0 

BZMF 

DOSSHFT 

REF  9 LAST  1054 
REF  38  LAST  1055 
REF  202  LAST  1054- 
REF  552  LAST  1054 
REF  c53  LAST  ins? 
REF  554  LAST  1055 
REF  39  LAST  1055 
REF  40  LAST  1053: 
REF  3 LAST  1054 

FEE  34  LAST  1053 
REF  77  LAST  1053 
REF  337  LAST  1053 
REF  4 LAST  1053 
RFF  29  LAST  1054 


00,2303  6 7747 
00,2304  54  135 
00,2305  3 *-755 
00,2306  56  154 
00,230?  56  155 
00,2310  54  156 
00,2311  10  135 
00,2312  54135 
00,2313  0 2300 
00,2314  22650 
00,2315  3 4742 
00,23  16  7 OIK 
00,2317  10  000 
00,2320  0 713o 
00,2321  ] 6061 


1 +4 

1 
1 
1 
0 
1 
1 
1 
0 

1 SI  OP  EH  I 
1 
0 
0 

1 

1 


AD 

TS 

CAF 

XCH 

XCH 

TS 

CCS 

TS 

TC 

DEC 

CAF 

MASK 

CCS 

TC 

TCF 


N FGONE 
MPT  EMP 
zero 
-'PAC 
MP  AC  +1 
MP AC  +2 
MPT  EMP 
MPT EMP 
GENSCR  +1 
.5884 
BIT10 
A DDR  WD 
A 

ROUND  SUP 
DANZIG 


REF 

4 1 

[ AST 

1055 

REF 

60 

LAST 

1050 

REF 

42 

LAST 

105  5 

REF 

35 

LAST 

1055 

REF 

7b 

LAST 

1055 

REF 

3 3 

LAST 

1055 

RFF  l 
REF  1 


00,2322 

50  1 3 5 

0 

00,2323 

3 47  36 

1 

00,2324 

54  135 

1 

00,2325 

3 4742 

1 

00,2326 

7 6116 

0 

00,2327 

10  000 

0 

00, 2330 

1 2031 

0 

00,2331 

1 2033 

1 

DOSSHFT  INDEX 

M PTE  MP 

CAF 

BIT14 

TS 

MPT  EMP 

CAF 

BIT  10 

MASK 

A DOR  WD 

CCS 

A 

Tr  f 

p ITHTR 

i v.  r 

TCF 

lun  i rv 

MPACSHF 
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SEE  IF  THE  ORIGINAL  SHIFT  COUNT  WAS  LESS 
THAN  14D . 


DO  THE  SHIFT  IMMEDIATELY  IF  SO. 


IF  NOT,  DECRFMENT  SHIFT  COUNT  BY  14D  AND 
SHIFT  MR  AC  RIGHT  14  PLACES. 


c EE  IF  FINISHED,  DO  FINAL  DECRFMENT. 


SQRT  CONSTANT. 

FINISHED  WITH  SHIFT.  SEE  IF  FOUND 
WANTED. 


DO  SO  AND/Of  E X I T . 
PICK  UP  SHIFTING  BIT. 


SEE  IF  TERMINAL  ROUND  DESIRED. 


YES. 

JUST  SHIFT  RIGHT. 


ASSEMBLE  REVISION  001  OF  AGC  PROGRAM  AP11R0PE  BY  EYLES 


GAP: 


L INTERPRETER 


P 141 8 PROCESS  THE  RIGHT-  (SLIP)  WITH  A NEGATIVE  COUNT),  LEFT 


1420 

RCF 

43 

1421 

REF 

I 

1422 

REF 

44 

142? 

o f~F 

1 

LAST  1055  00*23 i 2 

00,2333 
I AST  1056  00,2334 

00,2335 


4 0135  1 R I GHT- 
6 2120  0 
54  135  1 
1 2236  0 


CS  M PTE  MP 

AD  OCT  176 

TS  MPT  E MP 

TCF  fight 


1424 

REF 

2 

LAST 

1056 

00,2336 

4 

2 126 

1 

LEFT 

1425 

» REF 

4:5 

l AST 

1 05'. 

00,2337 

6 

0135 

0 

1426 

00,2340 

4 

0000 

0 

14  2 7 

REF 

4 6 

LAST 

1056 

00,234 1 

54 

135 

1 

CS  OCT  1 76 

AD  MPT  EMP 

COM 

TS  MPT  EM'P 


1428 

REF 

32 

142° 

REF 

1 

l 

REF 

2 

1*31 

P-EF 

3 

1 4 3 2 

REF 

79 

1433 

1434 

RFF 

44 

1435 

REF 

35 

1436 

REF 

3 

LAST  1054  00,2342 

00 ,2343 
LAS"  1056'  00,2344 

LAST  1051  00,2345 

LAST  £05  5 00,2346 

00,23^7 
LAST  900  00,2350 

LAST  1050  00,2351 

LAST  1 4©  00,2352 


10  163  1 LEFT 
1 2346  0 
1 2346  0 
1 2 145  1 

4 011  a o GENS  CL 
0006  1 
7 <'-746  1 
54  02Q:  1 
1 2103  0 


CCS  MODE 

TCF  GENSCL 

TCF  GENSCL 

TCF  VSSL 

CS  AflORWD 

EXTEND 
MP  BIT6 

TS  CYR 

TCF  T SSL  +2 
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, AND  LEFT  OPTIONS. 

GET  ABSOLUTE  VALUE  - 1 OF  SHIFT  COUNT 
UNDERSTANDING  AT  BITS  I PSEUDC-S IGN) 

WAS  1 INITIALLY. 

00  NORMAL  SHIFT  P I GHT . 

SAME  PROLOGUE  TO  LEFT  FOP  INDEXED  RIGHT 
SHIFTS  WHOSE  NET  SHIFT  COUNT  IS  NEGATIVE 


SINCE  LEFT  SHIFTING  IS  SOME  ONE  PLACE  AT 
A TIME,  NO  COMPARISON  WITH  14  NEED  BE 
DONE.  FOE  SCALARS,  SEE  IF  TERMINAL  ROUND 
DESIRED.  ECR  VECTORS,  SHIFT  IMMEDIATELY. 

PUT  ROUNDING  BIT  {BIT  10  OF  A OOP WD) INTO 
BIT  15  OF  CYF  WHERE  THE  ROUNDING  BIT  OF 
A SHORT  SHIFT  LEFT  WOULD  BE 


DO  THE  SHIFT 


AP:  ASSEMBLE  ECVISI  IN  001  OF  AGC  PROGRAM  APllRQPE  BV  fcYLES 


3:15  DEC 


2,1970  SKIPPER  .087  PAGE  1057 


L INTERPRETER 

P1A37  SCALAR  DIVISION  INSTRUCTIONS,  DDV  AND  BDD V , ARE  EXECUTED  HERE. 

R 1439  AND  THE  DIVISOR  IN  BUF. 


1440 

1441 

REF 

REF 

DPP 

109  LAST  1045 

1 

1 

00,2353 

00,2354 

no.  ? * ^ 

I “ <+  c 

1443 

K fr  r 

REF 

I 

l 

00,2356 

4 4753  0 DDV/BDDV  CS  ONE 

54  136  1 TS  DVSIGN 

5*  137  0 TS  DVNORMCT 

54  140  0 TS  MAXDVSW 


1444  REF  93 

1445  REF  1 

1446 

1447  REF  1 


LAST  104c  00,2357 

00,2360 
00,2361 
00,2362 


10  130  1 
1 2516  0 
1 2363  1 
1 2531  0 


CCS  BUF 

TCF  BUF  POS 

TCF  +2 

TC  F 80F*'EG 


1 

1449 


REF  555 
kEF  13 


LAST  1055 
LAST  10,52 


00,2363 
0 0 , 2 3o4 


54  156  1 
0 7257  0 


BUFZERO 


TS 

TC 


MPAC  +2 
T P AGREE 


1450  REF  556  LAST  1037  00,2365  1 (>  1 54  0 

1451  REF  1 00,2366  1 2414  0 

1452  00,2367  1 2371  1 

1453  REF  2 LAST  1057  00,2370  1 2413  1 


CCS  MPAC 

TCF  OVF+ 

TCF  +2 

TCF  OVF+  -1 


14  5^ 
14  55 

14  56 

1457 

1458 

145  9 

146  C 
146  1 


REF  94 
REF  65 
RFF  557 

REF  558 
RFF  96 
REF  1 

REF  1 


LAST  1057 
LAST  1057 
l AST  13^7 
LAST  1057 
LAST  1057 


00,237  1 
00,2372 
00,2373 
00,2374 
00,2375 
00,2376 
00,2377 
00,24-0  0 


56  131  1 
56  130  0 
56  155  0 
56  154  1 
10  130  1 
1 2422  0 
1 2401  1 
1 2416  1 


XCH  BUF  +1 
XCH  BUF 

XCH  '<PAC  +1 

XCH  MPAC 

CCS  BUF 

TCF  BUF+ 

TCF  +2 

TCF  BUF- 


1462 

REF 

559 

LAST 

1057 

00,2401 

4 0154 

0 

CS 

MPAC 

1463 

00,2402 

0 0006 

1 

SGNDVOVF 

EXTEND 

1 4 A U 

nn.  ? l. n r 

1 

R 7 M P 

4.  D 

1 • 'T 

O > c.  't  o j 

O : c.  H U U 

1 

D L ■ i 

+ C. 

1465 

REF 

? 

LAST 

1057 

00,2404 

24  136 

0 

I NCR 

DVSIGN 

1466 

PEF 

25 

LAST 

103  6 

00,2405 

3 47  33 

1 

DVOVF 

CAP 

PCS MAX 

146  7 

REF 

560 

LAST 

1057 

CD, 2406 

54  154 

0 

TS 

MPAC 

1468 

REF 

1 

00,2407 

0 2630 

0 

TC 

FINALDV  +3 

I 

REF 

1 10 

LAST 

1057 

00,2410 

3 47  53 

1 

CAF 

ONE 

14-70 

REF 

5 

LAST 

1049 

00,2411 

54  121 

1 

TS 

qvfind 

1471 

RFF 

30 

LAST 

1055 

00,2412 

0 6 061 

0 

TC 

DAMZ  IG 

1472 

REF 

3 

LAST 

1057 

00,2413 

24  136 

0 

-1 

I NCR 

DVSIGN 

14-73 

PEF 

97 

LAST 

1057 

00,2414 

4 0131 

0 

OVF  + 

CS 

BUF  +1 

14-74 

REF 

1 

00,2415 

1 2402 

1 

TCF 

SGNDVOVF 

1475 

00,2416 

0 0006 

1 

BUF- 

EXTEND 

1 

REF 

98 

LAST 

1 0 K 7 

90,2417 

4 0131 

0 

DCS 

BUF 

1477 

REF 

69 

LAST 

1057 

00,2420 

52  131 

0 

DXCH 

BUF 

1478 

REF 

4 

LAST 

1057 

00,2421 

2.4  136 

0 

I NCR 

DVS I GN 
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AT  THIS  POINT,  THE  DIVIDEND  IS  IN  MPAC 


INITIAL  I Z AT ION  . 

+-1  FOR  POSITIVE  QUOTIENT  - -0  FOR  NEG. 
DIVIO  END  L'OtMAL  I Z ATION  COUNT. 

NEAP-CINE  DIVIDE  FLAG. 

FORCE  BUF  POSITIVE  WITH  THE  MAJOF  P AP T 
NON-ZERO. 


ZERO  THIS. 

FORCE  SIGN  AGREEMENT  BEFORE  OVERFLOW 

TEST  TO  SEE  IF  MPAC  NON-ZERO.  (TOO  BIG) 
MAJOR  PART  OF  DIVIDEND  TS  POSITIVE  NON-O 

MAJOR  PAPT  OF  DIVIDEND  IS  NEG.  NON-ZERO 

SHIFT  DIVIDEND  AND  DIVISOR  LFFT  1 4. . 


TRY  AGAIN  ON  FORMFP  MINOR  PART. 
OVERFLOW  CN  ZERO  DIVISOR. 


SIGN  OF  MPAC  DETERMINES  SIGN  OF  RESULT. 


NFGMAX  IN  MPAC  PERHAPS. 

ON  DIVISION  OVERFLOW  OF  ANY  SORT,  SET 
SET  OP  MPAC  TO  +-POSMAX. 

SET  OVERFLOW  INDICATOR  AND  EXIT. 


LOAD  LOWER  ORDER  PART  OF  DIVISOR. 

GET  SIGN  OF  RESULT. 

IF  BUF  IS  NEGATIVE,  COMPLEMENT  IT  AND 
MAINTAIN  DVSIGN  FOP  FINAL  QUCT!FNT  SIGN. 

NOW  -0. 


GAP:  ASSEMBLE  - C V I S I ;j  JV  001  F A SC  P.  LG:  AM  APllKOPE  BY  EYlfcS 


L INTERPRETER 


14  7 9 

1 1 

1 1 ' i 

REF 

REF 

561 

1 

LAST 

1057 

1482 

1483 

REF 

REF 

1 

K 67 

LAST 

10  5 8 

I 

13  ef 

2 

I AST 

1058 

1485 

REF 

31 

LAST 

1057 

1486 

REF 

2 

LAST 

1 058 

1467 

REF 

32 

LAST 

1 Q 58 

00,2422  10  154  0 BUF  + 

00,2423  1 2437  1 

00,2424  1 2426  1 

00,2425  1 2433  0 

00,2426  10  155  1 

nn  , 2 42  7 1 24  37  1 

00,2430  1 6061  1 

00,2431  1 2433  0 

00,2432  1 6061  1 


CCS 

TCF 

TCF 

TCF 

CCS 

TCF 

TCF 

TCF 

TCF 


1 

1 4 P - 

ft  ef 

■763 

564 

L AST 

10"  8 

1' 

REF 

LAST 

1058 

1491 

REF 

5 

LAST 

1067 

00,2433 

0 CO  06 

1 MPAC 

00,2434 

4 0155 

1 

00,2435 

52  155 

1 

00 ,2436 

24  136 

0 

EXTEND 
DCS 
DXCH 
IN  CR 


MPAC 
MPAC  + 

+ 2 

M3  AC  — 
MPAC  +1 
MDAC  + 
DANZIG 
MPAC- 
DANZIG 


MPAC 

MPAC 

DVSIGN 
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FORCE  MPAC  POSITIVE,  CHECKING  FOR  ZERO 
DIVIDEND  IN  THE  PROCESS. 


EXIT  IMMEDIATELY  ON  ZERO  DIVIDEND. 


FORCE  MPAC  POSITIVE  AS  BUF  IN  BUF-. 


NOW  +1  OP  -0 


GAP: 


ASSEMBLE  f‘E  V I S ION  001  OF  AGC  PRuGF  AM  APllRGPE  BY  EYLES 


L INTERPRETER 


1492  REF  56  ^ LAST  1 058  00,243? 

1493  PFF  10  LAST  1055  00,2440 

1494  REF  100  LAST  1057  00,2441 

1495  RFP  339  LAST  1055  06,2442 

1496  REF  1 00,2443 

14°7  00 , 2*'  4 4 


4 0154  0 MPAC+ 

6 7747  1 

A.  Al.lfl  ft 

CS 

AD 

A ft 

MPAC 

NEGONE 

P U i :siU  U 

A U 

D Ur 

10  COO  0 

CCS 

A 

1 2 50  5 1 

TCF 

DVNCRM 

6090)  0 -1/2+2 

OCT 

6 0001 

1498  CO, 2445 

1499  REF  12  LAST  1043  00,2446 

1500  00,2447 

1601  REF  56  6 LAST  1059  00,2450 

1502  • F E 567  l AST  1059  00, 2'-?  1. 

1503  RFF  203  LAST  1055  00,2452 

1504  REF  26  LAST  1057  00,2453 

1505  REF  568  LAST  105-9  00,2454 


1 2446 
3 47J6 
6 COOO 
6 0155 

3 / ^ C K 

1 

1 

1 

0 

1 

1 

TCF 

CAF 

DOUBLE 

AD 

TS 

CAF 

+ L 

HALF 

MPAC  +1 
MPAC  +1 
ZERO 

3 4755 

6 4733 

1 

AD 

POSMAX 

26  154 

0 

ADS 

MPAC 

1506 

1 c 07 

1508 

1509 

1510 
151  1 
1512 


REF 

1 3 

LAST 

1 05° 

REF 

L01 

LAST 

1059 

REF 

102 

LAST 

105  9 

kE  F 

204 

LAST 

1059 

RFF 

2 7 

LAST 

1059 

RFF 

LO  3 

LAST 

1 06  « 

00,2465  3 6736  1 

A0, 24  5 6 6 on 0 0 1 

00,2457  6 0131  1 

00,2460  54  131  0 

00,2461  3 4755  1 

00,2462  6 4733  i 

90,2663  2^  130  1 


CAF  HALF 

DOUBLE 

AO  BUF  +1 

TS  BUF  +1 

CAF  ZERO 

AD  POS  9 AX 

ADS  BUF 


1513 

REF 

569 

LAST 

1059 

00,2464 

4 

0154 

0 

1514 

REF 

104 

LAST 

1059 

00,2465 

6 

0130 

0 

1515 

REF 

340 

LAST 

1059 

00, 2466 

10  OGO 

0 

1516 

REF 

9 

1- AST 

1069 

00,2467 

1 

2505 

1 

151  7 

PEF 

16 

LAST 

1039 

00,2470 

00133 

0 

1518 

PEF 

1 

00,2471 

1 

2405 

0 

CS 

MPAC 

AD 

BUF 

CCS 

A 

TCF 

DVNORM 

ADS  CS 

BUF  2 

TCF 

DVOVF 

1519 

REF 

2 

152  C 

REF 

570 

1521 

1522 

PEF 

105 

1523 

REF 

2 

1 

REF 

3 

LAST 

I A.QT 

1057 

1059 

00 

00 

l.  L\  I 

LAST 

1059 

00 

00 

LAST 

1 0 c 9 

00 

LAST 

1059 

00 

,2472  54  140  0 
,2473  4 0155  1 

,247<'-  6 0131  1 
,2475  0 0006  1 
, 2 76  6 2405  1 
,2477  1 2505  1 


TS  MAXDVSW 

CS  MPAC  +1 

AD  BUF  +1 

EXTEND 

BZMF  OVOVF 

TCF  DVNCRM 
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CHECK  FOP  DIVISION  OVEPFLOW.  IF  THE 
MAJOR  PART  OF  THE  DIVIDEND  IS  LESS  THAN 
THE  MAJOR  PART  OF  THE  DIVISOR  BY  AT 
LEAST  TWO,  WE  CAN  PROCEED  IMMEDIATELY 
WITHOUT  NORMALIZATION  PRODUCING  A DVMAX. 
USED  IN  S0PTSU8. 

IF  THE  ABOVE  DOES  NOT  HOLD,  FORCE  SIGN 
AGREEMENT  IN  NUMERATOR  AMD  DENOMINATOR 
TO  FACILITATE  OVFRFLOW  AND  NEAR-ONE 
CHECKING. 


SAME  FOR  BUF. 


CHECK  MAGNITUDE  OF  SIGN-CORRECTED 
OPERANDS. 

DIVIDE  OK  - WILL  NOT  BECOME  N'AXOV  CASE. 

DIVISOR  NOT  LESS  THAN  DIVIDEND  - OVF. 

IF  THE  MAJOR  PARTS  OF  THE  DIVIDEND  AND 
DIVISOR  ARE  EQUAL,  A SPECIAL  APPROXIMA- 
TION IS  USED  (PROVIDED  TH E DIVISION  IS 
POSSIBLE,  OF  COURSE). 


IF  NO  OVEFFLOW 


gap:  ASSEMBLE  REVISION  001  OF  AGC  PROGRAM  AP11R0PE  BY  EYLES 


L I NT  FP  Pi-'  ET  EP 


1525 

1526 

i c o 7 

REF 

2 

LAST 

1057 

00,2500 

00,2501 

(in, 

0 0006 
24  137 
n nn  ha 

1 

1 

1 

BUFNORM 

EXTEND 

AUG 

u VT  C M n 

DVN  F ICT 

I c.  i 

v v , C 1 J C 

I 

C_  A it-’  i U 

REF 

] 06 

LAST 

1059 

00,2603 

3 0 131 

1 

DC  A 

BUF 

15  2 c 

P.FF 

107 

LAST 

106  0 

00,2504 

20  131 

0 

DAS 

BUF 

1530 

REE 

108 

LAST 

1060 

00,2505 

3 0130 

0 

DVNORM 

CA 

BUF 

1531 

00,2506 

6 0000 

1 

DOUBLE 

1532 

00,2507 

54  OGO 

0 

QVSK 

1533 

REF 

1 

00,2510 

1 2 500 

1 

TCF 

BUFNORM 

1 53  A 

REF 

571 

LAST 

1059 

00 , ?5 1 1 

5 2 155 

1 

DXCH 

M P AC 

1535 

REF 

3 

LAST 

1060 

00,2512 

50  137 

1 

INDEX 

DVMORMCT 

1536 

REF 

1 

00,2513 

0 2565 

0 

TC 

MAXTEST 

15  3'’ 

REF 

572 

LAST 

1060 

00,2514 

54  156 

1 

TS 

MPAC  +2 

163  8 

REF 

33 

LAST 

1058 

00,2515 

1 6 0 61 

1 

TCF 

DANZIG 

1539 

REF 

341 

LAST 

1059 

00,2516 

10  000 

0 

BUF P0S 

CCS 

A 

1540 

REF 

2 

LAST 

1057 

00,2517 

1 2422 

0 

TCF 

BUF  + 

1591 

REF 

109 

LAST 

106  0 

00, 2520 

4 Cl  31 

0 

CS 

BUF  +1 

I 5 A 2 

00,2521 

0 1:0  06 

1 

EXT  END 

1543 

RFF 

3 

1 AST 

1060 

00 ,2522 

6 2 92  2 

1 

B Z MF 

BUF  -t- 

1599 

REF 

19 

LAST 

1059 

00,2523 

3 47  36 

1 

CA 

HALF 

159! 

00,2524 

6 GOOO 

1 

+ 6 

DOUBLE 

159  6 

REF 

110 

LAST 

106  0 

00,2525 

26  13  1 

0 

AOS 

BUF  +1 

1597 

RFF 

20  5 

LAST 

1059 

00,2526 

3 975  5 

1 

CA 

ZERO 

1 . 

s FF 

111 

LAST 

1 0 6 0 

00 , 25 2 7 

c,/,  1 

1 

T ‘s 

m IF 

" ‘T  L D * J 

I 

u u r 

1599 

REF 

1 

00,2530 

1 2363 

1 

TCF 

BUFZERO 

1 

REF 

342 

LAST 

1060 

OC,  2531 

1C 

000 

0 BUF!:  EG 

CCS 

A 

1551 

p EF 

2 

LAST 

1 057 

OC , 2632 

l 

2416 

1 

TCF 

BUF- 

1552 

REF 

112 

LAST 

1060 

00,2533 

3 

0131 

I 

C A 

BUF  +1 

1553 

00,2534 

0 

0006 

1 

EXTEND 

REF 

3 

LAST 

1060 

00,2535 

6 

2416 

0 

8ZMF 

BUF- 

1555 

REF 

16 

l AST 

106  0 

00, 253a 

4 

473  6 

0 

CS 

HALF 

1 5 5 * 

REF 

2 

I AST 

1067 

00,2537 

1 

2524 

1 

TCF 

BUF PdS  +6 

3:15  DEC 
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ADD  -1  TO  AUGMENT  SHIFT  COUNT  AMD  SHIFT 
LEFT  ONE  PLACE. 


SEE  IF  DIVISOR  NORMALIZED  YET. 

NO  - SHIFT  LEFT  ONE  AND  TRY  AGAIN. 

CALL  DIVIDEND  NO0 MALI ZATTON  SEQUENCE 
PRIOR  TO  DOING  THE  DIVIDE. 

RETURNS  WITH  DIV’SION  DONE  AND  CIA)  = 0. 

TO  BUF+  IF  BIJF  IS  GREATER  THAN  +1. 

IF  BUF  IS  +1,  FORCING  SIGN  AGREEMENT 
MAY  CAUSE  BUF  TO  BECOME  ZERO. 

BRANCH  IF  SIGNS  A Gp  EE . 

SIGNS  DISAGREE.  FORCE  AGREEMENT. 


TO  BUF-  IF  BUF  IS  LESS  THAN  -I. 

IF  BUF  IS  -1,  FORCING  SIGN  AGREEMENT 
MAY  CAUSE  BUF  TO  BECOME  ZFRO. 

BRANCH  IF  SIGNS  AGREE. 

SIGNS  DI? AGREE. 


FORCE  AGREEMENT 


GAP:  ASSEMBLE  REVISION  001  OF  AGC  PROGRAM  API  1RCPE.  8 Y E YLES 


3: 15  DEC 


2,1970 


L 

P 1557 

1559 
lc'5  0 
If  1 
1562 
1£  i 3 
156  A 
1 5t»5 

1566 

1567 

1568 

1569 

1570 

1571 

1572 

1573 

1 5 7 < 
1575 
15  76 
1577 
15  78 
15  7° 

1580 
158  1 

15  9? 
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THE  FOLLOWING  ARE  PROLOGUES  TO  SHIF'r  THE  DIVIDEND  ARRIVING  IN  A AND  L BEFORE  THE  DIVIDE. 


REF 

REF 

(-•  P c 

14 

16 

1 ° 8 

LAST 

LAST 

1 AST 
LAST 

1049 

1060 
109  4 

r Li 

REE 

15 

1061 

REF 

199 

LAST 

1061 

REF 

1 

00,2540  22  021  1 

00,2>6i  o 00  06  1 
00,2542  7 4736  0 

00 ,256  3 56  001  0 

00,2544  6 0021  1 

00,2545  56  001  0 

00,2546  1 2571  1 


- 2 ID 


LXCH  SR 

EXTEND 
MP  HALF 

XCH  L 

AD  SR 


XCH  L 

TCF  6E.NDDV  +1 


SPECIAL  PROLOGUE  FOR  UNIT  WHEN  THE 
LENGTH  OF  THE  AR GUMEN T WAS  N0T  LESS  THAN 
.5.  IN  THIS  CAS12,  EACH  COMPONENT  MUST  BE 
SHIFTED  RIGHT  ONE  TO  PRODUCE  A HALF-UNIT 
VECTOF . 

WITH  DP  DIVIDEND  IN  A , L . 


p FF  573  l A S T 


00,2547  20  001  1 

'0,2*50  PC  001  1 
00,2551  20  001  1 

00,2552  20  001  1 

i • J , 2 5 5 3 20  001  1 

0 0 ,255 4 20  001  1 

00,2555  20  001  1 

$'0,2Fc-6  20  001  1 

00,2557  20  001  1 

00,2560  20  001  1 

00 ,2661  2C  001  1 

10,2662  20  GUI  1 

00,2563  20  001  1 

i C 0,2564  * 2 155  1 


DDOUBL 
DDDU8L 
DDOUBL 
DDOUBL 
DDOUBL 
DDOUBL 
DDOUBL 
DDOUBL 
DDOUBL 
DDOUBL 
DDOUBL 
DDOUBL 
onnuBL 
DXCH  MP AC 


PROLOGUE  WHICH  NORMALIZES  THE  DIVIDEND 
WHEN  IT  IS  KNOWN  THAT  NO  DIVISION 
OVERFLOW  WILL  OCCUR. 


REF 


3 LAST  1059  00,2565 

00,2566 


10  140  0 MAXTEST  CCS 
06552  0 BIASHI  DEC 


MAXDVSW 
.4192  B— 1 


0 IF  MAJORS  MIGHT  BE  =,  -1  OTHERWISE. 
SORT  CONSTANTS 


REF 


1 


00,2567  I 2642  1 


TCP  MAXPV 


CHECK  Tf  SEE  IF  THFY  ARE  NOW  EQUAL 


GAP:  ASSEMBLE  REVISION  OG1  jF  AGC  PROGRAM  API  1RGP  E BY  FYLES 


3:15  DEC 


2 *1570  SKIPPER  .087  PAGE  1062 


P 1583 
R 1585 

Rif  8 c 

R 1587 
r i: 

R 1591 
R 15  93 

r r 

R 1597 
R i ;- 

R 1401 


1 

1<  - 
1605 

1 ( 

1607 

1608 
1 

1610 

1611 

1612 

1613 
161^ 
1615 
U 16 

1617 

1618 
A 161  * 
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1 HE  FOLLOW I US  Tr  A GENERAL  PURPOSE  DOUBLE  PRECISION  DIVISION  ROUTINE.  IT  DIVIDES  MPAC  BY  BUF  AMD  LEAVES 
THE  F SUL  T IN  MPAC.  THE  FOLLOWING  CONDITIONS  MUST  BE  SATISFIED: 

1.  THE  01 VI  SC : (BUF)  Ml S T BE  POSITIVE  AND  NOT  LESS  THAN  .5. 

2.  THE  DIVIDEND  ( <PAC ) 'UST  BE  POSITIVE  WITH  THE  - fiJOF  PA°  T OF  MPAC  STrICTt Y LESS  THAN  THAT  OF  BUF 
(A  SPECIAL  APPROXIMATION,  MAXDV,  IS  USED  WHEN  THE  MAJOR  PARTS  APE  EQUAL). 

U<  DEVV  AUDIO  :>AT  A/Li  = Q + S(R/B)  WHE '•  E S = 2(-16)  AND  Q AND  R ARE  QUOTIENT  AND  REMAINDER,  F.ESPEC- 
riVFLY,  THE  FOLLi  I NG  APPROXIMATION  IS  OBTAINED  BY  MULTIPLYING  ABOVE  AND  BELOW  BY  C - SD  AMD  NEGLECTING  TERMS  OF 
Of-  -SQUARED  IFCSIIBLY  T : - r' ODUCING  E pr  I NT  r SHF  LOW  "*0  BITS  OF  THE  1-ESlJLT).  SIGN  AGREEMENT  IS  UNNECESSARY. 


A + SB  . ('  - 

= Q + S ( 

C + SD  ( C 


PEE 

p.74 

LAST 

REF 

1 13 

LAST 

REF 

575 

LAST 

REF 

6 76 

LAST 

REF 

114 

LAST 

REF 

577 

LAST 

1061  f p , 2 6 7 0 
00,2571 

1060  00,2572 

1062  00,2573 

1062  0 0,257-- 

00 , 26 7 6 
1062  00,2576 

1062  00,2577 

CO  , 2o0.0 
00,2601 


QD)  A + SB 

— ) WHERE  Q AND  R ARE  QUOTIENT  AND  REMAINDER  OF  RESPECTIVELY. 

) C 


52  155 

1 

gendov 

DXCH 

MPAC 

WE  NEED  A AND  B ONLY  FOR  FIRST  DV. 

0 0006 

1 

+ 1 

EXTEND 

(SPECIAL  UNIT  PROLOGUE  ENTERS  HEFE). 

10  130 

1 

DV 

BUF 

A NOW  CO NT  AIMS  Q AND  L,  R. 

52  155 

1 

DXCH 

MPAC 

0154 

0 

CS 

MPAC 

FORM  DIVIDEND  FOP  MINOR  PART  OF  RESULT. 

0 0006 

1 

EXTEND 

7 0131 

0 

MP 

BUF  +1 

6 0155 

0 

AD 

MPAC  +1 

OVERFLOW  AT  THIS  POINT  IS  POSITIVE  SINCE 

54  COO 

0 

OVSK 

R IS  POSITIVE  IN  EVERY  CASE. 

1 26  06 

1 

TCF 

+ 5 

REF  115 
REF  578 
REF  1 


LAST  1062 
LAST  1062 


0 0 » 2602 
00,2603 
00,2604 
OC, 2605 


1 

60  130  0 
24  154  1 
1 2610  0 


EXTEND  OVERFLOW  CAL'  BE  REMOVED  BY  SUBTRACTING  C 
SU  BUF  (BUF)  ONCE  SINCE  R IS  ALWAYS  LESS  THAN  C 
I NCR  mpaC  IN  THIS  CASE.  INCP  COMPENSATES  SUBTRACT. 
TCF  +DOWN  (SINCE  C(A)  IS  STILL  POSITIVE). 


'',2  6 06,  o 00  0 6 1 +5 

EF  1 0 0,2607  6 2620  1 


EXTEND  C ( A ) CAN  BE  MADE  LESS  THAN  C IN  MAGNT- 

BZMF  -UP  TUDE  BY  DIMINISHING  IT  BY  C (SINCE  C IS 

NOT  LESS  THAN  .5)  UNLESS  CIA)  = 0. 


i" 


GAP 


ASSEMBLE  kEVISIJN  001  OF  AGC  PROGRAM  APliaOPfc  BY  EYLES 


L II  TFRPPETER 


1620 
1621 
162  2 

1623 

1624 
162  5 


00,2610 

REF  116  LAST  1062  00,2611 

00 , 26 12 
0 0 , 2 ( 1 3 
00 ,2614 

REF  1 60,2615 


0 0006  1 + DOWN 

60  130  0 

0 0006  1 

1 2616  0 

0 0006  1 

6 2624  0 


EXTEND 

SU 

EXTEND 

BZF 

EXTEND 
R ZMF 


BUF 

+ 3 

ENDMAXDV 


162  6 
1627 


16  2 F 
162° 

1630 

1631 

1632 


REF  579  LAST  1062 
REF  2 LAST  1057 


REF  3 LAST  1063 


REF  580  LAST  !Oo3 
REF  117  LAST  1063 


00  , 
00 , 


00, 

00, 

00  , 
00, 
00, 


2616  24  154 

2 o 17  1 2625 

2620  0 0006 

2621  1 2630 

2622  0 0006 

2623  26  154 

2624  6 C l 30 


1 

0 

1 

1 

1 

0 

0 


+ 3 INCR  M P AC 

YCF  F IN ALOV 


-UP  EXTEND 

RZF  FINALDV  +3 


EXTEND 
DIM  MPAC 

ENDMAXDV  AD  BUF 


3: 15  DEC 


2,1970 
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USER ' S PAGE  NO.  62 


E 3 S3 


IF  POSITIVE,  REDUCE  ONLY  IF 
SINCE  THE  COMPENSATING  INCR 
OVERFLOW. 

DONT  SUBTRACT  UNLESS  RESULT 
OR  ZEPO. 


NECESSARY 
MIGHT  CAUSE 

IS  POSITIVE 


KEEP  SUBTRACT 


HERE  AND  COMPFNSATF . 


IF  ZERO,  SET  MINOR  PART  OF  RESUIT  TO 
ZEPO. 


IF  NEGATIVE,  ADD  C TO 
TO  COMPENSATE.  DIM  IS 
MAJOR  PART  NEVER  GOES 


A,  SUBTRACTING  ONE 
OK  HEPE  SINCE  THE 
NEGATIVE. 


GAP: 


ASSEMBLE  EVISJ3N  001  Off  AGC  Bf.fUjRAfl  AP11R0PE  BY  EYL.ES 


L I N T f P F TE  ! 


1633 

00,2625 

22  007 

0 

F1NALDV 

ZL 

1 

00,2626 

0 0006 

1 

EXTEND 

1635 

REE 

113 

LAST 

1063 

00  ,2627 

10  I 30 

1 

DV 

BUF 

163*- 

REF 

581 

LAST 

106  3 

00,2630 

54  155 

1 

+ 3 

TS 

MP AC  +1 

1637 

REF 

6 

LAST 

1§6  3 

90,2631 

10  13fc 

1 

CCS 

DVSIGN 

1 

REF 

277 

LAST 

1054 

00,2632 

0 0002 

0 

TC 

0 

163° 

REF 

278 

LAST 

1064 

00,2633 

0 CO 02 

0 

TC 

Q 

1640 

REF 

2 79 

LAST 

1066 

00,2634 

0 0002 

0 

TC 

Q 

1641 

00,2635 

0 00  06 

1 

EXTEND 

164? 

REF 

58  2 

LAST 

1064 

00, 2636 

4 015  5 

1 

DCS 

MPAC 

1 

REF 

5e3 

LAST 

1064 

00,2637 

52  155 

1 

OXCH 

M P AC 

1646 

REF 

206 

LAST 

1060 

00,2640 

3 4755 

1 

CAE 

ZERO 

1645 

REF 

200 

LAST 

1064 

00, 2641 

0 0002 

0 

TC 

Q 

3:15  DEC.  2,1970  SKIPPER  .087  PAGE  1064 
USER'S  PAGE  NO.  63  E3  S3 

DO  DV  TO  OBTAIN  MINOP  PART  OF  RESULT. 


LEAVE  RESULT  POSITIVE  UNLESS  C(DVSIGN)= 

-0. 


SO  WE  ALWAYS  RETURN  WITH  CIA) 


0 


GAP:  ASSEMBLE  REVISION  001  OF  AGC  PROGRAM  AP11R0PE  BY  EYlFS  3:15  DEC.  2,1^70  SKIPPER  .087  PAGE  1065 

L INTERPRETER  USER'S  PAGE  NQ.  68  E3  S3 

P 1 646  IF  THE  MAJOR  PA-TS  OF  THE  DIVISOR  AND  DIVIDEND  ARE  EQUAL,  BUT  THE  MINOR  PARTS  ARE  SUCH  THAT  THE 

R 164 8 DIVIDEND  IS  STRICTLY  LESS  THAN  THE  DIVISOR  IN  MAGNITUDE,  THE  FOLLOWING  APPROXIMATION  IS  USED.  THE  ASSUMPTIONS 

R 1650  ARE  THE  SAME  AS  THE  GENERAL  ROUTINE  WITH  THE  ADDITION  THAT  SIGN  AGF  EEMENT  IS  NECESSARY  (B,  C,  & 0 POSITIVE). 

R 165?  C + SB  . (C  + B - D) 


R 16  5 3 = 37777  + S( ) 

R 1 6 5 4 C + SO  ( C ) 


R 16  55  THE  DIVISION  A AY  BE  PE.'  FORMED  : I MM  EDI  AT  EL  Y SINCE  B IS  STRICTLY  LESS  THAN  D AND  C IS  NOT  LESS  THAN  .5. 


1657 

P FF 

584 

LAST 

1064 

00, 2642 

4 

0154 

0 

MA  XDV 

CS 

1658 

REF 

119 

LAST 

1064 

00,2643 

6 

0130 

0 

AD 

1<  5S 

00,2644 

0 

0006 

1 

EXIF 

L 

00,2645 

1 

2647 

1 

BZF 

1661 

RFF 

2 

LAST 

1061 

00,2646 

1 

2370 

0 

TCF 

1 AA? 

15  pC 

| /\c;t 

] 06° 

00 , 2 6*  7 

3 

54 

/•  7 3 3 

1 

0 

+ 2 

C AF 

1 DO  21 

1663 

• r 

REF 

C.  3 

5 85 

LAST 

1065 

00,2650 

154 

TS 

M P AC  SEE  IF  MAX  DV  CASE  STILL  HOI  DS  AFTER 

BiJF  NORMALIZATION. 

+ 2 

GENDDV  MP AC  NOW  LESS  THAN  BUF  - DIVIDF  AS  USUAL 

POSMAX  SET  M A J OP  PAPT  OF  RESULT. 

M P AC 


1664  ,EF  120  LAST  1065  00,2651 

1665  REF  586  LAST  1065  0C,2652 

166  6 REF  2 LAST  106  3 00,2653 

A 1667 


4 

013  1 

0 

CS 

BUF  +1 

6 

015  5 

0 

AD 

MP AC  +1 

1 

2624 

1 

TCF 

ENDMAXDV 

FORM  DIVIDEND  OF  MINOR  PART  OF  RESULT. 

GO  ADD  C AND  DU  DIVIDE,  ATTACHING  SIGN 
BEFORE  EXITING. 


GAP:  ASSEMBLE  ft  E V I S I 3 F 001  F AGG  PK0GI-  AM  ARIIRUPE  BY  EYLES 

L INTERPRETER 

P 1 66 ft  VECTOR  DIVIDED  BY  SCALAF , V/SC,  IS  EXECUTED  HERE.  THE  VECTOR 


1670 

REF 

111 

LAST 

1057 

00 , 2654 

4 47  5 3 

0 

V / SC  2 

cs 

ONE 

167  1 

REF 

4 

LAST 

1061 

00,2655 

54  137 

0 

TS 

DVNOK MCT 

1672 

REF 

53 

l AST 

104  3 

00,2656 

54  127 

1 

TS 

VBUF  +6 

1673 

REF 

1 

00,2657 

0 3010 

0 

TC 

VECAGREE 

1674 

REF 

121 

LAST 

1065 

, 00,2660 

52  131 

0 

D X CH 

BUF 

16  75 

REF 

2 

LAST 

38  5 

00,2661 

0 7544 

0 

TC 

AISIGNAG 

167  6 

REF 

122 

LAST 

1066 

00,2662 

52  131 

0 

DX  CH 

BUF 

1 f 7 ' 

R FF 

12  3 

LAST 

l-'66 

no, . 9 /.  f.  i 

1 0 1 30 

CCS 

BUF 

\ ' I y c.'yJD 

1678 

REF 

1 

00,2664 

1 2721 

0 

TC  F 

/6UF  + 

16  7C 

00,2665 

1 2667 

0 

TCF 

+ 2 

1680 

REF- 

1 

GO, 2666 

1 2715 

1 

TC  F 

/8UF- 

16-51 

REF 

124 

1 AST 

1066 

00,2667 

56  131 

1 

XCH 

3UF  +1 

i (.  a o 

' p r 

l ? f 

LAST 

1066 

fir.  ; f-  7 n 

c f.  i-jn 

n 

yfu 

Qi  IF 

1 - r ' r. 

1 C. 

| 6 D Ml 

v O 1 D U 

A P n 

D Ui 

1633 

REF 

567 

LAST 

106  5 

00,2671 

56  155 

0 

XCH 

MP AC  +1 

1684 

REF 

588 

LAST 

1066 

00,2672 

56  i • 

1 

XCH 

MPAC 

1685 

nn  . 26 7 3 

0 0006 

EXTEND 

1686 

00,2676 

1 26  76 

0 

BZF 

+ 2 

1 6 ft  7 

REF 

3 

LAST 

1059 

00,2675 

1 2405 

0 

TCF 

ovnvF 

1 

REF 

530 

LAST 

1066 

00 , 2676 

56  160 

0 

XCH 

MPAC  +4 

168° 

REF 

5 °0 

LAST 

1066 

00,2677 

56  157 

1 

XCH 

MPAC  +3 

1690 

CC, 2700 

0 0006 

1 

EXTEND 

1691 

00,2701 

1 2703 

0 

BZF 

+ 2 

1692 

RFF 

4 

LAST 

1 066 

00,2702 

1 2405 

0 

TCF 

DVOVF 

1693 

REF 

591 

LAST 

1066 

00,2703 

56  162 

1 

XCH 

MPAC  +6 

1694 

REF 

592 

LAST 

1066 

00,2704 

56  161 

1 

XCH 

MPAC  +ft 

16  95 

00,2705 

0 0006 

F XTFMD 

1696 

00,2706 

1 2710 

1 

BZF 

+ 2 

160? 

RFF 

5 

LAST 

1066 

00,2707 

1 240  5 

0 

TCF 

DVOVF 

I 

REF 

126 

LAST 

1 066 

00,2710 

10  130 

1 

CCS 

BUF 

1669 

REF 

2 

LAST 

1066 

00,2711 

1 2721 

0 

TCF 

/ BU  F + 

1700 

REF 

6 

LAST 

1066 

00,2712 

1 2405 

0 

TCF 

DVCVF 

1701 

REF 

2 

LAST 

1 O'-  6 

on, 2713 

1 2715 

1 

TCF 

/BUF- 

1702 

REF 

7 

LAST 

1 066 

00,2714 

1 2405 

0 

TCF 

DVOVF 

1703 

00,2715 

0 0006 

1 

/ BUF— 

EXTEND 

1704 

REF 

127 

LAST 

1066 

00,2716 

4 0131 

0 

DCS 

BUF 

1705 

REF 

128 

LAST 

1 G d 6 

00,2717 

52  131 

0 

DXCH 

BUF 

1706 

RFF 

54 

LAST 

1066 

00,2720 

24  127 

0 

INCP 

VBUF 

3:15  DEC 


2 >19  70 


SK  IP  PEP. 


C87  PAGE  1066 


USER'S  PAGE  Nn.  65  E3  S3 

IS  NOW  IN  M P AC  WITH  SCALAR  IN  BUF. 

INITIALIZE  DIVIDEND  NORMALIZATION  COUNT 
AND  DIVISION  SIGN  REGISTER. 

FORCE  SIGN  AGREEMENT  IN  VECTOR 

SIGN  AGREE  BUF 

FOPCE  DIVISOF  POSTTTVE  WITH  MAJOR  PART 
NON-ZFRO  ( IF  POSS IBLE ) . 

SHIFT  VECTOR  AND  SCALAR  LEFT  14. 

CHECK  FOR  OVERFLOW  IN  EACH  CASE. 


ZERO  DIVISOR 


ON  NEGATIVE, 
DVSIGN  IN  VBU 


- OVERFLOW 


COMPLEMENT 
F +5. 


BUF 


AMD  MAINTAIN 


GAP  : 


ASSEMBLE  F E VI  S I 37  001  OF  AGC  PROGRAM  APllRGPE  BY  EYLES 


L INTERP  ETER 


1707  00,2721  0 0006  1 / BU F + EXTEND 

1708  REF  129  I AST  1066  00,2722  3 0131  1 DC A BUF 

1709  REF  17  LAST  1059  00,2723  52  134  0 DXCH  SUF2 

1710  REF  1 00 , 2724  1 2732  1 TCF  / NORM 


1711 

1712 

1713 

1714 
17  1 T 


REF  5 

REF  130 

REF  131 


LAST  1066 

LAST  1067 
LAST  1067 


00, 27?5 
00,2726 
00,2727 
.00,27  30 
00,2731 


0 °P0  6 1 
24  137  1 
0 C 0 06  1 
3 0131  1 
20  131  0 


/NfOF 


EXTEND 

AUG  DVNQRMCT 

EXTEND 
DCA  BUF 

DAS  BUF 


1716  PEF  132  I 

1717 

1718 

1719  REF  1 


AST  1067  00,273? 

00,2733 
00,2734 
00 ,2  73  5 


3 0130  0 /MOP" 
6 0000  1 
54  COO  0 
1 2725  1 


CA  BUF 

DOUBLE 

OVSK 

TCF  /NOR  M2 


1720 

1721 

R EF 
PEF 

1 

393 

LAST 

1066 

00,2736 

00,2737 

0 

52 

2750 

160 

1 

1 

172  2 

REF 

594 

LAST 

1067 

00 , 2740 

52 

155 

1 

1723 

RFF 

595 

LAST 

1067 

00,274  1 

52 

160 

1 

TO.  V/SCDV 

DXC.H  MPAC  +3 
DXCH  MPAC 
DXCH  MPAC  +3 


17  2 z 

1725 

1726 

17  1 

15  EF 
REF 

• P P 

2 

5Q6 

cq. 

LAST 

LAST 

1 AST 

106  7 
1947 

1 HAT 

00,27/ 2 
00, 27/ 3 

AA  i ? 7 a 4 

r r 

REF 

598 

L A v?  i 

LAST 

1067 

XJ  f C.  1‘T  H- 

00*2745 

0 

2 7 50 

1 

TC 

V/SCDV 

52 

162 

0 

DXCH 

MPAC  +6 

62 

l 

1 

DXCH 

M°  AC 

52 

1 62 

0 

DXCH 

MPAC  +5 

1728  REF  ' LAST  10-  7 00,27  0 27  50  1 C V/SCDV 

1729  REF  2 LAST  1G5C  00,274  7 1 7420  1 TCF  VRDT  AT  8X 


3: 15  DEC.  2,1970  SKIPPEP 
USER'S  PAGE  NO.  66 


.087  PAGE  1067 
E 3 S3 


LEAVE  ABSfORIG  DIVISOR)  IN  BUF  2 
FOR  OVERFLOW  TFSTING 
NORMALIZE  DIVISOR  IN  BUF. 

IF  LESS  THAN  .5,  AUGMENT  DVNORMCT  AND 
DOUBLE  DIVISOR. 


SEE  !f  DIVISOR  Nr^MALIZFD. 

DGUBLE  AND  TRY  AGAIN  IF  MOT. 

DO  X COMPONENT  DIVIDE. 

SUPPLY  ARGUMENT  IN  USUAL  SEQUENCE . 

Y COMPONENT. 


Z COMPONENT. 

GO  RE-ARRANGE  COMPONENTS  R EFr  E EXIT 


GAP:  ASSEMBLE  ;-EVIST3-N  001  OF  AGO  PRUgpAM  AP11R0PE  BY  EYLES 


3:15  DEC 


2,1970  SKIPPEF  .087  PAGE  1068 


L fMTFrpPETER 


USER'S  PAGE  NO.  67  E3  S3 


P 1730 


SUBPDU'  TNE  USED  BY  V/ SC  TO  DIVIDE  VECTOR  COMPONENT  IN  MPAC,+1  BY  THE  SCALAR  GIVEN  IN  BUF . 


1732  RFF  5b 

1733  RFF  7 


LAST  1066  00,2750  3 0127  0 V/SCDV  CA 
LAST  106.  A 00,2751  ^ 136  1 TS 


VBUF  +5 
DVS I GN 


REFLECTS  SIGN  OF  SCALAR. 


1736 

REF  599  LAST  10*7 

00,2752 

10 

1 54 

0 

CCS 

1735 

PEF  1 

00,2753 

1 

2767 

1 

TCF 

1736 

00,2754 

1 

2756 

0 

TCF 

1737 

REF  1 

00,2755 

1 

2763 

0 

TCF 

MPAC  FORCE  MPAC  prsiTIVE,  EXITING  ON  ZERO. 

/MPAC+ 

+ 2 

/MP AC- 


173  8 
1739 

n 

REF 

REF 

6 00 

2 

1 AST 

LAS” 

10  c 8 
106  9 

1064 

00,2756 
0 0 -,  2 7 5 7 

REF 

281 

LAST 

00,2760 

174  1 

REF 

2 

LAST 

1068 

00,2761 

1742 

REF 

282 

LAST 

1066 

00,2762 

10  105 

1 ? 7 r 7 

1 

1 

0 

CCS 

T€  F 

MPAC  +1 

/ M P A f 4- 

1 4(01 

0 0002 

TC 

Q 

1 2763 

0 

TCF 

/ MP  AC- 

0 COO 2 

0 

TC 

Q 

1743 


1744 

PEF 

60  1 

l AST 

1 06  6 

1745 

REF 

602 

LAST 

1068 

1746 

REF 

8 

LAST 

106  8 

1747 

REF 

112 

LAST 

106  6 

17AP 

REF 

4 

LAST 

1061 

1749 

REF 

603 

LAST 

106  8 

1750 

REF 

18 

LAST 

106  7 

1751 

REF 

343 

LAST 

106  0 

1752 

REF 

1 

1753 

175* 

RFF 

g 

1 A r T 

1 0 - ■ 6 

1755 

REF 

5 

LH  O i 

LAST 

1068 

175  * 
1757 
175  8 
1759 


REF  604 
REF  19 


LAST  1068 
LAST  1068 


REF 


9 LAST  10 p 3 


no  ,27  6 3 
00,2764 
00,2765 
00 , 2766 

90, 276 7 
00, 2770 

00,277  1 
00,2772 
00,2773 
00 , 7774 
00,2775 
<9  03  277  6 
00,2777 
OC  , 3000 
00,3001 
00,3002 
00 , 30 0 3 


0 00  0 6 1 
4 0155  1 
52  155  1 
24  136  0 

4 6-75  3 0 
4 1 0 0 

4 0154  0 
6 0133  0 
10  000  0 
1 3C  04  1 
1 2777  0 
1 2405  0 
54  140  0 
4 0155  1 
6 QA34  l 
0 0C06  1 

- 2<  u 5 1 


/MPAC- 


/ i P AC  +• 


EXTEND 
DCS  MPAC 

DXCH  MPAC 

I NCR  DVS IGN 

CS  ONE 

TS  MAXDVSW 

CS  MPAC 

AD  BUF2 

CCS  A 

TCF  DDVCAt  L 

TCF  +2 

TCF  ovnvF 

TS  MAXDVSW 

CS  MPAC  +1 

AD  BUF2  +1 

EXTEND 

8ZMF  OVUVF 


USUAL  COMPLEMENTING  AND  SETTING  PF  SIGN. 


INITIALIZE  NEAR— ONE  SWITCH. 


CHECK  POSSIBLE  OVERFLOW. 
UNNORMALIZED  INPUT  DIVISOR. 

NOT  NEAR-ONE 

+0  TS  JUST  POSSIBLE 

NO  HOPE 

SIGNAL  POSSIBLE  N EAR-ONE  CASE 
SEE  IF  DIVISION  CAN  BE  DONE 


1 ' 

PEF 

605 

LAST 

1068 

00,3004 

52  155 

1 

DDVCALL  DXCH 

MPAC 

CALL  PRE-DIVIDE  NORMAL  I Z ATI  OF  . 

1761 

REF 

6 

LAST 

1067 

00, 3005 

50  137 

1 

INDEX 

DVNORMCT 

176  2 

REF 

? 

LAST 

Lft&fi 

00,3006 

1 2565 

1 

TCP 

MAXTEST 

t 


GAP:  ASSEMB1E  REVISION  OOI  OF  AGC  PROGRAM  AP11R0PE  BY  EYLES 

L INTERPRETED 


3: 15  DEC.  2,1970  SKIPPER 
USER'S  PAGE  NO.  68 


.087  PAGE  1069 
E3  S3 


1763 


00,3007  32506  0 SLOPELO  DEC 


.8324 


1764  REF  26  3 CAST  1 ..'oS  ftp,  30 10  5t.  C02  0 VECAGREE  XCH 


1765  REF  606  LAST  1 06 ' 00,3011  52  155  1 DXCH 

1766  REF  3 LAST  1066  00,3012  0 7544  0 TC 

1767  REF  607  LAS"'  106'-  00,3013  52  156  1 DXCH 

L76I  EF  ( LAST  1 1 ,30]  52  160  1 DXCH 

1760  RFF  4 LAST  1069  00,3015  0 7544  0 TC 

1770  REE  6,05  LAST  1069  00,3016  52  160  1 DXCH 

1771  REF  610  LAST  1065  00,3017  52  162  0 DXCH 

1772  REF  5 LAST  106'*  00,302  0 0 7544  0 TC 

1773  REF  611  LAST  106®  00,3021  52  162  0 DXCH 

1774  RFF  344  LAST  1068  00,3022  0 0000  1 TC 


Q 

MPAC 

ALL  IGNAG 
MPAC 
MPAC  +3 
ALSIGNAG 
MPAC  +3 
MPAC  +5 
ALSIGNAG 
MPAC  +5 
A 


SAVE  C IN  A 
SIGNAGFEE  MPAC 

SIGN  AGFEE  MPAC  +3 

SIGNAGFEE  MPAC  +5 


GAP:  ASSEMBLE  REVISION  001  OF  AGC  PLUG!  AM  AP1LR.0PE  BY 

L INTERPRETER 

P 1775  THE  FOLLOWING  ROUTINE  EXECUTES  THE  UNI 


EYLES 

T INSTRUCTION, 


WHICH 


1777 

REF 

2 

LAST 

1066 

CO, 3023 

0 

3010 

0 

17  78 

REF 

3 

LAST 

1039 

00,3024 

0 

7532 

1 

1779 

REF 

207 

l AST 

106  4 

00,3025 

3 

6755 

1 

1780 

REF 

1 Agy 

i n 7 

n o • ^ o ? a 

56 

121 

0 

XJ  J > ZJ C.  O 

1781 

REF 

20 

LAST 

924 

CO, 3027 

54 

141 

1 

1782 

REF 

1 

00,3030 

0 

33  17 

1 

1783 

REF 

21 

L AST 

107  0 

00,3031 

3 

Cl  41 

0 

1784 

«EF 

7 

1 AST 

1 07  C 

00,3032 

56 

121 

0 

178  5 

00,3033 

0 

0006 

1 

1786 

00  T 30  3A 

3 036 

o 

1787 

REF 

10 

LAST 

1068 

00,3035 

1 

2.405 

0 

173P 

00,3036 

0 

0006 

1 

1789 

REE 

612 

LAST 

1069 

00,3037 

3 

01  55 

0 

1790 

REF 

46 

LAST 

1024 

00,3040 

5 0 

120 

1 

1791 

REF 

1 

00 , 304 1 

52. 

043 

1 

TC 

TC 

CAF 

XCH 

TS 

TC 

CA 

XCH 

EXTEND 

BZF 

TCF 

EXTEND 
DC  A 
INDEX 
DXCH 


VECAGREE 
M PACVBUF 
ZERO 
OVF I ND 
TEM1 
VS Q SUB 
TEM  1 
OVF IND 

+ 2 

DVOVF 

MPAC 
FIXLCiC 
LVSQUAR  F 


1792 


REF 


00,3042  0 3343  0 


TC 


SQRTSUB 


179  3 

REF 

613 

L AST 

10  7*0 

CO, 3043 

10  154 

0 

CCS 

MPAC 

1794 

00,3044 

1 305  1 

1 

TCF 

+ 5 

1795 

REF 

200 

L AST 

1061 

00, 3045 

5 4 001 

1 

TS 

L 

1796 

REF 

4 7 

LAST 

1070 

00, 30^6 

50  120 

1 

INDEX 

FfXL’C 

1797 

REF 

1 

00,3047 

52  045 

1 

DXCH 

LV 

1798 

REF 

11 

LAST 

1 07  C 

00,3050 

1 2405 

0 

TCF 

DVOVF 

1799 

REF 

2 

LAST 

562 

00,305  1 

4 63)7 

1 

CS 

FOURTEEN 

1800 

REF 

47 

LAST 

10  5R 

00,3052 

6 013  5 

0 

AO 

M PT  E M P 

1801 

RFF 

345 

LAST 

1 06  9 

00,3053 

10  000 

0 

CCS 

A 

1802 
180  3 

P E F 

1 

00,3054 

00,3055 

4 0000 

1 3133 

0 

1 

COM 

TCF 

SMALL 

1804 

REF 

1 

00,3056 

1 3065 

0 

TCF 

LARGE 

1805 

RFF 

j 

on  . -2 n c 7 

4 4761 

1 

r c 

TUT  ~ TEC  f ! 

1 

L o 

! (11  T C Cl  ' 

1806 

REF 

48 

LAST 

1070 

00,3060 

54  13  5 

1 

TS 

M PTE  MP 

1807 

REF 

614 

LAST 

i 0 1 • 

00,3061 

3 0154 

1 

CA 

MPAC 

1808 

F EF 

201 

LArT 

107  0 

00,3062 

54  001 

1 

SMALL 2 

TS 

L 

1809 

REF 

208 

l AST 

I 070 

CO, 3063 

3 47  55 

1 

CAF 

ZERO 

1810 

REF 

1 

00,3064 

1 3112 

1 

TCF 

L ARCE2 

181  1 

REF 

49 

LAST 

1070 

00,3065 

10  135 

1 

LARGE 

CCS 

MPTEMP 

1812 

REF 

1 

00,3066 

1 3074 

0 

TCF 

LARGE 3 

1813 

REF 

1 

00,306 7 

4 2024 

1 

CS 

SR  DO  V 

1814 

r'EF 

50 

LAST 

1070 

00,3070 

54  135 

1 

TS 

MPTEMP 

181  5 

00,3071 

0 0006 

1 

EXTEN 

D 

1816 

REF 

615 

LAST 

1070 

00,3072 

3 0155 

0 

DC  A 

MPAC 

3:15  DEC 


2 ,1970 


SKIPPER  .087  PAGE  1070 


USER'S  PAGE  NO.  69  E3  S3 

TAKES  THE  UNIT  OF  THE  VECTOR  IN  MPAC. 

FORCE  SIGN  AGREEMENT  IN  VECTOR 
SAVE  ARGUMENT  IN  VBUF 

MUST  SENSE  OVERFLOW  IN  FOLLOWING  DOT. 


DOT  MPAC  WITH  ITSELF. 


LEAVE  THE  SQUARE  OF  THE  LENGTH  OF  THE 
ARGUMENT  IN  L V S QU  AE  E. 


GO  TAKE  THE  NORMALIZED  SQUARE  POCT. 

CHECK  FOE  UNIT  OVFRFLOW. 

MPAC  IS  NOT  LESS  THAN  .5  UNLESS 


INPUT  TO  SQRTSUB  WAS  0. 

SEE  IF  THE  INPUT  WAS  SO  SMAI  l.  THE  THE 
FIRST  TWO  F EG I ST  FP  S OF  THE  SQUARE  WERE  0 

IF  SO,  SAVE  THE  NEGATIVE  OF  THE  SHIFT 
COUNT  -15D. 

(THIS  IS  USUALLY  THE  CASE.) 

IF  THE  SHIFT  COUNT  WAS  EXACTLY  14,  SET 
THE  PRE-DIVIDE  NORM  COUNT  TO  -I3D. 

5HIFT  THE  LENGTH  RIGHT  14  BEFORE  STORING 
(SMALL  EXITS  TO  THIS  POINT). 

GO  TO  STORE  UnGTH  AND  PROCEED. 

MOST  ALL  CASES  COME  HERE. 

SEE  IF  NO  NORMALIZATION  WAS  REQUIRED  BY 

SQRT,  AND  IF  SO,  SET  IJP  FOR  A SHIFT 
RIGHT  1 BEFORE  DIVIDING  TO  PRODUCE 
THE  DESIRED  HALF  UNIT  VECTOR. 


GAP  : 

L 

1817 


ASSEMBLE  RE  VIS  I 31.  001  OF  A,GC  PROGRAM  API  1 <OPE  BY  EYLES 
INTERPFETEg 

REF  2 LAST  1070  00,3073  1 3112  1 TCF  LARGE2 


3: 15  DEC.  2,1970  SKIPPER 
USER'S  PAGE  NO.  70 


.087  PAGE  1071 
E 3 S3 


ASSEMBLE  I • E V I S.1 0 L 001  CF  AGC  PROGRAM  AP11R0PE  BY  EYEES 


GAP  : 


L I NT  ERPF  FT  FR 


1818 

181° 

REF 

51 

LAST 

1070 

00,3074 

00,3075 

4 COOO 
54  135 

0 

1 

LARGE3 

COM 

TS 

MPTEMP 

182  0 

00,3076 

4 00 DO 

0 

COM 

1821 

PEF 

34  6 

LAST 

107  0 

00,3077 

50  000 

1 

INDEX 

A 

1822 

REF 

61 

LAST 

1069 

00,3100 

3 4736 

1 

CAF 

BIT14 

1823 

REF 

133 

LAST 

106  7 

00,3101. 

54  130 

1 

TS 

BUF 

1 82  A 

00,3102 

0 C006 

1 

EXTEND 

1825 

REF 

616 

LAST 

107  0 

00,3103 

7 0155 

1 

MP 

MPAC  +1 

1826 

R E F 

134 

LAST 

107  2 

00,3104 

96  130 

0 

XCH 

BUF 

1627 

00, 31 "5 

0 CC06 

1 

EXTEND 

R F F 

617 

LAST 

107  2 

-•in  . -i  1 ri a 

7 Cl  54 

0 

MP 

MPAC 

IDZ  p 

• 7 f J I VO 

1829 

RFF 

202 

LAST 

1070 

00,3107 

56  001 

0 

XCH 

L 

1830 

REF 

135 

LAST 

1072 

00,3110 

6 0130 

0 

AD 

BUF 

1 p 1 1 

RFF 

? n? 

| A FT 

1 0.7? 

i , n . ? i i i 

56  C01 

n 

XCH 

1 

1 O D 1 

rvC  r 

C L-  .3 

U-  r\  '0  1 

1 L/  < 6. 

■ • ; J Jill 

%Ji 

1832 

REF 

46 

LAST 

1070 

00,3112 

50  120 

l 

LARGE  2 

INDEX 

FI  Xl.CC 

1 R3"* 

0 EF 

? 

LAST 

1070 

00,31  13 

5 2 045 

DXC  H 

L V 

1834 

REF 

1 1 3 

LAST 

I 068 

00,3114 

4 4753 

0 

cs 

ONE 

1835 

REF 

6 

LAST 

M&jjLm 

00, 3115 

54  140 

0 

TS 

MAX D VS  W 

1836 

REF 

56 

LAST 

106  8 * 

00,3116 

52  123 

0 

DXCH 

VBUF 

1837 

REF 

61  « 

LAST 

I 972 

00,3117 

52  155 

1 

DXC  H 

MPAC 

1638 

PEF 

136 

LAST 

1072 

00,3120 

52  131 

0 

DXCH 

BUF 

1839 

PEF 

I 

00,312  1 

0 3151 

1 

TC 

UNI TDV 

1840 

>EF 

57 

LAST 

1.072 

00,3122 

52  125 

0 

DXCH 

VBUF  +2 

1841 

REF 

61  9 

LAST 

1072 

00,3123 

5 2 155 

1 

DXCH 

MPAC 

1842 

R F F 

620 

LAST 

1072 

00,31  2^ 

c 2 160 

1 

DXCH 

MPAC  +3 

1843 

REF 

2 

LAST 

1072 

00,3125 

0 3151 

1 

TC 

UNI TDV 

1844 

REF 

58 

LAST 

1072 

00,3126 

52  127 

1 

DXCH 

VBUF  +4 

1845 

PEF 

621 

LAST 

1072 

00,3127 

52  155 

1 

DXCH 

MPAC 

1846 

REF 

622 

LAST 

1072 

00,3130 

5 2 1 e>2 

0 

DXCH 

MPAC  +-r 

1847 

REF 

3 

LAST 

1072 

00,3131 

0 M l 

1 

TC 

UNI  TDV 

1848 

REF 

3 

LAST 

1067 

00,3132 

1 7420 

1 

TC  F 

VPOTATEX 

3:15  DEC.  2,1970  SKIPPER  .087  PAGE  1072 

USER' S PAGE  NO.  71  E3  S3 

LEAVE  NEGATIVE  OF  SHIFT  COUNT-1  FOR 
PREDIVIDE  LEFT  SHIFT. 

PICK  UP  REQUIRED  SHIFTING  BIT  TO  UNNCRM- 
ALIZE  THE  SQPT  RESULT. 


(UNNORMAL I ZE  THE  S QpT  FO^  LV). 


LENGTH  NOW  SCORED  IN  WORK  AREA. 


NO  MAXDV  CASES  IN  UNIT. 

PREPARE  X COMPONENT  FOR  DIVIDE,  SETTING 
LENGTH  OF  VFCTOR  AS  DIVTSOP  IN  BUF. 


DO  Y AND  Z IN  USUAL  FASHION  SO  WE  CAM 
EXIT  THROUGH  VROTA^EX. 


AND  EXIT 


9 


I 

) GAP;  ASSEMBLE  REVISION  001  IF  AGC  PROGRAM  AP11R0PE  BY  EYLES 

I L INTERPRETER 


3:15  DEC.  2,1970  SKIPPER 
USER ' S PAGE  NO.  72 
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P 1849  IF  THE  LENGTH  OF  THE  ARGUMENT  VECTOR  WAS  LESS  THAN  2 { — 2 B ) , EACH  COMPONENT  MUST  BE  SHIFTED  LEFT  AT  LEAST 

I R 185 1 14  PLACES  BEFORE  THE  DIVIDE.  NOTE  THAT  IN  THIS  CASE,  THE  MAJOR  PART  OF  EACH  COMPONENT  IS  ZERO. 


1 0 5 3 

1854 

1855 

REF 

C l- 

52 

209 

59 

I AST 

1 A Q T 

1072 

] 07  0 
1072 

00,3133 

( ( Gt  l if. 

NLL 

REF 

L n J 1 

LAST 

Ul  1 P I 3 H 

00,3135 

1856 

REF 

60 

LAST 

107  3 

00,3136 

1857 

REF 

61 

LAST 

107  3 

00,3137 

1858 

REF 

62 

LAST 

1073 

00,3140 

1 5 5 9 

REF 

63 

LAST 

1073 

00, 3141 

186  6 

REF 

64 

LAST 

107  3 

00,3142 

54  13  5 1 S“AU 

3 *755  1 
56  123  1 
56  122  0 
56  125  1 

56  124  0 
56  127  0 
56  126  1 


TS  MPT  EMP 

CAF  ZERn 

XCH  V BUF  +1 

XCH  VBUF 

XCH  VBUF  +3 

XCH  VBUF  +2 

XCH  VBUF  +c 

XCH  VBUF  +4 


I 1861  REF  53  LAST  1073  00, 

1562  Fl  347  LAST  1072  DC, 

1863  REF  62  LAST  1072  CO, 

► 1864  00, 

1 f ■ ~EF  623  I AST  107?  00, 

1866  REF  1 CO, 

> 


3 14  3 

4 

0135 

1 

cs 

MPT  EMP 

3144 

50 

0 00 

1 

INDEX 

A 

314  5 

3 

4736 

1 

CAF 

BIT  14 

3146 

0 

CO  06 

1 

EXTEND 

2 1 4? 

7 

1 

0154 

3062 

n 

MD 

m p a r 

3 It  > 

3150 

U 

1 

i i r 

TCF 

SMALL2 

1 L 6 7 

REF 

4 

LAST 

950 

4761 

1 

REF 

1 

4 317 

1 

REF 

13 

LAST 

457 

*317 

THIRTEEN  = OCT  1.5 

FOUR  T EEN  = OCT  1 6 

f ' C T 1 6 = • ipi 


NEGATIVE  HE  PRE-DIVIDE  SHIFT  COUNT. 
SHTET  EACH  COMPONENT  LEFT  14. 


i 


I 


I 


# 


GAP:  ASSEMBLE  REVISION  0C1  OF  A Gfi  PROGRAM  AP11RGPE  BY  EYLES 


3: 15  DEC 


2,1970  SKIPPER 


087 


PAGE  1074 


P 1870 

1871 

1872 

1873 

1874 

1875 
1874, 

1877 

1878 

1879 

1880 
1381 
1882 
18  8 3 
1886 

1885 

1886 
1887 
18PP 
1 RB  c 


INTERPRETER  USER'S  PAGE  NO.  73  E3  S3 

THE  FOLLOWING  ROUTINE  SETS  UP  THE  CALL  TO  THE  DIVIDE  ROUTINES. 


REF 

6 24 

LAST 

107  3 

00,3151 

10  154 

0 

UNI TOV 

CCS 

MPAC 

FORCE  MPAC  POSITIVE  IF  POSSIBLE,  SETTING 

REF 

1 

00,3152 

1 3170 

0 

TCF 

UMPAC+ 

DVSIGN  ACCORDING  TO  THE  SIGN  OF  MPAC 

00, 3153 

1 3155 

1 

TCF 

+ 2 

SINCE  THE  CIVISPP  IS  ALWAYS  POSITIVE 

REF 

00,31^4 

1 3162 

o 

TC  F 

ijf^p  AC— 

n tr  t • 

REF 

625 

LAST 

1074 

00,3155 

10  155 

1 

CCS 

MPAC  +1 

REF 

2 

LAST 

1074 

00,3156 

1 3170 

0 

TCF 

UMPAC+ 

REF 

284 

LAST 

1069 

00,3157 

0 0002 

0 

TC 

0 

EXIT  IMMEDIATELY  ON  ZEPC. 

REF 

2 

LAST 

1076 

00,3160 

1 3162 

0 

TCF 

UMP AC— 

D EF 

285 

1 AST 

! 074 

0 0,3161 

o or  0? 

o 

T C 

n 

REF 

210 

LAST 

107  3 

00,3162 

4 4755 

0 

UMPAC- 

CS 

ZERO 

IF  NEGATIVE,  SET  -0  IN  DVSIGN  FOF  FINAL 

REF 

9 

LAST 

1068 

00, 3163 

56  136 

1 

TS 

DVSIGN 

COMPLEMENT. 

00,3164 

0 0006 

1 

EXT  END 

REF 

6 26 

LAST 

1076 

00,3165 

4 0155 

1 

DCS 

MPAC 

PICK  UP  ABSOLUTE  VALUE  OF  ARG  AMD  JUMP. 

REF 

54 

| AST 

107  3 

00,3166 

50  13  5 

o 

I NDE  X 

M 1)T  tup 

REF 

3 

LAST 

1068 

00,3167 

1 2 5 64 

0 

TCF 

1 ' r 1 T_  1 IJ 

MAXTEST  -1 

F.EF 

10 

LAST 

1074 

GO, 3170 

54  136 

1 

UMPAC  + 

TS 

DVSIGN 

SET  DVSIGN  FOR  POSITIVE  QUOTIENT. 

REF 

627 

LAST 

1074 

00, 3 1 T 1 

52  155 

1 

DXCH 

MPAC 

REF 

5 5 

LAST 

1074 

00,3172 

1 35 

0 

INDEX 

MPTE  -IP 

REF 

4 

LAST 

1074 

PO, 3173 

1 2 5 64 

0 

TCF 

"AX  r I ST  -1 

GAP:  ASSEMBLE  REVISION  0C1  OF  AGC  PROGRAM  AP11ROPE  BY  EYLES 


L INTERPRETER 

P 1890  MISCELLANEOUS  UNARY  OPERATIONS. 


16V 1 REF  1 GO, 

1 J ? 2 LF  '3 . ■ LA":  • 1C '-0  CO, 

18°3  REF  33  LAST  1066  00, 

189 A REF  3 LAST  824  00, 

1895  REF  4 LAST  1075  CC, 

ILL"  REF  2 LAST  1070  00, 

1897  OFF  34  LAST  1075  '0, 

1898  00, 

1899  REF  628  LAST  1074  00, 

1900  REF  49  LAST  1072  00, 

1901  REF  2 LAST  1070  00, 


3 1 14 
317  5 

3176 

3177 
3200 

0 3300 

1 60  61 

10  163 

1 3226 
1 322  6 

1 

1 

1 

0 

0 

DSQ 

ABVAL  ABS 

TC 

TCP 

CCS 

TCF 

TC  F 

320  1 

0 331? 

1 

ABVAL 

~C 

32 C 2 

22  163 

0 

LXCH 

3203 

0 0006 

1 

EXTEND 

3204 

3 0155 

0 

DC  A 

3205 

50  120 

1 

INDEX 

320  6 

5 2 043 

1 

DXCH 

OS Q SUB 
DAN 2 IG 

MODE 

ABS 

ABS 

VSQSUB 

MODE 


MP  AC 

FIXLUC 

LVSQUARE 


3:15  DEC.  2,1970  SKIPPER  .087  PAGE  1075 
USER'S  PAGE  NO.  74  E3  S3 


SQUARE  THE  OF  CONTENTS  OF  MPAC. 


ABVAL  OR  ABS  I NSTRUCT  ION. 
DO  ABS  ON  SCALAR. 


DOT  MPAC  WITH  ITSELF. 

MODE  IS  NOW  DP  U ZERO  AFTER  DAS). 

STORE  SQUARE  OF  LENGTH  IN  WORK  AREA. 


GAP:  ASSEMBLE  .--EVISI3N  001  CF  AGC  r:  OGRAM  API  1RUPE  BY  EYLES 


3:15  DEC 


2,1970 


SKIPPER  .087  PAGE  1076 


0 


L INTERPRETER 


USER'S  PAGE  NO.  79 


E3  S3 


P 1902 
P 190  3 
R 1905 
R 1906 
o 1908 
R 1919 
R 1912 
R 1914 
R 1916 
R 1917 
R 1919 
R 1920 
R 192  1 
R 1922 
1923 
192  4 
1°  2 * 
1926 


PROGRAM  DESCRIPTION-  SUBROUTINE  SORT 

FUNCTIONAL  DES  CP.  I PT I CL'-OOUBL  E PRECISION  SQUARE  ROOT  ROUTINE 

THIS  PROGRAM  TAKES  THE  SQUARE  ROOT  OF  THE  27  OR  2.8  MOST  SIGNIFICANT  BITS  IN  THE  TRIPLE  PRECISION  SET  OF 
NUMBE  RS -MP  AC,  F P AC+T  , AMD  HP  AC +2.  THE  POUT  IS  RETUPNEO  DOUBLE  PRECISION  IN  MPAC  AND  MPAC+I. 

W AT ; T *■  G—  THIS  SUBT  OUT  IN  E USES  A T:  TPLE  PRECISION  INPUT.  THE  PROGRAMMER  MUST  ASSURE  THE  CONTENTS  OF  MPAC+2 
FSPECIAMY  IF  THE  CONTENTS  OF  MPAC  IS  SMALL  OR  ZFRO.  FOR  DETAILS  SEE  STG  MEMO  NO. 949. 

CALLING  SEQUENT F-  IN  INTERPRETIVE  NUDE  I.E.,  FOLLOI  > ET,SQRT  NO  ADDRESS  IS  ALLOWED 

INPUT  SCALING  THE  BINARY  POINT  IS  ASSUMED  TO  THE  RIGHT  OF  BIT  15.  THE  ANSWER  IS  RETURNED  WITH  THE  SAME  SCALING 
SUBROUTINES-  GENSCR  »MPACS,H!  , SQRTSUB, ABORT 

AB> 1 EXIT  MODE-  ABO  ' S i NEGATIVE  INPUT  -1.2X10E-4  (77775  OCTAL ( OR  LESS. 

DISPLAYS  ERROR  CODE  1302 
rr  ABODT 
OCT  1302 

DEBRIS  - LOCATIONS  BUF, MPTEMP, AODRWD  ARE  USED 


REF 

2 

LAST 

1 07  C 

00,3207 

0 

3343 

0 SQR'i 

iC 

SQRTSUB 

TAKE  THE. 

SQUARE  ROOT 

OF  MPAC. 

PEF 

56 

LAST 

1074 

00,3210 

10 

135 

1 

CCS 

MPTEMP 

RETURNED 

NORMALIZED  S 

QUARE  ROOT.  SEE  IF 

00,3211 

l 

3213 

0 

TCF 

+ 2 

ANY  UN-NOR  MAI  IZAT10N 

REQUIRED  AND  EXIT 

PFF 

35 

LAST 

107* 

00,3212 

1 

606  1 

1 

TCF 

DANZIG 

TF  NOT. 

1^27 

i q?  o 

REF 

3 

LAST 

1055 

00,3213 
no . \ 7 1 4 

6 

Q 

3733 

0006 

0 

1 c.  t 

1929 

PEF 

1 

00,3215 

6 

3221 

0 

1930 

00,3216 

2 2 

007 

0 

1931 

RFF 

80 

LAST 

1086 

00,3217 

22 

1 16 

1 

1932 

REF 

4 

LAST 

1055 

00,3220 

1 

2303 

1 

1*33 

REF 

57 

LAST 

1076 

00  ,3221 

50 

135 

0 

1 c 3 * 

REF 

36 

LAST 

10  26 

00,3222 

3 

473  5 

I 

1931 

PEF 

58 

LAST 

1076 

00,3223 

54 

135 

1 

1936 

RFF 

211 

LAST 

107  6 

00,3224 

3 

4755 

1 

1937 

REF 

2 

LAST 

1055 

00,3225 

1 

2036 

1 

193  8 

REF 

6 

LAST 

10  52 

00, 3226 

0 

6723 

1 

1 9 3 c 

REF 

36 

LAST 

1076 

OO, 3227 

1 

60  61 

1 

1940 

REF 

37 

LAST 

1076 

00,3230 

1 

6061 

1 

1*41 

REF 

4 

LAST 

104  6 

0 r,  323  1 

1 

7670 

0 

AO  NEG12  A RIGHT  SHIFT  OF  MORE  THAN  13  COULD  BE 

EXTEND  REQUIRED  IF  INPUT  WAS  ZERO  IN  MPAC,+1. 

BZMF  SQRTSHFT  GOES  HEC  E IN  MOST  CASES. 

Zt  IF  A LONG  SHIFT  IS  REQUIRED,  GO  TO 

LXCH  AOD'WD  GENERAL  r I GHT  SHIFT  ROUTT NES. 

TCF  GENSCR  +4  ADDRWD  WAS  ZERO  TO  PREVENT  ROUND. 


SQRTSHFT  INDEX  MPTEMP 

CAF  BIT15 

TS  MPTEMP 

CAF  ZERO 

TCF  MPAC  SHR  +3 


SELECT  SHIFTING  BIT  AND  EXIT  THROUGH 
SHIFT  POUTINFS. 

TO  ZEPO  MPAC  +2  IN  THE  PROCESS . 


' c 

BRANCH 

TCF 

DANZIG 

TCF 

DAN 7 IG 

TCF 

COMP 

TEST  S 


GN  OF  MPAC  AND 


COMPLEMENT 


! F 


* 


GAP: 

L 

1942 

1 

1Q44 

194? 

1946 

1947 

1 Q4  R 

1949 

1950 

1951 

1952 

195  3 

1954 

l 

1 9 5 - 

1557 

1958 

1 9 5 9 

I960 

196  1 

1962 

196  3 

1964 

196  5 

1966 

1967 

196  8 

196  9 

1970 

1971 

1972 

1973 

1974 

iv,"-- 

197< 

1""  7 

1978 

1979 


ASSEMBLE  REVISION  001  OF  AGC  PROGRAM  APllkQPE  BY  EYLES 


3:15  DEC 


2,1970  SKIPPER 


087  PAGE  1077 


INTER  PR ET  EP 

REF 

22 

LAST 

1041 

REF 

23 

LAST 

1044 

REF 

348 

LAST 

107  3 

REF 

6 2° 

LAST 

O V 

I 

REF 

24 

LAST 

1077 

REF 

630 

LAST 

1077 

REF 

2 

LAST 

104  l 

REF 

3 

LAST 

1075 

PEF 

l 

REF 

431 

I.AST 

1077 

OFF 

O# 

I 4CT 

1 Ott 

c.  " 

LAI 

REF 

35 

LAS  . 

107  f 

REF 

5 

LAST 

3 02  1. 

REF 

26 

LAST 

1077 

PEF 

36 

LAST 

107  7 

REF 

1 

REF 

38 

LAST 

10  76 

o p p 

4.  9*  o 

! ACT 

1 07  7 

r\  C r 

O D C. 

L A d 1 

I ' ' f f 

REF 

27 

LAST 

1077 

PEF 

633 

LAST 

107  7 

REF 

28 

LAST 

107  7 

REF 

39 

LAST 

1077 

REF 

634 

LAST 

1077 

REF 

2 

LAST 

102  0 

USER'S  PAGE  NO.  76 


E3  S3 


00,3232 
C 0, 3233 
00,3234 
00,3235 
00,3236 
90,3237 
00,3240 
00,3241 
CO, 3242 
no  , 3243 
00,3244 

00,3245 
00,324 6 

CO, 3247 
00,3250 
00, 325  1 
00,3252 

00,3253 
t '4  32  54 
00,3255 

00,3256 

00,3257 

00,3260 

00,32' ] 
0 0,324  2 
00 , 3263 
00, 3264 
00,3265 
00,3266 
00, 3267 
00,3270 
00,3271 

00,3272. 
00 , 3273 


4 47 51  1 VDEF 
2 1 166  1 

0 0006  1 

5 0000  1 

3 COO  3 1 
5 2 160  1 
0 0006  1 

4 0166  0 
3 0 001  0 
c' 2 162  0 
1 4321  0 

0 3317  1 VS Q 

1 7332  0 

0 0006  1 PUSH 
3 <U55  0 

50  166  0 
52  001  1 

50  163  0 
3 c 2 4 0 

26  16 t 1 

10  163  1 

1 3272  1 
1 6061  1 

0 CCO-  1 
3 0160  0 

50  166  0 

51  1 775  0 
0 0006  1 
3 0162  1 
50  166  0 
#’777  1 

1 6061  1 

3 0156  0 TPUSH 
1 6554  1 


OS  FOUR 

ADS  PUSHLOC 
EXTEND 
INDEX  A 
DC  A 2 

DXCH 
EXTEND 
INDEX 
DC  A 
DXCH 
TCF 


MPAC  +3 

PUSHLOC 

0 

MPAC  +5 
VMODE 


TC  VSQ5UB 

TCF  DMODE 

cXTEND 
OCA  MPAC 

T NOE  X PUSHLOC 

DXCH  0 

INDEX  MODE 

CAF  NO. WPS 

ADS  PUSHLOC 

CCS  MODE 

TCF  TPUSH 

TCP  DANZIG 


EXTEND 

DC  A 

INDEX 

DXCH 

EXTEND 

DC  A 

INDEX 

DXCH 

TCF 


MPAC  +3 
PUSHLOC 
0 -4 

MPAC  +c 
PUSHLOC 
0 -2 
DANZIG 


CA  MPAC  +2 

TCF  E NOT  PUSH  +2 


VECTOR  DEFINE  - ESSENTIALLY  TREATS 
SCALAR  IN  MPAC  AS  X COMPONENT,  PUSHES  UP 
FOR  Y AND  THEN  AGAIN  FOR  Z. 


MODE  IS  N ON  V ECTnP . 

DOT  MPAC  WITH  ITSELF. 

MODE  IS  NOW  DP. 

PUSH  DOWN  MPAC  LEAVING  IT  LOADED. 

PUSH  DOWN  FIRST  TWO  REGISTERS  IN  EACH 

INCREMENT  PUSHDOWN  POINTER. 


PUSH  DOWN  MPAC  +2. 

DONE  FOR  DP. 

CM  VECTOR.,  PUSH  DOWN  Y AMD  Z COMPONENTS. 


RE  59  LAST  1 I??  Cn,  32'7'-  50  120  1 PVQ  INDEX  FIXLf'C 

REF  11  LAST  1023  00,3275  3 0052  0 CA  QPRET 

REF  22  LAST  1035  00,3276  54  117  1 TS  POLISH 

■TEE  5 LAST  1024  (0,3277  1 6652  1 TCF  GOTO  +4 


RVQ  - RETURN  IV A!  QP^ET, 


(ASSUME  QPRET  POINTS  TO  FIXED  ONLY.) 


AP:  ASSEMBLE  REVISION  001  OF  AGC  PROGRAM  API  1P.0PE  BY  EYIES 


L INTERPRETER 


P 1980  THE  FOLLOWING  SUBROUTINES  ARE  USED  IN  SQUARING 

R 1982  SPECIAL  CASES  OF  DMPSUB'AND  DOTSUB,  PUT  IN  TO  SAVE  SOME 


IS  83 
1934 

1 

REF 

63  5 

L AST 

1077 

O O C 
o-o  c 

- v 7 

1 

REF 

636 

LAST 

1 078 

00, 

1987 

REF 

212 

LAST 

1076 

CO, 

1 

REF 

63? 

LAST 

107  8 

00, 

1' 

CO, 

199T 

REF 

638 

LAST 

I 07; 

t 0, 

I ■ 

on . 

P 

i - 

REF 

639 

LAST 

1078 

00  , 

1993 

REF 

640 

LAST 

1078 

00, 

1994 

00, 

I 

00  , 

19  9 6 

REF 

(■  4 1 

LAS" 

107  8 

09  , 

1997 

RFF 

286 

LAST 

1 07A 

00, 

1 

00  , 

1 

REF 

a 

LAST 

103  3 

00 , 

■i  -■ 

2000 

P.  EF 

2 

1 AST 

1075 

00, 

2001 

REF 

642 

LAST 

10  78 

00, 

2002 

REF 

643 

LAST 

1078 

00, 

2003 

REF 

137 

LAST 

107  2 

00  , 

2' 

REF 

644 

LAST 

1078 

00, 

2005 

REf 

138 

LAST 

1078 

00, 

3300  3 0155  0 DSQSUB  CA 

3301  0 0006  1 EXTEND 

3 302  7 00 f>o  0 SQUARE 

3303  5 A-  156  1 TS 

330*  3 4755  1 CAF 

3305  56  155  0 XCH 

33 C * 0 00 C 6 1 EXTEND 

3307  7 0154  0 MP 

3310  20  001  1 DDOUBL 

3311  20  156  1 DAS 

3312  56  154  1 XCH 

3313  0 0006  1 EXTEND 

3314  7 0000  0 SQUARE 

3315  20  155  1 DAS 

3316  0 0002  0 TC 

3317  0 0006  1 VSQSUB  EXTEND 

3320  22  137  1 QXCH 

3321  0 3300  1 TC 

5322  52  160  1 DXCH 

33  23  52  1 5,:  1 DXCH 

3324  52  131  0 DXCH 

3325  3 0156  0 CA 

3324  54  132  0 TS 


2006 

2007 

2008 

REF 

REF 

3 

64  5 

LAST 

L A S T 

1078 

1 r)7  p 

00 

on 

REF 

139 

LAST 

107  8 

00 

2009 

REF 

64  b 

LAST 

1078 

00 

2010 

REF 

14G 

LAST 

1078 

00 

201  1 

t EF 

141 

LAST 

1078 

00 

2C  1 2 
2013 

c EF 

8 

LAST 

K t 

00 
9 0 

201a 

REF 

64  7 

LAST 

1078 

00 

2015 

REF 

648 

LAST 

107  8 

00 

201* 

REF 

4 

LAST 

1078 

09 

2017 

REF 

1 

00 

3327 
3339 
333  1 
3332 

3 0 3 7 

C 3300 
*2  156 
20  132 
6 0154 
6 0130 
57  130 

1 

1 

0 

1 

n 

TC 

DXCH 

DAS 

AD 

AD 

TS 

33  34 

1 

33  3 5 

1 33  3 7 

1 

TC  F 

333  6 

5*  121 

1 

TS 

3337 

52  162 

0 

DXCH 

3340 

52  155 

1 

DXCH 

3 3*  1 

0 3300 

1 

TC 

334  2 

1 7205 

0 

TCF 

MP AC  , If 
TIME. 

MPAC  +1 


MP AC  +2 
ZERO 
MPAC  +1 

MPAC 

MPAC  +1 
MPAC 


'■’PAC 

Q 


DOT RET 
DSQSUB 
MPAC  +3 
MP  AC 
BUF 

MPAC  +2 
BUF  + 2 

DSQSUB 
MPAC  +1 
BUF  +1 
MPAC 
BUF 
BUF 
+ 2 

PVFIND 

MPAC  +5 
MPAC 
DSQSUB 
ENDDCT 


3:15  DEC 


2 ,1970 


SKIPPER  .087  PAGE  1078 


USEF.  *S  PAGE  NO.  77  E3  S3 

BOTH  THE  SCALAP  AND  VECTOR.  SENSE.  THEY  ARE 

SQUARES  "HE  SCALAR  CONTENTS  PF  MPAC. 

FORM  2 ( CROSS  TERM ) . 

AND  MAYBE  Of ER FLOW. 

AND  SET  A TO  NET  OVERFLOW  . 


DOTS  THE  VECTOR  IN  MPAC  WITH  ITSELF. 
SQUARE  THE  X COMPONENT . 

SO  WE  CAM  END  IN  DOTSUB. 

SQUARE  Y COMPONENT. 


IF  OVERFLOW. 


SQUARE  Z COMPONENT. 
END  AS  IN  DOTSUB. 


GAP: 


P 201  8 
R 2020 
R 2022 


2023 
202  A 

202  5 
202  8 

2027 

2028 


202  c 
203  ( 

2031 

2032 

203  3 

2034 

2033 

2036 

2037 

2038 
20  3 c 
2040 
206  1 

206  2 
2043 
2046 
2',-  1 

204  6 


2047 

2048 

200  9 
2050 
205] 

2052 

2053 

2058 

20541 

205* 


ASSEMBLE  REVISION  001  08  AGO  PROGRAM  AP11K0PE  BY  EYLES 
INTERPRETER 

DOUBLE  PRECISION  SQUARE  ROUT  ROUTINE.  TAKE  THE  SQUARE  ROOT 
IN  NORMALIZATION)  CONTENTS  OF  MPAC  AND  LEAVE  THE  NORMALIZED  RESULT  : 
.5).  THE  RIGHT  SHIFT  COUNT  (TO  UNNORMA L I LB)  IS  LEFT  IN  MPTEMP. 


rEF  213  LAST  1078 
REF  59  LAST  1076 


00 ,3343 
00, 3344 


3 6758  1 
54  135  1 


S OPT  SUB 


CAE 

TS 


Z ER  O 
MPTEMP 


REF  649  LAST  1076 
REF  1 


RFF 


1 


00,33+5 
00,3346 
00,334? 
00 , 3350 


10  15+  0 
1 3405  1 
1 3351  1 
1 3373  1 


CCS 

TCF 

TCF 

TCF 


M P AC 
SMPAC+ 

+ 2 

5QPTMPG 


REF  650 
REF  651 
REF  652 
kEE  14 
RFF  60 

REF  653 
REF  2 

REF  1 


LAST  1079 
LAST  1079 
LAST  1079 
(AST  96.9 
LAST  107o 

LAST  1079 
LAST  1075 


CO,  335  1 
00,3352 
00, 3353 
00, 3354 
no , 3355 

00,3356 

00,3357 

09.3360 

90.3361 


REF 

6 54 

LAST 

1079 

00 

REF 

655 

LAST 

1079 

00 

REF 

15 

LAST 

1079 

GO 

REF 

61 

LAST 

107  9 

90 

p k 

A 8 A 

I AC  T 

\ P "7  r 

P P 

> n r 

0 ~ c 

LAo  I 

Uu 

REF 

3 

LAST 

1079 

00 

REF 

287 

LAST 

1078 

00 

REF 

2 

LAST 

1075,, 

00 

RFF 

1 

00 

REF 

349 

LAST 

107  7 

00 

REF 

1 

00, 

P.FF 

65  7 

LAST 

1075 

oo. 

REF 

214 

LAST 

1079 

00. 

REF 

2 

LAST 

1 870 

00 

REF 

2 

LAST 

1079 

OC: 

REF 

3 

LAST 

1079 

00, 

REF 

27 

LAS1 

102  6 

00, 

REF 

1 

60, 

00, 3404 


56  156  0 
56  155  0 
54  154  0 
3 4757  0 
54  135  1 

10  154  0 
1 3405  1 
1 3362  1 
1 3376  1 

56  155  0 
54  154  0 
3 4757  0 
P 135  1 

10  154  o 
1 3405  1 
0 0002  0 
1 3376  1 
1 3883  1 


10  000  0 
1 3402  0 

10  155  1 
3 4755  1 
1 3453  1 
1 3402  0 
1 3963  1 

52  165  1 
0 5726  1 
01302  1 


XCH 

XCH 

TS 

CAF 

TS 

CCS 

TCF 

TCF 

TCF 

XCH 

TS 

CAF 

ADS 

CCS 

TCF 

TC 

TCF 

TCF 


SQRTNEG  CCS 
TCF 

CCS 

ZERPANS  CAF 
TCF 
TCF 
TCF 

SQkTABPT  DXCH 
TC 
OC  T 


MPAC  +2 

MPAC  +1 
MP  AC 
SEVEN 

jw  p-r  M P 

MPAC 

SMPAC+ 

+ 2 

ZEF PANS 

MPAC  +1 
MPAC 
SEVEN 
MPTEMP 

MPAC 
SMP  AC  + 

Q 

ZERO AN S 
F IXRC10I 


A 

SQRTABRT 

MPAC  +1 
ZERO 
F I XROCIT 
SQRTABRT 
F1XR0PT 


L PC 

P CO DC 01 
1302 


3:  15 


CF  THE 
N MPAC 


DEC.  2,1970  SKIPPER  .087  PAGE  1079 

USER'S  PAGE  NP.  78  E3  S3 

TRIPLE  PP  EC  I SI  ON  (MPAC  +2  USED  ONLY 
( C (MPAC  ) GREATEP  THAN  OR  EQUAL  TO 


START  BY  ZEROING  RIGHT  SHIFT  COUNT. 


CHECK  FOR  POSITIVE  ARGUMENT,  SHIFTING 
FIRST  SIGNIFICANT  MC>AC  FEGISTEC  INTO 
MPAC  ITSELF. 

SEE  IF  MAG  rF  ARGUMENT  LESS  THAN  10(-4). 
MPAC  IS  ZERO  - SHIFT  LEFT  14. 


AUGMENT  F ( GHT  SHIFT  COUNTER. 


SEE  IF  MPAC  NOW  PNZ. 


NEGATIVE  BUT  LESS  THAN  10 ( -4 ) IN  MAG. 
ZERO  - SHIFT  LEFT  14  AGAIN. 

AUGMENT  RIGHT  SHIFT  COUNTER. 


SQRT(O)  = 0. 

DO  NOT  LEAVE  SQRTSUB  WIrH  -0  IN  MPAC. 

ARGUMENT  IS  NEGATIVE,  BUT  SEE  IF  SIGN- 
CORRECTED  ARGUMENT  IS  LESS  THAN  10 ( -6 ) 

IN  MAGNITUDE.  IF  SC,  CALL  ANSWER  ZERO. 
FORCE  ANSWER  TO  ZERO  HERE. 


GAP: 

ASSEMBLE  ,,£  VISI  JN  001  OF  AGC  PROGRAM  AP 

11+  U P E BY 

L 

INTERPRETER 

2056 

REF  1 00,3405 

6 

2444 

1 SMPAC+ 

2057 

OC, 3406 

0 

0006 

1 

2058 

REF  1 0:0,3407 

6 

34  5 6 

0. 

EYLLS 


AD  -1/2+2 

EXTEND 

BZMF  SRTEST 


2059 

2060 
2061 
2062 

REE 

RFF 

6 5 § 

1 4 

REF 

17 

2063 

REF 

659 

2064 

P EF 

17 

2065 

R.  E F 

660 

LAST 

1079 

00 

1 /\sj 

106  1 

00 

CO 

LAST 

106  1 

00 

LAST 

1,0  > 

00 

LAST 

1090 

00 

LAST 

109  0 

00 

, 34  in 
, 34 1 1 

52 
2 2 

1 n 

021 

1 

1 

,3412 

0 

0006 

1 

,3413 

7 

4736 

0 

,3414 

52 

155 

1 

, 3415 

56 

021 

1 

,3416 

26 

155 

1 

DXCH  mpac 

LXCH  SR 

EXTEND 
MP  HALF 

DXCH  MPAC 

XCH  SR 

AOS  MPAC  +1 


2 ’ t 

REF 

1 

00, 3417 

3 

2314 

0 ARGHT 

2067 

00, 3420 

0 

0006 

1 

REF 

, I LAST  101 

00,342  1 

7 

Cl  54 

0 

2'  6 

REF 

1 

00,3422 

6 

2 5 66 

0 

CAF  SLOPEHI 

EXTEND 
MP  MPAC 

AD  B I ASH  1 


2070  REF  142 

2071  REF  662 

2072 

2073 

2074  RFF  143 

2075 

2076  REF  19 

2077  REF  144 


LAST 

LAST 

I 078 
1080 

00 

00 

00 

00 

LAST 

1080 

CO 

LAST 

LAST 

10P  0 

00 

r>0 

1080 

0 0 

3423 

54  130 

1 

, 3424 

3 0154 

1 

i 3425 

22  0 C 7 

0 

-3426 

0 CO  06 

1 

34  27 

10  130 

1 

3430 

0 0 0 C 6 

1 

>3431 

7 4-7  3 6 

0 

34  3 2 

26  130 

1 

+ 4 


TS  BUF 

CA  MPAC 

ZL 

EXTEND 
DV  BUF 

EXTEND 
MP  HALF 

ADS  BUF 


2078 

207  9 

208  0 
208  1 

REF 

REF 

1 5 

6 63 

LAST 

LAST- 

108  0 
1080 

00,3433 
NO , 3434 
00, 3435 
00 , 3436 

0 00  06 
7 4736 
52  155 
0 0006 

1 

0 

1 

7 

XJ  XJ  X7  J 

2082 

REF 

1 + 5 

LAST 

1080 

00,3437 

10  130 

1 

2083 

REF 

146 

LAST 

1080 

00,3440 

54  131 

0 

2E  f 

REF 

215 

LAST 

107  5 

00 , 344 1 

3 4755 

1 

20  8 5 

FEF 

204 

L ArT 

107  2 

00,3442 

5 6 001 

0 

2086 

00,3443 

0 COOS 

1 

2087 

REF 

147 

l AST 

10  90 

00, 3^-44 

10  130 

1 

2088 

P.  EF 

205 

LAST 

1080 

00,3445 

54  001 

1 

2089 

REF 

148 

LAST 

1080 

00,3446 

3 0131 

1 

2090 

REF 

6 64 

LAST 

1080 

00,3447 

2 0 155 

1 

EXTEND 
MP  HALF 

DXCH  MPAC 

EXTEND 
OV  BUF 

TS  BUF  +1 

CAF  ZERO 

XCH  L 

EXTEND 
DV  BUF 

TS  L 

CA  BUF  +1 

DAS  MPAC 


2091 
209  2 

2093 

2094 
2.  ' 
209  6 


REF 

1 

29 

00,3450 
no  , 34<7 1 

0 CO 06 

1 3455 
3 4733 

1 

1 

1 

EXTEND 

BZF 

CAF 

7 CQBNKOO 
POSMAX 

REF 

LAST 

1065 

00,3452 

REF 

665 

LAST 

1080 

00, 3453 

54  154 

0 

F I XP  DOT 

TS 

MPAC 

REF 

666 

LAST 

1080 

00,3454 

54  155 

1 

TS 

MPAC  +1 

F EF 

28  3 

LAST 

107  9 

00,3455 

0 00 C 2 

0 

TCOB'-'KOO 

PC 

Q 

i" 


I 


i 


3:15  DEC.  2,1970  SKIPPER 

USER'S  PAGE  MO.  79 

SEE  IF  ARGUMENT  GREATER 

IF  SO,  SEE  IF  LESS  THAN 

WE  WILL  TAKE  THE  SQUARE 
SHIFT  RIGHT  1 AND  GO  TO 


.087  PAGE  1080 
E3  S3 

THAN  CR  EQUAL  TO 

.25. 

ROOT  OF  MPAC/2. 
THE  SORT  ROUTINE 


..e 

GUARANTEED  NO  OVERFLOW. 

ARGUMENT  BETWEEN  .25  AND  .5.  GET  A 
LINEAR  APPROXIMATION  FOP.  THIS  RANGE. 

XO/2  = (MPAC/2 ) (SLOPEHI } + BIASHI/2. 

XO/2  (ARGLO  ENTERS  HERE). 

SINGL  E-PRECISION  THROUGHOUT. 


(MPAC/2) /(XO/2* 


XI  = XO/2  + ,5(MPAC/2)  /(XO/2) . 


FORM  UP  Xl/2. 

SAVE  AND  BRING  OUT  ARGUMENT. 
TAKE  DP  QUOTIENT  WITH  XI. 


SAVE  MAJOR  PART 
F ) f P "!  PA!  f 
( n EMA  INDE*  , 0 ) . 


OF  QUOTIENT. 

OF  QUOTIFNT  USING 


IN  PREPARATION  FOR 
X2  = Xl/2  + (MPAC/ 
OVERFLOWS  IF  ARG. 


DAS 
2 ) X 1 
NEAR 


fQSMAX . 


FETURN  TO  CALLER  TO  UNNQRMALIZE,  ETC 


GAP:  ASSEMBLE  KE  VISION  001  OF  AGC  PROGRAM  AP11R0PE  BY  EYLFS 

L INTERPRETER 


2097  REF  1 00,3456  6 4737  0 SRTEST  AD 

2095  00,3457  0 0006  1 EXTEND 

2099  REF  1 00,3460  6 3502  0 BZKF 


2100  REF  667  LAST  10-0  ,3  6 1 52  155  1 DXCH 

21nl  REF  15  LAST  1080  00,34'-2  22  021  1 IXCH 

2102  00,3463  0 0006  1 EXTEND 

2103  PEF  20  LAST  1080  00,3464  7 ^736  0 MP 

2104  REF  6c.  < LAST  1081  00,3*65  5 2 155  1 DXCH 

2105  IFF  19  LA-5  1^1  >'0,3466  56  021  1 XCH 

2106  OFF  669  LAST  1051  00,3467  2 155  1 ADS 


2107 

REF 

1 

00 , 3470 

3 

3007 

0 ARGLO 

2108 

00,3471 

0 

0006 

1 

2109 

REF 

67C  LAST  1091 

00, 3472 

7 

Cl  54 

A 

u 

2110 

RFF 

1 

00,3473 

6 

2270 

0 

2111 

R EF 

1 

00,3474 

1 

3423 

0 

CAF 

EXTEND 

MP 

AD 

TCF 


2112  00,3475  0 0006  1 SQRTNM2  EXTEND 

2113  REF  671  LAST  1081  00,3476  3 0156  0 DC  A 

2114  TEF  672  LAST  1061  00,3477  20  156  1 DAS 

211'  REF  673  LAST  1901  >'.,3509  0 0154  1 AD 

2110  r>EF  674  LAST  10  1 00,3501  26  154  0 ADS 

2117  REF  62  LAST  1079  i0,3502  24  135  0 SQRTNORM  INCR 

2118  00,3503  0 0006  1 EXTEND 

211-  REF  675  LAST  1061  00,3504  3 0156  0 DCA 

2120  REF  r-y  LAST  1081  f 0,3505  20  1 66  1 DAS 

2121  >EF  677  LA-T  1081  0,356'  6 0154  1 AD 

2122  REF  678  LAST  1061  '-6,3507  26  1 54  0 ADS 

2123  00,3510  6 0000  1 DOUBLE 

2124  REF  19  LAST  461  00,3511  54  022  0 TS 


2120 

2126 

2127 

212C 

2129 


PEF 
' EF 

pep 

20 

21 

1 

2 

LAST 

L AST 

1 0C1 
1081 

90,7512 
00,3513 
0 0,381 4 
00,3515 

"LI 

REF 

LAST 

108  1 

REF 

1 

00,3516 

15  322  0 NORMTEST  CCS 


10  022  0 CCS 
1 3475  0 TCF 
1 3:417  1 TCF 
1 3470  0 TCF 


QUARTER 

SQRTNORM 

MP  AC 
SP 

HALF 
MP  AC 
SR 

MPAC  +1 

SLOPELO 

MPAC 
8 IAS  I 0 
4RGHI  +4 


MPAC  +1 
MPAC  +1 
MPAC 
MPAC 

MPTEMP 

MPAC  +1 
MPAC  +1 
MPAC 
MPAC 

CYL. 

CYL 

CYL 

SQP  TNM2 
ARGHI 
ARGL  0 
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USER’S  PAGE  NO.  80  E3  S3 

ARGUMENT  WAS  LESS  THAN  .5,  SEE  IF  LESS 
THAN  .25. 

IF  SO,  BEGIN  NORMALIZATION. 

IF  BETWEEN  .5  AND  .25,  SHIFT  TIGHT  l AND 
START  AT  ARGLO. 


NO  OV E F FI  ON. 

( NORM Al  IZED)  ARGUMENT  BETWEEN  .125  AND 
.25 


BEGIN  SQUARE  ROOT. 

SHIFT  LEFT  2 AND  INCREMENT  RIGHT  SHIFT 
COUNT  (EOF  TFRMINAL  i|fiNOR  MAL  I Z AT  I ON  ) . 


(NO  OVER  FI  OW  ) . 

FIRST  TIME  THROUGH,  JUST  SHIFT  LEFT  1 
(PUTS  IN  EFFECTIVE  RIGHT  SHIFT  SINCE 
WE  WANT  MPAC/2). 


(AGAIN  NO  OVERFLOW). 


SEE  IF  ARGUMENT  NOW  NORMALIZED  AT 
GREATER  r HAN  .125. 

NO  - SHIFT  I.FFT  2 MORE  AND  TRY  AGAIN. 
YES  - NOW  BETWEEN  .5  AND  .25. 

ARGUMENT  MOW  BETWEEN  .25  AND  .125. 


GAP 


ASSEMBLE  , F VISION  001  OF  AGC  PROGRAM  AP11RGPE  BY  EYLES 


3:  15  DEC 


2,1970  SKIPPER  .087 
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L INTERPRETER  USER'S  PAGE  NO.  81  E3  S3 

P 2 130  TRIGONOMETRIC  FUNCTION  PACKAGE. 


R2131  THE  Ft!Li;,WJ.<£  TRIGONOMETRIC  FUNCTIONS  ARE  AVAILABLE  AS  INTERPRET  I V E OPERATIONS: 


R 21 3 3 1.  SIN  COMPUTES  tl/2)SINE(2  PI  MPAC). 

R2136  2.  Cf-  COMPUTES  ( 1 / 2 I COS  INE ( 2 PT  MPAC). 


R213r  3.  ASIN  COMPUTES  ( 1 / 2P I) ARC S I NE ( 2 MPAC). 

R 21 36  4.  A COS  COMPUTES  ( 1 /2 P I ) A PCCGS  INE l 2 MPAC) 

R213-'  Sl.N-ASIi.:  AND  CfS-ACOS  APE  JTUALLY  INVERSE.  IE  SIN ( A$ I N ( X ))  = X. 


2138 

REF 

7 

LAST 

1076 

00, 3bl7 

0 

6 723 

1 

COSINE 

TC 

BRANCH 

2139 

.on.  isph 

1 

TCF 

T p 

2 1 40 

OFF 

1 

00,3521 

1 

3526 

1 

TC  F 

PRESINE 

2 IS  1 

RFF 

2 

LAST 

I Co  2 

00,3522 

1 

352  6 

1 

TCF 

PRESINE 

2142 

00, 3523 

0 

0006 

1 

+ 3 

EXTEND 

2143 

REF 

679 

LAST 

1081 

00 , 35  24 

4 

0155 

1 

DCS 

MPAC 

2144 

RFF 

680 

LAST 

1 f,q  J 

on. 3 f f 

EJ 

1 5 F 

1 

DXCH 

MD  A r 

z>c 

1 

2145 

RFF 

2 

I AST 

10*1 

n rt  , 3 826 

3 

4737 

0 

PRESINE 

CAF 

QUART  Er 

2146 

RFF 

6 8 1 

LAST 

10  8 i 

On , 35  21 

26 

1 64 

0 

ADS 

MPAC 

2147 

REF 

682 

LAST 

1082 

00,3530 

52  155 

1 

SINE 

DXCH 

MPAC 

2148 

00,3531 

20  00  I 

1 

DDOUBL 

2140 

00,3532 

5 V CCO 

Q 

ilVSK 

215  0 

OP  3 f ? 3 

1 3536 

o 

Tr  f 

4-  3* 

2151 

00 , 3534 

0 C 006 

1 

EXTEND 

2152 

00 . 3535 

00  01 

1 

nr  qm 

Ij  u u 

A2153 

2 1 5 4 

RFF 

653 

LAST 

1082 

00,3536 

52  155 

i 

+ 3 

DXCH 

M * AC 

2155 

RFF 

684 

L A S T 

' 

00,3*37 

3 0154 

i 

CA 

MPAC 

2156 

00,3560 

6 0000 

i 

DOUBLE 

2157 

REF 

206 

LAST 

1080 

00, 3541 

54  001 

i 

TS 

L 

2158 

REF 

1 

00,3542 

1 35  5 3 

0 

TCF 

SN1 

2 ) 5 9 

REF 

350 

LAST 

1079 

00 , 3 543 

50  000 

1 

INDEX 

a 

2140 

RFF 

4 

L A S T 

8*8 

no, 3544 

3 4735 

1 

CAF 

(EG  1/2  +1 

2161 

00, 3545 

6 COOO 

1 

DOUBLE 

2162 

00,3546 

0 0006 

1 

EXTEND 

2163 

REF 

685 

LAST 

1082 

00,3547 

60  154 

1 

SU 

MPAC 

2164 

REF 

686 

LAST 

1082 

00,3550 

: v 154 

0 

TS 

MPAC 

2165 

REF 

LAST 

103  2 

00,3551 

4 Cl  5? 

1 

CS 

MPAC 

+ 1 

21.66 

RFF 

688 

1 AST 

1082 

00,3552 

54  155 

1 

TS 

MPAC 

+ 1 

FINDS  COSINE  USING  TFIE  IDENTITY 
COS(X)  = SIMP  1/2  - A SS  ( X ) ). 


PI/2  SCALEC. 


DOUBLE  ARGUMENT. 

SEE  IF  PVE1  FLOW  PRESENT. 

IF  NOT,  ARGUMENT  OK  AS  IS. 

IF  SO , w E LOS f (OR  GAINED)  PI , SC 
COMPLEMENT  MPAC  USING  THE  IDENTITY 
SINt  X— ( + ) PI  ) = SIN(-Y) . 

SEE  IF  ARGUMENT  GREATER  THAN  .5  IN 
MAGNITUDE.  IF  SO,  REDUCE  IT  TO  LESS  THAN 
.5  (+-PI/2  SCALED)  AS  FOLLOWS: 


IF  POSITIVE,  FORM  FI  - X,  IF  NEGATIVE 
USE  -PI  - X. 


GUARANTEED  N0  OVERFLOW. 


GAP:  ASSEMBLE  TE VISION  OG1  OP  AGC  PROGRAM  AP11RGPE  BY 


L I T EP  P i.  T E:  S 


21 

00,3553 

0 

OOOh 

1 

2168 

REF 

689 

LAST 

1082 

00,3554 

3 

01  55 

0 

2165 

REF 

20 

LAST 

106  8 

00, 3555 

cn 

134 

0 

2 C 

2170 

REF 

5 

LAST 

1078 

00,3556 

0 

3300 

1 

2171  REF  2 LAST 

2172 

2173 
2173 
217* 

217* 

217  5 

2175 
217  7 

2176 

2177 
2177 


656  TO  ,$*>3*7  0 72  22  1 

,3560  C C 0 3 1 

00,3561  14441  0 

00,3562  37325  1 

0 0,3563  53250  0 

0 0,3364  '•  07.  < 1 

bo; 36 3*  12146  1 

00,3566  21276  1 

e 6 i 

00 , 357C  71471  0 

CO, 3571  00236  0 

00,3572  32757  0 


2176  REF  1 00,3573  3 2470  0 

217°  REF  19  LAST  1044  00,3574  0 7106  1 


2180 

2 1 r 1 
21^2 

REF 

3 ef 

6 90 

"a  q 1 

LAST 

LAST 

1033 
1 0 3 

2183 

2184 

2185 
2186. 
2187 
218  8 

REF 

REF 

O i 

692 

693 

LAST 

LAST 

1083 

1083 

REF 
REF 
R F F 

694 

695 

f.  Of, 

LAS1 

LAST 

1 A S T 

1 0 .3  3 
10  33 

ino-l 

2189 

2190 

RFF 

REF 

697 

40 

L H J 1 

LAST 

LAST 

1 1 - J 

1083 

1077 

00,3575  0 0004  1 

00,3576  3 r»i56  0 

00,3577  20  154  1 

00,3600  1 1 

00,3601  26  154  0 

00 , 3602  0 0006  1 

0 0,3603  3 Cl  56  0 

0 C , 3 1 0 4 24  156  1 

00,34"5  6 0154  1 

00,3606  26  154  0 

00,3607  1 6061  1 


SN1 


EYLES 


3:15  DEC 
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USER' S PAGF  NO.  82  E3  S3 

EXTEND 
DC  A 
DXCH 

TC 

SET  UP  T0  EVALUATE  HASTINGS  POLYNOMIAL 

M P AC 

BUF2 

DSQSUB  SQUARE  MPAC. 

TO 

DEC 

2DEC 

POLY  EVALUATE  FOURTH  ORDER  POLYNOMIAL. 

3 

+.3926990796 

2DEC 

-.6*  596371  11 

2 DEC. 

+.313758717 

2DEC 

-.074780249 

2DEC 

+.009694988 

CAF 

TC 

LBUF2  MULTIPLY  BY  ARGUM  ENT  AND  SHIFT  LEFT  2. 

DMPSUB  -1 

EXTEND 
DC  A 

DAS 

AD 

AOS 

EX  T END 
DC  A 

DAS 

AD 

ADS 

TC  F 

MPAC  +1 

MPAC  +1 

MPAC 

MPAC  NEITHER  SHIFT  OVERFLOWS. 

MPAC  +1 

MPAC  +1 

MPAC 

MPAC 

DANZ  I G 

GAP:  ASSEMBLE  REVISION  001  OF  ACC  PROGRAM  AP11R0PE  BY  EYLES 


L INTERPRETER 

P2191  ARCSIN/ARCCOS  ROUTINE. 


215  2 REF 
2193 


1 


OC,  1610  3 3631  0 ARCS  IN 
00,3611  1 3613  1 


CAF 

TCP 


2104 

21  95 

2196 

2197 

21  > f 
2195 
2200 

PEF  1 

PEF  1 

REF  8 

REF  1 

REF  1 

REF  69* 

LAST 

1082 

00 

00 

00 

00 

LAST 

1083 

00 

oo 

00 

2201 

REF  695 

LAST 

1084 

00 

22  02 
2203 

REF  1 

REF  2 

LAST 

10-34 

00 

OC 

2206 

PEF  l 

00 

3612 

3 3713 

1 ARCCOS 

CAF 

3613 

54  136 

1 

TS 

3614 

0 6723 

1 

TC 

3615 

1 3625 

1 

TCF 

36  16 

1 37  31 

0 

TCF 

36  17 

0 000  6 

1 

EXTEND 

36  2 0 

1 ! 

1 

DCS 

362  1 

52  155 

1 

DXCH 

3622 

3 3734 

1 

CAF 

3623 

5 1 136 

0 

XCH 

3624 

54  137 

0 

TS 

220|r 

REF 

21 

2206 

REF 

700 

2207 

REF 

351 

22  CP 

REF 

1 

2?' 

REF 

1 

2210 

REF 

1 

221  1 

REF 

701 

2212 

REF- 

216 

2213 

RFF 

1 

2216 

REF 

2 

2215 

REF 

7 02 

2216 

REF 

703 

2217 

REF 

3 

2218 

2215 

REF 

704 

2220 

REF 

22 

222  1 

REF 

705 

2222 

REF 

21 

2223 

REF 

3 

22  26 

kEF 

6 3 

222  5 

D E F 

1 

I AST 
LAST 
LAST 

1081 

1084 

1082 

00 

00 

00 

UG 

no 

00 

LAST 

1084 

CO 

LAST 

1080 

oo 

GO 

LAST 

1084 

00 

LAST 

1084 

0 0 

1 AST 

1084 

00 

LAST 

1084 

00 

oo. 

LAST 

1084 

DO. 

LAST 

1084 

00, 

LAST 

10  84 

oo. 

LAST 

108  3 

00, 

LAST 

107  6 

00  , 

LAST 

1081 

CO, 

00, 

34-2  5 4 473a  0 

3626  6 0154  1 

3627  10  COO  0 

3630  1 3721  1 

3631  1 3707  0 

3632  1 3642  0 

3633  It  155  1 

3634  3 #755  1 

343"  1 3637  1 

3636  1 3642  0 

3637  54  155  1 

3640  54  154  0 

3641  ) 0136  0 

3642  0 0006  1 

3643  4 0155  1 

3644  6 4736  1 

3645  52  155  1 

3646  52  134  0 

3647  0 3343  0 

3650  10  135  1 

3651  1 3714  1 


ACOSST  IS 
AD 
CCS 
TCF 

LASINEX  TCF 

TCF 

CCS 

CAF 

TCf 

TCF 

ACOS-O  TS 

TS 

TC 

AC0SST2  EXTEND 
DCS 
AD 

DXCH 

DXCH 

TC 

CCS 

TCF 


L AS  I i E X 

+ 2 

l OANZ  IG 

ESCAPE 

BRANCH 

ACOSST 

ACOSZERC 

MPAC 

MPAC 

TCSUBTR 

ESCAPE 

ESCAPE2 

HALF 

MPAC 

A 

ACQSOVF 

A SI  '-'EX 

ACOSST  2 

MPAC  +1 

ZERO 

ACOS=0 

AC0SST2 

MPAC  +1 

“■'PAC 

ESCAPE 


MPAC 

HALF 

MPAC 

BUF2 

SQRTSUB 

MPT  EM P 
ACOSSHP 


3: 15  DEC 
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COMPUTE  AP  CS IN  BY  USING  THE  IDENTITY 
ARC  SIN { X ) = PI/2  - ARCCOS(X). 

(EXITS  IMMEDIATELY). 

TEST  SIGN  OF  INPUT. 

START  IMMEDIATELY  IF  POSITIVE. 

ARC COST  0 ) = PI/2  = .25. 

IF  NEGATIVE,  USE  THE  IDENTITY 
A'CCOS(X)  = FI  - APCCOS(-X),  FORCING 
ARGUMENT  POSITIVE. 

SET  EXIT  TO  DO  ABOVE  BEFORE 
ARCSIN/ARCCOS  CONSIDERATIONS. 


TEST  MAGNITUDE  OF  INPUT. 


THIS  IS  PROBABLY  AN  OVERFLOW  CASE. 


NO  OVERFLOW  - PFOCFED. 

IF  MAJOR  PA!  T IS  .5,  CALL  ANSWER  0 
UNLESS  MINOR  PART  NEGATIVE. 


NOW  THAT  ARGUMENT  IS  IN  PROPER  RANGE, 
BEGIN  COMPUTATION.  USE  HASTINGS 
APPROXIMATION  ARCCOS(X)  = SQRT ( 1-X  ) P ( X ) 
IN  A SCALED  VERSION  WHERE  5(X)  IS  A 
SEVENTH  ORDER  POLYNOMIAL. 

RETURNS  WITH  NORMALIZED  SQUARE  ROOT. 

SEE  IF  UN-NORMALIZATION  REQUIRED. 

IF  SO. 


SAP: 


3:15  DEC 


2 1 1 c 7 0 SKIPPER 


087  PAGE  1085 


» L 

2226 
I 2227 

222  8 

1 22  2° 

223  C 

2231 

I 2231 

2232 

2232 
i 2233 

2233 
223* 

i 223* 

2235 
2235 
i 223' 

223* 
2237 

2237 
22  38 

2238 

223° 

2240 

2241 

2242 
2 243 
224* 

2245 

2246 

2247 
22  4 P 
2 2*  ° 

2250 

2251 


ASSEMBLE  REVISION  001  OF  AGC  PROGRAM  AP11RGPE  BY  EYI.ES 
1 N T F ' PRETER 


REF  706  LAST  1084  00,3652  52  155  1 AC0S3  DXCH 

REF  22  LAST  1084  00,3653  52  134  0 DXCH 

REF  707  LAST  1035  00,3654  52  155  1 DXCH 

REF  3 L ACT  1083  00,3655  0 7222  1 TC 

00,365*.  00006  1 DEC 

00,3657  13240  0 2DEC 

00, 3660  23630  0 

00 i 36<  1 74721  0 2DtC* 

00,3662  47775  1 

00,3663  024  40  0 2 DEC  7 

00,366*  20237  0 

00,3665  75067  1 2DEC* 

00,3666  70742  1 

00,3667  03436  0 2 DEC* 

CO, 3670  26756  1 

00,3671  74037  0 2 DEC* 

00,367?  57640  1 

00,3673  03046  0 2DEC* 

00,3674  07143  0 

00,3675  7665*  1 2 DEC* 

00,3676  42244  0 

P E F 2 LAST  1 0° 3 00,36  7 7 3 2*70  0 CAF 

REF  20  LAST  1083  00,3700  0 7106  1 TC 

REF  4 LAST  1084  00,3701  0 0136  0 TC 


USER'S  PAGE  NO.  84  E3  S3 

w p AC  SET  LIP  FOR  POLYNOMIAL  EVALUATION. 

BUF  2 
mp  AC- 

poly 

*6 

+ .353553385  COEFFICIENTS  ARE  C 2(  + I ) /PI  SORT ( 2 > WHERE 

-.0483017006  B + l*  I 

+.0200273085  B + 2*  WHERE  C STANDS  FOR  ORIGINAL  COEFFS. 
-.0112931863  B + 3* 

+.0069531 1612  B+4* 

- .003848  17 957  8+5* 

+.001501297736  B+6* 

-.000284160334  B+7* 


LBIJF2  DO  FINAL  MULTIPLY  AND  GO  TO  ANY 

DMPSUB  -1  EPILOGUE  SEQUENCES. 

ESCAPE 


i 


-i 


00,3702  0 0006  1 
REF  708  LAST  1086  00,3703  4 0155  1 
REF  23  LA'l  L1  00,37  h *736  1 
REF  709  LAST  1085  00,3705  52  155  1 
REF  2 LAST  1084  00,3706  0 0137  1 


SUBTP  EXTEND 

DCS  MPAC 

AD  HALF 

DXCH  MPAC 

TC  ESCAPE2 


EPILOGUE  FOE  NEGATIVE 
FORMS  PI  - AFCCOM-X) 
GO  TO  POSSIBLE  ARCSIN 


INPUTS  TC  AFC  COS. 
= AP  CCCSi:  X)  . 
EPILOGUE. 


00,3707 

0 

0006 

1 

AS  ILEX 

EXTEND 

R FF 

710 

LAST 

1035 

00,3710 

4 

0155 

1 

DCS 

MPAC 

ARCSIN  EPILOGUE  - GET 

P.FF 

3 

LAST 

1082 

00 , 371 1 

6 

*737 

0 

AD 

QUARTER 

= PI/2  - ARCCOS(X). 

REF 

711 

LAST 

1085 

00,3712 

52 

155 

1 

DXCH 

MPAC 

REF 

41 

LAST 

1083 

00,3713 

1 

6061 

1 

L DAL  Z IG 

TC  F 

DANZIG 

gap:  assemble  revisit,  oci  t-  agg  program  apurope  by  eyees 


L INTERPRETER 


2252 

REF 

352 

LAST 

1084 

00,3714 

50 

000 

1 

ACOS  SHF 

INDEX 

A 

2253 

REF 

63 

LAST 

107  3 

00,3715 

3 

4736 

1 

CAE 

8 I T 1 4 

2254 

REF 

64 

LAST 

1034 

CO, 3716 

54 

135 

1 

TS 

MPT  E M P 

2255 

REF 

4 

LAST 

1050 

00,  3717 

0 

2073 

1 

TC 

VSHPRND 

2256 

REF 

1 

00, 3720 

1 

36  5 2 

1 

TCF 

ACOS  3 

2257 

00,3721 

0 

0006 

1 

ACOSQVF 

EXTEND 

2258 

REF 

2 

LAST 

1084 

00,3722 

l 

3637 

1 

BZE 

ACO  S=0 

22  5C 

00,3723 

0 

000c. 

1 

AC0SA3RT 

EXTEND 

225°  1 

REF 

2 8 

LAST 

107  9 

00,3724 

3 

01  65 

0 

DC  A 

LOG 

2 250? 

REE 

l 

00 , 3725 

0 

c73  2 

1 

TC 

ALAR Ml 

22593 

00 , 3726 

013  01 

1 

OCT 

1301 

22  60 

ft  EF 

217 

LAST 

1084 

00,3727 

3 

47  55 

1 

CAE 

ZERO 

226(  1 

REF 

3 

LAST 

1086 

00,3730 

1 

3637 

1 

TC  E 

ACOS =0 

226 1 

P FF 

4 

LAST 

108  5 

i 0,3731 

3 

4 73  7 

0 

ACHSZEPO 

CAF 

Ol  1 A P T F,: 

2262 

REF 

4 

LAST 

1086 

00,3732 

l 

3640 

1 

TCF 

ACOS=Q  +1 

7 7 £.  7 

flA.  7 7 7 7 

7 7 7 A ^ 

W p r,  i 7 

nFr 

— l ? 

C t-  M - ' 

< l f q j 

u 

• E_  1.6  i C. 

u c u 

I c 

2264 

REF 

1 

00,3734 

i 

3702 

0 

IC  SUB  TR 

TCF 

SUBTR 

3: 15  DEC 


2,1970  SKIPPER 


087  PAGE  1086 


USER'S  PAGE  NO.  85  E3  S3 

THE  SHIFT  RIGHT  TS  LESS  THAN  14  SINCE 
THE  INPUT  WAS  NON-ZERO  DP. 

DP  SHIFT  f I GHT  AND  ROUND. 

PROCEED. 

IF  MAJOR  PART  WAS  ONLY  1 NOPE  THAN  .5, 
CALL  ANSWER  ZERO. 

IF  OVERFLOW,  CALL  ANSWEr-  ZEPC  BUT 
SOUND  AN  ALARM. 


ACOS(O)  = PI/2. 

SET  M P AC  AND  EXIT  VIA  ESCAPE. 


GAP:  ASSEMBLE  REVISION  OOI  OF  AGO  PROGRAM  API  1R0PE  BY  EYE^S  3:15  DEC.  2,1970  SKIPPER  .087  PAGE  1087 

L INT  FR  PRET  ER  USER’S  PAGE  NO.  86  E3  S3 

P 2265  THE  FOLLOWING  INSTRUCTIONS  ARE  AVAILABLE  FOR  SETTING,  MODIFYING,  AND  BRANCHING  ON  INDEX  REGISTERS: 


R 2267  1.  A XT  ADDRESS  TO  INDEX  TRUE. 

R 2268  1 . A XC  ADDRESS  TO  INDEX  COMPLEMENTED. 

R 2 2 6 9 3.  L X A LOAD  INDEX  FROM  ERASABLE. 

R 2270  *.  L XC  LOAD  INDEX  CU'  MPL  E'v1  ENTED  FROM  ERASABLE. 

R 227  1 5.  S X A STORE  INDEX  IN  ERASABLE. 

R 227 2 6.  XCHX  EXCHANGE  INDEX  REIGSTER  WITH  ERASABLE. 


R 227  3 7.  INC1  INCLEMENT  INDEX  F EG  I RTEF . 

R 2274  8.  X AD  ERASABLE  ADD  TO  INDEX  REGISTFR. 

R 227 * 9.  X c!  I ERASABLE  SUBTRACT  FF°m  INDEX  PEGISTEP. 

R 227  6 1 0.  TIX  BRANCH  ON  INDEX  REGISTEF  AND  DECREMENT. 


227” 


01,2344 


BANK  01 


2278 
227 ° 
o ? a n 

REF 

REF 

REF 

1 

1 

2 3 

1 07  7 

C.  C • 

2281 

R FF 

4 

L MO  * 

LAST 

t > < t 

lr06 

2282 

REF 

30- 

LAST 

1016 

22®  3 

REF 

*2  :;l 

l AST 

10  - * 

01.2344  0 2*41  1 AXT 

01.2345  3 0117  0 

01*2346  50  130  0 XSTtOE 

01,2347  54  046  1 

01,2350  1 6061  1 


COUNT  * 

$$/ INTER 

TC 

TAGSUB 

SELECT  APPROPRIATE 

INDEX  REGISTER. 

CA 

POLISH 

INDEX 

INDEXLOC. 

CONTAINS  C ( F T XLPC ) 

OP  C ( F I XLOC  ) + 1 . 

TS 

XI 

TCF 

DAMZ  TG 

2284 
2265 
228  6 


REF  2 
REF  24 
REF  1 


LAST  1087 
LAST  1087 


01.2351 

01.2352 
01, 215  3 


0 2441  1 
4 0117  1 
0 2346  1 


A XC 


TC  TAGSUB 
CS  POLISH 
TC  X ST ORE 


2287 

REF 

1 

01 , 2354 

0 

2427 

1 

2288 

REF 

25 

LAST 

1087 

01 ,2355 

50 

117 

0 

22 u 9 

01,2356 

3 

COOO 

1 

2290 

REF 

2 

LAST 

106  7 

01,2  m 7 

1 

2 34o 

0 

TC  1 5 A Dr  E P S l OAD  INDEX  REGISTER  FROM  ERASABLE. 

INDEX  POLISH 
CA  0 

TCP  XSTORE 


229  1 
229  2 

REF 
p EF 

2 

26 

LAST 

LAST 

1087 

10R7 

1087 

2<i  3 
2294 

REF 

3 

LAST 

0 1,23  60  0 2*  27  1 L XC 

01,23*1  50  11^  o 

01.2362  4 COOO  0 

01.2363  1 2346  0 


TC  15ADREFS  LOAD  N DX  PEG  FROM  ERASABLE  COMPLEMENTED. 

INDEX  POLISH 
CS  0 

TCF  XSTORE 


2295 

REF 

3 

LAST 

1087 

01, 23*4 

0 2427 

1 

SXA 

226* 

REF 

5 

LAST 

1037 

01 ,2365 

5 0 130 

0 

2297 

REF 

31 

LAST 

103  7 

01 , 2366 

3 0046 

0 

2298 

REF 

27 

LAST 

1087 

01,2367 

50  117 

0 

MS TOR  FI 

2299 

01,2370 

54  000 

0 

230C 

REF 

43 

LAST 

108  7 

01 , 237  1 

1 6061 

1 

TC  1 5 AD1"  E R S STORE  INDEX  REGISTFR  IN  ERASABLE 

INDEX  INDEXLOC 

CA  XI 

INDEX  POLISH 

TS  0 

TCF  DANZIG 


GAP:  ASSEMBLE  REVISION  0C1  ,F  A it  PROG-  AM  API  1ROPE  BY  EYLES 

L INTERP ■ ETER 


2301 

2302 

2303 

2304 

REF 

REF 

4 

28 

LAST 

LAST 

1087 

1037 

01 . 2372 

01.2373 

0 1 , ? 3 7 i. 

0 2427 
50  117 

3 GOOG 

1 XCHX 
0 

1 

0 

REF 

6 

LAST 

1087 

01 ,2375 

5 C 130 

2305 

REF 

32 

LAST 

108  7 

01, 2376 

5 6 046 

G 

2306 

REF 

1 

01 , 7377 

1 23  67 

0 

TC  15ADRE!  ' 

INDEX  POLISH 
CA  0 

INDEX  INDEX LOG 
XCH  XI 
ICE  MSTOPF1 


2307 

23QE 

2309 

2310 

2311 

2312 


P.EF  5 LAST 
RE. | 29  LAST 

REF  7 ! AST 

REF  73  LAST 
REF  44  LAST 


1038  01,2400 

1088  : 01,2401 
01, 2402 
103P  01,2403 

1 n <=  n oit?404 
L 0 8 ‘ 


0 2427  1 XAD 
50  117  0 

3 COOL  1 
50  130  0 XAD2 
26  046  1 

1 6061  1 


TC  15ADREFS 

INDEX  POLISH 
CA  0 

INDEX  INDEXLOC 
AD  8 XI 

TC  F DANZIG 


2313 

REF 

3 

LAST 

1087 

01 , 2 4 C 6 

0 

2441 

1 I NCR 

2314 

REF 

30 

LAST 

1 0 P 8 

01,2407 

3 

Cl  17 

0 

2315 

RFF 

1 

01,2410 

1 

2 403 

0 

TC  TAG  S' JB 

CA  POLISH 

TCF  XAD2 


2316 

REF 

6 

LAST 

1088 

01,2411 

0 

2427 

1 

2317 

REF 

31 

LAST 

1088 

01,2412 

50 

117 

0 

23  i: 
2319 

01.741 3 

A 

C G 0 0 

Q 

REF 

2 

LAST 

108  8 

01,2414 

• *T 

1 

2403 

0 

TC  15 ADR  ERS 

INOEX  POLISH 
CS  0 

TCF  XAD2 


2320 

REF 

4 

LAST 

1088 

01,2415 

0 

! J 

1 

2321 

REF 

8 

LAST 

1088 

01,2416 

50 

1 30 

0 

2322 

REF 

12 

LAST 

964 

01 , 2417 

4 

0050 

0 

2323 

REF 

9 

LAST 

108? 

01,2420 

5 0 

130 

0 

2328 

REF 

34 

LAST 

108  8 

01,242 1 

8 

0046 

0 

2 3 2 ■ 

n 1 -7477 

0 

0006 

1 

0 

2320 

REF 

45 

LAST 

1088 

V-  JL  y C-  4_ 

01 ,2423 

6 

6061 

TC  TAGSUB 

INDEX  INDEXLOC. 
CS  SI 

INDEX  INDEXLOC 
AD  XI 

EXTEND 

BZMF  DANZIG 


2327  REF  10  LAST  1088 
232  C REF  35  LAST  1.08, 


01,2424  50  130  0 

01 ,2426  56  04,  o 


DQT1X.BR  INDEX  INDEXLOC 
XCH  XI 


23  2' 


REF  6 LAST  1077 


^ i , 242 6 


6646  1 


TCF  GOTO 


3” 


1" 


I 


3:15  DEC.  2,1970  SKIPPER  .087  PAGE  1088 
USER'S  PAGE  NO.  87  E3  S3 

EXCHANGE  INDEX  REG1 STEP  WITH  ERASABLE. 


ADD  ERASABLE  TO  INDEX  REGISTER. 

IGNORING  OVERFLOWS. 

INCREMENT  INDEX  REGISTER. 

SUBTRACT  ERASABLE  FROM  INDEX  REGISTER. 

BRANCH  AMD  DECREMENT  ON  INDEX. 

NO  OP  EF  AT  ION  IF  DECREMENTED  INDEX  IS 
NEGATIVE  OP  ZERO. 

IGNORING  OVERFLOWS. 

DO  THF  BRANCH  USING  THE  CADR  IN  POLISH. 


I 


SAP:  ASSEMBLE  REVISION  001  UF  AGC  PP(  SPAM  AP11ROPE  BY  EYLES 


3:  15  DEC 


2 ,1970 


SKIPPER  .087  PAGE  1089 


P 2330 

2332 

233? 

2334 

2335 

2336 

233  7 
2338 
233c 

2340 

2341 

R 2342 

2364. 

234  5 

2346 

2347 
2 3 4 P 

234  0 


INTERPRETER 


USEr,S  PAGE  NO.  88 


E3  S3 


SUBROUTINE  TO  CONVERT  AN  ERAS  A8LE  ADDRESS  (11  BITS)  TO  AN  EBANK  SETTING  AND  SUBADDRESS. 


REF 

32 

LAST 

108  8 

RFF 

2 

LAST 

1016 

REF 

353 

LAST 

108  6 

RFF 

51 

L A S T 

1077 

01 ,24-2  7 4,  Cl  17  1 

01.2430  6 4772  1 

01. 2431  10  000  0 

01 ,243  2 3 0120  1 

01,2433  1 2440  1 


15ADKERS  CS  POLISH 

AD  DEC45 

CCS  A 

CA  F I XI  DC 

TCF  +5 


DOES  THE  ADDRESS  POINT  TO  THE  WORK  AREA? 
YES.  ADD  FIXLOC.  EBANK  OK  AS  IS. 


REF  6 LAST  1016  01,2434  3 5Gu7  0 CA 

RFF  33  LAST  lOE0  01,2435  56  117  0 XCH 

KEF  61  LAST  1024  01,2436  54  CC3  0 TS 

RFF  14  LAST  1024  01,2437  7 435?  0 MASK 

REF  34  LAST  1086  01,2440  26  117  1 +5  ADS 

■SUSP  OUT  ll.t  WHICH  SETS  THE  ADDRESS  OF  THE  SPE 

REF  52  LAST  1089  01,2441  3 0120  1 TAG SUB  CA 

R EE  11  LAST  1088  01,2'--42  54  130  1 TS 


OCTI4OO  NO.  SET  EBANK  & MAKE  UP  SUBADDRESS. 

POLISH 

EBANK 

LOW? 

°0L T SH  FALL  INTO  TAGSUB,  AND  RETURN  VTA  0. 

C IF  I ED  INDEX  IN  INDEXLOC.  (ACTUALLY,  THE  ADDRESS  -3RD.  ) 
FIXLOC 

I NOEXt.nc 


REF  36 
KEF  12 
REF  ?84 
REF  29C 


LAST  1056 
LAST  1089 
LAST  1080 
L 


0 1 , 2*43 
01,2444 
0 ! , 24  45 
01 ,24  46 


10  020  1 
24  130  0 
0 CO 02  0 
0 0002  0 


CCS  CYK  BIT  15  SPECIFIES  INDEX. 

INC-  INDEXLOC  0 MEANS  USE  X2. 

TC  Q 

TC  Q 


1 FOR  XI 


GAP:  ASSEMBLE  REVISION  001  uf  AGC  PROGRAM  API 1PGPE  8Y  EYLES 


3:15  DEC 


SK  TP  PER 


087  P A©E  1090 


. 2,1970 


L INTERPRETER 


USER'S  PAGE  NO.  89 


P 2350 


MISCELLANEOUS  OPERATION  CODES  WlTH  DIRECT  ADDRESSES.  INCLUDED  HERE  AFE: 


E3  S3 


R 2.352 
R 23  5* 
R 2356 
R > ■ 

R 2 3 ( 

R 2 3 6 1 


1 

2 

3 

4 

5 

6 


ITA 

CALL 

R.TB 

BHI  Z 

BOV 

GOTO 


STORE  QPRET  (RETURN  ADDRESS)  IN  ERASABLE. 

CALI  A SUBROUTINE,  < CAVING  RETURN  IN  QPRET. 

RETURN)  TO  BASIC  LANGUAGE  AT  THE  GIVEN  ADDRESS. 

BRANCH  IF  THE  HIGH  ORDER  OF  MPAC  IS  7ER0  (SINGtE  PRECISION). 
BRANCH  ON  OVERFLOW. 

SIMPLE  SEQUENCE  CHANGE. 


2362 

REF 

37 

L AST 

1089 

01,2447 

10 

020 

1 

2363 

P E F 

3 5 

LAST 

10  8 9 

01,2450 

3 

0117 

0 

23  6* 

r>  f f 

q 

LAST 

940 

0 1 , 24  c 1 

f:  0 

* 6 2 l 

0 

2365 

REF 

712 

LAST 

1085 

Cl , 2452 

10 

154 

0 

2366 

REF 

46 

LAST 

108S 

01,2453 

1 

6061 

1 

2367 

FEF 

7 

LAST 

108  6 

01, 2454 

1 

6 646 

1 

2368 

REF 

47 

LAST 

1 ;'9L 

01,2455 

1 

60  1 

1 

2360 

R EF 

8 

1 AST 

1090 

01 , 245  6 

1 

6646 

1 

RT  B/ BHI Z CCS  CYR 

PTB  C A POLISH 

TC  SWCALL 

BHIZ  CCS  MPAC 

TC  F DANZIG 

TC  F GOTO 

TCF  DANZIG 

TC  F GOTO 


-1 


SO  A "TC  0"  FROM  ROUTINE  LEADS  TO  DANZIG 


2370 

REF 

9 

LAST 

1078 

01,2457 

10  121 

1 

BOV  ( B) 

CCS 

2371 

01,2460 

1 2462 

1 

TCF 

2372 

REF 

48 

LAST 

109  0 

0 1 , 246  1 

1 6 0 61 

1 

TCF 

2373 

REF 

10 

LAST 

10':'  9 

01 , 2462 

34  121 

1 

TS 

2374 

RFF 

38 

LAST 

1 0< 

01,2463 

10  02  0 

1 

CCS 

237  5 

REF 

1 

01,2464 

1 2450 

0 

TCF 

2376 

01 ,2465 

00360 

1 

B5TOB8 

OCT 

2377 

REF 

9 

LAST 

109  0 

01 , 2466 

1 6446 

1 

TCF 

OVFIND  BRANCH  ON  OVERFLOW  TO  BASIC  OR  INTERP 

+ 2 

DANZIG 

OVFIND 

CYR 

RIB  IF  BASIC. 

360 

GOTO 


SAP: 


ASSEMBLE  REVISION  001  OF  ABC  PROGRAM  API 1RGPE  BY  EYLES 


L INTERPRETER 

2378  REF  39  LAST  1090  01,2467  IP  020  1 BZE/GOTG 

237°  REF  9 LAST  1084  01,2470  0 6723  1 

2380  REF  49  LAST  1090  01,2471  1 6061  1 

2381  REF  10  LACT  1090  01,2472  1 6646  1 

2382  REF  50  LAST  1091  01,2473  1 6061  1 


2383  FFF  40  LAST  1091 

2384  REF  l 

2385 

2386  PEF  10  LAST  1091 

2387  REF  51  LAST  10°1 

2388  REF  52  LAST  1091 

2389  REF  11  LAST  1091 


01,2474  10  020  1 BPL/BMN 

01,2478  1 2503  1 

01.2476  12000  1 5B10 

01.2477  0 6723  1 

91,2900  1 6061  1 

01.2501  1 6061  1 

01.2502  1 6646  1 


2390 

REF 

1 1 

LAST 

1091 

2391 

REF 

12 

LAST 

1091 

9 9 0 9 

opc 

1 ACT 

i no  i 

CD  J C 

K t r 

1 D 

LWo  1 

1U  1 

2393 

REF 

53 

LAST 

10°1 

2394 

REF 

41 

LAST 

10  91 

239r 

REF 

1 

2396 

RFF 

7 

LAST 

445 

2397 

REF 

7 

LAST 

1088 

2398 

REF 

53 

LAST 

1089 

£i£An 

REF 

12 

LAST 

10  7 7 

2400 

REF 

2 

LAST 

1088 

01.2503  0 6723  1 BP L 

01.2504  1 6646  1 

01,2605  1 6646  1 

01.2506  1 6061  1 

01.2507  10  020  1 CALL /I TA 

01.2510  1 6640  1 

01.2511  0 5705  0 

01.2512  0 2427  1 

01,25  13  50  12.0  1 

01.2514  3 0052  0 

01.2515  1 2367  0 


CCS 
TC 
TCF 
TC  F 
TCF 

CCS 

TCF 

DEC 

TC 

TCF 

TCF 

TCF 

TC 

TCF 

TCF 

TCF 


CCS 

TCF 

TC 

TC 

INDEX 
C A 
TCF 


3:15  DEC.  2,1970  SKIPPER  .087  PAGE  1091 
USER'S  PAGE  NO.  90  E3  S3 

CYR 

BRANCH 
DANZIG 
GOTO 
DANZ  IG 

CYR 
B PL 

5 B+10  SHIFTS  OP  CODE  IN  SWITCH  INSTRUCTION  ADR 

BRANCH  DO  BMN. 

DANZIG 

DANZIG 

GOTO  ONLY  IF  NNZ. 

BRANCH 

GOTO  IF  PO  S I T T V E OR  ZERO. 

GOTO 
DANZIG 

CYR 
CALL 

CCSHPLE 
15ADREP S 
FIX  LOG 
QP'  ET 
MST0RE1 


STORE  QPRET.  (TAGSUR  AFTER  15 ADRERS  IS 
SLOW  IN  THIS  CASE,  B'JT  c^s  STORAGE.) 


SEE  WHICH  OP-CODE  IS  DESIRED. 
DO  BZE. 

00  GOTO. 


AP:  ASSEMBLE  REVISION  001  OF  AGC  PROGRAM  AP11R0PE  BY  EYLFS 


3: 1 3 DEC 


2,1970 


SKIPPER  .087  PAGE  1092 


L INTERPRETER 


USER'S  PAGE  MO.  91 


240  1 

THE  FOLLOWING 

OPERATIONS  AR 

E 

AVAILA 

BLE 

for 

ALTER ING 

AND 

TESTING  INTERPRETIVE  SWITCHES 

2403 

00 

BOWSE T 

A 

SWITCH 

AND 

DO 

A 

GOTO  IF 

IT 

WAS  ON. 

4 C 1 

2404 

01 

SETGO 

SET 

A 

SWITCH 

AND 

DO 

A 

GOTO. 

2405 

02 

BOFSET 

SET 

A 

SW TT  CH 

AND 

DO 

A 

GOTO  IF 

I T 

WAS  OFF 

2406 

03 

SET 

SET 

A 

SWITCH 

. 

E 3 S3 


R 2407 

04 

BONINV 

INVERT 

A 

SWITCH  AND 

BRANCH  IF 

IT 

WAS 

ON. 

R 240  8 

05 

INVGD 

INVERT 

A 

SWITCH  AND 

DO  A GOTO . 

R 240  ° 

06 

BOFINV 

INVENT 

A 

SWITCH  AND 

BRANCH  IF 

TT 

WAS 

OFF 

P 2410 

07 

INVERT 

INVERT 

A 

SWITCH. 

« 

R2411  10  BONCLP 

R 241 2 11  CLRGO 

R2413  12  BOFCLR 

R 2414  13  CLEAT 


CLEAR 

CLEAR 

CLEAR 

CLEAR 


A SWIT 
A SWIT 
A SWIT 
A SKIT 


CH  AND 
CH  AND 
CH  AND 
CH. 


BRANCH  IF  IT  WAS  ON. 
DO  A GOTO. 

B ANCEI  I F IT-  WAS  OFF. 


R 241 c 14  BON  BRANCH  IF  A SWITCH  WAS  ON. 

R 2416  16  BOFF  BRANCH  IF  A SWITCH  WAS  OFF. 


R 2417  THE  ADD  ESS  SUPPLIED  WITH  THE  SWITCH  INSTRUCTION  IS  INTERPRETED  AS  FOLLOWS: 

t 

R 241 9 BITS  1-4  SWITCH  BIT  NUMBER  (1-15). 

R 2420  BITS  5-9  SWITCH  OPERATION  NUMBEE. 

t R 242 1 BITS  9-  SWITCH  WORD  NUMBER  (UP  TO  64  SWITCH  WORDS). 

R 2*22  THE  ADD ' ESS  T ' r FLF  IS  HADE  UP  BY  THF  YU!  SYSTEM  ASSEMBLED.  I HE  BRANCH  INSTRUCTIONS  REQUIRE  TWO 

t R 242  4 ADOPESSFS,  THE  SECOND  TAKE-'  AS  THE  DIRECT  (OF  INDIRECT  IF  IN  ERASABLE)  ADD,.  ESS  OF  THE  BRANCH. 


* 

r 

> 

) 


2426 

REF 

2 

LAST 

745 

01,2516 

2427 

REF 

36 

LAST 

1090 

0 1,2517 

2428 

REF 

354 

LAST 

103 

01,2520 

24?  5 

REF 

37 

last 

1 

Cl, 2521 

243  0 

r-EF 

1 

01, 2522 

243  1 

REF 

39 

last 

997 

01 , 2523 

243  2 

(11  .36  34 

u L t A . U-  - 

2433 

REF 

37 

LAST 

109? 

01,2525 

243  4 

REF 

1 

01 , 2526 

2435 

01 , 2527 

2436 

REF 

35  5 

LAST 

1092 

01 , 2530 

2437 

REF 

43 

LAST 

598 

01,2531 

243  8 

REF 

2°  1 

LAST 

10P5 

01 , 2532 

3 4762 

7 01  17 

0 

1 

1 

SWITCHES  CAF 

MAS  K 

LQW4 

POLISH 

A 

50  000 

INDEX 

3 473  5 

1 

CAF 

BIT15 

54  131 

3 4745 

o 

TS 

SWB  T T 

0 

CAP 

BIT7 

0 CO 06 

1 

EXTEND 

7 0117 

1 

HP 

PCL ISH 

130 

1 

TS 

SWWORD 

0 0004 

0 

INHINT 

5C  000 

1 

INDEX 

A 

3 0074 

1 

CA 

ST  AT  E 

54  002 

1 

TS 

Q 

LEAVE  THE  SWITCH  BIT  IN  SWBIT  . 


(MUMBFi  FI C w LEFT  to  RIGHT.) 

LEAVE  THE  SWITCH  NUMBER  IN  SWWORD. 

DURING  SWITCH  CHANGE  SO  RUPT  CAM  USE  TOO 
LEAVE  THE  SWITCH  WORD  ITSELF  IN  L. 

Q WILL  BE  USED  AS  A CHANNEL. 


I 


I 


GAP:  ASSEMBLE  r.EVISIDN  003  OF  A GC  PRG&P  AM  API  TROPE  BY  EYLES 


L INTERPRET EP 


2430 

2440 

2441 

REF 

REF 

23 

38 

LAST 

LAST 

918 

1QC  2 

01 . 2533 

01 . 2534 

01.2535 

3 

0 

7 

4741 

0006 

0117 

1 

1 

1 

244  2 

REF 

1 

01,2534 

7 

2 57  o 

0 

244  3 

PER 

3C6 

LAST 

109  2 

r 1, 25  3 7 

50  000 

1 

2 44  A 

01  ♦ 75  4 0 

I 

25  4 l 

1 

CAP 

EXTEND 

MP 

MASK 

INDFX 

TCF 


244 5 REF  2 LAST  1092  01,2541  3 0131  1 +1  CA 

2446  01,2542  0 0006  1 EXTEND 

2447  REE  1 01,2543  04  G<;2  1 EOT. 

244 F p F F 1 0 1,2344  1 2553  1 TCP 


2449  REF  3 LAST  1093  01,2545  3 0131  1 +5  CA 

2450  01, 2546  0 0006  1 EXTEND 

2451  REE  2 L AST  1 J93  01,2547  06  002  0 &X(.  - 

2452  REF  2 LAST  1073  1,2550  1 2553  1 TC F 

2*c  3 REF  4 LAST  10'~3  m,255  1 4 0131  0 Hd  CS 

2454  REF  292  LAST  1092  01,2552  7 0002  1 MASK 

2455  REF  2 LAST  1092  01,2553  50  130  0 SWSTORE  INDEX 

2456  REF  4<+  LAST  1092  01,2554  54  C74  0 IS 


B IT  1 1 

POLISH 

B3TCB4 

A 

+ 1 

SWBIT 

QCHAN 

SWSTORE 

SWBIT 

QCHAN 

SWSTORE 

SWBIT 

Q 

SWVJDRD 

STATE 


3:15  DEC.  2,1970  SKIPPER  .087  PAGE 
USER’S  PAGE  NO.  92  E3  S3 

DISPATCH  SWITCH  BIT  OPEPATION  AS  IN 
7-8  OF  POLISH. 

GE'r S 4X2- BIT  CODE. 

00  - SET  SWITCH  IN  QUESTION. 


01  - INVERT  SWITCH. 


10  - CLEAT. 


1093 


BITS 


NEW  SWITCH  WORD 


GAP:  ASSEMBLE  REVISION  0C1  OF  AGC  PROGRAM  AP11RCPE  BY  EYLES 


l INTERPRETER 


2457 

2458 

2459 

REF 

38 

LAST 

958 

01 

01 

01 

01 

2460 

P EF 

39 

LAST 

109  3 

2461 

REF 

2 

LAST 

109  3 

01 

24  6 2 

c pr 

357 

LAST 

109  3 

0 1 

2463 

24o4 

REF 

293 

LAST 

1093 

01 

01 

2465 

PEF 

5 

L AST 

109  3 

0 3 

2466 

REF 

35  8 

1 AST 

1094 

01 

246  7 

PEF 

1 

0 1 

25  5 5 G0C03  1 + 13D  P EL  I NT 

2556  3 4-737  0 CAE 

2557  0 0006  1 EXTEND 

2 3 (•  f ' 7 0117  1 Mr> 

2561  7 2576  0 MASK 

266?  50  COO  1 INDEX 

2563  1 2564  0 TCF 

2564  4 (.002  1 +1  CS 

2565  7 0131  0 TEST  MASK 

2566  10  000  0 CCS 

2567  1 2577  1 TCF 


24  rEF 


01,2570  1 6715  0 +5 


TCF 


2469  REF  2 LAST  1 Or  Cl, 26 71  1 2577  1 TCF 


2470  PpF  8 LAST  10°!  01, 

2471  REF  9 LAST  1094  01, 

2472  REF  254  LAST  1054  Ol, 

2473  D EF  1 01, 

247/  01  , 

2475  REF  29  LAST  1086  01, 

2476  REF  1 01, 

2477  R EF  54  LAST  10  1 01, 


25  7 2 

0 5705 

0 

TC 

2573 

0 5705 

0 

TC 

2574 

3 COG  2 

0 

+ 9D 

CA 

25  7 5 

1 2565 

1 

TCF 

2576 

0 op)  1 4 

1 

B3T0B6 

OCT 

2577 

24  164 

1 

SWSK  I P 

I NCR 

2516 

SW/ 

EQUALS 

2600 

1 6 0 6 1 

1 

+ 130 

TCF 

B IT  1 3 

POLISH 

B3TQS4 

A 

+ 1 

Q 

SWBI  T 
A 

S W $ K T P 

SWBRANCH 

SWSK I P 

CC  SHCL  E 
CCSHOLE 

Q 

TEST 


001/ 

LCC 


SWITCHES 

DANZIG 


3: 15  DEC.  2,1S7Q  SKIPPER  .087  PAGE  1094 
USER'S  PAGE  NO.  93  E3  S3 

11  - NOOP. 

DISPATCH  SEQUCE  CHANGING  OR  BRANCHING 
CODE. 

ORIGINALLY  STORED  IN  BITS  5-6. 

00  - BRANCH  IF  ON. 


01  - GO  TP. 

HERE  ONLY  0'-!  BIT  15. 


10  - BRANCH  IF  OFF. 


11  - NOOP. 


% 

i 

• 

I 

7 

4 

4 

% 

4 

4 

* 

4 

4 

4 

• 

4 

4 

4 

4 

4 

4 

4 


GAP:  ASSEMBLE  PE  V ISI  ON  Of;  1 uF  AGC  PROGRAM  AP11ROPE  BY  EYLES 


3:15  DEC.  2,1970 


SKIPPER 


087 


PAGE  1095 


L 

0001 

00015 
R 00016 

000  2 

0003 

0004 

0007 
A 0008 
R 000° 

0010 
00 1 1 
0012 
0013 
00 1 A 

0015 

0016 

0017 

0018 
001° 
0020 
0021 
0022 
0023 
002* 


R 002  5 

002  7 
C02  P 

A 002  - 
A 003  0 
A 003  1 
A0032 

003  3 
A 003  4 

003  5 
A GOB  6 
A . 

00375 
A 003  8 
003° 

A 00*0 
OC*0  1 
A 0041 
0043 


FIXED-FIXED  CONSTANT  POOL  USER'S  PAGE  NO.  1 EO  S3 

4732  BLOCK  02 

R EF  1 COUNT  * $ $/ ECONS 

THE  FOLLOWING  TABLE  OF  IP  VALUES  IS  INDEXED.  DO  NOT  INSERT  OR  REMOVE  ANY  QUANTITIES. 


REF  5 LAST  1082 


BIT  TABLE 


4 73  2 
4733 

.4734 

37777 

37777 

1 

1 

ppns^Ax 

PCSMAX 

LIMITS 

OCT 

OCT 

37777 

37777 

m cr  I / -) 

MUST 

PR ECEDE 

POSMAX 

INtUi/  £ 

4734 

5 77  77 

1 

NEG1/2 

OCT 

-20000 

USED  BY  SIN 
LOCATIONS  IN 

ROUTINE  (MUST  BE  TWO 
FRONT  OF  BI”L4) 

4735 
47  36 

473  7 
47*0 

4741 

4742 

474  3 
474* 
4 744 
47*6 
4747 
4750 
^751 
4752 
4 75  3 


40000 
2 0000 
1 ( 000 
04000 
02000 
01000 
00400 
00200 
00100 
000413 
00020 
00010 

Of  004 
Or  002 
00001 


U I T1  5 
BIT14 
B I T 1 ’ 
B1T1  2 
B I T 1 1 
B I T 1 0 
B I T9 
BITE 
BIT7 
BIT6 
BIT5 
B I T 4 
01  T3 
BIT2 
BIT1 


0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 


OCT  4C000 
OCT  2COOO 
OCT  10000 
OCT  C 4000 
OCT  02000 
OCT  01000 
OCT  00400 
OCT  n0200 
OCT  00100 
0CT  00040 
OCT  00020 
OCT  00010 
OCT  00004 
OCT  00002 
oct  ecooi 


DO  I.  :t  DESTROY  “HIS  C1  MB  INAT I ON , SINCE  IT  IS  USED  IN  DOUBLE  PRECISION  INSTRUCTIONS. 


REF 


LAST  457 


475  4 

7777  7 

0 

NEGO 

OCT 

-0 

MUST  PRECEDE  ZERO 

4755 

00000 

1 

ZERO 

OCT 

0 

MUST  FOLLOW  NEGO 

B I T 1 

OCT 

00001 

n n w n 4 

nr  r 

9 

T ft  f CD  OpCTpD 

1 v 1 J • V t \J  J 

l J v>  1 

1 IN  1 “r\rr'l_  1 l r\ 

OCT  AL  3 

OCT 

3 

INTERPRETER 

R3D1 

OCT 

4 

PINBALL 

4756 

0000  5 

1 

FIVE 

OCT 

, 5 

FEVCNT 

I'CT 

6 

INTERPRETER 

475  7 

Of  007 

0 

SEVEN 

OCT 

7 

BIT4 

OCT 

00010 

R2D1 

OCT 

11 

PINBALL 

4320 

0CT1  1 

= 

P 2D  1 

P20S 

BINCON 

DEC 

10 

PINBALL 

4 76  0 

00013 

0 

El  EVEN 

DEC 

11 

OCT  14 

OCT 

14 

ALARM  AND  ABORT  ( 

476  1 

00015 

0 

OCT  15 

OCT 

15 

R1D1 

OCT 

16 

PINBALL 

476  2 

00017 

1 

L0W4 

OCT 

17 

(OCTAL  12) 


GAP:  ASSEMBLE  fEVISIUN  001  OF  AGC  PROGRAM  AP11K0PE  BY  EYLES 

L FIXED-FIXED  C INSTANT  POOL 


A 0044 
A 0045 
A 004  A 
A0047 
A 004  F 
004  A 5 
A 004  9 


006-9  1 
00492 

REF 

3 LAST 

865 

00493 

00494 

REF 

2 LAST 

745 

00*0 

A 005  1 
A 005  2 
A0053 

0054 

0055 
Anosfe 

0057 

0058 
005  9 
0060 

A 006  I 

0062  REF  40  LAST  1092 
A 0063 
0064. 

A 00c  5 
A 00t>6 
0067 
A 0068 
0069 
A0070 
A0071 
A0072 
A 007  3 
0074 
A 0075 
A 007  6 

0077 

0C7<= 

0080 
00801 
A 008  1 
A 0032 
A 0(  " 1 
0084 
008  F 
0086 
00865 


B IT5 

ND1 

\j  n l 

OCT 
OCT 
n r t 

V U I 

OCT  2 

OCT 

MD1 

OCT 

4. 76  3 

00030 

1 

BTTS4S5 

OC  T 

OCT  3 1 

OCT 

4764 

00033 

1 

0CT33 

OCT 

4764 

DEC27 

= 

4765 

00035 

1 

OCT  35 

OCT 

476  5 

DEC29 

= 

4766 

00032 

0 

CALLCOOE 

OCT 

LCW5 

OCT 

33DEC 

DEC 

34DEC 

DEC 

476  7 

00  045 

0 

TBUILOFX 

DEC 

4770 

00046 

0 

TDECAYFX 

DEC 

B I T6 

OCT 

4771 

C0050 

1 

0CT50 

OCT 

4772 

00055 

1 

DEC45 

DEC 

4773 

0006  0 

1 

SUPER  Oil 

OCT 

4774 

00062 

0 

. 5SEC 

DEC 

BIT7 

OCT 

4745 

SUPER.IOO 

= 

477  5 

00120 

1 

SUPER  1C  1 

OCT 

OCT  121 

OCT 

4776 

00140 

1 

SUPER  1 10 

OCT 

4777 

00144 

0 

1 S EC 

DEC 

I nw7 

nr  T 

LJ  O i 

BITS 

OCT 

0T216 

OCT 

8,5 

OCT 

5000 

00310 

0 

2SECS 

DEC 

L0W8 

ocr 

B I T9 

OCT 

5001 

00401 

1 

GN/CCODE 

OCT 

5002 

004  54 

1 

3SECS 

DEC 

600  3 

006  2 0 

0 

4SECS 

DEC 

6 004 

00777 

0 

L0W9 

OCT 

BIT10 

OCT 

5.5DEGS 

DEC 

OCT  1 103 

OCT 

5005 

01124 

1 

C6/2 

DEC 

5004 

01211 

1 

V05N09 

VN 

5007 

01400 

1 

OCT  1400 

OCT 

5010 

01426 

0 

V06N22 

VN 

3: 15  DEC 


2,19  70 


SKIPPER 


087  PAGE  1096 


USER'S  PAGE  NO.  2 EO  S3 

00020 
21 

2 3 

24 

25 

30 

31 
33 

0 C T 3 3 
35 

OCT  3 5 

00032 
37 

33 

34 
37 

3 3 

00040 
50 
45 
6 0 
50 

CC100 

BIT? 

120 
121 

140 

100 

177 
00200 
215 
00220 


200 

377 

00400 

00401 

PINBALL 

SET  S/C  CONTROL  SW 

ITCH  TO 

G/N 

300 

400 

777 

01000 

.03056 

P20-P25  SUNDANCE 

(OCTAL 

007 o 5 ) 

1 103 

.0363551 

ALARM  AND  ABORT 

(OCTAL 

01124) 

0509 

(SAME  AS  OCTAL  121 

1 ) 

01400 

0622 

PINBALL 

PINBALL 

SERVICE 

PINBALl 

ROUTINES 

SERVICE 

ROUTINES 

PINBALL 

P I NBA l L 

(OCTAL  41) 

PINBALL 

(OCTAL  42! 

BUILDUP 

FOR 

CONVIENCE  T N OAPTESTTNG 

CONVENIENCE 

FOR  DAPTESTING 

BITS  FOR 

SUPERBNK  SETTING  Oil. 

BITS 

FOP. 

SUPEPBNK 

SETT 

ING 

100 

( LAST 

4K 

OF  ROPE) 

BITS 

FGF- 

SUPER BNK 

SETT 

IMG 

101 

sin  v i 

CE  P. 

OUTINES 

(FIRS 

T 8K 

GF  ACM) 

BITS 

FOP 

S UP ED  BNK 

SETT 

ING 

110. 

( LAST 

8K 

CF  ACM) 

INTERPRETER 

ALARM  AND  ABORT 
P20-P 2 * SUNDANCE 


GAP:  ASSEMBLE  KE  VISION  001  OF  AGO  PROGRAM  API  1RGPE  BY  EYLbS 


L FIXED-FIXED  CONSTANT  POOL 


A 0087 
00875 
0088 
A 0089 
A 009  0 
00°  I 

0092 

0093 

0094 
A 0095 
AO09F 
A0097 

009  8 
009° 
010C 


MID5 

5011  01776  0 BITS2-10 

501  2 017  77  1 LOW  10 

BIT11 
2K  + 3 

5013  02177  1 LOW7+2K 

5014  02400  1 EBANK5 

5015  03000  1 PR  1 0 3 

r'  1 6 03400  0 E BANK 7 

L0W1 1 
BIT12 
R F L T A B 

5017  05000  1 PR  105 

5020  06000  1 PR  106 

5021  07000  0 PR  107 


A 01 C 2 
A0103 
A 0104 
0105 
A0106 

0107 

0108 
A0]0° 

0110 
0111 
A 01 1 2 

0113 

0114 
A 01 1 c 
A 0 1 1 6 

0117 

01175 

01176  REF 

0118 
011° 

0120 

A0121 

A0122 

0123 

0124 

0125 
AO  1 26 
A 01  27 

0128 

0129 

0130 

0131 

0132 
A0133 


B I T 1 3 


13,7,2 

5022 

1 1C00 

1 

PRI01 1 
PRI012 

502  3 

130  00 

0 

PRIC13 

5024 

14000 

1 

PRI014 

5025 

15000 

0 

PRI015 

5026 

16000 

0 

PRI016 

85DEGS 

502  7 

17000 

I 

PR  10 17 

5030 

177  70 

1 

OC T17770 

UTT]  . 

D I 1 1 * 

5031 

7710 

21000 

1 

PR  1 02 1 

7710 

22000 

1 

PR 1022 

7711 

23000 

0 

PRI023 

771  2 

24000 

1 

PRI 024 
5/8+1 

7713 

2 5 000 

0 

PR  I 02 5 

7714 

26  000 

0 

PRI026 

7718 

27000 

1 

PR  1027 
CHRPfi 10 

7716 

31000 

0 

PRI 031 

7717 

31103 

1 

Cl/2 

7720 

32000 

0 

PRI032 

7721 

3 3000 

1 

PP’1033 

77  2 2 

34000 

0 

PP  1034 

OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
DC  T 

OCT 
OCT 
OC  T 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
DEC 
OCT 
OCT 
be  T 
OCT 
OCT 
BLOCK 
COUNT  * 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
DEC 
OCT 
OCT 
OCT 
OCT 


3:15  DEC 


2,1970  SKIPPER 


087  PAGE  1097 


USER'S  PAGE  NO.  3 EO  S3 

1740 

1776 

PINBAl L 

1777 

02000 

..z 

2003 

2177 

02400 

03000 

PINBAl L 

OP  CODE  MASK  + BANK  1 FBANK  SETTING. 

03400 

3777 

04000 

PINBALL 

04025 

05000 

06000 

07000 

T4RUPT 

1 00  30 

10003 

10102 

11000 

T4RUPT  PELTAB  +1D 

P20-P25  SUNDANCE 

12000 

13000 

14000 

BANKCALL. 

14031 

15000 

16000 

T4RUPT  RELTAB  +2D 

.45556 

17000 

17770 

20000 

P20-P25  SUNDANCE  (OCTAL  16450) 

20033 

21000 

T4RUPT  R FL  TAB  +3D 

03 

$$/FCONS 

2 2000 

2 3000 

24000 

SERVICE  ROUTINES 

24001 

240  1 7 

25000 

26000 

27000 

SINGLE  PRECISION  SUBROUTINES 

T4RUPT  PEL  TAB  +4D 

300C0 

30036 

31000  : 

PINBALL 

T4RUPT  RFLTAB  +5D 

.7853134 

32000 

33000 

34000 

(OCTAL  31103) 

34034 

T4RUPT  FELTAB  +6D 

GAP  : 


ASSEMBLE  REVISION  ,001  OF  AGC  PROGRAM  AP11ROPE  BY  EYLES 


L FIXED- FIXED  CONSTANT  Pt  01 


0134 

7723 

35000 

1 

PR  103  5 

OCT 

0135 

7724 

36C  00 

1 

PP.  1036 

OCT 

n i it 

7725 

37000 

n 

PRIC37 

nr  t 

* 1 .7  4 

L 1 V*  1 

0137 

7726 

37401 

0 

63/64+1 

OCT 

A 01  3 8 

MID7 

OCT 

0139 

7 727 

37766 

1 

0CT37766 

OC  T 

0140 

7730 

3 77  74 

1 

0CT37774 

OCT 

0141 

773  1 

37776 

0 

QCT37776 

OCT 

A 0 1 4 1 1 

DPOSMAX 

OCT 

A 01-42 

B I T 1 5 

OCT 

A 014  3 

nCTROCOl 

OCT 

01 4' 

7732 

f-00  14 

0 

DLOADCOD 

OCT 

0145 

7733 

40015 

1 

DLOAD* 

OCT 

A 0146 

OCT 

01465 

7 73  4 

4C040 

1 

3IT15+6 

OCT 

01466 

7735 

40200 

] 

DC TOO 2 00 

OCT 

A 0147 

OCT 

A 0 1 4 P 

hct 

A014O 

OCT 

01495 

7736 

57777 

1 

-BIT14 

OCT 

A L 1 5 0 

RELTAB1 1 

OCT 

0151 

7737 

6C  552 

0 

C3/2 

DEC 

0152 

7740 

7 0 C 0 0 

0 

13,14,15 

OCT 

0153 

7741 

73777 

1 

-1/3 

OCT 

0154 

774  2 

740  0 0 

1 

HIGH4 

OCT 

0155 

774,3 

74056 

1 

-ENOERAS 

DEC 

A 0 1 5 6 

HI5 

OCT 

015? 

7 74  4 

77700 

0 

HIGH9 

OCT 

A n 1 5 8 

-ENDVAC 

DEC 

A 01 59 

-OCT  10 

OCT 

A 016  1 

NEG4 

DEC 

0162 

7745 

77  774 

0 

NEG3 

DEC 

0163 

7746. 

77775 

1 

NEG2 

or  t 

/ 1 f L' 

i 

. L 1 

016  4 

7747 

77776 

1 

UR GONE 

DEC 

3:  15  DEC.  2,1970  SKIPPER 
USER'S  PAGE  NO.  4 
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35000 

36000 

3 7000 
37401 
37600 
37766 
37774 

37776 

37777 

40000 

40001 

4 0014 
40015 
40023 
40040 
4020G 
44035 
50037 
54000 
57777 
6 C 0 0 0 
-.3216  14  I 
70000 
73777 
74000 
-200  1 
76000 
77700 

-45 

-10 

-4 

-3 

77775 

-1 


PINBALL 


INTERPRETER  ( CS  1 INSTRUCTION) 


T4RUPT  PEL  TAB  +7D 


T4RUPT  RELTAB  +8D 
T4RU°T  PELTAB  +90 

T4RUPT  PELTAB  +10D 


T4RUPT 


(OCTAL  65552) 


(OCTAL  74056) 

PINBALL 

INTERPRETER  ( OCTAL  77722) 

(OCT  7776?) 
(OCTAL  77773) 


GAP:  ASSEMBLE  RE  VISI  .IN  001  F AGC  PROGRAM  API  1 ROPE  BY  EYLES 

L FIXED-FIXED  CONSTANT  POOL 


P 01 65  DEFINED  BY  EQUALS 

R 01 66  IT  WOULD  BE  13  THE  USERS  ADVANTAGE  TO  OCCASIONALLY 

R0168  ACCIDENTAL  DEFINITION  CHANGES. 


01 6C  REF  5 

0170  REF  11 

0171  REF  50 

0172  REF  47 

0173  R EF  1 

0174  RFF  31 

17  5 ? 3 

0176  REF 

0177  R E c 16 

0178  REF  40 

017°  REF  7 

0180  REF 

0181  R EF  3 

0182  REF  15 

C 182  5 REF  3 

0183  REF  36 

01  8^  REF  7 

01P  5 FEE  24 

0186  PEF  1 

0187  REF  3 

0188  REF  25 

0189  REF  26 

0190  REF  31 

0191  ;FF  13 

01°2  REF  3 9 

0193  REF  40 

01935  REF  1 

0194  REF  Zh 

0195  PEF  64 

0196  REF  65 

01°7  EF 

0198  REF  10 

01985  REF  3 

0199  REF  2 

0200  ’EF  36 

0201  RFF  3 ° 

0202  r-EF  l 

0203  REF  2 

0204  PEF  6 


LAS"-  867 
LAST  1059 
LAST  1004 
LAST.,;  9/6 

LAST  )02R 
LAST  902 
LAST  1008 
LAST  1079 
LAST  976 
LAST  1095 
LAST  470 
LAST  745 
LAST  456 
LAST  9,,- 
LAST  105! 
LAST  1064 
i AST  1093 

LAST  604 
LAST  1099 
LAST  1Q9C 
LAST  827 
LAST  893 
(AST  1094 
LAST  1099 

LAST  1085 
LAST  1086 
LAST  109<= 
LAST  468 
LAST  1026 
I A S T 1011 
LAST  996 
LAST  10°2 
I AST  I • 

LAST  156 
LAST  914 


776  7 
7747 
4753 
47  5 2 
4245 
6246 
? 1 
6242 
4757 
4750 
4320 
4 36  3 
476  0 
4360 
4 36? 
4742 
5007 
474  1 

4775 

4776 
4741 
4741 
4740 
6016 
4 737 
4737 
766  3 
4 736 
47  3 6 
4736 
4 35  5 
4355 
6471 
7722 
47  3 5 
-735 
6 10  7 

4101 

4350 


MINI!  SI  = 

NEG1 

ONE 

T WO 

THREE 

LDW? 

FO'JP 

SIX 

LCW3 

EIGHT 

NINE 

TEN 

NflUTCOM  = 
OCT 2 3 
0CT25 
PR  10  1 
EBAIYK3 
PR  1 02 
OCT  1 20 
OCT  140 
2K 

FBANK4 
P R 1 04 
E BANK 6 
QUARTER  = 
PR  I 010 
OCT  10001  = 
P0S1/2 

pr  1020 

HALF 
PR  1 030 
BIT13— 14  = 
CCT30002  = 
B12T14 
NFGMAX 
VLOAOCOD  = 
VLOAD* 

OCT  60000  = 
BANKMASK  = 
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CK  ANY  OF  THESE 

SYMBOLS  IN  ORDER  TO  PREVENT  ANY  ? 

NEG1 

NEGONE 

B I T 1 

BH2 

OCTAL  3 

THREE 

BIT3 

REVCNT 

SEVEN 

BIT4 

R 2D  1 

RINCON 
ft  EVEN 

VD1 

MD1 

BIT  10 

OCT  1400 

BIT1 1 

SUPER  101 

SUP  El  110 

BIT11 

B I T 1 1 

B IT  1 2 

PR  I 03 

BIT  13 

BIT13 

CCSI. 

HALF 

B I T 1 4 

BITl-. 

CHRP RIO 

P R I 030 

T LOAD  +1 

PRI 034 

BIT15 

BIT  15 

OCT  40001 
RELTA61 1 

H I 5 

INTERPRETER  USES  IN  PROCESSING  STORECODE 

GAP  : 


0001 

0002 

0003 

0004 

0004 

0005 
000  5 

0006 
0006 
0007 

0007 

0008 
0008 
0005 
OCH 

00  i c 
0010 

001  1 
0012 
001  3 


ASSEMBLE  cE  VISION  001  CF  AGO  PROGRAM  API  HOPE  BY  EYLE3 
INTERPRETIVE  CONSTANTS 

REF  1 23,2000  SETLOC  INTPRET1 

23,2511  BANK 


REF  1 

2 3 , 2 11 
23, 2*12 

23.2513 

23.2514 

23. 2515 

23.2516 

23.2517 

23.2520 

23 . 2521 

23.2522 
23, 2623 

23.2524 

23.2525 
23 ,252‘ 

REF  13  LAST  910  23,2517 

23,2527 

23,2530 


COUNT* 

$$/ ICONS 

10000 

0 

DP1/4TH 

2DEC 

.25 

ocooo 

1 

oocoo 

1 

UNITZ 

2 DEC 

0 

GCOOO 

1 

0C  000 

1 

UNITY 

2 DEC 

0 

ooooo 

1 

2'  000 

0 

UN  T T X 

2DEC 

.5 

OOOOO 

1 

OCOOO 

1 

ZEROVECS 

2 DEC 

0 

ocooo 

1 

ooooo 

1 

2D  EC 

0 

ooooo 

1 

OCOOO 

1 

2DEC 

0 

ooooo 

i 

1 

DPHALF 

= 

UNITX 

37777 

1 

DPPOSNAX 

OCT 

37777 

37  777 

1 

OCT 

37777 

3:15  DEC. 
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GAP:  ASSEMBLE  REVISION  001  OF  AGO  PROGRAM  AP11R0PE  BY  EYLES 


P 00 1 A 

001  5 
0016 

0017 

0018 
0018 
001° 
0010 
0020 

002  0 
0021 
0021 
0022 
0022 
0023 

0023 

0024 
002  c 
002  fc 
0027 

0027 

0028 
0028 
002° 
0030 


IMTFf  PRETIVE  CONSTANTS 


INTERPRETIVE  CONSTANTS  IN  THE  OTHER  HALF-MEMORY 


REF 


12,2000  SETLOC  I N T PR E T 2 

12,2000  BANK 


PEF  1 


REF  6 LAST 
REF  7 LAST 


12,2000  00000  1 

12,2001  00000  1 

12,2002  00000  1 

12.2003  0(000  1 

12.2004  20000  0 

12,2003  00000  1 

12,2006  00000  1 

• 12,2007  OCOOO  1 

12.2010  OOGOO  1 

12.2011  OCOOO  1 

12.2012  00000  1 

12.2013  COOOO  1 

12.2014  77777  0 

12.2015  77771  0 

12.2016  77763  0 

1 2 , 2n 1 7 37777  1 

12.2020  37777  1 

12.2021  37777  1 

12.2022  37777  1 

965  12,2006 

968  12,2004 


ZUN  I T 

YUNI  T 

COUNT  * 
2DEC 

2DEC 

$$/I CONS 

0 

0 

X UNI  T 

2 DEC 

. 5 

ZERDVEC 

2DEC 

2DEC 

0 

0 

2 DEC 

0 

DEC-6 

DEC-12 

L ODPMAX 

OCT 

DEC 

DEC 

2 OCT 

77777 

-6 

-12 

3777737777 

LOOP  MTV* 

20CT 

3777737777 

ZERODP 

HAL.FDP 

= 

ZEROVEC 

XUMT 

3:15  DEC.  2,1970  SKIPPEF 
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-0,-6, -12  MUST  REMAIN  IN 

THESE  TWO  CONSTANTS  MUST 
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THIS  ORDER 

REMAIN 


ADJACENT  AND  THE  SA'"E  Fir  tmTFGPATTOM 


GAP: 

ASSEMBLE 

•••E  VISION 

0G1  f AGO  P R 0 G 4 A M APllRi'PE 

L 

SINGLE 

P^  EC  I SI  ON 

SUBROUT  INFS 

0001 

5032 

•R  0002 

SINGLE 

PR  ECTSI ON 

SINE  AND  COSINE 

BY  tYLES 


81  DC  K 


000  2 5 

REF 

1 

COUNT* 

000  3 

REF 

2 c 

LAS” 

10QO 

c0  32 

6 47  36 

1 

SPCQS 

AD 

000' 

PEE 

I 

6 03  3 

3 5 1 0 7 6 

0 

SPS  IN 

TS 

0005 

REF 

1 

3034 

1 5036 

0 

TCF 

0006 

R EE 

2 

LAST 

1102 

5035 

4 1076 

0 

CS 

0007 

5036 

6 LOGO 

1 

SPT 

DOUBLE 

0008 

PEF 

3 

LAST 

110? 

6C37 

55 • 076 

0 

TS 

ooop 

REE 

1 

506-0 

1 50  5 1 

1 

TCF 

0010 

REF 

4 

LAST 

1102 

c 06  1 

57  • 076 

1 

XCH 

OOL  1 

PEF 

C 

LAST 

1 102 

5042 

51 '0  76 

1 

INDEX 

0012 

REF 

3 

LAST 

1028 

504  3 

6 4734 

0 

AD 

0013 

5044 

4 0000 

0 

COM 

0014 

PEF 

6 

LAST 

1 1 0 2 

504  5 

6 I0  7g 

1 

AD 

0015 

REF 

7 

LAST 

1102 

c046 

55 '0 76 

0 

TS 

0016 

REF 

2 

last 

1 1 ''2 

506  7 

1 30  5 1 

TC  F 

0017 

REF 

1 

5050 

1 50  67 

1 

TCF 

0013 

5051 

0 C006 

1 

POLLEY 

EXTEND 

001  T 

REF 

, 8 

LAST 

1102 

505  2 

7 10  76 

0 

MP 

002  0 

REE 

1 

5053 

55*077 

1 

TS 

0021 

5054 

0 C 006 

1 

EXTEND 

0022 

PEF 

1 

5055 

7 5005 

0 

MP 

0023 

REF 

1 

5056 

6 7737 

0 

AD 

0024 

5057 

0 0006 

1 

EXTEND 

002  5 

REF 

2 

LAST 

1102 

5060 

7 10  77 

1 

MP 

0026 

REF 

1 

5061 

6 7717 

1 

AD 

0027 

5 06  2 

0 TOO  6 

1 

EXTEND 

002P 

REF 

o 

LAST 

1102 

506  3 

7 1076 

0 

MP 

0029 

5064 

20  001 

1 

DDOUBL 

0030 

REF 

10 

LAST 

1 102 

5065 

55*076 

0 

TS 

0031 

REF 

295 

LAST 

109  4 

5066 

0 0002 

0 

TC 

0032 

REF 

359 

LAST 

1094 

506  7 

5 0 COO 

1 

APG90 

INDEX 

0033 

REF 

4 

LAST 

1102 

c r?n 

4 47  34 

1 

CS 

003  A 

REF 

296 

LAST 

1102 

3071 

0 0002 

0 

TC 

02 


$$/INTEF 

HALF 

TEMK 

SPT 

TEMK 

TEMK 
POL  L F Y 
TEMK 
TEMK 
L IMITS 

TEMK 
TEMK 
POL L EY 

ARG90 

TEMK 

SQ 

C 5/  2 
C 3/  2 

SQ 

Cl/2 

TEMK 

TEMK 

Q 

A 

LIMITS 

Q 
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ARGUMENTS  SCALED  AT  PI 


R ESUL T SCALED  AT  1 


GAP:  ASSEMBLE  REVISION  0G1  OF  AGC  PRC  G;  AM  API  LRGPE  BY  EYLES 

L EXECUTIVE 
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USER'S  PAGE 


SKIPPER 
NO.  1 


.087  PAGE  1103 
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0001  5072  BLOCK  02 

R 0002  TO  ENTER  A J08  REQUEST  REQUIRING  NO  VAC  AREA: 


00025  REF 
00029 

000  3 REF 
00031  REF 


0004 

000  5 
0006 

0007 

0008 
000G 
0010 

001  1 

°001? 

0014 

0014  5 

0015 

0016 

0017 

0018 

0019 

0020 
002  1 

R 00? 1 1 

R.  002  1 2 5 


r>EF 

REF 

REF 

REF 

REF 


REF 


1 

1 

24 

1 

1 


LAST  369 


REE  297  LAST  1102 


REF 

REF 

REF 

REF 


2 

2 

25 

1 


LAST  1045 


TO  F\'TER  A JP 3 


LAST  1103 


REF  298  LAST  1103 


LAST  m3 
LAST  1103 
LAST  1103 


5072  0 C 004  0 

5073  6 r 1 64  1 

5074  54  063  0 

5075  0 0006  1 

5076  5 0002  0 

K077  3 C001  0 


MO  VAC 


COUNT*  $$/EXFC 
INHINT 

AD  FAKEPRET 

TS  NEWPRin 


EX i END 
INDEX  Q 
DC  A 


1 0C1MPAC 
PRIOR ITY 


+ 6 

OF 


I - (OC(QPRET) 

MEN  JOB  + NOVAC  C(FIXLOC) 


0 


Q WILL  BE  UNDISTURBED  THROUGHOUT. 
2CADR  OF  JOB  ENTERED. 


r 100 

52  0*4  0 

DXCH 

NEWLOC 

c101 

3 5163  0 

CAF 

EXECBANK 

5102 

56  004  0 

XCH 

F BANK 

5 1 0 3 

54  061  1 

TS 

EXECTEVl 

5 104 

1 2625  0 

TCF 

N0VAC2 

ENTER 

EXECUTIVE  BANK. 

REQUEST  REQUIRING  A VAC 

Af  EA  - 

E.G.,  All 

{PARTIALLY) 

IN~ERPPETIVE  JOBS. 

5105  0 ( L 04  0 FINDVAC  INHINT 


,61  Go  54  063  0 
6107  0 CO 06  1 

5110  5 (002  0 

6111  3 ('00 1 0 

5112  52  066  0 

5113  3 5163  0 

.5  114  56  004  0 

5115  1 2601  0 


SPVACIN 


15 
EXTEND 
INDEX  Q 
DCA 
DXCH 
CAF 
XCH 
TCF 


NEWPRIQ 


0 

NEWLOC 

EXECBANK 

FRANK 

FINDVAC2 


CFF  TO  EXECUTIVE  SW ITCHED-BANK . 


TO  ENTER  A FINDVAC  WITH  THE  PRIORITY  IN  NEWPR10  TO  THE  2C  AD  P ARRIVING  IN  A AND  L 
USERS  OF  SPVAC  MUST  INHINT  BEFORE  STORING  IN  NEWPRIO. 


002!  3 

REF 

299 

LAST 

Ilf:  3 

002  14 

REF 

5 

LAST 

88  8 

00215 

D EF 

3 00 

LAST 

1103 

0021  6 

REF 

1 

511 6 56  002  0 SPVAC 

5117  t 7746  0 

5 12  0 56  002  © 

5121  1 5112  1 


XCH  Q 

AD  N EG2 

XCH  Q 

TCF  SPVACIN 


R 0022 


TO  SUSPEND  A BASIC-  JOB  SO  A 


HIGHER 


PRIORITY  JOB  MAY  BE  SERVICED: 


00  24 

REF 

301 

LAST  1103 

512  2 

22  002  0 

CHANG  1 

LXCH 

0 

002  c 

REF 

3 

l AST  1103 

4123 

3 5163  0 

CAF 

EXECBANK 

0026 

REF 

29 

LAST  1025 

5124 

56  006  1 

XCH 

BBANK 

0027 

REF 

1 

5125 

l 2706  0 

TCF 

CHANJOB 

0030 

TO  SUSRENC 

AN  INTERPRETIVE  JQ  B : 

0031 

REF 

30 

LAST  1094 

5126 

4 0164  0 

CHANG? 

CS 

LOC 

NEGATIVE  IOC  SHOWS  JOB 

003  15 

ITRACE  (4) 

REFERS  TO 

"CHANG2"  . 

0032 

REF 

207 

LAST  1082 

5127 

54  001  1 

TS 

L 

I NTERPRETI  VF. 


GAP:  ASSEMBLE  REVISION  001  OF  AGC  PROGRAM  A°1 1 OPE  BY  EYLES 

L EXECUTIVE 
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0033 

REF 

4 

LAST 

1103 

5130 

3 5163 

0 

+ 2 CAE 

EXECBANK 

00335 

REF 

30 

LAST 

1103 

5131 

54  00  6 

0 

TS 

BBANK 

0034 

REF 

2 

LAST 

1103 

513  2 

1 2705 

0 

TCF 

CHAN JO 8 • 

.087  PAGE  1104 
EO  S3 


i" 

t 


i 


GAP:  ASSEMBLE  REVISION  00]  GF  AGO  PROGRAM  AP11R0PE  BY  EYLES 


L EXECUTIVE 


P003c 


TO  VOLUNTARILY  SUSPEND  A JOB  UNTIL  THE 


COMPLETION  OF  SOME 


0037 

0038 
003  c 
00  AO 


REF 

31 

LAST 

1103 

5133 

54  164 

0 

JOBSLEEP  TS 

LOG 

REF 

::  5 

LAST 

1104 

5 134 

3 5163 

0 

CAE 

EXECBANK 

PEF 

26 

LAST 

1103 

5135 

54  004 

1 

TS 

FRANK 

REF 

1 

5 136 

1 2776 

1 

TCF 

J08SLP1 

R00A1 


TO  AWAKEN  A JOP  PUT  TO  SLEEP  IN  THE  ABOVE  FASHION: 


0042 
004  21 
004  3 

REF 

Q C C 

3 

7 i 

14ST 

I A C T 

1103 

1 04  ? 

5137 
5140 
514  1 

0044 

"Li 

PEF 

r 1 

302 

t.  44  w. 

LAST 

1103 

514  2 

0045 

REF 

6 

LAST 

1 105 

5143 

0046 

KEF 

27 

LAST 

110  5 

5144 

004? 

PEF 

1 

5 14  5 

0 0004  0 

JOBWAKE  INHTNT 

54  065  0 

TS 

NEWLOC 

4 4752  1 

CS 

TWO 

26  002  1 

ADS 

Q 

3 5163  0 

CAP 

EXECBANK 

56  004  0 

XCH 

F8ANK 

1 3023  1 

TCF 

JDBWAKE2 

R 00'  <• 


TO  CHAMC.F  THc  nr,,pr.i.Y  OF  A 


JOB  CUT  9 ENTLY  UNDER 


EXECUTION 


0049  5146 

0050  REF  5 LAST  1103  5147 

0051  PEF  7 LAST  1105  5150 

0052  -EF  31  LAST  1104  5151 

0053  REF  9 LAST  102c  5-152 

0054  REF  303  LAST  1105  5153 

0055  REF  1 5154 


0 0004 
54  063 
3 51  63 

0 

n 

PPIDCHNG  INHJNT 

-re 

MCUDO jn 

u 

0 

• 

CAF 

EXECBANK 

5 6 0 06 

l 

XCH 

SBANK 

54  165 

l 

TS 

bank Set 

3 (002 

0 

CA 

0 

1 3072 

0 

TCF 

PRI0CH2 

R 005  B TO  RFMOVE  A JOB  FROM  EXECUTIVE  CONSIDERATIONS: 


0059  IFF  Q LAST  1105  5155 

0060  REF  28  LAST  1105  5156 

0061  REF  1 5157 


3 5163 

0 

END of JOB  CAF 

EXECBANK 

54  004 

1 

TS 

FBANK 

1 3103 

1 

TCF 

END JOB  1 

006?  REF  2 LAST  11 0 3 •>  1 > 

0063  REF  2C  LAST  1105  j16  1 

0064  REF  2 LAST  521  *162 

0066  REF  2 LAST  1103  5163 

00665  REF  713  LAST  1090  5164 


3 (061 

0 

endfind 

CA 

EXEC TF Ml 

54  0 04 

1 

TS 

FBANK 

1 6741 

1 

TCF 

0+2 

02601 

1 

EXECBANK 

CADR 

F INDVAC2 

00110 

1 

FAKEPRET 

ADRES 

M 5 AC  -36 D 
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USER'S  PAGE  NO.  3 
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EXIT 


IS  VTA  FINDVAC/NnVAC 


PROCEDURES. 


NEW  PRIORITY  ARPIVFS  IN  A.  RETURNS  TO 
CALLER  AS  SOON  AS  NEW  JOB  PRIORITY  IS 
HIGHEST  . PREPARE  FOR  POSSI  Pt.E  BASIC- 
STYLE  CHANGE- JOB. 


RETURN  Tti  CALLER  AFTER  JOB  ENTRY 
COMPLETE. 


LUC ( M PAC  +6) 


LOC(QPRET) 


GAP:  ASSEMBLE  .EVISION  001  OF 


AGO  PPi’G-H  A '•  APllRCPE  BY  EYLES 


L EXECUTIVE 

P 0067  10CATE  AN  AVAILABLE  VAC  AREA. 


0068 

006  P 5 

0069 

0070 

0071 
007?. 
0C7  3 

0074 

0075 

0076 

0077 

0078 

007  9 
00?<~  2 

007  V 4 
0080 
0081 

0082 

008  3 
0086 
008* 

0086 


5 E F 1 
REF  3 
PEF  4 
REF  1 
REF  3 
REF  2 
REF  3 
REF  3 
RFF  3 
REF  4 
REF  3 
REF  5 
REF  4 
REF  304 
REF  3 


LAST  1105 
LAST  244 

LAST  244 
LAST  1106 
LAST  244 
L Ar-T  1106 
LAST  266 
LAST  1106 
(.AST  ZL  4 
LAST  1106 
LAST  1106 
LAST  1105 
LAST  ?i* 


01,2601 

01,2601 
'U  , 2602 

01 .2603 

01.2604 

01.2605 

01.2606 
01 , 2607 
01,2*10 
01 , 26  1 1 
01, 2612 

01.2613 

01.2614 
01,2618 
"1 ,261 6 
01,2617 


54  061  1 
10  400  1 
1 2620  0 
10  454  0 
1 2620  0 
10  530  0 
1 2620  0 
10  604  1 
1 2620  0 
10  660  0 
1 2620  0 
22  061  0 
3 C002  0 
0 5716  1 
01201  0 


REF 

7 2 

LAST 

1105 

R EF 

3 60 

LAST 

110  2 

REF 

6 

LAST 

1105 

01 

, 2c  20 

6 

4752 

0 

0 1 . 

,2  >21 

2? 

007 

0 

C 1 • 

, 2622 

50 

000 

1 

01 . 

,2623 

21 

'777 

0 

01 . 

, 2624 

26 

C63 

0 

BANK  01 

COUNT 4 $$/EXEC 
FTNDVAC2  TS  EXECTEM1 

CCS  V AC  1 US  E 

TCF  VAC FOUND 

CCS  VAC2USE 

TCF  V AC  FOUND 

CCS  VAC3USE 

TCF  VAC  FOUND 

CCS  V AC.4USE 

TCF  VACFOUND 

CCS  VAC5USE 


LXCH  0 -1 

ADS  NEWPFIO 


0087: 

REF 

218 

LAST 

1086 

0 1 , 26 2 5 

0088 

REF 

5 

LAST 

45  8 

01 ,2626 

0089 

p E F 

I 

01,2627 

0090 

f5EF 

I 

01,2630 

0091 

REF 

6 

LAST 

1106 

01,2631 

0092 

REF 

12 

LAST 

86  3 

01 , 2632 

0093 

R E F 

1 

01,2633 

0054 

01 ,2634 

009r 

REF 

2 

LAST 

1106 

01,2635 

A 00  9 6 

3 47  55 

1 

NO V AC  2 

CAF 

ZERO 

54  064 

1 

TS 

LOCCT  R. 

3 2 634 

1 

CAF 

NO. COPES 

54  062 

1 

N0VAC3 

TS 

FXECTEM2 

50  C64 

0 

INDEX 

LOCCTR 

10  167 

0 

CCS 

PRIORITY 

1 2674 

1 

TCF 

NEXT  CORE 

0 CC07 

0 

n .cr  c5 

DEC 

7 

1 2 6 74 

1 

TCF 

NEXT  COR F 
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(SAVE  CALLER'S  BANK  FIRST.  ) 


NO  VAC  AREAS. 

RESERVE  THIS  VAC  AREA  BY  STORING  A ZERO 
IN  ITS  VAC  USE  RFGISTEP  AND  STOP  F THE 
ADDRESS  OF  THF  FIRST  WORD  OF  IT  IN  THE 
LOW  NINE  BITS  OF  THE  PRIORITY  WOPD. 


NOVAC  ENTERS  HERE.  FIND  A CORE  SET. 
SEVEN  SETS  OF  ELEVEN  REGISTEFS  EACH. 


FACH  PRIORITY  REGISTER  CONTAINS  -0  IF 
THE  CORRESPONDING  CORE  SET  IS  AVAILABLE. 

AN  ACTIVE  JOL  HAS  A POSITIVE  PRIORITY 
B'JT  A DORMANT  JOB'S  PRIORITY  IS  NEGATIVE 


GAP:  ASSEMBLE  REVISION  001  UE  AGO  PROGRAM  API  1R0PE  BY  EYLbc 


B: 15  DEC 


2,1970  SKIPPER  .087  PAGE  1107 


0097 

009  6 

0099 

0100 
0101 
0102 

0103 

0 1 0 A 

0105 

0106 

0107 

0108 
0105 
OIK. 
0111 
0112 

0113 

0114 

0115 

0116 
on  7 
0118 

0119 

0120 
0121 
0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 
01302 
01.306 

0131 

0132 


EXECUTIVE 


USER'S  PAGE  NO.  5 EO  S3 


REF  7 LAST  1106  01,2636  3 C063  1 CORFOUND  CA 


REF  7 LAST  1106  01,2637  50  064  0 INDEX 

REF  13  LAST  1106  01,2640  54  1.67  0 TS 

REF  9 LAST  863  0 1,264  1 7 5004  1 MASK 

REF  8 LAST  1107  01.  ,2642  50  064  0 INDEX 

REF  29  LAST  1077  01,2643  54  166  1 TS 

REF  9 LAST  1107  01,2664  10  064  1 CCS 

REF  1 01,26  45  1 2661  0 TCF 

rEF  11  LAST  10'20  91,2666  54  121  1 TS 

REF  30  LAST  1107  01,2647  3 0166  0 CA 

REF  *4  LAST  1 0° 1 : 01,?6C0  54  120  0 TS 


NEWPRIU  SET  THE  PRIORITY  OF  THIS  JOB  IN  THE  CORE 

LOCCTR  SET'S  PRIORITY  REGISTER  AMO  SET  THE 

PRIORITY  JOB'S  PUSH-DOWN  POINTER  AT  THE  BEGINNING 

L0W9  OF  THE  WORK  AREA  AND  OVERFLOW  INDICATOR 

LOCCTR 

°USH!  OC  OFF  TO  PREPARE  FOR  INTERPRETIVE  PROGRAMS 

LOCCTR  IF  COPE  SET  ZERO  IS  BEING  LOAOFD , SET  UP 

SET 1 1 JC  CVFIND  AND  FIXLOC  IMMEDIATELY  . 

OVF IND 

PUSHLOC 

FIXt.OC 


REF 
REF 
REF 
REF 
f>  FF 
RFF 
REF 
REF 


6 
2 
1C 
1 1 
7 
4 
32 


LAST  1003 
1 AST  1107 
LAST  1094 
LAST  1107 
LAor  H07 
LAST  1105 
LAST  1105 


01.2651 

01.2652 

01.2653 

01,26  54. 
01 , 2S 

01 .2656 

01.2657 


10  067  1 
1 2661  0 
0 6705  0 
0 5705  0 
54  067  1 
52  066  0 
52  165  1 


01,2660  1 5160  1 


SPECTEST  CCS 
TCF 
TC 
TC 
TS 

DXCH 

DXCH 

TCF 


NEWJPB 

S ET  LOG 

CCSHOLE 

CCSHOLE 

NEW JOB 

NEWLOC 

LOC 

ENDFIND 


SEE  IF  ANY  ACTIVE  JOBS  WAITING  (RARE) 
MUST  BE  AWAKENED  BUT  UNCHANGED  JOB. 


+0  SHOWS  ACTIVE  JPB  ALREADY  SET. 


REF  5 LAST  1107 
17  FF  10  LAST  1107 
REF  33  LAST  1107 
REF  8 LAST  1107 
FEF  14  LAST  1107 
REF  8 LAST  1107 

■PF  2 LAST  114? 
REF  11  LAST  1107 
P.EF  9 LAST  1107 
KEF  3 LAST  1107 


01,2661  52  066  0 SET LOC 

01,2462  50  064  0 

01.2663  52  165  1 

01.2664  50  067  0 

01.2665  4 0167  0 

01.2666  > 0063  1 

03.2667  0 0006  1 

0 1,2670  6 5160  0 

01 . 2671  3 0064  0 

01.2672  54  067  1 
01,7673  l 5 1 60  1 


DXCH  NEWLOC 

TNDEX  LCCCTP 

DXCH  LOC 

INDEX  NEWJOB 

CS  PRIORITY 

AD  NEWPRIO 

EXTEND 

BZMF  ENDFIND 

CA  LOCCTR 

TS  NEWJOB 

TCF  ENDFIND 


SET  UP  THE  LfCAT70N  0 EGISTER  S FOP  THIS 


THIS  TNDEX  INSTRUCTION  INSURES  THAT  THE 
HIGHEST  ACTIVE  PRIORITY  WILL  BE  COMPARED 
WITH  THE  NEW  PRIORITY  t0  SEE  IF  NEWJOB 
SHOULD  BE  SET  JO  TIGNA1  A SWITCH. 

LOCCTR  IS  LEFT  SET  AT  THIS  CP^E  SET  IF 
THE  CAILER  WANTS  TO  LOAD  ANY  MPAC 
REGISTERS,  ETC. 


OFF 

1 

01,2674 

3 3033 

1 

NEXT CORE  CAP 

CORF  INC 

PFF 

12 

I.  A S T 

1 1 P 7 

01 , 267- 

26  064 

1 

ADS 

LOCCTR 

0 EF 

2 

LAST 

1106 

01,2676 

10  062 

1 

CCS 

EXEC.TEM2 

REF 

1 

01,2677 

1 2630 

1 

TCF 

N0VAC3 

RE  F 

5 

LAST 

1 1 06 

0 1,2  ZOO 

22  061 

0 

>JCCFn 

EXEC.fE>t 

REF 

30  5 

LAST 

1106 

' I. , 2 70  1 

3 0002 

0 

/'  CAN 

Q 

OFF 

4 

LAST 

1106 

01,2702 

0 5716 

1 

( TC 

BAILOUT  1 

0 1 , 770  3 

01202 

0 

V PC  T 

1202 

NO  CORE  SETS  AVAILABLE. 
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P0133  THE  FOLLOWING  ROUTINE  SWAPS  CORE  SET  0 WITH  THAT  WHOSE  RELATIVE  ADDRESS  IS  IN  NEWJOB. 


01345 

REF 

34 

LAST 

1107 

01,2704 

22 

164. 

1 

-2 

LXCH 

LQC 

0135 

REF 

10 

LAST 

1 10  5 

0 1 , 2 7C5 

30 

165 

0 

-1 

CAE 

BANKSET 

BANKSET,  NOT  BBANK , HAS  RIGHT  CONTENTS. 

0136 

01,2706 

0 

0004 

0 

CHAMJOB 

INHINT 

r>  i 

0 1, ? 7 07 

o 

0006 

EXTEND 

111  3 O £ 

01366 

REF 

15 

LAST 

1001 

0 1, 2710 

04 

C07 

1 

ROR 

SUPERBNK 

PICK  UP  CURRENT  S BANK  FOR  BBC ON 

01366 

REF 

208 

LAST 

1103 

01,2711 

56 

001 

0 

XCH 

L 

LOC  IN  A AND  BBCON  IN  L. 

0136  8 

■ EF 

10 

LAST 

1107 

01,2712 

50 

067 

0 

+4 

INDEX 

NEWJOB 

SWAP  LOC  AND  BANKSET. 

0137 

REF 

35 

l AST 

1108 

01,2713 

52 

165 

1 

DXCH 

LOC 

0138 

REF 

36 

LAST 

119  8 

01,2714 

52 

165 

1 

DXCH 

LOC 

01382 

REF 

1 1 

LAST 

1108 

01,2715 

30 

1 6 5 

0 

CAE 

BANKSET 

01 3 P 4 

01,2716 

0 

0006 

1 

EXTEND 

01386 

REF 

16 

LAST 

11,0,8 

01,2717 

01 

007 

1 

WRITE 

SUPERBNK 

SET  S BANK  FOR  NEW  JOB. 

0 1 3 ^ 

REF 

714 

L AST 

1 1 0 5 

01 , 2720 

62 

155 

1 

DXCH 

MPAC 

SWAP  MULTI-PURPOSE  ACCUMULATOR  AREAS. 

0140 

REF 

11 

LAST 

1108 

01,272  1 

50 

067 

0 

INDEX 

NEWJOB 

014  1 

0 EF 

715 

LAST 

1 1 1 8 

Ol ,272? 

52 

15  5 

1 

1)  xc  R1 

m p AC 

0142 

REF 

716 

LAST 

1108 

01 , 2723 

52 

155 

1 

DXCH 

MPAC 

0143 

REF 

717 

LAST 

1108 

01,2724 

52 

157 

0 

DXCH 

MPAC  +2 

0164 

REF 

12 

LAST 

1108 

01,2725 

50 

067 

0 

INDEX 

NEW  JOB 

0145 

P EF 

718 

1 AST 

11  OP 

01,2726 

52 

157 

0 

DXCH 

MPAC  +2 

0146 

REF 

719 

LAST 

11  OP 

01.  ,272  7 

52 

1 5 7 

0 

DXCH 

MPAC  +? 

0147 

REF 

720 

l AST 

HOP 

01, 2730 

52 

161 

0 

DXCH 

MPAC  +4 

0148 

RFF 

13 

LAST 

1108 

01 , 2731 

50 

067 

0 

INDEX 

NEWJOB 

0149 

REF 

721 

L AST 

1108 

01  , 2732 

52 

161 

0 

DXCH 

MPAC  +4 

015  0 

REE 

722 

LAST 

1108 

0 1, 2733 

52 

161 

0 

DXCH 

MPAC  +4 

0181 

RFF 

723 

l AST 

HOP 

01 ,2734 

52 

163 

1 

DXCH 

MPAC  +6 

0152 

RFF 

14 

LAST 

1 1 . 

01 , 27?5 

5 0 

067 

0 

1 1'.  DE  X 

NEWJOB 

0163 

REF 

724 

1.  AST 

1108 

01, 2736 

52 

163 

1 

DXCH 

MPAC  +5 

0154 

RFF 

725 

LAST 

1 i 

01,2737 

52 

163 

1 

DXCH 

MPAC  +6 

0155 

REF 

219 

LAST 

1106 

01, 2740 

3 

4 7 55 

1 

CAF 

ZERO 

0156 

REE 

12 

LAST 

1107 

01,274  1 

56 

121 

0 

XCH 

OVF IND 

MAKE  PUSHLOC  NEGATIVE  IF  OVFJND  NZ. 

0157 

01,2742 

0 

00C6 

1 

EXTEND 

0158 

01 , 2743 

1 

2746 

1 

BZF 

+ 3 

0159 

REF 

31 

LAST 

1107 

01 , 2744 

4 

0166 

1 

cs 

PUSHLOC 

0160 

REF 

32 

LAST 

1108 

01,2745 

54 

166 

1 

TS 

PUSH LOC 

0161 

PEF 

33 

LAST 

110P 

01, 2744 

52 

167 

0 

DXCH 

PUSHLOC 

0162 

REF 

15 

LAS" 

1108 

01,2747 

50 

067 

0 

INDEX 

NEWJOB 

0163 

REF 

34 

LAST 

1108 

01 , 2750 

52 

167 

0 

DXCH 

PUSH!  nc 

0164 

REF 

35 

LAST 

1108 

01 , 275  1 

52 

167 

0 

DXCH 

PUSHLOC 

SWAPS  PUSHLOC  AND  PRIORITY. 

0165 

REF 

10 

LAST- 

1107 

01,2752 

3 

5004 

0 

CAF 

LGW° 

SET  FIXLOC  TO  BASE  OF  VAC  AREA. 

Cl  66 

REF 

15 

LAST 

1107 

0 1, 2753 

7 

Cl  67 

0 

MASK 

PRIORITY 

0167 

REF 

55 

LAST 

i i (7 

01,2754 

54 

120 

0 

TS 

F IXLOC 

0168 

PEF 

36 

LAST 

1103 

ni ,2755 

10 

166 

1 

CCS 

PUSH!  OC 

SET  OVER  FIOW  TNOT  C ATOP  ACCORDING  TO 

0169 

REF 

220 

LAST 

1108 

01,2756 

3 

4755 

1 

CAF 

ZERO 

0170 

REF 

1 

01 ,27c7 

1 

2764 

1 

TCF 

ENDPRCHG  -1 

I 


GAP:  ASSEMBLE  REVISION  001  OF  AGC  PROGRAM  AP11RGPE  BY  EYLES 


L EXECUTIVE 


0171 

REF 

37 

LAST 

1108 

01,2760 

4 

0166 

1 

017? 

REF 

33 

LAST 

110° 

01  ,2761 

54 

166 

1 

0173 

REF 

114 

L AST 

1072 

01,2762 

3 

4 7 53 

1 

0176 

REF 

13 

LAST 

1108 

01,2763 

56 

121 

0 

0175 

REF 

16 

LAST 

1108 

01,2766 

54 

067 

1 

0176 

01,2765 

0 

C003 

1 

0177 

REF 

37 

LAST 

1108 

01 ,2766 

52 

165 

1 

0178  01 ,2767  0 0006  1 
0176  01,2770  6 2772  1 
0180  01  ,2771  52  006  0 


CS 

TS 

r Af 

PUSHLOC 

DUSHLOC 

l*>M  C : 

vAr 

XCH 

TS 

UN  t 

OVFIND 
NEW JOB 

RELINT 

DXCH 

EXTEND 

BZMF 

DTCB 

l oc 

+ 2 

3 : 1 5 DEC 


2 


SKIPPER  .087  PAGE  1109 


,1970 


USER ' S PAGE  NO.  7 


EO  S3 


BASIC  JOBS  HAVE  POSITIVE  ADDRESSES, 
DISPATCH  WITH  A DTCB. 

IF  INTERPRETIVE,  SET  UP  EfiANK,  ETC. 


SO 


GAP: 


ASSEMBLE  REVISION  001  OF  AGC 


PROGRAM  API 1R0PE  BY  EYLES 


L 

EXECUTIVE 

0181 

01,277? 

4 

000  0 

Cl  82 

REF  115  LAST 

1109  01,2773 

6 

4753 

0183 

REF  38  LAST 

1109  01,2774 

54 

1 64 

0136 

"EF  ) 

01,2775 

1 

6050 

R01P7 

COMPL 

ETE  JnB$LEPP  PP 

IpARATI! 

COM 

AD 

TS 

TCF 


0168 

01  ,2776 

0 

0004 

0 

0185 

REF 

16 

LAST 

1108 

01, 2777 

4 

C1&7 

0 

0190 

REF 

17 

LAST 

1110 

01,30  C Q 

54 

167 

0 

01«1 

PEF 

e 

LAS- 

10-';- 4 

01,  ICO  1 

3 

1 

015  2 

REF 

32 

LAST 

1 1 0 6 

H , <0  0 2 

7 

0006 

o 

01921 

01 , 3003 

0 

0006 

1 

01922 

REF 

17 

LAST 

1108 

Cl ,3004 

04 

007 

1 

019  3 

REF 

12 

LAST 

1 1 08 

01, 3005 

54 

I - 

1 

01.94 

REF 

221 

LAST 

1 1 0« 

01,3006 

4 

4755 

0 

01  9 5 

RFF 

160 

LAST 

148  0 

91,3007 

54 

131 

0 

01 ° 6 

R F F 

1 

01 , 3010 

3120 

o 

0196  1 

01,3011 

0 

CO  04 

0 

0196 11 

JEF 

17 

LAST 

1109 

01 , 3012 

IQ 

067 

1 

0196 12 

01,3013 

1 

3016 

1 

0197  13 

01  ,3014 

0 

0003 

1 

019714 

REF 

1 

0 1,3015 

1 

32  16 

0 

01962 

REF 

73 

LAST 

1 1 

01 , 3016 

3 

4752 

0 

01963 

01,3017 

0 

0006 

1 

01964 

REF 

3 0 

L AST 

86  3 

01,3020 

0 5 

Oil 

1 

0196  5 

r-FF 

39 

LAST 

1 l 1 0 

01  , 3021 

5 2 

165 

1 

01  96  6 

RFF 

3 

LAST 

lH>4. 

01, 3022 

1 

2712 

0 

JOBS  LP1 


J OB  St  P 2 


MUCH  A NG 2 


INHINT 

CS 

TS 

CAF 

MASK 

EXTEND 

ROR 

TS 

CS 

TS 

TCF 

INHINT 
CCS 
r CF 

> EL  TOT 
TCF 

CAF 

EXTEND 

WOR 

OXCH 

TCF 


i 


i 

i 

3" 


CNE 

LOC 

INTRSM 


PKIC  'ITY 
PRIORITY 
L0W7 
8BANK 

SUPER  BNK 
BANKSET 
ZERO 
BUF  +1 
F J SC  AN 


NEWJUB 
+ 3 

ADVAN  +2 
TWO 

DSALMOUY 

LOC 

CHAN JOB  + a 


2" 
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EPILOGUE  TO  JOB  CHANGE  FOR  INTERPRETIVE 
RESUME. 


NNZ  P.  IOf  ITY  SHOWS  JOB  ASLEEP. 


SAVE  OLD  SUPER  BANK  VALUE. 


HOL DS  - HIGHEST  PRIORITY. 

SCAN  FOR  HIGHEST  PRIORITY  ALA  ENDOF JOB. 

QUICK...  DONT  LET  r;eW JOB  CHANGE  TO  +0  . 

NEWJ08  STILL  PNZ 

NEW JOB  HAS  CHANGED  TO  +0.  WAKE  UP  JOB 
VIA  NUDIP.  ECT . (VERY  RARE  CASE.) 


TURN  ON  ACTIVITY  LIGHT 
AND  SAVE  ADDi- ESS  INFO  f OR  BENEFIT  OF 
POSSIBLF  SLEEPING  JOB. 


I 


GAP;  ASSEMBLE  REVISION  001  GF  AGC  PROGRAM  AP11ROPE  BY  EYLES 
L EXECUTIVE 


3:  15  DEC.  2 ,1970  SK  IPPER 
USER • S PAGE  NO.  9 


.087  PAGE  1111 
EO  S3 


P 0197  TO  WAKE  UP  A JCB,  EACH  CCRE  SET  IS  FOUND  TO  LOCATE  ALL  JOBS  WHICH  ARE  ASLEEP.  IF  THE  FCADR  IN  THF 
RO 19°  LOC  REGISTER  OF  ANY  SUCH  JOB  MATCHES  THAT  SUPPLIED  BV  THE  CALLEF,  THAT  JOB  IS  AWAKENED.  IF  NO  JOB  IS  FOUND, 
R 0201  LOCCTR  IS  SET  TO  -1  AND  NO  FURTHER  ACT  ION  TAKES  PLACE. 


0202 

REF 

6 

LAST 

1 10  7 

01 , 302  3 

0203 

REF 

222 

L AST 

1110 

01 , 30  24 

0204 

RFF 

13 

LAST 

1107 

Cl, 3025 

0205 

REF 

2 

LAST 

1 106 

01, 3026 

0206 

RFF 

3 

LAST 

110  7 

01, 3027 

0207 

REF 

14 

L AST 

1111 

01, 30  30 

0208 

REF 

18 

LAST 

1110 

01,3031 

n 9 rye 

D CC 

1 

9 1 , 39  3 2 

’ J c.  J 

0 Cr 

1 

0210 

01,3033 

0211 

REF 

1 

01 , 3034 

54  C 6 1 1 
3 A 7 5 5 1 
54  064  1 
3 2634  1 
54  042  1 
50  064  0 
10  167  C 
1 3035  0 
00014  1 
1 3044  0 


JOBWi  AK  E2  TS  EXECTEM1 

CAF  ZERO  BEGIN  CORE  SET  SCAM. 

TS  LOCCTR 

CAF  NO. CORES 

J0BWAKE4  TS  EXEC  T EM 2 

INDEX  LOCCTR 

CCS  PRIORITY 

TCF  J0BWAKF3  ACTIVE  JOR  - CHECK  NEXT  COPE  SET. 

COREINC  DEC  12  12  REGISTFRS  PER  CORE  SET. 

TCF  WAKETEST  SLEEPING  JOB  - SEE  IF  CADR  MATCHES. 


0212 
0213 
02 1 * 

RFF 

REF 

0 FF 

0215 

REF 

0216 

REF 

0217 

REF 

02 1 F 

RFF 

021° 

0220 

!,  CL 

'Ll 

REF 

0221 

RFF 

0222 

0223 

022* 

REF 

0225 

REF 

0226 

REF 

022  7 

REF 

02  2 F 

RFF 

02  2 9 

REF 

0230 

REF 

0231 

REF 

0232 

REF 

023  3 

REF 

0234 

REF 

023  6 

PFF 

02  3 6 

REF 

0237 

RFF 

0238 

P F F 

0239 

REF 

0240 

PFF 

2 

LAST 

117 

15 

LAST 

till 

4 

LAST 

1111 

1 

116 

LAST 

1110 

16 

LAST 

nil 

4 

LAST 

1107 

6 

LAST 

11'  7 

17 

LAST 

1111 

40 

LAST 

1110 

2 

t A ST 

11  11 

18 

LAST 

1111 

19 

LAST 

1111 

9 

LAST 

1107 

19 

LAST 

1111 

20 

! AST 

1111 

1 

7 

LAST 

1111 

3 

LAST 

10  2 3 

8 

LAST 

1111 

2 

LAST 

1111 

20 

LAST 

11 11 

13 

L AST 

1110 

9 

LAST 

1111 

21 

L AST 

1111 

3 

LAST 

1107 

1 


01.3035  3 3033  1 J0BWAKE3  CAI-  COREINC 

01.3036  26  064  1 ADS  LOCCTR 

01.3037  10  062  1 CCS  EXECTEM2 

01.3040  1 3027  0 TCF  J0BWAKE4 

01.3041  4 4753  0 CS  ONE 

01.3042  54  064  1 TS  LOCCTR 

01.3043  1 ' 160  I TCF  ENDFIND 


01,304*  4 0065  0 

01 , 304  5 50  064  0 

01,30*6  6 0164  1 

01,3047  0 0006  1 

01,3050  l 3052  1 
: 1,305  1 1 3 03  3 0 


WAKETEST  Cr  NEW l DC 

INDEX  LOCCTR 

AD  LOC 

EXTEND 
BZF  +2 

TCF  J0BKAKE3 


01.3052  50  064  0 

01 .3053  4 0167  0 

01.3054  54  063  0 

01,30  5'"  50  064  0 

01 ,3046  54  1 67  0 


INDEX  LTCCTR 
CS  PRIORITY 

TS  NEW PR  10 

INDEX  LOCCTR 
TS  PRIORITY 


01,3057  4 4350  1 

01.3060  7 0065  0 

01.3061  6 4741  1 

01.3062  56  065  1 

01.3063  7 4350  1 

01.3064  50  064  0 

01.3065  6 0165  0 

01 .3066  54  066  0 


CS  fbankmsk 

MASK  NEWLQC 

AD  2 K 

XCH  NEWLQC 

MASK  FBANKMSK 

INDEX  LOCCTP 

AD  BANKSET 

TS  NEWLQC  +1 


01,3067  10  064  1 

01.3070  1 2661  0 

01.3071  1 2651  0 


CCS  LCCCTR 

TCF  SETLOC 

TCF  SPECTEST 


FXIT  IF  SLEEPING  JOB  NQT  FOUND. 


IF  MAtCH. 

EXAMINE  NF  XT  CORE  SF T IF  NO  MATCH. 
RE-CONPL EMFNT  PRIORITY  TO  SHOW  JCB  AWAKE 


MAKE  UP  THE  2 C ADR  OF  THE  WAKE  ADDRESS 
USING  THE  CADR  IN  NEWLQC  AND  THE  EBANK 
HALF  OF  BBANK  SAVED  IN  BANKSET. 


SPECIAL  TREATMENT  IF  THIS  JOB  WAS 
ALREADY  IN  THE  RUN  (0)  POSITION. 
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.087  PAGE 

L 

EXECUTIVE 
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PAGE 
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EO  S3 

P 024 1 PRIORITY  CHANGE.  CHANGE  THE  CONTENT?  OF  PRIORITY  AND  SCAN  FOR  THE  JOB  OF  HIGHEST  PRIORITY. 


024  3 

REF 

41 

LAST 

1111 

01,3072 

0244 

REF 

223 

LAST 

1111 

01,3073 

024  r 

REF 

150 

LAST 

1110 

01,3074 

n?6.  a 

t,  £ p 

] 1 

L 4ST 

1 1 0° 

r'l  , 3075 

V C.  *T 

0247 

REF 

21 

LAST 

ini 

01 , 3076 

0248 

REF 

10 

LAST 

in  i 

01 , 3077 

024? 

REF 

22 

LAST 

1112 

Cl, 2100 

0250 

0 1,310] 

0251 

REF 

1 

01 , 310  2 

54  164 

3 47  5 5 
54  130 
3 5(  04 

0 PRICCH2 

1 

1 

o 

TS 

CAF 

TS 

CAF 

LOC 

ZERO 

BUF 

1 nue 

7 Cl  67 

0 

MASK 

PRIORITY 

6 0063 

1 

AD 

NEW  PR  I 0 

54  167 

0 

TS 

PRIORITY 

4 0000 

0 

COM 

1 3 CO  7 

1 

TCF 

JOBS  L P2 

SET  FLAG  TO  TELL  ENDJ08  SCANNER 
JOB  IS  STILL  HIGHEST  PRIORITY. 


AND  TO  EJ  SCAN . 


IF 


1112 


THIS 


t 
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L EXECUTIVE  USER'S  PAGE  NO.  11  EO  S3 

P025 2 RELEASE  THIS  CORE  SET  AND  VAC  AREA  AND  SCAN  FOR  THE  JOB  OF  HIGHEST  ACTIVE  PRIORITY. 

0254 

0255  REF  224  l AST  1112 

0256  REF  151  LAST  1112 

02  5 7 REF  23  LAST  1112 

025 R PEE  12  LAST  1112 

0258  1 R.EF  209  LAST  11  OR 


01.3103  0004  0 

01. 3104  4 - 755  0 

01.3105  54  131  0 

01 .3106  56  167  1 

01.3107  7 5004  1 

01,3110  54  001  1 


ENDJ0B1  INbINT 

CS  ZERO 

TS 
XCH 
MASK 

TS  L 


025^2 

PEF 

2 

l AST 

1103 

01,3111 

4 

61  64 

0 

02 582  I 

REF 

210 

LAST 

1113 

01,3112 

6 

0 001 

0 

02583 

01,3113 

0 

0006 

1 

02584 

REF 

2 

LAST 

1110 

01,3114 

6 

3120 

1 

026  0 

PEF 

2 1 1 

LAST 

1113 

01,3115 

10 

001 

1 

0260 

REF 

361 

LAST 

1106 

0 1,3116 

50 

000 

1 

0261 

01,3117 

54 

0 00 

0 

CS  PAKEPPET 

AD  l 


EXTEND 

BZMF  E JSC AN  NOVAC  ENDOFJCB 

CCS  L 
INDEX  A 
TS  0 


0262  REF  24  LAST  1113  01,3120  10  203  1 EJSCAN  CCS  PRIORITY  + 12D 

0263  PEF  1 01,3121  0 3171  0 TC  EJI 

0264  REF  12  LAST  1107  01,3122  0 57C5  0 TC  CCSHOLE 

02 1 ” '1,3123  1 312  1 TCP  +1 


02  66 

0267 

0268 
0264 

027  0 

0271 

0272 


REF  25  LAST  1113 
REF  2 LAST  1113 
REF  13  (AST  1113 


P-EF  26  ! AST  1113 

REF  3 LAST  1113 
REF  27  LAST  1113 


01 . 3124 

01. 3125 
0 1 , 312  6 
01,3127 

01.3130 

01.3131 

01.3132 


10  217  1 
0 3171  0 

0 5705  0 

1 3130  1 

10  233  1 
0 3171  0 
67610  1 


CCS 

TC 

TC 

TCP 

CCS 

TC 

-CCS  PR  -CCS 


PRIORITY  +24  D 
EJI 

CCSHOLE 

+ 1 

PRIORITY  +36 D 
EJI 

PRIORITY 


EXAMINE  EACH  PRIORITY  REGISTER  TO  FIND 
THE  JOB  OF  HIGHEST  ACTIVE  PRIORITY. 


027  3 

01,3133 

1 3134 

0 

TCF 

i l 

0274 

REF 

28 

L AS7 

1113 

01,3134 

10  2 47 

1 

CCS 

PRIC  I TV 

+ 4 8 D 

0276 

17  F F 

& 

LAST 

1113 

01,3135 

0 3171 

0 

TC 

EJI 

0276 

REF 

14 

LAST 

1113 

01, 3136 

0 5705 

0 

TC 

CCSHOLE 

0277 

01,3137 

1 3140 

0 

TCF 

+ 1 

0278 

REF 

29 

LAST 

1 1 13 

0 1,31  a 0 

10  263 

1 

CCS 

PR  16  I i Y 

+ 6 0 D 

0279 

7 F F 

5 

1-  A ST 

1113 

" 1,31 4 1 

0 3171 

0 

TC 

EJI 

028  0 

REF 

15 

LAST 

1113 

01,3142 

0 570  5 

0 

TC 

CCSHOLE 

028  1 

01 ,314  3 

1 3144 

1 

TCF 

- 

023  2 

KEF 

30 

LAST 

1 1 13 

0 1,3144 

10  277 

1 

('CCS 

PRIORITY 

+ 72lX 

02  53 

7 EF 

6 

LAST 

1113 

01 ,314.8 

0 3171 

0 

Xrc_ 

F J-l.  

0284 

P EF 

1 6 

LAST 

UI  3 

01,314 8 

0 5705 

0 

TC 

CCSHOLE 

02«6 

0 1 , 3 1 ■+  7 

1 ^ 1 ! 

1 

TCF 

02851 

RFF 

3 L 

LAST 

1113 

01 ,3150 

10  313 

1 

CCS 

priority 

+ 84  D 

GAP: 
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1570 

SKIPPER 

.067  PAGE 

L 

EXECUTIVE 

USER'S 

PAGE 

NO . 12 

EG  S3 

02852 

REF 

7 LAST 

1113 

01,3151 

0 

3171 

0 

TC 

EJ1 

02853 

REF 

17  LAST 

1113 

01,3152 

0 

5705 

0 

TC 

CCSHOLE 

02354 

01,3153 

1 

3 1 54 

0 

TC  F 

+ 1 

GAP:  ASSEMBLE  REVISION  GOl  OF  AGC  PROGRAM  AP11R0PE  BY  EYLES 

L EXECUTIVE 


P 028  6 


EVALUATE  THE  RESULTS  OF  THE  SCAN. 


0237 

REF 

152 

LAST 

1113 

01,51  54 

10 

131 

0 

028  3 

REF 

18 

L AST 

1114 

01,3155 

0 

5705 

0 

0289 

REF 

19 

LAST 

1115 

01 , 3156 

0 

5705 

0 

ccs 

TC 

TC 


0290 

01,3157 

1 

3161 

0 

0291 

REF 

2 

LAST 

213 

01,3160 

1 

3206 

1 

0292 

REF 

153 

LAST 

1115 

Cl ,3161 

10 

130 

1 

029  3 

01,3162 

1 

3164 

0 

0294 

REF 

2 

L AST 

1108 

01,3163 

1 

27  64 

l 

TCF 
TC  F 
CCS 
TCF 
TCF 


0295  REF  362  LAST  1113  01,3164  50  000  1 INDEX 

0296  01,3165  2*7777  0 CAF 

0297  REF  1 01,3166  6 3132  1 AO 

029;  REF  U LAST  1110  01,3167  56  067  1 TS 

0299  PFF  LAST  111  9 oi ,3170  1 2704  1 TCF 


0300 

REF 

154 

LAST 

1115 

01 ,3171 

54  132 

0 

0301 

REF 

155 

LAST 

1115 

01,3172 

6 0131 

1 

0302 

REF 

363 

LAST 

1115 

01 ,317  3 

10  QUO 

0 

0303 

PEF 

15  6 

L AST 

1115 

01,3174 

4 Cl  3? 

0 

0304 

R EF 

1 

01,3175 

1 32  01 

0 

O'3  Oc 

O 1 2 1 7 A 

13  177 

i 

L 

0306 

REF 

306 

LAST 

1107 

01 , 3177 

50  002 

0 

0307 

01 ,3200 

0 0002 

0 

TS 

AU 

CCS 

CS 

TCF 

NOOP 

INDEX 

TC 


0306 

0309 

03  1 9 

REF 

R F F 

1 5 7 

] c 0 

LAST 

LAST 

11  15 

1 1 1 c 

01,3:201 

01,3202 

9 1 , 7?'>  3 

54  131 
0 0006 
? o i on 

0 

1 

n 

0311 

0312 

REF 

159 

LAST 

1115 

01 . 3204 

01 . 3205 

C.  C.  1 J L' 

1 

0 0002 

0 

0 

TS 

EXTEND 

OXCH 

INDEX 

TC 


3: 
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USER'S  PAGE  NO.  13  EO  S3 

BUF  +1 

CCSHOLE 

CCSHOLE 

SEE  IF  THERE  AP  E ANY  ACTIVE  JOBS  WAITING 

+ 2 

DUMMY  JOB 

BUF 
+ 2 

ENDPRCHG  -l 

BUF  IS  ZERO  IF  THIS  IS  A PRIOCHNG  AND 
CHANGED  PRIORITY  IS  STILL  HIGHEST. 

A 

0 -1 
-CCS PR 

NEW JOB 

CHAN JOB  -2 

OTHERWISE,  SET  NEWJOB  TO  THE  RELATIVE 
ADDRESS  DF  THE  NEW  JOB'S  COPE  SET. 

BUF  +2 

BUF  *-1 

A 

BUF  +2 

- OLD  HIGH  PRIORITY. 

EJ2 

NEW  HIGH  PRIORITY. 

Q 

2 

BUF  +1 

PROCEED  WITH  SEARCH. 

8i  IF 
BUF 


FOR  LOCATING  CCS  PRIORITY  + X TNSTR 


GAP: 
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P 03  1 4 
R 03 1 6 

0313 

0319 

0320 

0321 

0322 

0323 

0324 

032  8 

0329 

0330 

0331 

03311 

0331  S 

0332 

0333 

03338 

0334 

0335 

0336 

0337 
033~?? 

03378 

03379 

R 0337  9 1 
R 0 3 3 7 c 2 
A 0 337  9 3 

0338 

033  8 1 
03382 
033  8 3 
03384 

0338 


EXECUTIVE  USER’S  PAGE  NO.  14  EO  S3 

IDLING  AND  COMPUTER  ACTIVITY  (GREED  LIGHT  MAINTENANCE • THE  IDLING  ROUTINE  IS  NOT  A JOB  IN  ITSELF, 
BUT  RATHER  A SUBROUTINE  OF  THE  EXECUTIVE. 


RFF 

4 

LAST 

290 

136  1 

E B A N K = 

SELF  R E T 

SELF-CHECK  STORAGE  IN  EBANK. 

REF 

225 

LAST- 

1113 

0 1 , 3206 

4 *755 

0 

dummy  job; 

CS 

ZERO  X 

SET  NEWJOB  TO  -0  FOP  IDLING. 

REF 

19 

LAST 

1115 

01 ,3207 

54  067 

1 

TS 

NEW Jr'B  3. 

01,3210 

0 0003 

1 

RELINT 

1 

REF 

74 

LAST 

1110 

01,3211 

4 47  52 

1 

CS 

two  a 

TURN  OFF  THE  ACTIVITY  LIGHT. 

0 1,3212 

0 to  06 

1 

EXTEND 

\ 

REF 

31 

LAST 

1110 

01,3213 

03  011 

1 

WAND 

DSAt  MOUT  1 

RFF 

1 ast 

1 1 1 K 

01 ,8214 

10  0 67 

1 

ADVAN 

CCS 

Ni  p i r ’ 3 ^ 

IS  A NEWJOB  ACTIVE  ? 

REF 

C.  ' ' 

1 

I 1 1 W 

01,3215 

1 3011 

0 

TCF 

\ 

YES...  ONE  REQUIRING  A CHANGE  JOB. 

REF 

75 

LAST 

1116 

01,3216 

3 4752 

0 

CAF 

TWO 

NEW  JOB  ALREADY  IN  POSITION  FOR 

REF 

1 

01,3217 

1 3225 

0 

TCF 

NUDIR ECT 

EXECUTION. 

REF 

5 

LAST 

1116 

01,3220 

3 1361 

1 

CA 

SELF'ET  ^ 

a 

3CC 

1 A 

1119 

i . no  1 

54  C-01 

1 

T R 

p • 1 T RFT'IRN  AODRFSC  flu  1 . 

'Ll 

£ L c. 

L A ->  I 

l 1 I 3 

V I f 9 c.  c.  I 

1 

PEF 

l 

01,3222 

3 3224 

0 

CAF 

SELFBANK 

5, 

REF 

5 

LAST 

593 

01, 3223 

1 5166 

1 

TCF 

SUPDXCHZ  + 

1 

1.  AND  DISPATCH  JOB. 

REF 

6 

LAST 

11  U 

136  1 

EBAMK= 

SELF RET 

REF 

3 

LAST 

29  ) 

01, 3224 

66102 

1 

SELFBANK 

BBC  ON 

$ EL  PC  HK 

01,3225 

0 00  06 

1 

NUDIRECT 

EXTEND 

TURN  THE  GREEN  LIGHT  BACK  ON. 

REF 

32 

LAST 

1116 

01,3226 

05  011 

1 

WOR 

DSALMOUT 

REF 

42 

LAST 

1112 

01, 3227 

52  165 

1 

DXCH 

LOC 

JOBS  STARTED  IN  THIS  FASHION  MUST  BE 

REF 

6 

LAST 

1116 

.11,32  30 

l 8165 

1 

TCF 

SUPDXCHZ 

5D5 

BLOCK 

2 

IN  FIXED-FIXED  SO  OTHERS  MAY  USE. 

REF 

2 

L AST 

1103 

TO  1106: 

59 

59* 

COUNT* 

SS/EXFC 

SUPDXChZ 

- routine 

TQ  TRANSFER  TO  SUPERBANK. 

CALLING 

SEQUENCE 

TCF 

SUPDXCHZ 

WITH  ? C ADR  OF  DESIRED  LOCATION  IN  A + 

REF 

2 13 

LAST 

1116 

516  5 

56  301 

0 

SUPDXCHZ 

XCH 

L % 

BASIC  . 

5166 

0 0006 

1 

+ 1 

EXTEND 

1 

REF 

18 

LAST 

1110 

5167 

01  007 

1 

WR  ITE 

SUPER6NK  2 

RFF 

33 

LAST 

11 1C 

c 170 

54  0 0 6 

0 

TS' 

B3ANK  2 

REF 

214 

LAST 

1116 

517  1 

0 0001 

0 

TC 

1 

5172 

77677 

1 

NEG100 

OCT 

77677 

SAP 
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l 

R 000 1 
R 0003 
R0005 
R 0007 2 

R On^7? 
ROC 07 99 

ROGO  8 
R 0005 
R 00 1 1 
R 00 1 ^ 

R 001  A 
R 0016 

R 0 0 1 7 
R 001  8 
R 001  ° 
R0020 
ROD  2 1 
R 002? 

R 0 0 2 3 

R 0024 
R 002  5 
P 0026 
R 0027 

R 0028 
R0029 

R003C 
R003 ) 

R 0032 
R 003  3 
R0C3* 
R0035 

R0C36 

R 0037 
R 003E 
R 0040 
R 004  1 
R 0042 

R 004? 1 
R 004  2 ? 

R 0042  3 
R 0042  5 


WATTL  1ST 


USER • S PAGE  NO. 


EO  S3 


PROGRAM  DESCRIPTION 
MOD  NO  - 2 

MuD  BY  - MILLER  (DTMAX  INCREASED  TO  192.5  SEC) 

MOD  3 BY  KERNAN  (INHINT  INSERTED  AT  WAITLIST)  2/28/66  SKIPPER  REV  4 


DATE  - 10  OCTOBER  1966 
l r G SECTION  - WAITLIST 
ASSEMBLY  SUNBURST  REV  5 


<■'•'•0  'BY  K E ' - - a\)  (TWlib#  TN  541  3/28/6  3 SK  7 PP EP  RfV  13. 


FUNCTIONAL  DESCRIPTION- 

PA  ■ ?F  \ i:  EC  : OF  PC:.  0-  A'S, -WAITLIST,  IASKOVE  , T3  JP  T , USED  TO  CALL  A PROGRAM,  (CALLED  A TASK), 

..MICH  IS  To  BEGIN  IN  C(M  CENT  I SECONDS.  WAITLIST  UPDATES  TIME3,  LST1  AND  LST2.  THE  MEANING  OF  THESE  I IST$ 

PPL LOW . 

C ( T I ME3  ) = 16384  - ( T1 - T ) CEN  T I SECOND  S , ( T = PP  E S ENT  TIME,  Tl-TIME  FCP  T ASK  1 ) 


C ( L 5 T 1 ) 

= 

- ( ' 2- T l ) + 1 

C ( L S T 1 

+ 1 ) 

_ 

-(  T3-T2)  + 1 

C ( L ST  1 

+2  ) 

• 

-(T4-T31+1 

CiLSTl 

+6  ) 

= 

- ( T8-T7  ) + 1 

CU  ST1 

+7  ) 

= 

- ( T - T 8 ) + 1 

C ( LST2  ) 

2C ADR  OF  TASK  1 

C ( L E T 2 

+2  ) 

• 

2C ADR  OF  TASK2 

C ( L S 1 2 

+ 14) 

• 

2CADR  OF  TASKS 

C ( L S T 2 

+ 16) 

1 = 

2 C A DR  OF  TASK9 

WAPNINGS- 


1)  1 <=  C(A)  <=  162500  (1  CENT [SECOND  TO  1-2.5  SEC) 

2)  TASKS  MAXIMUM 

3)  TASKS  CALLED  UNDER  I N'T  El' r INHIBITED 

4)  TASKS  END  BY  TC  TASKOVER 

CALI  ING  SEQUEMCE- 


T oIDDl E- 


L-l 

CA 

DFLTAT  (TIME  IN 

L 

TC 

WAITLIST 

L + l 

2CADR 

DESIRED  TASK 

L+2 

(MINOR 

OF  2CADR ) 

L+3 

RELINT 

(RETURNS 

CENT I SECONDS  TO  TASK  START) 


HERE) 


TWIDDLE  IS  FOR 
SUCH  CASES,  IT 


USE  WHEN  THE  ^ A S K BEING  SET  UP  IS  IN  THE  SAME  EBANK  AND  FBANK  AS  THE 
IMPROVES  UPON  WAITLIST  BY  ELIMINATING  THE  NEED  FOR  THE  BBCON  HALF  OF 


USER.  IN 
THE  2C ADR  , 


GAP:  ASSEMBLE  REVISION  001  OF  AGO  P.-UGRAM  AP11-.UPE  BY  EYLfcS 


3:15  DEC 


2 ,1970 


SKIPPER 


L 

R 0042  7 

R 0043 
P 0043 1 
R 0043 2 
R00433 

R 004?  c 

R 004* 

R 00  '*5 

R 0046 
R00A7 

F 004  8 

R 0040 
R 0050 

ROOF  1 

R003? 

R 005  3 

R 0054 
ROOF  c 
R 00  58 

R0057 
R 0 0 5 9 

R 0060 
R 006 1 
R 006? 

R 0063 
R 0064 
R 0066 
R 006  7 
R 006  3 
R 006  ° 

R 007  1 

R0072 
R 007* 

R 007 1 


0077 
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WAITLIST  USER'S  PAGE  NO.  2 EO  S3 

SAVING  A Wf r 0.  TWIDDLE  IS  LIKE  WAITLIST  IN  EVERY  RESPECT  EXCEPT  CALLING  SEQUENCE,  TO  WIT- 

L-l  CA  DELTAT 

I 1C  TWIDDLE 

L+l  ACRES  DESIRED  TASK 

L + 2 REt  TNT  (PET#RNS  HE^E) 

NORMAL  EXIT  MODES- 

AT  L+3  OF  CALLING  SEQUENCE 
ALARM  hr  ABORT  EXIT  tff  0 F $ - 
TC  ABORT 

QC.T  1203  (WAITLIST  OVERFLOW  - TUG  MANY  TASKS) 

ERASABLE  INITIALIZATION  REQUIRED- 


ACCOMPLISHED  BY  FRESH  START,  — LST2,...,  LST 2 +16  = ENDT A SK 

L S T 1 , . . . , L ST  1 +7  = N E G 1 / 2 


■•UTPUT- 


LST1  AMD  I ST2  UPDATED  WITH  NEW  TASK  AND  ASSOCIATED  TIME. 


DEBT  I S- 


CENTRALS-  A , Q , L 

OTHER  - --A  I TEXT.  , WAITADR,  W A I T TEMP,  WAIT  BANK 
DETAILED  ANALYSIS  it  TIMING- 

control  WILL  NOT  RE  RETURNED  TO  THE  SPECIFIED  ADDRESS  ( 2CADR  ) IN  EXACTLY  DELTA  T CENT  I S EC ONDS . 
THE  APPROXIMATE  TIME  MAY  BE  CALCULATED  AS  FOLLOWS 


iz--,, 


■ - E 


LET  TC  = 
LET  TS  = 

L FT  X = 
LET  Y = 
LET  Z = 
USUALLY ) 

LET  DEL  TO 
THEN  DEL " 0 
TIME  TAKE!  BY 


THE:  TI  E [ F THE  TC  WAITLIST 

TO  + 1*7U  + COUNTER  INCREMENTS  ( SET  UP  TIME) 

: " -MOOTS) /%!0  ( V A?  I ANC E FCC"<  COUNTERS  ) 

LENGTH  CF  TIME  OF  INHIBIT  INTERRUPT  AFTER  T3RUPT 
I ENGTH  OF  T I ME  TO  PROCESS  TASKS  WHICH  Ar-  E DUE  THIS  T3RUPT  BUT 

= THE  ACTUAL  TIME  TAKEN  TO  GIVE  CONTROL  TO  2CADR 
= TS+DELTA  T -X  +Y  +Z  +1.05MS*  +COUNTEPS* 

WAITl  I ST  TTSELF  AD  THE  COUNTED  TICKING  DURING  THIS  WAITLIST 


DISPATCHED  EARLIER. 


T I ME. 


I N SH3 R T , 

INTERRUPT,  All 
OF  OTHER  TASKS 


T H F AC  UAL  TIME  fC  RETURN  CCNT'  CL  fO  A 2C AD1'  IS  AUGMENTED  BY  THE  TIME 
CC1  UP;  S TICK  IMG,  THE  T3r'LIPT  PROCESSING  TIME,  THE  WAITLIST  PROCESSING 
1 ' HUT  ING  THE  PO  E''  Jf  . 


TO  SET  UP  THE  TASK:S 
TIME  AND  THE  POSSIBIL ITY 


8173 


BLOCK  02 


..z 


.£ 


1" 


gap:  ASSEMBLE  aE VISION  001  CE  AGO  PROGRAM  AP11R0PE  BY  tYLES 

L WAITl 1ST 

0078  PEF  14  LAST  220  E3.1400  E B ANK  = L ST  1 


007  9 

0079  5 

0080 

REF 

REF 

stc 

1 

215 

an 

LAST 

LAST 

LAST 

LAST 

1114 

10  RO 

1115 

1116 

UUO  1 

0082 

0083 
00832 
00834 

0084 

U M 

REF 

REF 

D 'J 

307 

34 

REF 
p FF 

19 

2 1 f 

LAST 

LAST 

1116 

1 L 1 ° 

00849 
008  5 
0086 
003T 
0038 
no°<' 

REF 

REF 

c EF 

308 

1 

2 

LAST 

1119 

LAST 

1119 

0090 
009  1 
009  2 
0093 

P.  EF 
PEF 
REF 
REF 

1 

1 

35 

1 

LAST 

1119 

5173  0 0004  0 

5174  54  0C1  1 

4175  3 4733  1 

p 1 76  26  002  1 

5177  3 0006  1 

5200  - 0 (.006  1 
6201  04  007  1 

5202  56  (01  0 

5203  0 0004  0 

5204  56  C 02  0 

5 20  5 : : 5 4 0 61  1 
6246  0 0006  1 

: 2C"7  5 0061  0 

5210  3 0001  0 

5211  54  063  0 

5212  3 5220  1 

5213  56  0-0  6 1 

5216  1 3231  0 


COUNT  * $ $ / W A I T 
TWIDDLE  INHINT 

TS  L 

CA  °n$MAX 

ADS  Q 

CA  BBAMK 

EXTEND 

LG*  SUPER BN K 

XCH  L 

WA  IT  L 1ST  INHINT 

XCH  Q 

TS  WAITEXIT 

EXTEND 

INDEX  WAITEXIT 

DC  A 0 

-1  TS  W A I T ADR 

DLY2  CAP  WAITBB 

XCH  B8ANK 

TCf  WAIT2 


pona/.  RETHR  N TO  CAM  Ei  AFTER  TASK  INSERTION: 


0095  REF  3 LAST  1119  5215 

0096  REF  76  LAST  .1116  5216 

0090  5217 

009°  R EF  1M  LAtT  lllr'  F 3, 1400 

0100  REF  2 LAST  1119  5220 

R01Q1  RETURN  TO  C At  LER  +2 

0102  ;'F.F  3"'  I Ac~  1114  0?21 

0103  5222 

0104  REF  310  LAST  1119  5223 


R 0105  RETURN  TO  CALLER  +1 


0106  REF  311  LAST  1119  ^224 

0107  PEF  2 LA'-"'  1 1 19  5225 

0108  REF  36  LAST  1119  5226 

0109  5227 

0110  EF  20  LAST  1119.  0230 

0111  REF  217  LAST  111  23 1 

0112  REF  1 '232 

0113  RRF  4 LAST  111'  6293 

0114  REF  1 5234 


52  062  1 LVWTLIST  DXCH  WAITEXIT 

6 4752  0 AD  TWO 

52  f 06  0 DTCB 

EBANK=  L ST  1 

02063  0 WAITBB  BBCON  WAIT2 


AFTER  WAITING  DT  SPECIFIED  AT  CALLER 


50  00  2 

0 

FIXDELAY 

INDEX 

Q 

3 0000 

1 

CAF 

0 

24  002 

0 

I NCR 

0 

AFTFL  WAITING  THE  DT 

AS  ARRIVING  IN 

56  002 

0 

VARDELAY 

XCH 

Q 

5L  063 

0 

TS 

WATTADR 

3 0006 

1 

CA 

BBANK 

0 C 006 

1 

EXTEND 

04  007 

1 

BAR- 

SURE.-OINK 

54  001 

1 

TS 

L 

3 52  35 

0 

CAF 

DEL  AY  EX 

54  0 61 

1 

TS 

WAIT  F X I T 

1 52  12 

1 

TCF 

DLY2 

3:15  DEC.  2,1970  SKIPPER  .087  PAGE  1119 
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TASK  LISTS  IN  SWITCHED  E BALK. 

SAVE  DELAY  TIME  IN  L 
CREATING  OVERFLOW  AMD  Q-l  IN  Q 


SAVE  DELTA  T IN  Q AND  RETURN  IN 
WA I TEXIT. 

IF  TWIDDLING,  THE  TS  SKIPS  TC  HERE 
PICK  UP  2C  ADR  OF  TASK. 

BBCON  WILl  REMAIN  IN  L 

ENTRY  FROM  F I X DEI  AY  AND  VARDELAY. 


BOTH  f C U TINES  MUST  BE  CALLED  UNDER 
WAITLIST  CONTROL  AND  TERMINATE  the  TASK 
IN  WHICH  THEY  WERE  CALLED. 


DT  TO  0.  MASK  ADPES  TC  WAITAOR. 
BBANK  IS  SAVFD  DURING  DELAY. 

ADD  SBANK  TO  BBCON. 


GO  TO  T ASK OVER  AFTEP  TASK  ENTRY 


GAP:  ASSEMBLE  RE  VISION  001  OF  A GC  PROGRAM  AP1LR0PE  BY  EYIES 

L WAITLIST 

011S  REF  67  LAST  966  6235  1 5257  0 DELAYEX  TCF 


TASKOVER  -2 


3: 15  DEC.  2,1970  SKIPPER 
USE P ' S PAGE  NO.  4 
RETURNS  TO  TASKOVER 


.087  PAGE  1120 
E 3 S3 


ASSEMBLE  REVISION  001  GF  AGC  PkGGRAM  AP11R0PE  BY  EYLES 


SAP  : 


l.  WAITLIST 

R0116  ENDTASK  MUST  BE  ENTERED  IN  FIXED-FIXED  SO  IT  IS  DISTINGUISHABLE  BY 


0118  REF  16  LAST  1119  E3,14C0 

011<=  REF  1 5236 

0119  REF  1 6237 


72537  0 
73714  1 


E BANK=  L ST 1 
EI'.'OT ASK  -2CAQ.I  SVCT3 


0120 

REF 

28 

LAST 

927 

0121 

REF 

6R 

LAST 

1120 

0122 

012? 

REF 

6S 

LAST 

112  1 

5240 
524  l 
5242 

10 

1 

1 

076 
5261 
52  61 

1 SVCT3 

0 

0 

CCS 

TC  F 
TCF 

FLAGWRD2 

T ASKOVFR 

T ASK'D  VE  R 

524  3 

1 

5244 

1 

TC  F 

+ 1 

01231  9 EF  3 LAST  222  3244 

01232  rEF  1 5245 

01233  5246 

01234  REF  2 LAST  1121  §247 

01235  FF  3 LAST  1121  5250 


1 1 

• 304 

0 

CK  I MUSE  CCS 

IMUCADR 

1 

5256 

1 

TCF 

SVCT3X 

1 

5251 

0 

TCF 

+ 3 

1 

52  5o 

1 

TCF 

SVCT3X 

1 

5256 

1 

TCF 

SVCT3X 

0124 

P FF 

1 

52c  1 

3 7723 

0 

012  5 

REF 

25 

LAST 

889 

525  2 

0 5072 

1 

0126 
012  7 

REF 

REF 

6 

1 

LAST 

8 57 

E 3 , 1460 
525  3 

03555 

1 

0127 

REF 

1 

5254 

14063 

1 

C128 

REF 

70 

LAST 

112  1 

525  5 

1 52  61 

0 

+ 3 CAF  PR  1 036 

TC  NOVAC 

EBANK=  NBDX 
2CADR  NBDONLY 


TC  F T ASKO VEF 


01281 

01282 

REF 

1 5 

LAST 

78  1 

5256 

5257 

0 5221 
00764 

0 SVCT3X 

1 

TC 

DtC 

01283 

PEF 

2 

LAST 

1121 

5260 

0 5240 

1 

TC 

FI XDELAY 

500 

SVCT3 
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USER'S  PAGE 
ITS  ADRES  ALONE. 


SKIP  PEt;  . 
NO.  5 


E3  S3 


DRIFT  FLAG 


DON'T  DO  NBDONLY  IF  SOMEONF  ELSE  IS  IN 
I MUST ALL. 


COMPENSATE  FOR  NBD  COEFFICIENTS  ONLY. 
ENABLE  EVERY  81.93  SECONDS 


DELAY  MAX  OF  2 T I M E S FOR  IMUZERO. 


CHECK  DRIFT  FLAG  AGAIN 


GAP:  ASSEMBLE  REVISION  001  UP  AGC  PROGRAM  AP11R0PF  BY  E YL  L • 


3: 1 5 DEC 


2,1970  SKIP  PER  .067  PAGE  1122 


L 

W A I T ( 

.1ST 

USER’S  PAGE  NO. 

6 E 3 S3 

P 01 29 

BEGIN 

TASK 

I RISE  TION 

■ 

0130 

01 ,3231 

BANK 

01 

0131 

REF 

1 

COUNT* 

$ $ / W A I T 

0132 

REF 

1 

01,3231 

54  062 

1 

WAJT2  TS 

W AITBANK 

BBANK  OF  CALI  IMG  PROGRAM. 

01322 

REF 

31  2 

LA  ST- 

111° 

01,3232 

3 0002 

0 

CA 

0 

01324 

01,3233 

0 0006 

1 

EXTEND 

01326 

REF 

1 

01 ,3234 

6 3523 

0 

BZMF 

WAITPOOH 

013  7 

R E F 

2 

LAST 

219 

01, 3235 

4 C 0 2 6 

1 

CS 

T I MF3 

0134 

REF 

35 

LAST 

1043 

01,3236 

6 4 744 

1 

AD 

B I T 8 

BIT  8 = OCT  200 

013- 

REF 

Of  4 

LAST 

1115 

T 1 ,3237 

10  000 

0 

CCS 

A 

TEST  200  - C ( T I ME 3 ) . 

TF  POSITIVE, 

A0136 

IT  MEANS  THAT  T I M E 3 CVEFFLOW 

HAS  OCCURRED  PRIOR  TO  CS 

TIME3  AND  THAT 

A 01  37 

C(T  IME3  ) = T - 

Tl,  INSTEAD  OF 

1.0  - (Tl  - T).  THE  FOLLOWING  FOUR 

A 01 38 

0!  DL-  S SET  CCA) 

= TD  -Tl+1 

IN  EITHER.  CASE. 

013° 

PEF 

2 

LAST 

1099 

01, 3240 

6 6107 

1 

AO 

OCT  4000 1 

C VE  f F LOW  HAS  OCCURRED. 

SET  C ( A)  = 

nun 

RFF 

36  5 

1 45j 

112? 

' ' 1 ,3241 

4 0000 

0 

r 6 

A 

T — Tl  + 1-0  — ?Ol 

1 ■ VJ 

V/  O 

R0141 

NORMAL  CASE  (CCA)  NNZ)  YIELDS 

SAME  CCA) 

: - ( -Cl. 0— ( T 1— 

T ) ) + 200)  - 1 

014? 

PEF 

1 

01 ,32' 2 

6 3370 

0 

AD 

OCT4Q201 

0143 

REF 

313 

LAST 

1122 

j 1 ,3243 

4 0002 

0 

AD 

Q 

RESULT  = TD  - Tl  + l. 

0144 

RFF 

366 

LAST 

1122 

01 , 3244 

10  COO 

0 

CCS 

A 

TEST  TD  - Tl  + 1 

014  6 

RFF 

17 

LAST 

1121 

01,3245 

6 1400 

1 

AO 

LST  1 

IF  TD  - Tl  POS,  GO  TO 

WTLST5  WITH 

0146 

RFF 

1 

01,3246 

1 3310 

1 

TCF 

WTLST5 

C ( A ) = (TD  - Tl)  + C(LST1)  = TD-T2+1 

0147 

n o K n 

1 

Ki  n n p 

vj  I f D c.  ! r 

1 J L.  J V ' 

I 

IN  Uur 

0148 

PEF 

314 

I AST 

1122 

01 ,3250 

4 0002 

1 

CS 

0 

R 0149 

NOTE 

T HAT 

this 

PLOGF. AM  SECTION  IS  NEVER 

ENTE  ED  W H E ! T- 

T 1 G/E  - 1 , 

R 0 1 9 0 

SINCE  TD- 

Tl  + 1 

= ( T D- 

T)  + (T-TI+1),  AND 

DELTA  T = TD-T  G/E  +1  . (G/E 

R0151 

SYMBOL  means  GREATER 

THAN  OP 

EQUAL  - ) . 

THUS  THERE  NEED  BE  NO  CCN- 

P 0 1 4 ? 

CERN 

OVFP 

A PREVIOUS 

no  IMMINENT  OVERFLOW  PF  TTME3  HERE 

♦ 

0153 

REF 

1 

01,3251 

6 4736 

1 

AD 

POS 1/2 

WHEN  TD  IS  NEXT,  FORM 

QUANTITY 

0154 

REF 

2 

LAST 

1122 

01,3252 

6 4736 

1 

AD 

PCS1/2 

1.0  - DELTA  T = 1.0 

- ( T D - T ) 

01 K 5 

RFF 

3 

LAST 

112  2 

01,3253 

5 6 026 

0 

XCH 

T I MF  3 

0156 

f.  EF 

7 

1 AST- 

1043 

01,3254 

6 4735 

1 

AD 

NEGMAX 

0157 

PEF 

315 

LAST 

112? 

0 1 , 3 2 c 5 

4 CC02 

0 

AD 

Q 

1.0  - DEI  TAT  T MOW  COMPLETE. 

0158 

01 , 3256 

0 0006 

1 

EXTEND 

ZERO  INDEX  Q. 

0159 

01 , 3257 

22  007 

0 

QXCH 

7 

( ZO) 

GAP  : 


0160 
0161 
0162 
01  j3 

0 164 
0165 
0 1 6 
0167 

016  8 
0160 
0 1 1 

0171 

0172 

0173 
0 1 1'- 

01  7r 

0176 

0177 

0178 

0179 
01  r 

A 01 81 
0 1 l 

0183 

0184 


ASSEMBLE  REVISION  001  OF  AGO  RAOGRA^  API  1:- ORE  BY  EYLES 


W A I TL 

TST 

REF 

18 

LAST 

1122 

01 

,3260 

REF 

19 

LAST 

1123 

Cl 

,3261 

REF 

20 

LAST 

i 

01 

,3262 

RF  F 

21 

L AST 

1123 

01 

, 324  3 

REF 

22 

LAS! 

1123 

01 

,32^4 

OFF 

? 

1 A RT 

1 123 

01 

. mi  c; 

l r 

C J 

REF 

24 

LAST 

1 123 

01 

, 3266 

REF 

25 

LAST 

1123 

01 

, 326  7 

■ 1 00  1 WTLST4  XCH 


57*401  0 XCH 
57*402  0 XCH 
37  * 4 03  1 XCH 
37*6  04  0 XCH 
57*405  1 XCH 
57 '406  1 XCH 
57*407  0 XCH 


KEF  3 LAST  111- 
EF  316  LAST  1122 


REF  24  LAST  751 
RfeF  25  LAST  1123 
REF  26  LAST  1123 
EF  2?  LAS"  1123 
" E F W LAST  1123 
REF  29  LAST  1123 
REF  30  LAST  1123 
REF  31  LAST  1123 
REF  32  1 AS  T 1123 

REF  3 LAST  221 


REF  1 
REF  1 


l , 327  > 3 006 3 1 

3 1,327  1 6(  CO?  0 

r'  1,327."’  1 ? 273  0 

53 ' 41 1 0 
5 3 ' 4 1 3 1 
53*415  1 
53*417  0 
c 3 * 4 2 1 0 

5 3 ' 423  1 
53*425  1 
53*427  0 
53*431  1 

6 5236  0 

01 .3305  0 0006  1 

01.3306  1 5215  0 

01.3307  1 3363  0 


LST 1 
LST1  +1 
L ST  1 +2 
LST 1 +3 
LST l +4 
L ST  1 + 5 
LST 1 +6 
L ST  1 +7 

CA  W A I T AO: 

1L0EX  Q 

TCP  +1 

DXCH  LST 2 

DXCH  LST2  +2 

OXCH  ' ST?  +4 

DXCH  LST 2 +6 

DXCH  LST?  +°0 

DXCH  LST 2 + 10D 

DXCH  LST2  +12D 

DXCH  LST2  +140 

DXCH  LST 2 +160 

AD  ENDTASK 

EXTEND 

BZF  L VWTLIST 

Cl  WT ABORT 


01 , 327  3 
1 , 1274 
01 ,1275 
Cl  , 3276> 
01 ,3277 

01 .3300 

01 .3301 

01.3302 

01 .3303 

01 . 3304 


3:  15  DEC 


2,1970 


SKIPPER 
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USER'S  PAGE  MO.  7 


E 3 S3 


IN  [NY  PART  rF  TASK  C A0C  HAS  BEEF  IN  L.) 


AT  END,  CHECK  THAT  C(LST2+10>  IS  STD 


END  ITEM,  AS  CHECK  FOR  EXCEEDING 
THE  LENGTH  OF  tHe  LIST. 

DUMMY  TASK  ADRES  SHOULD  BE  IN  FIXED- 
FIXED  SO  ITS  ADRES  ALONE  DISTINGUISHES 
IT. 


GAP  : 


ASSEMBLE  REVISION  001  OF  AGC  PROGRAM  APllRQPE  BY  EYLES 


L WAITLIST 


0185 

0186 
0187 

REF 

REF 

367 

26 

LAST 

LAST 

1122 

1 123 

01RP 

0184 

0190 

REF 

P FF 

117 

1 

LAST 

111  1 

019] 

REF 

368 

LAST 

1124 

0192 

0193 

REF 

27 

LAST 

1 124 

C196 

REF 

118 

LAST 

1126 

019  5 

Cl  96 

"FF 

2 

LAST 

1126 

0197 

REF 

369 

LAST 

1124 

019  8 
0199 

REF 

2 3 

l AST 

1124 

0200 

c FF 

11° 

LAST 

1 1 2 6 

0201 

0202 

REF 

3 

LAST 

1124 

0203 

P.EF 

370 

LAST 

1124 

0206 

0206 

REF 

29 

LAST 

1124 

0206 

REF 

120 

LAST 

1124 

0207 

0208 

REF 

4 

LAST 

1124 

C?Or- 

REF 

371 

LAST 

1124 

0210 
021 1 

REF 

30 

L AST 

1126 

0212 

REF 

121 

LAST 

1126 

0213 

0214 

REF 

5 

LAST 

1124 

02  1 r 

REF 

37 2 

last 

1124 

0216 

0217 

REF 

31 

LAST 

1124 

02  ie 

REF 

122 

LAST 

1124. 

021° 

0220 

REF 

6 

LAST 

1124 

,3310 

10  000 

0 

WTL.ST5 

CCS 

,3311 

6 1401 

0 

AD 

, 3312 

1 3316 

1 

TCF 

,3313 

6 4753 

1 

AD 

, 3314 

0 3374 

1 

TC 

,331^ 

n c r>oi 

0 

OCT 

,33  16 

10  000 

0 

+ 4 

CCS 

, 1317 

6 1402 

0 

AD 

, 3320 

1 3324 

0 

TCF 

, 332  1 

6 4753 

1 

AD 

, 332  2 

0 3374 

1 

TC 

,3323 

00002 

0 

OCT 

,3324 

10  000 

0 

+ 4 

CCS 

,3325 

6 1 40  3 

1 

AD 

, 3326 

1 3332 

1 

TCF 

, 3 3 2 7 

4 6.7  5 3 

3 

A 0 

,3330 

0 3374 

1 

TC 

, 3331 

C 0003 

1 

OCT 

,3332 

10  GCO 

0 

+ 4 

CCS 

,3333 

c 1404 

0 

AD 

, 3 *7  6 

1 3340 

1 

TCF 

, 33  36 

6 47  5 3 

1 

AD 

, 3336 

0 3374 

1 

TC 

, 3337 

00GC4 

0 

OCT 

,3340 

10  000 

0 

+ 4 

CCS 

,336  i 

6 1405 

1 

AD 

, 3342 

1 3 34  6 

1 

TCF 

,3343 

6 4753 

1 

AD 

, 33.44 

0 33  74 

1 

TC 

,334  5 

0(005 

1 

OCT 

, 3366 

10  coo 

0 

+4 

CCS 

, 3347 

6 1 40  6 

1 

AD 

, 3350 

1 3354 

1 

TC  F 

, 335  1 

3 47  53 

1 

AD 

, 335  2 

0 33  74 

1 

TC 

. 3353 

00006 

1 

OCT 

01 

01 

G L 

01 

o 1 

01 

01 

Cl 

oi 

01 

01 

01 

ol 

01 

01 

01 

01 

01 

0 1 

01 

01 

01 

Cl 

01 

or 

01 

01 

01 

01 

r'l 

01 

Cl 

01 

Cl 

0 1 

01 
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A 

LST1  +1 
+ 4 

ONE 

WTLST2 

1 

TEST  TD  - T2  + 1 

A 

LST 1 +2 
+ 4 

ONE 

WTLST2 

2 

TEST  TD  - T3  + 1 

A 

L ST  1 +3 
+ 4 

ONE 

WTLST2 

3 

TEST  TD  - T4  + 1 

A 

LSI  1 + 4 
+4 

ONE 

WTLST2 

4 

TEST  TD  - T5  + 1 

A 

LST 1 +5 
+ 4 

ONE 

WTLST2 

6 

TEST  to  - T5  + 1 

A 

L ST 1 +6 
+4 

ONE 

WTLST2 

TEST  TD  - T7  + 1 

6 


GAP:  ASSEMBLE  »E VISION  001  OF  A GC  PROGRAM  AP11R0PE  BY  EYLES 

L VAITLIST 


0221 

REF 

373 

LAST 

1124 

0222 

0223 

REF 

32 

LAST 

1124 

REF 

123 

LAST 

112-4 

0224 

022  5 
0226 

REF 

7 

LAST 

1124 

0227 

0228 

REF 

REF 

3 74 

1 

LAST 

1125 

022° 

0230 

REF 

124 

LAST 

1 1 2 r 

0231 

RFF 

3 

LAST 

1 1 9 - 

023? 


01. 3354 

01 . 3355 
01  , 3356 
01 , 3357 
01,3360 
01,33-1 

01 ,33<  > 
01,3363 
0 1 , 3 3 f : 4 
Cl  , 33  6 5 
01 , 33  A6 
01 , 336  7 


10  000  0 
6 1407  0 
1 3 3b2  1 
6 4753  1 

0 33  74  1 
00007  0 

10  COO  0 
0 3371  1 
13  365  0 
6 47  5 3 1 
0 ? 37A  1 
00010  0 


+ 4 

WTABO-T 


CCS 

AD 

TCF 

AD 

TC 

r'CT 

CCS 

TC 

NCOP 

AD 

TC 

OCT 


0233 


01,3370  40201  0 UCT40201  oCT 
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A 

LSI 1 +7 

+4 

ONE 

WTLST2 

7 

A 

FILLED 

CAN’T  GET  HEP  F 

ONE 

WTLST2 

10 

402  u 1 


1 

1 

1 

' 

: 


i 


I 
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L 

waitlist 

USER'S  PAGE 

02332 

REF  5 

1 AST 

1119 

01,3371 

52  062 

1 FILLED 

DXCH 

w aj-teTi  t , 

02334 

REF  5 

LAST 

1107 

01,3372 

0 5716 

1 

TC  / 

r/SAILOUTl 

NO  ROOM  IN  the  INN 

02336 

01 , 337  3 

01203 

1 

OCT  ( 

01203  J 

E3  S3 


„z 


I 


) 


..e 


I 


I 


) 


) 

> 


> 


‘ 


3' 


) 


I 


2" 

I 


I 


I 


I 


GAP:  ASSEMBLE  REVISION  001  OF  AGO  PROGRAM  APUROPE  BY  E Y L E S 


3:15  DEC.  2,1970  SKIPPER  .087 


L WAITLIST  USER'S  PAGE  NO.  11 

P0234  THE  ENTRY  TO  WTLST2  JIST  PRECEDING  OCT  N IS  FOR  I LE  TO  LE  T -1. 

R 023  5 N N + l 

R0236  (It  ‘’EAR'S  LESS  'HAN  CP  EQUAL  TO).  AT  ENTRY,  CIA)  = -(TD  - T + 1) 

P,  0237  N+l 

R 02  33  THE  IST1  ENTRY  -IT  - T +1)  IS  TO  BE  REPLACED  BY  -{TD  - T + 1),  AMD 

R 0239  N+l  N N 

R 024-0  THE  ENTRY  -IT  - TD  + 1)  IS  TO  BE  INSERTED  IMMEDIATELY  FOLLOWING. 

R0241  N+l 


0242 

REF 

1 

0 1 , 3374 

54 

064 

1 WTLST? 

TS 

WAITTEMP 

0243 

0244 

REF 

317 

LAST 

1123 

01 .3375 

01.3376 

50 

3 

002 

COOO 

0 

1 

INDEX 

CAF 

Q 

0 

0245 

PEE 

316 

LAST 

) 127 

Cl  ,3377 

54 

002 

1 

TS 

0 

CIA)  = -I TD  - T +1) 


INDEX  VALUE  INTO  Q. 


024  + 

REF 

125 

LAST 

1125 

01 , 4400 

3 

+ 7 53 

1 

0247 

REF 

2 

LAST 

1127 

01 , 340  1 

6 

0064 

0 

024E 

REF 

319 

LAST 

1127 

01  ,3402 

50 

002 

0 

0249 

REF 

33 

LAST 

1125 

01,3403 

27 

•377 

1 

CAF  ONE 

AD  WAITTEMP 

INDEX  Q CIA)  =-(TD-T  ) + 1 . 

ADS  LST 1 -1  N 


0250  REE  3 LAST  1127  01,3404 

0251  REF  320  LAST  1127  01,3405 


0252  PEE 


01 , 3406 


4 00 54  1 
50  002  0 
1 3260  1 


CS  WAITTEMP 

INDEX  0 

TCF  WTLST4 


R0253  CITIME3)  =1.0-  ( T 1 - T) 


R0254  CIIST1  ) = - ( T 2 — T 1 ) + l 

R 0?  5 K CILSTl  + l)  = - ( T 3 - T2 ) + 1 

R0256  CILST1+2)  = - I T4  - T3 ) + 1 

R 0257  CILST1  + 3)  = - (T5  - T4 ) + 1 

R 0258  CILST1+4)  = - ( T6  - T3 ) + 1 


R 0254 

CILST2  ) 

= 2CAD,. 

TASK  1 

R 0260 

CILST2+2  ) 

= 2 CADE 

TASK? 

R 026  1 

CILST2+4  ) 

= 2CADR 

TASK3 

R 0262 

CILST2+6  ) 

= 2 C ADR 

TASK +■ 

R 026  3 

CILST2+8  ) 

= 2 CADI 

TASKS 

R 0264 

C I LST 2 + 10  ) 

= 2 C A D r: 

TASK6 

PAGE 
E 3 S3 


GAP  : 


ASSEMBLE  REVISION  OOI  OF  AGO  fOOQNAF  API  I HOPE  BY  EYLES 


L WAITLTSf 


P 026  c 


ENTERS  HERE  ON  1?  RUPT  TO  DISPATCH  WAITLISTED  TASK. 


0266 

01,3407 

0 C 006 

1 

0267 

"EF 

21 

LAST 

1119 

01 , 3410 

04  007 

1 

0268 

RF.F 

A 

LAST 

90  1 

0 1 , 34 1 1 

54  016 

1 

026° 

01,3412 

0 0006 

1 

027  0 

RFF 

6 

LAST 

QO  1 

01,3413 

22  012 

1 

0271 

REE 

6 

LAST 

1095 

0U3414 

3 4734 

0 

027  2 

R F F 

34 

LAST 

1127 

01,3415 

57 '407 

G 

0273 

REF 

35 

LAST 

1125 

01,3416 

57*406 

1 

027<l 

SfF 

34 

LAST 

112  3 

n 1 ,3417 

57 , 405 

1 

027  5 

REF 

37 

LAST 

1128 

Cl , 3420 

57*404 

0 

0276 

REF 

38 

LAST 

1128 

01 ,3421 

57 ' 403 

1 

0277 

REF 

39 

LAST 

1128 

01 , 3422 

57 ' 402 

0 

027  c 

REE 

MO 

LAST 

1128 

01 ,3- 2 3 

67*401 

0 

027c 

r EF 

41 

LAST 

1123 

0 1 , 34 24 

57*400 

1 

0?a0 

° EE 

3 i 

1 j 

1 1 i c 

n l , ■Joe 

6 4"  p 7 

l 

0281 

REF 

4 

LAST 

1122 

01,1 

26  026 

1 

0282 

REF 

4 

LAST 

563 

01, 3 427 

54  734 

0 

0283 

REF 

226 

LAST 

1116 

J 1 T 3 •*  3 G 

4 47  5 5 

0 

028- 

REF 

5 

LAST 

112" 

01 t 343  1 

54  734 

0 

!3RUPT 


T3r UP  T2 


EXTEND 

MOP  SUPER BNK 

TS  BANKRUPT 

EX  TEND 

QXCH  ORUPT 

CAF  NEGI/2 

XCH  L ST  1 +7 

XCH  L ST  1 + 6 

XCH  L ST  1 + 5 

XCH  LST1  + 4 

XCH  LST 1 +3 

XCH  LST  1 +2 

XCH  LST  I +1 

XCH  LST  1 

AO  PCS MAX 

ADS  T IMF  3 

TS  RUPT  AGN 

CS  ZERO 

TS  RUPT AGN 


0285 

01, 343? 

0 0006 

1 

0286 

REF 

4 

LAST 

1123 

0 1 , 3433 

4 5237 

0 

0287 

REF 

33 

LAST 

1123 

0 1 , 3434 

53*431 

1 

0288 

R EF 

34 

LAST 

1123 

01 , 3435 

53*427 

0 

02  8 4 

RFF 

35 

LAST 

1128 

01 ,3436 

53*425 

1 

0290 

REF 

36 

LAST 

1125 

01 ,3437 

53*623 

1 

029  1 

REF 

37 

LAST 

112  8 

n l . 34 in 

53*421 

o 

0292 

REF 

38 

l AST 

1128 

01 ,3441 

53*417 

0 

0293 

REF 

39 

L A r T 

1128 

01,3442 

53*415 

1 

0296 

REF 

40 

LAST 

1128 

, 01,3443 

53*413 

1 

029  5 

EF 

4 1 

LAST 

1128 

01 ,3444 

5 3 ' c 1 1. 

0 

EXTEND 

DCS  ENDTASK 
DXCH  LST2  +16D 

DXCH  L ST  2 + 14Q 

DXCH  LST  2 + 1 2D 

DXCH  LST 2 + 1 0 D 

DXCH  L ST  2 + 8D 

DXCH  LST  2 +6 

DXCH  LST2  +4 

DXCH  LST2  +2 

DXCH  LST 2 


0296 

P EF 

21« 

LAST 

1119 

01,3445 

56 

001 

0 

0297 

01 , 3446 

0 

0006 

1 

0298 

REF 

22 

LAST 

1128 

01,3467 

01 

007 

1 

0299 

REF 

219 

LAST 

1128 

01,3450 

56 

001 

0 

0300 

01 ,3451 

52 

006 

0 

XCH  L 

EXTEND 

WRITE  SUPERBNK 

XCH  L 

DTCB 


3:15  DEC.  2, 

1970 

SKIPPER 

.087  PAGE  1128 

USEP  *S 

PAGE 

NO.  12 

E3  S3 

READ  CURRENT  SUPERBANK  VALUE  AND 
SAVE  WITH  E AND  F BANK  VALUES. 


DISPATCH  WAITLIST  TASK. 


1.  MOVE  UP  tSTl  CONTENTS,  ENTERING 
A VALUE  OF  1/2  +1  AT  THE  BOTTOM 
FOR  T6-T5,  CORRESPOND ING  TO  THE 
INTERVAL  81.01  SEC  FOR  ENDTASK. 

2.  SET  T 3 = 1.0  - T2  -T  USING  LIST  1. 
SO  T 3 WONT  TICK  DURING  UPDATE. 


SETS  CUPTAGN  TO  +1  ON  OVERFLOW. 
DISPATCH  TASK. 


SET  SUPERBANK  FROM  BBCON  OF  2CADR 
RESTORE  TO  L FOR  DXCH  Z. 


GAP:  ASSEMBLE  REVISION  001  OF  AGC  PROGRAM  API  TROPE  BY  EYLES 

L WAITLIST 

P 030 1 RETURN,  AFTER  EXECUTION  OF  T3  OVERFLOW  TASK: 

0302  5261  BLOCK  02 

0303  REF  2 LAST  1 II 9 Tf  1122:  5a  54*  COUNT*  $$/WAIT 

030 a REF  LAST  1 1 2 526 1 1C  7 3 0 TASKPVER  CCS  R’J'PT AGN 

fsOS  PEF  ? LAST  1119  526  2 3 5220  1 CAF  WATT8B 

0306  REF  37  LAST  1119  5263  54  C06  0 TS  BBANK 

0307  REF  1 5264  1 3414  1 TCF  T3RUPT2 


030 f REF  7 I AST  1128  5266  3 0C16  0 CA  BANKRUPT 

0309  5266  0 0006  1 EXTEND 

0310  ('FF  23  LAST  11?°  526  7 01  007  1 WRITE  SUPER  BNK 


0311 

0312  REF  7 LAST  1128 

0313  r<EF  S LAST  U29 

031 ♦ PEF  33  LAST  1129 

03 1 1 'EF  11  LA«T  1 '4 

03165 

0316 


5270  0 C 006  1 RESUME 

5271  22  012  1 

527  2 3 6 .Cl  6 0 NnQRSM 

6273  006  1 

527  4 6 2 011  0 lOOB-'  SN 

5275  0 0003  1 

5276  5 CO  17  1 


EXTEND 

OXCH  QRUPT 
CA  BANKRUPT 

XCH  BBANK 

OXCH  A9UPT 
RELINT 
RESUME 


15  DEC 


2,1970  SKIPPER  .087  PAGE  1129 


USEF • S PAGE  NO.  13 


E 3 S3 


* F +1  net URN  to  t 3p UP T , IF  -0  ESUME. 
DISPATCH  NEXT  tASk  IF  IT  WAS  DUE. 

F ESTO ’■  E SUPFr  SANK  BEFORE  RESUME  IS  DONE 


..i 

i 

1 

..z 

i 

< 

4 

4 

4 

4 

* 

4 

4 

4 

4 

4 

X 


4 


( 


3 AP  : 

L 

P 03 1 7 

RQ3L8 
0 0319 
R 032  0 

R 032  1 
R 0 3 2 2 
R 03  2 4 
R 0 3 2 1 
R 0 3 2 n 

R 032° 
A 033  0 
A0331 
A0332 
A 03  33 

R033' 
R 0335 
R 0336 
R 033  7 

R033F 
R 033  ° 

R 0340 
P 034  1 
R 039? 
R 0393 
R 0344 

R 0345 
9 034  6 
R0347 
R 034? 

R 0349 
R 0350 
R 035  1 
R 0 3 5 ? 
R03F? 

R 0 3 5 4 

0355 

0356 

0357 

0358 


ASSEMBLE  .-.E  VISION  001  CF  AGC  PROGRAM  API  L OPE  BY  E Y L E '' 
WAITLIST 


3: 15  DEC.  2,1970  SKIPPER 
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LONGCALL 

P,  G&4AH  DESa  iPi  OL  DATE-  17  MARCH  1967 

Pi  0 GR  AH  Vi  PITT  EM  5Y  i.H.  VAMDEVE  ' *G  SECTION  WAITLIST 

MOD  8Y-R.  sELAfRON  I''  ADD  DOCUMENT  AT  I ON  ASSEMBLY  SUN  DISK  REV . 100 


FUNCTIONAL  DESCRIPTION- 

LONGC ALL  IS  CALLED  KITH  THE  DELTA  TIME  ARRIVING  IN  A , L SCALED  AS  T I ME2 , T I ME  1 WITH  THE  2CADR  OF  THE  TASK 
IMMEDIATELY  Foil OWING  ’HE  TC  LO'GCALL.  F L EXAMPLE,  IT  M 1 GHT  BE  DONE  AS  FOLLOWS  WHERE  TIMELOC  IS  THE  NAME  OF 
A DP  LSI  3 T E - C'TAO  '0G  A DELTA  T log  AND  WHERE  TASKTODC  IS  THE  NAME  OF  THE  LOCATION  AT  WHICH  LONGCALL  IS  TO 
START 


CALI  ING  S EQUENCF- 


EXTEND 

DC  A TIME LUC 

TC  LONGCALL 

2 C A D R TASKTODC 


NORMAL  EXIT  M3DE- 

1 ) . TC  WAITL  1ST 

2) .  DTCB  (TC  L + 3 OF  CALLING  ROUTINE  1ST  PASS  THRU  LONGCYCL  ) 

3) .  DTCB  (TO  TASKOVEi  oo  SUBSEQUENT  PASSES  THRU  LONGCYCL) 

ALARM  co  ABL’f  T EXIT  " ’DE~ 

NONE 

OUTPUT- 

t Or  I ME  AND  L0N6TI  1E  + 1 = DELTA  TIME 
LUNGEXIT  AMD  LONGEX I r +1  = f ETUPM  2C AD 
I ONGCADP  AMD  ! « ;GC  A i:f  +1  = ‘A«K  2C  ADR 

A = SINGLE  PRECISION  TIME  FOR  WAITLIST 

El  A SABLE  INITIALiZAT-|C.\- 

A = MOST  SIGNIFICANT  PART  OF  DELTA  TIME 
l = (FAST  SIGNIFICANT  PART  OF  DELTA  TIME 
Q = ADDRESS  OF  ?f  A0';  TASK  VALUE 

DEBRIS- 
A , Q , L 

LCNGCAD?  AMD  L01'GCADP+1 
LONGEX IT  AND  LONGEX IT+1 
i r'MGTI  MF  AND  LOMGTI  ME  + 1 


***  THE  FOLLOWING  IS  TO  BF  IN  FIXED-FIXED  AMD  UNSWITCHED  ERRASIBLE  *** 


REF  42  LAST  1125 
REF  1 

c:  2 77 
E3, 1400 
5277 

53*154  1 

BL  UCK 

E B ANK  = 

LONGCALt  DXCH 

02 

L ST  1 

l-ONGTI  MF 

OBTAIN 

THE 

DELTA 

5300 

0 (006  1 

EXTEND 

OBTAIN 

THE 

2CADR 

< 

i 


GAP: 


ASSEMBLE  REVISION  GOl  OF  AGE  PROGRAM  API 1R0PE  BY  EYLfcS 


L WAITLIST 


035  9 
03  60 

0361 

0362 

0363 
0364. 


0365 

0366 
0366 


RFF  321  LAST  1127 
REF  1 


5301 

5302 
530  3 


'EF  1 


53QA 

K 3 fi  t 

5306 


REF  43  IASI  1130  E3,1400 

"EF  1 5307 

RFF  1 r 3 1 u 


5 0002 

0 

NDX 

3 "GOl 

0 

DC  A 

53* 150 

0 

DXCH 

0 0006 

1 

EXTEND 

3 5310 

0 

DC  A 

52  006 

0 

DTCB 

EBANK= 

0345?  1 L.GCL2CDF  2C  ADR 
02063  0 


R 0 3 6 7 ***  THE  FOLLOWING  MAY  BE  IN  A SWITCHED  BANK,  INCLUDING 


0368  01,3452  BANK 

03  6 c RFF  2 LAST  1122  Tf  112-':  145  145*  COUNT  * 

0370  r-  F F 1 01,3452  23*435  1 LNGCALL2  LXCH 

0371  RFF  7?  LAST  titc  01,3453  3 4 7 52  0 CA 

0372  REF  322  LAST  1131  01,3454  26  C02  1 ADS 

0373  REF  2 LAST  1131  01,3455  55*434  1 TS 


03731 
0373  2 

@ 37 ^ 3 

REF 
REF 
o pc 

2 

37* 

1 

] 

i 

LAST 

LAST 

113  0 
112  5 

03734 
0373  5 
0373  6 

- c r 

REF 

REE 

LAST 

113  1 

03737 

03738 

REE 

2 

LAST 

113  1 

01.3456  3 1153  1 

01.3457  1C  000  0 

01,4460  1 3466  1 

01.3461  1 3463  1 

01.3462  1 3521  0 

1 1 . 3463  3 1154  0 +2 

01.3464  o 0006  1 
01, 34-o 5 t 3 521  1 


CA 

CCS 

TCF 

TCF 

TCF 

CA 

EXTEND 

BZMF 


R 037  4 ***  WAITLIST  TASK  LONGCYCL  *** 

0375  01,3466  0 0006  1 LONGCYCL  EXTEND 

0376  REF  1 01,3467  4 3500  0 DCS 

0377  REF  4 LAST  1131  01,3470  21*154  1 DAS 


0376  REF  5 LAST  113  1 >'1,347  1 11*154  1 CCS 

REF  1 01,3472  1 3511  0 TCF 


A0380 
A 038  1 
A03«2 
A 038? 

A 0334 

0385  01 

0386  01 

0387  REF  6 LAST  1131  01 

0388  REF  2 LAST  1131  01 

0385  01 

0390  01 


, 347  3 

13  474 

1 

NOOP 

,3474 

1 3475 

0 

TCF 

,347  5 

11 ' 153 

0 

CCS 

,3476 

1 35  11 

0 

TCF 

, 34  77 

00000 

1 

DP  BIT  14  rjci 

, 3*00 

20  COO 

0 

OCT 

Q 

0 

LQNGCADh 


LGCL 2CDS 


LS.fl 

LNGCALL2 


TS  ERASABLE 
01 

1S/WAIT 
LONG EX  IT  +1 
T WO 
Q 

LONGEXI t 

LONG!  I YE 

A 

LONGCYCl 

+ 2 

LONGPOOH 
LONGTIME  +1 

L CNGPOOH 


DPBIT14 
LONGT I MF 

LONGTIME  +1 
MUCHTIME 


+ 1 

LONGTIME 
MUCH T I MF 
00000 
2 0000 


A 0391 
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NOW  GC  TO  THE  APPROPRIATE  SWITCHED  BANK 
FOR  THE  r E ST  OF  L0NGC4LL 


SAVE  THE  COP r FCT  8B  FOP.  ° ETUF N 
OBTAIN  THE  RETURN  ADORE c S 


CHECK  FOP  LEGITIMATE  DEL  T A-T I ME 

HI-ORDER  OK  — > ALL  IS  OK. 

HI-ORDEP  ZERO  — > CHECK  LO-ORDER. 

HI-ORDER  NEG.  — > NEG.  DT 

CHECK  LO-ORDER  FOR  ZERO  OR  NEGATIVE. 

BAD  DELTA-TIME.  ABOf T 


CAN  WE  SUCCESFULLY  TAKE  ABOUT  1.25 
MINUTES  OFF  OF  LONGTIME 


THE  REASON  I BG  BFHIND  THIS  PAFT  IS 
INVOLVED,  TAKING  INTO  ACCOUNT  THAT  THE 
WORDS  MAY  NOT  BE  SIGNED  CORRECTED  (DP 
BASIC  INSTRUCTIONS 

DO  NOT  SIGN  CORRECT)  AND  THAT  WE  SUBTRAC 
TED  BIT  14  (1  0 VFP  HALF  THE  POS.  VALUE 
R EPRE  SEl'T  I BLE  IN  SINGLE  WORD) 

CAN: T GET  HERE  ********** 


LONGCALI 


GAP:  ASSEMBLE  REVISION  QOl  OP  ACC  PROGRAM  API  1m  PE  BY  fcVLES 


L A AT  T | . IS  s' 


0392 

REF 

66 

LAST 

1099 

01,3501 

0393 

REF 

7 

LAST 

1131 

01 ,3502 

03)5 

KEF 

37 

LAST 

892 

01,3503 

039 6 

r EF 

4 4 

LAST 

1131 

E 3 , 14  C n 

0397 

REF 

1 

01,3504 

036? 

p FF 

1 

>1  , '’S'  ‘ 

3 4736  1 LASTTIME  CA  BIT14 

27' 154  1 ADS  LONGTIME  + 1 

Q 5203  0 TC  WAITLIST 

EBANK=  L ST  1 

03516  0 2CAD  GE" CAD ' 

02063  0 


C 3S  9 
0400 
040  1 


REF  1 
REF  3 


LAST  1131 


01.3506 

01 . 3507 
0 1,351'T 


3 3520  0 
53*435  0 
52  006  0 


LONGFTPN  CA  TSKOVCDR 

DXCH  LONGCXIT 
QTCB 


040  2 
0404 
040  5 
0406 
0406 


REF 

REF 

67 

38 

LAST 

LAST 

1132 

1132 

01.3511 

01 . 3512 

3 4 7 3 6 
0 5203 

1 

0 

MUCHT IMF  CA 

TC 

8 IT14 
WAITLIST 

REF 

45 

LAST 

1132 

E 3 , 1400 

EB ANK= 

L ST  1 

REF 

2 

LAST 

1131 

0 1 , 351 3 

03466 

0 

2CAQR 

L ONI  GC  Y CL 

T 1 , 3 5 1 ’ 

02  063 

0 

0^05  REF  1 01,361*  1 3 r 0'  0 


TrF  LGNGRTRM 


R 040°  4**  WAITLIST  TASK  G t T C A D ! *** 


04  1 0 
0411 

041  ? 

REF 

p FF 

2 

7 i 

LAST 

l A $T 

1 1 3 1 

1171 

1132 

01.3516 

01.3517 

01 . 3520 

01.3521 

0413 

REF 

4 

LAST 

0414 

0415 

REF 

6 

LAST 

1 126 

01 .3522 

01.3523 

0416 

»EF 

2 

LAST 

1079 

01,3524 

0417 

01  ,352  6 

53*150 

C 

G ETC  A DP. 

DXCH 

LONGCADR 

52  C 06 

0 

DTC8 

052  61 

1 

TSKOVCDR 

GENA DP 

TASKOVER 

53*435 

0 

LONGPOOH 

DXCH 

LONGEXIT 

1 3524 

0 

TCF 

+ 2 

52  062 

1 

WAITPOOH 

DXCH 

waitexit 

0 5 726 

1 

+ 2 

TC 

POO DC 01 

01204 

0 

OCT 

01204 
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GET  BACK  THE  CORRECT  DELTA  TFOR  WAITLIST 


THE  ENTS  Y TO  OUP  LONGCADR 


SET  IT  UP  SO  THAT  ONLY  THE  FIRST  EXIT  IS 
TO  THE  CALLER  OF  LGNGCALL 
THE  REST  ARE  TO  TASKOVER 

WE  HAVE  OVER  OUR  ABOUT  1.25  MINUTES 
SO  SET  UP  FOR  ANOTHER  CYCLE  THROUGH  HERE 


NOW  EXIT  PROPERLY 


GET  THE  LONGCALl  THAT  WE  WISHED  TO  START 
AND  TRANSFER  CONTROL  TO  IT 


GAP: 


ASSEMBLE  REVISION  004.  uF  AGC  PROGRAM  API  IkGPi  BY  EYlES 


L LATITUDE  LUNG  I TUDE  SUTDUTI  ES 

R OOOI  SUBPOUTIME  TO  CONVEFT  RAD  VECTOR  AT  GIVEN  TIME  TO  L AT , LONG  AND  ALT 

R 0002  CALLING  SEQUENCE 

R 0003  L-i  CALI. 

ROOD'-  L L AT— LCNr 

P 0005  SUBROUTINES  USED 

ROOD  6 R— ” Q-RP, ARCTAN, SET  GAT  ; A , SET^  E 

R0007  ERASABLE  INIT.  EQ . 

ROOOE  A X*"1 , — AY  C , A Z ^ , T E P H E M (SFT  AT  LAUNCH  TIME) 

R 000°  ALPBAV  = POSITION  VECTOP  METERS  B-29 

R0010  I PAC — TIME  (CSEC-S  B-2R) 

R0011  LRADELAG  =1,  TO  COMPUTE  EARTH  RA01US,  =U  FOR  FIXED  EARTH  RADIUS 
R0012  LUNAFLAG=0  F Of  EAr  TH, 1 FOR  MOOM 
RCOI?  OUTPUT 

R001-'  LATITUDE  IN  LAT  (REVS.  B-0  ) 

R0015  LONGITUDE  I '4  LONG  (REVS.  8-0) 

R0CI6  ALTITUDE  IN  ALT  1ETFI-S  R-2C 


0017 
00 1 c 
001  c 

KEF 

1 

30,3775 

13,2000 

BANK 

SE  TLPC 

D A \|  V 

30 

LATLONG 

t 

DMIn  * 

0020 

REF 

1 

COUNT* 

$$/l.T-LG 

0021 

REF 

7 

LAST 

,97  2 

E 4, 1431 

E 8 A N K = 

ALPHAV 

002  2 

13 , 235  1 

40220 

0 

LAT- LONG 

STQ 

SETPD 

002  3 

REF 

2 

LAST 

144 

1 3 , 2 3 5 2 

03674 

1 

INCOP PEX 

002  A 

1 5 1 IS  J 

n r A/ \ 1 

n 

n n 

1 ~ ♦ CD  J J 

■ V \J  V J 1 

u 

u u 

002  c 

13,2354 

24007 

0 

STOVL 

6D 

0026 

REF 

8 

LAST 

1133 

13,2355 

02032 

1 

ALPHAV 

0C2  7 

1 GI  O si  q A 

51406 

D ( i C U 

1.  D | C.  D 

I 

ruin 

A b V A L 

0028 

P ER 

2 

LAST 

1 14 

i3 ,2357 

16070 

1 

STOOL 

ALPHAM 

002° 

REP 

7 

LAST 

110  1 

13,2360 

24007 

0 

Z ERO V EC 

0030 

13,2361 

7 1 4 1 a 

0 

BOFF 

COS 

0031 

REF 

6 

LAST 

972 

13,2362 

01743 

0 

LUNAFLAG 

0032 

REF 

1 

13,2363 

2 6 3 6A 

1 

CALLRTRP 

0033 

13,2364 

77624 

1 

CALLRTRP 

CALL 

0034 

REF 

5 

l AST 

979 

1 3,2365 

51670 

1 

R-TO-RP 

0035 

13,2366 

77656 

1 

UN  IT 

0036 

REF 

9 

LAST 

1133 

13,2367 

36032 

0 

STC ALL 

ALPHAV 

0037 

REF 

1 

13,2370 

26550 

0 

SETGAMMA 

0038 

13, 2 37  1 

77624 

1 

CALL 

0039 

REF 

1 

13,2372 

26560 

0 

SET  RE 

004  0 

13,  2 37  3 

63545 

0 

Dt  DAD 

D SQ 

0041 

REF 

10 

l AST 

1133 

13,2374 

02032 

1 

ALPHAV 

0042 

1 3, 237B 

63525 

0 

PDDL 

DSQ 

0043 

REF 

1 1 

LAST 

1133 

13,2376 

02034 

1 

ALPHAV  +2 

0044 

1 3,  2377 

75415 

0 

DAD 

SQRT 

3:15  DEC 


2,1970 


SKIPPER 


087  PAGE  1133 


USER'S  PAGE  NO. 


EO  S3 


SAVE  TIME  IN  6-7D  FOR  R-TO-RP 
0-5D-  R FGR  R-TO-RP 

ABR . VALUE  OF  R FOP  ALT  FORMULA  BELOW 
SET  UPAC=0  FC-P  EARTH,  NON-ZERC  FOP  MOON 
USE  COS(O)  TO  GET  NON-ZEpQ  IN  MPAC 
0 = EAR  TH, 1 = M00N 


RP  VECTOR  CONVERTED  FROM  R 8-2R 
UNIT  RP  B-l 

U 2=  1/2  S ! ML  FOP  S E T c E SUBP  BELOW 
SET  GAMMA=B2/A2  FOR  EARTH, =1  EOF  MOON 
SCALED  B-l 
CALC  EE  METERS  B-2° 


GAP:  ASSEMBLE  REVISION  0C1  OF  AGC  PROGRAM  APllRJPE  BY  EYLES 


L LATITUDE  LONGITUDE  SUB'  'IJTINES 


0045 

13,2400 

76405 

1 

DMP 

S LI  R 

0046 

REF 

1 

13,2401 

00011 

1 

GAMP.  P 

A Oil  7 

DPP 

7 

1 A ^ T 

c ah 

1 An  ? 1 

i 

c Ti  ,n  1 

r n rth 

} t r 

i 

L Aj  1 

ou 

1 D J C. *T  J c. 

A 

J 1 ' ‘U  L 

v..  «_J  O 1 1 t 

004  B 

REF 

12 

LAST 

1133 

13,2403 

02036 

0 

ALPHA V 

+4 

00  A 9 

REF 

7 

LAST 

580 

13,2404 

34023 

1 

5TCALL 

SI  NTH 

005  0 

RFF 

4 

l AST 

^80 

13,2405 

265  10 

1 

ARC  TAN 

005  1 

REF 

5 

LAST 

933 

13,2406 

15121 

1 

STOOL 

LAT 

005  2 

REF 

13 

LAST 

1 134 

13,2407 

02032 

1 

ALPHAV 

0053 

REF 

3 

LAST 

1 134 

13,2410 

140  21 

1 

STOOL 

GQSTH 

0054 

REF 

14 

LAST 

1134 

13,2411 

020  34 

1 

ALPHAV 

+ 2 

0055 

REF 

3 

LAST 

1134 

13,2412 

34-023 

1 

SICALL 

SINTH 

0056 

REF 

LAST 

1134 

13,2413 

265  10 

1 

ARC TAM 

0057 

REF 

5 

LAST 

933 

13,2414 

15123 

0 

STODL 

LONG 

005  8 

REF 

3 

LAST 

1133 

13, 2415 

02070 

1 

A L PH AM 

0059 

13,2416 

77625 

0 

DSU 

0060 

REF 

2 

LAST 

1 44 

13, 2417 

03673 

0 

ERADH 

0061 

REF 

5 

LAST 

°33 

13,2420 

35  12c 

1 

ST CALL 

ALT 

006  2 

REF 

3 

LAST 

1133 

13,2421 

036  74 

1 

INC'"-'  PEX 

3:15  DEC 
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USER’S  PAGE  NO.  2 


.087 

E4  S3 


COS (L AT)  B-i 
SIM(LAT)  B-l 
LAT  RC 

CQSU.ONG)  B-l 
SI  MIL  DUG)  B-l 

LONG.  REVS  B-0  IN  RANGE  -1/2  TO  1/2 
ALT=  F.-PE  M E T F r:  S B-29 
EXIT  WITH  ALT  METERS  B-29 


GAP: 

L 

P 006  3 
R 005  A 

R0065 
R 006  f' 
R 006  7 

R 0068 
R0069 

R 007  0 
R 007  1 
R 007  2 
R 0073 
R 007  4 
R 0075 
R 007  6 
P 0077 

R0C78 

0079 

0080 
008  ] 
008? 
0093 
008^ 

0085 

0086 
0087 
0098 
008P 

0090 

0091 

0092 

0093 

00  9 a 

0095 

0096 

0097 

0098 

0099 

0100 
0101 
0102 

0103 

0104 

0105 

0106 

0107 

0108 


ASSEMBLE  REVISION  001  OP  AGO  PROGRAM  AP11R0PE  BY  EYLhS 
LATITUDE  LONGITUDE  SUBROUTINES 

SUBROUTINE  TO  CONVERT  LAT, LONG, ALT  At  GIVEN  TIME  TO  RADIUS  VECTOR 
CALL ING  S EQUEMCE 

1-1  CALL 

L ( ALOTHRV 

SUB:-  OUT  IN  PS  USED 


SETGAMMA  , SETRE, RP-TC-P 
Ei  ASA8LE  I N I T • REQ. 

AXO, AYO , AZO, TEPHEM  SET  AT  LAUNCH  TIME 
I AT—  I AT  I TUDF  (REVS  BO) 

LONG — LONGITUDE  (REVS  BO) 

ALT — ALTITUDE  (METEPS)  B-2r 
MPAC — T 1 'E  ( CS  ECS  B-28) 

EP A OF  LAG  =1  TO  COMPUTE  EARTH  RADIUS,  =0  FOR  FIXED  EARTH  RADIUS 
L UNA F L AG  =0  FDr  EAFTH,]  FOI  MOON 
OUTPUT 


R-VECTUR  IN  At.  PH AV 
FEE  4 LAST  1134 

REF  2 LAST  1133 

R E F 6 LAST  1134 

REF  2 LAST  1134 

P.EF  7 LAST  1135 

REF  6 LAST  1134 


PEF  3 LAST  1135 
REF  7 LAST  1135 


KEF 

REF 

15 

2 

LAST 

LAST 

1134 
1 1 33 

REF 

8 

LAST 

1133 

REF 

7 

LAST 

1133 

REF 

1 

RFF 

6 

LAST 

978 

PEF 

16 

LAST 

1135 

REF 

3 

LAST 

1134 

[METERS  B- 
13, 2422 
1 3 , 24  ? 3 
13,24?  4. 

13.24 25 

13.2426 

13 . 2427 

1 3. 2430 

13.2431 

13.2432 

13.2433 

13.2434 

13.2435 

13.2436 
l 3 , 24  3 7 
13,2440 
1 3 , 244  1 

13, ?442 
13, 2443 
1 3 , 244,4 

13.2445 

13.2446 
13,24  a 7 

13.2450 

13.2451 

13.2452 

1 3.2453 

13.2454 

13.2455 

13.2456 

13.2457 


29  ) 

40220  0 
03674  I 
00001 
34007 
26550 
73545 
01121 
65275 
90011  1 
01121  1 
65346  0 
01123  0 
57356  0 
71525  0 
01121  1 
7152  ■ ) 
(1123  0 
55476  1 
41456  0 
36032  0 
26560  9 
43145  0 
24007  0 
01743  0 
26454  C 
77746  1 
77624  1 
55716  1 
16032  1 
03673  0 


LALOTU'-.V  stq  set p d 

INCH- PE  X 
OD 

STCALl  6D 

SETGAMMA 
DLOAD  SIN 
LAT 

DM PR  POOL 

GAM=P 
LAT 

CGS  PDDL 

LONG 
SIN  DMPR 

PDDi  CQS 
LAT 

PDDL  COS 
LONG 
DMP8  VDEF 
UNIT  PUSH 
STCALL  ALPMAV 
SETRE 

DlOAD  BOFF 

ZEROVEC 

LUNAFLAG 

CALI.NPRT 

CDS 

CALI  1PRT  CALL 

R P-T  F 
STUDL  ALPHAV 
ERADM 


3:15  DEC.  2,1970  SKIPPER  .087  PAGE  1135 
USER • S PAGE  NO.  3 E4  S3 


L AT , LCNG, ALT  TO  P VECTOR 


6—7  D=  TIME  FOR  RP-TO-P 

GAMMA=B2/A2  FOR  EARTH, 1 FOR  MOON  B- I 

COS( LONG )COS(LAT ) IN  MPAC 
UNIT  RP=  S I N ( I.  PNG  ) CO  S ( L AT  ) 2-3D 


PD  2 


GAMMA*SIN(LAT) 


0-1D 


PD  4 


C-1D=  gamMa*s IN ( L AT ) B-2 
2-3D=C0S( LAT)  B- 1 TEMPORARILY 


PD  ? 
PD  4 


PD  6 


2— 3D-SIN( LONG )COS (L  AT)  9-2 
4 - 5 D = C 0 S ( I.  A T ) B—  1 TFM  POP  AR  IL  Y 


PD  4 MP AC=  COS ( LONG ) COS (LAT ) B-2 
0-50=  UNIT  I-P  FOP  RP-TQ-R  SUBR. 

ALPHAV  +4=  SINL  FOR  SETRE  SUBR. 

RE  METERS  3-29 

SET  M P AC  = 0 FCP  EARTH , NON- Z EP 0 FOP  MOON 


USE  COS(O)  TO  GET  NON-ZERO  IN  MPAC 
EX  T T WITH  UNIT  P VECTOR  IN  MPAC 


I 


GAP:  ASSEMBLE  REVISION  K)1  CF  AGC  ?K  G A -1  API  1 ■ /PE  RY  EYLLS 

L LATITUDE  l G / ME  SUB  OUTINES 


010° 

0110 

0111 

0112 

0113 

oil* 

R 0 1 1 6 


REF 
R E F 


6 

17 


LAST  1134 
LAST  1135 

LAST  1136 


1 3,2460 
13,2  I 
13,2-62 
13,247  3 
13,2464 


74215  1 
01125  0 
02032  1 
77772  0 
36032  0 


'FF  18 

PEF  6 LAST  1135  13, 2465  03-  74  1 

SUBROUTINE  TO  COMPUTE  EARTH  RADIUS 


DAD  VXSC 
ALT 

ALPHAV 

■VS  LI 

$ T CALL  ALPHAV 

INC DRPFX 


3:15  DEC.  2,1970  SKIPPER  .087  PAGE  1136 
USER  * S PAGE  NO.  4 E*  S3 

(RE  + ALT) (UNIT  R)  METERS  B-30 


R METERS  B-29 

EXIT  WITH  P TN  METERS  3-29 


R011 6 INPUT 

R 0 1 1 7 1/P  SIN  LAT  IN  ALPHAV  +- 


R 0118 

r 0115 

0120 

0121 

0122 

0123 

0124 
012  5 
0126- 

0127 

0128 

0129 

0130 

0131 

R 0131  1 
RC131 2 
R 013  1 3 
R0131 4 


OUTPUT 

ea;  TH  AO  I us  in  e,  AD.-;  A,,D  MPAC  ( ’>ETERS  b-29) 


13,2466  63545  0 GETERAD  DL.OAD  DSQ 


r F 1 ' LAST  1136 


REF 

REF 

REF 

REF 

REF 


LAST  1136 


LAST  1135. 


13,2467 

13.2470 

13.2471 

13. 2472 
1 3 , 247  3 
13,2*74 

13. 2475 

13 .2476 

13.2477 

13.2500 

13.2 5 0 1 


02036  0 
4*35?  0 
24005  1 
442  75  1 
26507  1 
24005  1 
75465  1 
26503  0 
77622  1 
03673  0 
7761c  0 


SL  1 
DM  PR 

BDOV 

SR4R 

STORE 

RVQ 


ALPHAV  +4 

BDSU 

DP  1 / 2 

BDSU 

FE 

DPI/2 
S QR  T 
B2XSC 

LRADM 


S I M**  2 ( L ) 
COS** 2 ( L ) 


the  fallowing  constat  ” were  computed  with  a=63781 66, b=6356?84  meters 

B2 X SC=  6**2  SCALED  B-51 
B?/A2=  B**2/A**2  SCALED  B-l 
EE- ( i-3**2/A**2 ) SCALED  B-0 


0132 

13,250? 

00446 

1 

B2XSC 

2 DEC 

.01  79'  50  t! 9 

!3**2  SCALED  B-51 

0132 

13,2503 

00305 

1 

013  3 

REF 

8 LAST  1101 

t 2 , 2004 

DPI/? 

= 

XUN  I T 

0134 

13,2504 

17711 

0 

B2/A2 

2 DEC 

.9933064884  B-l 

GAMM A=  B**2/A**2  B 

013* 

13,2505 

05254 

1 

0 1 3 5 

13,2506 

00155 

0 

EE 

2 DEC 

6.69351 16  E— 3 

( L-B**2/ A**2 ) B-0 

0135 

13, 250 7 

2 5 2 50 

1 

< 


GAP:  ASSEMBLE  .EVISI  h'v  001  OF  AGC  PROGRAM  AP11R0PE  BY  EYLES 


L I ATITUDE  LONGITUDE  S.U 6 0 U T I \* ES 

P0137  ARCTAN  SUBROUTINE 


R013P  CALLING  SEQUENCE 

9 0'i3P  Si  > THFTA  IN  SI'  TH  3- 1 

R 01 AO  COS  THETA  IN  COSTH  8-1 

R 0 14  1 CALL  ARCTAN 

R0142  OUTPUT 

R 0143  A !•-  C T AM  THETA  IN  MPAC  AND  THETA  8-0  IN  ! AN6E  -1 


0144 

0145  REF  1 

0146 

6147  REP  LAST  1134 

0148 

0149  REF  9 LAST  1134 

0150 

0151 

0152  REF  1 

0153 

0154  c EF  10  LAST  1137 

0155  REF  1 

0156 

015  7 REF  4 LAST  946 

015  8 

0159  , EF  1'  LAST  1137 

0160  9 ef  1 


0161 

0162 

0163 


01 

0165 

01  66 
0167 

016  8 
0169 

REF 

REF 

REF 

1 

3 

c; 

LAST 

LAST 

1136 

1137 

REF 

4 

LAST 

1137 

0170 

REF 

2 

LAST 

1137 

0171 

0172 

0173 

RFF 

REF 

1 

1 1 

LAST 

1137 

0174 

REF 

6 

LAST 

1137 

017^ 

0176 

p EF 

2 

LAST 

938 

13,2510 

77600 

1 

ARCTAN 

13,2513 

26512 

0 

13,2512 

63545 

0 

CL  FT  VFL  V) 

13,2513 

00023 

0 

1 3 , 25 1 4 

635  2 5 

0 

17,25  15 

00021 

1 

13,2516 

77615 

0 

13,2517 

7 6454 

0 

l.i,  2c;20 

26  536 

0 

13,2621 

■+00  65 

0 

13,2^22 

00023 

0 

13,2523 

26543 

1 

13,2524 

67542 

0 

13,2525 

0002  5 

0 

13,2526 

5C  125 

1 

13,2527 

00021 

1 

i -i  . peon 

9 c a 9 9 

1 

L D t c.  ~ D ” 

zi  C 9 3 £ 

1 

13,2531 

43545 

1 

13,2532 

57c45 

1 

NEGCQS 

A 3 9 A A 

1 

Uk.-uu 

! 9 Z_  : ‘T 

i 

13,2534 

26540 

1 

1 3, 25  35 

24005 

1 

13,2536 

00025 

0 

ARCTANXX 

13,2537 

77616 

0 

13,2540 

52025 

1 

NEGOUT 

13 , 25  4 1 

24005 

1 

13,2542 

26536 

0 

13,2543 

75345 

1 

A T AN=90 

13,2544 

11037 

0 

13,2545 

00023 

0 

13,2546 

0CCJ25 

0 

13, 2547 

77616 

0 

12,2006 

2DZEP0 

2 TO 


BOV 

DLLiAD 

PDDl 

DAD 

BZE 

BDDV 


SR  1 

s r i 

PODI 


DLOAD 

DLOAD 

BPL 


STORE 

RVQ 

DSU 


Ql  HAD 


S TOR  E 
PVQ 


087 
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3:15  DEC. 


2,1970  SKIPPER  . 


U SEr  • S PAGE  NO. 


E4  S3 


1/2 


CLROVFLW 
DSQ 
SI  NTH 
DSQ 
CCSTH 

SQRT 

ARCTANXX  AT A\!=0/0  SET  T HET A =0 

BOV 

S I NTH 

A TAN  = 90 

AS  IN 

THETA 

BMN 

CCSTH 

MFGCOS 

RVQ 

DCOMP 

DAD 

NEGOUT 

DPI/2 

THETA 


GOTO 

D P 1 / 2 

ARCTANXX 

SIGN 

LCDP1/4 

SI  NTH 

THETA 


DPZET  n 


GAP:  ASSEMBLE  REVISION  00 1 0E  AGC  PROGRAM  API 1RGPE  BY  EYLES 


L LATITUDE  LONGITUDE  SUBROUTINES 

O0I77  SET  GAMMA  SUBROUTINE  

R 0 1 7 ? SUBROUTINE  TO  SET  G AMMA  FOR  THE  LAT-LONG  AND  LAIOTGRV  SUBROUTINES 


R 0 1 7 1 GAMMA  = B**2/A**2  H - EARTH  ( B-l  } 
R 018  0 GA  ‘ A = 1 FOR  MOON  (B-l.) 

R01B1  CALLING  SEQUENCE 

R0182  L CALL 

R013  3 L + l SETGA.1MA 

R G 1 S '■  INPUT 

R 0 1 a " LUNAFLAG=0  FOP  EARTH,  = 1 FOR  MOON 

R0186  OUTPUT 

R 0 1 3 7 GAr  4 A IN  GAMRP  (B-l) 


013  8 
013° 

0190 

0191 

0192 

0193 
019.4 
019  5 
0196 


p£f 

REF 
° EF 


REF 

PEF 


1 

8 LAST  1135 
1 

1 

3 LAST  1135 


13,2550  43145 

13,255  1 265  15 

13.2552  01743 

13.2553  26556 

13.2554  77735 

13.2555  24005 

13.2556  00O11 

1 3 , 2 c 5 7 77616 

0010 


0 

0 

0 

0 

0 

1 

1 

0 


SETG ArMA  DL  DAO  8CFF 
B2/A2 
LUNAFL AG 
SETGMEX 

SLOAD 

1B1 

SETGMEX  STUPE  GAMRP 
RVQ 

GAMRP  = 8 D 


3:15  DEC 


2,1970  SKIPPER 


087  PAGE  1138 


USER'S  PAGE  NO.  6 


E4  S3 


BRANCH  FOR  EARTH 
EARTH  GAMMA 


MOON  GAMMA 


GAP:  ASSEMBLE  ..REVISION  001  OF  AGC  PROGRAM  API! HOPE  BY  EYLES 


3:15  DEC 


2,1970  SKIPPER 


Oft7 


PAGE  1139 


L LATITUDE  LONGITUDE  SUBROUTINES  USER’S  PAGE  NO,  7 E A S3 

P0197  SET9E  SUBROUTINE  

R019P  SUBROUTINE  TO  SET  RE  ! EARTH  OR  MOON  RADIUS) 


R 0 1 9 9 kE*  pm  FOR  moqN 

R 0200  c E=  ! P EF  FOR  FIXED  E A1  TH  RADIUS  Os'  COMPUTED  PF  FOf  F I SC  HER  ELLIPSOID 

R 0201  CALLING  SEQUENCE 

R 020  2 L CALL 

R 0203  L + l SETRE 

R 020 A SUBROUTINES  USED 

ro?oc  GETFPAD 


P 0206  INPUT 

R 0207  E ADI  : AG  = U FO  - XED  RE,  1 FOn.  COMPUTED  L 

R 020 B ALPHAV  +4=  I/.?  SINL  IF  GETE- AO  IS  CALLED 

R 0209  L UNAF  L AG  =0  FOR  EARTH,  = 1 FOR  MOON 


0210 

OUTPUT 

1021 1 

ER  ADM 

5 04RM 

F 01 

MOON  (METERS 

8-29  ) 

10212 

ER  ADM 

ERAD 

OR  COMPUTED  KF  FOR  E A ■< I H 

(METE.  S B- 

29  ) 

0213 

13,2560 

71220 

1 

SET'  E 

STQ 

DLOAD 

021'' 

REF 

1 

13,2641 

0 005  1 

0 

SETRFX 

02 1 c 

REF 

1 

13,2562 

10003 

0 

5 04RM 

0216 

13,2563 

71214 

0 

BON 

DLOAD 

BRANCH  FOP  MOON 

0217 

REF 

9 

LAST 

1138 

13,2564 

01703 

1 

LUNAFLAG 

0213 

REF 

1 

13,256' 

26575 

1 

T ST  R L S R M 

021f 

P EF 

1 

13,2566 

1000  l 

1 

EP.AO 

0220 

13,2567 

■'5014 

0 

BOFF 

CALL 

e;:adflag=o  for  FIXED  RE,1  FOR  COMPUTED 

0221 

REF 

4 

LAST 

973 

13,2570 

00742 

0 

ERADFLAG 

0222 

REF 

1 

13,2571 

26573 

1 

SETRXX 

0223 

REF 

1 

13,2572 

26466 

1 

GETEKAD 

0224 

R E F 

5 

LAST 

1 1 3 b 

13, 2573 

37673 

1 

SET'  XX 

STCAI  L 

ERADM 

EXIT  WITH  PF  OR  RM  METERS  B-29 

02.2b 

REF 

2 

LAST 

1 1 3 c 

13,2574 

000  51 

0 

SETREX 

0226 

13,2575 

77214 

0 

TSTRLSPM 

BON 

V LOAD 

ERADFl AG=0,SET  RO=RLS 

0227 

REF 

5 

LAST 

1139 

13,2576 

00702 

1 

ERADFLAG 

=1  RO=RM 

0228 

REF 

2 

LAST 

1139 

13,2577 

26573 

1 

SETRXX 

0229 

REF  1 

4 

LAST 

982 

13,2600 

G2023 

1 

RLS 

0230 

13,2601 

64  4 46 

0 

ABVAL 

SR2R 

SCALE  FROM  8-27  T0  R-29 

C231 

13,2602 

77650 

1 

GOTO 

0232 

REF 

3 

LAST 

1 13  ° 

13,2603 

26573 

1 

SETRXX 

0233 

REF  1 

2 

LAST 

Q7 1 

00  6 1 

SETREX 

= 

S 2 

GAP  : 

ASSEMBLE  RE 

VISION  001  UF  AGC  PROGRAM  API 1R0PE  BY  EYLES 

3:15  DEC.  2,1970 

SKIPPER 

.087  PAGE 

L 

PI  AM  El  A ■ Y 

INERTJAL  ORIENTATION 

USER’S  PAGE 

NO.  1 

EO  S3 

P0001  .....  < P-TO-R  SUBROUTINE  

ROC 0 2 SUBROUTINE  TO  CONVERT  RP  (VECTOR  IN  PLANETARY  COORDINATE  SYSTEM , EITHER 

ROOD  3 tAF  TH-FI  XED  0F::;  'Jl'i-F1  XEU)  TO  3 (SAME  VECI;  IN  THE  BASIC  - t F . SYSTEM) 

R Of'  0 R = MT  IT)#  (rP+LPXRP)  MT*  M MATRIX  TRANSPOSE 

R 000c  CALLING  SEQUENCE 

R 0006  L CALL 

R 0007  L+l  RP-TO-R 

ROC  0 P S U H r n U T I N E S IJ  r-  F 0 
R 000 o FA  T H v < , MOOV M X , FART HL 

R0010  ITEMS  AVAILABIF  F TM  LAUNCH  0 AT  A 

RQOll  4L  !=  THE  L.BLATICN  VECTi  *.  L ,F  THE.  MOoM  AT  TITE  TIMSUBL  , EXPRESSED 

RC012  If  THE  MOON-FIXED  COORD.  SYSTEM  RADIANS  BO 

R 00 1 3 ITEM?  NECESSARY  F SUB-  . USED  (SEE  DESCRIPTION  OF  SU8R.) 


R 001 A INPUT 

R0015  MP  AC  = 0 FOR  EARTH , NON-ZERO  FOR  MOON 

ROC  16  U-5D=  RP  V EOT Os 

RC017  6-TD=  TIME 

ROOI-  OUTPUT 

R001S  MPAC=  R VECTOR  METERS  B-29  FOR  EARTH,  B-27  FOR  MOON 

0020  ' I F I 2 ,2000  SETLOC  PLANT  IN  I 

002!  26,3716  BANK 

0072  7 EF  2 LAST  ~2  Tr  Ic3:  I»  18*  C' UNT*  $$/LUROT 


0023 
002  a 

002  5 
002  6 
0027 
002  8 
002<5 

0030 

0031 
00  3 2 
0033 

003  4 
00  3 c 

0036 

0037 
003  8 
003c 

0040 

0041 


P.  EF  1 

c EF  1 

REF  1 

REF  1 

REF  I 

REF  2 LAST  11  AC 

REF  1 

REF  I 

’FF  1 

REF  1 

REF  2 LAST  1140 


26, 3716 

46  02  0 

1 

26,3717 

00050 

1 

2 t , 3720 

5 5733 

0 

26,372 1 

776  24 

1 

76.377? 

8 1 7?  n 

0 

C-  i -j  < c t~ 

PI  f cL 

26 , 3723 

77775 

1 

26,3724 

02013 

1 

26, 3725 

53235 

0 

26,3726 

UQOO  I 

0 

26,3927 

6 0001 

0 

26,  ^ 7 3 0 

? 1 n 6 

l 

2t  ,3731 

00025 

0 

26,3732 

51706 

1 

26,3733 

77624 

1 

26,3734 

5 c 7 4 3 

1 

26,3735 

77624 

1 

76,3736 

1 5753 

1 

26,3737 

76521 

0 

26 , 3740 

00025 

0 

RP-TO-R 

STQ 

BHI  Z 

CALL 

VLOAD 

* ■ r (i  la  x * 

RPTORA 

MOON MX 

504LM 

COMPUTE  M MATRIX  FOR  MOON 
t.  P=  LM  FOR  mOON  RADIANS  BO 

RPTQRB 

VXV 

VXM 

VAD 

504RPR 

504PPP 

GOTO 

MMATRIX 

RPRPXXXX 

MP AC=  R = MT (T )*( RP+LPXRP  > 

RESET  PUSHLOC  TO  0 BEFORE  EXITING 

RPTORA 

CALL 

CALL 

EARTHMX 

EARTHL 

EARTH  COMPUTATIONS 

M -'ATR.  IX  B—  1 

L VECTOR  RADIANS  BO 

MX  V 

VS  L 1 

MMATRIX 

LP=M(T)*L  RAD  B-0 

140 


GAP 


ASSEMB!  E REVISION  001  OF  AGC  PROGRAM  APUR0P|  BY  fcYLES 


PLANETARY 

INERT  I A L OR  1 E NT  AT  I ON 

004? 

0043 

00432 

REF 

REF 

1 

1 

2fc , 374 1 
26,3742 
24,2000 

77650  1 

55725  1 

GOTO 

SET  LUC 

RPTORB 
PLANT  IN 

00434 

24,3670 

BANK 

004  3 6 

REF 

1 

COUNT* 

$ $ / L UP  HT 

3:15  DEC 


2 


SK  IP  PEP 


087  PAGE  1141 


USER.* 


,19  70 

S PAGE  NO.  2 EO  S3 


..z 


GAP:  ASSEMBLE  IE  VISION  Oil  OF  AGC  PS  06-. AM.  AP11RUPE  BY  E Y L E S 

L OLA!  E'r  Af  Y iNF'  T r At.  ( ' lENTATIr  M 


3:  15  DEC . 2,1970  SKIPPER 

USER’S  PAGE  NO.  3 


.087  PAGE  1142 
EO  S3 


P0044  R-TO-RP  SUBROUTINE  

R 0045  SUB TOUT INE  TO  CONVERT  ’ (VECTOR  IN  REFERENCE  COORD.  SYSTEM)  TO  PP 
R 00 4 1 (VECT  IN  PLANETARY  COORD  SYSTEM)  EITHER  EARTH-FIXED  OR  MOON-FIXED 

R00-,006  7 RP=M(T)*(  -LXF) 


R 0048  CAL!  IMG  SEQUENCE 

RC04Q  L CALL 

R005C  1+1  R-TC-KP 

P 005  1 SUB'  U T ' ' ES  USED 
R 00  5 2 FARTHWX, MOONMX , EARTHL 

R0053  INPUT 

R0C5^  MPAC.=  0 FOR  EA  TH, NON-ZERO  FOR  MOON 

R00r>‘  0-  "Q=  R VECTOR 

R005A  6-70=  TTME 

R 0057  ITEMS  AVAILABLE  FPCM  LAUNCH  DATA 

R 005 8 5C4LM  = THE  LIBRATION  VECTOR  L OF  THE  MOON  AT  TIME  TIMSUBL , EXPRESSED 

ROOFS  IN  THE  ’ IN-FIXED  LL  10,  SYSTEM  RADIANS  BO 

ROC-  ITEMS  NECESSARY  FU  SUBROUTINES  USED  ( EE  DESCRIPTION  F EUBF..  ) 


o 006  I OUT PU  T 

R0062  MPAC=PP  VECTO  METERS  B-29  FOR  EAiTH,  B-27  FOR  MOON 


0063 

2 4,36  70 

■+6  020 

1 

-YL  - 1 

0064 

REF 

2 

LA  SI- 

1140 

24,36 71 

or  o so 

1 

006r 

REF 

1 

2 , *672 

31712 

1 

0066 

24, A 6 7 3 

77624 

1 

1 

0067 

REF 

2 

LAST 

I L40 

24, 3674 

51720 

0 

0068 

24,3675 

61375 

1 

0069 

EF 

2 

LAST 

1140 

24, 36  7 6 

0 2013 

1 

0070 

REF 

3 

LAST 

1140 

24,3677 

00025 

0 

0071 

24,3700 

7 777  2 

0 

0072 

24, 370 l 

512  3 5 

1 

RTORPB 

0073 

REF 

3 

LAST 

I 140 

24,3702 

00001 

0 

0074 

REF 

4 

LAST 

1142 

24,3703 

00001 

0 

0075 

24,3704 

77721 

0 

0076 

REF 

4 

LAST 

1 1 4 2 

24,3705 

00025 

0 

0077 

24, 3706 

40372 

0 

RPF F XX 

007  £ 

, -i 707 

n o 0 0 1 

0 

r.  y / I v f 

0079 

24,3710 

77650 

1 

0080 

REF 

3 

LAST 

1142 

24,371 1 

00050 

1 

0081 

2 S, 371 2 

7 76  24 

1 

RTORPA 

OC  82 

P EF 

2 

L AST 

I 1 i 

24 ,3713 

53743 

1 

008  3 

2 A ,3714 

77624 

1 

0086 

REF 

2 

(.AST 

1 1 40 

24,371 5 

1 5 7 5 3 

1 

0086 

24,3716 

77650 

1 

0086 

REF 

1 

24, 3717 

51701 

0 

ST  Q 8HI-Z 

-PREXI T 
R TOR PA 

CAL  I 

MOONMX 
VLOAD  VXM 

5 04LM 
M MATRIX 

VSi.l 

VXV  BVSU 

5 04 RPR 
504RPR 

MXV 

MM AT i I X 
VSL1  SETPD 
OD 

GOTn 

RPREXIT 

CALL  EARTH  COMPUTATIONS 

EAPTHMX 

CALI 

EARTHL 

GOTO  MPAC=L=(-AX,-AY,0)  RAD  B-0 

RTORPB 


LP  = LM 

L = MT ( T ) *L P ADI  ANS  30 

M t T ) * (R-LXR)  B-2 


I 


GAP: 


P 0087 
R 008  P 

R0089 
R 0090 
R COq  1 

R 009  2 
R0093 

R0094 
R 009r 
R 009  6 
R 0097 
R 0098 
R C09c 
R0100 
R 0 I 9 T 
R 0 10  2 

R 010  3 
P 010  A 

010* 

0106 

0107 

0108 

0109 

0110 
011  1 
0112 

0113 

0114 
Oil* 
0116 
0117 
0113 
Olio 
012  0 
0121 
0122 
01 2 * 

0124 

0125 

0126 

0127 

0128 
012* 

0130 

0131 


ASSEMBLE  ‘.E  VIS  ION  001  ;JF  AOC  PROGRAM  API  1«  'PE  BY  EYLfcS 
PLANETARY  INERTIAL  ORIENTATION 

MOONMX  SUBROUTINE  

SUB! OUT  I ME  TO  COMPUTE  THE  TRANSFORMATION  MATRIX  M FOR  THE  MOON 


3:15  DEC.  2,1970  SKIPPER 
US ED • S PAGE  NO.  4 


.087  PAGE  1143 
EO  S3 


CAU  TNG  SEQUENCE 

L CALI. 

I +1  MOONMX 

SUBROUTINES  USED 
NE  nANGLE 


INPUT 

6-70=  TIME 

ITEMS  AVAILABLE  FROM  LAUNCH  DATA 
BSUBO , BOOT 

T I MSIJ  BO  , NO  0 1 0 , N ; , GDC T , F S U BG  , F 00  T 

C0SI=  COStn  B— 1 
c I N I = S INI  I i B-l 

1 IS  THE  4MG1  T BFT'-:EEM  THE  MEAN  LUN  A^  EQUATi  I A L PLANE  AN  D THE 
PLANE  OF  THE  ECLIPTIC  (1  DEGREE  32.1  MINUTES) 


0U1PUT 

MM AJ P I X=  3X3  M ^ ATE  IX  B-l  (STORED  IN  VAC  AREA) 


REE  1 

PEE  l 
REF  1 

•SMserndm 

REF  1 

REF  1 
REF  1 

REF  1 

PEF  2 LAST  1143 

REF  1 
REF  1 

REF  1 

REF  3 LAST  1143 


24, 3720 

40220 

0 

24,3721 

00051 

0 

24,3722 

0001 1 

1 

24,3723 

77770 

1 

24,3724 

00005 

1 

24,3  72* 

65345 

0 

24,3726 

14017 

1 

24,3727 

1401  1 

1 

24,3730 

45006 

0 

c:  ■>-?/.  3 

1 

L-T  ) J 1 J i 

«P,  i H D 

I 

24,3732 

7140s 

0 

24,3733 

1 404- 1 

1 

2 *,3734 

77756 

0 

24,3735 

1*043 

0 

2*, 3736 

14015 

0 

24,3737 

41525 

0 

2 4 , 3 74 0 

14007 

0 

24,3741 

45  1 70 

0 

24,3 74 2 

00004 

0 

24,3743 

53743 

1 

24,3744 

14027 

1 

24,3745 

14013 

0 

24,3746 

4 1 52  5 

0 

24,3747 

14005 

1 

24,37*0 

1 70 

0 

24,375 1 

000  0 5 

1 

24 ,3752 

53743 

1 

MOONMX 


STQ  S Er P D 

EARTHMXX 

8D 

AXT  ,1 

5 

D! OAD  POOL 
BSUBO 
BOOT 
PUSH  CALL 

NE WANGLE 
PUSH  COS 
S TOOL  COB 
SIN 

STODL  SOB 

FSU30 

PDDL  PUSH 
F DOT 
A X T , 1 CALL 

4 

NEWANGL E 
STODL  AVECTR  +2 
NOD  I 0 

P DUL  PUSH 

NOODOT 
AXT,  I CALL 

5 

NEWANGL  F 


B REQUIRES  SL  0,  SL  5 IN  NEWANGLE 

PD  10  D 8-9D=BSU80 

10-110=  BOOT 


PD  1 2 D 

EXIT  WITH  PD  80  AND  MPAC=  B REVS  BO 
PD  10  D 

PO  8D  COS ( B ) B-l 
SIN(B)  B-l 

SETUP  INPUT  FOR  NEWANGLE 
8-9D=  F SUBO 

PD  10 D THEN  1 2 D 10-L1D=FD0T 

F REQUIRES  SL  1,  St  6 IN  NEWANGLE 

EXIT  WITH  PD  8 D AND  MPAC=  F REVS  BO 
SAVE  F TEMP 

8— 9D— NODI  0 

PD  10  D THEL  120  1 0- 1 1 D= NODDOT 

MPAC=T 

NODE  REQUIRES  SL  0,  SL  5 IN  NEWANGLE 
EXIT  WITH  PD  8D  AND  MPAC=  NODI  REVS  BO 


l" 


3 AP  : ASSEMBLE  b VI S l ON  001  Of  ACC  P;  OGRAM  API  1R0PE  BY  EYLCS 
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PLANETARY 

INER 

T T At 

CJL  TEL  TAT!ON 

USER'S  PAGE  NO.  5 EO  S3 

0132 

24,3753 

71406 

0 

PUSH 

cos 

PD 

10  D 

8-90=  MODI  REVS  BO 

0133 

24,3754 

77606 

1 

PUSH 

PD 

12  D 

10-110=  COS (NODI ) B-l 

0134 

REF 

2 

LAST- 

11:43 

2.'.  ,3  755 

U 0.0  2 5 

0 

STORE 

AVECTR 

013  5 

24,3756 

7 6405 

1 

OMP 

SLIP, 

0134 

REF 

2 

LAST 

1143 

24,3757 

0 0041 

1 

COB 

COSi NODI)  B-l 

<V|  o 7 

a c c 

24,3760 

1 40  3 5 

1 

S T r|  0 L 

BVECTr  +2 

PO 

too 

20-2  5 0=  AVFCT  R = COB*S IN { NOD  I ) 

V I D ' 

013  8 

T*  C i 

L 

24,3761 

76405 

1 

DMP 

SL1R 

SOB*S IN (NODI ) 

013° 

...  t F 

2 

LAST 

1143 

24,3762 

0 0043 

0 

SCB 

015  0 

REF 

2 

LAST 

1144 

24, 3763 

1403  7 

0 

STOOL 

BVECTR  +4 

PD 

8D 

0141 

24,3764 

4 3 5 56 

1 

SIN 

PUSH 

PD 

10  D 

-SIM (NODI)  B-l 

014  2 

24,3765 

776  76 

0 

DCUMP 

2 6- 3 1.0=  B V ECT R = COB*COS < NOD  I ) 

01 4 3 

REF 

3 

LAST 

1144 

, 3 7.-  A 

14(:33 

1 

STOOL 

BVECTR 

PD 

BO 

S 08*0  OS (NODI ) 

0144 

REF 

3 

LAST 

1144 

24,3767 

00027 

1 

AVECTR  +2 

MOVE  F 

FROM  TEMP  LOC.  TO  504F 

0145 

REF 

1 

24,3770 

14007 

0 

STOOL 

504F 

01  Vo 

24,3771 

76405 

1 

OMP 

SL1R 

0147 

r Ep 

3 

LAST 

1 1 4 A 

2 >,  3772 

00041 

1 

COB 

014-72 

24, 3773 

776  50 

1 

GO  TG 

014  74 

P FF 

1 

24 , 3774 

53671 

1 

MGONMXA 

01475 

25 , 3671 

BANK 

25 

0147  6, 

REF 

25. 2000 

SETLOC 

PI  A NT  I N 3 

01477 

25,3431 

BANK 

0147  b 

REF 

1 

COUNT * 

$$/L U '<  0 T 

0148 

REF 

4 

LAST 

1144 

25,3671 

14027 

1 MGONMXA 

STODL 

AVECTR  +2 

014c 

REF 

I 

25,7672 

000  1 1 

1 

SIN NOD I 

8-' 

9 iff  SI  f ! ( NODI  ) B-l 

0150 

25, 3673 

76405 

1 

OMP 

SLIR 

0 1 5 1 

REF 

3 

LAST 

1144 

25,3674 

CC  043 

0 

SOB 

0152 

REF 

5 

LAST 

1 1.  A 4 

25,3675 

1403  1 

0 

STOOL 

AVECTR  +4 

0 

015  3 

OFF 

12 

LAST 

86  Q 

25, 3676 

06522 

1 

HI6ZER0S 

8—1 3 D=  CVECTR=  -SOB  B-l 

0154 

25,3677 

57525 

1 

PODL 

DCOM  P 

PD 

10  D 

COB 

0155 

REF 

4 

LAST 

1144 

25,3700 

00043 

0 

SOB 

0156 

25,3701 

4 3325 

Q 

POD!. 

pnyi 

PD 

12D 

THEN  PD  14 D 

0157 

REF 

h 

LAST 

114  4 

25,7702 

0004  1 

1 

COB 

015P 

REF 

4 

LAST 

1144 

25,3703 

00033 

1 

BVECTR 

0150 

?5 , 3704 

633  4 1 

0 

VXSC 

PDVl 

PD 

20  D 

BVECTR  *SlM  B-2 

0160 

REF 

1 

25,3705 

14003 

1 

SINT 

0161 

REF 

1 

25,3706 

00011 

1 

CVECTP, 

0162 

2 5, 37  C 7 

53361 

0 

VXSC 

V AO 

FD 

14D 

CVECTR  *COSI  B-2 

0163 

REF 

1 

2C,3 710 

14Q01 

0 

CCS! 

0164 

2?  ,371  1 

77772 

0 

VSL1 

0165 

REF 

5 

LAST 

1 1 4.  2 

24,3712 

24  041 

1 

STOVE 

• 4l  jx  +120 

PD 

«D 

M2  = 8VECTF  INI +CVECTL *COSI  3-1 

0166 

25 , 371  3 

63361 

0 

VXSC 

PDVL 

PD 

14  D 

0167 

RFF 

2 

LAST 

1144 

25,3714 

1400  3 

1 

S INI 

CVECTR  *SINI  B-2 

0168 

REF 

5 

LAST 

11 4,4 

25,3715 

C0033 

1 

BVECTR 

016c 

25,371 6 

52361 

1 

VXSC 

VSLJ 

PD 

8 0 

BVECTR*COS  I B-2 

0170 

REF 

2 

LAST 

I I 44 

25,3717 

14001 

0 

COS  I 

0171 

25,3720 

6 c 37  2 

1 

VSL  1 

PODL 

PD 

160 

0172 

REF 

2 

LAST 

1144 

25,3721 

00007 

0 

5 04F 

8- 

130  = 1 

[3VECTR  = eVECTR*C0SI-CVECrR*S  INI  B-l 

0173 

25,3722 

7 6 34  6 

0 

COS 

VXSC 

i 
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0174 

0175 

0176 

0177 

0178 
01 7C' 
0130 
0181 
0182 
01  ^ 3 
0184 
01  8 c 
0136 

0187 

0188 
0139 

P 0190 
ROl^l 
P 0192 


PL AM FT  ARY  INERTIAL  ORIENTATION 


USER'S  PAGE  NO. 


EO  S3 


REF  1 

REF  3 LAST 

REF  6 LAST 


REF 

REF 


6 LAST 
4 LAST 


1 1~4 

1 1 -'-4 

1144 
1 1 '■  5 


REF  5 LAST  1145 

REF  7 LAST  1145 

REF  7 LAST  1145 

REF  2 LAST  11*3 

COMPUTE  X = X0  + ( X 00 T ) ( 
8—Q0=  XP  ( 0 E V c B— 0 ) , 
1 0- 1 1 D=XDOT  {REVS/CS 


25.3723 

25.3724 

23.3725 

25.3726 

25.3727 

25.3730 

25.3731 

000  1 1 
73525 
00GC7 
52361 
00025 

1 

1 

0 

1 

0 

0 

1 

FDD  L 

DVECTR 

SIN 

504F 

vsu 

AVECTR 

VXSC 

VSL1 

STODL 

ifltS 

14  0 3 3 

MMATRIX  +6 

25,3732 

00007 

0 

504F 

23,3733 

74356 

1 

SIN 

VXSC 

2r , 3734 

7 15  2 5 

0 

PDDL 

CCS 

25,3735 

00007 

0 

5 OAF 

25 . 3736 

25.3737 

5 3361 

o 

VXSC 

VAD 

0 0 C 2 5 

0 

AVECTP 

25,3740 

57572 

0 

VSL1 

VCOMP 

2 5 , 3 74 1 

3402  5 

1 

STCALL 

M MATRIX 

26, 3742 

. Of  1 

0 

EARTH  MX  X 

PD  20  D 14-1 9D=  DV  ECT P *CD  SF  B-2 


PD  14D 


AVECTR*SINF  8-2 


Ml=  A VECTP.  *S  IN  F-DVE  CTP  *C0  SF  B-l 


PD 

PO 


8 D 
14D 


°D  3D 


8— 1 3D- DV EC TP  * S INF  8-2 


AVECTP*CnSF  B-2 


M0=  - ( AVF  CTF *C  0 S F + D V E C Tn  * $ I N F 


B-l 


T +Tr’  ) 

PUSH LOC  SET  AT  12D 
EC ) SCALED  B + 2 3 FDR 


WEAR  TH, B + 28  FOR  NODDPT  AND  BOOT 


R 0 1 9 3 

AND 

B+27  FGR 

FOOT 

R 0194 

X1=DIFFE  ..ENCE  J , 

23  AND  SCAl ING  OF 

XDOT 

, =0  FOR  W EARTH, 

5 FOR  NODDCT 

AND 

R 01 9 c 

BOOT  AND  4 FOR 

F DO  T 

R 01  96 

6-7D=T 

(CSEC  B-2  ) 

, T 1 MSUBO= 

(CSFC  B 

-4  2 

T IPLE  P re. ) 

0197 

25  , 3743 

54345 

1 

NEWANGLE  DLOAD 

SR 

ENTER  PD  12 D 

0198 

25,3744 

OC  007 

0 

6D 

019S 

25,3745 

20617 

0 

14D 

0200 

2 5,3746 

72371 

1 

TAD 

TLOAD 

CHANGE  MODE  TO  TP 

0201 

RFF  1 

25 , 3747 

C 1707 

0 

T IMSUBO 

0202 

REF  776 

LAST  1108 

26,3750 

001 5C 

0 

MPAC 

0203 

REF  1 

25,  3751 

14017 

1 

STODL 

TIMSUBM 

T+TO  CSEC  8-42 

0204 

REF  2 

LAST  1145 

25,3752 

00020 

0 

TIMSUBM  +1 

0205 

7 7 6fl  6 

1 

pimd 

pn  inn  Mill  T BY  XDOT  T i 10  — 110 

4 ' 1 -J  t - -J 

f 1 t>Vj  J 

1 

Ul¥i  r 

0206 

25,3754 

*+3257 

0 

SL  * 

DAD 

PD  3D  ADD  XO  IN  8-9D  AF  TER  SHIFTING 

0207 

26 , 37  r 5 

20206 

1 

c .1 

SUCH  THAT  SCAL  TEG  IS  3-0 

0208 

25,3754 

67206 

1 

PUSH 

SLOAD 

PO  10  D SAVE  PARTIAL  ( XO+XDCT  *T  ) IN  3-90 

0209 

REF  3 

LAST  1 1 --  5 

25,3757 

00017 

1 

TIMSUBM 

0210 

25,3760 

41261 

1 

SL 

DMP 

0211 

25,376 1 

20212 

1 

9D 

0212 

25,3762 

goo  13 

0 

10D 

XDOT 

0213 

25, 3763 

432  57 

0 

SL* 

DAO 

PD  8D  SHIFT  SUCH  THAT  THIS  PART  OF  X 

0214 

25,3764 

20213 

0 

100,1 

IS  SCALED  REVS/CSEC  B-0 

02  1M 

25,3765 

77600 

1 

BOV 

TURN  OFF  OVERFLOW  IF  SET  BY  SHIFT 

02142 

25,3766 

53767 

1 

+ 1 

INSTRUCTION  BEFORE  EXITING 

0215 

25,3767 

77616 

0 

RVQ 

MP AC=  X=  X0+ ( XDOT ) ( T+T0 ) REVS  BO 

r 


GAP:  ASSEMBLE  LVISIjN  001  OF  A GC  PROGRAM  APHROPE  BY  FYLES 

L PLANETARY  INERTIAL  OSTENTATION 

EARTH MX  SUBROUTINE  

SUBROUTINE  TO  COMPUTF  THE  TRANSFORMATION  MATRIX  M FOR  THE  EARTH 

CALLING  SEQUENCE 
L CALL 

L+l  EARTHMX 

SUBROUTINES  USED 
NE WANGLE 


P0216 
R 0217 

R 02 1 8 
R0219 
R 02  2 0 

R 022  1 
R 022  2 

R 0 2 2 3 
R 022  A 
R 0 2 2 c' 
R 022  6 

0 022' 


INPUT 

INPUT  AVAILABLE  FROM  IAONCH  DATA 
6-7D=  TIME  C S EC  B-28 
OUTPUT 


R 0 2 2 F 

MM  A 

TP  IX 

= 3X3 

''AT1'  l X B — 1 

(sn  E D 

I 

02282 

26,3743 

02284 

REF 

2 

L AST 

1140 

26 , 2000 

02286 

26,374  3 

022  88 

RFF 

3 

LAST 

1140  TO 

114  1: 

21 

39 

022° 

26,3743 

40220 

C 

0230 

REF 

3 

LAST 

1145 

26,3744 

00051 

0 

0231 

26,3745 

00011 

1 

0232 

26,3746 

77770 

1 

0233 

26,374  7 

ocooo 

1 

0234 

26, 3750 

6 5345 

0 

023  S 

OFF 

] 

76,3751 

; : 1 7 ) ? 

0236 

RFF 

1 

26,3752 

14021 

1 

0237 

26,3753 

45006 

0 

023  8 

REF 

4 

LAST 

11  3 

26,3754 

53743 

1 

023  ° 

2 6,375': 

4 14  0 1 

1 

0240 

26,3756 

00  02  3 

0 

0241 

26, 3757 

65346 

0 

0242 

REF 

1 

26 , 3760 

00023 

0 

0243 

26,3761 

65356 

1 

3" 

024^ 

REF 

13 

LAST 

1144 

26,3762 

) 6 5 2 2 

1 

0245 

26,3763 

73525 

1 

0246 

REF 

2 

LAST 

1 146 

26,3764 

00023 

0 

0247 

24,376  5 

46276 

1 

0248 

RFF 

3 

LAST 

1146 

26,3766 

00023 

0 

0249 

26,3767 

6.3346 

0 

2” 

0250 

REF 

14 

LAST 

1146 

26,3770 

06  522 

1 

0251 

25,3771 

16  2 8 

0 

025  2 

REF 

5 

LAST 

48  8 

26,3772 

06  520 

0 

0253 

26,3773 

77650 

1 

0254 

REF 

4 

LAST 

1146 

26,3774 

00051 

0 

AZO  TVS  B-0 
TEPHEM  CS EC  B-42 


VAC  A E A ) 


BANK 


26 


5 E : L OC  PL  ANT  INI 
BANK 

COUNT*  $ $ / i U R 0 T 


EARTHMX  STQ 


AXT  , 1 
DLOAD 

PUSH 

SETPD 

CDS 

SIN 

POOL 

DCOMP 

COS 

POOL 

GOTO 


SETPD 
EARTHMX  X 
8D 

0 

PDDl 

AZO 

W EARTH 
CALL 

NE '/JANGLE 
PUSH 
180 
PDDL 
504AZ 
PDDL 

H I 6 ZEROS 
SIN 
5 04  A Z 
PDDl 
504  AZ 
PDVI 

HI6ZER0S 

PUSH 

HIDPHALF 
EAl  THMXX 


1" 


3:15  DEC.  2,1970  SKIPPER  .087  PAGE  1146 
USER’S  PAGE  NC.  7 EO  S3 


SET  e-°D=AZO 
10-  1 1D  = WEARTH 

FOR  SI.  5,  AND  SI  10  IN  NE  WANGLE 
LEAVING  PD  SET  A"  12D  FOr  NEWANGLE 


18-19  D=504AZ 
20-370=  MMATR I X= 


COS { AZ  ) S I N ( A Z ) 0 
-SIN< AZ  ) COS ( AZ ) 0 B- 1 
0 0 1 


GAP:  ASSEMBLE  r E VISION  001  OF  AGO  PROGRAM  AP11RGPE  BY  EYIES 


3:15  DEC 


2,1970  SKIPPER 


087 


PAGE  1147 


L PLANETARY  INERTIAL  ORIENTATION  USER'S  PAGE  NO.  8 EO  S3 

P025*  EARTHL  SUBROUTINE  

R0256  SUBPOUT INE  TO  COMPUTE  L VECTOR  FEE  EAPTH 

R0257  CALLING  SEQUENCE 

R025  ft  L CALL 

R02*c  L + l F m THI. 


R 0260  INPUT 

R 025 1 AXO » A YO  SET  AT  LAUNCH  TIME  WITH  AYO  IMMEDIATELY  FCI.L.,WING  AXO  IN  CORE 

R 0262  OUTPUT 

R 0283  -AX 

R 0264  M p A C = -AY  F A D I A N S B-0 

R 026  5 0 


026 : C 5 

026  5 I 

A?;,  t 1 K. 

7 E F 

J c.  O - 1 J 

02652 

REF 

0266 

0267 

REF 

0268 

REF 

026° 

REF 

0270 

REF 

0271 

REF 

0272 

REF 

0273 

REF 

0274 

1 

1 


06,3753 

06,2000 

06,3753 


06 ,3753 

1 06,37r  4 

1 06,3755 

1 06,3756 

2 LAST  1147  06,37^7 

4 LAST  322  06,3760 

3 LAST  1147  06,3761 

4 LAST  1147  06,3762 

06,3763 


BANK  06 
S6TL0C  EARTHLOC 
BANK 


COUNT* 

$ $ /L  UROT 

57545 

1 EARTHL 

DLOAD 

OCOMP 

01716 

0 

AXO 

14017 

1 

STUDL 

504LPL 

01714 

1 

-AYO 

14021 

1 

STOOL 

504LPL  +2 

24007 

0 

L06ZER0S 

2402  3 

0 

STOVL 

504L.PL  +4 

0 0017 

1 

5 04 L PL 

7 7616 

0 

RVQ 

GAP:  ASSEMBLE  RE  VISION  001  OF  AGC  PROGRAM  API 


L Oi  AFETAf  Y T N E R T I A L C I E N T AT  1 rOM 

P0275  CONST ANTS  AMD  ERASABLE  ASSIGNMENTS 
0276  REF  5 LAST  1137  12,2004 

0279  : REF  13  LAST  1088  00.60 

02 8 f f-F  13  l AST  1139  0091 

0281  0000 

0232  0010 

0283  0010 

0284  00  LO 

0285  0022 

0236  0016 

0287  0016 

0288  0024 

0289  0032 

0290  0024 

0291  CG4Q 

0292  0042 

0293  0006 


1R0PE  BY  LYLES 


1 B1 

I-PREXIT  = 
EARTHMXX  = 
504RPR 
S INK'D!  = 
DVECTR 
CVECTR 
504  A Z 

TIMSUBM  = 

504LPL 

AVECTR 

BVECTP 

MMATRIX  = 

COB 

SOB 

5 0 4 F 


3: L 5 DEC 


PAGE  1148 


970 

SKIPPER 

.087  PAGE 

PAGE 

NO.  ^ 

EO  S3 

UPL/2 
SI 
S 2 
CD 
8 D 
8 D 
8 D 
13D 
14  0 
14D 

2 OD 
26D 
20D 

3 2D 
340 
60 


1 SCALED  B-l 

K-Tp-Rp  ANO  RP-TO-F  SUBF:  EXIT 
EAR'"HMX,MCCNMX  SUBR.  EXITS 
6 REGS  R DP  PP  VECTOR 

2 SIN (NODI) 

6 D VECTOR  MOON 

6 C VFCTR  MOON 

2 AZ 

3 TIME  SUB  M (MOON!  T+T0  IF  GETAZ 

6 L OF  LP  VECTOR 

6 A VECTOR  (MOON) 

6 B VECTOR  (MOON) 

18  M MATRIX 

2 CCS(B)  B-l 

2 S ! N ( B ) B-l 

2 F (MOON) 


i 


GAP:  ASSEMBLE  REVISION  001  OF  AGC  PROGRAM  APIIROPE  BY  EYL.ES 

L MEASUREMENT  INCO’  P'V-  ATI'-v 


3:  15  DEC . 2,1970  SKIPPER 

USER ' S PAGE  NO.  1 


.087  PAGE  1149 
EO  S3 


P0001  INC  OR  PI  — PERFORMS  THE  SIX  DIMENSIONAL  STATE  VECTOR  DEVIATION  FOR  POSITI 

F 000  2 ON  AMD  VEL'  CITY  ■ THE  ' i 1 N F DIMENSIONAL  DEVIATION  OF  POS  ITION  , VELOC  I TY  , A 

ROOD 3 NC  RADAf  OF  LAND- A,  K BIAS. THE  OUTPUT  OF  THE  BVECTuR  UUTINE  ALONG  WITH  T 

R 0004  HE  ERROR  TRANSITION  MATRIX (W)  ARE  USED  AS  INPUT  TO  the  ROUTINE. THE  DEVIA 

ROOD"  T I ON  IS  OBTAINED  BY  COMPUTING  At  ESTIMATED  TRACKING  MEASUREMENT  FROM  THE 

ROODA  CURRENT  STATE  VEd™  A D COMP#®  ING  IT  WITH  A"  ACTUAL  TRACKING  MEASUC  EMEN 

R 0007  T AND  APPLYING  A STATISTICAL  WEIGHTING  VECTOR. 

R 0008  INPUT 

R 0009  OMENFLG  = 0 6 D 1 MENS  I CNAL  B VECTOR  1=  9DI MENS IONAL 

R 001 0 W = ERROR  TRANSITION  MATRIX  6X6  Oh  9X9 

P001  I V AR  I AN  CE  = VARIANCE  i SCALAR  ) 

R OOl 2 DELTAQ  = MEASURED  DEV  I AT  I ON ( S C AL A R ) 

R0013  BVECTOR  = 6 OR  9 DIMENSIONAL  BVECTOR 


R 00 14 
R 00 1 
R0016 
R001 7 
R 00 1 8 
R0019 
R 002  0 


OUTPUT 

DELTAX  = STATE  VECTOR  DEVIATIONS  6 C ' 9 01  ENS I ON AH 

ZI  = VECTOR  USED  FOF  THE  I NCORPOPA'  I OF  6 G R 9 DIMENSIONAL 
GAMMA  = SCALAR 

OMEGA  = OMEGA  WEIGHTING  VECTOR  6 OR  9 DIMENTIQNAL 
CALL  ING  SEQUENCE 
L CALL  1NC0RP1 


R 002 1 v<  • • A'  EXIT 


R 002  2 

0023 
00  2 A 
002  5 

L+l  OF 

REF  1 

CALL ING 

SEQUENCE 

37,3655 

2 3,200-0 
23,2531 

0026 

REF 

1 

0027 

RFF 

18 

1 A 8T 

610 

c c:  _ i a r,  d 

L M J i 

C > f i'TlU 

0028 

2 3, 2531 

7762  C 

0 

0029 

REE 

? 

L AST 

126 

23,2532 

02772 

1 

0030 

23,2533 

66  370 

0 

0031 

23,2534 

00066 

1 

0032 

REF 

14 

LAST 

1148 

23, 2535 

0CC51 

0 

003? 

23,2536 

0 0022 

1 

0034 

23,2537 

66374 

1 

003  5 

23,2540 

00022 

1 

0036 

REF 

14 

LAST 

1148 

23,2541 

00052 

0 

0037 

23,2542 

00006 

1 

0038 

23,2543 

637  75 

l 

0039 

REF 

2? 

LAST 

582 

23,2544 

03  52  5 

0 

0040 

PEF 

19 

l AST 

1149 

23, 2545 

02467 

0 

COM 

REF 

2 

LAST 

126 

23,2546 

126  65 

1 

0042 

23,2547 

77775 

1 

0043 

REF 

23 

LAST 

1149 

23, 2550 

03533 

1 

BANK  37 
SETLOC  ME AS  INC 
BANK 

COUNT  * $ $/ 1 NCOP 
E8ANK-=  W 
INCCBP1  STO 


EGPESS 

AXT  , 1 

SSP 

540 

SI 

1 »D 

1X1  = 54  S 1=  18 

A XT,  2 

SSP 

1 8D 

S2 

6 

1X2  = 13  S2=6 

VLQAD 

MX  VM 

BVECTOR 

BVECTOR  (0) 

W +540,1 

STORE 

71  +180,2 

VLOAD 

BVECTOR  +6 

BVECTOF  (1) 

AP:  ASS  L i B L £ REVISION  0,01  CF  ACC  PROGRAM  AP11RUPE  BY  EYLES 


MEASUREMENT  INC  OR  POR AT  ION 


0044 

23,2551 

52717 

1 

MX  V* 

0045 

REF 

20 

LAST 

1149 

23, 2*52 

0 2 5 5 5 

0 

AAA  L 

DCF 

•3 

l a c;T 

1 1 

7 r 1 1 ? 

i 

U U G 

K c r 

LA  v i 

i 1 

c .Djc.  * - 2 

1 

0047 

REF 

4 

LAST 

1150 

23 , ?c54 

12665 

1 

ST'  " E 

004  8 

23, ?555 

77775 

1 

VLOAD 

0049 

F EF 

LAST 

1 1 

2 3 * 2f • 5 6 

0359 1 

1 

0050 

23,2557 

52717 

1 

MXV* 

0051 

REF 

2 1 

LAST 

1150 

23,2560 

02643 

1 

0052 

REF 

c. 

LAST 

1150 

23,2561 

75112 

I 

005  3 

REF 

6 

LAST 

1150 

2 3,  266  2 

12  665 

1 

STORE 

005  a 

23,2563 

77700 

0 

T I X , 1 

00  5 c- 

P EF 

x 

23,2064 

4^6  ? ^ 5 

0 

0056 

23,2565 

43104 

0 

INCDR 1 

T IX  , 2 

0057 

REF 

1 

23,2566 

46543 

1 

0058 

f EF 

3 

LAST 

58  3 

23,2567 

02706 

1 

005  9 

REF 

1 

23,2570 

46  574 

0 

0060 

23,2571 

77775 

1 

VLOAD 

006  1 

R EF 

1 7 

LAST 

9 20 

23 » ?67? 

96  52  2 

1 

0062 

REF 

7 

LAST 

1150 

23,2573 

02657 

1 

STORE 

0063 

23,2574 

77201 

1 

INC0R1A 

SETPD 

0064 

23.2575 

0 1 001 

o 

0065 

REF 

8 

LAST 

11  50 

23,2576 

02643 

1 

006  6 

23,2577 

47036 

1 

VSQ 

0067 

RFF 

6 

L AST 

5 82 

2 3, 26  0 0 

21633 

1 

Of  6 8 

23,2601 

47515 

0 

PDVL 

0069 

REF 

9 

LAST 

1150 

23,2602 

02651 

1 

0070 

23,2603 

76  2 34 

0 

RTB 

0071 

REF 

7 

LAST 

1 1 ‘50 

23,2604 

21633 

1 

0072 

23,2605 

47515 

0 

PDVL 

0073 

RFF 

1 

LAST 

1 150 

23 , 2604 

02657 

1 

0074 

23,2607 

76  234 

0 

RTB 

0075 

REF 

8 

LAST 

1150 

23,2610 

21633 

1 

0076 

2 3 , 26 1 1 

771 7 x 

o 

TAD 

0077 

REF 

11 

LAST 

582 

7 3,26  12 

02707 

0 

0078 

23, 26 13 

OCOOO 

1 

007o 

EF 

2 

I A r T 

126 

23,2614 

02665 

0 

STORE 

0080 

23,2615 

40151 

0 

TLOAD 

0081 

REF 

12 

LAST 

1150 

23,2616 

02707 

0 

008  2 

23,2617 

4662  0 

1 

0083 

RFF 

1 

23,2620 

0 2 670 

1 

STORE 

0084 

23,2621 

776  54 

0 

8ZE 

OOP  8 

RFF 

1 

23, 2622 

4 66  3 1 

l 

0086 

23,2623 

40112 

1 

IN  CO  RTB 

SL  2 

0087 

REF 

2 

LAST 

1150 

23,2624 

46631 

1 

0088 

REF 

2 

LAST 

1150 

23,2625 

02670 

1 

SI  ORE 

008° 

23,2626 

52114 

1 

I NCR,; 

009  0 

23,2627 

OCC  01 

0 

DEC 

0091 

REF 

1 

23 , 2630 

460  23 

1 

0092 

23,2631 

61551 

1 

INCUR  1C 

TLOAD 

0093 

REF 

3 

LAST 

1150 

23 , 2632 

026  65 

0 

3:15  DEC.  2 

,1970 

SK  IPPER 

.087  PAGE  1150 

USER  ' 

S PAGE 

NO.  2 

E5  S3 

VAD* 

W +1080,1 
Z I +180,2 
ZI  + 1 SO  ,2 

BVECThp  +1 2D  8VECT  Of  (?) 

VAD* 

W +162D , 1 

ZI  +130,2  8(0  >*W+B(  1 )*<W+54)+B(  2)*(  W+1C8JFIKST  PAS 

ZI  +180,2  ZI  THEN  12  THEN  Z3 

I NC  OR  1 
BON 

Z 1 23  LOOP  FOR  Z1,Z2,Z3 

OMEN EL  G 

INC0R1A 

Z E • VFCS 
ZI  +12D 
Vt.OAD 
0 

ZI 

RTB 

TPMODE 

VSQ 

ZI  +6 

TAO 

TPMDDE 

VSQ 

ZI  +120 
TAO 

T PM ODE 
A XT  ,2 
VARIANCE 
0 

TP  I P A Z I * ? + Z2*2  + Z3*2  + VARIANCE 

80V 

VARIANCE  CLEAR  PVF  IND 

+ 1 

T E M P V A R TEMP  STORAGE  FOf  VARIANCE 

INCUR  1C 
BOV 

I NC0R1C 
T EMP VAR 
GOTO 

1 

I NC OR 1 ft 
ROUND 
TRI  PA 


GAP 


ASSEMBLE  E V I S I - IN  001  uE  AGC  Pp  QG  BAM  A P 1 1 t-.  U P E BY  &YLES 


0 09* 
009* 

0096 

0097 

0098 

0099 

0100 
0101 
010? 

0103 

0104 

0105 

0106 
0107 
‘ 1 - 
010° 
0110 
011  1 
0112 

0113 

0114 

0115 

0116 

0117 

0118 
0119 
0119  3 

0119  6 

0120 
0121 
0122 

0123 

0124 
0124 
0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 
013* 

0136 

0137 

0138 
01 3 n 

0140 

0141 


measurement  incorporation 


REF  3 LAST 

REF  4 LAST 
REF  19  LAST 

KEF  2 LAST 

r.  EF  6 LAST 

REF  2 LAST 

•>EF  4 LAST 
REF  36  LAST 

REF  727  LAST 
REF  8 LAST 

REF  19  LAST 

REF  16  LAST 

D EF  1 

»EF  15  l AST 

.REF  11  LAST 
REF  22  LAST 

REF  12  LAST 

REF  23  LAST 

REF  13  LAST 

REF  24  LAST 

REF  1 

REF  2 LAST 

REF  3 LAST 

REF  4 LAST 


23,  2633 
1150  23,2634 

2 3,263  5 
23,2636 

1 1 50  23,2637 
23,2640 

1016  23,2641 

2 3 , 2642 
2 3 , 2643 
114  23,2644 

2 3, 264  5 
23, 2646 
920  23,2647 

23 , 2650 
145  23,2651 

2 3, 26 r:  2 
1161  23,2653 

1088  23,2654 

23 , 2655 
1145  23,2656 

582  23,2657 

2 3 , 266  0 
1149  23,2661 

23,2662 

1151  23,2663 

23.2664 

23.2665 
2 3 , 26  6 6 
2°  , 2 6 7 

1149  23,2670 
23, 2671 
23  ,2672 

1150  23,2673 

1150  23,2674 
23,2675 

1151  73,267A 
23,2677 

1151  23,2700 

23,2701 
1151  23,2702 

23,2703 
11  r-l  2 3,2704 

23.2705 

23. 2706 

23.2707 
145  23,2710 

2 i, 271  1 
11*1  2 3,271  2 

23,2713 
1151  23,2714 


75405  1 
02670  1 
76257  0 
57576  1 
02665  0 
63101  1 
00050  1 
77775  1 
77134  1 
02103  1 
00242  0 
4C265  1 
06512  1 
00001  0 
03500  1 
6 03  5 1 0 
02665  0 
00047  1 
65345  0 
00155  0 
03547  1 
77701  1 
GCC61  0 
70460  1 
00050  1 
41471  0 
77650  1 
45711  1 
77731  1 
06052  0 
C 0066  1 
60775  1 
02643  1 
7*1 34  0 
77206  0 
02651  1 
53303  1 
75112  1 
77206  0 
02657  1 
53303  1 
75070  1 
61006  0 
46672  0 
45575  1 
74260  0 
-5575  1 
7/  ?6*  0 
45575  1 
74274  0 


DMP 
S!  * 

NOE  M 

DEC 
5XA  ,2 


BDDV 

STORE 
TLO  A 0 

DLOAD 

NORM 

XSl,  1 

DDV 

GOTO 

-3  SSP 

IN COR  2 VLOAD 


PUSH 

VXM* 

PUSH 

VXM* 

PUSH 

VLOAD 

STORE 

VLOAD 

STORE 

VLUAD 

STORE 


3:15  DEC 


2 , 1970 
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USEP' S PAGE  NO. 


E5  S3 


SORT 
TEMP VAR 
TAD 
0,2 
TRIPA 
I NCR  ,2 
X2 
-2 

AXT  ,2 
MORmgaw 
16  2D 
SETPD 
DP1/4TH 
0 

GAMMA 
NORM 
TRIPA 
XI 

POOL 
MPAC 
DEL  T AQ 

SI 
SRI 
SI 

PUSH  PD  0-1  = DELTAQ/A 

NEWZCQMP 

S 2 
54D 

VXM*  COMPUTE  OMEGA  1 ,2,3 

ZI 

w +16,20,2 
VLOAD 
ZI  +6 
VAD 

W + 1 BOD , 2 
VLOAD 
ZI  + 1 2 D 
VAD 

W +1980,2 

T I X , 2 PD  2 -7=0 MEGA  1, 3-13  = OMEGA2 , 14— 19=PMEGA3 

TNC0P2 

STADR 

OMEGA  + 1 2D 
STAC- 
OMEGA  +6 
STADR 
OMEGA 


NORMALIZATION  COUNT  -2  FOR  GAMMA 


PD  0-1  = NORM  (A) 


GAP:  ASSEMBLE  RE VISIJM  001  OF  AGE  PROGRAM  AP1IR0PE  BY  EYLES 

L MEASUREMENT  INCORPORATION 


3:15  DEC.  2,1970 

SK  IPRER 

. 087  PAGE 

USER  * S PAGE 

NO.  4 

E5  S3 

0142 

0143 

0144 
01  - 

0146 

0147 
0 1 

0144 

0150 
015] 
0152 

0151 
01*4 

0155 

015  fc 
0157 
01'" 
0154 
OlfcO 
0141 
0162 

016  3 


REF 

ppr 

4 

1 

18 

LAST 

1150 

* v U.  1 

- E F 

LAST 

1 1 ' " 

r FF 

5 

LAST 

115  L 

RFF 

16 

LAST 

1151 

REF 

6 

l.  AST 

1152 

RLE  5 LAST  586 

REF  1 

RFF  6 LAST  1152 

REF  7 LAST  1152 

FF  3 LAST  1140 


23.2715 

23.2716 
23,2.717 
#3,272:0 

23.2721 

73 . 2722 

23.2723 

23.2724 

23.2725 

23.2726 
2 3 » 2 7 2 7 

23.2730 

23.2731 

23 . 2732 

23.2733 
2 3 , 2734 

23.2735 

23.2736 

23.2737 

23.2740 

23.2741 

23.2742 


77214  0 
02706  1 
46722  1 
06522  1 

0 35  17  1 
66374  1 
00022  1 
00052  0 
00006  1 
77773  1 
7^252  1 
53761  1 

00001  0 
20201  0 
12707  1 
77304  0 
46726  0 
02673  1 
77732  1 
02673  1 
77650  1 
02772  1 


I NCOS' 2 AB 


IN COL  3 


BLN  VLOAD 

DMENFLG 
I NCR  1 2 A3 
L EP  C VECS 

STORE  OMEGA  +12D 
AXT  f ? SSP 
ISO 

5 2 

6 

VLOAD* 

OMEGA  +18D, 2 
VX SC  VSL  * 

0 

0,1 

STORE  DELTAX  +18D,2 
T I X , 2 VLOAD 
INCLR3 
DELTAX  +4 

VSL3 

STORE  DELTAX  +6 
GOTO 

EGRFSS 


DELTAQ/A 


152 


GAP:  ASSEMBLE  kEVI'.  ION  0 i If  AGC  PR-  Gf  AM  API  1RQP6  BY  EYLLS 


3:1  5 DEC 


2,1970  SKIPPER 


087 


PAGE  1153 


l i GA  SHr-  E VP  NT  I M CO  PP 1 ATI  C N USER'S  PAGE  NO.  5 

P 0164  INCTFP2  -INCOPPtT ATES  THE  COMPUTED  STATE  VECTOR  DEVIATIONS  INTO  THE 

R0165  ESTIMATED  STATE  VECTOR.  THE  STATE  VECTOR  UPDATED  MAY  BE  FOP  EITHER  THE 

R 0;1 6 A LEM  Qk  the  C S M .DETERMINE  D BY  FLAG  VEHU  PFL  G.  ( Z E PO  = LEM)  (1  = CSK  ) 

R 0 1 6 7 INPUT 

R 0 1 8 8 f F 1 MAMEiv  T STATE  VfCT  F ■ - FITHE  THE  LEM  OF  CS 

R01  + c VEHUPELG  = UPDAtE  #H1C1  E 0 = L E M ]=CSM 

R 0170  W = ERROR  TRANSITION  MATRIX 

P 017 1 DELTAX  = COMPUTED  STATE  VECTO  DEVIATIONS 

R 017  2 D U.ENFLG  = SIZE  LF  -AT  !<  1 X (ZEE-  =6X6)  (1=9X9) 

R 0173  GAMMA  = SCALAR  FPr  INCORPORATION 

R0174  71  = VECTOR  USED  IN  INCORPORATION 

R 017 5 OMEGA  = WE  TGH*  I MG  VECTPr 

R 01 76  OUTPUT 

R0177  UPDATED  PER MANENT  STA i E VECTOR 

R 017 8 CALL  IMG  SEQUENCE 

R017-  i . CALL  IUCP'-'P? 


n 0130  NCT  . MAL  EXIT 

R £)  1 8 1 1+1  JF  CALL  TUG  SEQUENCE 


01P? 

REF 

1 

23,2000 

SETI.OC 

MEAS  INC  1 

0)73 

2 3,2  7'? 

BANK 

Cl  84 

REF 

2 

LAST 

1149  TC 

1153: 

138  1 38  * 

COUNT-' 

$ $ / 1 NC  0 R 

C 1 * 1 

2 3,2  74 3 

45020 

1 

INCOf P2 

STQ 

CALL 

01  + + 

t-  EF 

4 

LAST 

LI  52 

23,2744 

02  772 

1 

EGRESS 

0187 

REF 

27 

LAST 

787 

? 3 , r 

?-?4  i / 

r 

IMTCTA 1 1 

C.  1 “ J. 

0/ 

x N * o I At  * 

0188 

23,2746 

74  375 

0 

VLOAD 

vxsc 

0189 

REF 

7 

LAST 

1152 

23,2747 

C 3503 

1 

OMEGA 

01 OC 

REF 

3 

LAST 

1151 

23,2  75  0 

035C0 

1 

gamma 

01  l 

e f 

2 

L A S r 

126 

23,2751 

26713 

0 

s tovl 

CM EG AMI 

0192 

P F F 

8 

L AST 

1153 

23,275? 

■ 1 3 r i i 

1 

OMEGA  +6 

01 r- 3 

23,2753 

77761 

1 

VXSC 

0194 

REF 

4 

LAST 

1153 

23,2754 

03500 

1 

GAMMA 

0195 

P.  EF 

2 

LAST 

126 

23,2755 

26721 

1 

STOVL 

0MEGAM2 

.0196 

REF 

; 9 • 

LAST 

1153 

23,2756 

03517 

1 

UME G A +I2D 

0197 

23,278? 

77761 

1 

vxsc 

0198 

RFF 

5 

L AST 

11  "'3 

23,2769 

0 3 500 

1 

GAMMA 

019° 

REF 

2 

LAST 

1 26 

23,2741 

02727 

1 

6 TORE 

0MEGAM3 

0200 

23,2762 

77776 

1 

EXIT 

0201 

REF 

1 

23,276? 

3 3244 

0 

CAF 

54DD 

020? 

REF 

1 

23,2764 

55 ’ 320 

0 

TS 

WI  XA 

020? 

r E F 

1 

23,2765 

6 6 * 3 2 1 

1 

TS 

WI  XB 

0204 

P.FF 

227 

L AST 

1126 

23 , 2766 

3 4 755 

1 

CAF 

ZERO 

0205 

R EF 

1 

23,2767 

55*322 

1 

TS 

7 TX  A 

0206 

REF 

1 

23,2770 

55*323 

0 

TS 

Z I XB 

0207 

REF 

10' 

LAST 

980 

23,2771 

0 5 353 

1 

FAZA 

TC 

PHASCHNG 

CALC.  GAMMA  * QMEGA1, 2,3 


INITIAL  tx 


SETTING  FOR 


INI  T I At 


IX  2 SETTING  FOR 


F 5 S3 


MAT" I X 


COMPONENT 


m 


GAP:  ASSEMBLE  'EVISIjN  CGI  OF  AGO  PPG  GRAM  API  1 l,PE  BY  EVILS 


L MEASUREMENT  I NC  CP  Pf'R  AT ! f 


0208 

23,2772 

04  02  2 

0 

0209 

R EF 

fc  6 

LAST 

983 

23,2773 

0 5504 

0 

0210 

REF 

2 

LAST 

7 11 

23,2774 

0 0236 

Q 

0212 

REF 

2 

LAST 

11  53 

23,2775 

3 1321 

0 

0213 

R EF 

2 

LAST 

1153 

23,2776 

5 3 * 3 20 

0 

0210 

REF 

2 

LAST 

1153 

23.27T7 

3 1323 

1 

0215 

REF 

2 

1 AST 

1153 

23,3000 

55*322 

1 

0216 

REF 

224 

LAST 

102.3 

23,  3001 

0 6037 

0 

0217 

23,3002 

73150 

1 

02  IP 

REF 

3 

LAST 

1 154 

23, 30C 3 

u 1 3 2 C 

1 

0219 

REF 

3 

LAST 

1154 

23, 3004 

013  2? 

0 

0220 

2^. , 59i05 

7 C 7 3 1 

o 

0221 

REF 

17 

LAST 

1151 

23,3006 

00051 

0 

0222 

23,3007 

0 C 0 0 6 

1 

0223 

F EF 

14 

LAST 

1 151 

23,3010 

7<»  1 3 4 

0 

022  4 

23,3011 

60276 

1 

022  c 

REF 

17 

LAST 

1 152 

23, 3012 

00052 

0 

022' 

23,3013 

( 6 161 

I 

0227 

REF 

3 

LAST 

1153 

23,3014 

0 2 713 

0 

0228 

REF 

18 

LAST 

1154 

23,3015 

00051 

0 

0229 

23.3316 

57144 

I 

023  0 

REF 

26 

LAST 

llcl 

23,3017 

00047 

1 

0231 

F EF 

3 

LAST 

1151 

23,3020 

■0  2 10  3 

1 

0232 

2 3 , 30  2 1 

65057 

o 

0233 

23,3022 

57576 

1 

0234 

REF 

19 

) — 

m 

<r 

1154 

23, 3023 

00051 

0 

0235 

23, 3024 

77  6 53 

1 

0236 

REF 

2 5 

LAST 

1181 

23,3025 

02467 

0 

0237 

REF 

2 

LAST 

126 

23 , 3026 

0 273  5 

1 

023° 

23 , 3027 

5 7 k 4 3 

1 

L 

0239 

REF 

15 

LAST 

1154 

23 , 3030 

7513* 

0 

0240 

23, 303  1 

74301 

0 

029  1 

REF 

20 

LAST 

1 i , 

? 9 . X ( ) 9 2 

00052 

0 

c.  3 f . > c. 

029  2 

REF 

3 

I AST 

1153 

23,3033 

0 2 721 

1 

0243 

23,3034 

71124 

0 

024* 

REF 

2 1 

LAST 

118* 

23, 3035 

] 

!*) 

XJ 

0245 

REF 

2 1 

LAST 

1154 

2 3, 

00047 

1 

029  6 

23,3027 

53674 

1 

0247 

REF 

4 

LAST 

1154 

2 3 , 3 ' ( 

02103 

1 

0248 

2 3 , 3 - 1 

57576 

1 

0249 

2 3 , 304 p 

52724 

1 

02  c 9 

REF 

22 

LAST- 

1164 

23,304 3 

0005 1 

0 

0251 

REF 

26 

LAST 

1154 

23,3044 

02555 

0 

0252 

REF 

3 

LAST 

1154 

23,3045 

02743 

0 

0253 

23,3046 

776  14 

1 

0254 

REF 

5 

LAST 

115  2 

23,3067 

02746 

0 

0255 

REF 

1 

23,3050 

47070 

0 

0286 

23,305  1 

57543 

1 

0257 

REF 

16 

LAST 

1154 

23,3052 

75134 

0 

0258 

23,3053 

74301 

0 

OCT 

TC 

ACRES 

FAZA1  CA 
TS 
CA 
TS 
TC 

l XA , 1 


SSP 

DC  CMP 

vxsc 

I.XC » 2 

V SL  * 

VAD* 

STOP  E 
Dt  0 AD* 

NORM 


XCHX, 2 

XAD  * 2 

XCHX  ,2 

STORE 

B 0 If 

01  HAD* 
NORM 


04022 
UPFLAG 
REINTFl  G 
WIXB 
W I X A 
ZIXB 
Z I X A 
INTPRET 
l XA  , 2 
W I X A 
Z I XA 
Dl.OAD# 

51 
6 

ZI  ,2 

NORM 

52 

XCHX ,2 
C MEG AMI 
S 2 

XAD, 2 
X 2 

NOR  MG  AM 
XCHX  ,2 
0,2 
S2 

W +5X0,1 
HO  LOW 
DCOM  P 
ZI  ,2 
VXSC 
S 2 

OMEGA M2 
L XC  ,2 
$ 2 
X? 

V SL  * 

NCR MG AM 
0,2 
VAD* 

S2 

W +108D, 
H 0 L D W +6 

DMEMFLG 
FAZB 
OCOMP 
Z 1 , 2 
VXSC 


3:15  DEC 
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U SET'S  PAGE  NO.  6 E5  S3 


START  FIRST  PHASE  OF  TNC0RP2 
Tfi  UPDATE  6 OP  9 DIM.  W MATRIX  IN  TEMP 


CALC  UPPER  3X°  PARTITION  OF  W MATRIX 


CALC  MIDDLE  3X9  PARTITION  OF  W MATRIX 


BRANCH  IF  6 DIMENSIONAL 


CALC  l OWE f 3X9  PARTITION  OF  W MATRIX 


GAP:  ASSEMBLE  REVISION  GOl  OF  AGC  PROGRAM  AP114DPE  BY  EYLES 


L MEASUREMENT  INCO'P! 

025°  REF  23  LAST  1154 

0260  REF  3 LAST  1153 

0261 

0262  REF  24  LAST  1155 

0263  REF  22  LAST  11 ‘4 

026  4 

026*  REF  5 LAST  1154 

0266 
0267 

02  6 8 REF  2 6 LAST  116* 

02 6 5 'i  EF  27  L AST  1154 

0?TA  REF  4 LAST  11*4 

0271 

0272  REF  18  LAST  583 

0273 

0274  REF  • LAS"  1154 

0275  aft  1 

0276  EF  3 LAST  11*4 

0277  REF  4 LAST  1154 

0278  REF  2 LAST  219 

0279  REF  3 LAST  1154 

028 C REF  225  LAST  1154 

0281 

02«2  c FF  6 L ACT  1155 

0233  REF  18  LAST  1154 

02  84 
0285: 

0286  REF  3 LAST  1165 

0287  tfc  28  LAST  1155 

02  3 8 


0289  REF  6 LAST  1155 

0290  REF  29  LAST  1155 

0291 


02*2 

REF 

6 

LAST 

1 1 54 

0293 

5.EF 

I 

0296 

REF 

7 

LAST 

115* 

0295 

REF 

30 

LAST 

1155 

0296 

0297 

029  8 

r EF 

1 

029* 

03*0 

D EF 

1 

0301 

0302 

REF 

4 

LAST 

1155 

0303 

REF 

1 

0306 

030* 

REF 

2 

LAST 

11*5 

0306 

OFF 

l 

0307 

0308 

REF 

I R 

LAST 

1155 

23.3054  00G52  0 

23.3055  02727  1 

23.3056  71124  0 

23.3057  00051  0 

23.3060  OC047  1 

23.3061  53674  1 

23.3062  02103  1 

23.3063  57576  1 

23.3064  52724  1 

23.3065  00051  0 

23.3066  02643  1 

23.3067  02751  0 

23,3070  77624  1 

23,307  l 11244  0 

23.3072  77776  1 

23.3073  3 1320  1 

23.3074  6 3245  1 

23.3075  5**321  1 

23.3076  3 1322  0 

23.3077  6 7746  0 

23.3100  55*323  0 

23.3101  0 6037  0 

23.3102  6^350  1 

23,31*3  01320  1 

23,3104  00051  0 

23,310*  00006  1 

23.3106  77775  1 

23.3107  02735  1 

23.3110  C'6467  1 

23.3111  77775  1 

23. 3112  02743  0 

23.3113  06555  1 

23.3114  77214  0 

23.3115  02746  0 

23.3116  47126  1 

23.3117  02751  0 

23. 3120  06643  0 

23.3121  52100  1 

23.3122  47124  0 

23.3123  47134  1 

23.3124  77634  0 

23.3125  46771  i 

23.3126  43335  0 

23.3127  01324  0 

23.3130  07247  1 

23. 3131  52030  0 

23.3132  47134  1 

23.3133  47121  0 

23.3134  77624  1 

23.3135  11244  0 


S 2 

0MEGAM3 
XCHX  , 2 L XC  , 2 

5 2 
X2 

X A 0 , 2 VS!  * 

NOR MG AM 

0,2 

XCHX,  2 VAD* 

S2 

W +1620,1 
STORE  HOLDW  +12D 
FAZB  CA1L 

GRP2PC 

EXIT 

FAZB1  CA  W I X A 

AD  6 DO 

TS  WIXB 

CA  Z I X A 

AD  M INUS2 

TS  ZIXB 

TC  INTP^ET 

L X A , 1 SSP 
W I X A 
SI 

6 

VLOAD 

HOLDW 

STORE  W +54  0,1 
VLOAD 

HOLDW  +6 

STORE  W +1080,1 

BOFF  VLOAD 

OMENFLG 

FAZB5 

HOLDW  + 1 2 D 
STORE  W +162  D, 1 

FAZB2  T I X , 1 GOTO 

+ 2 

FAZC 

P.TB 

FAZ  A 

FAZB*  SLOAD  DAD 

7 I XB 
1 2DD 
BH1Z  GOTO 

FAZC 
FAZB2 

FAZC  CAl L 

GRP2PC 


3: 15  DEC.  2,1970  SKIPPER 
USER'S  PAGE  NO.  7 


087  PAGE  1155 
E5  S3 


START  2ND  PHASE  OF  INC0RP2  TC  TRANSFER 
TFMP  REG  TO  PERM  W MATRIX 


DONE  WITH  W MATRIX.  UPDATE  STATE  VECTOR 


GAP:  ASSEMBLE  REVISION  001  OF  AGC  PROGRAM  API  l'.OPE  BY  EYLES 


3:15  DEC.  2,1970  SKIPPER  .087  °AGE  1156 


0309 

0310 

0311 

0312 

0313 

0314 

0315 

0316 

0317 
03  1 8 
03  IP 
0320 
032  1 

0322 

0323 
032  4 

032  5 
032* 

0327 

0328 

0329 

0330 

0331 

0332 

0333 
033'* 
0335 

033  6 
0337 
03  3° 
033° 
0340 

034  1 

034  2 

0343 

0344 

0345 
034* 

0347 

0348 

0349 

0349  1 
03492 

0350 

035  1 
035? 

0353 

0354 
035? 
0356 


M E AS  DP  EMENT  INCORPORATION 


USER1 S PAGE  MO.  8 E5  S3 


23,3136  53375  0 

PEF  4 LAST  582  23,3137  01701  0 

LEE  8 LAST  1152  23,3140  G2701  0 

REF  2 LAST  !•--  29,3141  03472  ( 

23,3142  47014  1 

Ef-  12  1 AST  53]  73,314  3 01707  1 

REF  1 23,3144  47234  1 

REF  1 23,3145  26770  0 


REF  2 LAST  565 


REF  5 LAST  717 


-EF  9 LAST  11*6 


REF  4 LAST  321 

REF  1 

‘ ' E F * LAST  1151- 

REF  10  LAST  1155 


REF  4 LAST  321 
REF  1 

REF  5 LAST  1156 
9 EF  1 

REF  13  LAST  788 
OF  11  L AST  1 ! 56 
' EF  14  LAST  1 ] 

REF  11  LAST  78 8 
EF  12  LAST  1166 
REF  12  LAST  1156 

REF  3 LAST  297 
PEF  1 

REF  20  LAST  1155 

REF  13  LAST  1156 
REF  1 

REF  2 LAST  37 
REF  1 


23,314  b 77004  0 F A Z A 6 


2 3,314-9 

57753 

1 

23,3150 

COO  00 

1 

73,31*1 

770  14 

1 

23,3152 

04344 

0 

23,3153 

47155 

0 

23,3154 

0 0002 

0 

23,3155 

53775 

1 

23,315 6 

02665 

0 

23,31*7 

5720  5 

23,3160 

40055 

0 

23,316 1 

01521 

0 

23,3162 

47174 

c 

23,3163 

2 * 5 2 1 

0 

23,3164 

02*73 

1 

23, 31* 5 

53257 

1 

23,3166 

57202 

0 

23,3167 

01527 

0 

2 3, 3170 

7760  0 

1 

23,3171 

47200 

0 

23,3172 

355  27 

1 

23 ,3173 

47207 

1 

23 , 3174 

53375 

0 

FAZAB1 

23,3175 

01535 

0 

2 3.3 1 7 6 

02665 

Q 

4*  -2  T ' I * 

23,3177 

01535 

0 

23,3200 

53375 

0 

FAZAB2 

23,32n] 

*1543 

1 

23,3202 

02673 

1 

23,3203 

01543 

1 

23, 32 C 4 

45134 

0 

23, 32C5 

02030 

0 

23, 320  6 

2 3441 

1 

23,32*7 

77624 

1 

FAZA83 

23, 3210 

11244 

0 

23,3211 

47014 

1 

23,3212 

00707 

1 

23,3213 

47237 

1 

2°  , 32  14 

26747 

1 

23,3215 

7 7624 

1 

23 , 32  16 

26070 

1 

23, 3217 

77624 

1 

FAZAR4 

VLOAD  VAD  START  3RD  PHASE  OF  INCOpP2 

X789  7TH,8TH,9TH, COMPONENT  OF  STATE  VECTOR. 

DELTAX  + 12  D INCORPORATION  FOR  X789 

STORE  TX789 
BON  RT6 

VEHUPFL  C> 

DOCSM 
MOVE  PL  EM 
BOVS  A XT, 2 

T CO AN  Z IG 
0 

SOFF  A XT  , 2 

MOONTHIS 
+ 2 
2 

VLOAD  VSR* 

DELTAX  B27  IF  MOON  ORBIT,  B2 9 IF  EARTH 

0 -7,2 
VAD  BOV 

TDE L T A V 
FAZAB1 

STOVL  TDEITAV 

DELTAX  +6  8*  IF  MOON  trBIT,  B7  IF  EARTH 

VSR  * VAD 

0 -4,2 
TNUV 

BOV 

F A Z A B 2 
SIC ALL  TNUV 

FAZAP3 
VLOAD  VAD 
RCV 

DELTAX 
STORE  ' CV 
V!  AD  VAD 
VCV 

DELTAX  +6 
STORE  VCV 
SX  A , 2 CALL 
PBODY 
RECTIFY 

CALL 

GPP2PC 
BON  RTB 

V EHUPFLG 
DOC  SMI 
MO VEAL  EM 

C At  L 

SVDWN2  STORE  DOWNLINK  STATE  VECTOR 

CALL 


GAP:  ASSEMBLE  REVISION  Cl  Qf  AGO  F 1 GRA  1 APllRt.PE  BY  E Y L E S 


L MEASU'r-  EWENT  I M COP  PC?  AT  " PL 


0357 

REF 

21 

LAST 

1156 

23 , 3220 

11244 

0 

GRP2  PC 

0358 

29,3221 

77214 

0 

BCFF 

VLOAD 

0359 

REF 

7 

LAST 

115  5 

23,3222 

02  746 

0 

DMENFLG 

C360 

REF 

1 

23,3223 

47226 

1 

FAZAB5 

030  L 

3 

LAST 

1156 

23,3224 

03472 

0 

TX789 

rr-*  a 7 

CEP 

1 ACT 

1 1 A 

0 -a  . 

n 

5 y n r e 

X78° 

V DO  A 

- L 1 

LAO  ! 

I J.  R*V7 

C.  D ♦ 04  AW 

V I Ul 

0363 

23,3226 

66150 

0 

FAZAB5 

LXA  , 1 

S X A , 1 

0364 

REF 

5 

LAST 

1153 

23,3227 

02772 

1 

EGRESS 

0365 

, R E F. 

13 

LAST 

109  1 

23,3230 

00C52 

0 

UPRET 

0366 

23,3231 

77776 

1 

E X 1 T 

0367 

REF 

54 

LAST 

867 

23,3232 

0 463  5 

0 

TC 

POST  JIJYP 

0^  ^ c 

RCC 

Q 

1 aft 

1 

C ADR 

T MTP A K F 

Kl  r 

D 

LAjl 

nil 

C.  D , “ £ 3 -* 

2_  lltW 

I 

1 1 \ 1 nH  INF 

0369 

23,3234 

52034 

1 

DOCSM 

RTB 

GOTO 

0370 

REF 

1 

23,323* 

26723 

0 

MOVE  PC  SM 

0371 

REE 

1 

23,3236 

47146 

1 

FAZAB 

0372 

23,3237 

6 3 0 3 4 

1 

DL>CSM1 

P TB 

CAL! 

0373 

REF 

] 

23,3260 

26  676 

0 

MOVE AC SN 

03  7' 

PEF 

2 

LAST 

2°7 

2 3,9  26  1 

26114 

] 

S VOW"  1 

0375 

23,  3242 

77650 

1 

GOTO 

0376 

REF 

1 

23,3243 

472  17 

0 

FAZAB4 

0377 

REF 

19 

LAST 

1152 

23,2521 

ZERGQ 

= 

Z ERG V ECS 

0378 

23,3244 

0 006  b 

1 

540D 

DEC 

54 

0379 

23,324* 

77771 

0 

6DD 

DEC 

-6 

0380 

23,3264 

C 0014 

1 

12DD 

DEC 

12 

0400 

REF 

1 

22,2000 

SETLOC 

RENDEZ 

0401 

22,3711 

BANK 

0402 

REF 

1 

COUNT* 

$$/  I C 

0403 

22,3711 

5 1 5 7 * 

1 

NEWZCOMP 

VLQAD 

ABVAL 

040' 

REF 

17 

LAST 

115' 

22,3712 

0 2 643 

1 

ZT 

0405 

REF 

1 

22,3713 

24  045 

0 

STliVL 

NORMZI 

0406 

RFF 

18 

LAST 

1157 

22,3716 

02651 

1 

ZI  +6 

0407 

22, 3715 

41446 

1 

ABVAL 

PUSH 

O'- OP 

22,3716 

5 0025 

0 

QSU 

BMN 

0609 

0 E F 

2 

LAST 

1157 

22,3717 

00045 

0 

NORMZI 

04  lr 

22,3720 

45723 

0 

+ 3 

0411 

22,3721 

45545 

1 

DLOAD 

STADR 

0412 

REF 

3 

LAST 

1157 

22,3722 

77732 

1 

STORE 

NORMZI 

0413 

22,3723 

51575 

1 

VLOAD 

ABVAL 

0414 

REF 

19 

LAST 

1157 

22,3724 

026  57 

1 

ZI  + 1 2D 

0415 

22,3725 

45206 

1 

PUSH 

DSU 

0416 

REF 

4 

LAST 

11*7 

22,3726 

00045 

0 

NORMZI 

0417 

22,3727 

71240 

1 

BMN 

DLOAD 

0418 

22, 3730 

45733 

1 

+ 3 

0419 

22,3731 

77626 

0 

STADR 

0420 

PEE 

5 

L A S I 

1167 

22,3732 

79732 

1 

STORE 

NO  p M Z J 

0421 

22,3733 

66  145 

1 

DLOAD 

SXA,  1 

042  2 

REF 

6 

LAST 

1157 

22,3736 

06045 

0 

NORMZI 

0629 

REF 

7 

LAST 

1157 

22 , 3735 

00044 

1 

NORMZI 

0424 

22 , 3736 

62101 

0 

NORM 

INCR , 1 

O O 
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USEP  » S PAGE  NO.  9 
PHASE  CHANGE 


E5  S3 


DIMENSIONAL 

DIMENSIONAL 


..e 

EXIT 


STORE  DOWNLINK  $tATE  VECTOR 


i argest  abvai 


SAVE  XI 


GAP 


AS. Si  BLl.  F VISION  001  OF  AGC  PROGRAM  API  1 : OP  E BY  LYLES 


L MEASUREMENT  I MC  OR  PL'r>  Ar  I ON 


0A2  r 
0426 
0027 
042  8 
042  9 

0430 

0431 
043? 
0433 
04  34 

0435 

0436 

0437 

0438 

0439 

0440 
04  41 

0442 

0443 

0444 
04  45 

0446 

0447 
044  8 
0449 
04  5 0 

0451 

0452 
04  5 3 


REF 

37 

1 AST 

1181 

REF 

20 

LAST 

1157 

REF 

21 

LAST 

1 1 5 8 

REF 

22 

LAST 

1168 

P,  EF 

23 

LAST 

11  5 8 

REF 

24 

LAS  r 

1158 

REF 

REF 

8 

25 

LAST 

LAST 

1157 

1 158 

f EF 
REF 

6 

0 

LAST 

LAST 

115  5 

1 1 58 

P EF 

10 

LAST 

1158 

REF 

7 

LAST 

1 1 L 8 

RFF 

1 1 

LAST 

115  8 

REF 

12 

LAST 

1 158 

R EF 

? 

LAST 

11*1 

22,3737 

22.3740 

22.374 1 
22,374? 

22.3743 

22.3744 

22. 3745 

22.3746 

22.3747 
22,3750 
22 , 37c  1 

22. 3752 

22.3753 

22.3754 

22.3755 

22.3756 
22,3767 

22.3760 

22.3761 

22.3762 

22.3763 

22.3764 
2?, 3766 
22, 3764 
22, 3767 

22.3770 

22.3771 

22.3772 
0044 


00047  1 
00002  0 
j 3 7 7 5 1 
02643  1 
2C2G1  0 
26643  1 
02651  1 
77657  0 
20201  0 
26651  1 
02657  1 
66057  0 
20201  0 
00045  0 
02657  1 
54150  1 
02103  1 
00045  0 
77660  1 
00045  0 
70130  1 
C21J3  1 
0C045  0 
40270  0 
00044  1 
00003  1 
77650  1 
46667  1 


NORM  7 1 


DEC 
Vl.0  AO 


5 TOVL 
VS  L* 

S TOVL 


VSL* 


ST!  E 
L X A , 1 

xsu,  1 

S X A , 1 


X A D , 1 


GOTO 


.087  PAGE  1158 

E 5 S3 

XI 

2 

VSL* 

ZI 

0,1 

ZT 

ZI  +6 


3:15  DEC.  2,1970  SKIPPER 
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0,1 
ZI  +6 
ZI  + 1 2D 
S X A , 1 

0,1 

NORMZI  +1  SAVE  SHIFT 

ZI  +12D 

XSU,  1 

NOP  MG AM 

NORMZI  +1 

NORMZI  +1 
L XC.  , 1 
NOR MG AM 
NORMZI  +1 
SETPD 
NORMZI 
2D 


TNCC-;2  -3 
36D 
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L 

P0001 
R 000  3 
R 000  5 
R 0007 


R COOP 

R 000  9 
R 00 1 1 
R 001 3 
R001  n 
R 0017 
R001c 
R0C21 
R 0023 
P 002  5 
ROO?4 
R 002  8 
R 0030 


R 003 1 

R 0032 
R 0034 
R 0036 
R0037 
R 003*5 
R 0041 
R 0043 


CONIC  SUBROUTINES 


USER'S  PAGE  NO.  1 EO  S3 


P P 0 G r;  A v DESCRIPTION  - ENTIRE  CONIC  SUBROUTINE  LOG  SECTION  DATE  - 1 SEPTEMBER  1Q67 

MOD  Nr:.  - 0 LC'G  SECTION  - CONIC  SUBROUTINES 

MOD  BY  KRAUSE  ASSEMBLY  - COLOSSUS  REVISION  88 


FUNCTIONAL  DESCRIPTION  - 

TEE  FOLLOW NG  SIT  OF  SUE  U -TINES  SOLVE  VARIOUS  P iBLENS  INVOLVING  THE  TRAJECTORY  PRODUCED  BY  A CENTRAL 
INVERSE-SQUARE  FORCE  ACTING  ON  A POINT  MASS,  AS  QLTlINED  IN  -HE  CMC  AND  LGC  L UN  AF  LANDING  MISSION  GSOP,  SECTION 
5. 5. 1.2.  A GENE' At  USAGE  PD? NT- OF -VIEW  LAS  TAKEN  IN  FORMULATING,  MECHANIZING,  AND  SCALING  THE  SUBROUTINES, 

rather  than  optimizing  rach  fop  a particuiap  use.  therefore,  multiple  usage  can  be  made  of  the  subroutines 

INVOLVING  AMY  REALISTIC  SET  OF  CONSTRAINTS.  IT  SHOULD  BE  NL  'ED  THAT  ONLY  ONE  SET  OF  CODING  IS  USED,  WHETHER  THE 
EARTH,  MOON,  0(:  AMY  OTHER  CELESTIAl  BODY  I S SPECIFIED  AS  THE  CENTRAL  BODY  OF  THE  PROBLEM,  PROVIDED  ONE  OBSERVES 
THE  INHERENT  SCALE  CHANGE  REQUIRED  IN  POSITION,  VEIOCITY,  MU,  AND  TIME,  AS  OUTt  I N E D IN  MISSION  PROGRAMMING 

. 10.  ( ED  BY  SIMPLY  ADDING  TO  THE  MUTABLE  AND  INITIALIZING  ~H  F SUBROU- 

TINES APPROPRIATELY. 

DUE  TO  THF  UNIFORM!  “ Y OF  THE  EQUATIONS  I ; 1 '/i'LVF  i) , CODING  WAS  MINIMIZED  BY  TREATING  INDIVIDUAL  E’QUAT  T PNS  AMO 
BLOCKS  OF  EQUATIONS  AS  SUBROUTINES  OF  LOWER  RANK  WHENEVER  POSSIBLE.  AS  A RESULT,  THREE  BY-PRODUCTS  SUBROUTINES, 
DIRECTLY  USABLE  AS  INDEPENDENT  SUBROUTINES,  WERE  GENERATED. 


RESTRICTIONS  - 

TFE  ONLY  LIMITATION  IN  THE  SCOPE  C)F  PROBLEM  WHICH  CAN  BE  SOLVED  BY  A PARTICULAR  SUBROUTINE  IS  THE  SCALING 
I IMIT  OF  EACH  PARAMETER  AS  SPECIFIED  IN  1 HE  GSOP.  THESE  SCALING  LIMITS  WERE  CHOSEN  SO  THAT  ALL  FEASIBLE  T 1 A J E C — 
TORIES  COULD  BE  HANDLED. 

SINCE  THF  SUBROUTINES  (EXCEPT  KFPLF  ) USE  CONY''"  SUBROUTINES  OF  LOWER  RANK  WHICH  USE  ERASABLE  OTHER  THAN 
THE  PUSHLIST  (DUE  T,  INS  UNITED  SIZE)  AND  Cl  MMON  I - ' E P Pk  ET I V E SWITCHES,  THE  CONIC  SUBROUTINES  CANNOT  BE  ALLOWED 
TO  ™TEft  jpt  EACH  OTHER.  IT  TS  UP  TO  THE  USER  TO  GUARANTEE  THIS  CONDITION. 
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L COMIC  SUBROUTINES 


USER • S PAGE  NO.  2 


EO  SB 


P0044 

PROGRAM  DESCRI 

PTION  - KEPLEP 

R 0046 

MOD 

NO.  -1 

R 0043 

MUD 

BY  KR AUSE 

R 0050 

MUO 

NO.  - 2 ( 

AUGUST  1961)  B 

R 00502 

. - 3 

(DEC  1968) 

BY 

R 0050 3 

MOD.  NP.  - 4 

(JAN  1969! 

) BY 

subroutine 

Y ROBERTSON:  TO  PERMIT  BACKDATING  BY  MORE 

1 : UPF  ESS  I ON  OF  X-MODULO-ING 

ROBERTSON:  CLEAR  OVFIND  AT  KEPLER  ENTRY 


DATE  - 11  OCTOBER  1967 

LOG  SECTION  - CONIC  SUBROUTINES 
ASSEMBLY  - COLOSSUS  103  AND  SUNDANCE  222 
THAN  ONE  OR  8 I TAL  PERIOD. 


R 005 1 FUNCTIONAL  DESCRIPTION  - 

ROC  2 i . S SUBROUTINE,  GIVEN  AN  INITIAL  STATE  VCCT  A ) THE  DESI  ED  TRANSFER  TIME  THROUGH  WHICH  THF  STATE  IS  TO 

R0C54  BE  UPDATED  ALONG  A CONIC  TRAJECTORY,  COMPUTES  TEE  NEW,  UPDATED  STATE  VECTOR.  THE  TRAJECTORY  MAY  BE  ANY  CONIC 
ROC-5-  SECT  I O'  - C - ’CUI.AI  , ELLIPTIC,  PAF  ABO  LI  C,  HYPERBOLIC,  OR  ECT I LINEAR  WITH  RES°  ECT  TC  THE  EARTH  OF  THE  MOON.  THE 

R 0 0 5 -c  USE  , F THF  SUBF  -UTILE  CAN  BE  EXTENDED  USING  P T H E " P-  I MARY  BODIES  BY  SIMPLE  ADDITIONS  TO  THE  MUTABLE  WITHOUT 

ROC  6 0 INTRODUCING  ANY  CODING  CHANGES,  ACCEPTING  THE  INHERENT  SCALE  FACTOR  CHANGES  IN  POSITION  AND  VELOCITY.  At  ITERA- 

R 006?  T ION  TECHNIQUE  *S  UTILTZFD  IN  THE  COMPUTATION. 

R006?  IF  A NEGATIVE  T I ME-OF- FLIGHT  IS  INPUT,  THE  PROGRAM  WILL  SOLVE  FOR  THE  STATE  WHICH  WOULD  BE  PRODUCED  BY 

R 0065  EXT  S APOL A T I NG  THE  POSITION  BACKWARD  IN  TIME. 

ROD 6 5 1 IF  THE  ASS  I.  -JTE  VALUE  OF  THE  DESIRED  T ANSFE-  TIME  EXCEEDS  THE  ORBITAL  PERIOD,  THE  SUBROUTINE,  THROUGH  A 

R00653  MODULAR  TECHNIQUE,  '.'ILL  COMPUTE  THE  STATE  CORRESPONDING  “0  "HE  DESIRED  TIME  (WHETHER  POSITIVE  OP  NEGATIVE). 

P006  f- 


P 0067 
R : 

R 007  1 
P 0073 
R 0C7C 


THE  RESTRICTIONS  APE  - 

1.  (PREVIOUS  RESTRICTION  ON  THE  NEGATIVE  DESIRED  TRANSFER  TIME  IS  NOW  DELETED.) 

2.  THE  PARAMETERS  IN  "HE  PROBLEM  CANNOT  EXCEED  THEIR  SCALING  LIMITS  AS  SPECIFIED 
ANY  1 F THE  SF  LIMITS  Ar  E EXCEEDED,  THE  RESULTING  SOLUTION  WILL  BE  MEANINGLESS. 


IN  THE  GSOP. 


I F 


R 007  6 TFE  NUMBER  OF  ITERATIONS  AMD,  THEREFORE,  THE  COMPUTATION  SPEED  IS  DEPENDENT  ON  THE  ACCURACY  OF  THE 

R0G7 8 GJESS,  XKEPNEN.  THE  AGO  COMPUTATION  TIME  I'  APPROXIMATELY  .J61  SECONDS  FO'  I N I T I AL  I ZATIDN , .065  SECONDS  FOR  THE 

R003P  FINAL  CCMPUTAT  TONS-  , PLUS  .CBS  SECONDS  FOR  EACH  ITERATION. 

R00B1 


R0082  REFERENCES  - 

R0033  S-4Z9,  'USSIi  J PS-  T 1AM  M I NG  DEFT  MI  T ION,  MEMO  NO.  10,  L UN -A : l ANDING  MISSION  GSOP,  SECTION  5.5,  SGA 

P 0085  MEMO  67-4. 

R 0086 


R0087  INPUT  - ERASABLE  INITIALIZATION  REQUIRED 
R008P  * SCALE  FACTOR  * 

R 0089  VAP I ABLE* IN  POWERS  np  2*  DESCRIPTION  AND  REMARKS 

R 0090  * * 

R0091  RRECT  * +29  FOR  EARi'H*DP  INITIAL  POSITION  VFCTOP  IN  METERS 
R00P2  * +27  FOR  MCCN  * 


I 
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L CONIC  SUBROUTINES  USER'S  PAGE  NO.  3 EO  S3 

R OC  9 3 VRF-CT  * +7  FOR  EARTH  *DP  INITIAL  VELOCITY  VECTOR  IN  METERS/ CENT  I SFCOND 

R 0094  * +5  FOR  MOON  * 

R 009 5 XI  (38DJ*  NONE  *INDCX  REGISTER  SET  TG  -2D  OR  -100  ACCORDING  TO  WHETHER  THE  EARTr  OR  MOON, 

5 0097  * * RESPECTIVELY , IS  THE  CENTRAL  BODY 

ROC  9 9 TAU.  * +28  *DESI'ED  TRANSFER  TIME  IN  C E N.  T I SECONDS  (DP) 

R 00987  * * MAY  BE  POS  OR  flEC  AND  ABSOLUTE  VALUE  MAY  BE  GRFATEP  P P LESS  THAN  ONE  Or  B T T At  PERIOD. 

R 0099  XKEPNEW  * +17  FO  EARTH*DP  GUESS  OF  ROOT  X OF  KEPLERS  EON  IN  SORT ( METERS ) . SIGN  SHOULD  AGREE  WITH  THAT  OF  TAU. 

)1  * +1-  F AND  ABS  VALUE  SHOULD  BE  LESS  THAN  THAT  CORRESPONDING  TO  A PERIOD, VIZ,  2PI  SORT ( SEMI- 

R0101  * * AJji.  AXIS)  , E SPEED  t F CONV  E-.GENCE , BUT-  IE  EITHER  CONDI'  ION  FAILS,  XKEPNEW  IS  RESET 

R 0 1 0 1 7 * * BY  KEPLER  TO  A POOP  BUT  VALID  GUESS. 

R 0 102  TC  * +28  * DP  PREV.  VALUE  OF  TIME  IN  CENTISECS.  MUST  BE  LESS  THAN  ONE  PRBITAl  PEFIPQ. 

R 0 1 0 3 XPr-'FV  =1=  +17  Fr  R FARTH^OP  R EV.  VALUE  OF  X IN  SQPT(  METFF  S ) . MUST  BE  LESS  THAN  AN  X COP  P Ec  PONDING  TP  ONE 

R 01 05  * +16  FOP  MOON  * ORBITAL  PER IOD  ,VI Z ,2PI  SORT ( SEMI-MAJOR  AXIS) 

ROIOfc 


R0137  SUR  . '.'TIMES  CALLED  - 

R 01  OR  DECT  IMF 

R 0109 


R0110  CALLING  SEQUENCE  AND  NILGAI  EXI'i  mijDES  - 


R0111  KEPPTLS— 2 GOTO 
R 0.1 13  KEPI  TN-1 

R 01 1 A KEPFTN 


MUST  BE  IN  INTERPRET  TVE  MODE  BUT  OVFIND  ARBITRARY. 
FETURNS  WITH  XPREV  IN  MPAC.  PI  IS  AT  0. 

CONT INUE 


R011  KEPLER  MUST  NOT  RE  CALLED  DIRECTLY  SINCE  AN  I NT E ~ I OPT  I OF  OF  I ~ WOULD  DESTROY  THE  E‘  A SABLES  TT  NEEDS  T0  COMPLETE 
JNTFP  SORTED  MB.  HE-  EF  rE  ILL  USE!  HUsT  CAIL  CrMCONlC  IEMCONIC  WHICH  GUARANTEES  NO  INTERRUPTS  AID  WHICH 
R 01 1°  AL  S r‘  CALLS  KEPPPEP  TO  COMPUTE  A GUESS  OF  XKEPNEW. 

R0120 


R0121  ABORT  EXIT  MODES  - 

p o 1 2 2 None 

RC123 


R0124  OUTPUT  - 


P 012  5 
R 0 1 2 6 
R 0 1 2 7 
R 0 1 2 8 
P 01 2 17 
R013C 
R 01 3 1 
P 0 1 32 
R 013A 
R 01  3 6 


* SCALE  FACTOR  * 

VAN  I ABl E* IN  POWERS  OF  2*  DESCRIPTION  AMD  REMARKS 

* * 


RCV 

VCV 

TC 

X F P E V 


* 

* 

£ 


* 


+29  FOR  EARTH *DP  TERMINAL  POSITION  VECTOR  IN  METERS 
+27  FOR  MOON  * 

+ 7 FCP  EARTH  *DP  TE  ’INAL  VELOCITY  VECTO!  IN  METER  S/CENT  I S EC 


+ 5 FOR  MOON 

+2q  *©P  T'ANSFE  time  IN  CENTISECS  TO  WHICH  KEPLER  CONVERGED. 
+ I7  FO7  EAR  TH*DP  VALUE  OF  X IN  SQRT (MET  ERS ) TO  WHCIH  KEPLER  CONVERGED. 
+16  FOP  MOON  * CORRESPONDING  TO  ONE  PERIOD. 


AlWAYS  l ESS  THAN  ONE  PEP IOD. 
ALWAYS  LESS  THAN  THE  X 
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L 

rob7 

R0133 


RQ139 

R0140 

R 0 1 4 1 
R014? 
R01 
R0144 
R 01 A 5 
R 0146 
R0147 
R01 

R 0 1 :j  1 
R 01 48 3 

R014q 

R0150 

R0132 


CCNTC  SUBROUTINES 

FOR  OTHER  OUTPUT  WHICH  M AY  BF  OF  USE,  SEE  DEBRIS. 
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DEBRIS  - 


DESCRIPTION  AND  REMARKS 


PARAMETERS  WHICH  MAY  BE  OF  USE  - 

* SCALE  F ACT  CP  * 

VARIABLE* IN  POWERS  OF  2* 

* ^ 

i.n,  FCT  * +1  UNIT  VECTOR  OF  INITIAL  POSITION' 

R ] * +2°  FOR  EARTH*DP  MAGNITUDE  OF  INITIAL  POSITION  IN  METERS 

* +27  FOR  MCON  * 

ALPHA  * -22  FI-  EA  TH*DP  INVERSE  OF  SL'-  I AJ  AXIS  IN  1/METERS 

* -20  FOR  MCON  * 

'■'  DU!  1 * +27  *DP  I !':  T 6 3 ! A L NUMBER  F PERIODS  IN  CENT  I SECS . WHICH  WAS  SUBTr  ACTED  FPO  w TAU.  TO  PFPDUCE  A 

* *T AH • n F LESS  THAN  ONE  PERIOD. 


PA  A METERS  OF  NO  USF  - 

Dc  PA  A ET  E - S - EPS  I LOOT , DEI  X,  DELT,  XVODULO,  PLUS  PUSHLIST  REGISTERS  0 THROUGH  39  D. 


GAP:  ASSEMBLE  REVISION  001  OF  AGC  P P jG' AM  AP11RQPE  BY  EYLES 

L CONIC  COROUTINES 

p 01 53  program  description  - lambfrt  subroutine 

R 0155  MOD  NC.  - 0 
R 01  57  HOD  3 Y KRAUSE 
R01  5 9 
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USER'S  PAGE  NO.  5 EO  S3 

DATE  - 1 SEPTEMBER  1967 

LOG  SECTTON  - CONIC  ?U3R0UTINES 

ASSEMBLY  - COLOSSUS  REVISION  39 


ROltO  FUNCTIONAL  DESCRIPTION  - 


R 0 1 6 1 
RCH3 
R016  5 
R 0167 
P 016° 
P 0 17  1 
P 0 1 7 2 


THIS  SUBROUTINE  CALCULATES  THE  IN  I T I AL  VELOC 1 T Y REQUIRED  TO  TRANSFER  A POINT-MASS 
F A:  I N I T I A ! !■•!.:=  TTin'  T,J  A f • ' AL  POSITION  ip  A PRESCRIBED  TIME  INTERVAL.  THE  PE 

A SECTION  OF  A C^'CLE,  ELLIPSE,  PARABOLA,  OP  HYPERBOLA  WITH  RESPECT  TO  THE  EAFTH  OR  TH 
S,  T i M E CAN  RE  EXTENDED  USING  OTHER  PRIMARY  BODTES  BY  SIMPLE  ADDITIONS  TO  THE  MUTAB 

CODING  CHANGES,  ACCEPTING  THE  INHERENT  SCALE  FACTOP  CHANGES  IN  POSITION  AND  VELOCITY. 
UTILIZED  IN  THE  COMPUTATION. 


ALONG  A CONIC  TRAJECTORY 

SOL  TING  trajectory  may  be 

E MOON.  THE  USE  OF  THE 
LE  WITHOUT  INTRODUCING  ANY 
AN  ITERATION  TECH! I DUE  IS 


901  73 
R 017* 
9 0175 
R0177 
R 017  9 
R 0 19  r 
R 015? 
R 0 1 8 ■ 
R 01 85 
R 01  87 
R 0185 
9 01:1 


THE  RESTP  ICT1DN3  Ai  l - 

1.  RECTILINEAR  T°  A J EC  TORIES  CANNOT  BE  COMPUTED. 

2.  AN  ACCURACY  DEGRADATION  OCCURS  AS  THE  COSINE  OF  THE  TRUE  ANOMALY  DIFFERENCE  APPROACHES  +1.0. 

3.  THE  ANGLE  BETWEEN  ANY  POSITION  VECTOP  AMD  ITS  VELOCITY  VECTOR  MUST  BE  GREATEF  THAN  1 DEGREE  47.5  MINUTES 
AND  LESS  THAN  17  3 DEGREES  12.5  MINUTES. 

4.  NEGATIVE  TRANSFER  T I Mg  IS  AMBIGUOUS  AND  WILL  RESULT  TN  NO  SOLUTION. 

:.  THE  T A!  A "FTP'S  I THE  P C B L l:  ‘ J S T ! T EXCEED  THE  IP.  SCALING  LIMITS  SPECIFIED  IN  THE  GSOP.  IF  THE 
I IMP  - are  EXCEEDED,  THF  • E SULT I NG  SOLUTION  WILI  BE  MEANINGLESS. 

THE  NU  'BET  OF  I T E " A T 1 0 N S AMD,  THE  REFOf  E,  THE  COMPUTATIONS  SPEED  IS  DEPENDENT  ON  THE  ACCURACY  OF  THE  FIRST 
GUESS  OF  THE  INDEPENDENT  1 IGA.  THE  AGC  COMPUTATION  TIMF  IS  APPROXIMATE- 

LY .105  SECONDS  FOR  INITIALIZATION,  .069  SECONDS  FOR  FINAL  COMPUTATIONS,  PLUS  .205  SECONDS  FOR  EACH  ITERATION. 


R 019?  REFERENCES  - 

1 ' - ' . ISSION  PROGRAMMING  DEFINITION  MEMO  NO.  10,  LUNAR  LANDING  MISSION  GSOP— S ECT I ON  5.5,  SGA  MEMO  67-8, 

R 019  5 SGA  MEMO  67-4 . 

R 0196 


R0197  INPUT  - ERASABLE  INITIAL 

9 0198  * SCALE  FACTOR  * 
R 0 1 9 ° VAP I ABLE* IN  POWERS  CP  2* 
R0200  * * 


0201 

R l'/  E C 

❖ 

+29  FOR 

EARTH* 

0202 

* 

+27  FOR 

MOON  * 

0203 

R2VEC 

* 

+2°  FOP 

EARTH* 

0204 

* 

+27  FOP 

MOON  * 

020  c 

TDESP  ED* 

+ 28 

* 

0206 

XI  (380)* 

NONE 

* 

0203 

* 

* 

0209 

GEOMSGN 

* 

NONE 

* 

0211 

GUESS W 

* 

NONE 

* 

IZATION  REQUIRED 


DESCRIPTION  AND  REMARKS 


DP  INITIAL  POSIT  ION  VECTr"'  IN  MFTERS 

DP  TARGET  OR  TERMINAL  POSITION  VECTOR  IN  METERS 

DP  DESIRE  D TRANSFER  TIME  IN  C ENTI SECONDS 

INDEX  REGISTER  SET  TO  -2D  OR  -IOD  ACCORDING  TO  WHETHER 

RESPECTIVELY,  IS  THE  CENTRAL  BODY 

SP  +.5  IE  DESIRED  TFANSFEf  ANGLE  IS  LESS  THAN  180  DEGR 
AN  INTERPRETER  SWPCH  TO  BE  SET  IF  NO  GUESS  OF  COGA  IS 


THE  EARTH  OR  MOON, 

EES,  -.5  IF  GREATFR 
AVAILABLE,  CLEAF  IF 


THAN  180 
A GUESS 


DEG. 

OF 


GAP:  ASSEMBLE  REVISION  001  OF  AGC  PROGRAM  APllROPE  BY  EYL.ES 
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R 02 1 3 * 

R 02 1 ^ COGA  * +5 

R021t 

P 02 1 7 NCRMSW  * NONE 

R 02  1 9 * 

P 0220  UM  * +1 

R 022  2 * 

R022A  VTAR.GTAG*  NONE 
R 0226  * 

R 02 2 7 ITERCTR  * NONE 
P 02271  * 

R 022 7 2 * 

R 02273  * 

R 0227* 


*COGA  IS  TO  BE  USED  BY  LAMBERT 

* DP  GUESS  OF  COTANGNT  (JF  FLIGHT  PATH  ANGLE  (MEASURED  FROM  VERTICAL).  THIS  WILL  BF 

* GO  l ) IF  GU&SSW  IS  SET. 

* AN  INTERPRETER  SWITCH  TO  BE  SET  IF  UN  I S TO  BE  AN  INPUT  TO  THE  SUBROUTINE,  CLEAR  IF 
AM  BE'  T IS  TO  COMPUTE  I T S CWN  NORMAL  (UM. 

*0P  UNIT  NiPMAL  TO  THE  DES  I1-’  FO  ORBIT  PLANE  IN  THE  DIRECTION  OF  THE  °ESUI  TING  ANGULAR 
* MOMENTUM  VECTOR.  THIS  WILI  BE  IGNORED  IF  NORMSW  IS  CLEAR. 

* A S.P.  TAG  TO  BE  SET  TO  ZERO  IF  LAMBERT  IS  TO  COMPUTE  THE  VELOCITY  AT  R2VEC  AS  WELL  AS 
* AT  F 1 VEC  . 

* A S.P.  COUNTER  WHICH  'PECIFIES  THE  MAXIMUM  NUMBER  OF  ITERATIONS  ALLOWABLE. 

*(V  ITERATION  MEANS  A PASS  THRU  KEPLER  EON  (DELTIME1.  AT  LEAST  ONE  OF  THESE  MUST 
ALWAYS  OCCUR,  EVEN  IF  COGA  CORRESPONDING  TO  SOLUTION  WERE  INPUT  AS  A GUESS.) 

* TWENTY  ITE  ATI  IJNS  A?  E SUFFICIENT  TO  SOLVE  ALL  PROBLEMS  INCLUDING  THOSE  W T THOUT  GUESS. 


R 022  8 SUBROUTINES  CALLED  - 

R022S  GECM  , GET  X . DEL  TIME,  ITERATE.’!  , LA  MEN”  E • ( PA'  * OF  NEW  ST  A^E  I 

R 02  30 


R 023  1 

CALI 

ING  SEQUENCE  AND  NO!  PAL  EXIT  MODES  - 

R0232 

L 

CALL 

M U S T BE  IN  I 

R 02  3*’ 

L + l 

LAMBFPT 

RETURNS  WITH 

P 0236 

IN  MPAC  IF  V 

R 0237 

L + 2 

BON 

CONTINUE  IF 

R 0230 

L + 3 

SUL NSW 

R 02*-C 

L+4 

IAMABORT 

P 02M 

IF  A LAMBERT  RESULT 

IS  TC  BE  A FIRST  GU 

R 024  3 

GUFSSW  MUST  RE  CLEAR  FOP 

EACH  SUCCEEDING  LAM 

R02*+4 

TIRP  ETIVE  NUDE  BUT  CVFIND  ARBITRARY. 

PL  AT  0 AND  WITH  VVEC  IN  MPAC  IF  V T ARGTAG 

TAFGTAG  WAS  ZERO 

SCLNSW  CLEA  SINCE  SOLUTION  IS  ACCEPTABLE 


ESS  FO  THt  NEXT  LAMBERT  CALCULATION,  COGA 
BEL  ■r  CALI.  . 


WAS  NON-ZE D 0 OR  VTA^GET 


MUST  BE  PRESERVED  AND 


024  5 

ABORT  EXIT  MODES 

- 

0246 

IF  SOLNSW  WAS  SET  UPON  EXITING, 

E I T HE 0 LAMBFfi  WAS  ASKED  TO  COMPUTE  A 

0248 

•MS  Tr0  SMALL  TC 

1 PRODUCE  A R FAL 1ST IC 

T A SFER  BETWEEN  R IV EC  AND  P 2VEC . IN 

025  0 

ACCORDING  TO  THE 

NEEDS  OF  THE  PARTICULAR  USER.  THE  ABORT  EXIT  MODE  MAY  BE 

0252 

LAMABORT  DLOAD 

ABS 

A MEASURE  OF  PROXIMITY  TO  0 OR 

0 2 r 3 

1-CSTH 

360  DEGREES. 

025* 

DSU 

BMN 

0255 

0 N E B I T 

0256 

CHANGEP2 

CHANGE  R2VEC  DIRECTION  SLIGHTLY. 

0257 

DLOAD 

DAD 

0258 

TDES  IP  ED 

0259 

SOMETIME 

0260 

STCALL 

TOPS  Ii.EO 

increase  tdesiped 

0261 

LAMBERT 

0262 

TRANSFER  TQ0  NEAR 
El THEP  CASE  THE  F 
CODED  AS  ... 


0 PR  360  DEG,  OR  T 
X MUST  BE  MADE 


GAP:  ASSEMBLE  REVISION  GO  1 OF  AGC  PROGRAM  API 1ROPE  BY  EYLEi 
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R 0263 
R 0264 
8 0265 
R 0266 
R 0267 
R 024’c 
R 0270 
R 027  2 
R 0273 
R 027  5 
R0276 
R 0277 


OUTPUT  - 

* SCALE  FACTOR  * 

VAi'.  I ABLE*  IN  POWERS  OF  2*  DESCRIPTOR  AND  REMARKS 

% >'•  

V VEC  * +7  F f - EARTH  *DP  INITIAL  VELOCITY  VECTOR  IN  METERS /CENTISECONO  REQUIRED  TO  SATISFY  THE  BOUNDARY  VALUE 

* FOR  •'•'  ( ' *ppng:l  EM. 

VTARGET  * +7  FOR  EARTH  *0P  RESULTANT  VELOCITY  VECTOR  AT  P2VEC  IN  MET ERS/CENTI SECON D. 

* +5  FOR  MOON  * 

SUL  NS  W * •iC  'E  * 1 ! T E R P - E T E - SWITCH  ,HICH  IS  SET  IF  THE  SUBROUTINE  CANNOT  SOLVE  THE  PROBLEM,  CLEAR  IF  THE 

* ^SOLUTION  exists. 

EO  OTHER  OUTPUT  WHICH  MAY  BE  OF  USE,  SEE  DEBRIS. 


R 0 2 7 8 
R 0279 


DEB)  IS  - 

PARAMETERS  WHICH  MAY  BE  OF  USE 


R 0280 
R 028 1 
R02P? 


* SCALE  FACTOR  * 
VAR  TABLE* IN  POWERS  OF  2* 


R 028  3 

SIMM 

* 

+ 1 

*DP 

3 02  84 

CSTH 

* 

+ 1 

* DP 

R0285 

1-CSTH 

* 

+ 2 

* D P 

R 02  86 

COGA 

* 

+ 5 

* DP 

R 0289 

P 

if 

+4 

*DP 

R 0290 

R 1 A 

if 

+ 6 

* DP 

R 029  1 

R1  ( 3 2 D ) 

if 

+ 29 

FOR  EARTH* DP 

R 0292 

* 

+ 27 

FUR  MOCN  * 

R 0293 

U1  1 

if 

+ 1 

*DP 

R 029A 

U2 

if 

+ 1 

*DP 

R 0295 

PARAMETERS  OF  NO  USE 

R 029  C 

DP  PARAMETERS 

- EPSILCNL , i 

R 029P 

ADDITIONAL 

INTERPRETIVE  SW 

DESCRIPTION  AND  REMARKS 


*l;p  SIN  OF  ANGLE  BETWEEN  r 1 VEC  AND  ;2VEC 


OF  SEMILATUS  RECTUM  Tl  INITIAL  RADIUS 


CS  H-  HO  , TP  REV,  TERM  Ah  B,  12 
ITCHES  USED  - INFINFt.G,  360SW 


i LAMB  (SR),  PLUS  FUGHLIST  REGISTER  0 THROUGH  41D 
SLOPE  SW,  CPDERSW 


R 0300 


GAP : 

L 

P 030 1 
*0303 
R 0 3 0 5 
R 0307 


R 030  3 

R 0309 
R 031 1 
R 031  3 
R 03 1 9 
R 03 1 7 
R 03  1 c 
R 032  0 

R 032  1 
R 0322 
R 0324 
R0325 
R 032  7 

P 032 9 
R 0329 


R0330 
0 033  1 
R 033  ? 


R 0334 

R 033  5 
R 033  7 
R 0337 
R03  3P 
P 03  3 c 
R 0340 
R03M 
R0342 
R 0347. 
RC345 
R 0347 
R 0348 
R 035f 
P 03R  1 


R 0352 


ASSEMBLE  REVISION  0C1  OF  AGO  PROGRAM  API  1 : OPE  BY  EYLES 
CONIC  SUBROUTINES 

PROGRAM  DESCRIPTION  - TIME-THETA  SUBROUTINE 
MOD  NO.  - 0 
MUD  BY  KRAUSE 
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USER 'S  PAGE  NO.  P EO  S3 

D ATE  - 1 SEPTEMBER  1967 

LOG  SECTION  - COMIC  SUBROUTINES 

ASSEMBLY  - COLOSSUS  REVISION  8B 


FUNCTIONAL  DESCRIPTION  - 

THIS  SUBROUTINE,  GIVEN  AN  INITIAL  STATE  VECTOR  ANU  A DESIRED  TR UE-ANOM AL Y- D I F F EP ENCE  THROUGH  WHICH  THE 
$ TAt6  5 T ' BE  UPDATED  AL'  NO  A Cf  MIC  TRAJECTi  • v,  CALCU'  AXES  HE  CORRESPONDING  TI ME-OF-FL ICHT  AND*  IN  ADDITION, 
PROVIDES  THE  DPT  ICO  OF  C PUT 1 NG  THE  NEW  UPOATED  STATE  VFCT  • . THE  RESULTING  TRAJECTORY  MAY  BE  A SECTION  OF  A 
CIRC!  E,  Fit  IPSE,  PAP  A 801  A,  OR  HYPERBOLA  WI"H  RESPECT  T P T HE  PAPTH  OK  THE  MOON.  THE  USE  OF  THE  SUBROUTINE  CAN  BE 
EX  r DED  USING  OTHEF  PRIMARY  BODIES  BY  SIMPLE  ADDITIONS  TO  THE  MUTABLE  WITHOUT  II  TR(  DUCING  ANY  CODING  CHANGES, 
ACCEPTING  THE  INHERENT  SCALE  FACTOR  CHANGES  IN  POSITION  AND  VELOCITY. 

THE  RESTRICTIONS  A;  F.  - 

1.  THE  AMBLE  BETWEEN  ANY  POSITION  VECTr'c  AND  ITS  VELOCITY  VECTOR  MUST  BF  GREATER  THAN  1 DEGREE  ^7.5  MINUTES 

AND  LESS  THAN  178  DEGREES  12.5  MINUTES. 

2.  THE  PARAMETERS  IN  THE  PROBLEM  MUST  NOT  EXCEED  THEIR  SCALING  LIMITS  SPECIFIED  IN  THE  GSCP.  IF  THE  LIMITS 
ARE  EXCEEDED,  THE  RESULTING  SOLUTION  WILL  BE  MEANING!  ESI. 

THE  AGC  COMPUTATION  tjme  is  A P Pr'U  X I M AT  EL  Y .2r:2  SECONDS. 

REFERENCES  - 

1 EF INI T ION  MEMO  NO.  10,  LUNAR  LANDING  MISSIQI  GSOP-SECTIOM  5.5,  SGA  MEMO  67-8. 


INPUT  - ERASABLE  INITIALIZATION  FEGUIRED 


DESCF  IPTILU-  AND  REMARKS 


7 SCAL  F FACTO!  * 

VARIABLE* IN  POWERS  OF  2* 

* * 

-VEC  * +29  FOR  EARTH*CP  INITIAL  POSITION  VECTOR  IN  METERS 

* +27  FOR  Mf ON  * 

V VEC  * +7  ECU  EA:  TH  *UP  INITIAL  VELOCITY  VECTOR  I 1 1 'ETEF, S/CENT  I SECOND 

* +5  FOR  MOON  * 

SMTH  * +1 

CSTH  * +1 

R VS  k * NONE 

* 

XI  ( 38 D)* NONE 


SUBROCTINES  CALLED  - 


OP 

SINE 

OF  TRU 

E- ANOKA 

LY-D 

DP 

COS  IN 

E OF  T 

HE  ANGt 

E 

AN 

INTER 

PRETIV 

E SW 

ITC 

H TO 

IS 

TO  BE 

COMPU 

TED 

AL.  S 

0. 

INDEX  RE 

GIST  ER 

TO 

BE 

SET 

f ESPFCTI 

VELY, 

IS  T 

HE 

CENT 

) 
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L 

R0353 
R 0354 


R 0355 

R 035  6 
R 0357 
R0359 
P 0360 
R 0 3 6 1 
R 036? 

R 0363 
R 0364 
R 0366 
R 0367 
R 036° 
P 0370 
R 037  1 
R 0 3 7 2 
R 037  A 
R 0375 


R 037  6 
R0377 
R 037  0 
R 0 3 3 6 


R03P7 
R 0 3 8 3 
R 0389 
R 0390 
P 039  1 
R 036  2 
R 0394 
R 039  6 
R 0398 

P 0399 

R0400 
R 040  1 
R 04  02 
R 0403 

R 0404 
P 04  0 ^ 


CONIC  SUBROUTINES 


USE P * S PAGE  MO.  9 EO  S3 


PAR  A M , GEOM,  GETX  , DEL  T T ME » NEWSTATE 


..c 

CALI  IMG  SEQUENCE  A D ' A!  F.XP  1 D £ S - 

IF  ONLY  TIME  IS  DFS In  ED  AS  OUTPUT  - 

L SET  CALL  MUST  BE  IN  INTERPRETIVE  MODE  BUT  OVFIND  ARBITFARY. 

L+l  PVSW 

L + 2 T I METRE T RETURN  WITH  PL  AT  0 AND  T IN  MPAC 

1+3  ...  CONTINUE 


IF  THE  UPDATE  STATE  VECTOR 
L CLEAR  CALL 

L + l ' V S W 

L+2  "IMETHET 

L+3  STOVL  NEWVVEC 

L+4  STADR 

L + 5 STORE  NEWFVEC 

L +6  ... 


IS  DESIRED  AS  WELL  - 

MUST  BE  IN  INTEi'  PRETIVE  MODE  BUT  OVFIND  ARBITRARY. 

PETU'MS  WITH  P|  AT  6.  THE  I'  ITJAL  POSITION  V EC  TOP  IS  IN  CD  OF  THE  PUSH*.  1ST  AND 
THE  TSiITTAL  VELOCITY  VECTOR  IN  MPAC. 


: WVVEC  AND  NEW TV EC  At  E SYMBOLIC  REPRESENTATIONS  OF  THE  USERS  LOCATIONS. 
CON"  INUE 


ABOFT  EXIT  MODES  - 

IF  C3GAF  LAG  AND/OR  INF  I NFL G IS  SET  AT  THE  EXII  TO  TIME-THETA,  TIME-THETA 
AM  ALARM  CODE  (.  ! 3 IN  ALLY  0^607  > , AND  LIT  RETURN  TP  THE  CAl  LING  PROGRAM. 


WILL  TRANSFER  TO  PCODOC  WITH 
< PC F 69  2 AND  721 ) . 


OUTPUT  - 

* SCALE  FACTOR  * 

VARIABLE*! N POWERS  OF  2*  DESCRIPTION  AND  REMARKS 

* 


T (30 D ) * +23 
INF  INF  LG*  NONE 
* 

COGAELAG*  NONE 
* 


♦OP  TRANSFER  TI  ME  IN  CENT  I SECONDS 

* AN  INTERPRETIVE  SWITCH  WHICH  IS  SET  IF  THE  TRANSFER  ANGLE  REQUIRES  CLOSURE  THROUGH 
♦INFINITY  (NO  SOLUTION),  CLEAR  IF  A PHYSICAL  SOLUTION  IS  POSSIBLE. 

*Ai,  INTERPRETIVE  SWITCH  WHICH  IS  SET  IF  RESTRICTION  1 HAS  BEEN  VIOLATED  (NO  SOLUTION), 
♦CL  E A°  IF  NOT. 


IN  ADDITION,  IF  r-VSW  ts 


C L E A r , THE  FOLLOWING 


ALE  OUTPUT- 


MPAC  - * 

MPAC  +5* 
OD  - 5 D * 
* 


+7 

FOR 

EARTH 

❖ OP 

TERM 

INA 

+ 5 

FOR 

MOON 

❖ 

+ 2Q 

FOR 

EAR  T 

H*  CP 

T ER  M 

If  A 

+ 27 

F0~ 

Mr  ON 

❖ 

VELOCITY  VECTOR 
POSITION  VEC  TP! 


IN  METER S /CENT  I SEC. 
IN  ■ TER.)  (PL  AT  6D) 


FOR  OTHER 


DUTPUT  WHICH  Y AY 


BE  OF  USE, 


SEE  DEBRIS. 


I 


f 
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R 04-06  DEBPIS  - 

R 04-07  PARAMETERS  WHICH  MAY  BE  OF  USE  - 


R 040 R 7 SCALE  FACTO  * 

ROAOo  V»AC*  I ABC  F*  I M POWERS  r F ?* 


R 041 C 

R 041  1 

R 1 ( 3 2D ) 

* 

R 041  3 

R041A 

R 1 A 

* 

R 041 F 

P 

T 

R 041 7 

COGA 

R 04 1 9 

UR  1 

* 

R 042  0 

U2 

* 

R 042  1 

P 042? 

UN 

i- 


+2^  FOR  EAR TH*DP 
+ 27  FOG  MC  CM  £ 


+ 6 
+ 4 

+5 

*DP 

* DP 

*0P 

+ 1 

* DP 

+ 1 

*DP 

+ 1 

* DP 

DESCRIPTION  AND  REMARKS 


MAGNITUDE  OF  INITIAL  POSITION  VECTOR,  RVEC,  IN  METERS 

RATIO  OF  1 TO  S FM I MAJOR  AXIS  (MEG.  FOR  HYPERBOLIC  TF A J ECTOR I ES  ) 

P A T I C OF  SE-!  I LATHS  PECTIJM  TO  • 1 

COT  AN  OF  ANGLE  BETWEEN  RVEC  AND  VVEC 

UNIT  VECTOR  OF  RVEC 

UNIT  VECTOR  OF  VVEC 

UNIT  VECTOR  OF  UF1*U2 


R0423  PARAMETERS  HF  NO  USE  - 

NTT,  1SGN,  RTNPRM , MAGVEC2=R2  (DP),  PLUS  PUSHLIST  LOCATIONS  0-11D,  14D-21D,  24D 
0 OA 2 6 ADDITIONAL  INTERPRETIVE  SWITCHES  USED  - NORMSW,  360SW 
R 0427 


i" 
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..z 


39D , AID 
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EO  S3 


P 042 8 PROGRAM  DESCRIPTION  - T 1 ME— RADIUS  SUBROUTINE 

R043C  MOO  NO.  -1 

R0A32  MUD  BY  KRAUSE 

R 04  34 


DATE  - 11  QCTOBF!'  1967 

LOG  SECTION  - CONIC  SUBROUTINES 
ASSEMBLY  - COLOSSUS  REVISION  88 


R0435  FUNCTIONAL  DESCRIPTION  - 

R 0430  THIS  SUBROUTINE,  GIVEN  AN  I M T I AL  STATE  VECTOR  AND  A DESIRED  RADIUS  TO  WHICH  THE 

R 043  P STATE  IS  TO  BE  UPDATED  ALONG  A CONIC  TRAJECTORY,  CALCULATES  THE  COFP  ESPCNDI NG  TIME-OF-FLIGHT  AMO,  IN  ADDITION, 

•>0440  P-DVIDES  THE  DOT'OE  OF  C'.'-’PUTTNG  THE  NEW  UPDATED  STATE  VECTO  . THE  RESUITING  TRAJECTORY  MAY  BE  A SECTION  OF  A 

R0442  CIRCIF,  Ft  L I P%T  , PAPABOI  A,  hr  HYPERBOLA  W I •' H ftE'Pfr;  T(i  THE  EARTH  OF  THE  MOON.  THE  USE  OF  THE  SUBROUTINE  CAM  BE 

R 0444  EXTENDED  USING  OTHER  PRIMARY  BODIES  BY  SIMPLE  ADDITIONS  TO  THE  MUTABLE  WITHOUT  INTRODUCING  ANY  CODING  CHANGES, 

R 0446  ACCEPTING  THE  INHERENT  SCALE  FACTOR  CHANGES  IN  POSITION  AND  VELOCITY. 

R 0447  IF  THE  DES1  ED  -AD  I US  IS  BEYOND  THE  AO I US  OF  APOCENTt;  OF  THE  CONIC  OK  BELOW  THE  - AD I US  OF  PER  I CENTER, 

R 0449  APSES/  W ILL  BE  SET  AND  "HE  SUL-'"  L'UTI  ME  WILL  FT  Hi  N1  THE  APOCE  TE'  UP  PER  I CENTER  SOLUTION,  RESPECTIVELY. 

R 045  3 


R 045  2 
R 0453 
R 04  5 5 
n 04  3 6 
R 04  58 
R 045  c 1 
R 045 8 3 
R 045 8 5 
R 045 87 


THE  RESTRICTIONS  APE  - 

1.  THE  ANCLE  BETWEEN  AMY  POSITION 
AND  LESS  THAN  173  DEGREES  12.;  MINUTES 

2.  T FE  PAf  A'T'Fi  ' IN  THE  PKOBLFM 
APE  FX  CCE  DE  D,  THE  RESULT  IMG  SOLUTION  W 

7.  AN  ACCURACY  DEGRADATION  OCCURS 
P D E S I RED  INCREASE.  THIS  WILL  OCCUR  NE 
PARTICULAR,  IF  THE  CONIC  IS  AN  EXACT  C 


VECT  AN  D ITS  VELOCITY  VECTOR  MUST  BE  GR  E AT  FI  THAN  1 DEGREE  47.5  MINUTES 

MU'  T NO"-  EXCEED  THFIF  SCALING  LIMITS  SPECIFIED  IN  THE  GSOP.  IF  THE  LIMITS 
ILL  BE  MEANING!  ESS. 

AS  THE  SENSITIVITIES  OF  TIME  AND  LJPDATED  CTATE  VECTOR  TO  CHANGES  IN 
AR  El'  HEI  APSIS  OF  THE  CONIC  AND  WHEN  THE  CONIC  IS  NEARLY  CIRCULAR.  IN 
IRCLF,  THF  PROBLEM  IS  UNDEFINED  AND  THE  SUBROUTINE  WILL  ABORT. 


0 045  9 

TRE 

R 04  69 

R 046  1 

t-EFERENCE 

R 0462 

r -u~. 

R 046* 

R 046c 

R 0466 

R 0467 

P 04-6  8 

R 0469 

TNPUT  - E 

4 

VAR  TABLE* 

RVEC  * 

R 0470 

4 

R 047  1 

V VEC  * 

R 047? 

4 

R 04  73 

P D E S I R E D* 

R 0478 

4 

R 0476 

SGNRDOT  * 

R 0478 

•J, 

AGC  COMPUTATION  TIME  IS  APPROXIMATELY  .373  SECONDS 


S - 

9,  Tissr-  !■  • A ' IN  G OFF  1:1  T 1 CM  M b -N  NG  . }•',  LUNA:'  LAUDING  MISSION  bSOP-SECTION  5.5,  S G A MEMO  (-7-8. 


RASABLE  INITIALIZATION  REQUIRED 
SCALE  FACTOR  4 

IN  POWERS  OF  24  DESCRIPTION  AND  REMARKS 

4 

+29  FOR  EARTH4DP  INITIAL  POSITION  VECTOR  IN  METERS 
+27  FOR  MCCN  * 

+ 7 Fl  EA!  TH  4 DP  INIJJAL  VELOCITY  VECTOR  IN  MET ERS/CENT I SECOND 
+5  FOR  MOON  4 

+ 29  F EAR  TH*  DP  T El  MU  AL  - ADI  A L DISTANCE  ON  CONIC  TRAJECTORY  FOR  WHICH  TRANSFER  TIME  I S T(  BE 
+27  FUR  MOON  ^COMPUTED. 

NOME  4SP  TAG  SET  TO  +.5  Of  -.5  ACCORDING  TO  WHETHER  THE  RADIAL  VELOCITY  AT  P. DESIRED  IS  TO  BE 

♦POSITIVE  OR  NEGATIVE,  RESPECTIVELY.  THIS  TAG  REDUCES  THE  DOUBLE-VALUED  PROBLEM  TO  A 


■ 
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R 0480 

* 

R 048  1 

XI  ( 380)* 

NONE 

R 0483 

* 

FVSW  * 

NONE 

R 0484 

P.04  86 

R 0487 

* 

♦SINGLE -VALUED  PROBl HP. 

* INDEX  REGISTER  TO  BE  SFT  TC  -2D  OR  -10D  ACCORDING  TO  WHETHER  THE  EARTH  OR  MOON, 

* EFFECTIVELY,  IS  THE  CENTRAL  BODY • 

♦AN  INTERPRETIVE  SWITCH  TO  BE  SET  IF  OILY  TIME  IS  TO  BE  AN  OUTPUT,  CLEAR  IF  THE  NEW  STATE 

* IS  TO  BE  CUMPJTED  ALSO. 


R0433  SUBROUTINES  CALLED  - 

R04?9  PARAM,  GEOM,  GFTX,  DELTIME,  newstate 

R049G 


R0491 

R 0492 
R0493 
R 040? 
R 0496 
R 0497 
R 049  S 

R 049  9 
R 0500 
R 050  2 
R 0503 
R 05  05 
R 0506 
R0507 
R 0508 
R 0510 
R 05 1 1 


R 0512 
R.  051  3 
R 0515 
P 052? 


P 052  3 
R05?4 


CALLING  SEQUENCE  AND  U \l  EXIT  MODES  - 


IF 

L 

L + 1 

INLY  TIME 
SET 

I S DES I 
CA!  1 

r vsw 

L+2 

TIME F AO 

L + 3 

. . . 

IF 

THE  UPDATE 

STATE  ' 

L 

CLEAR 

CALL 

L + l 

R VSW 

L+2 

TIMEPAD 

L+3 

STOVL 

NEWVVEC 

1 +4 

STADr 

L + 5 

STORE 

NEWRVEC 

L+6 

. . . 

ABORT 

EXIT  MODES 

MUST  BE  I’  IMTEi  PRETIVE  " ODE  BUT  UVFIHD  ARBITRARY. 

RETURN  WITH  PL  AT  0 AND  T IN  MPAC 
CUNT INUE 


MUST  BF  li  INTERPRETIVE  r=OE  BUT  OVFIND  ARBITRARY. 

RETURNS  WITH  PL  AT  6.  THE  INITIAL  POSITION  VECTOR  IS  IN  OD  OF  THE  PUSHLIST  AND 
THE  INITIAL  VELOCITY  VECTOR  IN  MPAC. 

NEW VVEG  AMD  NEWRVEC  ARE  SYMBOLIC  R E P ? §S  E M T AT I ° H S OF  the  USEr " LOCATIONS. 
CONTINUE 


TF  Sit  NSW  AMD/I  i COGAFLAG  AND/Or  INEINFLG  IS  SET  AT  THE  EXIT  TO  TT  ME— RADIUS,  TIME-PADIUS  Will  TRANSFER 
TO  POODOO  WITH  AN  AIARM  CODE  (ORIGINALLY  00607  ) , AND  NOT  RETURN  TO  THE  C A LI  I NG  PROGRAM.  ( PCR  69?  & 721) 


OUTPUT  - 


* SCALE  FACTOR  * 


R 0525 
q o^2  6 

VAR  I ABLE* 

IN  POWERS  OF 

2* 

DESCRIPTION 

AN 

R0527 

T ( 30D ) -1= 

+ 28 

♦ DP 

TRAMS  FEY  TIME 

IN  CENT  I SECONDS 

R 05?  ? 

INF JNFLG* 

NONE 

* AH 

INTERPR ETTVE 

SWT  TCH 

WHICH  IS  SET 

IF  1 

R 0530 

* I NF  INI  TY  ( NO  SOLUT  ION  ) , 

CLEAR  IF  A PHYS 

R 0532 

CO GA FLAG* 

NOME 

* AH 

INTERPRETIVE 

SWITCH 

WHICH  IS  SET 

IF 

R 0 5 3 4 

* 

* C L E A R IF  NOT. 

R 0535 

ARSFSW  * 

NONE 

* AN 

INTERPRET  IV  E 

SWITCH 

WHICH  IS  SET 

IF 

P DESIRED  AMD  SGNRDOT  REQUIRE  CLOSURE  THROUGH 
ICAL  SOLUTION  IS  POSSIBLE. 

- ESTF ICTI ON  1 HAS  BEEF  VIOLATED  (NO  SOLUTION), 
RDESIRED  WAS  GREATER  THAN  RADIUS  OF  APOCENTER  OR 
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L 

R 0537 
R 053° 

R 054 1 
R 054 1 1 
R 05A 1 3 

p 05A 1 K 

R 0542 
RG543 

ROSA  A 

R ' 

R 0546 
R 0547 

R 0545 
R 05  a c 


R 0550 
R 05  5 1 
R.0552 

R055? 
R 0 5 5 4 
R.  055' 
R 055  7 
R055F 
R Oc  5 0 
R 056  1 
R 056  3 
R 0564 
R 0565 
R 0566 
5 05  5 P 
R 0569 

R0570 
R 057  1 
R 0573 
R 0574 


CON  T C SUBROUTINES 


USER'S  PAGE  MO.  13  EO  S3 


❖ 


* 

S Li'SW  * .‘4 9 ME 


❖LESS  THAI  RADIUS  OF  PERIC ENTER.  THE  APCCENTER  OP  PERICENTER  SOLUTION,  RESPECTIVELY, 

❖ WILL  THE!  RE  RETURNED.  THE  SWITCH  IS  CLEAR  IF  R DES I R ED  WAS  BETWEEN  PERICENTER  AND 
❖APGCENTEh. 

INTER  P.  ETIVE  SWITCH  WHICH  IS  SET  IF  THE  CONIC  IS  SO  CLOSE  TO  A CIRCLE  THA*  THE  TERM  IN 

❖ 1 A -( R T GUOl.  , VIM  A1  E S T t I CTIf  • I 3.  IF  ECCENTRICITY  IS  GREATER  THAN  2-7C-THE- 

❖ ■■'TMUS-IS,  THE  SWITCH  IS  CLEAR. 


IN  AUDITION,  IE  RVSW  IS  CLEAR,  4JHE  FOLLOWING  ARE  OUTPUT- 

UP  AC  - * +7  FT:  EAFTH  *0P  TERMINAL  VELOCITY  VECTrf  IN  METERS /CENTI SEC. 

Mp AC  +5*  +5  FOR  MOON  ❖ 

OD  - 5D  * +29  FOR  EARTH-7DP  TERMINAL  POSITION  VECTOI  IN  METERS  (PL  AT  6D) 
❖ +27  FOR  MCON  * 

Fm  r:~'  HE;  1U7P i )v  WHICH  ’’AY  BE  OF  USE,  SEE  DEBRIS. 


DERR  I S - 


PARAMETERS  WHICH  "AY  BE  OF  USE  - 


4= 

VARIABLE* 
* 

hi  (320* 
* 

R 1 A * 

P * 

COGA  * 

IJR 1 ❖ 

U2  ❖ 

UN  * 

CSTH  ❖ 

5 NTH  * 


SCAl  E FACTOR  * 
IN  POWERS  OF  2* 


DESCRIPTION  AMD  REMARKS 


For  hyperbolic  trajectories) 


+ 29  FUR  LA  .TF*QP  MAGNITUDE  OF  INITIAL  POSITION  VECTOR,  RVEC,  IN  METERS 
+ 2 7 F-  M rpM  * 

+ 6 ❖DR  ••  ATI  7J  OF  1 TO  SEMI  MAJOR  AXIS  (UEG. 

+❖  *0P  RATIO  OF  SEMILATU-'  RECTUM  TO  R1 

+5  ❖ DP  COTAN  OF  ANGLE  BETWEEN  RVEC  AMD  VVEC 

+1  ❖DP  UNIT  VECTOR  OF  RVEC 

+1  ❖DP:  UNIT  VECTOR  OF  VVEC 

+1  ❖OR  UNIT  VECTOR  OF  Uf  1*02 

+1  *0P  COSINE  OF  TRUE  ANOMALY  DIFFERENCE  BETWEEN  RVEC  AND  RDFSIRED. 

+ 1 *nt>  SINE  PF  T'UE  ANOMALY  DIFFERENCE. 


PARAMETERS  UF  NO  USE  - 

SP  :t’ AR  A'''E  rE  f c:  - flinr,  '-FI  'ip-M,  1 AG  VE  C 2 = ^ 2 (DP),  PLUS  PUSHLIST  LOCATIONS  0-110,  14D-21D,  240-390,  410 

ADDITIONAL  li’T  Eiw- ' f.TIVE  SWITCHES  USED  - NORMSW,  360  SW 


t 


GAP: 

L 

P 05  7 5 
R 0577 
R 057  9 
R 0581 


P 058? 

R 05  83 
R 0585 
R0537 
P C5  8 c 
R 0591 
P 0592 

R OP  93 
R 059*- 
R 059* 
R 05  9P 
R 0600 

R0601 
R 0o02 


R 0603 
R 0604 
R 06  0 6 


R0607 

R 06  0? 
R 06 0C 
P 06 1 C 
R 06  1 1 
R 06  1 2 
R 06  1 3 
R 06  14 
R 06  1 c 
RCf  17 
P D6  1 8 


R 06  1 c 
P 06  2 C 
P 062  ] 


R 06  2 2 
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PROGRAM  DESCRIPTION  - APSIDES  SUBROUTINE 
MOD  NO.  - 0 
MUD  BY  KRAUSE 


DATE  - 1 SEPTEMBER  1967 

LOG  SECTION  - CONIC  SUBROUTINES 

ASSEMBLY  - COLOSSUS  FEVISION  88 


FUNCTIONAL  DESCRIPTION  - 


THIS 
ECCENT' IC 
CIRCLE,  E 
FXTHNDED 
ACCEPT  ING 


SUBROUTINE,  GIVEN  AN  INITIAL  STATE  VECTOR 
ITY  IF  THE  rr:SIJLTlNG  CONIC  TRAJECTORY,  WHI 
LL  T P_  E , PAF.ABOLA,  OP  HYPERBOLA  KITH  RESPEC 
USING  OTHER  PRIMARY  BODIES  BY  SIMPLE  ADO  IT 
THE  INHERENT  SCALE  FACTOR  CHANGES  IN  POSI 


CALCULATES  THE  RADIUS  OF  P 
CH  MAY  BF  A STF  A I GHT  LINE, 

T TO  THE  EA[TH  OR  THE  MOON. 
IONS  TO  THE  MUTABt F WITHOUT 
TION  AND  V E!  PCI  T Y . 


ER  ICENTER 

THE  USE 
IN  TROD UC 


AND  OF 

OF  THE 
ING  ANY 


APOCENTER  AND  THE 

SUBROUTINE  CAN  BE 
CODING  CHANGES, 


THE  RESTRICTIONS  AR I - 

1.  IF  APCCENTf  *5  BEYOND  'HE  SCALI'  3 CF  POSITION,  THE  SCALE  FACT Of  LIMIT  (536,870,910  METERS  WITH  RESPECT 
TO  THE  EARTH  31  13  ,217,  ' 2 7 . <=  METE  S WITH  RESPECT  T THE  MOf  N ) KILL  BE  RETURNFD. 

2.  THE  PARAMETERS  IN  1 HE  PROBLEM  MUST  NOT  FXCEED  THEIR  SCALING  LIMITS  SPECIFIED  IN  THE  GSOP.  IF  THE  LIMITS 
ARE  EXCEEDED,  THE  RESULTING  SOLUTION  WILL  BE  MEANINGLESS. 

THE  AGC  COMPUTATION  TIMF  IS  APPROXIMATELY  .103  SECONDS. 


REFERENCES  - 

MISSION  PROGRAMMING  DEFII  ITION  !(  10  NO.  1 , UN AR  LANDING  MISSION  G SOP-SECTION 


INPUT  - ERASABLE  INITIAI  IZATION  REQUIRED 


* SCALE  FACTO'-  * 
VAP TABLE* IN  P3WE-S  OF  2* 


DESCRIPTION  AND  REMARKS 


PVEC  * +29  F<" ,r'  EA^TH*DP  INITIAL  POSITION  VECTOR  IN  METERS 

* +27  EOP  MOON  * 

VVEC  * +7  FOR  EARTH  *DP  INITIAL  VELOCITY  VECTOR  IN  M ET ERS / CENT  I S ECOND 

* +5  FOP  MOON  * 

XI  ( 38  D ) *NOr'  E * INDEX  REGISTER  TO  BE  SET  TO  -2D  OR  -10D  ACCORDING  TO  WHETHER  THE  EARTH  OR  MOON, 

* ^RESPECTIVELY,  IS  THE  CENTRAL  BODY. 


SUBROUTINES 
P AP  A M , 


CALLED  - 
GFHM 


CALLING  SEQUENCE  AID  NORMAL  EXIT  MOOES  - 


1" 


I 


■ AP:  ASSEMBLE  REVISION  OOl  OF  AG C PROGRAM  API 1ROPE  BY  EYIES 
COMIC  SUBROUTINES 


R0623 
R06  2*- 
R 062  0 
R 06  2 8 
R 06  29 
R0630 
R 063  2 
P 063? 


R 063  A 
R 063 p 
R 0636 
R 06  37 
R 063  8 
R 0639 
R06  tC 

P 064  I 
P 0642 

R 0643 
P.  06  4 A 


R 0645 

R0646 

R 0647 
R 06  a 8 
R 064° 
R 06  5 0 
R 065  2 
R 0653 
R 0655 
R 0656 
R 065  8 
R 0659 
R 066  0 

o 066  1 

R 066  2 
R 066  3 

R 066  4 
R0665 
R 066  7 
R 064  8 


066° 
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IF  CNLY  TIME  IS  DESIRED  AS  OUTPUT  - 

L CALL  MUST  BE  IN  INTERPRETIVE  MODE  BUT  QVFIND  ARBITRARY. 

it  I APSIDES  TURNS  WITH  PL  AT  0,  RADIUS  OF  APC'CENTEk  IN  KPAC  AND  RADIUS  OF  PERICENTER  IN  00 

L+2  STOOL  APOAPSE 

L+3  on 

I + '•  STf  F !" ! 1 6 ' Si  Af  OAPfF  AND  DEC  I A P S E A 1 E SYMBOLIC  FPrESENTATI  ONS  OF  THE  USERS  LOCATIONS 

L+5  ...  CONTINUE 


OUTPUT  - 

* SCALE  FACTOR  * 

VARIABLE*IN  POWERS  PE  2* 

$ sj:  

MPAC  * +29  FOR  EARTH* CP  RADIUS  OF  APCCENT  ER  IN  METERS 

* +27  FOR  MOON  * 

0D-1D  * +29  FOR  F ARTH*C F RADIUS  IF  PE  ICEiOEf  IN  METERS 

* +27  FOP  MOON  * 

ECC  * +3  *CP  ECCENTRICITY  OF  CONIC  TRAJECTORY. 

FOB  OTHER  OUTPUT  WHICH  MAy  BE  OF  USE,  SEE  DEBRIS. 


DEBRIS  - 


DESC,  I P T ION  AND  F EMARKS 


PARAMETERS  WHICH  MAY  BE  OF  USE  - 


* 

VAR  I ABLE* 


R 1 ( 3 2D ) * 


DESCRIPTION  and  REMARKS 


R.  1 A 

P 

COGA 

UR1 

U2 

UN 

4AGVEC2 


SCALE  FACTOR  * 

IN  POWERS  OF  2* 

* 

+29  FOR  EAFTH+DP  MAGNITUDE  OF  INITIAL  POSITION  VECTOR,  RVEC,  IN  METERS 
+ 2 7 EOF  MCCI,  * 

*fJP  .-AT  IP  OF  1 T i SEMIMAJOf-  AXIS  (NEG.  FOR  HYPERBOLIC  TRAJECTORIES) 
*DP  RATIO  OF  SEM1LATUS  RECTUM  TO  R1 
*CP  COTAN  PF  ANGLE  BETWEEN  RVEC  AND  VVEC 
*DP  UNIT  VECTOR  OF  RVEC 

* DP  UNIT  VECTOR  OF  VVEC 

* DP  UNIT  VECTOR  OF  UP1*U2 
+ 7 FPP  EA!  TH  *DP  MAGNITUDE  OF  VVEC 

+ 5 F 0 R MOON  * 


+6 
+4 
+ 5 
+ 1 
+ 1 
+ 1 


PARAMETERS  OF  NO  USE  - 

S.P  rAP.AMETERS  - TRAPS,  E,  GEGMSG Y , R T NP  R M , PLUS  f USHLIST  LOCATION:,  0-5,100-110,  14D-21D,  3ID-380. 
ADDI T1  F:\jAI  INTERPRETIVE  S 'ITCHES  USED  - N0PVSW 


REF 


12, 2000 


SETLOC  CONICS 


f 


GAP:  ASSEMBLE  .EVISIJU  001  F AGO  Pi  OGR  AM  APllnGP^  BY  EYLES 


L C i I C SUB  1 FIJI  I ' ES 


0670 

12,2023 

BANK 

06  71 

REF 

1 

CLUNT* 

067  2 

REF 

2 

LAST 

125 

E 5 , 172) 

EBANK= 

0678 

12,2923 

40001 

1 

KEPLFRN  SET'PD 

0679 

] 2 , 2 H 2 4 

00001 

0 

0680 

12,2025 

2^026 

0 

0681 

12,2026 

77773 

1 

VI  GAD* 

0683 

REF 

4 

LAST 

693 

12, 2027 

10005 

0 

06  84 

12,2030 

24017 

1 

STOVL 

06  8 5 

REF 

4 

L ArT 

710 

12,2031 

01503 

0 

0686 

1 2,203? 

66256 

0 

UNIT 

0687 

REF 

1 

12 , 2033 

00027 

1 

0688 

12, 2034 

00024 

1 

0639 

REF 

2 

LAST 

125 

12,2035 

16647 

0 

6T0DL 

0690 

12,203+ 

OF  045 

0 

0691 

REF 

5 

LAST 

69C 

12, 2037 

26  04  1 

1 

STOVL 

0692 

RFF 

5 

LAST 

1174 

1 2 , 2040 

01503 

0 

069? 

12,2041 

76^41 

1 

DDT 

C694 

REF 

3 

LAST 

495 

12 , 2042 

01511 

0 

0695 

12,2043 

7 640  5 

1 

DMP 

0696 

»EF 

1 

12, 2044 

0CC23 

0 

0697 

REF 

1 

12,2045 

24043 

0 

STOVL 

0698 

REF 

4 

LAST 

1174 

12,2046 

01511 

0 

0699 

12,2047 

57236 

1 

VSQ 

0700 

REF 

1 

12,2050 

00017 

1 

0701 

1 2,  206  1 

52405 

1 

DMP 

0702 

REF 

6 

LAST 

1174 

12,2052 

00041 

1 

0703 

12,2053 

61425 

0 

DSU 

0704 

REF 

1 

12, 2054 

11035 

1 

0705 

REF 

1 

12,2055 

00045 

0 

STOP  E 

0706 

12,20  5 6. 

744  21 

0 

BDSU 

0707 

REF 

2 

LAST 

1 ) 74 

12, 2057 

1 1035 
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1150 
115] 

1151 

1152 

1153 

1154 

1 1 5 z 

1 1 7 5 

117' 

1156 

1156 

r 1 1 r 


ASSEMBLE  REVISION  001  UF  AGG  PROGRAM  API  MOPE  BY  EYLES  3:15  DEC.  2 

CONIC  SUBROUTINES  USER’ 

P E F 3 L ASt  45  €4,2000  SETLOC  CCNICS1 

04,3027  BANK 


REF  2 LAST  45  TC!  46!  1 7 1 : 

DO  to"'!  DISTURB  T^F  0*1  OEP  ' F THESE  CDS, 


C4 ,302  7 

04.3030 

04.3031 
14,30  32 

04.3033 

04.3034 
^4 ,3034 

04.3036 

04.3037 
04 , 304  3 
C4, 304  l 
04,3042 
04,  304  3 

04.3044 

04.3045 

04.3046 

04. 304 7 
5 ,3050 
04, 305 1 


00000  1 
04000  0 
OOCOO  1 
00200  0 
DC 000  1 
0:04  00  0 
000'-'-'  1 
10000  0 
( 10  OC  1 
020 CO  0 
t 0000  1 
010(0  0 
000  00  1 
00020  0 
00000  1 
001:00  0 
00000  1 
34.531  1 
23146  0 


OVERLAYS 

BEE17 

Dl/8 

01/128 

01/64 

Dl/4 

D 1/1:6. 

01/32 

Dl/1024 

Dl/266 

DP9/10 


COUNT  * $$/ CONIC 
HAVE  BEEN  MADE. 


DEC 

2DEC 

2DEC 

0 

1 .0 

1 .0 

B-3 

B— 7 

2 DEC 

1.0 

B-  7 

2DEC 

1 .0 

B— 2 

2 DEC 

1.0 

B-4 

2DEC 

1 .0 

8—  p 

2DEC 

1 .0 

B-l  C 

2 DEC 

1 .0 

B-3 

2 DEC 

.9 

REF  5 LAST  1147  12,2006 

04.3052 

04.3053 
0*4 , 3 054 

04.3055 

•’EF  l 04,  3041 

REF  3 LAST  1184  C4,3045 

04.3056 

- , ( C v 7 

04.3060 

04.3061 
04,306? 
04,3063 


KEPZERO 

EQUALS 

L 06 ZEROS 

77467 

1 

-50SC 

2DEC 

-50.0  B— 12 

77777 

0 

031  1C 

1 

2P  ISC 

2 DEC 

6.23316530  B-6 

17665 

1 

BEE  19 

EQUALS 

01/32  -1 

BEE22 

EQUALS 

Dl/256  -1 

ococo 

1 

ONEBTT 

2DEC 

1.0  B— 2 8 

G(  001 

0 

37767 

0 

COGUPL  T M 

2 DEC 

. 9956 1 1 597 

37737 

0 

4*0010 

1 

COGLOL IM 

2DEC 

- .9°  45 11 597 

40040 

1 

KEEP  WITH 


2DEC  1.0  B 
2DEC  1.0  B 


,1970  SKIPPER  .087  PAGE  1135 
S PAGE  NO.  27  E5  S3 


01/3  20FC  1. OB-17  (0000004000) 


-]<■-  (00000  01000) 
-22  (00000  00100) 


GAP: 


ASSEMBLE  REVISION  001  OF  AGO  PfCG-AM  AP11ROPE  BY  EYl.ES 


L Cf  SIC  SUBROUTINES 


1158 

REF 

2 

LAST 

117  3 

12,2000 

SETLCC 

CONICS 

115° 

12,2732 

BANK 

1160 

REF 

? 

L AST  1 17  TO 

1 Ip  5: 

45  5 455  * 

COUNT* 

£$/CON I C 

116  1 

12,2732 

4 02  2 0 

0 

T ! VETHET 

STO 

SETPD 

1 

REF 

1 

1 2,2733 

02710 

0 

p T'l  T T 

11 

12,2734 

00001 

0 

0 

1 1 3 5 

12,2735 

77600 

1 

BOV 

11636 

12,2736 

247  37 

1 

+ 1 

11  V 

12,2737 

c33  75 

0 

VLOAD 

PDVL 

l 1 ' 

REF 

9 

LAST 

729 

12,2740 

02655 

0 

RVEC 

116P 

REF 

1 3 

LAST 

1 1 8 4 

1 ? , 27^ l 

02744 

1 

V V6C 

1167 

12,2742 

77624 

1 

CAL  L 

11 

REF 

1 

12,2743 

11064 

0 

P AF  AM 

1 1 6 9 

1 ? . ? 744 

46  no n 

n 

BOV 

TAM 

Vx  H L.  1 

1170 

P EF 

1 

12,2745 

24764 

1 

COGAT'VFI 

1171 

REF 

1 

12,2746 

24767 

1 

GET  X 

1 17"> 

1 2 , 2 7“ 7 

43145 

o 

commnout 

DLOAD 

8CN 

1173 

REF 

5 

LAST 

1184 

12,2750 

00031 

0 

XI 

1174 

REF 

1 

12,2751 

04  310 

1 

INF  INFLG 

1175 

REF 

1 

12,2752 

25742 

1 

A BT CONIC 

1176 

12, 2753 

45014 

0 

C L L A 

CALL 

1 177 

REF 

1 

12,2754 

0/273 

0 

COG A FLAG 

1170 

REF 

2 

LAST 

1176 

12,2755 

24421 

0 

DELTIME 

1179 

12,2756 

45014 

0 

BON 

CALL. 

1180 

P EF 

8 

LAST 

729 

12,2757 

03706. 

0 

P VSW 

1181 

REF 

2 

LAST 

1 186 

12,2760 

02710 

0 

RTNTT 

1182 

REF 

1 

12,2761 

2 4653 

1 

newstatf 

118  3 

12,2762 

77650 

1 

GOTO 

118^ 

REF 

3 

LAST 

1 1 p 6 

12,2763 

02710 

0 

RTNTT 

1135 

1 ? , ?7A4 

77614 

1 

COCAOVF  L 

S E r GO 

i.  C » C.  < K T 

I 

1186 

REF 

2 

LAST 

1136 

12,2765 

04033 

0 

CCGAFl AG 

1187 

REF 

2 

LAST 

1186 

12 , 2766 

25742 

1 

ABT CON  I C 

I i 

04,3064 

BANK 

4 

l 1 

REF 

4 

LAST 

1185 

04 , 2000 

SETLOC 

C0NICS1 

11876 

04,3064 

BANK 

1187 

REF 

3 

LAST 

11'.  TC 

1186: 

29  45* 

COUNT* 

$$/ CONIC 

IF 

04,3064 

4302  0 

1 

PAP  AM 

ST  Q 

CLEA- 

1189 

REF 

2 

LAST 

125 

04 ,3065 

02753 

1 

RTNPRM 

1 1 

P EF 

7 

LAST 

778 

€4,3066 

03665 

1 

NOP  MS W 

119(  1 

04,3067 

776  14 

1 

CLEAR 

1 1 < / 

REF 

3 

LAST 

1186 

C4 ,3070 

04273 

0 

CCGAFL AG 

1191 

04,3071 

45131 

0 

SSP 

CALL 

1192 

REF 

7 

LAST 

779 

04 , 307  2 

02673 

1 

GEOMSGN 

1193 

04,3073 

27  77  7 

0 

3*777 

] 1 

REF 

1 

04,3074 

11130 

0 

GEOM 

1195 

04,3075 

14045 

0 

STOOL 

36D 

1 1 

C4 , 3G76 

5626  1 

1 

SR 

DDV 

3:  15  DEC 


2,1970  SKIPPER  .087 


0 AGE  1186 


USER'S  PAGE  NO.  28 


SETUP  FOP  PAP  AM  CALL 


"PAC=V1VEC,  00=1 IV EC 


GAMMA  ALWAYS  LESS  THAN  180DEG 
MPAC=SMGA  (+1),  00=CS  GA  (+1) 
36D=S IN  GAMMA  (+1 ) 


E5  S3 


PL  AT  0 


PL  AT  6 


PL  AT  0 


PL  AT  6 


PL  AT  2 
PL  AT  0 


GAP:  ASSEMBLE  REVISION  00]  OF  AGC  PROGRAM  API  1 OPE  BY  EYLES 


L CONIC  SUBROUTINES 


1197 

04,3077 

20606 

C 

1 1 O Q 

04,3100 

00045 

11^ 

U 

119° 

PEF 

2 

LAST 

125 

04, 3 It  1 

32766 

1 

STQVL* 

120C 

REF 

5 

LAST 

1174 

C 4 ,3  102 

1C005 

0 

1201 

>'EF 

2 

LAST 

1174 

04,3103 

14017 

1 

STOOL 

1202 

REF 

3 

LAST 

125 

04,3104 

02720 

0 

1203 

04, 3105 

603  16 

0 

D SO 

1204 

, REF 

46 

LAST 

1134 

04,3106 

OC  047 

1 

1205 

04,3107 

412  75 

1 

DMPR 

1206 

; REF 

3 

LAST 

113  7 

04, 31 10 

00017 

1 

0 P P 

t a c t 

1)0/ 

0004 1 

) 

1 c.' 

r cr 

1 1 

L A j I 

1 1 

f > JL  J.  1 

JL 

12 

04,3112 

77657 

0 

SFR* 

1.209 

04,3113 

21576 

0 

1210 

04, 31  14 

44206 

0 

PUSH 

121  1 

p EF 

2 

LAST 

1 1 ' 5 

04,31  15 

1 1043 

0 

1212 

F FF 

4 

LAST 

6 90 

04, 3]  16 

16742 

1 

STUDL 

1213 

04,3117 

60205 

0 

DMP 

1214 

04 ,3120 

00045 

0 

1215 

REF 

47 

LAST 

1187 

04,3121 

00047 

1 

121' 

04,3122 

53605 

1 

DMP 

121T 

04,3123 

00045 

0 

1218 

04,3124 

20575 

1 

12  1 

REF 

4 

LAST 

635 

04,3125 

02740 

0 

STORE 

1220 

04,3126 

77650 

1 

GOTO 

1221 

REF 

3 

LAST 

1166 

04,3127 

02753 

1 

3: 1 5 DEC.  2,lc70  SKTPPER  .087  PAGE  1187 
USER'S  PAGE  NO.  29  E5  S3 


3oD 

COGA 

MUTABLE,  1 

1 /MU 

MAGVEC2 

NORM 

XI 

DMP 

1/MIJ 

R 1 

0-3,1 


BDSU 

01/32 

00=R 1 V1SQ/MU  (+6) 

PL 

AT 

2 

R1A 

r 1 A (+6) 

PL 

AT 

0 

NORM 
3 60 

XI 

SR* 

3 60 

n _4,i 

P P ( +4  ) 


RTNPRM 


GAP:  ASSEMBLE  REVISION  001  OF  AGC  PROGRAM  APIlROPfc  BY  EYLES 


CONIC 

SUBS  GUTTIES 

122  c 

04,3130 

77656 

1 

GEOM 

UNIT 

1226 

REF 

2 

LAST 

125 

04,3131 

16712 

1 

STODL 

1 9 7 

ri.jn; 

C 0045 

n 

1 C c 

< 1 J 1 M 4. 

u 

122? 

REF 

4 

L AST 

1187 

04,313? 

26  720 

0 

STOVL 

122° 

04,3134 

776  56 

1 

UNIT 

1230 

REF 

5 

LAST 

3 184 

04, 313c 

02722 

1 

STORE 

1231 

04,3136 

72441 

0 

DOT 

1232 

REF 

3 

LAST 

1188 

04, 3137 

02712 

1 

1233 

04, 3140 

77725 

1 

PDDL 

1234 

04,3141 

C 004  5 

0 

123^ 

OFF 

12 

LAST 

1 1 ■ 7 

0 4,3142 

24  04  1 

1 

S 1 OVL 

1236 

REF 

6 

LAST 

1188 

04,3143 

0 2722 

1 

1237 

04,3144 

76435 

1 

vxv 

1238 

REF 

4 

LAST 

1188 

04,3145 

02712 

1 

1235 

04,3146 

75214 

1 

BON 

1240 

REF 

8 

LAST 

1136 

0 4 , 3 14 7 

03705 

0 

1241 

REF 

1 

04,3150 

11102 

1 

1 242 

REF 

8 

LAST 

1X86 

04  r'lt  5 l 

02673 

1 

1243 

04,3152 

40056 

0 

UNIT 

1244 

REF 

1 

04,3153 

1 1160 

0 

1245 

REF 

6 

LAST 

779 

04,3154 

16674 

0 

UNIT  NORM 

STODL 

124r. 

04,3155 

0004  5 

0 

1247 

04,3156 

435  65 

0 

S I GN 

1248 

REF 

Q 

LAST 

118  8 

04,3157 

02673 

1 

12 

04, 3160 

52162 

0 CQLINEAS  VS.:  1 

1250 

REF 

1 

04,3161 

11154 

1 

1251 

04,3162 

75246 

0 

H AVENGE M ABVAL 

1252 

REF  10  LAST  1188 

04,3163 

02673 

1 

1253 

04,3164 

77616 

0 

i.VQ 

3:  15  DEC 


2,1570  SKIPPER  .087  PAGE  1188 


USE'-  «S  PAGE  NO.  30 

MPAC  = V2VEC  , 0D  = R1 VEC 
U2  U 2 ( + 1) 

3oO 

MAGVEC2 

UR  1 UR1  (+1) 

SjgL 

U2 

00=CS  TH  (+1) 

36D 

R 1 R1  (+29  OR  +27) 

UR1 
VS  L 1 
U2 

S IGN 
NOP  MS W 
HAVENER M 
GEOMSGN 
BOV 

COL l NEAR 

UN  UN  (+1) 

3 60 

RVQ  MPAC=SNTH  (+1),  34D=SNTH.  SMH 

GEOMSGN 


GOTO 

UN IT NORM 


SIGN 

GEOMSGN 

MPAC=SNTH  (+1),  34D=SNTH. SNTH 


E 5 S3 
PL  AT  6 

PL  AT  0 

PL  AT  2 


(+2) 

(+2  ) 


GAP 


ASSEMBLE  i\E  V I S I - r ■■■]  jF  AGO  P-QGkAM  API  1<»0P£  8Y  EYLES 


1254 

1255 
12  56 

12565 

125^ 

1258 

1259 

1260 
1261 
1262 

1263 

1264 

1265 

1266 
1267 
126  8 
126° 

1270 

1271 

1272 
12  73 
12  74 
12  75 

1276 

1277 

1278 

1279 
128  0 
128  1 
1232 
1283 
126  4 

1285 

1286 
1287 


1283 
12  8 5 
1200 

1291 

1292 

1293 
1296 
12QC 
1 2 r ' 

1 2 7 
1298 
12°9 


CON  I C SUBROUTINES 


12,2767 

REF  3 LAST  1186  12,2000 

12,2767 

REF  3 LAST  H86  TC  1 t : 29  484* 


REF 

26 

LAST 

1 1 55 

0 EF 

1 

REF 

6 

LAST 

729 

REF 

2 

LAST 

37 

REF 

8 

LAST 

729 

REF 

1 

REF 

3 

LAST 

118  7 

REF 

2 

LAST 

1189 

PEF 

72c 

LAST 

118  3 

REF 

5 

LAST 

1187 

REF 

l 

REF 

1 

RFF 

1 

12,2767 

12.2770 

12.2771 

12.2772 

12.2773 

1 2 , 2774 
12, 2775 

6637* 

00003 

00052 

0C001 
77614 
042  7 6 
65366 

1 

1 

0 

0 

1 

0 

1 

12,2776 

02732 

0 

12,2777 

4*34  2 

1 

12, 3000 

11037 

0 

12,3001 

54325 

1 

12,3002 

02730 

1 

12,3003 

21607 

0 

12,3004 

77671 

1 

12,3005 

77600 

1 

12,3006 

25122 

1 

12,3007 

41225 

1 

12,3010 

0276  6 

1 

12,3011 

40132 

0 

12,3012 

25122 

1 

12,3013 

6 3406 

0 

12,3014 

6 5351 

0 

12, 30 1 5 

0015  5 

0 

12,301' 

02742 

1 

12,3017 

76  202 

0 

12,3020 

75440 

0 

12 , 302  1 

25205 

1 

12, 3022 

43306 

0 

12,3023 

61000 

0 

12,3024 

2512  0 

0 

12,3025 

2 c 0 1 3 

1 

GETX 


WLOOP 


RANK 

SETLOC 

BANK 

12 

CONICS 

COUNT* 
A X T , 2 

$ S/CONI C 
SSP 

3 

S 2 

1 

CLEAR 

SORT 

360SW 

PDDI 

CSTH 

SRI 

8 DSU 

Dl/4 

POOL 

SRR 

SNTH 

6 

DDV 

BOV 

3oOCHECK 

DSU 

OM,P 

COGA 

SL  2° 

BOV 

360CHECK 
PUSH  DSQ 
• L UAD  PDDL 
MPAC 
1 i-A 

S'*  TAD 
BMN  SORT 

INFINITY 
FOUND  DAD 
BOV  T I X , 2 

PESETX2 

WLOOP 


12,3026 

40065 

0 

BDDV 

PEF 

3 

LAST 

1134 

12,3027 

11033 

1 

RFF 

2 

LAST 

1139 

12,3030 

25205 

1 

12,3031 

41440 

1 

POLYCOFF  BMN 

REF 

3 

LAST 

1189 

12,3032 

25205 

1 

12,3033 

77716 

1 

DSQ 

12,3034 

41301 

0 

NORM 

REF 

48 

LAST 

1187 

12,3035 

00047 

1 

REF 

6 

LAST 

1 1 8 9 

12,3036 

02742 

1 

12, 3037 

774  5 7 

1 

SF°* 

12,3040 

21567 

0 

RFF 

6 

L AST 

1180 

12,  1 

0 7222 

1 

TC 

BOV 

Dl/128 
INF  I N [ TY 

PUSH 

INFINITY 

DMP 

XI 
R 1 A 
EXIT 

0 - 10D , 1 
P0L  Y 


1 


3:15  DEC.  2,1970  SKIPPED  .087  PAGE  1189 
USER'S  PAGE  NO.  31  E5  S3 


ASSUMES  P (+'  ) IN  MPAC 

OD- SORT ( P 1 PL  AT  2 

PL  AT  4D 

PL  AT  2 

PL  AT  0 

PL  AT  2 
PL  AT  5 

PL  AT  2 

PL  AT  00 


0D=W  (+5) 

2 D=WS  Q (+10) 


00=1/ W (+2)  OP  1 6/W  (+6) 


PL  AT  2 


GAP:  ASSEMBLE  REVISION  001  OF  AGO  PROGRAM  APl^RGPE  BV  EYLES 

L CONIC  5.  OB  ROUTINES 


1300 

12,3042 

00005 

1 

DEC 

1301 

12 ,304  3 

20000 

0 

2DEC 

nni 

1 7 . 30A4 

00000 

E 

1 JV  l 

1302 

12,3045 

72525 

0 

2 DEC 

1302 

1?  , 3046 

52471 

1 

1303 

1 7 . 30 4 7 

03  1a6 

1 

2DEC 

1303 

1 2 , 3050 

1 5 

G 

1304 

12,3051 

75556 

0 

2DEC 

1304 

12,3052 

452  lo 

0 

130? 

12,3053 

01615 

1 

2DEC 

130  5 

1 2,  30  54 

13553 

0 

1306 

1 2 * 3 0 5 c 

76371 

n 

2DFC 

1306 

12,3056 

63777 

0 

1307 

12,3057 

01232 

0 

2DEC 

1307 

12,3060 

27367 

0 

1308 

REF 

228 

LAST 

1180 

12, 3061 

0 6037 

0 

TC 

1309 

12 , 306  2 

76405 

1 

DMP 

1310 

1 2 , 30+  3 

43006 

0 

PUS  H 

1311 

REF 

2 

LAST 

1189 

12,3064 

04316 

1 

1312 

REF 

1 

12,3065 

25172 

1 

1313 

12,3066 

3 16 

0 

XCCf RON  DSQ 

1314 

REF 

49 

LAST 

1189 

12, 3067 

0004  7 

1 

1315 

12,3070 

63606 

1 

DMP 

1316 

REF 

7 

LAST 

1189 

12,3071 

02742 

1 

1317 

12 , 3072 

21565 

1 

1318 

REF 

6 

LAST 

1186 

12,3073 

14031 

0 

STODL 

13  lr 
137' 

REF 

13 

LAST 

IIP  8 

12.3074 

1 2 . 3075 

0 0041 
75  542 

1 

0 

Sr  i 

1721 

12,3076 

41306 

1 

ROUND 

1322 

12,3077 

77632 

0 

SI  4R 

1323 

REF 

22 

LAST 

1184 

12,3100 

0C025 

0 

STORE 

1324 

12,3101 

60316 

0 

DSQ 

1325 

REF 

50 

LAST 

1190 

12,3102 

00047 

1 

1326 

12,3103 

41325 

0 

PDDL 

1327 

REF 

5 

LAST 

1187 

12,3104 

02  740 

0 

1323 

REF 

14 

LAST 

1190 

12,3105 

00041 

1 

1 32  c 

12,3106 

75452 

0 

SL  3 

1330 

12,3107 

56405 

0 

DMP 

1331 

REF 

4 

LAST 

1189 

12,3110 

02766 

1 

1332 

REF 

3 

LAST 

118  1 

12,3111 

14043 

0 

STODL 

1333 

REF 

8 

LAST 

1 190 

12,3112 

02742 

1 

1334 

12,3113 

••30  21 

0 

BDS'J 

1335 

REF 

3 

LAST 

1 1 74 

12,3114 

11035 

1 

1334 

9 E F 

2 

1 AST 

! 1 36 

17,3115 

042  70 

0 

1337 

REE 

3 

LAST 

118  1 

12,3116 

0004  5 

0 

STORE 

1338 

12,7117 

77616 

0 

RVQ 

3:15  DEC 


2 1 1 97  0 SKIPPER  .087  PAGE  1190 


USER'S  PAGE  NO.  32 


5 

.5 


-.166666770 

. 10'  tor.-?.? 

-.071401086 

. 055503292 

- .04  72  6*09  8 

.040694204 

TMPPET 

SL1R 

OCN 

360SW 

TRUE360  X 

NOR  M 

XI 

SRR* 

R 1 A 

0 -12D,1 

XI  XI  ( +6 ) 


H 1 

SORT 

DMP 

X X ( +17  OR  +16} 


NORM 

XI 

DMP  0 D=  X S Q (+34  OP  +32  -Nl) 

P 

R 1 

SORT 
SL3R 
COGA 
KEP'Cl 
R 1 A 
C L.  E A ‘ 

Dl/64 
INF  INFI  G 
KEPC2 


E5  S3 


PL  A^  OD 


Pt  AT  0 


PL  AT  2 


GAP: 


ASSEMBLE:  REVISION  OOI  LP  AGC  P ■■  OGK  A M APIIRUPE  BY  EYLES 


L Cl  IC  SUBF  UT3--.S 


1339 

1340 


12,3120  77774  0 RESETX2  AXT,2 

12,2121  0 C 003  1 


1341 

12,312 2 

510  01 

1 

3 60 CHECH  S E T d D 

1342 

12, 3 1 ? 3 

000  01 

0 

1343 

REF 

1 

12, 3124 

25127 

1 

1344 

12,3125 

776  1 

1 

SET 

13 

REF 

3 LAST  1190 

12, 3126 

04076 

1 

1 3 4 * 

1347 

1348 

1349 
139 1 
1351 
135? 
1355 

13 

1355 
13*5- 
1357 
1 35  P 

135 
1360 

136  1 
136? 
136  3 
136* 

1365 

1366 

1367 
136  6 
136  c 

1370 

1371 

1372 

1373 
137* 

1375 

1376 

1377 

1378 

1379 

1380 


1 2 , n 2 t 

75  545 

1 

TNVRSEQN 

DLOAD 

REF 

6 

LAST 

1190 

12,  31 30 

02  740 

0 

12,3131 

41325 

0 

PDDL 

REF 

......  9.., 

LAST 

1 189 

12,3132 

0273  U 

1 

REF 

5 

LAS'1’ 

11  0 

1 2 ,3133 

02  766 

1 

12,313  - 

6 5 3 5 2 

0 

SL  1 

R FF 

7 

LAST 

1|  5C 

n 7 7 o 

0 

L C f SI  L D - 

c,  f D c. 

12,3136 

43202 

0 

SR4 

REF 

3 

LAST 

1187 

12,3137 

11043 

0 

412  25 

nc  1 1 

A C t J X > 

1. 

Uo  u 

12,3141 

5 5301 

0 

NORM 

REF 

51 

LAST 

1190 

12,3142 

0 0047 

1 

REF 

10 

LA^T 

119  1 

12,31*3 

027  30 

1 

12, 3144 

51457 

0 

SI  R* 

12,3145 

21174 

0 

12,3146 

63406 

0 

PUSH 

12,31*7 

1 4 04  3 

0 

STOOL 

REF 

I 

12,3150 

11041 

1 

12.  •>  1 p 1 

A 7 1.  ,1  A 

0 

1 / iAii  nriO 

C MC  LI 

1 / VvL  • - r 

ruin 

12,3152 

65234 

1 

RTB 

REF 

1 1 

LAST 

1181 

12,3153 

21633 

1 

REF 

9 

LAST 

nap 

12,3154 

02742 

1 

12,3165 

40405 

1 

DMP 

12,31 4 

00043 

0 

12,3157 

77771 

0 

T A n 

12,3160 

75440 

0 

BMN 

REF 

4 

LAST 

1189 

12, 316  1 

25205 

1 

12,3162 

77615 

0 

DAD 

12, 3163 

60304 

0 

T I X , 2 

?EF 

1 

12,3164 

2 5 151 

0 

REF 

52 

LAST 

1191 

12,3165 

00047 

1 

12 , 3166 

77665 

1 

BDDV 

12,3167 

52057 

1 

SLR* 

12,3170 

21172 

0 

r>  E P 

1 

12,3171 

2 50  3 1 

1 

1381 

1382  REF  10  LAST  1191 


12,3172  50145  1 TRUE360X  DLOAD 

12,1173  02742  1 


3:15  DEC.  2,1970  SKIPPER  .087  PAGE  1191 
USER'S  PAGE  NO.  33  E5  S3 

3 

B PL 
OD 

TNVRSEQN 

360SW 


SORT 

p 

DMP 
$ NT  H 
COGA 
PCD!. 

CSTH 

DAD 

Dl/32 

DMP 

BDDV 

XI 

$ NT  H 
ABS 

0 -5,1 
OSQ 
34  D 
D 1 / 1 6 

nso 

PDDL 
TPMODE 
R 1A 
SR4 
3 40 

SQRT 

INFINITY 

NORM 

1/WL OOP 
X 1 

GOTO 

0-7,1 

PCLYCOEF 


OD=SQPT ( P ) (+2! 

20=SNTH  COGA  ( +5 ) 

NOTE:  NEAR  36.0  CASE 

00=1/ W (-1) 

2 D=G  (+4) 


PL  AT  2 

PL  AT  4 

PL  AT  2,0 

TREATED  DIFFERENTLY 
PL  AT  2 

PL  AT  4 
PL  AT  7 

PL  AT  4 

PL  AT  2 

PL  AT  0 


BMN 
R 1 A 


GAP:  ASSEMBLE  .EVISION  001  OF  A GC  PROGRAM  AP11RGPE  BY  EYLES 


L CONIC  SUBROUTINES 


13F3 
1384 
13  • 

1" 

1387 

13R« 

13 

1300 

1391 

1392 

1393 
13Q4 
1395 
139  6 


REF  5 LAST 

REF  53  LAST 

REF  2 LAST 

REF  1 

REF  1 

REF  3 LAST 


1191  12,3174 

12,3175 
1191  12,3176 

12,3177 
1175  12,3200 

12.3201 

12.3202 

12.3203 

12.3204 

12.3205 

12 . 3206 
12,3297 
12,3210 

1190  12,3211 


25205 

1 

60366 

1 

SORT 

00047 

1 

53665 

1 

BDDV 

110  5 5 

1 

20176 

0 

41425 

1 

IJSU 

77650 

1 

GOTO 

25C66 

0 

A 00  01 

1 

INFINITY 

SETP 

OC  00  1 

0 

2 5 Pi  0 

0 

43414 

1 

OVFLCLR 

SET 

04070 

1 

3:15  D£  C 


2,1970  SKIPPER  .067 


PAGE  1192 


USER' S PAGE  NO.  34  E5  S3 

INFINITY 

NORM 

XI 

SL* 

2PI  SC 

0-3,1 

..z 

PUSH 

0D=2PI/SQRT(P1A)  -X  PL  AT  0,2 

X COMMON 

BOV 

0 

OVFLCTR 

RVQ 

INF INFL  G 

NO  SOLUTION  EXISTS  SINCE  CLOSURE  THROUGH 

INFINITY  IS  REQUIRED 

« 


gap:  ASSEMBLE  ^EVISIDL  001  OF  AGC  PRO GLAM  APllRuPE  BY  EYLES 


L CONIC  SUBROUTINES 


1397 

1398 

1 9QQ 

REF 

5 

LAST 

125 

12  ,3212 
12,3213 

40220 

02710 

fii,  no  i 

o o c 

LAMBERT  STQ 

I D ' - 

1 f ->  C.  1 *+ 

w’  V.  y ; V J X, 

139  - 5 

12,3215 

77600 

1 

BOV 

139°  6 

12,3216 

252  17 

1 

1 40  0 

1 ? . 1 ? 1 7 

7 6 614 

o 

clear 

1 TU  'J 

1 4 f “ C.  I » 

190  1 

REF 

1 

12,3220 

02674 

0 

1903 

REF 

6 

LAST 

1187 

12,3221 

1C  005 

0 

1904 

REF 

„ 4 

LAST 

1137 

12,3222 

14017 

1 

STOOL 

1405 

REF 

3 

LAST 

6 8 7 

12, 3223 

02671 

0 

1404 

12,3224 

77675 

0 

DMPP 

1 40  7 

pec 

i 

1 ? , 3 ? ? 5 

11042 

I 

L 

ocr 

1 

1 - ( 8 

REF 

2 

LAST 

125 

12 , 3226 

027  64 

0 

STORE 

140° 

12,3227 

77214 

0 

SET 

1410 

REF 

2 

LAST 

1182 

12,3230 

00474 

0 

14  11 

PEE 

6 

LAST 

639 

1 ?, 3?31 

02655 

0 

1412 

12,3232 

5115 

0 

P OVI- 

1413 

REF 

10 

LA  $7 

689 

12,3233 

02663 

0 

1414 

REF 

2 

LAST 

1186 

12,3234 

11130 

0 

1415 

REF 

11 

LAST 

1191 

12, 3235 

16730 

1 

ST  ODL 

1416 

REF 

- 5 

LAST 

1188. 

12,3236 

. 02  72  0 

0 

1417 

I 2,32  37 

6 5 3 C 1 

0 

NORM 

141 ; 

kEF 

54 

LAST 

1 1 ° 2 

1 2 , 3240 

0004  7 

1 

1410 

REF 

18 

LAST 

11  or 

12,3241 

0 4 041 

1 

1420 

12,3242 

5o  342 

1 

SR] 

1421 

12,3243 

65257 

1 

SL* 

19  AA 

9 n 1 ~7  X 

A 

J.  ■ c.  < 

J.  Xl  1 T//T  iJr 

A U I { D 

U 

1423 

12,3245 

77626 

0 

S'i  ADC 

1424 

PpF 

8 

LAST 

1 1 1 

12,3246 

75045 

1 

STORE 

14  2 5 

1 2,32^7 

4 4 342 

1 

SR  1 

1426 

REF 

3 

LAST 

1189 

12,3250 

1 1 03  7 

0 

1427 

REF 

2 

LAST 

125 

12,3251 

02734 

0 

STORE 

142  8 

12,3252 

5310 

0 

ROUND 

1425 

REF 

1 

12, 3253 

2 546  3 

1 

1430 

12,3254 

6C39  1 

0 

NORM 

1431 

REF 

55 

LAST 

1 1 ° 3 

12,3255 

00047 

1 

1432 

12,3256 

CC  001 

0 

143  3 

12, 3257 

56342 

1 

SRI 

14  34 

12, 3260 

76457 

0 

SL* 

1435 

12, 3261 

20176 

0 

14  3 6 

12,3262 

54325 

1 

PDDl 

1437 

REF 

12 

LAST 

1193 

12,3263 

02730 

1 

143  8 

12, 3264 

20607 

1 

1439 

12, 3265 

4 3271 

1 

DDV 

144  C 

n 

3 

I AST 

119  3 

12,3266 

0 2 734 

0 

V ■ 1 

12,3267 

7 76  26 

0 

S T A DR 

1440  2 

ref 

1 

12,3270 

77760 

0 

STOP  E 

1441 

12,3271 

50000 

1 

BOV 

1442 

RFF 

1 

12,3272 

25277 

1 

3: 15  DEC 
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SET  PD 

RTIMLAMB 

OD 

+ 1 

V L 0 A D * 

SGLNSW 
MUTABLE , 1 

1 /MU 

TDfSIRED 

USER  *S  PAGE  NO.  35  E5  S3 

BEE  19 

EPSILONL 

VLOAD 

5LOPESW 

R IV EC 

CALL 

R 2V  EC 

GEQM 

( D=R 1 VEC  ( +2°  or  +27)  PI  AT  6 

MPAC=P2VEC  (+2°  OR  +2?) 

SNTH 

MAGVEC2 

0D=CS  TH  (+1)  PL  AT  2 

PDDL 

XI 

R 1 

PL  AT  4 

DDV 

PDDL 

0 -6,1 

PL  AT  2 

DXCH  WITH  OD,  OD=R 1/P  2 !+7)  PL  AT  0,2 

CSTH 

BDSU 

Dl/4 

CSTH  (+1 ) 

1-CSTH 

1-CSTH  (+2) 

BZE 

3 60  LA  MB 

PDDL 

PL  AT  4 

X 1 

OD 

DDV 

SORT 

PL  AT  2 

0 -3,1 

SR 

SKTH 

2D=S0RT( 2F  1/R 2 ( 1-CCTH ) 1 (+5)  PL  AT  4 

6 

DAD 

1-CSTH 

PL  AT  2 

COGAMAX 
BMN 
UPL  IM 


IF  OV FL , COGAMAX=COGUPL IM 

IF  NEG,  USE  FVEN  IF  IT  COGLQL IM,  SINCE 


GAP:  ASSEMBLE  .vEVISI  IN  001  JF  A GC  PRO  OK  AM  APUkOPE  BY  EYl.ES 

L COMIC  5!  IBP  OUT  I f'E 


14421 

R EF 

1 

12,3273 

25302 

1 

14422 

12,3274 

50025 

0 

nsu 

1 Ll  L 9 ^ 

n cc 

] 

1 1 06  1 

n 

I4.  S - D 

rv  L 1 

i 

1 C.  > J C.  1 . 

I J.  V J 

14424 

REF 

2 

LAST 

1194 

12, 3276 

2 5302 

1 

14425 

12,3277 

77745 

1 

UPL  IM 

DLOAD 

14 

RFF 

2 

LAST 

#94 

1 2 , 3390 

11061 

0 

144  2 7 

P EF 

2 

LAST 

1193 

12,3301 

0C017 

1 

STORE 

1443 

12,3302 

77745 

1 

MAXCOGA 

DLOAD 

1444 

REF 

9 

L AST 

1 193 

12,3503 

02732 

0 

144  5 

12 , 33C  4 

45  261 

0 

SR 

1446 

12,3305 

2 C 6 0 7 

1 

1447 

12,3306 

77626 

0 

STADP 

1448 

REF 

2 

LAST 

125 

1 2 , 3307 

61041 

0 

STODL 

1449 

REF 

1 1 

1 AST 

1188 

12,3310 

02673 

1 

1450 

12,3311 

7 1240 

1 

BM  N 

14  51 

OFF 

1 

32,3312 

2 5503 

0 

1452 

r EF 

3 

LAST 

1194 

12, 33  13 

02736 

1 

1453 

12,3314 

56352 

0 

SI  1 

1454 

REF 

13 

LAST 

1193 

12,3315 

02730 

1 

1455 

12,3316 

77600 

1 

BCV 

1456 

REF 

2 

LAST 

1194 

12,3317 

25503 

0 

1457 

REF 

1 

12,3320 

0 0011 

1 

MINCOGA 

STOr  E 

1658 

12,3321 

66214 

0 

BON 

14  5r 

REF 

3 

LAST 

688 

12,3322 

00715 

1 

1460 

REF 

1 

12,3323 

25467 

0 

1461 

REF 

3 

LAST 

1183 

1 2,3324 

00051 

0 

1462 

12,3325 

C00G1 

0 

16  63 

12,3326 

77745 

1 

DLOAD 

146  4 

REF 

6 

LAST 

119  1 

12,3327 

02766 

1 

1465 

12,3330 

77605 

1 

LAMBLQOP  DMP 

1466 

REF 

14 

LAST 

1 194 

12,3331 

02730 

1 

1467 

12,3332 

45342 

0 

SRI 

1468 

REF 

4 

LAST 

1 194 

12, 3333 

02736 

1 

! 

12,3334 

6-301 

0 

NORM 

1 

REF 

56 

LAST 

1193 

12,3335 

00047 

1 

1471 

RFF 

4 

L AST 

1 1°3 

12,3336 

02734 

0 

1472 

12,3337 

56257 

1 

SLY 

14  73 

12,3340 

20170 

0 

14  7/ 

12,3341 

53040 

0 

6MN 

1475 

RFF 

1 

12 , 3342 

25417 

1 

1'  76 

REF 

2 

LAST 

1194 

12,3343 

25417 

1 

1477 

REF 

7 

L AST 

119  1 

12,3344 

16740 

0 

STODL 

1478 

REF 

7 

LAST 

1194 

12,3345 

02766 

1 

1475 

12, 3346 

43316 

1 

DSQ 

1 

REF 

1 

12,334  7 

11045 

0 

1481 

12,3350 

41301 

0 

NORM 

1482 

REF 

57 

LAST 

1 194 

12,3351 

00047 

1 

1483 

RFF 

8 

LAST 

1 194 

12,3352 

02740 

0 

3: 15  DEC 
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USER’S  9 AG F NO.  36  E5  S3 

maxcoga 

BMN 

CCGUPLIM 

THIS  WOULD  BE  RESET  IN  LAMBLOOP 

IF  COGAMAX  GT  COGUPLIM,  COGAMAX=COGUPLIM 

MAXCOGA 

OTHERWISE  OK,  SO  GC  TO  MAXCOGA 

COGUPL IM 
COGAMAX 

COGUPL IM= .999511597  = MAX  VALUE  OF  COGA 
NOT  CAUSING  CJVFL  IN  R1A  CALCULATION 

CSTH 

DSU 

6 

CSTH-  HO 
GEONSGN 

DLOAD 

LOLIM 

CSTH-RHO 

DOV 

SNTH 

PL  AT  0 

LOLIM 

COGAMIN 

SSP 

GUESSW 

NOGUESS 

TWEEK IT 

00001 

COGA 

COGAMIN  (+5) 

SNTH 

DSU 

CSTH-PHC 

PDDL 

XI 

1-CSTH 

OD=S\*TH  COGA-(  CSTH-RHO)  (+7+C(Xl)>  PL=2 

DOV 

0 -9D , 1 

BZE 

NEGP 

NEGP 

1-CSTH  (+2)  PL  AT  0 

P 

COGA 

DAO 

01/ 1024 

OYP 

XI 

P=( 1-CSTH) /(SNTH  COGA- ( C STH-RHO ) ) (+4! 

P 


GAP 


AS  St  MOLE  REVISION  001  OF  AGC  PROGRAM  APil'R  PE  BY  EYLES 


L COMiC  SUBROUTINES 


1484 

12,3353 

44257 

1 

SR  * 

1*85 

12, 3354 

20571 

0 

1 A O/- 

O LC 

/ 

1 \ Q T 

1 1 Q 1 

1 O JOCK 

/ 1 

■”  t ! 

** 

i 1 “ 1 

I ' * D D ✓ 0 

i i g H 3 

V 

14  8 7 

REF 

11 

LAST 

1 191 

12,3366 

16742 

1 

STOOL 

14  8 8 

REF 

0 

LA.CT 

119*' 

12,3357 

02  740 

0 

1489 

12,3360 

45000 

0 

BOV 

1490 

REF 

1 

12 , 336  1 

25422 

1 

1491 

REF 

2 

LAST 

1136 

12,3362 

24767 

1 

1492 

12,3363 

7 774  5 

1 

DLOAD 

1*  9 3 

REF 

12 

LAST 

1184 

1 2 , 33  64 

00037 

0 

DPP 

1 

1 A 7 A ? 

0 

ST1  OL 

it?" 

n C 1 

-JL  " 

i c.  f D Dkj  J 

ic  i ca 

1< 

REF 

7 

LAST 

1190 

12,3366 

0C031 

0 

14°6 

12,3367 

45014 

0 

BON 

1497 

REF 

4 

LAST 

1192 

12,3370 

04310 

1 

14  98 

REF 

3 

l AST 

1106 

12,3371 

25*  1 7 

1 

1450 

REF 

3 

LAST 

1156 

12,3372 

244  21 

0 

1 RAr 

4 l 20O 

p 

Rn  v 

L C.  f ZjZj  1 D 

VJ 

DU  V 

1501 

REF 

1 

12 , 3374 

25437 

0 

1502 

REF 

4 

LAST 

1193 

12, 3375 

02671 

0 

150  3 

REF 

1 

12,3376 

02760 

1 

STORE 

150* 

12  , 3377 

4 a 246 

1 

ABS 

1505 

REF 

3 

LAST 

1193 

12, 3400 

02  7 64 

0 

1506 

12,3401 

47044 

1 

BPL 

1507 

REF 

1 

12,3402 

25506 

0 

1508 

REF 

2 

LAST 

1177 

12,3403 

2*644 

1 

1505 

12,3404 

45030 

0 

BUI  Z 

15  1 

REF 

1 

12 , 340 c 

2 5450 

l 

151  1 

REF 

1 

12,3406 

24536 

1 

1512 

12, 340  7 

63145 

1 

DLOAD 

1513 

REF 

730 

LAST 

1189 

12,3410 

00155 

0 

1514 

REF 

2 

LAST 

1195 

12,341  l 

2 545  0 

1 

15  1 5 

12,3412 

77615 

0 

CAL) 

1516 

REF 

8 

LAST 

1 1°4 

12, 3413 

02766 

1 

16  17 

REF 

9 

LAST 

1 1 ' 5 

12,3414 

02766 

1 

STOP  E 

1518 

12,3415 

77650 

1 

GOTO 

1519 

REF 

1 

12,3416 

25330 

0 

1520 

1521 

P EF 

1 

12,3417 

12,3420 

5 J 145 
00015 

0 NEGP 

0 

DLOAD 

1522 

REF 

1 

12  , 342  1 

25442 

1 

1523 

12,3422 

71201 

1 

HI  ENERGY 

SET  PD 

1524 

12,3423 

00001 

0 

1525 

REF 

10 

LAST 

1195 

12,3424 

02766 

1 

1526 

REF 

2 

LAST 

11  Q4 

12, 3425 

DOC)]  1 

1 

STORE 

1527 

12,3426 

70545 

1 

COMMONLM 

DLOAD 

1528 

REF 

2 

LAST 

1195 

12,3427 

00015 

0 
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USER'S  PAGE  NO.  37  E5  S3 

BDSU 

0 -8D, 1 

01/32 

R 1 A 

P 

CALL 

HI  ENERGY 

GETX 

R 1 A = 2 -P ( 1 + COG A COGA)  (+6) 

T 

TPREV 

X I 

CALL 

INF  INF  LG 

NEGP 

DELTIME 

BDSU 

bigtime 

TDESIRED 

TERRLAMB 

BDSU 

EPS  I LON L 

RTB 

I NT  TV 
CHECKCTR 

CALL 

SUFFCHEK 

1 TERATOP 

RZE 

MPAC 

SUFFCHEK 

COG  A 

CCGA 

L AMRLOOP 

HAVE  EXCEEDED  THEORETICAL  BOUNDS 

BPL 

OCOGA 

LOENERGY 

IMPOSSIBLE  TRAJECTORY  DUE  TO  INACCURATE 
BOUND  CALCULATION.  TRY  NEW  COGA. 

DLOAD 

HIGH  ENERGY  TRAJECTORY  RESULTED 

0 

COGA 

COGAM  IN 

SRI 

DCOGA 

TN  0 V FI  OF  P OR  R 1 A , OR  XI  EXCEEDING  50 
THIS  IS  THE  NEW  BOUND. 

GAP:  A S S ir  1 B L E EVISlDIV  0G1  OF  AGC  PR  OGi  AM  APllRQPE  BY  EYLES 

L CONIC  SUBROUTINES 


1529 

REF 

3 

LAST 

1 195 

12 , 3430 

00015 

0 

1530 

12,3431 

44254 

1 

1530  1 

REF 

3 

LAST 

1195 

12,3432 

25450 

1 

1531 

REi= 

1 1 

LAST 

11  -5 

12,3433 

02766 

1 

1532 

REE 

12 

LAST 

] 1 9 6 

12,3434 

02766 

1 

1533 

1 ? , 3^35 

77650 

1 

If  3 
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1 2 D 

0024 

X 

EQUALS 

POD 

0030 

XI 

EQUALS 

24D 

003  2 

S { X I ) 

EQUALS 

26  D 

0034 

XSQC ( XI ) 

EQUALS 

2 8 D 

0036 

T 

EQUALS 

3 OD 

004  0 

R1 

EQUALS 

3 2D 

006  2 

KEPC  1 

EQUA!  S 

34D 

0044 

KEPC2 

EQUAL  S 

36D 

0 IF  COGA  GUESS  AVAILABLE, 


1 


IF  NOT 
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Rl~ 

R 1769 
R177C 

COGA 
NORMS W 

UN 

ERASE 

ERASE 

+ 1 

+ 5 

R 1771 

vtapgtag 

ERASE 

P 1772 

TkEEKIT 

EQUALS 

■+0D 

input  only  if  guessw  is  zero. 

0 IF  UN  TO  BE  COMPUTED,  1 IF  UN  INPUT 
ONLY  USED  IF  NOKMSW  IS  1 

ONLY  USED  IF  GUESSW  IS  0 


R 1773  OUTPUT  - 

P 1774  VTAFGET  ERASE  +5  AVAILABLE  ONLY  IF  VTARGTAG  IS  ZERO. 

R 177  5 V1VEC  EQUALS  PAC 


R 1 776  DEBRIS  - 

R 1777  P TO  LWB  ERASE  +0 

R 1 778  U2  ERASE  +5 

R 1779  MAGVEC2  ERASE  +1 

R 1780  UR  1 ERASE  +5 

R 173 1 R 1 EQUALS  31D 

R 178  2 UN  EP'ASF  +*■' 

R 1783  SNTH  ERASE  +1 

R 1784  CSTH  ERASE  +1 

R 1785  1-CSTH  ERASE  +1 

R 178.0  CSTH-  R HO  ERASE  +1 

1787 


1788 

178° 


R 1790 

TWE  EK I T 

EQUALS 

40  D 

R 1791 

P 

ERASE 

+ 1 

R 1792 

COGA 

ERASE 

+ 1 

R 1793 

> 1A 

E^  ASE 

+ 1 

R 179  A 

X 

EQUALS 

20D 

R 1795 

XSQ 

EQUAL  S 

22  D 

R 1796 

XI 

EQUALS 

24D 

R 17 1 

S (XI  ) 

EQUALS 

26  D 

R 179  8 

XSQC(Xi) 

EQUALS 

28D 

R 1799 

T 

EQUALS 

30  D 

R 1800 

KEPC1 

EQUALS 

34  D 

R 1801 

KEPC2 

EQUALS 

36D 

R 1802 

R 1803 

R 1804 

SLOPESW 
SOL  NSW 
OTHERS  - 

00 1 6 

COGA MAX 

EQUALS 

140 

0010 

COGAM  IN 

EQUALS 

p D 

00 1 4 

OCUGA 

FQUA!  S 

I 2D 

CL038Ef  S 


1/MU 


R 1805  VFC 
P 180/'  VVEC 

R 1 8 0 ■ COG/ 

R 1808  R VS  k 

R 1809  3 NF INF  LG 

P1810  APSESW 
R 181  1 360  SW 

P IP  1 2 RTNTT 
R 18 1 3 ECC 
R 1814  RTNTR 


EQUALS  : 1VEC 
ERASE  +P 


EQUALS  PTNIAM8 
ERASE  +1 
EQUALS  RTNLAMB 


GAP: 

ASSEMBLE  REVISION 
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FYLES 

L 

CONIC  SUBROUTINES 

R 1815 

RTNAPSE 

EQUALS 

RTNLAMB 

R 1816 

R2 

EQUALS 

MAGVEC2 

1817 

00  30 

COSF 

EQUALS  240 

R 181  8 

RTNPRM 

ERASE 

+ 0 

R 18  IP 

SGNRDOT 

ERASE 

+ 0 

R 1820 

RDESIRED 

ERASE 

+ 1 

R 1821 

I TERATOR 

SUBROUTINE 

R 182? 

HPDEPSW 

1823 

0016 

MAX 

EQUAL  S 

14D 

1824 

0010 

MIN 

EQUALS 

8 D 

R 1825 

INDEP 

ERASE 

+ 1 

1826 

0014 

DEL  INDEP 

EQUALS 

120 

1827 

0026 

I TER  CTR 

EQUALS 

2 20 

1828 

003  6 

DEP 

EQUALS 

30D 

R 182c 

DEL.  HEP 

ER  ASF 

+■ 1 

R 1830 

OEPREV 

ERASE 

+ 1 

1831 

0050 

TWEEKIT 

EQUALS 

4 0D 

P 183  2 MURE  KEPLE! 

P 1833  EPSILONT  ERASE  +1 


R 1834  MORE  LAMBERT 

R 1 8 3 r tep.  I AMR  EQUAL  c OFLDEP 
R 1836  TP  EV  EQUALS  DEPPEV 


R 1837  EPSIIONL  EQUAL  5 EPSILLMT  +2  DOUBLE  PR  EC  IS  TCI'  ML  R D 


i 
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CLOBBERS  1/MU 
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R 0006 
R OOO7 
R0008 
R 0009 
R0C1  1 
P0013 
R 001  5 
R 001  7 
R 001  8 
3 00 1 '= 
P 002 1 
R 0023 
P 002  5 
P 0026 
R 0027 
R 00  2° 
R0031 
3 003  2 
R 0034 
R 003  5 
R 0036 
R 003  8 
R 0040 
R 0042 
R 0043 
R 0044 
R 0045 
R 0046 
3 0047 
R 0049 
R 0050 
R 005  1 
R - 

R 00  5 3 
P 005  6 
R00*7 
R 005  9 
R 006 1 
P«  006  3 
R0065 
R 0067 
R 006  9 
R 007  C 
R 007  1 
RC073 
P 0079 
P 007  4 
R 0077 
ROC  7 
R 008  1 


1.0  INTRODUCTION 


FROM  A USERS  POINT  OF  VIEW,  ORBITAL  INTEGRATION  15  ESSENTIALLY  THE  SAME  AS  THE  27’8  INTEGRATION 

PROGRAM.  THE  SAME  ENTRANCES  Tf  THE  PROGRAM  WILL  BE  MAINTAINED,  THE  SAME  STALLING  ROUTINE  WILL  BE  USED  AND 

OUTPUT  WILL  STILL  BE  VIA  THF  PUSHLIST.  THE  PRIMARY  DIFFERENCES  TO  A USER  INVOLVE  THE  ADDED  CAPABILITY  OF 

ATING  INTEGRATION  AT  A SPECIFIC  FINAL  RADIUS  AND  THE  DIFFERENCE  IN  STATE  VECTOR  SCALING  INSIDE  AND  OUT- 
SIDE THE  LUNAR  SPHERE  OF  INFLUENCE. 

IN  ORDEf  TO  make  THE  CSM ( LF M )PRE C AND  CSMfLF  ICONIC  ENTRANCES  SIMILAR  TC  FLIGHT  278,  THE  INTEGRATION  PROGRAM 
WILL  TTSELF  SET  THE  FlUAi  RADIUS  ( FINAL)  TO  0 SO  THAT  REACHING  THE  DESIRED  TIME  ONLY  -JILL  TERMINATE 
INTEGRATION.  THE  DP  REGICTER  RFINAl  MUST  BE  SET  BY  USERS  HF  INTFGRV^  AND  INTEGPV,  AND  MUST  BE  DOME  AFTER  THE 
CALL  TC  INTSTALL. 

WHEf  7 HE  LM  IS  if  THE  LUNAN  SU-.FACE  (INDICATED  BY  LUNA!  SURFACE  FLAG  SET)  CALLS  TO  LEMCONIC,  L EMP  REC , AND 
•:  TEC  V WITH  V'UFLAi  = WILL  -ESULT  IN  THE  USE  OF  THE  PL  AN ETA  Y INERTIAL  OR  I ENT  AT  I Of  SUBPOUT  INFS  TO  PROVIDE 
BOTH  THE  LMS  POSITION  AND  VFIOCITY  IN  THF  REFERENCE  COORDINATE  SYSTEM. 

THE  P AGP  A1-’  -Til  PROVIDE  OUTPUT  A ' IF  INTEGRATION  WAS  USED.  THAT  IS,  THE  PUSHLIST  WILL  BE  SET  AS  NOTED  BELOW  AND 
THE  PERMANENT  STATE  VECTOR  UPDATED  WHEN  SPECIFIED  BY  AN  INTEGRV  CALL. 

USERS  OF  1 NYEGRVS  DESi  I ,S  I NT EG!  AT  I ON  { IN~ YPFLG  = ,)  SHOULD  NOTE  THAT  THE  OBLATENESS  PERTURBATION  COMPUTATION 
l"  I Ur. A1-  ORBIT  IS  TIME  DEPENDENT.  THEREFORE,  THE  USER  SHOULD  SUPPLY  AN  INITIAI  STATE  VECTGR  VALID  AT  SOME  REAL 
TIME  AND  THE  DESIRED  TIME  I T DEC  1 ) ALSO  AT  SOME  TEAL  TIME.  FT"'  CONIC  , , I NTEGRAT ION , , THE  USFP  MAY  STILL  USE  ZERO 
AS  THE  INITIAL  tf ME  AND  DELTA  TIME  AS  THE  DESIRED  TIME. 

2.0  GENERAL  DESCRIPTION 


THE  IN'1  EGRATini  P r'GL  Vs  1 L’E!TATE‘  A , A C L ( 5 E D INTERPRETIVE  SUBROUTINE  AND  PERFORMS  THESE  FUNCTIONS 

1)  INTEGRATES  (PRECISION  nt  CONIC)  EITHER  CSM  OK  LM  STATE  VFCTOR 

2)  INTEGRATES  THE  W-^ATFIX 

3)  PERMANENT  F TEMPO;'  ARY  UPDATE  OF  THE  STATE  VECTOR 


THE' E A E SIX  FNV " AKCF  S To  THE  I ! Y EGRAT I ON  PROGRAM.  FOUR  OF  THESE  (CSMPPEC,  L EMPf  EC , CSMCONTC,  LEMCONIC)  SET 
ALL  THE  FLAGS  R LOU  II  CO  I THE  INTEGRATION  PPR'GKAM  ITSELF  TO  CAUSE  THE  PRECISION  OR  CONIC  INTEGRATION  (KEPLER)  OF 
THE  LM  OR  CSM  STATR  VEC  t0R  , AS  7 H E NAME'S  SUGGEST.  ORE  ENTRANCE  ( I NT  EG-'  VS  ) PEWITS  THE  CALLING  PROGRAM  TO 
PROVIDE  A STATE  VECTOR  TO  BE  INTEGRATED.  THE  CALLING  PROGRAM  MUST  SET  THE  FLAGS  INDICATING  (1)  PRECISION  OR 
COMIC  INTEGRATION,  (2)  IN  OR  OUT  OF  LUNAR  SPHERE,  (31  MIDCOURSE  OR  NOT,  AND  THE  INTEGRATION  PROGRAM  COMPLETES 
THE  FLAG  SETTING  '0  BYPA.S  W-MAT,  IX  INTEGRATION.  THE  LAST  ENTRANCE  (INTEGRV,  USED  IN  GENERAL  BY  THE 
NAVIGATION  PROGRAMS)  PERMITS  THE  CALLE7  TO  SET  FIVt  FLAGS  INC  T MOQNF LAG  OR  MIDFLAG)  BUT  NOT  TO  INPUT  A STATE 
VECTOR.  ANY  PROGRAM  * H I C H CALLS  INTEGRVS  OR  INTEGRV  MUST  CALL  INTSTALL  BEFORE  IT  SFTS  THE  INTEGRATION  FLAGS 
AND/OR  STATE  VECTrV. 


THREE  SETS  OF  42  REGISTERS  AMD  2 FLAGS  APE  USED  FU  THE  STATE  VECTORS.  TWO  SETS,  WHICH  MAY  NOT  BE  OVERLAYED,  ARE 
1 ED  ! THE  PERMANENT  STATE  VECTORS  FOR  THE  CSM  AND  LM.  THE  THIRD  SET,  WHICH  MAY  BE  OVERLAYED  WHEf:  INTEGRATION 
IS  NOT  BEING  DONE,  IS  USED  IN  THF  COMPUTATIONS. 


“HE  PERMANENT  STATE  VECTORS  WILL  BE  PERIODICAL! Y UPDATED  SO  THAT  THE  VECTORS  WILL  NOT  BE  OLDER  THAN  4 TIMESTEPS. 
THE  PERMANENT  STATE  VECTORS  WILL  ALSO  BE  UPDATED  WHENEVER  THF  W-MATRIX  IS  INTEGRATED  OR  WHEN  A CALLEF  OF  INTEGRV 
SETS  STATEFLG  (THE  NAVIGATION  PROGRAMS  P20,  P22.) 
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R 008  2 
R 0083 
R 008  A 
r' 

R 008  6 
R008  8 
R 0090 
R 00°  2 
R 0094 
R0096 
R0097 
R 00' ■ R 
R 009° 
R0100 
R 0 1 0 1 
R0103 
R 01 0 5 
R 01 07 
R010c 
R0110 
R 0 1 1 1 
R 01 1 2 
R011 3 
R011*- 
R 0 1 1 r 
R0117 
R011  9 
R0121 
R 012  2 
R 0 1 2 3 
R0124 
R0125 
R0126 
R0127 
R 01 2 8 
R 01 2 9 
R 01  30 
R 0 1 3 1 
R0132 
R 0 1 3 3 
PO 1 3 * 
R 0 1 3 * 
R 0 1 36 
R 01  37 
R0138 
R 0 1 3 
R Ol'-  f 
R01<  1 
R 0 1 42 
R 0 1 43 


INTEGRATION  IHI T I ALTZATJ Of  USER'S  PAGE  NO.  2 EG  S3 

APPENDIX  B OF  THE  USERS  GUIDE  LISTS  THE  STATE  VECTOR  QUANTITIES. 

2.1  RESTARTS 

PHASE  CHANGE"-  Will  BE  MADE  TN  THE  INTEGRATION  Pf-CGFAM  ONLY  EOF.  THE  IN  TEG*"  V ENTRANCE  (I.E.,  WHEN  THE  W-MATRIX  IS 
I iT  EG"  AT  E D 0^  PERMANENT  STATE  VECTOR  IS  UPDATED.)  THE  GROUP  NUMBER  USED  WILL  BE  THAT  FOR  THE  P20-26  PROGRAMS 
(I.E.,  l)  SINCE  THE  INTEGRV  ENTRANCE  WILl  ONLY  3E  USED  BY  THESE  D - AMS.  IF  A RESTART  OCCURS  DURING  AN 

INTEGRATION  OF  THE  STATE  VECTOR  ONLY,  THE  RECOVERY  WILL  BE  TO  THE  LAST  PHASE  IN  THE  CALLING  PROGRAM.  CALLING 
PROGRAMS  WHICH  USE  THE  INTEGRV  OR  1NTEGRVS  ENTRANCE  OF  INTEGRATION  SHOULD  ENSURE  THAT  IF  PHASE  CHANGING  IS  DONE 
THAT  II  IS  PRIOR  TO  SE7TloS  THE  INTEGRATION  INPUTS  IN  THE  PUSH!  1ST. 

THIS  IS  BECAUSE  THE  PUSHL 1ST  IS  LOST  DURING  A RESTART. 


2.2  SCALING 


THE  INTEGRATION  ROUTINE 
APPENDIX  3 OF  THE  USERS 
SYSTEM  AT  THE  DESIRED  I 
MiJlflPLE  TIMFSTEP  EMC  IN- 
DIFFERENT SCALING. 
HOWEVER,  RATT,  VATT  WILL 


WILL-  MAINTAIN  THE  PE!  - MANE  N I MEMO*  Y TATE  VECTORS  IN  THE  SCALIN 
GUIDE.  THE  SCALING  OF  THE  OUTPUT  POSITION  VECTOROEPENDS  ON  THE 
NTEGRAT ION  TIME.  THE  COORDINATE  SYSTEM  TRANSFORMATION  WILL  BE 
tMTPp"  A"  TON  ONLY.  THUS  T T 1,  POSSIBLE  T HAVE  OUTPUT  F F 0 M SUCC 

ALWAYS  BE  SCALED  THF  SAME. 


G AND  UNITS  DEFINED  IN 
ORIGIN  OF  THE  COOP  DINA TE 
DONE  AUTOMATICALLY  ON 
ESSIVE  INTEGRATIONS  IN 


3.0  INPUT /OUTPUT 


PROGRAM  INPUTS  ARE  THE  FLAGS  DESCRIBED  IN  APPENDIX  A AND  THE  PERMANENT  STATE  VECTOR  QUANTISES  DESCRIBED  IN  AP- 
PENDIX B OF  THE  USER  S GUIDE,  PLUS  THE  DESIRED  TIME  TO  INTEGRATE  TO  IN  TDECl  (A  PUSH  LIST  LOCATION). 

F I NTEGRVS , THE  CV.VCV,  TET  >F  THE  TEMPO! -ARY  STATE  VECTOR  MUST  BE  SET,  PLUS  MOONE I A G AND  MIDFLAG 

FOR  SIMULATION  THE  FOIL*  >1  *G  QUANTITIES  MUST  BE  PRESET 


EARTH  NOON 


29  27 

RRECTCSM1 LEM)  - RECTIFIED  POSITION  VECTOR  METERS  2 2 

7 5 

VRECICSM(LEM)  - RECTIFIED  VELOCITY  VECOR  O/CSEC  2 2 


28  28 

TETCSM(LEM)  - TIME  STATE  VECTOR.  IS  VALID  CSEC  2 2 

CUSTOMARILY  0,  BUT  NOTE  LUNAR 
ORBIT  DEPENDENCE  ON  REAI  TIME. 


DEL  TAVCSMt  I EM ) - POSITION  DEVIATION 
0 IF  TCCSM(LEM)  = 0 


22  18 
METERS  2 2 


NUVCSm(LEM)  - VELOCITY  DEVIATION 
0 IF  TCCSM(LEM)  = 0 


3 -1 

M/CSEC  2 2 


GAP 
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R0144 
R 0 1 4 5 
R014(. 
R 0147 
R 0 ] c 
R 0 1 4 ° 
R 01 50 
R0151 
R 0 1 52 
R 0153 
R 0 1 5 1 
R 01 55 
R 0 1 5 6 
R0157 
R 0158 
R 015c 
ROlbC 
R 0161 
R0162 
R 01 63 
R0164 
R016  5 
R 01 A ' 
5 0167 
R 01 68 
R 01 6? 
R 0 1 7 0 
R017] 
R 0 1 7 2 
R 0 1 7 3 
R 0174 
R 0 175 
R 01 76 
R 0177 
R 0 1 7 8 
R C17T 
R 0 1 8 0 
R 018  1 
R 0 1 8 2 
R 0 183 
P 0184 
P 01 3 c 
R 0 1 8 6 
R 0187 
R 0188 
R 0189 

R0150 

R 0 1 p 1 
R 0192 
R 01-  3 


29 

RCVCSM (LEM ) - CONIC  POSITION  METEFS  2 

EQUALS  RRECTCSMt LEM)  IF 
TCCSMLEM)  = 0 

7 

VCVCSM ( L EM ) - CONIC  VELOCITY  M/CSEC  2 

EQUALS  VRECTCSMCLEM)  IF 
1 CCS'  - ( I EM)  =0 


TCCSM(LEM)  - TIME  SINCE  RECTIFICATION 

CUSTCMAPTLY  0 


xn  pc  m(le«  ) 


FOOT  OF  KEPLERS  EQUATIOT 
0 IF  TCCSMd EM)  = 0 


28 

C5ECS  2 


1/2  17 

M 2 


CMC  CNF  LG 
CMI DFL AG 
L MO CNF  LG 
l MI DFL G 


- PERMANENT  FLAGS  CORRESPONDING 
TO  MCONFLAG  AND  MIDFLAG 
C = CSM,  L = LM 


0 

0,  1 

0 

0,1 


SUP FFL AG 


LUNAR  S Uc  FACE  FLAG 


0,  1 


IN  ADDITION,  IF  ( L ) CMI DFL AG  IS  SET,  THE  INITIAL  INPUT  VALUES  FOF 
SDL  AF  EPHEMEP I DES  SUBROUTINE  AMD  PLANETARY  i MEE  T I AL  ORIENTATION 
ROUTINE  MUST  BE  PRESET. 


OUTPUT 

AFTER  EVERY  CALL  TC  INTEGRATION 


EARTH 

29 


OD 

-ATT 

POSITION 

METERS 

2 

6 D 

VATT 

VELOCITY 

M/C  E EC 

7 

2 

1 2D 

TAT 

TIME 

28 

2 

14D 

R ATT  l 

POSITION 

METERS 

29 

2 

POD 

vatti 

VELOC I tv 

M/CCEC 

7 

2 

26D 

MU  ( P ) 

MU 

3 2 

M /CS 

36 

2 

XI 

MUTABLE  ENTRY 

-2 

X2 

COOPDINT 

X2 

COORDINATE  SYSTEM  ORIGEN 

0 

(THIS,  NOT  MOONFLAG,  SHOULD  BE 


27 

2 


5 

2 


28 

2 


16 

2 


0 

0,1 

0 

0,1 

0,1 

LUNAR 

SUB- 


MOON 

29 

2 

7 

2 

28 

2 

27 

2 

5 

2 

30 

2 

-10D 


2 


EO  S3 


I 


f 
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R 0194 
R 019  5 
R 019E 
R 0 1 9 7 
R019B 
R 0 1 9 c 
R 0200 
R02Q1 
R0202. 
R 0203 
P.0204 
R 0205 
R 0206 
R 0207 
R 020  8 
R 020c 
R 02 1 ^ 
P 0211 
R0212 
R 021 3 
R 02 1 ^ 
R 02  1 5 
R0216 
R 02 17 
R 02 1 8 
R 02 1 r 
R 0220 
P 022  1 
R 022  2 
R 022 3 
R 022  4 
R 0225 
R 0 2 2 6 
R 0227 
R 022  8 
R 022c 
R023C 
R 023  1 
R023? 
R 023  3 
R 0234 
R 023  1 
R 023  6 
R 0237 
R 023  8 
P 023c 
R 0240 
R 024  1 
R 0242 
R 0243 


USED  TO  DETERMINE  ORIGIN.) 

IN  ADD!  Tl  ON  T 3 THE  ABOVE,  I HE  .PERMANENT  ST  A I E VECTOR  IS  UPDATED  WHENEVER 
S TATEFLG  WAS  SET  AND  -It'. 'TV  El  A '--MATRIX  IS  TO  BE  INTEGRATED.  THE  PUSH 
COUNTER  IS  SET  TO  0 AND  iVERFLOV  IS  CLEARED  BEFORE  RETURNING  TP  THF 
CALLING  PROGRAM. 

4.0  CALLING  SEQUENCES  AND  SAMPLE  CODE 


A)  PRECISION  ORBITAL  INTEGRATION.  C SMPR EC , LE M PP EC  ENTRANCES 

L-X  STOPF  TIME  TO  95T#7#1T5  T 05  PUS  l^ST  (T4531) 

L CALI 

L + l CSMPREC  (OP.  LEMPREC) 

L + 2 LETUP:. 

INPUT  28 

TDEC1  ( PD  320)  TIT  T'J  I < ;tEGR  ATE  TU.  ..  CENT  I SECONDS  SCALED  2 
OUTPUT 

THE  DATA  LISTED  IN  SECTION  3.0  PLUS 

RQVV  POSITION  VECTOR  OF  VEHICLE  WITH  RESPECT  TO  SECONDARY 
BODY...  METERS  5—2 9 ONLY  IF  MIDFLAG  = DIMOFLAG  = I 

B)  C J si  T C INTEP>  AT  I C ’ . CSMCONTC,  LEV.  CONIC  ENTRANCES 

L-X  ST f F TIT  IN  PUSH  LIST  (T0EC1) 

L CALL 

L + l C SMC  ON  I C (OR  LEMCONIC) 

INPUT/OUTPUT 

SAP  E AS  PRECISION  INTEGRATION,  EXCEPT  I QVV  NOT  SET 

C)  INTEGRATE  GIVI1  STATE  VECTOR  . INTEGPVS  ENTRANCE 

CALL 

T NT ST AL L 

VLOAD 

POSITION  VECTOR 
STOVL  rev 

VELOCITY  VECTOR 
ST DDL  VCV 

f T ME  STATE  VECTOR  VAL  T D 
STODL  TET 

FINAL  RADIUS 
STORE  F FINAL 
SET (CLEAR  ) SET ( CL EAF  ) 

INTYPFLAG 
MO ON FLAG 

S FT  ( CL  E At  ) DLOAD 

DESIRED  TIME 
STCAI.L  TDEC1 

TNTEGRVS 


INPUT 
RC  V 
VCV 
TET 


POSITION  VECTOR  METERS 

VELOCITY  VECTOR  M/CSEC 

TIME  OF  STATE  VECTOR) MAY  = 0)  CSEC  B-28 


1” 
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R 0244 
R 024  5 
R 0246 
R 0 2 4 7 
R 02  4 f 
R 0240 
P 0250 
R 02  5 2 
R 025  3 
R02  5/ 
R 0255 
P 0256 
R 0257 
R 0258 
R 0259 
R 0250 
R 024  1 
R026? 
R 0263 
R 0264 
R02w  .3 
R0266 
R 026  7 
R 

R 026° 
R 0270 
R 0 2 7 1 
R 0272 
R0273 
R 027  4 


TDEC1  "IMF  TO  INTEGRATE  TO  CSEC  B-28  (PD  32D) 

(MAY  BE  INCREMENT  IF  TET=G) 

OUTPUT 

SAME  AS  Fro  ORFCISICN  OF  CONIC  INTEGRATION, 

DEPENDING  ON  INTYPFLG. 

D)  TNT  EGR  ATE  <TATf  V F C T 0 D . I N T G R V FN TRANCE 

L-X  STOFE  TIME  IN  PUSH  (1ST  ( TDEC 1 ) ( MAY  BE  DONE  AFTER  CALL  TO 


L-8 


1-7 

0 — 6 
1-5 
L - A 
L-3 
L-2 
L-l 
( 

I +1 

L + 2 
L + 3 
L+4 


SET (CL  E A - ) 


SET (CLEAR  ) 


SET 


STCAl L 


SET (CLEAR  ) 
VlfiTFL  AG 
INTYPFL AG 
SET (CLEAR ) 
DI MQFL  AG 
D6GR9FLG 
01.  DAD 
ST AT EF LG 
FINAL  RAD. 
RFINAL 
I NT EGR V 


1 = C5  I,  0 - L M 
1=C0HIC,  C = PP  EC  I SION 


1=W— MAT  IX,  C=NO  W-MATRIX 
1=9X9,  0=6X6 

DEI  T - t '-’Or  MAHEA  F UPDATE 
OF  STATE  VECTOR 


L CALL  NORMAL  USE — WILL.  UPDATE  STATE 

L + 1 Tr,  -EG.  V V E C T i ■'  P if  DI  FL  AG=  1 . ( ST  AT  EFL  G IS 

L+2  ETLI;  ALWAYS  c ESET  IN  INTEGRATE  N AFTER 

IT  IS  USED.) 

INPUT 

TDEC1  (PD  3 2 D ) TIME  TO  INTEGRATE  TO  CSEC  B-28 
OUTPUT 

SAME  AS  FDR  PRECISION  U‘-  CUN!  C INTEGRATION 
THE  PROGRAM  WILL  SET  MOONFLAG,  MIDFLAG  DEPENDING  ON 
THE  PERMANENT  r"ATP  VECTOR  REPRESENTATION. 


INTSTALL) 


02741 

11 ,2376 

BANK 

11 

02742 

REF 

LAST 

23  6 

i t . jnn n 

c cti  nr 

TMTI  IvlT  T 

i.  > * ' u , u 

o is  I L U U 

i h * i 'Mi  { 

0274  3 

13,2604 

BANK 

02746 

8 EF 

— 

LAST 

9 8 3 

£3,1854 

EBANK= 

RRECTCSM 

02  74  5 

REF 

7 

L AST 

23  6 TO 

2 39 : 

34 

36* 

COUNTS 

$$/i  it t r 

0275 

REF 

105 

LAST 

1153 

13,2604 

0 5353 

1 

STATE  IN T 

TC 

PHASCHNG 

0276 

13,2605 

00052 

0 

OCT 

00052 

Q277 

REF 

10 

LAST 

731 

13,2606 

3 5017 

1 

CAF 

PR  I 05 

0278 

REF 

41 

LAST 

966 

13, 2607 

0 4103 

0 

TC 

FIMDVAC 

027  ° 

REF 

3 

LAST 

120Q 

E 3 , 15  5 4 

EBANK= 

F R-EC1  CSM 

0280 

r>  E F 

2 

t AST 

240 

13,2^10 

02613 

1 

2 C A Q 3 

STAT  T NT  1 

0280 

13,2611 

26063 

0 

0281 

REF 

72 

LAST 

1132 

13,2612 

0 5261 

1 

TC 

T ASKQVFF 

0282 

REE 

229 

LAST 

1 1 90 

13,2613 

0 60  3 7 

0 

STATS' 11 

TC 

INTPRET 

02 '8  3 

13,2614 

4 7014 

1 

BON 

RT8 

02  s 3 1 

REF 

2 

LAST 

2 98 

13,2615 

04712 

1 

OU I TEL AG 

02«3  2 

REF 

1 

13,2416 

266  5 3 

0 

NOINT 

0284 

REF 

31 

LAST 

979 

13,2617 

21573 

0 

LCADT I ME 

0286 

REF 

55 

LAST 

976 

13,2620 

0 0 C 4 1 

1 

STORE 

T0EC1 

KILL  INTEGRATION  UNTIL  NEXT  POO. 


> 


» 

» 


2" 


GAP:  ASSEMBLE  REVISION  001 


EF  AGC  PREGRAM  API  IK  OPE  BY  EYLES 


L INTEGRATION  INITIALIZATION 


0323 
032  A 
032  5 

REF 

28 

LAST 

1153 

13.262 1 

13.2622 

1 3 , 262  3 

77624 

27414 

45014 

1 

0 

0 

CAL  L 

SET 

INTSTALL 

CALL 

03251 

REF 

4 

LAST 

236 

13,2624 

01076 

1 

NCOOFL AG 

0326 

P EF 

7 

LAST 

583 

13,2625 

26644 

0 

SET  I FLGS 

0327 

1 3,2626 

77650 

1 

GOTO 

0328 

n EF 

1 

13,2627 

26026 

1 

STATEUP 

0356 

13,2630 

00003 

1 

600SECS 

2DEC 

60000 

0356 

1 3.2631 

2 5140 

Q 

JL  J 1 — ■-  J i. 

0404 

1 7,2632 

774  1 i 

0 

ELD I NT 

CLEAR 

EXIT 

0405 

REF 

4 

LAST 

583 

13,2633 

01672 

0 

STATER  G 

0408 

RFf 

104 

1 APT 

1 2r  r 

13,243 4 

0 c'353 

TC 

puAcrHMP 

0409 

1 3, 2635 

20032 

1 

OC  T 

20032 

041  1 

13,2636 

0 0006 

1 

EXTEND 

0412 

r ef 

2 

LAST 

2 39 

1 3, 2637 

3 2631 

DC  A 

6 0 0 S F f s 

0413 

REF 

4 

LAST 

734 

13,2640 

0 5277 

0 

TC 

LCNGC  AI.L 

0414 

REF 

4 

LAST 

297 

E3, 1626 

E B A NK  = 

: RRECTHIS 

0415 

REF 

3 

LAST 

239 

13,2641 

02  6 04 

1 

2CADR 

STATE!  LIT 

0415 

13,2642 

26063 

0 

0416 

P.  EF 

144 

LAST 

975 

13,2643 

0 5155 

0 

TC 

ENDCFJOB 

Q42o 

13, 264  £ 

43014 

0 

SET  I FLGS 

SET 

CLEAR 

0427 

REF 

5 

LAST 

1210 

13,2445 

01472 

1 

ST  AT  EEL G 

0428 

REF 

15 

LAST 

7 87 

13,2646 

0 1 fc  7 3 

1 

INTYPFl G 

0425 

13,2647 

43014 

0 

CLEAR 

CLEA^ 

0430 

REF 

14 

LAST 

656 

13 , 2650 

01676 

1 

DIMOFLAG 

04301 

REF 

8 

LAST 

583 

13,2651 

01675 

1 

D60R9FLG 

04302 

13,2652 

7 7616 

0 

RVQ 

04303 

13,2653 

77  776 

1 

NO  IN  r 

EXIT 

04304 

REF 

107 

LAST 

1210 

13,2654 

0 53  5 3 

1 

TC 

PHASCHNG 

04305 

13,2655 

00  00  2 

0 

OCT 

00002 

04306 

REF 

90 

LAST 

980 

13,2656 

0 5 516 

0 

TC 

DOWNFLAG 

04307 

REF 

3 

LAST 

1209 

13,2657 

002  21 

u 

AD;<ES 

QUITFLAG 

043C8 

REF 

145 

LAST 

12  10 

1 3,2660 

0 5155 

0 

TC 

END OF JOB 

P 043  1 

ATOPCSM 

TRANSFERS  - E E C T TO  BP 

EOT  +41 

TO 

t;  B EC  TC  SM 

TO  PR  EC  TC  SM  +41 

R 0432 

CALI 

. ING 

SEQUENCE 

R 0433 

1 TAM 

R 0434 

1 

+ 1 

ATOPCSM 

R0A35 

NORMAL  EXIT  AT 

' t +2 

0436 

13, 2661 

47020 

0 

ATOPC  SM 

STQ 

RTB 

0437 

REF 

27 

LAST 

1189 

1 3, 2662 

00051 

0 

S 2 

0438 

REF 

2 

LAST 

1 1 57 

13, 2663 

26  674 

0 

MOVE ACS M 

043° 

13, 2664 

45014 

0 

SET 

CALL 

0440 

REF 

7 

LAST 

71  1 

13,2665 

04063 

0 

C MOONFLG 

0441 

REF 

3 

LAST 

11  57 

13,2666 

26114 

1 

S VDWN1 

0442 

13,2667 

43014 

0 

BON 

CLRGO 

3:15  DEC.  2, 

1970 

SK  IPPER 

.087  PAGE 

USER*  S 

PAGE 

NO.  6 

E3  S3 

ASSEMBLE  REVISIO*  O'l  me  AGC  Pa  UGR  A M APllFOPE  BY  EYLES 


GAP: 

L INTEGRATION  INITIALIZATION 


0443 

REF 

14 

LAST 

787 

13,2670 

003  0 3 

1 

MOONFL AG 

0444 

REF 

28 

LAST 

1210 

13,267  1 

00051 

0 

S2 

0445 

REF 

LAST 

1210 

13,2672 

0 

CMOQNFLG 

L *t  C.  c D 

0446 

REF 

29 

LAST 

1211 

13, 2b73 

00051 

0 

S 2 

04  4 7 

REF 

1 

13,2674 

0 3036 

1 

MOVEACSM  TO 

SETBANK 

044  P 

»EF 

2 

LAST 

110 

13,2674 

55*500 

1 

TS 

DIFEQCNT 

0449 

REF 

3 

LAST 

1211 

13,2676 

51 ' 500 

0 

INDEX 

DIFEQCNT 

0450 

REF 

6 

LAST 

1174 

13,2677 

3 1 5:02 

1 

CA 

PRECT 

0451 

REF 

4 

LAST 

1211 

1 3 , 2 70G 

5] ' 500 

0 

INDEX 

DIFEQCNT 

045  2 

REF 

o 

LAST 

1209 

13,270 1 

55*554 

0 

TS 

r PECTCSM 

0453 

RFF 

c 

LAST 

1211 

13,2702 

1 1 ' 500 

1 

CCS 

DIFEQCNT 

0454 

REF 

3 

L A S T 

1210 

1183 

13 . 2703 

13.2704 

1 2675 
0 6061 

0 

0 

Tr  f 

"OVEACSN 
DANZ  IG 

0455 

REF 

56 

LAST 

i r 

TC 

R0456 

PTOACSM 

TRANSFERS  F PECTCSM  TO 

V<  FCTCSM 

+4  1 in  elect  to 

RRECT  +41 

R 0*  5 7 

CALL  TNG 

s equemce 

R 045  8 

L 

CALL 

R 0459 

PTOACSM 

R 046  0 

NORMAL  1 

EX  I T AT 

1+2 

0461 

13,2  7 0 5 

43034 

1 

PTOACSM 

LTB 

BON 

0462 

REF 

2 

LAST 

1147 

13,2706 

26723 

0 

MPVEPCSM 

0463 

REF 

9 

LAST 

1211 

13,2707 

04303 

0 

CMOONFLG 

0464 

REF 

1 

13,2710 

26716 

0 

SETMOON 

0465 

13,2711 

66  2 1 4 

0 

CLP MO ON 

CLEAR 

SSP 

04  46 

REF 

1 6 

LAST 

1211 

13,2712 

0 0263 

0 

MCONFl.  AG 

0467 

REF 

4 

L AST 

1 1 5 6 

13,2713 

U2031 

1 

PBODY 

06  6 8 

13,2714 

00000 

1 

0 

0469 

13,2715 

77616 

0 

RVQ 

0470 

13,2716 

6 6 214 

0 

SETMOON 

SET 

SSP 

0471 

REF 

16 

LAST 

1211 

13,2717 

00  0 63 

1 

MOONFLAG 

0472 

r<  e f 

5 

LAST 

1 211 

13,2720 

02031 

1 

PBODY 

0473 

13,2721 

00002 

0 

2 

0474 

13,2722 

77616 

0 

RVQ 

0475 

REF 

2 

LAST 

1211 

13,2723 

0 303b 

1 

MOVE  PC  SM 

TC 

SETBANK 

0476 

REF 

6 

LAST 

1211 

13,2724 

55  *500 

1 

TS 

DIFEQCNT 

0477 

REF 

7 

LAST 

1211 

13,2725 

1 ' 500 

0 

INDEX 

DIFEQCNT 

047  8 

REF 

10 

LAST 

1211 

13,2726 

3 1554 

1 

CA 

FRECTCSM 

0475 

RFF 

8 

LAST 

1211 

13,2777 

51 ' 500 

0 

1NDFX 

DIFEQCNT 

0480 

REF 

7 

LAST 

121  1 

13,2730 

55 ' 502 

0 

TS 

G R E CT 

0481 

REF 

9 

LAST 

1211 

13,2731 

11  * 500 

1 

CCS 

D IFEQCNT 

0482 

REF 

3 

LAST 

1211 

13,2732 

1 2724 

0 

TC  F 

MOV E PCS M 

048  3 

RE  F 

57 

LAST 

1211 

13,2733 

0 6061 

0 

TC 

DANZIG 

R 0486 

ATOPLFM 

TRANSFERS  R 

RFCT  TO  RRECT  +41 

TO  RRFCTLEM 

1 TO  R RFC  TEEM  +64 

048  5 

13,2734 

47020 

0 

ATCPL  EM 

STQ 

RTB 

3:15  DEC 


2 * IS  70  SKIPPER  .087  c>AGE  1211 


USER'S  PAGE  NO.  7 


INITIALIZE  INDEX 


+ 1 


IS  TRAN SEE;  COMPLETE 
MO-LOOP 

COMPLETE-  RETURN 


+ 1 


E3  S3 


AP  : ASSEMBLE  RE  VISION  001  OF  AGC  PROGRAM  APllROPE 

INTEGRATION  INITIALIZATION 

0486  REF  30  LAST  1211  13,2735  00051  0 

0487  REF  3 LAST  1156  13,2736  26747  1 

o o o i -a  _ -j -7  -a  -?  tR/m.  n 

BY  EYLES 

vF  T 

*•  T i 

l 

o « * 

0489 

REF 

3 

LAST 

576 

13,2740 

0A064 

1 

0490 

REF 

2 

LAST 

1 1 p 6 

13,274  1 

2 6070 

1 

04°  1 

13,2742 

43014 

0 

BON 

0492 

RFF 

17 

LAST 

1 21  1 

13,2743 

00303 

1 

0493 

REF 

31 

LAST 

1212 

13,2744 

00051 

0 

04  94 

REF 

4 

LAST 

1212 

13,2745 

04224 

1 

0495 

REF 

32 

LAST 

1212 

13,274fe 

00051 

0 

0496 

REF 

3 

LAST 

1211 

13,2747 

0 3036 

1 MO VEAL  EM  TC 

049  7 

REF 

1 0 

LAST 

1211 

1 3 , 2 750 

55 '500 

1 

TS 

04Q8 

REF 

1 1 

LAST 

1212 

13,2751 

51 ' 500 

0 

INDEX 

04  9Q 

REF 

8 

LAST 

1211 

13,2752 

3 1502 

1 

CA 

0500 

REF 

12 

LAST 

1212 

13,275  3 

51*500 

0 

INDEX 

0501 

REF 

2 

L AST 

1 1 1 

1 3, 2754 

55*626 

0 

TS 

0502 

REF 

1 3 

LAST 

1212 

1 3 , 27c 5 

1 1 ' 500 

1 

CCS 

0503 

9 EF 

4 

L a c T 

1 2 1 2 

1 3 , 2756 

1 2750 

o 

TC  F 

0504 

REF 

58 

LAST 

1211 

13,2757 

0 6061 

0 

TC 

R 0509 

PT”ALEM 

transfers 

FRECTLEM  TO 

M ECTl.EM 

+4  1 T 0 i.  REC1  ID 

0506 

1 3,2760 

47016 

1 

PTPAI  EM 

BOM 

0507 

REF 

1 6 

last 

843 

13,2761 

04307 

1 

0508 

REF 

1 

13,2762 

27001 

0 

0509 

REF 

2 

LAST 

1156. 

13,2763 

26  7 70 

0 

0510 

13,2764 

‘ 2 C 1 •• 

0 

BON 

0511 

REF 

5 

LAST 

1212 

13,2765 

04304 

1 

0512 

REE 

2 

LAST 

1211 

13,2766 

26716 

0 

0513 

REF 

1 

1 3,2767 

26711 

1 

0514 

REF 

4 

LAST 

1212 

13,2770 

0 3036 

1 

MOVEPLEM 

TC 

0515 

REF 

14 

LAST 

1212 

13,2771 

55 ' 500 

1 

TS 

05  16 

REF 

15 

LAST 

1212 

13,2777 

51 ' 500 

0 

INDEX 

0517 

REF 

3 

LAST 

1212 

13, 2773 

3 162  6 

1 

CA 

0518 

REF 

16 

LAST 

1212 

13,2774 

51 ' 5 49 

0 

INDEX 

0519 

REF 

9 

LAST 

12  12 

13,2775 

55 '502 

0 

TS 

0520 

REF 

17 

LAST 

12  l 2 

13,2776 

11 ’ 500 

1 

CCS 

0521 

REF 

3 

LAST 

1212 

13,2777 

1 2771 

0 

TCF 

0522 

REF 

59 

LAST 

1212 

13,3000 

0 6 061 

0 

TC 

0523 

13,3001 

77201 

1 

USER  IQS  SETPD 

0524 

13,3002 

00001 

0 

0525 

REF 

15 

LAST 

1139 

13, 3003 

02023 

1 

0526 

13,3004 

415  2 5 

0 

PDDL 

0527 

REF 

56 

LAST 

1209 

13,3005 

00041 

1 

052  8 

REF 

13 

LAST 

787 

13 , 300  6 

15517 

0 

STOOL 

0529 

REF 

1 

13,3007 

27712 

0 

0530 

1 3, 3010 

77624 

1 

CALL 

3:  15  DEC.  2,1970  SKIPPED  .087 
USER'S  PAGE  NO,  8 


S 2 

MOVE AL EM 
CALI 

L MO CNF LG 
SVDWN2 
CLRGO 
MOONFLAG 
S 2 

LMOQNFLG 
S 2 

SET8AMK 
DIFEOCNT 
DIFEQCMT 
RRECT 
0 IFEQCNT 
RRECTLEM 
D IFEQCNT 
MOVEALE-  +1 
DANZ  IG 


: P E C T +01 


c TB 

SURFFLAG 
USE  PI  OS 
MOVE  PL  E M 
GOTO 

L MOO NFL 6 
SETMOON 
CLRHCON 
SETBAMK 
U IFEQCNT 
DIFEQCN" 
RRECTLEM 
D IFEQCNT 
RRECT 
D IFEQCNT 
MOVEPLFM  +1 
DANZ  IG 


V LOAD 
0 

RLS 
PUSH 
T DEC  1 
TET 

5/a 


PAGE  1212 
E 3 S3 


GAP: 


0531 

0532 
05  3 3 

0534 

0535 

0536 

0537 
0535 

0538 

053  0 
0540 

054  1 

0542 

0543 

0544 

0545 

0546 

0547 

0548 

0549 

0550 
05  3 2 

0553 

0554 

0555 

0556 

0557 


R055  P 

80560 

80561 
P.0563 
R 0564 
P 0565 
R 0567 
R 

R0569 
R 0570 
R 057  1 
P 0572 
R 057  3 
R 0 5 7 4 


R 0575 
ROT  76 
R 0577 


ASSEMBLE  REVISION  <4.-1  OF  AGC  fvXGKAM  AP11RUPE  BY  EYLES 


INTEGRATION  I M I T I ALIZATICN 


PEF  7 
REF  16 
REF  2 

REF  14 

REF  2 


REF 

REF 


REF 

REF 

REF 

REF 

REF 

DfF 


18 

8 


RFF  17 
REF  1 
REF  14 
REF  .9 
REF  6 


6 

6 

1 

1 

39 

1 


REF  323 
REF  11 
REF  10 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


1135 

1173 

37 

1212 

1212 

1212 

1213 


LAST  1217 


LAST 

LAST 

LAST 


1179 
1 1 3 5 

' i ' • 


LAST  1211 
LAST  1156 


LAS"  112 

LAST  1131 
LAST  1211 
LAST  655 


13.3011 

13.3012 

13.301 3 

13.3014 

1 3.3015 

13.3016 

13.3017 

13.3020 

13.3021 

13. 3022 

13 . 3023 

13.3024 

13.3025 

13.3026 

13.3027 

13.3030 

13.3031 

13. 3032 

13.3033 

13.3034 

13.3035 

13.3036 

13. 3037 
13, 3040 
1 3 , 3 04  1 
E3 , 1554 


55716  1 
25535  0 
24001  0 
14001  0 
01517  0 
1*007  0 
27712  0 
45014  0 
0LQ63  1 
5571'  1 

74235  0 
01535  0 
26001  1 
25543  1 
24007  0 
01521  0 
67174  1 
00002  0 
02030  0 
35527  1 
27157  1 
3 3042  1 
54  006  0 
3 3452  1 
0 0002  0 


2 6 0 6 3 0 INTBANK 


SET BANK 


STOVL 
ST-  )' 
smoL 

SET 

vxv 

STCVL 

STORE 
A X T , 2 

STCALl 

CAF 

TS 

CAF 

TC 

EBANK= 

BBCON 


R P— TO— R 
PCV 
ZUNIT 
00 
TET 

6 D 
5/8 
CALL 

MCQNFL AG 
\P-TD- 
vxsc 
RCV 

OMEGMOON 

7 CV 

ZERijVEC 
TOEl  TAV 
SXA,2 
2 

PBODY 

TNIJV 

A-PCHK 

f NT  BANK 

BBANK 

FORTYONE 

Q 

RRECTCSM 

INTEGRV 


3:15  DEC.  2,1970  SKIPPER  .087 
USER'S  PAGE  NO.  9 


NEEDED  FOR  SFTTING  XI  ON  EXIT 


SPEC  I At  P UP  PUS  E EOVR  r < U OR  B T r AL  T NT  EG*  ATI  UN.  THESE  ROUTINES  PROVIDE  ENTRANCES  TO  I N T EGF  AT  TON  WITH 
APPROPRIATE  SWITCHES  SET  DT  CLEARED  FDR  THE  DESIRED  INTEGRATION. 

CSMI  ,1  C AND  LEM  PR.  EC  PERFC  ;'.M  ORBIT  INTEGRATION  BY  THE  ENCKE  METHOD  TO  THE  TIME  I ND I C AT  E □ IN  TOECl 
ACCEL  E-'  AT  IONS  DUE  T OBLATE  NESS  ARE  INCLUDED.  M<  W-MATRIX  If  T.  IS  DONE. 

THE  PERMANENT  STATE  VECTOR  IS  NOT  UPDATED. 

CSMCnwTC  AND  IEMCH  IS  ° E F 1 1 ' ■ 1PBTT  TMTgfl  by  KEPIF-S  METHOD  TO  THE  TIME  INDICATED  IN  *DEC1 
NO  DISTURBING  ACCELERATIONS  ARE  INCLUDED.  IN  THE  PROGRAM  FLOW  THE  GIVEN 
STATE  VECTOR  IS  RECTIFIED  BEFORE  SOLUTION  OF  KEPI  E" S EQUATION 

T HF  SOUTINE?  ASSUME  THAT  T H t CSM  (LEI)  STATE  VECTOR  IN  P-MEM  IS  VALID. 

SWITCHES  SET  PRIOR  TC  ENTRY  TC  THE  MAIN  I NT  EG . PROG  ARE  AS  FOLLOWS 


CSMPR EC 

CSMCONIC 

1 EM PR EC 

l EMC ON  I C 

V I N T F L A G 

SET 

SET 

CLEAR 

CLEAR 

INTYPFLG 

CLEAR 

SET 

CLEAR 

SET 

DIMOFLAG 

CLEAR 

CLEAR 

CLEAR 

Cl  EAT 

CALI  IMG  SEQUENCE 
! -X  STORE  TDEC1 
L CALL  ( CTC  AL  L TDEC1) 
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GAF:  ASSEMBLE  ..EVISI3N  001  . F AGO  PROGLAM  AP11RCPE  BY  EYIES 

L I NT  PGP  AT  I Or  IN  if  I A L I ZAT  I Of 

R0?78  l+l  CSMPREC  (CSMCONIC,  LEMPREC,  LEMCONIC) 

k 057 9 NO R SAL  EXIT  TO  L+2 


R 053  0 SUBROUTINES  C.  A I LED 

R 058 1 I NTEGRV 1 

R 0582  PRECOUT  FOP  CSMPREC  AND  LEMPREC 

R0583  CON  I COL)  T FOR  CSMCONIC  AND  LEMCONIC 


R058* 

R 058  5 
R0586 
0587 

05  38 

0589 

0590 

OUTPUT  - 
I NPUT 
TDEC1 

REF  61 
REF  29 

SEE  D AGE  2 OF  7 H I r ICG  SECTION 

TIME  TO  INTEGRATE  TO  . CSECS  8- 
13,3043  45020  1 

LAST  1200  13,3044  00046  0 

LAST  121"  13,3045  27414  0 

1 7 . 7t  47  1 70  1 

28 

CSMPREC 

STQ 

SX A , 1 

0591 

REF 

2 

LAST 

1 14 

13,3047 

02102 

0 

0592 

REF 

19 

LAST 

655 

13,3050 

01474 

1 

0593 

13,3051 

43014 

0 

IFLAGP 

SET 

0594 

RFF 

3 

LAST 

236 

1 3,3052 

01467 

0 

059r 

RFF 

15 

LAST 

1210 

13,  3053 

01476 

1 

0596 

13,3054 

77614 

1 

CLRGO 

0596  1 

REF 

16 

LAST 

1210 

13,3055 

01633 

0 

05962 

REF 

1 

13,3056 

27136 

0 

0597 

13,3057 

4 5020 

1 

L FM  PR  EC 

STQ 

0598 

REF 

62 

LAST 

1214 

13,3060 

0 0046 

c 

050  Q 

RFF 

30 

l AST 

1214 

13?  30+ 1 

2 7414 

0 

0600 

13,3062 

43130 

1 

SXA  , 1 

0601 

RFF 

3 

LAST 

1214 

13,3063 

02102 

0 

0602 

REF 

20 

LAST 

1214 

13,3064 

01634 

1 

0603 

FEE 

1 

1 3,3065 

27051 

0 

0604 

13, 3066 

450  2 0 

1 

C SMC ON  IC 

STO 

0605 

REF 

63 

LAST 

1214 

13,3067 

00046 

0 

0606 

REF 

31 

LAST 

12  14 

13,3070 

27414 

0 

0607 

1 7.7671 

43130 

1 

9X6.1 

1 D f j y.  1 1 

1 

J AH  J I 

060? 

REF 

4 

LAST 

1214 

1 3,3072 

02102 

0 

0609 

REF 

21 

LAST 

1214 

13,3073 

01474 

1 

0610 

13,3074 

43014 

0 

I FI  AGC 

CLEAR 

0611 

REF 

16 

1 AST 

1214 

13,3075 

01676 

1 

0612 

REF 

17 

LAST 

1214 

1 3, 3C76 

01433 

1 

0613 

REF 

2 

LAST 

1214 

13,3077 

27136 

0 

0614 

13,3100 

45020 

1 

LEMCONIC 

STQ 

0615 

PEF 

64 

LAST 

1214 

13,3101 

00046 

0 

0616 

REF 

32 

LAST 

1214 

13,3102 

27414 

0 

0617 

13,3103 

43130 

1 

SXA  , 1 

0618 

PEF 

5 

LAST 

1214 

13,3104 

02102 

0 

3: 15  DEC.  2,1070  SKIPPER 
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CALL 

XI 

INTSTALl 

SET 

IRETURN 
VINT FLAG 

CLEAR 
PRECIFI  G 
DIMOFt AG 

IMTYPFl G 
I NTEGRV 1 
CAL  L 
XI 

7NTSTA!  I 

CLRGO 
IRETURN 
VINTf  LAG 
i FL  AGP 

CALL 

XI 

INTSTALL 

SET 

I F ETUI  N 
VINTFL AG 
SET  GO 
DIMOFLAG 
INTYPFLG 
INTEGRV1 
CALL 
XI 

T NT  ST  AL I 

CLRGO 
I RETURN 


f 


GAP:  ASSEMBLE  -EVtSION  001  OP  AGC  PFuG  AM  API 1KUPE  BY  EYLtS 


3:13  DEC.  ?,197Q  SKIPPER  .087 


INTEGRATION  INITI ALIZAT  ME 


USE  'S  PAGE  NO.  11 


061° 

0620 

0621 
06  2 2 
0623 
062  A 

062  5 
0626 
06  2 7 
C6  2 6 
06281 
0629 
06  30 
0631 
063? 
0633 
0636 

063  5 

0636 

0637 
06371 
0637  2 
06  3 P 

R 0639 
R0640 
R 064 1 
R 06  A 2 
R 0663 


REF 

REF 


REF 

REF 


22  LAST 
1 


REF 

REF 

REF 

REF 

REF 

REF 

REF 


LAST 

LAST 


6 

10 

7 

7 

2 

17 

1 


1214 


1214 

1213 


REF  19  LAST  1213 


REF 


13,311 

13.3106 

13. 3107 
13,311 ' 

13.3111 

13.3112 

13.3113 

13.3114 

13.3115 


1 AST 

1 2 1 5 

13,  3116 
13,311? 

13,3120 

LAST 

1214 

13,3121 

LAST 

1213 

13,3122 

LAST 

1213 

13,3123 

L A c T 

1 A K T 

1213 

i i , , 

13,31  2 ■’ 
13,31 2 r 
13,3126 

1 I D 

LAST 

1214 

13,3127 

01634 

27074 

66  214 
01467 
02031 
00000 
6621 4 
00343 
2 7120 
02031 
00002 
77220 
02102 
24007 
0 1 5 2 1 
3C52? 
2 34*.  1 
4-3014 
01676 
04062 
7 7 6 1 4 
0402  0 
27150 


INTER  TVS  SET 


BOF 


13.3130 

13.3131 

REF  t 13,3132 

REF  1 13,313? 

INTEGRA/  IS  AN  ENTRY  TO  r BIT  I NT  EG1  AT  I ON 
NORMALLY  THE  NAVIGATION  PROGRAM  ,T0  SET 
IS  ENTERED  AT  INI  LG,  VI  3Y  CSMPREC  tT.AL. 
THE  r.ryyiME  SETS  UP  A—  mf mct  Y IF  ENTERED 
c f no:  A < F OR  PR  E C I S I C N C*  CONIC 


STQ 


STORE 
SIC  ALL 

CLEAR 


SET  GO 


VINTFLAG 

IFLAGC 

SSP 

PR  EC  IF LG 

PBODY 

0 

SSP 

MO CNF  LAG 
+ 3 

PBODY 

2 

VLOAD 

J RETURN 

ZE  o VEC 

LDELTAV 

TNUV 

RECTIFY 

SET 

DIMOFLAG 
NEW  IF  LG 


PPQFt AG 
ALOADED 

WHICH  PERMITS  THE  CALLEP  , 

THE  INTEG.  FLAGS.  THE  ROUTINE 
AND  AT  AlOaDED  BY  INTEGRVS. 

A1  If'TEGR  V,  1 AND  SETS  THE  INTEG. 


R 0644  THE  CALLER  MUST  FIRST  CALI  INTSTAll  tq  CHECK  IF  INTEG.  IS  IN  USE  BEFORE 

R 064  5 SETTING  ANY  FLAGS. 

R 0646  THE  FLAGS  WHICH  SHOULD  8E  SET  Of.  CLEARED  ARE 
R 06  L 7 VM-TFLAG  <IG’  ™-E0  WHFR  ENTERED  FROM  INTEG'VS) 

R 064 P INTYPFI.  G 

R 064  6 DIMOFLAG 

R 065 0 D60R9FL  G 

R 065 1 CALL ING  SEQUENCE 

R 0652  L-X  CALL 

R.0653  L-Y  INTSTALL 

R0654  t -1  SET  T Cl.  EA':  ALL  FOU'  FLAGS.  ALSO  CAN  SET  ST  ATEFl.G  IF  DESK  ED 

R0655  AND  DIMOFLAG  I 0 ri.  EAR. 

R0656  L CALL 

R0657  L+l  INTEGRV 

R 06  5 8 INITIALIZATION 
R 065 9 FLAGS  AS  ABOVE 

ROASO  STORE  TIME  TO  I NTFGRAT  F TO  IN  T DEC  1 

P 066 1 OUTPUT 

R 066  2 PATT  AS 

R 066  3 VATT 
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DEFINED 


GAP:  ASSEMBLE  REVISION  001  OF  AGO  PROGRAM  API  IRQ, PE  BY  EYLES 


L 

ROE  64 


0665 

0666 

0667 

0668 

0669 

0670 

0671 
067? 

0673 

0674 

0675 
06  76 

0677 

0678 
06  7C 
0680 
0631 
0682 
0683 
C 6 8 4 

0685 

0686 

0687 

0688 
Ot  8* 
0600 
06°2 

0693 

0694 
0o95 

0696 

0697 

0698 

0699 

0700 

0701 
070? 
0703 
07< 
0706 

0706 

0707 
0700 

0709 

0710 

0711 

0712 


INTEGf AT I ON  IV  IT  1 ALT  7 A" ! l N 
TAT  BEFORE 


13,3134 

77620 

0 

11  1 EG  -v 

STQ 

REF 

7 

LAST 

1215 

13, 3 135 

02102 

0 

13,3136 

4301* 

0 

1NTEGRVL 

SET 

REF 

2 

LAST 

1215 

13,3137 

04060 

0 

REF 

2 

LAST 

12  15 

13,3140 

04062 

1 

13,3141 

77  731 

1 

IN7EGRV2 

SSP 

REF 

14 

LAST 

116  7 

13,31*2 

000  5 3 

1 

REF 

2 

LAST 

1215 

13,3143 

27150 

0 

13,3 144 

52014 

o 

BON 

REF 

23 

LAST 

1215 

13,3145 

01714 

1 

REF 

1 

13,3146 

26705 

1 

KEF 

2 

LAST 

297 

13,3147 

2 6760 

1 

13, 3150 

77745 

1 

ALOAOED 

01. GAD 

REF 

57 

LAST 

121? 

1 3 , 31c  1 

0004  1 

1 

n FF 

2 

L ACT 

10* 

13,3152 

01116 

0 

STOP  E 

13, 3153 

52014 

0 

BOFF 

REF 

18 

LAST 

1214 

13,3154 

01753 

1 

REF 

1 

13,3155 

27257 

1 

D EF 

l 

13,3156 

27243 

1 

13,3  1 5 7 

77414 

0 

A-RCMK 

BO  F 

REF 

6 

LAST 

1210 

1343160 

0175? 

0 

REF 

1 

13,3161 

27200 

0 

REF 

108 

LAST 

1210 

13,3162 

0 5353 

1 

TC 

13  3 1 ti  8 

04022 

0 

OCT 

REF 

67 

LAST 

1154 

13,316  ’ 

0 5504 

0 

TC 

REF 

3 

LAST 

1154 

13,  3 16  5 

00236 

0 

ADKES 

PEF 

2 30 

LAST 

1 2 Oc' 

13.3166 

0 6037 

0 

TC 

L ' 7 J JL  LV 

13,3167 

77731 

1 

SSP 

REF 

15 

LAST 

1216 

13, 3170 

00053 

1 

REF 

1 3.3171 

27176 

1 U 1 J A ' L 

13,3172 

52014 

0 

BDN 

REF 

24 

LAST 

1216 

13,3173 

017  14 

1 

REF 

3 

L A R T 

495 

if, 3174 

26661 

1 

REF 

2 

LAST 

37 

13,3175 

26734 

0 

13,3176 

77624 

1 

PHEX  IT 

CALL 

REF 

22 

LAST 

1157 

13,3177 

11244 

0 

13,3200 

45001 

1 

R EC  TC  tJT 

SETPD 

13,3201 

0CC01 

0 

R F F 

3 

LAST 

12  15 

13,3202 

23461 

1 

13,3203 

5 3775 

1 

VLQAD 

REF 

10 

LAST 

1212 

13,3204 

01503 

0 

13,3205 

57576 

1 

1 3,3206 

5 3715 

1 

PDVL 

p EF 

7 

LAST 

1179 

13 , 3207 

01511 

0 

13,3210 

57576 

1 

13,3211 

63325 

0 

POOL 

REF 

15 

LAST 

1213 

13,3212 

01517 

0 
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I RETURN 
SET 

RPQFLAG 
NEW  I F LG 

OPR  FT 

ALOADED 

GOTO 

VINTFLAG 

PTOACSM 

PTOALEM 

TDEC1 
T DEC 
GOTO 

TNTYPFLG 
TEST LOOP 
RVCON 
EXIT 

STATEFLG 

RECTOUT 

PHASCHNG 

04022 

UPFLAG  PHASE  CNANGF  HAS  OCCURRED  BETWEEN 

REINTFLG  TNTSTALL  AND  INTWAKE 

INTPRFT 

OPRET 

PIHEXIT 

GOTO 

VINTFLAG 

ATOPCSM 

ATOPLEM 

GRP2PC 

CALL 

0 

RECTIFY 
V S L * 

RRECT 

0,2 


VSL* 

RATT 

TO 

PDO 

V F E C T 

0,2 

PDVL 

VATT 

TO 

PD6 

TAT  TO  PD1 2 

TET 


GAP  : 


ASSEMBLE  r.E  VI:  ION  001  iF  AGO  PROOF  AM  API  lROPE  BY  fc  YLE$ 


I,T  E G RATI  01'  I S'  I T i A L T Z A T I 0 <■  I 


071? 

0714 

07 1 5 
0716 
071^ 
071° 
07  lc 

0720 

0721 
072? 

072  3 

0724 

0725 
07251 
0725  2 
072  5 3 
07254 


REF  11  LAST  1216 


REF  8 LAST 
REF  2 LAST 


1216 

687 


REF  20  LAST  1215 


REF 

REF 


2 LAST 

5 LAST 


320 

1215 


13.3213 

13.3214 

13.3215 

13.321 6 

13.3217 

13.3220 

13.3221 

13.3222 

13.3223 

13.3224 

13.3225 

13.3226 

13.3227 

13.3230 

13.3231 

13.3232 

1 3.3233 


01503  0 
64715  0 
01511  0 
51770  0 
76006  0 
77765  0 
76014  0 
00303  1 
27223  1 
77776  1 
40001  1 
CO  001  0 
27230  0 


PDVL 


PUSH 

DEC 

SON 


43014  0 
U4676  1 

0166"7  1 
77614  1 


DEC 

I ; T E X I T SETPD 


CLEAR 


CLEAR 


RRECT 
PDDL  * 
VRECT 
MU EARTH, 2 
A XT  , 1 
-10 
AXT  , 1 
MOONFL AG 
+ 2 
-2 
RCV 
0 
+ 1 

CLEAR 
A V EM I DOW 
PR  EC  IF  LG 


07  2 6 5 

REF 

7 

LAST 

1214 

13, 3234 

01672 

0 

STATEFI 

0726 

13,3235 

775  35 

1 

SLOAD 

EXIT 

0727 

REF 

8 

LAST 

1216 

13,3236 

02103 

1 

I RETURN 

072  E 

R EF 

731 

LAST 

115  5 

13,3237 

3 0154 

1 

CA 

MPAC 

072  5 

REF 

5 8 

LAST 

118  3 

13,3240 

50  120 

1 

INDEX 

E I XL  OC 

0730 

REE 

16 

LAST 

121‘ 

13,324  1 

54  052 

1 

TS 

QPPFT 

0731 

REF 

4 

LAST 

116  7 

13, 324? 

0 34  p 5 

1 

TC 

ITT WAKE 

R 073? 

RVCON  SETS  UP 

ORBIT 

INTEGRATION  TO  DO  A 

CON  I C 

SOLUT  ION 

FOR  POSI 

R 073  3 

VELOCITY 

FOR 

THE  INTF  VAL  (TFT 

-TDEC  ) 

0736 

13,3 24 3 

4 5 34  5 

1 

R VCD  N 

DLDAD 

DSU 

0735 

REF 

3 

LA1  T 

1216 

13,3244 

01116 

0 

TDEC 

0736 

REF 

16 

L AS~ 

1216 

13, 32*5 

0 1 c 1 7 

0 

TET 

0737 

REF 

10 

LAST 

1177 

13,3246 

36074 

1 

STCALL 

TAU. 

0738 

REF 

4 

LAST 

1216 

13,3247 

23441 

1 

RECTIFY 

073  9 

i ? . b ? 5 n 

77624 

1 

r a i i 

1 

U -A  L L 

0740 

REF 

1 

13,3251 

22376 

0 

KEPPREP 

0741 

13,3252 

43345 

1 

DLL  AD 

DAO 

0742 

SEE 

6 

LAST 

117=> 

13, 3253 

Ol^Sl 

1 

TC 

0743 

REF 

17 

LAST 

1217 

13,3254 

01517 

0 

TET 

0744 

■5  EF 

18 

LAST 

1217 

13,3255 

35517 

1 

STCALL 

TET 

0745 

REF 

2 

LAST 

1216 

13,3256 

27200 

0 

RECTOUT 
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ALLOW  UPDATE  OF  DOWNLINK  S? AT E VECTOR 


AND 


> 


GAP:  ASSEMBLE  RE  VIS  I IN  001  ,1E  A GC  PROGRAM  AP11RGPE  BY  EYLES 

L I NT  EG1  AT  I ON  INITIALIZATION 


P 074  5 5 

TESTLOOP 

0746 

13,3257 

43  014 

0 

T EST  LOOP 

BGF 

0746  2 

REF 

4 

LAST 

1210 

13,3260 

04  752 

0 

0746  3 

13,3261 

27264 

1 

07464 

RFF 

fi 

LAST 

1217 

13,3262 

01632 

1 

07465 

REF 

1 

13,3263 

27225 

1 

07466 

13,3264 

73001 

1 

+ 3 

SETPD 

0747 

13,3265 

00013 

0 

074P 

REF 

9 

LAST 

121  c 

13,3266 

02  030 

0 

0749 

13,3267 

51575 

1 

VLDAD 

075  0 

REF 

18 

LAST 

1213 

13, 3270 

01535 

0 

G75  1 

13 , 3271 

43006 

0 

PUSH 

0752 

REF 

1 

13,3272 

002  62 

1 

0753 

13,3273 

50023 

0 

DSU* 

0754 

RFF 

1 

13,3274 

83755 

0 

07  5 r 

1 3 , 3 2 7 c 

27300 

1 

0756 

13, 3276 

7 7614 

SET 

0757 

RFF 

2 

LAST 

1218 

13,3277 

00062 

0 

0758 

13,3300 

41345 

0 

NOR F T N A L 

DLOAO 

0755 

13,3301 

0GC13 

0 

0760 

13,3302 

0 0 043 

0 

0761 

13,3303 

55762 

1 

SR  1 r 

0762 

REF 

3 

LAST 

12  17 

13 , 3304 

51770 

0 

0763 

13,3305 

41366 

1 

SQPsT 

0764 

REF 

1 

13, 3306 

25752 

0 

076  5 

13,3307 

40442 

1 

SR  3 

076  6 

13,  mo 

54345 

1 

DLOAO 

0767 

REF 

732 

LAST 

1217 

13,3311 

0 C 1 5 5 

0 

0768 

13,3312 

2 o 2 2 C 

0 

076° 

13,  1313 

40006 

0 

PUSH 

0770 

REF 

1 

13,3314 

27341 

1 

0771 

13,3315 

50021 

1 

BDSU 

07^2 

REF 

1 

1 3,3316 

27413 

1 

077? 

REF 

2 

LAST 

1218 

13, 3317 

27341 

1 

0774 

13,3320 

45345 

1 

DT/2C0MP 

DLOAO 

0775 

REF 

4 

LAST 

1217 

13,332 1 

011  16 

0 

0776 

REF 

19 

LAST 

1217 

13,3322 

01517 

0 

0777 

13,3323 

54234 

0 

RTB 

0778 

REF 

6 

1.  AST 

946 

13,3324 

21612 

1 

0779 

1 3 , 3 3 2 c; 

202  1 1 

1 

0780 

REF 

2 

LAST 

1 1 4 

13,3326 

02076 

1 

STORE 

0781 

13,3327 

5 1400 

1 

BOV 

0782 

REF 

1 

13,3330 

27345 

0 

0783 

13,3331 

5C025 

0 

DSU 

0784 

13,3332 

0 0 015 

0 

078  5 

REF 

1 

13,3333 

27351 

0 

0786 

13,3334 

75345 

1 

USFMAXDT 

DLOAO 

0787 

13,3335 

0 CO  1 5 

0 

0788 

REF 

3 

LAST 

1218 

13, 3336 

02076 

1 

i 


3 
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CLRGQ 

OUITFI  AG 
+ 3 

STATEFLG 

..z 

INTEXIT 

LXA,  2 

STOP  INTEGRATION 

10D 

RBnny 

ABVAL 

P CV 

' ..e 

CLEAR 

MIDFLAG 

RC  TO  10D 

BMN 

R M E , 2 
+ 3 

M I D F L A G=  0 IF  R G.T.  RMP 

MIDFI  AG 

DPP 

100 

340 

DDV* 

MUE  A RTH , 2 

DMP 
. 3D 

SR4 

SL 

M P AC 

DT  IS  TRUNCATED  TO  A MULTIPLE 

1 50 

BOV 

MAXDT 

BMN 

DT/2  MAX 

MAXDT 

DSU 

TDEC 

TET 

SL 

sgnagref 

8D 

nr-  128  csecs. 

DT/2 

ABS 

G ET  MAXDT 

B— 1 9 

BMN 

1 2D 

POOHCHK 

S IGN 

1 2D 

DT/2 

IS  TIME  TO  [NT  EG.  TO  GR  THAN  MAXTIME 
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M IOAVFLG 

1017 

R FF 

36 

L A ST 

9T6 

13, 3 * 12 

4 0 001 

0 

R ATT 

1018 

REF 

7 

LAST 

88  1 

13,3613 

27545 

0 

stove 

RN1 

101c 

REF 

25 

LAST 

0 8/ 

13,3614 

00007 

0 

V ATT 

1020 

REF 

7 

LAST 

83  1 

13,3615 

17553 

1 

STODL 

VN1 

1021 

REF 

16 

LAST 

786 

13,3616 

00015 

0 

TAT 

1022 

REF 

1 1 

LAST 

3 3 

13,3617 

03  561 

0 

STORE 

PI  PI I ME  1 

10221 

13, 3620 

66  134 

1 

SXA  ,2 

SXA  ,1 

10222 

REF 

18 

LAST 

8 30 

13,3621 

02  777 

1 

RTX2 

102  2 3 

PEF 

14 

LAST 

T66 

1 3,3622 

0 2 776 

0 

P TX  1 

1023 

13,3623 

77776 

1 

EXIT 

1024 

1 3 , 3c-24 

0 0004 

0 

INHINT 

102  r 

1 3,36 2C 

0 0006 

1 

EXTEND 

102' 

REF 

3 0 

LAST 

991 

13,3626 

t 00  25 

1 

DCS 

TIME? 

1027 

REF 

73  3 

LAST 

1 21  8 

13,347? 

20  155 

1 

DA  c 

MP  AC 

102P 

REF 

14 

LAST 

1057 

13,3630 

0 7257 

0 

TC 

TPAGREE 

1 02  4 

REF 

5 

LAST 

1223 

13,3631 

3 1744 

1 

CA 

IRETURNI 

1030 

- ef 

16 

LAST 

396 

13,3632 

0 '>640 

1 

TC 

BANK JUMP 

1031 

13,3633 

47014 

1 

CKMID2 

BOF 

P TB 

1032 

REF 

3 

LAST 

1 2 ?3 

13,3634 

04754 

0 

M T Fi  1 F 1 AT 

u I rtMvJ 

1 

PEF 

1 

13,3635 

27652 

0 

MID2 

1034 

PEF 

34 

LAST 

1223 

13 , 3636 

21573 

0 

LOADTIME 

1035 

1 3, 3637 

44215 

1 

DAD 

BDSU 

1036 

PEF 

3 

LAST 

12?  j 

13,3640 

2?t?4 

L 

TIMFDELT 

1037 

REF 

6 

LAST 

1219 

13,3 64  1 

01116 

0 

T DEC 

10  38 

1 3 , 364 2 

4-5044 

0 

RPi 

CALL 

1039 

REF 

2 

LAST 

1216 

13,3643 

27257 

1 

TESTLOOP 

1040 

REF 

2 

LAST 

1223 

13,3644 

27662 

0 

NOT  I ME 

1041 

13, 3^45 

432  34 

0 

TIME INC 

r r 8 

DAD 

1042 

PEF 

35 

LAST 

1224 

13,3646 

21573 

G 

LOADTIME 

1043 

REF 

4 

LAST 

1274 

13,3647 

27674 

1 

TIMEDELT 

1044 

REF 

7 

LAST 

1224 

13,3650 

35  116 

1 

STCALL 

TDEC 

1045 

REF 

3 

LAST 

12  24 

13,3651 

27257 

1 

TESTLOOP 

1046 

13,  36  6 2 

453  V 5 

1 

MID2 

OLD  AD 

DSU 

1047 

REF 

8 

LAST 

1224 

13,3653 

0 1 1 1 6 

0 

TDEC 

104  8 

RFF 

22 

LAST 

1221 

1 3,3654 

01517 

0 

T FT 

1< 

13,3655 

45246 

0 

A8S 

DSU 

1050 

REF 

1 

13,3656 

27672 

1 

3CSFCS 

3: 15  DEC.  2,1970  SKIPPED 
USER'S  PAGE  ME.  20 
NO  W-NATR I X 


.087  PAGE  1224 
E7  S3 


LET  I NT EG . KNjJ  THE  CAU  IS  F0<  YIDTOAV. 
GO  INTEGRATE 


YES 


GAP: 


ASSEMBLE  F:E VISION  001  )F  AGE,  PROGRAM  AP 1 1 PC  BY  EYLtS 


L INTEGRATION  INITIAL  I Z A T I M 


1051 

13,3657 

52040 

1 

BMN 

GOTO 

1052 

REF 

4 

EAST 

1219 

13,3660 

27157 

1 

A-PCHK 

1053 

•REF 

1 Cl  11  A 1 

n 

T I M E I NC 

1 

L If  c 1 

4 l O J 

V 

105  A 

13,3662 

77414 

0 

NUT  I ME 

CI.EAR 

EXIT 

1055 

REF 

: • A 

1 AST 

I 2 2 - 

13, 3663 

046  74 

0 

MIDIFt  AG 

105c 

REF 

6 

LAST 

12  24 

13,361 

25 '744 

1 

I NCR 

I RETURN! 

1057 

REF 

41 

LAST 

983 

13, 3665 

0 5567 

0 

TC 

ALARM  ,'L, 

1 - 

13,361 

01703 

1 

OCT 

1703  ^ 

lC'5f 

REF 

232 

LAST 

1220 

l 3, 3667 

0 6037 

0 

TC 

INTPRET 

106  0 

13,3670 

77616 

0 

RVQ 

106  1 

13,3671 

00000 

1 

3CSECS 

2 DEC 

3 

1061 

13,3672 

00003 

1 

1062 

1 3,3oZ3 

oc-ooo 

1 

TIMEDELT 

20EC 

2000 

106  2 

13, 367 A 

03720 

1 

106  3 

27, 3360 

HANK 

27 

1 P.  A U 

off 

l 

n/+ . ?<>on 

SET! Of 

U PD  ATE  2 

OLE 

i 

\J  T f Z_  » ‘ V V. 

1065 

04,3165 

BANK 

1066 

REE 

i 

1167 

EBANK= 

INTWAKUO 

1067 

REF 

1 

COUNT  * 

$ $ / I N T I N 

1068 

REF 

1 

1167 

INTWAKUQ 

= 

I NTWAK10 

1069 

04,3165 

0 00  03 

I 

INTwAKCU 

REL  INT 

1071 

04,3166 

0 00 06 

1 

EXT  END 

1071 

REF 

2 

l AST 

1225 

04,3167 

23*167 

0 

QXCH 

I NT A A KUO 

1072 

REF 

233 

LAST 

1225 

04,3170 

0 6037 

0 

TC 

INTPRET 

1 1 7 3 

04,3171 

53135 

0 

S L 0 AO 

8 ZE 

107  4 

REF 

3 

LAST 

212 

04,3172 

01502 

1 

UPSVFLAG 

1075 

REF 

1 

04,3173 

1 1 2 3 2 

1 

I NTWAKUF 

1076 

04,3174 

777  75 

1 

VLOAD 

1077 

REF 

13 

LAST 

1221 

04,3175 

0 1503 

0 

RRECT 

1C  7 3 

REF 

20 

LAST 

12  21 

04, 3176 

2 55  35 

0 

STOVL 

RCV 

1079 

REF 

9 

LAST 

121  7 

04,3177 

015  11 

0 

VRFCT 

1080 

04,3200 

7762  + 

1 

CALL 

1 i 

REF 

5 

1.  AST 

1217 

04,3201 

2 34  56 

1 

kECTIFY  + 1 3 D 

1082 

04,3202 

51535 

0 

SLOAD 

A8S 

1 o 3 

REF 

4 

LAST 

1225 

C 4 , 3 2 0 3 

01502 

1 

UPSVFL  AG 

1084 

04, 3204 

53025 

0 

DSU 

BZE 

11  8 

REF 

1 

04,3205 

112  43 

1 

U PM  N S VC  D 

11 

- E F 

1 

04,3206 

11213 

1 

I NT WAKEN 

1087 

04 , 3207 

43174 

1 

AX  T , 2 

CLR  GO 

1< 

04,3210 

00000 

1 

DEC 

0 

1 

REF 

21 

LAST 

1217 

04,3211 

002  2 3 

1 

MOCNFL  AG 

3 : I 5 DEC 


2,1970  SKIPPER 


087  PAGE  1225 


USER 1 S PAGE  MO.  21  E7  S3 


TOO  LATE 

SET  EPF  CR  EXIT  (CALLOC  +2) 
INSUFFICIENT  TIME  FOP  INTEGRATION  — 
TIG  WILL  BE  SLIPPED... 


TEMPORARY  UNTIL  NAME  OF  INTWAK1Q  IS  CHNG 


SAVE  G FOR  RETIRE 


iS  THIS  A CS'VLEM  STATE  VECTOR  UPDATE 
REQUEST.  IF  NOT  GO  TO  INTWAKUP. 


MOVE  FPECTI6)  AND  VP  E CT (6  ) INTO 

RCV ( 6)  AND  VCV ( 6 ) RESPECTIVELY. 

NOW  GO  TO  ’RECTIFY  +130'  TO 
STORE  VPEC.T  INTO  VCV  AND  ZERO  OUT 
TDEI.TAVI6  ) ,T!#V(6)  ,TC<2)  AND  XKEPI2) 
COMPARE  ABSOLUTE  VALUE  OF  'UPSVFLAG' 

TO  'UPDATE  MOON  STATE  VECTOR  CODE' 

TO  DETERMINE  WHETHER  THE  STATE  VECTOR  TO 
BE  UPDArED  IS  IN  T HE  EARTH  OF  LUNAR 

SPHERE  OF  INFLUENCE 

FARTH  SPHERE  OF  INFLUENCE. 


GAP:  AS  St  Bit  E VIS!  IN  001  T AGG  PROGRAM  API  1 k 0 P E BY  EYLEG 

L INTEGF  ATIOM  IN  IT  I AL  I 7 AT  !•  N 


11 

REF 

1 

04,3212 

112  16 

1 

1091 

04,3213 

43174 

1 

INTWAKEM 

AXT , 2 

i no? 

,-\n  nn  ? 

3 

DEC 

1U7Z. 

UT  | 1 C.  1 -T 

1 ( 3 

REF 

22 

LAST 

12  21; 

04,3215 

TOO  63 

1 

lOQt 

04,3216 

5013  5 

0 

I NTWAKEC 

slcAd 

l 1 V / _•* 

1096 

REF 

5 

LAST 

1225 

04,3217 

01502 

1 

1097 

REF 

1 

04,3220 

11226 

1 

1098 

, 04,3221 

77624 

1 

call 

1099 

REF 

4 

LAST 

1216 

04, 3222 

26661 

1 

1 100 

r)i  , 3p  p 3 

32014 

0 

CLEAR 

1101 

REF 

2 

LAST 

12  7 1 

04,3224 

01671 

0 

1102 

REF 

1 

04,3225 

11230 

0 

1103 

04,3226 

77624 

1 

intwakl m 

CALL 

1104 

REF 

3 

LAST 

1216 

04,3227 

2 6 734 

0 

11'. 

04, 3230 

77614 

1 

INTWAKEX 

CLEAR 

1106 

REF 

12 

LAST 

1221 

04,3231 

02676 

1 

1107 

3 - , 32  3 2 

45131 

0 

I MTWAKUP 

SSP 

HOT 

REF 

6 

LAST 

1226 

04 ,3233 

01502 

1 

1109 

04,3234 

04000 

1 

1110 

REF 

2 

LAST 

495 

04,3235 

27423 

1 

1111 

04,3236 

77776 

1 

EX  IT 

1112 

REF- 

1 1 0 

LAST 

122  C 

04, 3237 

0 5353 

1 

TC 

1113 

C 4 , 3240 

0402t> 

1 

OCT 

1114 

REF 

3 

LAST 

12  2 5 

0 a , 32 4 ] 

0 116  7 

0 

TC 

111 

04,3242 

COC02 

0 

UPMNSVCD 

OCT 

1116 

04,  3243 

00  000 

1 

OCT 

1117 

04 , 32'* 4 

774  20 

1 GRP2PC 

STO 

1118 

REF 

2 

LAST 

126 

04, 3245 

0271  1 

1 

111 

REF 

111 

LAST 

1226 

04, 3246 

0 5353 

1 

TC 

1120 

04,3247 

04022 

0 

OCT 

112  1 

RFF 

234 

LAST 

1225 

04,3250 

0 6 037 

0 

TC 

1122 

04,3251 

77650 

1 

GOTO 

1123 

REF 

3 

1 AST 

1226 

•94,3252 

02711 

1 

I NTWAKEC 

SET 

2 

^CCNFLAG 
B MM 

UPSVFLAG 
I NTWAKLM 

A TOP CSM 


GOTO 

ORBWFL AG 
INTWAKEX 

ATCPLEM 

UPDATE 

LM  STATE  VECTOR 

F:  ENDWFLG 

CAL  L 

UPSVFLAG 

0 

f EMOV  F : 

: U P D AT  E 

STATE  VECTOR  INDICATOR: 

INTWAKEO 

RELEASE 

: GRAB : 

OF  ORBIT  INTEG 

3 : 1 5 DEC.  2, 1970  SKIPPEf  .087  PAGE  1226 
USER'S  PAGE  NO.  22  E2  S3 

LUNAR  SPHERE  OF  INFLUENCE. 


COMMIT  CHE0NG  AFTEF  X2  INITIALIZED  AMD 
mhqmflAG  SE’IP  CLEARED). 

IS  THIS  A REQUEST  for  a LEM  OR  CSM 

STATE  VECTOR  UPDATE 

UPDATE  CSM  STATE  VECTOR 


PHASCHCG 
04Q2  6 
I NTM AKUO 

2 

0 


EXIT 
GRP2SVQ 
PHASCHNG 
0402  2 
INTPRET 


GRP2SVQ 


GAP:  ASSEMBLE  sEVlSliJty  ”01  UF  AGE  PS  UGP  AM  AP 1 jjLR  ( ■ P E BY  LYLES 


L ORBITAL  I NT  F GR  AT  10 

R 000 1 DELETE 

0002 

0003  REF  1 

0004 

0005  ref  l 

ROOOF  DELETE 

0007 

0008  REF  10  LAST  12.18 

0009 

0010 

0011  REF  LAST  1213 

0012 

0013  REF  21  LAST  1225 

0014 

0015 

0016  P F F 65  LAST  1214 

0017 

0018 

0010  REF  15  LAST  1213 

0020  REF  11  LAST  1217 

0021 

0022  REF  7 LAST  1217 

0023  REF  1 LAST  115c 

0024 

0025 

0026 
002  7 
0028 

0029 

0030 

0031 

0032  REF  5 LAST  1227 

0033 

0034 

0035  REF  16  LAST  1227 

0036 

0037 
0033 
0039 
00*0 

0041  REF  1 

0042 

0043 

0044  REF  20  LAST  1227 

0045 
004  6 

0047 

0048 

0049 

0050 


13,3675 

1 1,20  00 
11,217 ' 

11,2376 

40354 

1 

1 1,2377 

02030 

0 

11,2400 

uCOOl 

0 

11,2*  C 1 

7 554  3 

1 

1 1 , 24  7 2 

517  7 0 

c-jci  s 

0 

f'l 

1 L f C t J D 

D J 1 77 

v; 

11,2404 

01535 

0 

11,2 

6 0325 

0 

11 » 2 %Q  6 

0 0045 

0 

1 1 , 2-407 

00047 

1 

1 1,2410 

77715 

1 

11,2411 

6624  1 

0 

11,2412 

01543 

1 

11,2413 

02074 

0 

11,2414 

6 0225 

1 

11 ,2416 

01551 

1 

11,2416 

0 005) 

0 

n ,241 7 

711 M 

0 

11,2420 

6 6271 

0 

11,2421 

00003 

1 

1 1 , 242  2 

41405 

0 

1 1 , 24  2 3 

00005 

1 

1 1.2424 

11.2425 

66316 

00005 

0 

1 

11,2426 

64716 

0 

11,2427 

51770 

0 

1 1 ,2430 

4 0442 

1 

1 1 , 2431 

475  L 5 

0 

1 1 , 2432 

01543 

1 

1 1 ,2433 

44205 

0 

11,2434 

0 C 04  5 

0 

1 1 ,2435 

41271 

0 

1 1 ,2436 

0 0003 

1 

11,2437 

53605 

1 

1 1,2440 

2 5774 

1 

11,2441 

20176 

0 

11,2442 

43260 

1 

1 1 , 244  3 

000  50 

1 

1 1, 24  44 

452  5/ 

0 

11,2446 

2021  1 

1 

11,2446 

41205 

0 

1 1 , 2447 

00001 

0 

1 1 ,2450 

00005 

1 

11,2451 

53657 

0 

BANK  13 

S E i L OC  ORBITAL 

BANK 

COUNT*  $$/'■  -BIT 

KEPPREP  LXA,2  SETPD 
PBODY 
0 

DLOAO*  SORT 

MUEARTH, 2 

PDVL  UNIT 
RCV 

P DDL  NORM 

36D 
XI 

PDVL 

DC-T  POOL 

VCV 
TAU. 

DSU  NORM 

TC 
SI 

SP  1 

DDV  PDDL 

2D 

DMP  PUSH 

40 

DSQ  PDDL 

4 D 

DSQ  PDDL  * 

MUEARTH  ,2 

SF3  SR4 

PDVL  VSQ 

VCV 

DMP  BDSU 

36D 

DDV  DMP 

20 

DMP  SI* 

DP2/3 

0-3,1 

XS!J,1  DAD 

SI 

SL*  DSU 

3D,  1 

DVp  DM1’ 

OD 

40 

SL  * SL* 


3:15  DE  C 


2,1970  SKIPPER  .087  PAGE  1227 


USER’S  PAGE  NO.  1 EO  S3 


SQRT(MU)  (+18  0P.  +15) 

OD 

PL 

2D 

PI 

80 

NORM  F (+29  OR  +27  - 

N 1 ) 2D 

PL 

40 

F*SQR  T (MU  5 ( +~  OR+5)  40  PI  6D 

( +28) 


F S ( +6  +N1-N2)  6D 

PL 

8D 

( FS ) S 0 ( + 1 2 +2  < N 1 - ' 2 ) ) 6D 

PI 

1 OD 

S S Q / M U t — 2 0 R +2 ( N 1-N2 ) ) 10D 

PL  1 2D 

PREALIGN  MU  (+43  OR  +37)  12D 

PL 

14D 

PL 

1 2D 

PL 

1 OD 

-(1/R-ALPHA) ( +12  +3N1-2N2 ) 


1 OL  ( 1 / P — AC PHA)  (+13  +2 ( N 1 - N 2 ) ) 

2 ( F S) SQ  - ETCETRA  PL  8D 

XI  = N2-N1 

-FS  + 2 ( F S ) SQ  ETC  (+6  +N1-N2)  PL  6D 


GAP: 


ASSEMBLE  5EVISIUN  001  uF  AGC  PROGRAM  API 1RGPE  BY  EYLES 


L OP.  3 IT  A l I MTEG  ’ AT  ION 

0051  1 

0052  l 

0053  1 

0054  REF  2 LAST  12c  1 

0055  1 

0055  1 

0057  1 

005  8 L 

0059  REF  3 LAST  1156  1 

0060  1 

0061  REF  3 LAST  117  4 1 

0062  1 

0063  REF  3 LAST  1179  1 

0064  1 

0065  1 

0066  REF  23  I AST  1226  l 

0067  REF  1 1 

0068  1 

0069  1 

0070  PEF  2 LAST  1223  1 


,2452 
, 2453 
,2454 
,2455 

2021  1 
20201 
6 5 2 15 

1 

0 

1 

0 

DAD 

015  53 

, 245  6 

53605 

1 

DMP 

, 245  7 

00001 

20202 

o 

, 2460 

0 

, 246  1 

43204 

0 

BO  VB 

,2462 

57753 

1 

, 2463 

77626 

0 

STAD° 

, 2464 

7 5647 

c 

STORE 

,246  5 

74020 

0 

STQ 

, 2466 

02112 

1 

,2467 

00012 

1 

DEC 

,2470 

74014 

1 

BON 

, 2471 

0030  3 

1 

, 2472 

2*  023 

0 

, 247  3 

00002 

0 

DEC 

, 2474 

77650 

1 

GOTO 

,2475 

24023 

0 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 


4 


3: 15  DEC.  2,1570  SKIPPER 
USER'S  PAGE  NO.  2 


80, 1 

0,1  S(-FS ( 1-2FS ) - 1 / 6 . . . )( +17 

PDDL 

XKEP 

SL*  S ( + 1 7 L R +16) 

CD 

1,1 

DAD 

TCDANZIG 

XKEPNEW 
AXC  , 1 
KEPftTN 
10 

AXC  , 1 
MOONFLAG 
KEPLFP.H 
2 

KEDL  FRN 


.087  PAGE  1228 
EO  S3 

OR  +16) 

PL  6D 


G AP  : 


0071 

007? 

0073 

0074 
007? 

0076 

0077 

0078 

0079 
008  n 
OOP] 
OOP? 
008  3 

0084 

0085 

0086 


ASSEMBLE  REVISION  00,1  uF  AGO  PROGRAM  API  1'. OPE  BY  tYLES 


ORBITAL  I NT  EG  AT  KIP 


1 1 ,2476 


REF 

IP 

LAST 

1212 

1 1 , 2477 

REF 

21 

LAST 

1227 

11,2500 

RFF 

9 

LAST 

121  - 

11,2501 

] 1, 250  2 

1 1 , 74  0 3 

11.2504 

11.2505 
1 1 ,2506: 
1 1 , 250  7 

"EP  ! LAST  1227  11,2510 

~FF  12  LAST  12?7  11,2511 

11,2512 

REF  23  LAST  1224  11,2513 

REF  24  LAST  1229  11,2514 

REF  2 LAST  121?  11,2515 


66350 

1 FBR3 

LXA  , 1 

SSP 

01500 

0 

DTFEQCNT 

0 1 0 5 1 

Q 

SI 

7 77  62 

1 

DEC 

-13 

54345 

1 

□ LOAD 

SR 

02076 

1 

DT/2 

2 0612 

0 

9 D 

61500 

0 

T I X , 1 

FOUND 

22507 

0 

+ 1 

43206 

1 

POSH 

DAD 

015  51 

1 

TC 

1 f 0 7 / 

n 

c Tom 

T Al  1 

1 cv  « 

u 

*3  i JUL 

HUi 

77615 

0 

DAO 

01517 

0 

TET 

35517 

1 

5TCALL 

TET 

2 2376 

0 

KEPP6EP 

3:15  DEC.  2, 

19  70 

SK  IPPER 

.087  PAGE  1229 

USER'S 

PAGE 

NO.  3 

EO  S3 

GAP:  ASSEMBLE;  REVISION  00 1 OE 

L ORBITAL  INTEGRATION 


P0097  # 

AGC 

ROUTINE  TO 

COMPUTE 

0088 

1 

0089 

c EF 

11 

LAST 

1227 

1 

0090 

REF 

12 

LAST 

1230 

1 

00°  1 

1 

0092 

REF 

1 1 

LAST 

1215 

1 

0093 

REF 

2 

LAST 

114 

1 

009' 

REF 

20 

LAST 

1 1 36 

1 

00°  c 

1 

0096 

1 

0097 

REF 

22 

LAST 

1227 

1 

009  8 

REF 

2 

LAST 

114 

1 

0099 

1 

0100 

REF 

20 

LAST 

122  4 

1 

Old 

1 

0102 

R EF 

1 :i 

LAST 

1 ?29 

1 

0103 

REF 

8 

LAST 
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Tf  THE  CENTER  IN  Al.PHAM.  THIS  IS  ADDED  TO  THE  S 
FEQ  STAGE  IS  CALLED  VIA  XI. 


LX  A , 2 

SETPD 

DLOAD 

P BODY 

ALPHAM 

DSU* 

0 

ROE,  2 

8UF 

N BRANCH 

MOON Ft  AG 

BPL 

GET  URPV 

VI  OAD 

P DDL 

COSPHI E 

PDDL 

ALPHAV 

TFT 

CALI 

3 Y 5 

STORE 
VI  OAD 

VAD 

P -TO-R P 

URPV 

VXV 

504L’1 

Z UN  I T 

VXM 

ZUNI  T 

MMATRIX 

UN  I T 

STURE 

CLOAD 

UZ 

dmpq 

cnsPHi /? 

3/32 

POSSIBLY 

UNNECESSARY 

PUDL 

DM  PR 

DSQ 

COSPHI/2 

DSU 

15/16 

3/64 

P2/64  TO 

P DO 

PUSH 

DMP 

POOL 

DMPR 

COSPHI /2 

S.L1.R 

7/12 

DMPR 

0 

2/3 

P3/32  TO 

PD2 

BDS'J 

DMPR 

PUSH 

Dltff. 

P4/128  TO 

PD4 

POOL 

COSPHI /2 

9/16 

OMPR 

2 

6/128 

BEGIN  COMPUTING  P5/1C24 

IJ 


M OF  THE 


GAP : 


0315 

0316 

0317 
031 P 
031° 

0320 

0321 

0322 

0323 
032  a- 
032  5 

0326 

0327 

0328 

032  8 
0330 

033  1 

0332 

0333 

0334 

0335 
03  3*: 
0337 
033° 

0339 

0340 

0341 

0342 
034? 

0344 

0345 

0346 

0347 

0348 

0349 

0350 

0351 

0352 

0353 

0354 
0356 

0356 

0357 
03  5 8 

0359 

0360 

0361 

0362 
A 0363 


ASSEMBLE  REVISION  001  OF  AGO  PROGRAM  APURQPE  BY  EYLES 
0 R 3 I T A L INTEGRATION 


REF 

1 

REF 

9 

LAST 

123" 

P EF 

1 

■nEF 

LAST 

1235 

i.  p f 

? n 

LAST 

123  4 

C.  C 

REF 

1 

REF 

2 

LAST 

1235 

P EF 

1 1 

LAST 

1 2 3 5 

REF 

2 

LAST 

1235 

RE  F 

12 

LAST 

1235 

REF 

2 

LAST 

12  34 

REF 

2 

LAST 

1235 

REF 

3 

LAST 

1235 

REE 

13 

LAST 

12  35 

REF 

66 

LAST 

1227 

REF 

27 

LAST 

1233 

REF 

1 

ref 

/. 

LAST 

12  36 

REF 

67 

LAST 

1235 

REF 

68 

LAST 

1235 

REF 

28 

LAST 

123  5 

REF 

5 

LAST 

1233 

REF 

1 

REF 

6 

l AST 

1235 

REF 

1 

11,3101 
11  , U02 
11,2103 
11,3104 
1 1 ,3105 

11.3106 

1 1 .3107 

11.3110 

11.3111 

11.3112 

11.3113 

11.3114 

11.3115 

11.3116 

11.3117 

11.3120 

11.3121 
11  ,312  2 

11.3123 

11.3124 

11.3125 

11. 3126 

11.3127 

11.3130 

11.3131 

11.3132 

11.3133 

11.313 4 
1 l , 3 1 ? 7 
11,  313  6 
11,3137 

1 1 . 3140 

11.3141 

11.3142 

11.31 4 3 

11.3144 

11 .3145 

1 1 . 3146 

1 1 . 3147 

11.3150 

11.3151 
11,31 5 ? 

11.3153 

1 1 .3154 

11.3155 

11.3156 

11.3157 


77621  1 
77603  1 
51764  0 
43271  1 
02070  1 
00005  1 
56273  1 
51760  1 
02070  1 
74215  L 
00003  1 
62032  1 
14033  1 
70403  1 
51764  0 
43271  1 
02070  1 
50473  1 
51760  1 
43271  1 
02070  1 
765  6 1.  1 
CGC25  0 
77645  0 
00033  1 
14033  1 
02070  L 
63501  0 
-71 
60316  0 
00051  0 
54606  0 
.517  54  0 
40161  0 

C 00  33  1 
23145  0 
56070  0 
C 0046  0 
GG046  0 
53670  0 
00050  1 
20153  1 
40055  0 
02062  1 
22774  G 
36062  0 
27725  1 


8DSU 

DMP* 

ODV 

DMPR* 

CAD 


STOOL 
DM  P* 

DDV 

DMPT* 

DDV 

VXSC 

0VSU 

STOOL 

NORM 

OSQ 

PUSH 

VXSC 

X AD , 1 

XAD , 1 

VAD 

STCALL 


11* 3160  77716  1 QLALITY3  DSQ 


i " 


3:15  DEC 


2,1970  SKIPPER  .067  PAGE  1235 


USER'S  PAGE  NO.  9 EO  S3 

J4KEQ/ J3 ,2 

DAD 

ALPHAM 

4 

DDV 

2 J3PE/ J2 ,2 
ALPHAM  . 

VXSC 

2 

At  PHAV 

T VEC 

SRI 

J4REQ/ J3 ,2 

DAD 

-3 

(((P8/?56)3  2 /R  + P4/32)  /!  + D 3 /8  ) AL  PH  AV 

4 3 

ALPHAM 

6 R 3 

-3 

2 J3RE/J2,2 

DAD 

ALPHAM 

VS  LI 

UZ 

3 4 

T VEC 

T VEC 

ALPHAM 

DSQ 

XI 

NORM 

SI 

BDDV* 

J 2F  Eg  SQ , 2 

BOV 

T VEC 

4 

NORMED  R TO  OD 

+ 1 

XAD,  1 

XI 

XI 

VS  L* 

SI 

0 -2  2D , 1 

BOV 

FV 

GOBAQUE 

FV 

QUALITY! 

(RESET  OVERFLOW  INDICATOR) 

J 22  T EF  M X R**4  IN  2D,  SCALED  B61 

AS  VECTOR. 

GAP:  ASSEMBLE  .-EVISI3N  SOI  OF  AX  PROGRAM  AP11KUPE  BY  EYLE.S 


» 


L ORBITAL  INTEGRATION 


3' 


2' 


0364 


0365 

pit  A 

REF 

3 

LAST 

A0367 
036  B 
0369 

A 0370 
0371 

REF 

6 

LAST 

0372 

0373 

REF 

2 

LAST 

03  70 

PEE 

4 

LAST 

0378 

0376 

REF 

3 

LAST 

0377 

A0373 

0379 

0180 

R EF 

7 

LAST 

0381 

A 03  8 2 

0383 

0384 

REF 

4 . 

LAST 

033  5 
0386 

n EE 

5 

LAST 

0387 

REF 

5 

LAST 

0388 

A0385 

0390 

03^1 

REF 

14 

LAST 

0392 

REF 

2 8 

1 AST 

03P  3 
A0394 


0395  REF  I 

0396 

A 039“' 

0398 

A03QC 

0400 

0401 

0402 
A 0^0  3 

0404 


040c 

REF 

?9 

1 AST 

0406 

0407 

A 04  08 

REF 

6 

LAST 

040P 

REF 

14 

LAST 

0410 

0411 

REF 

o 

l AST 

0412 

PEE 

7 

LAST 

0413 

REF 

2 

LAST 

11,3161 

41206 

0 

1213 

11,3162 

27712 

0 

11  . 1.1. A 8 

6 C 5 2 5 

Q 

11,3164 

442  1 5 

1 

11,3  1 r 5 

00011 

1 

1 19 

11 ,3166 

11043 

0 

11 , 3167 

41205 

0 

12  34 

1 1 , 3 1 7 0 

00017 

L 

I 2 3 6 

11,3171 

27712 

0 

11,3 17  2 

86561 

o 

1236 

11,3173 

00017 

1 

11,3174 

77725 

1 

11,3175 

4 32  25 

0 

1236 

11,3176 

1 1043 

0 

11 ,3177 

000  1 1 

1 

1 1 , 3200 

14011 

1 

I 2 

1 1 , 320  1 

00017 

1 

I 1 , 320  2 

4 1 2 1 5 

0 

1 236 

11,3203 

00  02  3 

0 

12  36 

1 1 , 3204 

27  712 

0 

11,3205 

43352 

1 

11 , 3206 

60325 

0 

123  5 

11, 3207 

02  070 

1 

113  2 

11,3210 

00050 

1 

1 1 ,3211 

6 72  06 

11,3212 

01354 

1 

11,3213 

7427  1 

0 

1 1 , 32  1 - 

53257 

1 

11,3215 

57601 

1 

1 1 , 321  6 

7 02  57 

0 

1 1 , 32  17 

20146 

0 

11, 3220 

6 5325 

0 

1 234 

11,3221 

01517 

0 

1236 

11 ,3222 

27712 

0 

11,3223 

4 5154 

0 

1234 

11,3224 

02030 

0 

1213 

11,3225 

5 5 716 

1 

1 1 , 3226 

40055 

0 

1235 

11,3227 

02062 

1 

1235 

1 1 , 3230 

22774 

0 

PUSH 

POOL 

DAO 

OMP 

VXSC 

POOL 

DSU 

STODL 

DPP 

SL  I 
POOL 

PIJRH 

00  V 
V SL* 

VS  L* 

POOL 

L X A > 2 

VAO 


i 


OMP 

5/8 

SR2 

BDSU 

80 

01/32 

OMP 

URPV 

5/3 

VSL  5 

URPV 


DAO 

01/32 

8D 

80 

URPV 

nwp 

JFPV  +4 

5/8 

DAD 

NORM 
ALPHAM 
X 2 

SLOAD 

E32C31RM 

VXSC 

VAO 

0 -3,2 
V/SC 

0 -270, 1 

POOL 

TET 

5/8 

CALL 

P BODY 
RP-TO- 
80V 
FV 

GOBAQUF 


3:15  DEC.  2,1570  SKIPPER  .087  PAGE  1236 

USER • S PAGF  NO.  10  EO  S 3 

STORE  C0SPEI**2  SCALED  B2  IN  8D 
5 SCALED  B3 

PUT  5 CC.$PHI**2,  D 5 , IN  80,  GET 

C0SPHI**2  02  FROM  8D 

END  UP  WITH  (1-7  C0SPHI**2),  B5 

ADDING  COcPHI **2  B4  SAME  AS  C0SPHI**2 

X 2 D5 

I SCALED  B 5 

X COMPONENT 

5 SCALED  B3 

ART  ED  SHIFT,  S CAL  FD  B5 

VECTOR,  Bl. 

VECTOR  INTO  8D,  10D,  12D,  SCALED  B5. 

GET  5 C0SPHI**2  OUT  OF  3D 

1 B5 

X COMPONENT  (SAME  AS  MULTIPLYING 
BY  UNITX) 

X COMPONENT 

Z COMPONENT 
5 83  ANSWER  F c 

FROM  1 2 D FOP  Z COMPONENT  (SL1  GIVES  10 
INSTEAD  OF  5 FOR  COEFFICIENT) 

BACK  INTO  1 2D  FQF  Z COMPONENT. 

SCALED  B27  FOR  MOON 

STO'E  IN  14D,  DESTROYING  URPV 
X COMPONENT 

IF  X2  = 0,  DIVISION  GIVES  B53,  VXSC 
OUT  OF  8 D B 5 GIVES  B5  8 
SHIFT  MAKES  B61,  FOR  ADDITION  OF 
VECTDP  IN  20 

OPERAND  FROM  OD,  BIOS  FOR  XI  = 0 
FOR  XI  = 0,  MAKES  B83 , GIVING  8-20 
FOR  RESULT. 


ANY  NON—  ZERO  CONSTANT 

POSITION  IN  00,  TIME  IN  6D.  X2  LEFT 

ALONE . 


OVERFLOW  INDICATOR  r>  E $ E T IN  "PP-TO-R" 


GAP:  ASSEMBLE  aEVISIG.’  001  GF 

L ORBITAL  I NTEGRAT  ION 


04-14 

REF 

8 

LAST 

1236 

1 

041  c 

1 

0416 

REF 

23 

LAST 

123  1 

1 

0417 

REF 

734 

LAST 

1224 

1 

0413 

1 

06- 1 Q 

c UC 

i 

"LI 

1 

0420 

REF 

735 

LAST 

1237 

1 

0421 

REF 

1 

1 

0422 

1 

042  3 

REF 

29 

LAST 

123  6 

1 

0424 

r EF 

5 

LAST 

1234 

1 

042  5 

0 EF 

5 

LAST 

1234 

1 

0426 

1 

0427 

REF 

1 

1 

c\l.o  pi 

D Cf 

1 

U He  i 

. r r 

1 

I 

042  c 

RFF 

1 

1 

0430 

- EF 

1 

1 

0 tu  A 1 

0432 

REF 

4 

LAST 

1230 

1 

043  3 

REF 

1 

1 

0434 

REF 

23 

LAST 

1230 

1 

043* 

1 

0436 

REF 

1 7 

LAST 

1227 

1 

0437 

REF 

10 

LAST 

122'- 

1 

0433 

1 

043  6 

REF 

2 

LAST 

1237 

1 

0440 

1 

0441 

RFF 

27 

LAST 

1234 

1 

0442 

REF 

1 

1 

044  3 

REF 

5 

LAST 

1233 

1 

0444 

REF 

1 

1 

0445 

1 

0446 

30 

LAST 

1236 

l 

04  4 7 

REF 

4 

LAST 

12  30 

1 

044  8 

RFF 

5 

LAST 

1231 

1 

0449 

1. 

045  0 

REF 

15 

LAST 

1236 

1 

0451 

1 

0452 

REF 

24 

LAST 

12  3 7 

1 

045  3 

1 

0454 

P.  EF 

1 

1 

0434 

& EF 

1 

1 

0456 

1 

045  7 

REF 

9 

LAST 

1233 

1 

045  6 

1 

045  9 

REF 

1 

1 

046  C 

1 

0461 

RFF 

2 

i AST 

958 

1 

0462 

REF 

2 

LAST 

1237 

1 

0463 

1 

AGC  PRC; GRAM  AP11RUPE  3Y  PYLES 


, 323  1 

02062 

1 

STORE 

, 3232 

72135 

0 

N BRAN  CH 

SI  OAD 

n l rAI 

J J C.  -J 

U .1  U J 

1 

, 3234 

00154 

1 

, 3235 

7 32  05 

1 

CMP 

, ’236 

27  714 

0 

,32  37 

00155 

0 

, 3240 

23247 

1 

,3241 

77745 

1 

COSPHIE 

DLOAO 

,32  42 

02  036 

0 

,3243 

24023 

c 

STOVL 

, 3244 

2 4 001 

0 

,3245 

77650 

1 

GOTO 

,3246 

23052 

1 

, 3247 

23466 

1 

DIFEQTAB 

CADR 

,3250 

234  72 

1 

C ADr 

, 325  1 

23503 

0 

CADP 

, 3252 

772H 

0 

timIstep 

BOF 

,3253 

00342 

1 

, 3254 

23303 

0 

,325  5 

01535 

0 

,3256 

4 1241 

0 

DOT 

, 3257 

01543 

1 

,3269 

02076 

1 

, 3261 

77640 

0 

BMN 

, 3262 

23303 

0 

,3263 

43014 

0 

BON 

, 326  4 

00303 

1 

, 3265 

233  60 

0 

, 3264 

04340 

1 

, 326  7 

23355 

0 

, 3270 

45145 

0 

DLOAD 

, 327  1 

01517 

0 

, 3272 

3 36  64 

0 

, 3273 

0210  5 

1 

STORE 

, 3274 

77754 

1 

L X A , 2 

, 3275 

02030 

0 

, 3276 

51445 

0 

INI UNCHK 

BVSU 

, 327  7 

01535 

0 

, 3300 

5 0025 

0 

OSU 

, 3301 

27  720 

1 

, 3302 

23975 

1 

,3303 

51575 

1 

RECTEST 

VLOAD 

,3304 

01521 

0 

, 3305 

77600 

1 

BOV 

, 3306 

23331 

1 

, 3307 

51025 

1 

DSU 

, 3 3 1 n 

25764 

0 

,3311 

23331 

1 

,3312 

53615 

0 

OAD 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

l 

1 

l 

1 

1 

1 

1 

1 

1 

’ 

1 

1 

1 

L 

1 

1 

1 

l 

1 

1 

1 

1 

l 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

l 

1 

1 


3: 1 3 DEC 


2 ,19  70 


SKIPPER  .C87  PAGE  1237 


FV 

L X A , 1 

DIFEOCNT 

MPAC 

CG3T  0 
-1/12 

MPAC 

DIFEQTA3 

ALPHAV  +4 
COSPHI/2 

Z UN  I T 

USER'S  PAGE  NO.  11  EO  S3 

COMT  ERM 
DIFEQ+O 
DIFEQ+1 
DIFE3+2 

VLOAD 

MIDFLAG 

RECTEST 

RCV 

D MR 

VCV 

DT/2 

( 1 .V)  X [ 0 E L T A T) 

RECTEST 

BOF 

MOONFIAG 

LUNS PH 

RPQFL AG 

FAR S PH 

CALL 

TET 

LSPOS 

R PQV 

RPOV  IN  MPAC 
cPOV 

P BOD  Y 

ABVAI 

RCV 

BMN 

: SPHE'  E 

DO SW  ITCH 
ABVAL 

TDELTAV 

rectify  IF 

CALLRECT 

BPL 

3/4 

CALLRECT 

1)  EITHER  TDELTAV  OP  TNUV  EQUALS  OR 
EXCEEDS  3/4  IN  MAGNITUDE 

SI* 

OR 

GAP: 


ASSEMBLE  REVISION  001  F A GC  PR  OGK  AM  API  IF  OPE  BY  EYLES 


L 


ORBITAL  INTtGRAT'N’ 


0464 

REF 

3 

LAST 

1237 

1 1,3313 

25764 

0 

0465 

11,3314 

57605 

0 

0466 

11,3315 

45271 

1 

046  7 

1 1 , 3 3 1 6 

f 0013 

0 

0468 

RFF 

1 

11,3317 

27716 

1 

04  6P 

1 1 , 3320 

77244 

0 

0470 

REF 

3 

LAST 

1237 

11,3321 

23331 

1 

0471 

REF 

8 

LAST 

1215 

11,3322 

01527 

0 

0472 

11,33 23 

46246 

0 

04  7 3 

REF 

4 

LAST 

1238 

1 1 ,3324 

2 5764 

0 

0474 

1 1 , 3325 

77600 

1 

047c 

REF 

A 

LAST 

1238 

11,3326 

2 3 3 31 

\ 

0476 

1 1,3327 

77640 

0 

0477 

REF 

1 

1 1 , 3330 

23333 

0 

0478 

11,3331 

7 76  24 

1 

0479 

REF 

7 

LAST 

1233 

11,3332 

2 3441 

1 

0480 

t l ,3333 

77775 

1 

0481 

REF 

c 

LAST 

1 2 ^ P 

1 1,3334 

01527 

o 

048  2 

PFF 

1 

11,3335 

25135 

1 

0483 

RFF 

10 

LAST 

1237 

11,3336 

01521 

0 

0484 

REF 

2 

LAST 

1 □ A 

1 1 . i B 3 1 

n i i ? 7 

]_ 

L I 9 -<  -J  ‘ 

'J  11'  1 

0435 

11,3340 

77c,  1 6 

1 

0486 

RFF 

1 

11,3341 

0024  1 

1 

0^87 

1 1 , 3342 

66375 

0 

0488 

REF 

3 

LAST 

1238 

1 1 , 334  3 

01127 

1 

0489 

REF 

24 

LAST 

1237 

1 1 , 3344 

01501 

1 

0490 

1 1,3345 

000,00 

1 

049  1 

R EF 

30 

LAST 

1237 

1 1 , 3346 

16032 

1 

049? 

REF 

3 

LAST 

1137 

1 1 , 3347 

2 4 00  7 

0 

049  3 

p EF 

3 

1 AST 

1233 

1 L , 3350 

021 00 

0494 

11,3351 

52014 

0 

0495 

REF 

2 

LAST 

1238 

11 ,3352 

00301 

0 

0496 

REF 

1 

11.  33  5.3 

? 3 7 n 5 

1 

L \ f ^ J .J 

C.  J 1 J U 

1 

0497 

PFF 

1 

11 , 3354 

225  16 

0 

049  8 

1 1 , 3355 

5 217  5 

0 

04  99 

REF 

6 

LAST 

1237 

1 1 , 3356 

02  105 

1 

0500 

REF 

1 

11,3357 

232  76 

0 

0501 

1 1 , 3360 

6 0545 

0 

0502 

1 1 . X'Xf*  ] 

0 C 0 1 3 

0 

0503 

11 ,3362 

50025 

0 

0504 

r EF 

2 

LAST 

1227 

11 , 3363 

27720 

1 

050^ 

RFF 

3 

l AST 

12  37 

1 1 , 3364 

23  30? 

0 

0506 

11 ,3365 

712  14 

0 

0507 

REF 

6 

LAST 

1237 

11 , 3366 

04340 

1 

0508 

REF 

2 

LAST 

1237 

1 1 , 3367 

23  3 75 

1 

0509 

REF 

31 

LAST 

1237 

1 1 , 3370 

01517 

0 

0510 

11, 3371 

77624 

1 

0511 

REF 

2 

LAST 

487 

1 1,3372 

336  64 

0 

0512 

11,3373 

77676 

0 

0513 

REF 

7 

LAST 

1238 

1 1,3374 

02105 

1 

CALL'  ECT 


1 i T T ATE 


DIFFQO 


EARS  PH 


L UNSPH 


ouv 

BPL 

A8VAL 

BOV 

BMN 

CALI 

VI  GAD 

STOVL 

STORE 

CLEAR 

VLOAD 

STOOL 

STORE 

BON 

VLOAD 

DLCAD 

DSD 

aoF 

CALI 

VCOMP 

STORE 


3:15  DEC.  2, 1?70  SKIPPER  .087  PAGE  1238 
USER • S PAGE  NO.  12  EO  S3 

3/4 

0 -7,2 
DSU 
10D 

R ECO  AT  in 
VLOAD 
CALLRECT 
TNUV 
DSU 
3/4 

CALLRECT 

1 NT GR  AT E 

' ECTIFY 

TNUV 
ZV 

TDELTAV 
YV 

JSWI TCH 
SSP 
YV 

DIFEQCNT 
0 

ALPHAV 
DP  ZERO 

H START  h AT  ZERO.  GOES  0 ( OELT/ 2 ) DELT . 

GOTO 
JSWITCH 
DOW . . 

ACCOMP 
GOTO 
RP3V 
INLUNCHK 
SR2 
10D 
B MN 

RSPHERE 
f?ECTEST 
DLOAD 
RPQFLAG 
DOSW I TCH 
TET 

L'JNPOS 


2)  ABVAL l TDELTAV ) EOUALS  OR  EXCEEDS 
.01 (ABVAL (RCV) ) 


RPQV 


GAP  : 


ASSEMBLE  nL  VISION  ©01  OF  AGC  PROGRAM  API 1R'  PE  BY  EYLES 


051  A 

0515 

0516 

051  7 
0518 
0R1C 

0520 

0521 

0522 

0523 
052^ 

052  c 

0526 

0527 

0528 

0529 

0530 
05  31 

0532 

0533 

0536 

053  c 
053  6 

0537 

0538 
053  9 
0560 
056  1 

0562 

0563 
0566 

0565 

0566 
056  7 
0*68 
056Q 


ORBITAL  INTEGRATION 


REF  1 

REF  2 LAST  123s 

R FF  3 LAST  116 
REF  8 LAST  1238 

REF  25  LAST  1237. 

PFF  8 LAST  1238 

REF  14  LAST  1225 
REF  2a  LAST  1239 
REF  32  LAST  1238 

"EF  1 


REF  28  LAST  1237 


RfF 

18 

LAST 

12?  7 

R E F 

10 

LAST 

1225 

REF 

19 

LAST 

l 23° 

RFF 

4 

LAST 

1239 

REF 

19 

LAST 

1220 

REF 

2 9 

LAST 

1 239 

REF 

2 

LAST 

1212 

RFF 

3 

t ART 

12  1? 

11,3375 
1 1 ,3376 
1 1,3377 
1 1 , 3600 

I 1 ,340  1 
1 1 , 3602 

I I , 360  3 
11 ,3606 

11 .3605 

1 1 . 3606 

1 1 . 360 7 
11,34  l 0 

11.3611 

11.3612 

11.3613 
11,36  1 6 

11 . 3615 

1 1 . 3616 

11.3617 

1 1 . 3620 

1 1 . 362 1 
11.  ,362  2 
11,3623 
11,3426 
11  ,3-625 
1 1 , 3426 
1 1 , 342  7 

1 1 . 3430 

11.3431 
1 1 , 343  2 
11, 3433 
1 1 , 3434 

11.3435 

11.3436 
1 1 , 5437 
1 1 , 3440 


77624  1 
23401  0 

77650  1 
233  33  0 

, r ; 7 t 

02112  1 
23441  1 
53775  1 
01535  0 
57576  1 
'"365 1 0 
02105  1 
57574  0 
01503  0 
15535  0 
01517  0 
77624  1 
33775  1 
57414  1 
00343  0 
23422  1 
53715  1 
01543  1 
l;  75  76  1 

77651  0 
77657  0 
57574  0 
01511  0 
01543  1 
671 r4  0 
02112  1 
0 C-  0 5 2 0 
52014  0 
0C303  1 
2 1 711  1 
26716  0 


D0SW1TCH 


OR  I GCHNG 


CALL 

GOTO 

STQ 

VLOAD 

VSU 

STORE 

STUDL 

C A I L 
BPF 

PDVL 

VSU 

VSL* 

STORE 
STORE 
L X A , 2 

BON 
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OR  I GCHNG 

INTO' ATE 
CALL 
ORIGFX 
RECTI FY 
VSL  * 

FCV 

0,2 

VSL* 

°PQV 

2,2 

RRECT 

RCV 

TET 

LUNVFL 

VCCMP 

MOONFLAG 

+ 1 

VSL* 

VCV 

0,2 


0 +2,2 

VRECT 

VCV 

SX  A, 2 

ORIGEX 

QPRET 

GOTO 

MOONFLAG 

Cl > M °0N 

S FT MOON 


« 
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P 055  0 THE  ECTI FY  SUBROUTINE  IS  CALI  ED  BY  THE  INTEGRATION  PROGRAM  AMD  OCCASIONALLY  BY  THE  MEASUREMENT  INCORPORATION 
R0552  ROUTINES  TO  ESTABLISH  A NEW  CONIC. 


« 


05  5 3 

0554 

0555 

0556 

0557 

055  F 

0559 

0560 

0561 
056? 

056  3 

0564 

0565 

0566 

0567 

0568 

0569 

0570 
05  71 
057? 
0573 


R FF 

16 

REF 

1 1 

REF 

2 7 

REF 

15 

PFF 

2« 

REF 

10 

REF 

20 

REF 

1 1 

RFF 

2 1 

REF 

12 

REF 

12 

REF 

11 

REF 

13 

0 E F 

10 

P EF 

3 

1 1 , 344  i 
LAST  1237  11,3/42 
LAST  1238  11,3443 

11. 3444 

1 1 . 3445 
LAST  1239  11,3446 
LAST  1 23°  11,3447 
l AST  1240  11,345(7 
LAST  1238  11,3451 

11.3452 

11.3453 
LAST  1239  11,3454 
LAST  123°  11,3455 
LAST  1240  11,3456 
LAST  1230  11,3457 
LAST  1240  11,3460 
LAST  1240  11,3461 
LAST  1240  11,3462 
LAST  1233  11,3463 
LAST  1228  11,3464 

11,3465 


77  3 54 

0 ? 0 3 0 
01521 
53257 
57605 
01535 
01503 
26535 
01527 
532  57 
576  0 2 
01543 
015  11 
25543 
24007 
01521 

1 527 

2 4007 
01551 
01553 
77616 


0 

0 

0 

1 

0 

0 

0 

0 

0 

1 

1 

1 

0 

1 

0 

0 

0 

0 

1 

0 

0 


RECTIFY  LX  A,  2 


VSL* 


STORE 

STOVL 

V SL* 


MINI  T. EC  T STORE 
STOVL 

STORE 

STOOL 

STORE 

STORE 

PVQ 


VLOAD 
P B1  )DY 
TDELTAV 
VAD 

0 -7,2 
RCV 
RRECT 
RCV 
TNUV 
VAD 
— 4,2 

vcv 

Vr  ECT 
VCV 

Z ER OV  EC 
TDEI.  TAV 
TNUV 
ZEROVEC 
TC 

XKEP 


3” 


2" 


SAP: 


P0574 
R 0576 
0576 
057  ? 
05  £0 

0581 

0582 

0583 
058^ 

05  85 
0585 
058*7 

0588 

0589 

0590 
05«1 

0592 

0593 

0594 

0595 

0596 

0597 

0598 

0599 

0600 
0601 
06U2 

0603 

0604 

0605 

0606 

0607 

0608 
0609 

06  1 0 
06  1 1 
0612 

0613 

0614 
06  1‘ 
06  16 

0617 

0618 
0619 
062  0 
06  21 
06  2 2 

0623 

0624 
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9?  B I 7 AL  I NT  EG p A ' I ON 


USE!  «S  PAGE  NO.  15 


EO  53 


THE  TH ; EE 
BEG  INN  IMG 

REF 

REF  2 
GEE  1 


DIFEO  r'  miNES  - CIFEO+O,  DIFEQ+12,  AND  DIFEQ+24  - ARE  EMEREDTO  PROCESS  THE  CONTRIBUTIONS  AT  THE 
, MIDDLE,  AMD  FND  OF  THF  TIMESTEP,  RESPECTIVELY.  THE  UPDATING  IS  DONE  BY  THE  NYSTROM  METHOD. 


REF 
r EF 


REF  4 
REF  5 
REF  2 


REF 

REF 

REF 

REF 

DEF 

REF 

REF 

REF 

REF 


REF 

REF 


5 

4 

5 

L i 


LAST  1237 
LAST  11- 


REF  10  LAST  1241 


LAST  124 1 
LAST  114 

LAST  1241 
LAST  1241 
LAST  1241 

LAST  1238 
EAST  1227 

LAST  1241 


2 LAST  12  3 8 


LAST  1241 
LAST  1238 
LAST  1241 
LAST  12-  i 

LAST  1241 


LAST  1241 
LAST  1241 


11 , 3466 
L 1 , 346  7 
11 ,3670 

1 1 . 3471 

11 . 3472 

1 1 . 3473 

11.3474 
1 1 ,34?  5 

11 . 3476 

11 . 3477 

11.3500 

11 . 3501 

I 1 , 3502 

11 .3503 

1 1 . 3504 

II  , 350  5 

1 1 . 3506 

11. 3507 

1 1 . 3510 

11.3511 
1 1 , 35  1 2 
11,3513 
1 1 , 35 14 
11,3515 
11,3-516. 
11,3517 
1 1 , 35  2 0 

11 . 3521 

11 . 3522 

11.3523 

1 1, 35  24 


64575  1 
02062  1 
36046  0 
23646  1 
74575  0 
02062  1 
>72 1 6 0 
02046  1 
26  0 - 1 
53362  0 
02046  1 
36046  0 
23o<t6  L 
57346  1 
02100  1 
25774  1 
74206  0 
C2046  1 
53372  1 
01135  1 
53361  0 
02100  1 
01127  1 
25127  1 
02062  1 
53322  1 
02054  1 
76561  1 
55  1 
) 1 1 3 5 1 
01135  1 


OIFfcQ  + C VIUAD 


STC AL l 

DIFEQ+1  VLOAD 

PUSH 

STCVL 
VSP  I 


DIFEQ+2  DLOAD 


VSR  3 

FV 

PHI  V 

DIFEOCON 

V SR  1 
FV 
VAD 
PHIV 
PSI  V 
VAD 
PHI  V 

STCALL  PHIV 

DIFEQCOM 
DM  PR 
H 

DP2/3 
VXSC 
PHIV 
VAD 
ZV 
VAD 
H 

YV 

Y V 
FV 
VAD 
PSI  V 
VSL  1 


PUSH 


VS  L 1 


VXSC 


STOVL 


VS'  3 


VXSC 

VAD 

STORE 


ZV 

ZV 


1 1 , 3525 

45014 

0 

BC'FF 

CALL 

EF 

3 

LAST 

1 23  R 

11,3526 

00341 

1 

J $ W ITCH 

OFF 

1 

11,3527 

23577 

0 

FNDSTATF 

REF 

23 

LAST 

1216 

11,3530 

11244 

0 

GRP2PC 

1 1 , 353  1 

77354 

0 

L X A , 2 

VLOAD 

REF 

2 

LAST 

104 

11,3532 

01117 

1 

COLREG 

REF 

5 

L AST 

1241 

11 ,3533 

01  135 

1 

ZV 

11 , 3534 

77732 

1 

VSL3 

REF 

31 

LAST 

1158 

1 1 ,353c 

12467 

1 

STORE 

W + 5 4 D , 2 

1 1,3536 

77775 

1 

VLOAD 

REF 

6 

LAST 

1241 

11,3537 

01127 

1 

YV 

1 1,3540 

40132 

0 

VSL3 

BOV 

REF 

1 

11  ,354  1 

2 3671 

0 

WMATEND 

REF 

32 

LAST 

1241 

1 1 , 35  4 2 

12401 

1 

STORE 

W , 2 

1 1,3543 

77624 

1 

CALL 

REF 

24 

LAST 

1241 

1 1 , 3544 

11244 

0 

GRP2PC 

ADJUST  W-POS IT  ION  FOR  STORAGE 
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L OrSITAL  INTEGRATION 


0625 

1 1,3545 

66354 

0 

L X A , 2 

SSP 

0626 

REF 

3 

LAST 

1241 

11,3546 

01117 

1 

COLREG 

0627 

REF 

36 

LAST 

1233 

1 1 ,3547 

C 005  2 

0 

S 2 

Ofc  ? F 

11,3550 

Of  COO 

1 

0 

06  2 c 

11,3551 

6 7 114 

1 

I NCR , 2 

SXA,  2 

nil  r 

1 1 , 3 - K 2 

00006 

1 

6 

0631 

REF 

7 

LAST 

1241 

1 1 , 355  3 

01126 

0 

Y V 

0632 

11,3554 

45104 

0 

T I X , 2 

CALL 

0633 

REF 

1 

1 1,3555 

23642 

0 

-bluADSV 

0634 

REF 

25 

LAST 

I 241 

] 1,355  6 

11244 

0 

GRP2TC 

06  35 

1 1 , 3 5 5 7 

67154 

0 

LX  A , 2 

SXA, 2 

0636 

REF 

Q 

L AC;T 

1 24? 

y l , ft  c n 

01126 

0 

vv 

0637 

REF 

4 

LAST 

1242 

1 1 , 356  1 

01117 

1 

COL  REG 

Ha  ft 

11.5  A A ? 

7 7/ 

1 

m p y T r n 1 

r«i  1 

ly  r ; c 

lit  - v C. 

* f C C.  ' 

I 

! V A > W ...  i 

Vy  L-  L. 

063  r 

REF 

26 

LAST 

12'  2 

11, 3563 

11244 

0 

G RP  2 pC 

064  C 

11 ,3564 

7 1 7 54 

0 

LXA  , 2 

VLOAD* 

064  1 

P E F 

e; 

LAST 

12-2 

I l , q 5 o 6 

01117 

\ 

COLE  EG 

0642 

REF 

33 

LAST 

1241 

1 1 , 3566 

75376 

1 

W ,2 

0643 

11 ,3567 

77722 

0 

VSP  3 

064  4 

REF 

9 

LAST 

1 2 4 2 

11,3570 

01127 

1 

STi  .RE 

Y V 

0645 

11 , 3571 

76173 

0 

VLOAD* 

A XT  , I 

064  6 

RFF 

34 

i AST 

1242 

1 1 , 3572 

7 5310 

1 

W +640,2 

0647 

11,3573 

00000 

0 

v V’ v/U  \J 

0648 

11 ,3574 

77722 

0 

VSR  3 

0649 

REF 

6 

LAST 

124] 

1 1,3575 

35135 

0 

STCALL 

zv 

065  0 

REF 

1 

1 1 , 3576 

23342 

0 

DIFEQO 

0651 

1 1 , 3577 

77  2 00 

0 

ENDS  TATE 

BOV 

VLOAD 

065  2 

REF 

3 

LAST 

1236 

1 1 , 3600 

22774 

0 

GCBAQUE 

0653 

PEF 

7 

LAST 

1242 

1 ] , 360  1 

01135 

1 

ZV 

0654 

REF 

12 

LAST 

1240 

11 , 3602 

25527 

0 

STOVE 

TNUV 

065  5 

REF 

10 

LAST 

1242 

1 1 , 3603 

01127 

1 

Y \/ 

0656 

REF 

13 

LAST 

124-0 

1 1 , 3604 

0 15  2 1 

0 

STORE 

TDELTAV 

0657 

1 1,3605 

43  014 

0 

BON 

BOFF 

065  8 

RFF 

3 

LAST 

12?  4 

1 1 , 3606 

0471 5 

0 

MIDAVFLG 

0659 

REF 

1 

1 1 , 3607 

27633 

1 

CKMID2 

0660 

REF 

22 

LAST 

1231 

11 , 3610 

01756 

1 

DI  HOF  LAG 

0661 

REF 

5 

LAST 

1233 

1 1 , 361 1 

27257 

1 

TESTLOOP 

0662 

1 1 >3612 

7 7776 

1 

EXIT 

06  63 

RFF 

1 12 

1 AST 

12.26 

11, 3613 

0 5353 

1 

TC 

PHASCHNG 

0664 

1 ] ,3614 

04022 

0 

OCT 

04022 

0665 

RFF 

63 

LAST 

1216 

1 1 , 3615 

0 5504 

0 

TC 

UPFLAG 

0666 

REF 

4 

LAST 

1216 

1 1, 3616 

00236 

0 

ADRES 

REINTFLG 

0667 

REF 

2 35 

LAST 

122  6 

11,3617 

0 6037 

0 

TC 

INTPRET 

0668 

1 1 , 3620 

7 7731 

1 

SSP 

06  6 9 

PEF 

20 

l AST 

12  1 - 

II , 3621 

00053 

1 

OPRET 

0670 

t-FF 

1 

1 1 , 362? 

23627 

0 

AMOVED 

0671 

1 1, 3623 

52014 

0 

BON 

GOTO 

0672 

REF 

27 

LAST 

1222 

1 1 ,3624 

01714 

1 

VINTFLAG 

1 " 
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ADJUST  W-PCSIT  ION  FOR  IMTEGP  ATTOIV 


ADJUST  W-VELCCITY  FOR  INTEGRATION 


CHFCK  FGF  MID2  BEFORE  GOING  TO  TIMEINC 


PHASE  1 

PHASE  CHANGE  HAS  OCCURRED  BETWEEN 
INTSTALL  AND  INTWAKE 
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0673 

PEE 

5 

1 AST 

1226 

11 , 3625 

067<i 

REF 

4 

LAST 

1226 

1 1 , 3626 

0675 

1 1 , 3627 

0676 

REF 

4 

LAST 

1241 

11,3630 

0677 

RFF 

6 

LAST 

1262 

11,3631 

DA7A 

1 1 , 363 2 

vc  » o 

0679 

11 , 3633 

0680 

REF 

10 

LAST 

1222 

1 1 , 3634 

0681 

REE 

1 

11, 3635 

0682 

REF 

7 

LAST 

1243 

11 ,363 6 

0683 

1 1 , 3637 

06 

1 1,36*0 

0685 

REF 

2 

LAST 

1243 

1 1,3641 

26661  1 
26734  0 

66214  0 AMOVED 

00061  0 

Ul 120  0 

77741  0 

66214  0 

01755  1 

23562  1 

-'ll  20  0 

77717  0 

77650  1 

23562  1 


ATOPCSM 
ATOPLEM 
SET  SSP 

JSWI TCH 
C 010  EG 
DEC  -30 

BOFF  SSP 

D60P9FLG 
NEXTCOL 
COLREG 
DEC  —48 

GC  T n 

N EXT COL 


068? 

1 1 , 364 2 

77745 

1 

RELOADSV 

OL  LAD 

06  87 

REP 

Q 

LAST 

1224 

1 1 , 3643 

011  16 

0 

TDEC 

0688 

PEE 

A ? 

1 AST 

127  3 

1 1 . 7 A /,.  /. 

34  Q4.  ^ 

0 

5 T C A ! L 

TQEf  1 

t?  C- 

1 L J 5 r 

0689 

REF 

1 

11 , 3645 

27141 

0 

I NTEGRV2 

0690 

1 1 , 3646 

43345 

1 

DIFEQCOM 

DLOAD 

DAD 

0691 

REF 

11 

LAST 

1237 

11,3 

02076 

1 

QT/2 

069  2 

REF 

6 

LAST 

12'  1 

1 1 , 365 0 

02100 

1 

H 

069  3 

1 1 ,3 6C  1 

661  1C 

1 

I NC ' , 1 

S X A , 1 

069* 

11,3652 

77763 

0 

DEC 

-12 

0695 

REF 

25 

LAST 

1238 

11,3653 

0 1 SCO 

0 

DIFEQCNT 

0696 

REF 

7 

LAST 

124  3 

11,3654 

02  100 

1 

STORE 

H 

0697 

11,  3655 

7456  1 

0 

VX  sc 

VSR  1 

0698 

REF 

1 2 

1 AST 

1241 

1 1 , 3656 

020  62 

1 

FV 

0699 

1 1 , 365  7 

74255 

0 

VAD 

VXSC 

0700 

REF 

0 

LAST 

124  2 

1 I . 7 /.  A 6 

ni  lie 

1 

7 \f 

lit  J V O V 

i 

L V 

0701 

REF 

8 

LAST 

1243 

11  , 3661 

02  100 

1 

H 

0702 

11  , 3662 

77655 

1 

VAD 

070  3 

REF 

11 

LAST 

1242 

1 1 , 3c 6 3 

01127 

1 

Y V 

0704 

REF 

31 

LAST 

12  3 8 

1 1 , 3664 

0 2032 

1 

STORE 

ALPHAV 

070  5 

11, 3665 

52014 

c 

BUN 

GOTO 

0706 

REF 

5 

LAST 

124  3 

I 1 , 3666 

00301 

0 

JSWITCH 

0707 

PEF 

2 

LAST 

123  8 

1 1 , 366  7 

23705 

1 

DCW . . 

0708 

REF 

1 

11, 3670 

22476 

1 

FBR3 

0709 

I 1,3671 

43014 

0 

WM AT  EN  U CLEAR 

CLEAR 

0710 

REF 

2 3 

LAST 

124? 

1 1,367  2 

01676 

1 

DIMOFLAC 

0711 

REF 

3 

LAST 

1226 

1 1 ,367  3 

01671 

0 

ORBWFL AG 

0712 

1 1 , 3674 

77614 

1 

CLEAR 

0713 

REF 

13 

LAST 

1226 

11 , 36.7  5 

02676 

1 

R ENDWF  LG 

0714 

11 , 3676 

774  14 

0 

SET 

EXIT 

0715 

REF 

9 

LAST 

1 21  8 

11 , 3677 

01472 

1 

STATEFt  C 

0716 

REF 

4? 

LAST 

1225 

1 l, 3700 

0 9467 

0 

TC 

ALARM 

0717 

11 ,3701 

0C421 

0 

OCT 

421 

0718 

REF 

236 

LAST 

1242 

11,3702 

0 60  3 7 

0 

TC 

TNTPRET 

l" 
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RELOAD  TEMPORARY  STATE  VECTOR 
FROM  PERMANENT  IN  CASE  OF 

BY  STARTING  AT  INTEGRV2. 
INCREMENT  H AND  DIFEQCNT. 


DIFEQCNT  SET  FOR  NEXT  ENTRY. 


OONT  INTEGRATE  W THIS  TIME 
INVALIDATE  W 


PICK  UP  STATE  VECTOR  UPDATE 


GAP: 

ASSEMBLE  REVISION  0G1 

GF  AGC  PROGRAM  AF 

>1  1R0PE 

BY  EYLES 

3:15  DEC. 

2,1970 

SKIPPER 

.087  PAGE 

L 

Of  BIT  AL  I NT  EG5'.  AT  1 01 

USER’S  PAGF 

NO.  IB 

EO  S3 

0719 

11 ,3703 

77650 

1 

GOTO 

0720 

REF  6 LAST  1242 

11 ,3704 

272  57 

1 

TESTLOOP 

FINISH 

INTEGRATING  STATE 

VECTOR 

GAP  : 
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P0721 
R 072  3 
R 072  5 

0727 

0728 
072° 

0730 
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ORBITAL  integration 


USEE'S  PAGE  NO.  19 


EO  S3 


ORBITAL  ROUT  I N 
VECTOR  OF  THE 
UGtS  A TABLE  0 


E FOP  EXTRAPOLATION  OF  T 
MATRIX  AND  CALLS  THE  NYS 
F VEHICLE  POSITION  VECTJ 


REF  17  LAST  1240 
DEF  7 LAST  1233 
REF  4 LAST  1232 

REF  1 

REF  13  LAST  1243 

REF  5 LAST  1237 
PFF  2 LAST  1234 


REF  18  LAST  1245 

REF  3 LAS'"  1245 

- EF  5 LAST  1245 

R FP  2 L A 5T  1245 

REF  30  LAST  1239 


REF  14  LAST 
REF  1.5  LAST 
REF  3 LAST 


1245 
1 2 4 r~ 
1245 

1243 


■EF  32  LAST 
'.EF  10  LAST  1231 
REF  33  LAST  1245 
REF  5 LAST  1238 

c EF  37  LAST  124? 


REF  6 I AST  1245 


1 1 ,370  5 
1 1 , 370  6 
11,3707 
11,3710 
1 1 , :j7i  i 

11. 3712 

1 1 . 3713 

1 1. 3714 
11,3718 

11.3716 

11.3717 
1 1 ,372  0 
11 , 372  1 

1 1 . 3722 

1 1 . 3723 

11 .3724 

1 1.3725 

11 .3726 

11.3727 
1 1 , J 7 30 

11 . 373 1 

11.3732 
1 1 ,3733 
11,3734 
1 1 , 3738 
1 1 , 3736 
11 , 3737 
1 1 , 3740 
1 1 , 3741 
11, 3742 
1 1 , 374  3 
1 1 , 3744 

1 l , 3748 

11 .3746 

11.3747 
1 1 ,375  0 

11.3751 

11.3752 

1 1 . 3753 

1 1 . 3754 

11 . 3755 


70754 

02  030 

51  770 
36072 
23733 
C 2 O o 2 
6 2 0 1 4 
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23232 
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3 607? 
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50414 
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02062 
3 6 062 
2 3232 
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0 2032 
53513 
02132 
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02032 
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2 5 764 
o 0 3 2 5 
00045  0 

00052  0 
6 340  6 
77605 
65301 
00043 
02072 
5 6 34? 
77761 
5715  4 


HE  W MATF IX.  IT 
TRUf  INTEGRATION 
RS  CONFUTED  DUP I 
DOF..  LX A , 2 


STCALL 


DOW.  . 1 


ST:  • E 
BOF 


DEC 
LXC  ,2 


STCAL 

BON 

VAD 
STC  Al  t 
VLOAD 
PDV!  4 
PD  VL 
VXSC 
POOL 


PUSH 

DMP 

NORM 


SP1 

VXSC 


COMPUTES  THE  SECOND  DERIVATIVE  OF  E 
ROUTINES  TO  SOLVETHE  DIFFERENTIAL 
NO  THE  INTEGRATION  OF  THE  VEHICLES 
DLQAD* 

P BODY 
MUEA"TH,2 
BETAM 
DOW. . 1 
F V 

I NC < , I 
M I DF  L AG 
NBRANCH 

-6 

D LO AD* 

P BODY 

MU EARTH  -2,2 
L BETAM 
DOW.  . 1 
V SR6 

MOONFLAG 
+ 1 

FV 
t.  FV 

NBRANCH 

VSR4 

ALPHAV 

UNIT 

VFCTAB, 1 

VPROJ 

ALPHAV 

VSU 

3/4 

NORM 

36D 

S 2 

DSQ 

POOL 

34D 

BETAM 

DDV 


33 

LAST 

124  5 

11 ,3756 

£0051 

0 

S 2 

R EF 

39 

LAST 

1 245 

11, 3757 

00051 

0 

S2 

11,3760 

57074 

0 

X AD , 2 

X AD , 2 

D F F 

40 

LAST 

1248 

1 1 ,3761 

00C51 

0 

S 2 

11,3762 

00042 

1 

34D 

11 ,3763 

43457 

0 

VS  L* 

RVQ 

ACH  COLUMN  POSITION 
EQUATIONS.  THE  PROGRAM 
POSITION  AMD  VELOCITY. 
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07745  * 

077  4*  * P F F A L ACT  1183 

07747  * 

07748  *REF  3 LAST  713 

07749  * P. E F 1 

077491* 

07 76 92* REF  5 LAST  1246 

077493* 

C77494*REF  2 LAST  1246 


11.3765  43131 

11.3766  00027 

11.3767  00024 

11.3770  03752 

11.3771  25212 
1 1,377  2 r 2 1 3 1 

11.3773  00027 

11.3774  00005 

11.3775  25212 


0 SET  ITCTR  SSP 

1 
1 
1 
1 

U SSP 

1 
1 
1 


BOFF 

ITE«CTP 

2 OD 

AVEGFL AG 
LAMBERT 
GOTO 
ITERCTR 
8 

LAMBERT 


SET  ITERCTR  FOP  LAMBERT  CALLS.  THIS 
CODING  BELONG*  IN  INI  TV EL  AND  IS  HERE 
FOR  PURPOSES  OF  A ONE-MODULE 
R EMANUF  AC TUP  E ONLY.  CODING  SHOULD 
BE  MOVED  BACK  TO  IMTVEL  FOR  LUMINARY  IB 
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REF 

1 

12,2000 

SETLOC 

ORBITAL  1 

0776 

12, 3745 

BANK 

0777 

12,3745 

046  31 

1 

3/5 

2DEC 

.6  B-2 

0777 

12,3746 

2 3146 

0 

0778 

12,3747 

14000 

1 

THPFE/4 

2 DEC 

. 375 

0778 

12,3750 

OCOOO 

1 

0779 

12,3751 

02314 

0 

. 3D 

2DEC 

.3  8-2 

0779 

12,3752 

31463 

1 

0780 

12,3753 

01400 

1 

3/64 

20EC 

3 B-4 

0730 

12,3754 

OCOOO 

1 

0731 

12, 3758 

1 r 000 

0 

DP  1 / 4 

2 DEC 

.25 

0781 

12,3756 

00000 

1 

0782 

REF 

2 

LAST 

1199 

12,3755 

DQUAR  TER 

EQUAL  S 

DPI/4 

0783 

REF 

3 

LAST 

1246 

12,3755 

P0S1/4 

EQUALS 

DPI/4 

073  4 

1 2,3757 

03000 

1 

3/32 

2 DEC 

3 B-5 

078* 

12 , 376  0 

0 0000 

1 

0785 

12,3761 

360  00 

1 

15/16 

2 DEC- 

15.  B -4 

0785 

12, 3762 

OCOOO 

1 

0786 

12,3763 

30000 

1 

3/4 

2DEC 

3.0  B -2 

0786 

1 2 , 3 764 

OCOOO 

J. 

0737 

12, 3765 

22525 

0 

7/12 

2DEC 

. 5332333333 

073  7 

12,3766 

1 2525 

0 

0783 

12,3767 

2 2 000 

1 

9/1* 

2 DEC 

9 8 -4 

0733 

12,3770 

00000 

1 

0739 

12,3771 

01200 

1 

5/128 

2DEC 

5 B— 7 

0789 

12,3772 

OCOOO 

1 

0790 

REF 

14 

LAST 

1240 

12,2006 

DPZERQ 

equals 

ZEROVFC 

0791 

12,3773 

25252 

0 

DP2/3 

2 DEC 

. 6666666667 

0791. 

12,3774 

2C  2 5 3 

1 

079  2 

REF 

3 

LAST 

1241 

12,3773 

2/3 

EQUALS 

DP2/3 

0793 

12,3775 

00027 

1 

UCT27 

OCT 

27 
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0794 

0795 
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R 0797 

0798 

079° 

0800 

0801 

0802 

0803 

080'' 

0808 

0806 

0807 

0808 

0809 

0810 
0810 
0811 
0311 
0812 
031? 
0813 

0813 

0814 

0814 

0815 

0815 

0816 
081  7 
0818 

0819 

0820 
0821 
0822 
0823 
082  4 

0825 

0826 

0827 

0828 
08  2 o 

0830 

0831 

0832 

0833 

0834 

0835 

0836 

0837 


REF  2 LAST 

IT  IS  VITAL  THAT  THE 


REF 


LAST  1236 


13 , 3675 

1 3,  2000 

13,3675 

FOLLOWING 

13.3675 

13.3676 

1 3.3677 

13.3700 

13.3701 

13.3702 

13 . 3703 

13 , 7 704 

13. 3705 

13.3706 

13.3707 

1 3. 3710 

13.3711 

13.3712 

13.3713 

13.3714 

13. 3715 

13.3716 

13.3717 

13.3720 

13 . 3721 

13 . 3722 

13. 3723 

13 . 3724 
0000 
9006 
0014 
0016 
0024 
00  3 2 
0040 
0014 
0022 
0024 
0032 


CONST 

77764 

77775 

77766 

77771 

77775 

77775 

00000 

77763 

77766 

77773 

77770 

77771 
2 4C  00 
00000 
746  31 
63145 
00243 
32703 
036  54 
2 1000 
03654 
2 1000 
04627 
25200 


ANTS  NOT  BE 
1 
1 
0 
0 
1 
1 
1 
0 
0 
1 
1 
0 
1 
1 

0 -1/12 
1 

1 PECRATIO 

1 
0 
1 
0 
1 
0 
1 


BANK  13 
SETLOC  0RBITAL2 
BANK 

SHUFFLED 


ASC Al.  E 


5/S 


RSPHERE  2DEC 


RDM 

ROE 

P A T T 
VATT 
TAT 
RATT  1 
VATT  1 
MU  ( P ) 

T DEC  1 
URPV 

COSPHI/2 

UZ 

TVEC 


DEC  -11 
DEC  -2 
DEC  -9 
DEC  -6 
DEC  -2 
DEC  -2 
DEC  0 
DEC  -12 
DEC  -9 
DEC  -4 
DEC  -7 
DEC  -6 
2 DEC  5 B-3 

2DEC  -.1 

2DEC  .Cl 

64373.76  fc  3 8-29 

2 DEC  16093.44  E3  B-27 

2 DEC  80467.20  E3  B-29 

EQUALS  00 
E0UA1 5 60 
EQUALS  120 
EQUALS  14D 
EQUALS  200 
EQUALS  2 jD 
EQUALS  3 2D 
EQUALS  14D 
EQUALS  UF'.PV  +4 
EQUALS  200 
EQUALS  260 


13,3725 

712  1 4 

0 

QUAL I TY1 

BOF 

DLGAD 

REF 

31 

L A ST 

1 24  r 

13,3726 

00343 

0 

MOONFL  AG 

REF 

4 

LAST 

1245 

13,3727 

23232 

0 

N BRANCH 

RFF 

7 

LAST 

1247 

13,3730 

00017 

1 

URPV 

13,3731 

77716 

1 

DSQ 

13, 3732 

63525 

Q 

QUA! I TY2 

POOL 

DSQ 

SQUARE  INTO  2D,  B2 

REF 

8 

LAST 

1 247 

13  , 373  3 

000  2 1 

1 

URPV  +2 

Y COMPONENT,  B1 

1 3,3734 

27625 

0 

DSU 

13,3735 

74205 

0 

OMP 

VXSC 

5 ( y**2-X**2 ) UR 

REF 

7 

LAST 

1236 

13',  3736 

27712 

0 

5/8 

CONSTANT,  5B3 

REF 

9 

LAST 

1247 

13,3737 

000  17 

1 

URPV 

VECTOR.  RESUIT  MAXIMUM 

< 

i 

,i 
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..z 


5,  SCALING 
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0839  13 

0840  REF  10  LAST  1247  13 

0841  13 

0842  13 
A08A7 

084^  13 

0845  REF  11  LAST  1248  13 

0846  13 

0847  13 
A 0 8 4 8 

A 084  c 

0850  13 

0851  13 

0852  REF  1 13 

0853  13 

085'  REF  6 LAST  1237  13 


3740 

■ i 

65332 
n no  i 7 

0 

1 

0 

VSL3 

J I T A 

7 74  2 

43342 

SP1 

3743 

0-  COO  3 

1 

3744 

14003 

1 

STODL 

3745 

00021 

1 

3746 

44342 

1 

SRI 

3 74  7 

00005 

1 

3750 

00005 

1 

STORE 

3751 

74335 

1 

SLOAD 

375  2 

01353 

0 

3.7:5  3 

' 3 1 2 6 

1 

POOL 

3754 

0!  02  3 

0 
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POOL 

URPV 

DAD 

20 

2D 

UPPV  +2 

BDSU 

40 


4D 

VXSC 

E3.J22R2.M 
R VO 

CUSPHI/2 


USER' S PAGE  NO.  2?  EO  S3 

HERE  B6 

STORE  SCALED  B3  TN  2D,  ^D , 6D  FOR  XYZ 
X COMPONENT,  B1 

2 X X COMPONENT  FOR  B3  SCALING 
ADD  TO  VECTOR  X COMPONENT  OF  ANSWER, 
SAME  AS  MULTIPLYING  BY  UNITX.  max  IS 

Y COMPONENT,  B1 

2 X Y COMPONENT  FOR  B3  SCALING 
SUBTRACT  FROM  VECTOR  Y COMPONENT  OF 
ANSWER,  SAME  AS  MULTI PLVING  BY  UNITY. 
MAX  IS  7. 

2D  HAS  VECTOR,  B3 . 

MULTIPLY  CCIEFFIECIENT  TIMES  VECTCR  IN 

J22  TERM  X R**4  IN  2D,  SCALED  B6 1 
SAME  AS  URPV  +4  Z COMPONENT 


2D 
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0001 

0002 

0003 

000* 


p oooe 

R 00  C ■ 
R 000  c 

R0010 
R OC  1 2 

001  1 
0014 
001  5 
0016 

0017 

0018 
001 l- 
0020 
0021 
0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 
0034 
0037 

003  8 
003G 

0040 

0041 
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ASSEMBLE  RE 

VI  Sis 

- 'l 

OF  AGC  PROGRAM  AP11R0PE 

BY  EYLES 

3:  15  DEC.  2, 

19  70 

SKIPPER 

.087  page 

INFLIGHT 

ALIGNMENT 

ROUTINES 

USER  »$ 

PAGE 

NO.  1 

EO  S3 

22 , 3773 

BANK 

22 

REF  2 

LAST 

324 

23, 2000 

23,3297 

SETLOC 

BANK 

INFLIGHT 

REF  2 3 

LAST 

974 

E 5 , 1 64 2 

E B AN  K = 

XSM 

CAICGTA  COMPUTES  THE  GYD0  TORQUE  ANGLES  REQUIRED  TO  BRING  THE  STABLE  MEMBER  INTO  THE  DESIRED  ORIENTATION. 

"HE  INPUT  IS  THE  DESIRED  '•  ABLE  ME  M3E:  C''(  • DINA!  ES  : FEEL " ED  TO  PRESENT  STABLE  MEMBER  COORDINATES.  THE  THREE 
HALF-UNIT  VECTf S AS  E S''  ' ED  AT  XDC,  YDC,  AMD  ZDC. 


THE  OUTPUTS  ARE  THE  THREE  bYKO  TORQUING  ANGLES  TO  BE  APPLIED  TO  THE  Y,  Z,  AND  X GYROS  AND  ARE  STORED  DP  AT  IGC, 
MGC,  AND  OGC  RESPECTIVELY. 


f’EF  1.  COUNT* 

23,3247  71220  1 CAI  CGTA  ITA 

p EF  O LAST  1245  23, 32  8 0 00051  0 

REF  6 LAST  974  23,3251  02665  0 

23,3252  65325  0 POOL 

REF  15  LAST  1146  23,3253  06522  l 

REF  7 LAST  124-0  23,32  54  02671  0 

23,3255  55476  1 DC CMP 

2 , 3 2 ” 4 7 76  56  1 UNIT 

REF  1 23,3257  14027  1 STOOL 

REF  2 LAST  1249  23,3260  00027  1 


LS/IMFLT 

DLOAD 

PUSHDOWN 

CO- 0 3 

, 1SD-27D, 34D-37D 

S 2 

XDC 

= ( XD1 

XD2 

XD3  ) 

XDC 

YDC 

= (YD1 

Y D 2 

YD3  ) 

POOL 

H I6ZER0S 

ZDC 

= ( ZD1 

ZD2 

ZD  3 1 

XDC  +4 

VDEF 

ZPRIME 

ZPRIME 

ZP  = 

UNIT( 

-X03 

0 XD1)  = (ZP1  ZP2 

REF 

D EF 

12 

V :: 

L A$T 

1 ACT 

1137 

ir/,o 

1 .Ho  ’ 

REF 

] 1 

LAST 

1137 

REF 

4 

si  o y 

L,  M 1 

_>  c,  c 

REF 

2 

LAST 

123 

P EF 

3''' 

LAST 

124° 

REF 

13 

LAST 

1249 

REF 

: :4: 

LAST 

1249 

REF 

9 

LAST 

124° 

REF 

5 

LAST 

1249 

REF 

10 

LAST 

1249 

REF 

12 

LAST 

1249 

REF 

5 

LAST 

1249 

23.3261 

23.3262 

>1  . 3 ? A -J 

77742 

14023 

0 

0 

1 

0 

C.  J 1 -I  A.  J v 

23,3264 

U U U J J 

HIM 

23,3265 

34021 

0 

473  20 

A 

% D 1 Z-  U Q 

23,3267 

1*742 

1 

23,3270 

02667 

1 

23,3271 

77742 

0 

23,3272 

14023 

0 

23, 3273 

C0C27 

1 

23,3274 

652  05 

0 

23, 3275 

02671 

0 

23,3276 

00033 

1 

23,3277 

45205 

1 

23,3300 

02  6 65 

0 

23,3301 

7762o 

0 

2 3 , 3 3 r'  2 

43756 

1 

23, 3303 

47320 

0 

SRI 

STOOL 

SI  nth 

7 pi,  T '4  P +6. 

S IN  < IGC ) = ZP1 

SRI 

STCALL 

COST  H 

ARCT- IG 

COS (I GC)  = Z P 3 

IGC  Y GYRO  TORQUING  ANGLE  FRACTION  OF  REV. 

X DC  +2 

SI  NTH  SIN (MGC)  = XD2 

Z PR  I ME 

DM  P POOL 

XDC  +4  PDOO  = ( ZP  1 1 ( XD3 1 

Z PRIME  +4 

DSU 

XDC  MP  AC  = (ZP3MXD1) 

C 0 STM  COS  I MGC)  = MPAC  - PDOO 

ARCTRIG 


DMP 

STADR 

STCALL 


STOOL 

SR  1 
STOOL 


GAP: 


ASSEMBLE  REVISION  OCI  CF  AGG  PROGRAM  APlll.ilPE  BY  t YL fc S 
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0043 

REF 

2 

l AST 

123 

23,3304 

0044 

REF 

6 

LAST 

1249 

23,3305 

0045 

23,3306 

0045 

2 F F 

4 

LAST 

73  1 

23,3307 

0047 

PEF 

13 

LAST 

1249 

23,331 0 

004F 

R E F 

7 

l AST 

] 2 50 

23,3311 

0049 

23,3312 

0050 

REF 

4 

LAST 

931 

23,3313 

00  51 

REF 

14 

LAST 

1249 

23,3314 

005  2 

° E F 

6 

LAST 

12  49 

23, 3315 

0053 

PEF 

1 4 

L A S T 

771 

27 ,3315 

005^ 

REF 

42 

LAST 

1249 

23,3317 

24744 

1 

STOVL  MGC 

00027 

1 

ZPR1ME 

7 7641 

i 

ni  i t 

l 

UU  1 

02  701 

0 

Z DC 

240  21 

1 

STOVL  COST  H 

00027 

1 

ZPP IMF 

i 

1 

DOT 

02673 

1 

YDC 

34023 

1 

S7CALL  SINTH 

4 7320 

0 

ARCTR IG 

3^40 

1 

STCALL  OGC 

00051 

0 

S2 
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USER'S  PAGE  NO. 

Z GYRO  TQRQUING  ANGLE 


2 E5  S3 

FRACTION  OF  REV. 


COS(OGC)  = ZP  . Z DC 


SIN  (0,60  = ZP  . Y DC 

X GYRP  TORQUING  ANGLE  FRACTION  OF  FEV. 
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L INF  UGH'  ALIGNMENT  RQU1  IMES 

R005c;  ARCTRIG  COMPUTES  AN  ANGIE  GIVEN  THE  SINE  AND  COSINE  OF  THIS  ANGLE. 

R 0056  I HE  INPUTS  ARE  SIN/-;-  AND  COS/-  STORED  DP  AT  SINTH  AND  COSTH. 

R 005 7 THE  '"UTPUT  IS  "'HE  CALC'Ji  ATED  ANGLE  BETWEEN  +.5  AND  -.5  REVOLUTIONS  AND 

R 005  ° AVAILABLE  AT  MPAC. 


0060  23 1 332  0 

0061  kEF  15  LAST  1250  23,3321 

0062  23,3322 

0063  OFF  1 2 3 , ^ 3 2 3 

0066  REF  1 23,3324 


51545 

1 

ARCTRIG  DL  HAD 

ABS 

C 002  3 

0 

SINTH 

5 0025 
f''7534 

0 

1 

DSU 

8MN 

QTSN4 5 

47333 

1 

TRIG1 

006  5 
0066 
Df)l,  "7 

REF 

17 

LAST 

12  50 

23. 3325 

2 3 .332 6 

Uwu  < 

0068 

0069 

0070 

REF 

REF 

16 

7 

LAST 

LAST 

1251 

1 137 

23,3330 
23,  33  3 1 

2 3,3  33  2 

72  56  5 0 
C 00  21  1 
75326  1 
00023  0 
00025  0 
77616  0 


DLOAD  SL1 

COSTH 

AC-'S  SIGN 
SINTH 
STORE  THETA 
RVQ 


007) 

0072 

REF 

17 

LAST 

1251 

23. 3333 

23. 3334 

0073 

0074 

REF 

- a 

LAST 

12  61 

23.3335 

23.3336 

0075 

REF 

1 5 

1 AST 

1251 

2 3,  3337 

0076 

00T7 

&EF 

1 

23, 33  4 0 
2 3,3  34  l 

725  4 5 

0 Tf  I C 1 

Ct  had 

SL1 

00023 

0 

SINTH 

77736 

0 

AS  IN 

1 4 0 2 5 

0 

STUDL 

T HtT  A 

0 0 0 21 

1 

COSTH 

77640 

47344 

0 

1 

BMN 

TRIG  2 

0078 

23,3342 

43545  1 

0079 

KEF 

9 LAST  1251 

23 , 3343 

00025  0 

DLOAD  RVQ 

THETA 


0080 
0081 
0082 
008  3 

REF 

REF 

6 

18 

LAST 

LAST 

1146 

1251 

23.3344 

23 . 3345 

23.3346 
23,  3347 
23,3350 

0084 

REF 

10 

LAST 

1 2 5 1 

0085 

PEF 

1 1 

LAST 

1251 

23,  135  1 

0086 

28, 3352 

75345 

1 TFIG2 

DLOAD 

S IGN 

06520 

0 

HIDPHALF 

0C023 

0 

SINTH 

77625 

0 

DSU 

0 002  5 

0 

THETA 

00025 

0 

STOP  E 

THETA 

77616 

0 

RVQ 

i 

i 

USET  «S  PAGE  NO.  3 E5  S3 

..z 

STORED  AT  THETA.  THE  OUTPUT  IS  ALSC 

PUSHDOWN  16 D- 2 ID 

ABSISlf  /'  > - SIN  (451/4 
IF  (-45,45)  OR  (136,-135) 

(45,135 ! Of  (-135,-45 ) 

X = ARCCOS(COS)  WITH  SIGN(SIN) 

( -45 , L ) OR  (1  35,-135  ) 

X = ARCS  IN  (SIN  ) WITH  SIGH  SIT) 

IF  (135,-135) 

X = ARCS  IN (SIN)  (-45,45) 

! 135,-135  ) 

X = .5  WITH  SIGN (SIN)  - ARCS  IN (SIN! 

(+)  - (+)  OR  !-)  - (-) 


2' 


GAP: 

L 

R 0087 
P 008  8 
R 00  &T 


ASSEMBLE  ;v£ 

VISION  001 

OF  A GC  PROGRAM  A&L1RQPE  BY  FyLES 

3:15  DEC.  2 ,1970 

SKIPPER 

.087  PAGE 

I NFL  I GHT 

alignment 

routines 

USER'S  PAGE 

NO.  4 

E 5 S3 

SMNB,  NBSM,  AND  AX  IS  RQT  , WHICH  USED  TC  APPEAR  HERE,  HAVE  BEEN 
COMBINED  IN  A ROUTINE  CALLED  AX*SR*T , WHICH  APPFARS  AMONG  THE  POWERED 
FLIGHT  SUBROUTINES. 


GAP: 


R 0090 

RG09  2 
R OOP  < 
R 0096 

R 0097 


00° 

0100 

0101 

0102 

0103 

0104 

010? 

0100 

0107 

0108 

010  V 

01  ir- 
on 1 
01  12 
0113 
0116 
0115 

Oil' 

01 1 7 
0118 

0119 

0120 
0121 
0122 

0123 

0124 

0125 

0126 

0127 

oi  2 r 

0129 

0130 

0131 

0132 

0133 

0134 

0135 


AS  St  - i'll  REVISION  001  OF  A 1C  PROGRAM  API 

INFLIGHT  ALIGNMENT  ROUTINES 

CALCGA  COMPUTES  the  CDU  DRIVING  ANGLES 

THE  INPUTS  APE  1!  THE  NAV  IGA  I I OK  3ASE 
VEC  ' APE  S T f"p  F D AT  XNB, YNB,  AND  ZNB 
COUt  DIN ATE  SYSTEM  APE  STOP  ED  AT  XSM,  Y 


1R0PE  BY  EYLES  3:15  DEC. 

USER 

P EQU 1 1 ED  TO  BP'ING  THE  STABLE  MEMBER  INTO  T 

COU-DINaTES  REFERRED  TO  ANY  COORDINATE  SYS 
. 2)  THE  DESIRED  STABLE  MEMBER  COORDINATES 

SM,  AND  zsm. 


2 , 1970 

SKIPP 

ER 

.087  PAGE 

•S  PAGE 

NO. 

5 

E5  S3 

HE  DESIRED  ORIENTATION. 

TEM.  THE  THREE  HALF-UNIT 
REFERRED  TO  THE  SAME 


1253 


REF 

REF 

8 

2 

LAST 

LAST 

968 

122 

p Pi- 

l 

LAST 

LAST 

95  1 
1250 

REF 

43 

REF 

16 

LAST 

1251 

REE 

6 

LAST 

981 

REF 

1-9 

t Ar-T 

1251 

c EF 

~7 

LAST 

1250 

REF 

15 

LAST 

1250 

REF 

REF 

,vE4§ 

REF 

p cF 
REF 
REF 
REF 


P FF 
REF 

REF 

REF 

REF 


° LAST  1253 
3 LAST  1253 

17  LAST  1253 
LAST  1253 


10 

20 

8 

3 


L A c T 1253 
LAST  1253 
LAST  1253 
LAST  1250 


? LAST  122 


18 

24 


LAST  1253 
LAST  1240 


THREE  CDU 

DR  IV  IN 

G ANGLES  AND 

ARE  STi 

23,  13  53 

77601 

0 CALCGA 

SET  PD 

23,3354 

00001 

0 

23,3355 

473  75 

0 

VI  0AO 

23, 3356 

02665 

0 

23,3357 

02651 

1 

23,3360 

41456 

0 

UNIT 

23,336 1 

44041 

1 

dot 

? 9 . 77  A 9 

0 

6 Jf  JDOC 

I U 1 

23,3363 

00051 

0 

23,3364 

24021 

1 

STOVL 

23,3365 

OLD  01 

0 

23, 3366 

77641 

1 

DOT 

23,3367 

0 2 c>  7 3 

1 

2 3 ,3370 

34023 

1 

STCALL 

23,337  I 

47320 

0 

23,3222 

26740 

0 

STOVL 

23,2212 

0 C 0 0 1 

0 

23,3374 

5 02  35 

0 

VXV 

. -3  1 7 c 

fn  A A t 

6 U | J J I J 

u 

23,3376 

02651 

] 

23,3377 

77752 

1 

SL  1 

23,3400 

2402  1 

1 

STOVL 

2 3 , 340  1 

0 2651 

1 

23,3402 

7 7641 

1 

DOT 

23,3403 

02665 

0 

23 , 3404 

34023 

1 

STCALL 

23,3405 

47320 

0 

23,3406 

02744 

1 

STORE 

23 , 34 C 7 

45246 

0 

ABS 

23 , 3410 

07536 

0 

2 3,  141  1 

77644 

1 

BPL 

23,3412 

47431 

1 

27,3413 

5C375 

0 CALCGA1 

VLOAD 

23,3414 

02657 

1 

2 3 , 34  1 F 

0000 1 

0 

23,3416 

24021 

1 

STOVL 

23,3417 

02643 

1 

0 

VXV 
XNB 
Y SM 
PUSH 

I TA 
ZNB 
S 2 

CCSTH 

0 

YNB 
S f NT  H 
ARC  TRIG 
OGC 
0 

DOT 

XNB 

YSM 

C OS  I H 

YSM 

XNB 
SI  NTH 
ARCTPIG 
MGC 

DSU 

. 166. . . 

GIML0CK1 

DOT 

ZSM 

0 

COS  T H 
XSM 


PUSHDOWN  00-05,  160-210,  34D-37D 


XNB  = OGA  (OUTER  GIMBAL  AXIS) 
YSM  = IGA  (INNER  GIMBAL  AXIS) 
PDO  = UNIT (OGA  X IGA)  = IGA 


COS(OG)  = MG A . ZNB 


STM ( TO) 


MG A . YNB 


PROVISION  FOR  MG  ANGLE  OF  90  DEGREES 


COS (MG)  = IGA  . ( MGA  X OGA 


SIN(MG)  = IGA  . OGA 


IF  ANGLE  GREATER  THAN  60  DEGREES 


COS(IG)  = ZSM  . MGA 


3: 1,5  DEC 


SKIPPER  . 0 8 7 


PAGE  1254 


GAP:  ASSEMBLE  REVISION  001  GF  AGC  PROGRAM  API  lk.,, PE  BY  EYLES 


INFLIGHT 

alignment 

'"•JTr'ES 

0136 

23,3420 

45441 

0137 

p EF 

2 1 

last 

12  53 

23 , 3421 

43754 

013: 

REF 

9 

LAST 

1253 

23,3422 

47320 

013' 

REF 

3 

LAST 

12R<= 

23, 3423 

2 4 742 

0140 

RFF 

14 

LAST 

1253 

23 , 3424 

02740 

0141 

23,3425 

77634 

0141  5 

REF 

4 

LAST 

483 

23,3426 

21620 

0143 

REF 

20 

LAST 

968. 

23,3427 

34322 

0144 

REF 

44 

LAST 

12  53 

23 , 3430 

C 00  51 

01  4 ^ 

? 3 , 34  3 1 

77776 

0146 

REF 

43 

LAST 

1243 

23, 3432 

0 5567 

0147 

23,3433 

00401 

0148 

REF 

6 3 

LAST 

12  t2 

23,3434 

0 5504 

0144 

REF 

2 

LAS'! 

374 

2 3 , 34 3 5 

0005o 

0150 

REF 

2 37 

LAST 

124  3 

23,3436 

0 6 037 

0151 

015? 


0 EF 


23,343  7 
23,3440 


77650  1 
47413  1 


DOT 

STCALL 


STAOR 
S I NTH 
ARC TRIG 


ST "VI  1GC 
nGC 

RTB 

V 1 ST02  S 
STCALL  THETAD 
S 2 


GIML0CK1 


EX  IT 
TC 
OCT 
TC 

ACRES 

TC 

GOTO 


. 2,1970 

USEF  • S PAGE  NO.  e 

S INI  I G ) = XSM  . MGA 


E 5 S3 


ALARM 
00401  °V~7 

U PEL  AG 
GLOKFAIl 

INTPRET 

CALCGA1 


A 


GIMBAL  LOCK  HAS  OCCUR EO 


I 


GAP:  ASSEMBLE  • i V.S!  )N  001  Of  AGO  P'UGKA^  AP11RLPE  BY  EYLES  3:15  DEC.  2,1970  SKIPPEF  .087  PAGE  1255 

L INFLIGHT  ALIGNMENT  ROUTINES  USER'S  PAGE  NO.  7 E5  S3 

R 01 53  AXISGE'  C O'  PUTFS  THE  C 'ORDINATES  OF  ONE  COORDINATE  SYSTEM  REFERRED  TO  ANOTHER  COORDINATE  SYSTEM. 

RQ 155  THE  I. PUTS  ARE  1)  THE  Six  1 VECTOR  REFERRED  TO  COORDINATE  SYSTEM  A STORED  AT  STARAD.  2)  THE  STAR2  VECTOR 

R0157  RE  FEr  ED  7."1  C .3  C r.  D j ‘ * A T F $ Y r T F ■ A S I ■ 1 ED  AT  STARAD  +6.  3)  i H F START  VECTOR  REFERRED  TO  COORDINATE  SYSTEM  B STORED 

R015Q  AT  LOCATION  fc  OF  THE  VAC  AREA'.  1 ) I HE  STAR  2 VECTOR  ' EFPR  RED  TO  COORDINATE  SYSTEM  B STORED  AT  LOCATION  12D  OF 

ROlf-I  THE  VAC  AREA. 


R 0162  THE  OUTPUT  DEFINES  COORDINATE  V A REFF.  ED 

R0164  A T l 1C  AT  I ONS  X DC » XDC  +6,  XDC  +12U,  AND  STA-  AD, 


TO  COORDINATE  SYSTEM  8. 
STAR AD  *6 , STARAD  +12D. 


THE  THREE  HALF-UNIT  VECTORS  ARE  STORED 


01 6 c 


23,3'  41  66370  0 AXISGEN  AXT  , 1 S"S P 


PUSHDOWN  0Y  - 30D,  34D-37D 


0166 

REF 

32 

LAST 

971 

23,3442 

02714 

1 

STAR  AD 

+ 6 

01  7 

REF 

29 

LAST 

12  3 5 

23 , 344  3 

00051 

0 

SI 

0168 

REF 

3:3 

LAST 

1255 

2 3 , 3444 

, 0 2 7 G G 

1 

star  AO 

-6 

016° 

0170 

0171 


0172 
C17  3 

REF 

REF 

34 

35 

3 6 

LAST 

1 AST 

1255 

1256 

1255 

0174 

0175 

REF 

LAST 

o o 

O' 

REF 

37 

LAST 

1255 

0178 

017' 

REF 

33 

LAST 

1 2 5 r 

0180 

REF 

39 

1.  AST 

1255 

0181 

0182 

REF 

1 

018  3 
0186 

0185 

0186 
0187 

0138 

0139 

0190 

0191 

0192 

0193 

019' 

0195 

0196 


REF  30  LAST  1255 


REF  45  LAST  1254 


23,3445 
23, 34 ' 6 
23,3447 

23.3450 

23.3451 

23.3452 

23.3453 

23,3ak/ 

23.3455 

23. 3456 

23.3457 

23. 3460 

23.3461 

23.3462 

23.3463 

23.3464 

23.3465 

23.3466 

23.3467 

23.3470 

23 . 3471 

23.3472 
23 , 347  3 

23 .3474 

23.3475 

23 ,3 '■  7 a 
23,3477 
23,3500 


77601  0 
(0001  0 
46773  0 
02723  0 
C2731  0 
7765-  l 
06731  1 
77773  1 
02723  0 

76433  1 
02731  0 
06737  1 

77700  0 
47 '■  4 7 0 

66160  0 
00006  1 
00036  1 

66370  0 
00022  1 
00051  0 
00006  1 

66374  1 
OC  006  1 
COO  52  0 
00002  0 

76720  0 
00036  1 
00001  0 


AXISGEN1 


SETPD 

0 

VLOAD*  VXV* 

STARAD  + 12D , 1 
STA  AD  + 18D , 1 


UNIT 
STORE 
VL  AD* 


VXV* 


STOP  E 


T I X , 1 


STARAD  +180,1 
STAPAD  +120,1 
VSL1 

STARAD  + 1 8 D , 1 
STA  AD  +240,1 

AXISGEN1 


AXC , I S X A , 1 
6 

300 

AXT  , 1 SSP 
18D 

SI 

6 

AXT, 2 SSP 
6 

S 2 
2 

AX  I ■'  GFN2  XC  HX  * 1 VLOAD* 
30D 
0,1 


06  D 


1 2D 


UA  = SI 
STARAD  +00  D 

VA  = UP  I T ( S 1 
STARAC  +060 


UB  = 

S 2 ) 
VB  = 


SI 


UN  I T ( S 1 X S 2 ) 


1 3D  W A = UA  X VA 
STARAD  +1 2 D 


WB  = UB  X VP 


X l = -6  X2=  +6 


X 1=- 6 X2=+4 


Xl=-6  X 2=  + 2 


GAP:  ASSEMBLE  LEVJSION  001  OF  AGO  PROGRAM  API 1K0PE  BY  EYLES 


3: 15  DEC 


2,1970  SKIPPEF  .087  PAGE  1256 


L INR  I GHT  AL  I 8NMENT  ROUTINES 


USEE'S  PAGE  NO.  8 


0197 

23,3501 

62757 

0 

0 1 9 £ 

REF 

40 

LAST 

1255 

23, 3502 

7 50  62 

1 

0199 

23,3503 

00007 

o 

0200 

23, 3504 

77787 

1 

0201 

S E F 

41 

LAST 

1256 

23,3505 

75054 

1 

0202 

23, 3506 

30031 

0 

0203 

23,3507 

COO  15 

0 

02  OX 

23,3510 

53357 

0 

0205 

REF 

42 

LAST 

12  56 

23,3511 

7 5046 

1 

0206 

23,3512 

7 6455 

1 

0207 

23*3513 

0 003  1 

0 

0208 

23,3514 

53520 

0 

020° 

23,3515 

00036 

1 

021 0 

,REF 

1 1 

LAST 

1 249 

23,3516 

06707 

1 

0211 

23,3517 

77700 

0 

0212 

REF 

23,3520 

47  521 

1 

0213 

23,3521 

77704 

1 

0214 

REF 

1 

23,3522 

47476 

1 

0215 

23,3523 

77775 

1 

0216 

pef 

12 

l AST 

12  86 

73,3624 

02665 

0 

0217 

REF 

43 

LAST 

1256 

23,3525 

2 6 707 

0 

0218 

REF 

5 

LAST 

1250 

23,3526 

02673 

1 

0219 

REF 

44 

LAST 

1256 

23, 3527 

26  715 

0 

0221 

REF 

5 

LAST 

1250 

23 , 3530 

0 2 701 

0 

0221 

REF 

45 

LAST 

1256 

23, 3531 

02  72  3 

0 

VXSC*  POVL*  J=(UA)(UQ1  ) J = (UA)fUB2) 

S TAR  AO  +6,2 

6,1 

VXSC* 

STAR AD  + 12D, 2 

ST1  7L*  2-AO  K = ( V A ) ( V B 1 ) J = fVAHVB2I 

120,1 

VXSC*  V AO 

I TA  AD  +130,2  L = ( W A ) ( W B 1 ) J=(WA)!HB2) 

VAD  VSL1 
240 

XCHX , 1 UNIT 
300 

ST  , 1 xcc  +180,1  XDC  = L+J+K  YDC  = L+J+K 

TIX  , 1 

AX15GFN3 


AXISGEN3  TIX, 2 

A X I SG  EN2 

VLOAD 

XDC 

STQVL  STARAO 
YDC 

STDVL  STARAO  +6 
7 DC 

STOP E STARAO  +120 


022? 


23,3532  77616  0 


RVQ 


E 5 S3 

J = ( ' JA  ) ( UB  3 ) 


J=('/A)  ( VB  3 ) 


J=  ( -VA  ) ( WB  3 ) 


ZDC  = L+J+K 


GAP:  ASSEMBLE  . V 1 S I J.\  00 1 OF  A GC  PROGRAM  API  1R0PE  BY  EYLF.S 


3:15  DEC 


087 


PAGE  1257 


. 2,1970  SKIPPER  . 


L 


INFLIGHT  ALIGNMENT  ROUTINES 


USER'S  PAGE  NO.  9 


E c S3 


0281 

0281 

02B2 

23.3533 

23 . 3534 

23.3535 

05520 

26075 

05252 

0 

1 

1 

QTSN45 

• 1 o • • • 

2 DEC 

2DLC 

.1768 

. 16  6 6666667 

0282 

25, 3536 

25253 

1 

ft 

GAP : 
L 


3” 

2" 


ASSEMBLE  REVISION  001  OF  AGC  PROGRAM  APllRUPE  BY  EVLES 
INFLIGHT  ALIGNMENT  ROUTINES 


" 


ft 


3: 15  DEC . 2,1970  SKIPPER 

USE- '$  PAGE  NC.  10 


.037  PAGE  1258 
E 5 S3 


ft 


..  I 


GAP:  ASSEMBLE  KEVISI3N  001  >F  AGC  PROGRAM  API  1R0PE  BY 


L PC)  W E R E 0 F L I GHT  S UB’’  OUT  T N E S 


0001 

0002 

0003 

000-L 

REF 

1 

14,3774 

23,2000 

J J.  :2  q "J  7 

REF 

L 

•-  Ji  J J J J 1 

r 142 

0005 

cef 

l 

EYLfcS  3:15  DEC.  2,1970  SKIPPER  .087  PAGE  1259 

USER’S  PAGE  NO.  1 EO  S3 

BANK  14  SAME  FBANK  AS  THE  FINDCDUD  SUB-DPOGP.AM 

SETLOC  POWFLITE 

BANK 

EB ANK=  DEXDEX 
COUNT  * liH/PPWFI 


R 000  6 COUTPIG,  C0UTRIG1,  CDUTRIG2,  AND  CD*TR*GS  ALL  COMPUTE  THE  SINES  AND 

R00C7  COSINE ..  LF  THREE  2'S  COMPLEMENT  ANGLES  AND  PLACE  THE  RESULT,  DOUBLE 
R 0003  PRECISION,  IN  THE  SAME  N OE  AS  THE  INPUT  S,  AT  SINCDU  AMO  CUSCDU.  AN 

R 0009  ADDITIONAL  OUTPUT  IS  THE  l'S  COMPLEMENT  ANGLES  AT  COUSPOT.  THESE 

R 00 1 0 ROUTINES  GO  OUT  Of  THE’  '>  WAY  TP  I EAVE  THE  MLAC  A^EA  A S THEY  FIND  IT, 

R0011  EXCEPT  FOR  THE  GENERALLY  UNIMPORTANT  MPAC  +2.  THEY  DIFFER  ONLY  IN 

R 00 1 2 WHERE  THEY  GET  THE  ANGLES,  AND  IN  METHOD  OF  CALLING. 


ROC  13  COUT‘  IS  (AND  C OUT:  IT,  I CH  CAN  BE  CALLED  IN  BASIC)  COMPUTE  THE 

R 0014  SINES  AND  COSINES  FROM  THE  CURRENT  CONTENTS  OF  THE  C DU  REGISTERS. 
ROCl'  the  r put phjs  if  CWTEM”,  ET C • , APE  >T  TOUCHED  SO  THAT  THEY  MAY 

R 001 6 CONTINUE  TO  FORM  A CONSISTENT  SET  WITH  THE  LATEST  PIPA  READINGS. 


R 001 7 CDUTR  IG1  IS LIKE  CDUTRIG  '..EXCEPT  THAT  IT  C A!  BE  CALLED  IN  BASIC. 


R OC  1 8 
R 001  ° 
R 0020 
R 002  1 
R 002  2 
R 002  3 
R 00 2M' 
R Or  2 c 
R0026 
R 0027 


CD*  : *GS  FINDS  COU  VALUES  IN  CDUSP'  I LATHER  THAN  IN  CDUTEMP.  THIS 
ALL?  NS  USE'S  TO  MAKE  TRANSFORMATIONS  USING  ARBITRARY  ANGLES,  OR  REAL 
ANGLES  IN  AN  ORDER  OTHER  THAN  X Y Z.  A CALL  TO  THIS  ROUTINE  TS 
NECESSARY  IN  PREPARATION  FOP  A CALL  TO  AX*SR*T  IN  EITHER  OF  ITS  TWO 
MODES  (SMNB  OR  NBSM).  SINCE  AX*SR*  7 EXPECTS  TO  FIND  THE  SINES  AND 
COSINES  10  THE  ORDER  Y Z X THE  ANGLES  MUST  HAVE  BEL'  PLACED  IN  CDUSPiT 
IN  THIS  -.DE.  . CO*T  ,*GS  MEED  N(  T BE  REPEATED  WHEN  AX*SR*T  IS  CALLED 
MORE  'HAH  ONCE,  «>'  "VIDEO  the  AUCIES  HAVE  HPT  CHANGED.  NOTE  THAT  SINCE 
IT  CLOBBERS  BUF2  (IN  THE  SINE  AND  COSINE  ROUTINES)  CD*TR*GS  CANNOT  BE 
CALLED  USING  BANKCAIL.  SORRY. 


”002 o CD*TP*G  TS  LIKE  CO*T!  *G5  EXCEPT  'HAT  IT  r;  AN  BE  CALLED  IN 


R 002 ri 

INTEL  o-  et  IVE. 

0030 

0031 

0032 

0033 

REF  1 

REF  238 

LAST 

1 254 

23,3537 

23.3540 

23.3541 

23.3542 

0034 
003  5 
0036 
003  7 

REF  1 

REF  239 

LAST 

1259 

21.3543 

23.3544 

23.3545 
2 3,  3566 

0038 

0039 
0C4  0 
0041 

REF  17 
REF  26 
REF  8 

REF  27 

LAST 

LAST 

LAST 

LAST 

948 

Of  8 
948 
1259 

23,354 7 

23. 3550 

23.3551 

23.3552 

77776 

1 

CDUTRIG 

EXIT 

0 3547 

1 

TC 

CDUTRIGS 

Q 6037 

0 

TC 

INTPRET 

7 7616 

0 

RVQ 

77776 

1 

CD*TR*G 

EXIT 

0 3555 

1 

TC 

CD*TR*GS 

0 6037 

0 

TC 

INTPRET 

7 7616 

0 

RVQ 

3 0032 

0 

coin  ' TGS 

CA 

COUX 

54  7 72 

1 

TS 

C DUS  PET 

3 0033 

1 

CA 

COUY 

54  766 

1 

TS 

C DUS  POT 

GAP : ASSEMBLE  REVISIT  )<  1 I'-F  A G C PROGRAM  APU  : UP-E  BY  EYLt: 

L POWERED  FLIGHT  SDBROin  INES 


004? 

REF 

11 

0043 

REF 

28 

0044 

0045 

REF 

26 

004  6 

" EF 

23 

0047 

PFF 

21 

0048 

REF 

1 3 

0049 

REF 

14 

0050 

REF 

2 5 

0051 

7 E F 

736 

005  2 

ft  FF 

65 

0053 

REF 

5 

0054 

REF 

15 

005  5 

0056 

p EF 

73  7 

0057 

R EF 

15 

005  8 

REF 

3A 

0059 

REF 

6 

0060 

REF 

2 

00  fe  1 

REF 

738 

0C62 

REF 

16 

0063 

P EF 

4 

0064 

006* 

REF 

17 

0066 

REF 

31 

0067 

REF 

7 

0068 

r-  EF 

2 

006* 

KEF 

66 

0070 

RFF 

739 

0071 

REF 

18 

0072 

REF 

4 

0073 

REF 

19 

0074 

REF 

1 

007* 

REF 

27 

LAST  948  23,3553 
LAST  1259  23,3554 


3 0034  0 
54  770  0 


CA  CDUZ 

IS  C DUS  POT  +2 

EXTEND 
QXCH  T E M 2 

CAF  FOUR 

MASK  SIX 

TS  TEM3 

INDEX  TEM3 

CA  CDUSPOT 

DXCH  MDAC 

DXCH  VBUF  +4 

TC  USPRCADF 

CADR  CDULOGIC 

EXTEND 
CCA  MP AC 

INDEX  TEM3 

DXCH  CDUSPOT 

TC  USPRCADF 

CADR  COSINE 

DXCH  MP AC 

■ HEX  TEM3 

DXCH  COSCDU 

EX.  LEND 
INDEX  TEM3 

DC A CDUSPOT 

TC  USPRCADF 

CADF  SINE  +1 

DXCH  VBUF  +4 

DXCH  MP AC 

INDEX  TEM3 

DXCH  SINCDU 

CCS  T EM  3 

TC  F TR*GL**P 

TC  T EM? 


LAST  922 
LAST  107? 
LAST  1047 
LAST  922 
LAST  1260 
LAST  1260 
LAST  1237 
LAST  1073 
LAST  824 
LAST  570 

LAST  1260 
LAST  1260 
LAST  1 2 
LAST  1260 
LAST  1013 
LAST  1260 
I AST  1260 
LAST  100 

LAST  1260 
LAST  1260 
LAST  1260 
LAST  1013 
LAST  1 2 6 C 
l AST  1 260 
LAST  1260 
LAST  100 
LAST  12&0 

LAST  1260 


23,  155 r" 

23 . 3556 

23. 3557 

23.3560 

23.3561 

23.3562 

23.3563 

23.3564 
23*356* 

23 . 3566 

23. 3567 

23.3570 

23.3571 

23. 3572 
23 , 7573 

23.3574 

23.3575 

23.3576 
2 3,3  5 7 7 
23,3600 
23,7601 

23.3602 

23.3603 

23.3604 

23.3605 

23.360 6 

23.3607 

23.3610 

23.3611 

23.3612 
2 3,36  13 
23,361* 


0 POO  1 
22  142  0 
3 4751  0 
7 6242  1 
54  143  0 
50  143  1 
3 0766  0 
5?  155  1 
5?  127  1 
0 4713  0 
21576  0 
0 0006  1 
3 0 155  0 
5:  143  1 

*2  767  0 
0 '713  0 
01517  0 
52  155  1 
50  143  1 
52  745  0 
0 0006  1 
5 0143  1 
3 0767  1 

0 4713  0 
01531  1 

52  127  1 
52  155  1 
50  143  1 
52  737  0 
10  143  0 

1 3560  0 
0 014?  0 


CD*T" *GS 

TR*GL**P 


3:  13  DEC 


2,1970  SKIPPER  .087  PAGE  1260 


USER'S  PAGE  NO.  2 EO  S3 


MAKE  IT  EVEN  AND  SMALLER 


STORING  2 * S COMP  ANGLE,  LOADING  MPAC 
STORING  MPAC  FOR  LATFR  RESTORATION 


STORING  l'c  COMPLEMENT  ANGLE 


STORING  COSINE 


LOADING  l'S  COMPLEMENT  ANGLE 

SINE  +1  EXPECTS  ARGUMENT  IN  A AND  L 
8R  INGIF.G  UP  PRIOR  MPAC  TO  BE  RESTORED 


GAP  : 


ASSEMBLE  GBViSIGf  COL  JF  A SC  PROGRAM  API  1RGPE  3Y  EYLtS 


3: 15  DEC 


2,1970  SKIPPER  .087  PAGE  1261 


P 0076 

R 007  8 
ROOST 
R 0032 
R 008^ 

R 0086 

0090 

00901 

0090  2 

0091 
009  2 

009  3 
0096 
0096 

0096 

0097 

0098 
009° 
0100 
0101 
0102 
01 0? 
0106 

0105 

0106 

0107 

0108 

0 1 0 c 

0109  1 
01  in 

0110  1 


PnWFPED  FLIGHT  SUBRGUT  I':  ES  USER'S  PAGE  NO.  3 EG  S3 

**********************************************  ****************=*  ********************************************  ***** 


Q'UICTR  I 5 , I NT  £ NftED  F GUIDANCE  CYCLE  USL  WHEE  TI  E IS  CRITICAL,  IS  A MUCH  FASTER  VERSION  r--F  CD*TR*GS. 
OUICTRIG  COMPOTES  AND  STORES  THE  SINES  AND  COrINE-  TF  THE  2'S  COMPLEMENT  ANGLES  AT  CDUSPP",  CDUSPOT  +2, 

AND  CDUSPOT  + . UN!  [KE  CD*7  •-*$'$,  QUICTRIG  DOES  'T  LEAVE  THE  1*S  COMPLEMENT  VERSIONS  OF  THE  ANGLES  IN 

|!nUS°OT.  QU I CT  ' I G ' S F Y FnjT  I ' •’  TIME  IS  6.1  M S 5 THIS  IS  10  TIMES  AS  FAST  AS  CD*TR*GS.  OUICTRIG  MAY  BE 

CALLED  FROM  INTERPRETIVE  AS  AN  RTB  OP-CODE,  F:R  FROM  BASIC  VIA  BANKCALL  OR  IBNKCALL . 


REF  38  LAST 
REF  26  LAST 
REF  22  LAST 
REF  14  LAST 
REF  15  LAST 
REF  32  LAST 
REF  5 LAST 

REF  68  LAST 
REF  16  LAST 
REF  ,5  LAST 
REF  17  LAST 
REF  33  LAST 
RFF  5 LAST 

REF  69  LAST 
REF  18  LAST 
FF  5 LAST 
RFF  1 LAST 
° FF  5 LAST 
REF  39  LAST 

REF  377  LAST 


2 3, 3615 
23,3616 
903  23,3617 

1260  23,3620 

1260  23,3621 

°0  3 2 3,3622 

1261  23,3623 

1260  23,3624 

602  23,3625 

23,3626 
1132  23,3627 

1261  23,3630 

1260  23,3631 

1261  23,3632 

1261  23,3633 

602  23,3634 

23,3635 
1261  23,3636 

1261  23,3637 

1260  23,3660 

1261  2 3,36'  1 

912  23,3642 

1261  23,3643 

23 ,3644 
1 22  C 23,3645 


0 CO 04  0 
0 00 C 6 1 
22  061  C 
3 ••  751  0 
7 6242  1 
54  062  1 
50  062  0 
3 C 7 &6  0 
0 5033  1 
0 0006  1 
7 4736  0 
50  062  0 
52  737  0 
50  062  0 
3 07 66  0 
0 5032  0 

0 CL  06  1 
7 4736  0 
50  C62  0 
52  745  0 
10  062  1 

1 3621  0 
3 0061  0 
0 C 003  1 
0 0000  1 


OUICTPIb  IN HI NT 
EXTEND 

GXCH  ITEMPl 
CAE  FOUR 
MASK  SIX 
TS  ITEMP2 

INDEX  ITEMP2 
CA  CDUSPOT 

TC  SPSIN 

EXTEND 

MP  B IT  14 

INDEX  ITEMP2 
DXCH  S INC  DU 
INDEX  I TEMP? 

CA  CDUSPOT 

tc  corps 

EXTEND 

MP  B IT  1 4 

INDEX  ITEMP2 
DXCH  COSCDI.I 
CCS  TTEMP2 
TCF  QUICTRIG  +4 

CA  ITEMPl 

RELINT 
TC  A 


INHINT  SINCE  DAP  USES  THE  SAME  TEMPS 


SCALE  DOWN  TO  MATCH  INTERPRETER  CUTPUTS 


» 


GAP:  ASSt'-'BLE  .CVISIJN  pOi  OF  AGG  PPGGkAM  API IROPfc  BY  fcYLES 

L POWERED  FLIGHT  SUBROUTINES 

R01 11  ************************** ******************************* ******* 


3:15  DEC.  2 ,1970  SK  IPPEI 
USER'S  PAGE  NO.  4 

******  *#**#*  ***:£*:£***  gjjscgc:***  #*;{: 


.087 


**** 


PAGE  1262 
EO  S3 


********** 


POI 1 3 THESE  INTERFACE  HI 'L$  MAKE  IT  POSSIBLE  TU  CALL  AX*SR*T,  ETC.,  IN 

R01U  I NT  E'  FT  I VE . LATE  ■ , WHERE  POSSIBLE,  THEY  W ILL  BE  ELIMINATED. 


R0127  ~HESE  INTERFACE  ROUTINES  ARE  PERMANENT.  ALL  RESTORE  USER'S  EBANK 

R 0 1 2 8 SETTING.  ALL  ARE  STRICT  INTERPRETIVE  SUBROUTINES,  CALLED  USING  "CALL", 

R0129  ETUE  N 1NG  VIA  QPRET . ALL  I UNO  HE  VE1  I 

Pi  01 30  MED  INTE-  PRETE  -$TYl  E I M P AC ; COMP  NENTS  AT  -‘PAC,  PAC  +3,  AND  MPAC  +5. 


R 01  31  trg^SMmb  AND  T'  G*NR,:m  BCi'H  EXPECT  rn  ;EF  THE  2,c  COMPLEMENT  ANGLES 

R0132  AT  CDUSPOT  ( ri  ^ D £ n Y Z X , AT  CDUSPOT,  CDUSPOT  +2,  AND  CDUSPOT  +6:  ODD 
R 0133  LOCATIONS  NEED  NOT  RE  ZEROED).  TRG*N8SM  DOES  THE  NB  TO  SM  TRANSFOR- 
R0134  MAT  ION;  TRG*SMN3,  VICE  VERSA. 


F 0 1 3 5 CDU*NBSM  D r E S ITS  H'  A'JSFi  - 'TAT  10,1  USL'G  THE  PRESENT  6 0 N TENTS  OF 

R0136  THE  CDL  COUNTERS.  OTHERWISE  IT  IS  LIKE  TRG*NB-SM. 


R 0 1 3 6 1 


CDU#S MNB  TS  THE  COMPLEMENT  OF  CDU*NBSM. 


01  362 

01363  TEE 

01364  REF 


23 , 3646 

77776 

1 

CD!J*SMNB  EXIT 

LAST  1269 

23,3647 

0 3 547 

1 

TC 

CDUTP IG? 

23,3650 

I 36  53 

0 

TCF 

C*MN*N1 

0137 

0138 

01 3C 
0140 
014  1 

REF 

REF 

REF 

R EF 

2 

4 

32 

2 

LAST 

LAST 

LAST 

LAST 

1259 

107  0 

10  - • 

6 0 1 

23.3651 

23.3652 

23. 3653 
23,3854 
2"},  36  5 5 

014-2 

REF 

240 

LAST 

1259 

23 , 3656 

0143 

0144 

REF 

6 7 

LAST 

1260 

23, 3657 
23,3660 

77776 

1 

TRG*SMNB 

EXIT 

i 3555 

1 

TC 

CD*Tr *GS 

i 7532 

1 

C*MM*U 1 

TC 

MPAC  VB  UF 

► 624-5 

0 

CS 

THREE 

) 3675 

0 

C*mk*N2 

TC 

AX*SR*T 

l 6037 

0 

TC 

INTPRET 

43575 

1 

VL.OAQ 

RVO 

DC  123 

1 

VBUF 

AX*  SR  * T EXPECTS  VECTOR  IN  V BU  F 
SISNA1  FOP  SM  TO  NB  TRANSFORMATION 


0145 

23, 36  61 

77776 

1 

COU*NB£M 

0144 

PEE 

3 

LAST 

1262 

23,3662 

0 

3547 

1 

0147 

REF 

1 

23, 3663 

I 

3666 

0 

0 1 4 8 

23,3664 

~7 

7778 

1 

TRG*NBSM 

0149 

REF 

3 

LAST 

I 262 

23, 36 66 

0 

3555 

I 

0150 

RFF 

5 

LAST 

1262 

2 3,36  66 

0 

7532 

1 

C*MM*N3 

015  1 

REF 

33 

LAST 

126  2 

23, 3667 

3 

6 24  5 

I 

0152 

REF 

1 

23,3670 

1 

3655 

0 

015  3 

*NBS 

M*  AND 

*SMNB'7  expect 

TO 

SEE 

TH 

E SINES  AN 

0154 

AND 

C.r  SCDU  ) RATHER 

THAN  THE 

ANGL 

ES  THE 

MSELVES. 

0155 

LIKE 

T--  G*  NBSM 

AND 

TRG*SMNB. 

EX  IT 

TC  C OUT PIGS 

TCF  C*MM*N3 

EXIT 

TC  C D*  T '?  *G'S 

TC  MPACVBUF  FOR  AX*Sp*T 

C A THREE  SIGNAL  FOP  NB  TO  S M TRANSFORMATION 

TCF  C*MM*N2 

COSINES  (AT  S INC  DU 
OTHERWISE  THEY  APE 


P ( I 
R 015  7 


NOTE  THAT  JUST 
OF  TRANSFORMATIONS 


AS  CO*TR*GS  NEED  BE  CALLED  ONLY  ONCE  FOP  EACH  SERIES 
USING  THE  SAME  ANGLES,  SO  TUI  ONLY  ONE  OH  TRG*NBSM 


GAP:  ASSEMBLE  -.fcVlSlOA  GO  1.  CF  AGO  PR  < GRAM  API  IRf -PE  BY  EYLES 


3:15  DEC 


2 , 1 c 7 0 SKIPPED 


087  PAGE  1263 


L 

90166 
R 0159 

016  0 

0 IF  1 

0162 

0163 

R 016*- 
R 0 1 6 " 
R0166 
R 0167 
R 0168 
R 016Q 
R 0 1 7 0 

P 017  1 
R 0172 
R0173 

R 01 7 4 
R 017  c 

R 0176 
R 0177 
R 017  8 

rot 

0 1»  0 
oisi 
0182 

018  3 

C 1 - 

0186 

1 

01  1 
0188 
011  5 

0100 

0191 

019  ^ 
0193 
■ 1 

019  5 
0196 


POWERED  FLIGHT  SUBROUTINES  USER'S  PAGE  MO.  5 EG  S3 


AMD 

trg^ 

*SMNB  NEED 

BE  CALLED  FO 

R EACH 

SERIES.  FOR  SUBSEQUENT  TRANSFOR- 

NATIONS 

USE  *NBSM* 

AND  *SMNB*. 

2 3 , 3 6 7 1 

77  776 

1 

*SMNB*  EXIT 

REF 

2 

LAST  1262 

23, 3672 

1 36  53 

0 

TCP 

C*M  1 

23,3673 

77776 

1 

*N  BSM*  EXIT 

REF 

? 

LAST  1262 

23,3674 

1 3666 

0 

TCP 

C*MM*N3 

AX*SR*T  COHBIMtS  THE  OLD  STUB  AND  N8SM.  Fr.|  THE  NB  TU  SM 
TRANSFORMATION,  ENTER  1 1 r H +3  IN  A.  EOF  S'  T0  MB,  FN TE • WITH  -3. 

THE  WT  pc  TO  BE  tp.  a.wc  Fr  ■ WE  D A»f  IVES  , AND  T<  ’ETURNED , T VBUF. 

AX*SR*T  EXPECTS  TO  FIND  THE  SINES  AND  COSINES  OF  THE  ANGLES  OF  ROTATION 
AT  SINCDU  AMD  CO  SC DU,  IN  THE  URDEF  Y Z X.  A CALL  TO  CD*TR*GS,  WITH 
THE  2 ' S COMPLEMENT  ANGLES  {QEUEF  Y Z X)  AT  CDUSF01,  WILL  TAKE  CAKE  OF 
THIS.  HERE  IS  A SAMPLE  CALI  ING  SEQUENCE:- 

TC  CDUTRIGS 

CS  THREE  ("CA  THREE"  FOR  NB  SM ) 

TC  AxiSR*T 

THE  CALL  jr  CO  6 ■'  FED  ft  BE  ; t P FA  TED,  !•  HI  N AX*S'-*T  IS  CALLED  MORE 

T HA ‘ ONCE  , UNLESS  THE  ANGLES  HAVE  CHANGED. 

A X=!!SR*T  IS  GUARANTEED  SAFE  ONLY  FOR  VECTORS  OF  MAGNITUDE  LESS  THAN 
UNITY.  A LOOK  AT  TFE  CASE  IN  WHICH  A VECTOR  OF  GREATER  MAGNITUDE 
HAPPENS  TO  LIE  ALONG  AN  AXIS  OF  T HE  SYSTEM .TO  WHICH  IT  IS  TO  BE  TKANS- 
Fr  '?/F0  CUT:  VI I !C  E$  E 'HA-  THIS  '0  A PESfUO  I IN  WHICH  -HJ'  : BE  ACCEPTED. 


REF 

REF 

2 

l 

LAST 

1 2 c9 

23 , 367  5 

23.3676 

23.3677 

54  142 
0 0006 
22  145 

1 

1 

1 

AX*SR*T 

TS 

EXTEND 

QXCH 

OEXDEX 

RTNSAVER 

WHERE  IT  BECOMES  THE  INDEX  OF  INDEXES 

REF 

3 

LAST 

12  5 3 

23,3700 

lu  142 

1 

K 4T(_  # 5j!  p 

CCS 

OEXDEX 

+ 3 — > 0 -3  — > 2 

REF 

4 

LAST 

1263 

23 , 3701 

4 01 ',2 

1 

CS 

OEXDEX 

THUS:  +2  — > 1 -2  — > 1 

■EF 

34 

1 AST 

126  2 

23, 37^2 

A f ■>  A. 

i 

AD 

T LJ-  C IT 

_i_  i ■>?  — 1 v,  n 

1 

I Hry  c t 

23 , 37C3 

0 0006 

1 

EXTEND 

REF 

378 

LAST 

1261 

23,3704 

6 0000 

1 

INDEX 

A 

REF 

1 

23,3705 

3 37  64 

1 

CCA 

INDEX  I 

D EF 

1 

23,3706 

c2  14 

1 

DXCH 

DEXI 

REF 

127 

LAST 

1183 

23 , 3707 

3 47  53 

1 

CA 

ONE 

REF 

160 

LAST 

1 115 

23,3710 

54  130 

1 

TS 

BUF 

23,3711 

0 0006 

1 

EXTEND 

REF 

2 

LAST 

98 

23,3712 

5 0143 

1 

INDEX 

DEXI 

REF 

6 8 

LAST 

1262 

23,3713 

4 *.123 

0 

DCS 

VBUF 

D EF 

1 

23,3714 

1 3716 

0 

TCP 

LOO  PI 

TALLY  BE  A SUBTRACT,  AND  VICE  VERSA 

REF 

161 

LAST 

1263 

23,3715 

52  131 

0 

L00P2 

DXCH 

BUF 

LOADING  VECTOR  COMPONENT,  STORING  INDEX 

SAP:  ASSEMBLE  E VISION  001  OF  AGO  PROGRAM  API  1 .GPL  BY  EYI.ES 

L POWERED  FLIGHT  SUBROUTINES 


0197 

oi  9 a 

0199 

REF 

REF 

E F F 

740 

1 

■x 

LAST 

I A <vT 

1260 

1 263 

23.3716 

23.3717 
23, 3720 

52  155 
3 3762 
6 C 143 

1 

1 

LOOP  1 

DXCH 

CA 

AD 

MPAC 

S INESLOC 
D EX  1 

• u r 

-*> 

L A J : 

0200 

REF 

81 

LAST 

1076 

23,372  1 

54  116 

0 

TS 

A DDF  WD 

0201 

RFT 

21 

1 AST 

108  5 

23 ,7722 

0 7107 

0 

T C 

n M P 5 1 1 R 

L/  ' r J U U 

0202 

REF 

5 

LAST 

1263 

23, 3723 

10  142 

1 

CCS 

DEXDEX 

0203 

REF 

741 

LAST 

1 264 

23,3724 

52  155 

1 

DXCH 

MPAC 

020'- 

23,3725 

1 37  30 

1 

TCF 

+ 3 

020? 

23,3726 

0 00  06 

1 

EXTEND 

0206 

RFF 

762 

LAST 

1264 

2 3, 3 7? 7 

4 0155 

1 

DCS 

MPAC 

0207 

Q FF 

I 

23,3730 

5 2 16  0 

DXCH 

T g R M 1 t vf  p 

0208 

REF 

23 

LAST 

1261 

23,3731 

3 6242 

0 

CA 

SIX 

0209 

REF 

82 

LAST 

1264 

23,3732 

26  116 

0 

ADS 

ADDRWD 

0210 

23,3733 

0 0006 

1 

EXTEND 

021 1 

REF 

162 

LA  ST 

1 26  3 

23 , 3734 

5 C l 30 

0 

INDEX 

BUF 

0212 

REF 

4 

LAST 

1264 

23,3735 

5 0143 

1 

INDEX 

DEX  1 

0213 

REF 

69 

LAST 

1263 

23,3736 

3 0123 

1 

DC  A 

V BUF 

021 / 

REF 

74  3 

LAST 

12  64 

23,3737 

52  155 

1 

DXCH 

MPAC 

02  1 r 

REF 

22 

LAST 

1 264 

23,3740 

0 7107 

0 

TC 

DMPSUB 

021  ; 

R E F 

744 

LAST 

1264 

23 , 374  1 

52  155 

1 

DXCH 

MPAC 

0217 

RFF 

2 

LAST 

1264 

23,3742 

?0  160 

1 

DAS 

TE'.MITMF 

0218 

REF 

3 

LAST 

1264 

23, 3743 

52  160 

1 

DXCH 

TE.  MIT M P 

021° 

23,3744 

20  001 

1 

ODOUBL 

0220 

REF 

163 

LA  SI- 

1264 

23,3745 

50  130 

0 

I NDE  X 

BUF 

0221 

R E F 

C 

LAST 

1264 

23, 3746 

5 0 1 4 3 

1 

INDEX 

DEX] 

022? 

RFF 

7 0 

LAST 

1 2 64 

23 , 3 74  7 

5 2 123 

0 

DXCH 

V8UF 

0223 

REF 

1 64 

L A S T 

1264 

23,3750 

52  131 

0 

DXCH 

BUF 

0226 

REF- 

379 

LAST 

1263 

23,3751 

10  000 

0 

CCS 

A 

0225 

REF 

1 

23,37:2 
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C ( X 2 ) = NOf  M COUNT  OF  SORT ( ABS < AL FA ) ) 


SAP  : 

L 

POC  66 

R0C67 
R0069 
R 007  1 
R 007  ? 
R007? 
R 007  5 
R C077 
ROD  7 9 
R0081 
R 0082 
R 0083 
P 0085 
P 0036 
R0088 
Roca^- 

P 009  1 
R 009  2 
R 009  3 
R009* 
R 00°  5 
R009  f 
R 0098 
R0100 
R0102 
R0104 
P 0105 
R 0107 
R 0 1 ' 

R 01 1 1 
R 01 1 2 

R 01 1 3 
R0114 
R 0 1 1 5 
R0116 
R0117 
R011° 
R 0 1 1 9 
R 0 1 2 ( 
R0121 
R 01 2 3 
R 0124 
R0125 
R 0 1 2 7 
R 01 2 8 
R0129 
R0130 


i 


ASSEMBLE  REVIS 
TIME  OF  FREE 


ON  ,001  OF  AGC  PROGRAM  AP11R0PE  BY  EYl.ES 
F All 


3:15  DEC.  2,1970  SKIPPER 
USfcp ' S PAGE  NO.  3 


.087  PAGE  1270 
EO  S3 


SUBROUTINE  NAME:  TFFCUNIC  DATE:  01.29.67 

MOD  '0 : 0 LOG  SECTION:  TIME  OF  FREE  FALL 

MOD  8 Y : RR  BAIRNS  FATHER 


MOD  NO: 

1 

mod 

BY : 

pp  BAIUNS FAT HEP 

DAT  E : 

1 1 

APR 

67 

MOD  NO: 

2 

MOD 

BY  : 

PR  BAIRNSFATHEF 

DATE: 

21 

NOV 

67 

ADD  MOON  MU. 

MOD  NO: 

3 

MOO 

BY  : 

HR  BAIRNSFATHER 

DATE: 

21 

MAP 

68 

ACCEPT  DIFFERENT 

EARTH/MOON  SCALES 

FUNCTIONAL 

OE'.C  , r- 7 1 i 

1 HIS  SUBROUTINE  IS 

CALLED  TO 

COMPUTE 

THOSE 

C NIC  PARAMETERS 

REQUIRED  BY  THE  TFF 

SUBROUTINES  AND  TO  ESTABLISH  THEM  IN  THE  PUSH  I1ST  A R F A . THE  PARAMETERS  ARE  LISTED  UNDER  OUTPUT. 
THF  EQUATIONS  APE 


H = RN*V  N 

LCP  = H.H  / MU 

A!  FA  = ?/■',■'  - VH.VH  / MU 


ANGULAR  MOMENTUM 

SEMI  LATUS  RECTUM 

RECIPROCAL  SEMI  MAJ  AXIS,  SIGNED 


AND  ALFA  IS  POS 
0 

NEC 

ALSO 


SUBROUTINE 
CALL  ING  SEQUENCE : 

TFFCUNIC  EXPETTS  CALtE - 
1 / SQR T ( MU ) . PROGRAM  Wit  L 


FOR  ELLIPTIC  ORBITS 
FOR  PARABOLIC  ORBITS 
FOR  HYPERBOLIC  ORBITS, 
COMPUTES  AND  SAVES  RMAG. 


r E M T E UTH  COP 1 ECT  GRAVITATIONAL  CONSTANT  IN  MPAC,  IN  THE  FORM 
SAVE  IN  TFF/RTMU  . THE  SCALE  IS  DETERMINED  BY  WHETHER  EARTH  OR  MOON 


ORIGIN  IS  USED. 
VONE  AT  PROPEL 


THF  CALLER  MUST  LOCK  CUT  THE  EXTENDED  VERBS  BEFORE  PROVIDING 
SCALE.  THE  EXTENDED  VE'BS  MUST  BE  FESTERED  WHEN  THE  CALLER  IS 


STATE  VECTOP  IN  RONE, 
FINISHED  USING  THE 


TEE  R OUT ! NFS . 

ENTRY  POjr.  T ^FFCONMU  EXPECTS  THAT  TFF/RTMU  TS  ALREADY  LOADED. 

TO  SPECIFY  MO:  m HAD  CALL  IF  MU  ALREADY  STORED:  CALL 

YOURMU  1/TMU  E:  (17)  M:  (14)  TFFCQNMU 

TFFCONIC 

PUSHLOC  = PDL+C,  ARBITRARY  IF  L.EQ  18D 


SUBROUTINES  CALLED:  NONE 
NORMAL  EXIT  MODES:  r VQ 

ALARMS:  NONE 

OUTPUT:  THE  FOLLOWING  ARE  STORED  II1  THE  PUSH  LIST  AREA. 

'.MAGI  &:  (-2:1.  1 : (-27)  M RN,  PRESENT  RADIUS  LENGTH. 
NRMA3  E : ( ~2 °+  NO ! m RMAG,  NORMALIZED 

u:  (-27+  1 ) 


XI 

-NR, 

NORM  COUNT 

TFFNP  E: 

: (- 

38+2NR ) 

M LCP,  SEMI  LATUS 

RECTUM,  WEIGHTE 

M : 

: (- 

36 +2NP  ) 

TFF/RTMU 

E : 

(17)  M, : 1 

[ 14  ) 

1/SQRT ( MU ) 

fFFVSQ  r • 

:(2G)  : ( 18  1 

I 1 / M 

-(V  SC/MU): 

PRESENT  VELOCITY 

TFFAL FA 

E : 

( 26 -HR ) 

1/M 

ALFA,  WEIGHT 

ED  BY  NR 

M : 

( ->i  ) 

TFFPT  ALF 

E : 

( 10+NA ) 

SORT 

(ALFA),  NORMAL 

I ZED 

M: 

( °+NA ) 

D BY  NP 


tNORMLI 


ZED. 


FOF  VGAMCALC 


FOP  VGAMCALC 


i" 


GAP:  ASS  EMBL  C kEVISIDM  001  OF  A GC  PROGRAM  API  IRUPE  BY  E YLE  $ 


R0131 
R 01  32 
R01  33 
R013'i 

R0138 
R01  36 
R0137 
P 0138 
R014C 
R 0 1 4 2 
R 0 LAY 
R 0 1 4 f 


014  E 
0147 
014  8 

: i 

0,1.50 

C 1 5 1 

0152 

0153 

0154 

0155 

0156 
01^7 

0158 

0159 

0160 
0151 
0162 

0163 

0164 
A 016  5 

0166 
016^ 
4 01 6 8 
01  - 

0170 

0171 
017? 

0173 

0174 
A 0 1 7 5 

0176 


TIME  of  free  fail 

X2  -NA,  NORM  Ci!UNT 

TFF1/ALF  E:  (-22-2NA)  SIGNED  SEMI  M AJ  AXIS,  WEIGHTED  BY 
N:  (-20-2NA) 

PUSHLOC  AT  PDL+C 

THE  F OIL  Or'  I NG  I S STORED  IT  GENERAL  ERASABLE 
VT-t'iE'  F t ( 10)  m:  ( ) V/  r''j),  v.  i • ;\1  T/EO  VEIT  C'i  TY 

ERASABLE  INITIALIZATION  REQUIRED: 

RONF  EM-29)  MM-27)  M STATE  VECTOF 

V.GUE  EM-7)  ' M -5 ) M-/CS  STATE  VECTt 

TFE/RTMU  EMI")  MM  14}  1/RT  ( CS  SQ/M  CUBE) 

DEBT  IS:  3P*ET,  POL+O  ...  PDl+3 


R E F 

1 

3,3.3777 

2 7 , 2C  00 
2"’ , 336  0 

BANK 

SFTLUC 

BANK 

33 

TOF-FF 

REF 

2 

L AST 

46  TO 

46  : 

2 

2 * 

COUNT  * 

$ $/TFF 

REF 

4 

LAST 

717 

2 ■'  » 3 3 6 0 

00037 

,0 

TFFCO.IC 

STORE 

TFF/.i-  tmu 

27,3361 

535  75 

0 

T FFC.IMMU 

VL*  AD 

UNIT 

P ef 

1 r' 

1 A ST 

7 pc 

02207 

A 

t 1“  M P 

L H O I 

r r } j juz 

u 

r.  L 1 v l 

27,336 3 

77725 

1 

P DDL 

27,3364 

00045 

0 

36D 

REF 

1 

27  ? 336,5  ; ; 

GUO  15 

0 

STORE 

RMAG  1 

27,3366 

77701 

1 

NORM 

° EF 

49 

1 AST 

1235 

27 , 33>  7 

0 0047 

1 

XI 

REF 

1 

27,3370 

2'  041 

1 

STOVL 

NRMAG 

REF 

9 

L AST 

720 

27,3371 

022  15 

0 

VONE 

9 "7  - 9 -x  ~7  9 

77761 

1 

\/  y cr 

t-  < f J D t ^ 

i 

V A uo 

REF 

5 

i AST 

1271 

27,3373 

00  0 37 

0 

T FF/RTMU 

REF 

1 

27, 3374 

02170 

0 

STUFF 

VCNE  ' 

27,3375 

47361 

0 

VXSC 

VXV 

REF 

2 

LAST 

1271 

27,3376 

0C041 

1 

NRMAG 

27,3377 

47572 

1 

VSL  1 

VSQ 

RFF 

L 

27,3400 

14035 

1 

STODL 

TFFNP 

REF 

1 

27, 34C  1 

065  12 

1 

TFF1/4 

27 ,3402 

63271 

0 

DDV 

D D VL 

REF 

3 

LAST 

1271 

27,3403 

00041 

1 

NRMAG 

REF 

2 

LAST 

127  1 

27,3404 

021  70 

0 

VONE  ' 

27,3405 

57436 

1 

VSQ 

DCOMP 

REF 

1 

27,3406 

^00  25 

0 

STOP.  F 

TFFVSO 

27,3407 

43257 

0 

SR* 

DAD 

3 : 1 5 DEC 
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USER' S RAGE  NO.  4 EO  S3 


LEFT  BY  CALLER 
LEFT  BY  CALLER 
IF  ENTER  VIA  TFFCONMU. 


1/SQRTLMU)  E:  (17)  M:  (14) 

COME  HERE  WITH  TFFRTMU  LOADED. 

SAVED  PN.  M E:  (-29)  M : (-27) 

UR/2  TO  PDL+O,  +5 

MAGNITUDE 

M E:  (-29)  M:  (-273 


-NR 

RMAG  M E:  (-2°+NR)  M:  (-27+NR) 

SAVED  VN.  M/CS  E:  (-7)  M : (-5) 

E:  (17)  M:  (14) 

VM/SQRT (MU } E:  (10)  M:  (9) 


E:  (-29+NR)  M:  (-27+NR) 

UR/ 2 FROM  PDL. 

BEFORE:  EM-19  + NR)  MM-18+NR) 

LC  P M EM- 38  + 21  R ) MM-36+2NF) 

SAVE  ALSO  FOP  VGAMCALC 

( 2/PM  AG ) 1/M  EM26-NR)  M:(2^-NR) 

RMAG  M E:  (-29+NR)  MM-27+NR) 

SAVED  VN.  E:  (10)  M:  (9) 

KEEP  MPAC+2  HONEST  FOR  SORT. 

-(  V SO/ MU)  F :( 20 ) MM  18  ) 

SAVE  FOR  VGAMCALC 


GAP:  ASSEMBLE  • E VISION  COl  GF  AGC  Pf  UGi  AM  API 1RCP  E BY  tYLES 


L T 1 '• 1 OF  F : EE  F Al.l 


0177 

27, 3410 

20573 

1 

017P 

A 0179 

27,3411 

77626 

0 

STADR 

0180 

REF 

1 

27,3412 

77744 

0 

STOP  E 

01H1 

2'7, 3413 

‘■■1467 

1 

SL  * 

013  2 

27,3* 14 

2 0173 

0 

0183 

27,3415 

75446 

0 

ABS 

0184 

27,3416 

77701 

1 

NORM 

018  5 

REF 

29 

LAST 

1236 

2 7,3417 

00050 

1 

01 3f 

REF 

1 

27,3420 

0 00  31 

0 

ST  E 

0187 

A 01 

27,3421 

7631b 

1 

OSO 

0189 

27,3422 

552  54 

1 

BZE 

0190 

27,3423 

57425 

0 

0191 

REF 

2 

LAST 

1271 

27,3424 

u 6 512 

1 

0192 

REF 

1 

27,3428 

00027 

1 

+2  STUPE 

0193 

27,3426 

77616 

0 

0UMPCM1C  PVQ 

A0194 


3 
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USER’S  PAGE  NO.  5 EO  S3  • 

0-6,1 

GET  - VSQ/MU  E : ( 26-NR ) M:(24-NR) 

'■  FFALFA 

PUSH 

0 -6,1 

2/R.MAG  FROM  PDL  +2 

ALFA  1 /M  E : ( 26-NP ) M : ( 24-NR ) 

TEMP  SAVE  ALFA  E:(20J  M:(1R)  • 

SORT 

E : ( 10  ) M : ( 9 ) 

X2 

TFFT  TALE 

S IGN 

BDDV 
+ 2 

TFF1/4 

X2  = -NA 

SQRT  ( ABS  (ALFA)  ) EMIC+NA)  v>:l9+NA) 

NOT  SO  ACCURATE,  BUT  OK  • 

ALFA  FP  O'*  PDL  +2  E:(20)  M:(18) 

SET  1/ALFA  =0,  TO  SHOW  SMALL  ALFA 

TFF1 /AL F 

1/ALFA  E : ( -22 -2  NA)  MM-20-2  NA) 

39  W 

4 


GAP: 

L 

P 01  °F 
R 01  97 
R0199 
R 0200 
R02C  i 
R 0203 
R 0 2 0 5 
R 0207 
R 0208 
R 02 1 0 
R 02 1 2 
R02n 
R 021 4 
R 02 1 6 
R 02 1 7 
R 021  R 
R02]  9 
R 022  1 
R 022  2 
R 022  3 
R 022  4 

R 022  5 
R0226 
R 0227 
RC22P 
R 022  9 
R 023 < 
R 0 2 3 2 
R 023' 
R 0236 
R 0237 
R 0 2 3 f 
R 0240 
P.0241 
P 0243 
P 0244 
R 0246 
R 024  8 


ASSEMBLE  RE  V I S 1 3 

N 

TIME 

OF 

FREE  r 

Al 

SUBP 

OUT IN E NAM 

E: 

MOD 

NO  : 

0 

MOD 

BY : 

RR  3A 

IK 

MOD 

MO : 

1 

MOD 

NO: 

2 

TFFKP/RA 


MOD  BY:  BA  I RN S FAT  HI 

MOD  BY:  RR  8 A I '0  S F A '•  HF  P 


DATE:  11  API  67 

DATE:  21  MAR  68 


3: 18  OF 


DATE  : 
LOG  S 


ACCFP 
ALSO 

FUNCTIONAL  DESCRIPTION:  USED  BY  CALCTPER  AND  TFF  DISPLAYS  TO  CALCULAT 

APOGEE  RADIUS  FOR  A GENERAL  CONIC. 

, PROGRAM  GI  VtS  Pt.' 1GLL  RADIUS  AS  APOGEE  RADIUS  IS  GIVEN 

RP  = P / (1  + E)  RA  = ( 1 + E ) / AL 


C.  2,1970  SKIPPER  .087  PAGE  1273 
USFR • R PAGE  NO.  6 EO  S3 

01 . 17.67 

ECTICN:  TIME  OF  FREE  FALL 


T DIFFERENT  FARTH/MOON  CCA!  ES 
IMPROVE  ACCURACY  OF  RAPT. 

F PERIGEE  RADIUS  AND  ALSO 

BY 

FA 


WHFPE  2 

F = 1 - 0 ALFA 

IF  RA  IS  NEGATIVE  OR  SHOWS  DIVIDE  OVERFLOW,  THEN  A = PQSMAX  BECAUSE 

1.  APOGEE  RADIUS  IS  NOT  MEANINGFUL  FOR  HYPERBOLA 

2.  APOGEE  RADIUS  IS  NOT  DEFINED  FOR  PARABOLA 

3.  APOGEE  : AD  I IJS  EXCEEDS  THE  SCALING  FOR  ELLIPSE. 

THIS  TUBi-  r U'.  I !-  tOUI  ES  THE  SI  "ED  LC  • 3CAL  St"'  ' AJ  AXIS,  ALFA,  AND  SE'I  LATIJS  RECTUM  AS  DATA. 
CALI  IMG  SEQUENCE:  CALL 

TFFRP/P A 

PUSHLCC  = PDL+O,  ARBITRARY  IF  LEQ  IOD 
. C(MPAC)  UNSPECIFIED 


SUB!  f'UTINES  CALLED:  NOME 
MOP MAL  EXIT  MODE:  RVQ 

IF  ELLIPSE,  WITHIN  NORMAL  SCALING,  RAPO  IS  CORRECT. 

OTHERWISE,  RAPO  = POSMAX. 

ALARMS:  NONE 

OUTPUT:  STORED  IN  PUSH  LIST  A FA.  SCALE  OF  OUTPUT  AGREES  WITH  DATA  SUPPLIED  TO  TFF/CONIC. 

n-’E-  f ;(-?')  : (-27)  0 ER  I GEE  RADIUS  DESTROYED  QY  CAI  C T FF/ CAL  CTP  EP  , TFFTRIG. 

RAPO  F J (-2° ) M:  (-27 ) M APOGEE  RADIUS  WILL  BE  DESTROYED  BY  C ALC TFF /C ALCTP ER 

PU'SHLOC  AT  PDL  + O 

ERASABLE  INITIALIZATION  REQUIRED: 


TFFALFA  EM26-NR) 
.:!2/i-h  ) 

M 

1/SEMI  MAJ  AXIS 

L EFT 

BY 

TFFCON 

TFFNP  E:  (-38  + 2NF  ) 

' : (-3  6+  2NR ) 

M 

LC  P,  SEMI  LAT'JS  RECTUM 

LEFT 

BY 

TFFCON 

XI 

-NR 

, NORM  COUNT  OF  RM AG 

LEFT 

BY 

TFFCON 

DEBT  IS  : 

X2 

QPKET , PDL+O  ...  PDl 

-NA 

+ 1 

, NORM  COUNT  OF  ALFA 

LEFT 

BY 

TFFCON 

ROYAL  f BUSINESS  FORMS  INCORrOKAItU 


GAP: 


ASSEMBLE  f,E  VISION  001  OF  AGC  P!  .'G  -AM  API  1RCPE  BY  EYLES 


* 


TI* T OF  FREE  FALL 


P 024° 

0250 

0251 
A 025  2 

0253 
025  A 

0255 

0256 

0257 

025  8 
A02 

0260 

0261 

0262 

026  3 


kEF  2 LAST  1272 
REF  2 LAST  1271 


REF  1 


REF  3 LAST  1272 


• 

0264 
026  5 
026  6 

REF 

3 

LAST 

1274 

• 

0267 

0263 

PEF 

3 

LAST 

721 

• 

A 026  9 

0270 

0271 

REF 

2 

LAST 

1272 

0272 

PEF 

4 

LAST 

12  28 

• 

0273 

0274 

REF 

1 

0275 
02  76 

0277 

0278 

0279 
0230 
0281 
0282 

0283 

0284 

A ' 


REF  2 LAST  1274 


REF  3 LAST  8C6 
PEF  1 


0020 

gQ16 

27, 3427 
? 7, 3430 

27.3431 

27.3432 

27 . 3433 
27 , 343  4 

27.3435 

27.3436 

27.3437 

27.3440 

27.3441 

27.3442 

27.3443 

27.3444 

27.3445 

27.3446 
27,3667 

27. 3450 

27.3451 

27.3452 

27.3453 

27.3454 

27.3455 

27 .3456 

27 . 3457 

27.3460 

27.3461 
27,3  46  2 

27.3463 

27 . 3464 


41345  0 
00033  1 
00035  1 
57457  0 

20571  0 
51415  0 

17765  0 
43366  0 
06512  1 

552  06  0 

00035  1 
53657  0 
206  01  1 

20572  0 
1 117  1 


41005 
00027 
57753 
53654 
57461 
57603 
400  57 
57576 
5 7461 
77644 
5746  3 
77745 
17771 
OO021 


RAPO 

RPER 

TFFPP/RA  Cl  ■ AO 


SR* 

DAD 

SQRT 

PUSH 

SR* 

STODL 

DMP 

BZE 

SL* 

BPL 

MAX!  A DLOAD 
+3  STORE 


77616  0 DUMP0  PR  A RV 0 


2 

1 


16D 

140 

DMP 

o F F A L F A 
TFFNP 
DCOMP 
— 8D , 1 
ABS 

DP2 ( —4 ) 
DAD 

TFF 1 /4 
BODV 
TFFNP 
S * 

0,1 

0-7,1 

RPER 

BOVR 

TFF1/ALF 
TCOAMZ I G 
SL* 

MAXRA 
0 -5,2 
BOV 
0,2 
MAXRA 

+ 3 

NEAP ONE 
RAPO 
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APOGEE  RADIUS  M EM-29)  MM-27) 

PERIGEE  RADIUS  M E : { -29 ) MM-27) 


ALFA  1/M  EM26-NR)  M:  { 24-NP  ) 

LC  P M E:  (-38+2MR)  M : { -36-4  26  ° ) 

ALFA  P (-12+NR) 

ALFA  P (-4) 

(DCOMP  GIVES  VALID  TP  RESULT  FOR  SORT) 
(ABS  PROTECTS  SQRT  IF  E IS  VERY  NEAR  0) 

E SQ  = (1-  P ALFA)  (-4) 

(1  + E)  (-2)  TO  PDL+O 

LCP  M E : ( -38  + 2NR ) MM-36+2NR) 

(DOES  SR  THEN  SL  TO  AVOID  OVFL) 

X 1 =-NP 

(EFFECTIVE  SL ) 

PERIGEE  RADIUS  M EM-29)  MM-27) 

(1+E)  (-2)  FROM  PDL+O 

EM-22-2NA)  MM-20-2NA) 

CLEAR  OVFIND,  IF  ON. 

SET  PCSMAX,  IF  AL  F A=0 
-5  + NA 


SET  POS.MAX  IF  OVFl. 

CONTINUE  W ITH  VALID  RAPO. 

KAPO  CALC  IS  NOT  VALID.  SET  FAPO  = 
POSMAX  AS  A TAG. 

APOGEE  RADIUS  M EM-29)  MM-27) 


30  W 


GAP  : 

L 

P 0286 
R0288 
ft  0290 
R 02°  1 
R 029  2 
P02°3 
R 029  5 
R02Q7 
R 0299 
R0301 
R 030  3 
P 030c 

R 0306 
R 030  8 
R 030  ? 

R 03  1 1 

R.0313 
R 031  + 
R 0 3 1 6 

R 03 1 c 
R 03 1 9 
R 032  1 

R 032  3 

R 032  c 
R 03  2 f 

R0327 
R 0323 

R 0329 

R 033 1 
R 0332 

R 0336 
P 0 3 3 9 
R 0336 

R 033  7 
R 0339 
R 034  0 
P 03^-2 
R 0344 
R0345 


ASSLMRt  E REVISION  001  OF  ARC  PROGRAM  AP11R0PE  BY  EYLES 
TIMF  OF  FREE  FALt, 


SUB I OUT IN  E MAY  E : 
MOD  NO:  0 


CALCTPER 


MOO  BY 
MOD  NO 
MUD  NO 

MOD  NO 
MOD  NO 
MOD  NO 


RR  BA  K'-'SEAl  HEF 


1 -IfJD  3 Y 

2 MOD  BY 

3 MOO  BY 

4 MOD  BY 

5 MOD  BY 

FUNCTIONAL  DESCRIPTION: 

VELOCITY  V TO  A 


RR 

RR 

Rft 

RR 

RR 


CALCTFE 


BA  I PN SFATHF ' 
BAI RNSFATHER 
BA  I PNSFA"HFr 
BA  IRNSFATHER 
BAI RN SEAT  HER 


DATE: 
DATE: 
DATE: 
DATE  : 
DAT  E: 


21  MAI  67 
1 l’  APR  67 
8 JUL  A 7 
21  NOV  67 
21  MAI  68 
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USER « S PAGE  MO.  8 EO  S3 

DATE:  01.29.67 

LOG  SECTION:  TIME  OF  FREE  FALL 


NEAP  EAF  "rH  M(JE  AND  NEG  T F F (GONEPAST) 
ADD  VARIABLE  MU. 

ACCEPT  DIFFERENT  EARTH/MOON  SCALES 


PROGFAM  CALCULATES  THE  FREE-FALL  TIME  OF  FLIGHT  FROM  PRESENT  POSITION  RN  AND 
' ADIUS  LFNGTH  SPECIFIED  BY  RTERM  , SUPPLIED  BY  THE  USER.  THE  POSITION  VECTOR 
RN  "AY  BF  CN  F I "r  H F T SIDE  OF  THE  COMIC,  BUT  RTERM  IS  CONSIDERED  DM  THE  INBOUND  SIDE. 

THE  EQUATIONS  An  E 


02  = — S CRT  ( RTERM  (2-RTERM  ALFA)  - LCP) 
01  = pu.VN  / SQfT(MU) 
l = HUM  / DEf 


( INBOUND  S IDE ) ) 


LEQ  +-  LCE/SQRK  ALFA) 
LFQ  +-  L.CE/SQRT ( ALFA) 
! EQ  +-  1/SQRT( ALFA) 


WHERE,  IF  INBOUND 

NUM  a RTERM  - RN  LEQ  +-  2 LCE/ALFA 

DEN  = Q2+01  t EQ  +-  2 L CE/SQRT (ALFA) 

and,  if  RjtboSmo 

NUM  = Q2-Q1  LEQ  + - 2 L.CE  / SORT  ( ALFA  ) 

DEN  = 2 - ALFA  (RTERM  + RN ) . LEQ  +-  2 LCE 

IF  ALFA  11  < 1.0  (FOr  ALL  CONICS  FXCEPT  ELLIPSES  HAVING  A8S ( DFL  ECC  ANOM  ) G 90  DEG) 

THEN  X = ALFA  1 1 

AID  TFF  = (RTERM  +RN  -2  11  T ( X ) ) 1/  SORT  (MU) 


EXCEPT  IF  ALFA  PNZ,  AND  IF  TFF  NEG, 

THEN  TFF  = 2 PI  /(ALFA  SQL ‘r(  ALFA))  + TFF 

HR  IP  A*  FA  17  mo  l.C  (Fr.  ELtIPSES  HAVING  ABS(  DEL  ECC  ANOM)  GEQ  90  DEG) 


THEM  X = 1/ALFA  Z Z 

AMD  TFF  = (Pi/ SQT  T ( ALFA ) -Q2  +Q1  +2 ( X T(X)  -1)  /ALFA  Z)  /ALFA  SORT (MU) 


WHERE  T ( X ) IS  A POLYNOMIAL.  APPROXIMATION  TO  THE  SERIES 


2 3 

1/3  -X / 5 + X H -X  / 9 ... 

CALLING  SEQUENCE:  TIME  TO  RTERM 

CALL 

CALCTFF 

C(MPAC)  = te-MNL  RAD  m 
FOR  E I T HEP , E:  (-29)  M:  (-27) 
FOR  EITHER,  PUSHLOC  = PDL+O  , ARBI 


2 

(X  < 1.0) 

T I ME  TO  PERIGEE 

CAl  I 

CAL.CTPFR 

C(MPAC)  = PERIGEE  PAD  M 

RARY  IF  LEQ  8D. 


KUYAL  T BUSINESS  FORMS 


t 


JAP:  ASSEMBLE  REVISION  001  OF  A GC  PROGRAM  AP1LROPE  BY  EYLES 

TIME  OF  FREE  FALL 

SUBROUTINES  CALLED:  T(X),  VIA  PTB 
NORMAL  EXIT  MODE  : RVQ 

HOWE  V EL i .PROGRAM  EXITS  WITH  ONE  OF  THE  FELL  OWING  VALUES  FOB 

A.  T,FF=  FLIGHT  TIME.  NORMAL  CASE  FfJP  POSITIVE  FLIGHT 

B.  (THIS  OPTION  IS  NO  LONGER  USED.) 

C.  TEE  = pnSMAX.  THIS  INDICATES  THAT  THE  CONIC  FO(?M 
THE  SPECIFIED  ALTITUDE.  ALSO  INDICATES  OUTBOUND 
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R.  0346 
R 0347 
R G 2 4 P, 
R035L 
R 0352 
R 0353 
R035c 
R 0357 
R 0 3 5 8 
R 036  0 
RC36? 
R 0363 
R 0 3 6 5 
R 0367 
R 036  8 
R 036  5 
R 0370 
R 037  ] 
R 037? 
R 0373 
R 037  5 
R 037  7 
3 0370 

R 033  1 
R 0 3 8 2 
R 0334 
R 03  36 
R 038  7 
R 0 3 3 a 
R 039 ). 
R 03°2 
R 0 3 9 A 
R 039  5 
R 0397 
R03QB 
R 0400 
R0402 
R 040  3 
R 0404 
R 040  5 
R 0406 


USES • S PAGE  NO. 


EO  S3 


OUTPUT 


CIMPAC) 

TEFX 

NRTERM 

TFFTE*-' 


(-28)  CS  TIME  OF  FLIGHT,  Ok  TIME  TC  PERIGEE 

(0)  X, 

M RTERM,  WFIGHTFD  BY  NR 


( -29+ NR ) 
1-27  4 R ) 

{ -60+2!v  ) 

( — 5 5 2 M R ) 


NOTE: 

RMAG1 

TFFQ1 


E : (-29)  M : ( - 27  ) 
F : ( - T ) i : ( — 15) 
TFFDEl 0 E: (-13)  4 : (-15) 

PUSHLOC  AT  PD1 40 

ERASABI E INITIALIZATION  REQUIRED 
ROME  E:  (-29  ) M:  (-27) 
VONE’  E : ( 4i  0 ) (:(  + '.) 

'■API  E : ( - 2 5 > 4 : (-271 

C(MPAC) E:  (-2  • ) : (-27) 


t CP  1 Z SGN ( SHELF) 

M:  ( — 5 5 + 2 N R ) LCP  /ALFA  SGI  (SDELF) 

TFFTEM  = PDL  36D  AND  WILL  BE  DESTROYED  BY  . :UNIT 
POL  12  NOT  TOUCHED. 

PDL  14D 
PDL  10D 


TFF  (-28)  CS  IN  MPAC.  USER  MUST  STORE. 
TIME  LESS  THAN  ONE  ORBITAL  PERIOD. 

THE  PRESENT  POSITION  WILL  MOT  RETURN  TO 
PARABOLA  OR  HYPERBOLA. 

LEFT  FOFs  ENTFY  DISPLAY  TFF  ROUTINES 
LEFT  FOR  ENTRY  DISPLAY  ~FF  ROUTINES 

LEFT  FOR  ENTRY  DISPLAY  TFF  ROUTINES 
LEFT  FOR  ENTFY  DISPLAY  TFF  ROUTINES 


M STATE  VECTOR 
VN/SQBT (MU ) 

PRESENT  RADIUS,  M 

‘TERM,  TERMINAL  RADIUS  LENGTH,  M 


rHE  FOLLOWING  ARE  STORED  IN  THE  PUSH  LIST  AREA. 


TFF/  TM U 


NRMAG 

XL 

TFFNP 
TFF  AL FA 


DEBT  1 1 


TFF!  T ALF- 
X? 

TFF1 / ALF 

QP.RET , 
RTEPM  E: 
3 APO  E: 
RPEP 


E : ( L 7 ) M : 
: ( -2  9 + NR ) 

: (-274''  ) 

: 1— ip+?mp| 

: (-36+2NP ) 

E:  ( 26-NR ) 

M : ( 2 4-  ) 

!:  : ( L 0 4 ; A ) 

M : ( 9 + N A ) 


(L4)  1 /S  QRT ( MU ) 

M RMAG , NORMAL  I/ED 

-NR,  NORM  COUNT 

M (CP,  SEMI  LATHS  RECTUM,  WEIGHT  NR 
1/M  ALFA,  WEIGHT  NR 
S Q R T (ALFA)  , "01  MALI/ED 


E:  (-22-2NA) 

M*.  (-20-2NA) 
FDL+O  ...  PDL43 


NA,  NO  • v COUNT 

SIGNED  SEMIPAJ  AXIS,  WEIGHTED  BY  NA 


■29  ) 
■29  ) 


1 : (-27  ) 
1 : (-27) 


EM-29)  ■:  (-27)  POL  14D 


RTERM,  TERMINAL  RADIUS  LENGTH 
PDL  L6D  ( =NR TERM ) 

( =TF  FQ1 ) 


LEFT 

BY 

USER 

L EFT 

BY 

IFF /CONIC 

LEFT 

BY 

TFFCONIC 

LEFT 

BY 

USER 

LEFT 

BY 

TFFCONIC. 

LEFT 

BY 

TFFCONIC 

LEFT 

BY 

TFFCONIC 

LEFT 

BY 

TFFCONIC 

LEFT 

BY 

TFFCONIC 

LEFT 

BY 

T F FCPN  I C 

LEFT 

BY 

TFFCON  IC 

LEFT 

BY 

TFFCONIC 

GAP:  ASS L'lbLt  REVISION  001  GF  AGC  P:  QGr  AM  API  IRQ  PE  BY  EYLES 

L TIMF  OF  FREE  FALL 


P 0407 

0408 

0409 

0410 

041 1 
041  2 
0413 
04]  4 
041  5 

0416 

0417 


0425 

0426 
A 042  7 
A 042  8 

0429 
0^3  0 
0431 
043  2 
043  3 
0434 
043  r 


BE  F 


15  EF 
9 EF 


R F F 


REF 


7 EF 


LAST  1277 


27 . 3465 

27. 3466 
27 , 346  7 
27,3470 
? 7 , 3*  7 1 
2? , 3472 

27.3473 

27.3474 

27.3475 

27.3476 


AST  1277 


27.3505 

27.3506 


27,3507 

27. 3510 

27.3511 

27.3512 

27.351 3 
27, 3C  14 
27,3515 


77614  1 
03436  0 
67472  1 
77614  1 
03676  0 
00023  0 
77657  0 
2 02 01  0 
00021  1 
V 2 0 5 0 


04 1 P 

D E F 

6 : , 

1 AST 

1 27  + 

27,3477 

000  3 3 

1 

0419 

REF 

4 

LAST 

1274 

27,3500 

06512 

1 

0420 

27,3501 

412  0 6 

0 

C42  1 

v REF 

2 

LAST 

1277 

27,3502  ' 

0 0021 

1 

0422 

27,3503 

5 3725 

1 

A 042  3 

2* 

PEE 

L AST 

127': 

27, 3504 

0 0035 

1 

20573  1 
43276  0 


77657  0 
2(>  6 01  1 
71214  0 
03756  0 
57515  1 
06522  1 
75440  0 


CALC TPEP 

SETGO 

CALCTFF 

Cl  EAR 

+ 3 

STORE 
SL  * 

ST.  iP.E 
DMP 

PUSH 

P DDL 

DCOMP 

SP* 

BOFF 

+ 2 BMN 


0436  PEF  1 27,3516  576500 

A 0437 


043  p 

27,3517 

41076 

0 

0439 

REF 

5 

l AST 

12  74 

27,3520 

5775  3 

1 

044  p 

REF 

1 

27, 3521 

2*045 

0 

0441 

REE 

3 

LAST 

1271 

27,3522 

02170 

0 

0442 

27, 3523 

52441 

1 

044  3 

REF 

16 

LAST 

177  1 

27,3524 

02  2 07 

0 

0444 

REF 

1 

27,3525 

000  17 

1 

A 0445 

044  6 

27,3526 

+ 42  40 

1 

0447 

PEE 

1 

27 , 3527 

57550 

0 

0448 

REF 

2 

LAST 

1277 

27,3530 

0004  5 

0 

DCOMP 


STOVE 
DC  T 
STORE 
BMW 


A r/.  o 


OUTBOUND 


Z.  CAL 


0450 

REF 

1 

27, 3531 

1404  3 

0 

0451 

REF 

4 LAST  1277 

27,3532 

00033 

1 

0452 

27 , 3533 

442  05 

0 

STOOL 

LUMP 
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FFSW 

+ 3 

T F F c W 
RTERM 

0,1 

OR TL- M 
BDSU 
TEFAL  FA 
TFF 1 /4 
DNP 

NR  TERM 
S R* 

TFF  N P 
0-6,1 
DAD 


0,1 
DLOAD 
TFFSW 
+ 2 

TFF/'  ' S 
SORT 

MAXTFF1 


BOV  B 

TCQANZ  IG 

TFFTEM 

VONE' 

SL.3 

RONE 

TFFQ1 

BDSU 
I N80UND 
TFFTEM 

CONTINUES 

TFFX 
TFF  Al  F A 
BDSU 


USER'S  PAGF  NO.  10  EG  S3 


ENTER  WITH  RPER  IN  MPAC 


ENTER  WITH  RTERM  IN  MPAC 
E:  (-29)  M:  (-27) 

X l = -N h 

RTERM  E:  (-2 • +NR ) M:  (-27+NR) 

ALFA  E:  <26-M' ) M:  (24-NR) 

(2-ALFA  RTERM)  (-3)  TO  PDL+O 
E:  (-29+NP)  M:  (-27+NR) 

RTERM (2-ALFA  RTERM)  TO  PDL+2 
E:  (-32+NP)  M:  (-30+07) 

LC  P E : ( -38  + 2 NR  ) MM-36+2NF) 

XI  = -MR 

DUE  TO  SHIFTS,  KEEP  PRECISION  FOE  SQPT 
RTERM ( 2-AL  FA  RTERM)  FROM  PDL  + 2 
E:  (-32+H)  ) M:  f - 3 0 + M : ) 

LEAVE  E:  (-32)  M:  (-30) 

XI  = -NP 

CHECK  TFF  / TPEP  SWITCH 

IF  TFF,  CC  NT  IMUE 
'IF  TPEF,  SET  02  = 0 
E : (-16)  M : (-15) 

NO  FREE  FALL  CONIC  TO  RTERM  FROM  HERE 

RESET  POL,  SET  TFF=POSMAX,  AND  EXIT. 

t-.T  IS  OH  INBOUND  SIDE.  ASSURE  PVFIND  = 0 
ANY  PORT  IN  A STORM. 

02  E:  (-16)  M:  (-15) 

VM / SQF  T ( MU ) F:  (10)  M:  (9) 

SAVED  RN.  E:  (-29)  M:  (-27) 

Ql,  SAVE  FOP  GONEPAST  TEST. 

E:  (-16)  M:  (-15) 

USE  ALTERNATE  Z 
02  E:  (-16)  M:  (-15) 


HERE 


NUM=02-Q1  E:  (-16)  M:  (-15) 
ALFA  E:  (26-NR)  M:  (24-NR) 


ROYAL  f BUSINESS  FORMS 


# 

i 


GAP:  ASSEMBLE  F E V I S 1 3 f-  G01  OF  AGC  PRUG'  AM  API  1 ROPE  BY  EVLES 

L TIMf  OF  FREE  FALL 


SAVEDEN  PUSH 
DAO 


0453 

REF 

4 

LAST 

1271 

27,3534 

00041 

1 

A 0454 

0455 

27, 3535 

5 1406 

1 

A O'1- 6 

0457 

27* 3536 

400  1 ; 

1 

0458 

REF 

1 

27 , 3537 

17757 

1 

0459 

REF 

l 

27,3540 

57561 

1 

0460 

27, 3541 

65345 

0 

0461 

REF 

2 

LAST 

1277 

27, 3542 

06  522 

1 

A 046  2 

046  3 

27,3543 

57545 

1 

0464 

REF 

5 

LAST 

12  77 

27 , 3544 

0 00  33 

1 

0465 

27, 3545 

71240 

1 

0466 

REF 

1 

27,3546 

57655 

0 

A 0467 

046  8 

27, 354 7 

77616 

0 

A 04b 9 

0470 

27,3550 

77745 

1 

0471 

27,  355  1 

45345 

1 

047? 

REF 

2 

1 AST 

1277 

27, 3552 

Of  02  3 

0 

047  3 

REF 

2 

LAST 

1271 

27,3553 

0 0015 

0 

0474 

REF 

2 

LAST 

1277 

27,3554 

1 4 043 

0 

0475 

REF 

3 

LAST 

1277 

27,3555 

00045 

0 

0476 

27,3556 

52015 

1 

0477 

REF 

2 

LAST 

1277 

27,3557 

00017 

1 

0478 

REF 

1 

27,3560 

57535 

0 

0476 

37. 3951 

45215 

1 

c.  f y d ' l 

1 

A 0480 

0481 

REF 

I 

27,3562 

17761 

1 

0482 

REF 

3 

LAST 

1 27S 

27,356.3 

0 C 043 

0 

048  3 

27,3564 

53605 

1 

0484 

PEF 

2 

LAST 

177  2 

27,3565 

0 0031 

0 

048  f 

27,3566 

57201 

0 

0486 

27,3567 

77671 

1 

A 0487 

A 048  8 

A 048  - 

0490 

27,3570 

40145 

0 

0491 

REF 

4 

LAST 

1270 

27,3571 

00043 

0 

049  2 

REF 

1 

27,3572 

57653 

0 

AQ493 

049' 

27,3573 

^ >471 

1 

A 049  r: 

A 0496 

0497 

REF 

4 

LAS! 

1278 

27,3574 

77732 

1 

NRMAG 

ABS 


BOV 
L I M ( - 2 2 > 
TFFXTEST 
DLOAD  PDDL 

IFF  ZEROS 

DLL’ AO  DCOMP 

TFFAl  FA 


B M N 


DLOAD 

TFFEL1 


DUMP TFF 1 R VO 

INBOUND 
INBOUND 
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USER ’ S PAGE  Nf.  11  EO  S3 

R MAG  E:  (-29+NR)  M:  I-27+NR) 

(2-RTERM  ALFA)  (-3)  FROM  POL +0 
DEN  TO  PDL+C  E:  (-3)  OR  (-IF) 

M:  ! - 3 ) nr  (-15) 

’ MOETEr MI  NANCY  TEST 
= 1 . 0-  B ( — 2 2 > 

GO  IF  DFN  >/=  B ( -22 ) 

SET  D EN=0  OTHERWISE 

XCH  Z f WITH  PDL+O 

ALFA  F:  (26-NR)  M:  ( 24-NR ) 

FUR  TPFF:  Z IMDET  AT  DELE/2=C  AND  90. 
ASSUME  90,  AND  LEAVE  0 IN  POL:  1/Z=D/N 

Z INDET.  AT  PERIGEE  FOR  PARAB  0°  HYPERB. 
RE  TURN  T F P =0 


CALC  CONTINUES  HERE 


TFFXTEST  DAD 


DLOAD 

RESET  PDL+O 

Dl  OAD 

DSU 

ALTERNATE  Z 

CALC 

RTF  M 

E:  (-29)  M: 

(-27  ) 

P MAGI 

E:  ( — 2 ° > M : 

(-27  ) 

STOOL 

TFFX 

NUM -R TERM— RN 

E:  (-29)  M:  (-27) 

DAD 

TFFTEM 

GOTO 

Q2  E:  (-16) 

M : (-15) 

TFF  Q 1 

Q 1 E : (-16) 

M:  (-15) 

SAVE DEN 

DEN  = 02+01 

E:  (-16)  M:  (-15) 

DAD 

PDDL 

( ABS ( DEN ) TO  PDL+2))  E:  (-3)  OR  (-16) 

M:  (-3)  OR  (-15) 

DP( -22  ) 

RESTORE  ABS(DEN)  TO  MPAC 

DMP 

TFFX 

SR* 

NUM  E : (-16) 

OR  (-29)  M : ( - 15 ) OR  (-27) 

TFFRTALF 

0 -3,2 

SORT ( ALFA) 
X2=-NA 

E:  (10+NA)  M:  (°+NA) 

DDV 

C(MPAC)  =NUM 

SORT  (ALFA)  EM-3)  DR  (-16) 
MM-3)  OR  (-15) 

DLOAD  BOV 
TFF  X 
TFFELL 

OTHERWISE,  continue  FOR  general 
DDV  STAOR 

STORE  TFFTEM 


ABS(DEN)  FROM  PDL  + 2 E : ( - 3 ) OR  (-16) 

M : (-3)  OR  (-15) 

(THE  DLDAD  IS  SHARED  WITH  TFFELL) 

NUM  E:  (-16)  OR  (-29)  M : (-15)  CP  (-27) 
USE  EQN  FOR  DELE  GEQ  90,  LED  -90 

CONIC  FOR  TFF  EQN 


DEN  FROM  PDL+n  E:  (-3)  OR  (-16) 
M:  (-3)  OR  (-15) 
Z SAVE  FOP  SIGN  OF  S DEL  F . 


GAP : 


A 049  8 

0499 

0500 

0501 

0502 
0*03 

0504 

0505 
A ■ 

A 050? 
0508 
05r-o 

0510 

0511 

0512 
051  ? 
051* 

A 05 1 5 

0516 

0517 

0518 

05 1 c 
A 0 5 2 6 

052  ) 
052  2 

0523 

0524 

0525 

052  6 

0527 

0528 

0529 

A 0539 

0531 

0532 

0533 

0534 

0535 

0536 

053  7 

0538 

0539 
A - 

0541 

0542 

0543 

0544 


ASSEMBLE  REVISION  061  -CP  AGC  PkuGcAM  API  lRGPb  BY  EYICS 


TIME 

CF 

FREE  FALL 

27.3575 

27. 3576 

27 .3577 

27. 3600 

27 . 3601 

27.3602 

63406 

41206 

0 

0 

1 

0 

1 

0 

PUSH 

PUSH 

SL 

REF 

5 

LAST  1277 

00035 
7 5 261 

2 02  06 

REF 

5 

LAST  1278 

00045 

PEF 

6 

LAST  1279 

27, 3603 

14045 

0 

STOOL 

r c ti 

1 A C T 

12*8 

1/7  » 

27 , 3604 
27,360* 
27,3606 

2 7 , 36  C 7 
27,36  1C 
27 ,361) 
27,8c 12 

6 120  6 
A 0*0  3 3 

0 

1 

0 

0 

0 

1 

1 

PUSH 

Kt  r 

REF 

REF 

0 

5 

1 

1 

LAST 

77657 
20201 
00043 
412  36 
57735 

SL* 

STORE 

PTB 

27,3613 

44302 

0 

SR  2 

REF 

3 

LAST 

1278 

27,36 14 

00023 

0 

27, 3615 

',12  15 

1 

DAD 

REF 

3 

LAST 

12  78 

2 7 , 36  1 r 

09013 

0 

27,3617 

5 1042 

0 

SR  3 

REF 

1 

27,3620 

57641 

0 

27, 3621 

75206 

1 

PUSH 

REF 

3 

LAST 

1278 

27 ,362  2 

00017 

1 

27,3623 

71244 

0 

BPL 

off 

1 

27 , 3624 

57  645 

1 

REF 

3 

L A S T 

1274 

27,3625 

00027 

1 

27, 3626 

51076 

1 

DCUMP 

REF 

2 

LAST 

1279 

27,3627 

57645 

1 

correct  for 

27, 3630 

77676 

0 

DCOMP 

27, 3631 

56205 

0 

DMP 

REF 

1 

27,3632 

17755 

0 

R E F 

3 

LAST 

1278 

27, 3633 

00031 

0 

27,3634 

5 3 o 5 7 

0 

SI  * 

27,3635 

57602 

1 

27,3636 

57602 

1 

27,3637 

43257 

0 

SL* 

27,3640 

57576 

1 

27,3641 

40005 

0 

END f FF 

DMP 

REF 

6 

LAST 

1271 

2.7 ,3642 

0 CO  37 

0 

REF 

1 

2 7 , 36  43 

57651 

1 

27, 3644 

77616 

0 

DUMP TFF 2 

R VQ 
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USER'S  PAGF  NO.  12  EG  S3 


DSQ 

DMP 

TFFNP 

SIGN 

5 

TFFTEM 

TFFTEM 


DMP 

T FF  AL F 4 


E:  (-13)  M : (-125 
Z TO  PDL+O 

Z S Q TO  P D L + 2 E : (-26!  M : (-24) 
LC  P E:  (-38+2NP ) M:  <-3fe  + 2Nf  ) 


AFFIX  SIGN  FOP  SDELF  (ENTRY  DISPLAY) 
P ZSQ  E:  ( -59+2NR  5 M:  (-55+2NR) 
(ARG  IS  USED  IN  TFF/TP IG) 

ZSQ  F PUM  POL +2  F:  (-26)  M:  (-24) 

" ESTOP F PUSH  LOG 

ALFA  E : ( 26-N°  ) M:  ( 24-NP  ) 


0,1 

TFFX 
DMP 
' ( X ) 

BOSU 
RTERM 
DMP 
P MAGI 

BPI 

FNDTFF 

SIGN1 

TFFQ1 

□ LOAD 

NEGTFF 

TFF1  / Al  F 

BPL 

NEGTFF 


Xl=— NR 
X 


POLY 

ZSQ  F P 0 M PDL+2  E:  (-26)  M:  (-2*) 
2 ZSQ  T ( X ) E:  (-2°)  M : (-27) 

TERM  E:  (-29)  M:  (-27) 

E:  (-29)  M:  (-2?) 

Z FROM  PD!  + C E:  (-13 ) M : (-12 ) 

T FF  SQRT(MU)  E:  (-45)  M:  (-42) 
(NO  PUSH  UP) 

TFF  SQRT(MU)  TO  PDL+O 
Q 1 FDR  GOiyjEP AST  TEST 
GOME  PAST  ? 

YES.  TFF  < C . 

1/ALFA  F:  (-22-2NA)  M:  (-20-2NA) 
ALFA  > 0 ? 

NO.  TFF  IS  NEGATIVE. 


f P BIT  AL  PERIOD. 


DDV 

PI/16 

TFFRTALF 

SL* 

0 -4,2 
0 -4,2 
DAD 


0,2 


BOV 

TFF/  T M U 
f'AXTFF 


YES.  CORRECT  FOR  ORB  PERIOD. 

2 PI  (-5) 

SQRT(ALFA)  F:  (10+NA)  M:  (9+NA) 


X 2 = -N  A 


TFF  SOFT  (MU)  FROM  PDL+O  E : ! -45  ) MM -42) 
TFF  SORT  (MU)  IN  MP  AC  EM-45)  MM-42) 

E : (17)  M : (14) 

SET  POSMAX  IF  OVFL. 

RETURN  TFF  (-28)  CS  IN  MPAC. 


GAP  : 


ASSEMBLE  i>  E VISION  001  OF  AGC  ('  • CGHAf-  API  1RCPE  BY  EYLES 


• L T i ' F FREE  FALt 


054-5 

27 ,3645 

77745 

1 

NEGTFF 

DLOAD 

• 

A0546 

97 . 7AAA 

77  & 5 0 

GOTO 

c,  ' , J V “ 1 • 

• 

0548 

REF 

2 

LAST 

1279 

27,3647 

5 7641 

0 

054  9 

27,3+50 

“‘745 

1 

M AXTFF1 

DLOAD 

0550 

27,3651 

43545 

1 

MAXTFF 

DLOAD 

• 

0551 

REF 

4 

LAST 

1 ? - 

27,3652 

17771 

0 

• 

R 0552 

TIME 

PF 

F LIGHT 

ELLIPSE  WHEN 

PEL  (ECCENTRIC  ANOM ) 

GEO  90 

A 05  6 

A0554 

• 

055  5 

27,3653 

77712 

0 

TFFELL 

SL  2 

0556 

2 7 , 3 9 5 4 

41465 

0 

BDUV 

A 0557 

• 

A 055  8 

055° 

2 7 , 36  + 5 

45  345 

l 

TFFEL.1 

Ol.OAD 

0560 

REF 

7 

LAST 

1279 

27,3656 

00045 

0 

• 

0561 

REF 

4 

LAST 

1 279 

27,3657 

0CC17 

1 

0562 

REF 

1 

27,3660 

14013 

0 

STODL 

A 056  3 

• 

0564 

27,3661 

77626 

c 

STADR 

0565 

REF 

8 

LAST 

1280 

27,3662 

77732 

1 

STORE 

0566 

27,3663 

53605 

1 

DMP 

• 

0567 

REF 

4 

LAST 

1279 

27,3664 

00027 

1 

0568 

27,3665 

57576 

1 

0560 

27,3666 

'-1206 

0 

PUSH 

• 

0570 

R EF 

9 

LAST 

1 2£ 

27,36  6 7 

0004  5 

0 

0571 

27,3670 

410  57 

o 

SI  * 

057? 

27,3671 

57576 

1 

• 

0573 

REF 

14 

LAST 

1219 

27,3672 

21712 

0 

0574 

REF 

fc 

LAST 

1279 

27,3673 

00043 

0 

STORE 

0575 

27,3674 

412  34 

1 

r IB 

• 

0576 

REF 

2 

LAST 

1279 

27,3+75 

57735 

1 

0577 

REF 

7 

LAST 

1 280 

27,3676 

00043 

0 

0578 

27, 3677 

45242 

1 

SR  3 

• 

057° 

REF 

I 

27,3700 

17763 

0 

3” 

0580 

27,3701 

41405 

0 

DMP 

A 058  1 

• 

A 058  2 . 

A0583 

0584 

27,3702 

4 1345 

0 

DLOAD 

• 

0585 

REF 

10 

LAST 

1280 

27,3703 

0C045 

0 

2” 

0586 

REF 

4 

LAST 

1 279 

27, 37C4 

C 0 C 1 5 

0 

0587 

27,3705 

43312 

0 

SI.  2 

• 

0588 

R F F 

5 

LAST 

1280 

27 , 3706 

0 0017 

1 

0589 

REF 

1 1 

LAST 

12«0 

27,9707 

14045 

0 

STOOL 

0590 

REF 

6 

LAST 

1279 

27,3710 

00035 

L 

# 

0591 

27,3711 

53605 

1 

DMP 

1 " 


3:15  DEC 


2,1970  SKIPPER  .087  PAGE  1280 


ENDTFF 


R VO 

NEARONE 
AND  !.  FQ 


PUSH 


DSU 

TFFTFM 

TFF01 

TFFDELQ 


iff  tew 

S L * 

TFF1/ALF 

0,2 

DMP 

TFFTFM 

BOVB 

0,2 

SIGNMPAC 
T FFX 
DPP 
T ( X ) 

TFFX 

DSU 

DP2I-3) 

PUSH 


DMP 

TFFTEM 

R MAG  1 

DAD 

TFF01 

TFFTFM 

TFFNP 

SL* 


USER'S  PAGF  NO.  13  EG  S3 

TFF  SORT (MU)  FROM  PDL+O,  NEGATIVE. 

RESET  PDL 


•90. 


MUM  FROM  TFFX.  E:  (-16)  lc  (-29) 

M:  (-15)  OR  (-27) 

MUM  F : (-14)  OR  (-27)  m : (-13)  OP  (-25) 
TEMP  SAVE  D/N  IN  PDL+O 

DEN  FROM  PDL+O  E:(-3)/(  16)  M: (-3)/ (-15) 
N/D  TO  PDL+O  E : ill)  M : (10) 

(ENTER  WITH  D/N=0  IN  PDL+O) 

02  E:  (-16)  M : (-15) 

Q 1 | : (-16)  M:  (-15) 

Q2-01  E:  (-16)  M:  (-15) 

D/N  FROM  PDL+O 

D/N  E:  (11)  M:  (10) 

1/ALFA  E:  (-22-2NA)  M : (-20-2MA) 

1/ALFA  Z E:  (-11-NA)  M:  (-10-NA) 

TO  PDL+O 

1/Z  E:  (11)  M:  (10) 

X2=  -NA 

IN  CASF  X=  1.0 , CONTINUE 
X=1 /ALFA  ZSQ 

PUL  Y 


2 ( X T(X)-l)  /Z  ALFA  E:  ( — 1 6-NA ) 

M:  (-14-NA) 

1/ALFA  Z FROM  ’DL+O  E:  ( - 1 1 - N A ) 

M:  (-10-NA) 

GET  SIGN  FOR  SDELF 
1/Z  F:  (11)  1:  (10) 

E:  (-29)  M : (-27) 

Q1  E:  (-16)  M : (-15) 

(Ql+P  1/Z)  =SGN  OF  SDELF  Ft ( - 16 ) M:(-15 
LC  P E:  (-3P+2NR)  M:  (-36+2NP) 

CALC  FOR  ARG  FOP  TFF/TRIG. 


GAP:  ASSEMBLE  REVISION  001 
L Tl:>r  CF  F OE  FALL 

0592  REF  5 LAST  12*0 

0593 

0594 

059*  OF  12  LASt  12  50 

059  5 

0597  RFF  13  LAST  1231 

A059P 

0599  PEF  6 LAST  1281 

0600 

0601  D FF  2 LAST  12  76 

0602 
A06O-* 

A 060^ 

0605 

0606 

0607  OFF  2 LAST  12*0 

06  08 

0609  PEF  7 LAST  1231 

061  0 
061  1 
0612 

0613  RFF  3 LAST  1280 


AGO  Pl  l GRAM  API  1 9 1 PE  BY  EYLES 


,3712  00027  1 

,3713  57575  1 

,3714  53765  0 SIGN 

,371*  00045  0 

, 3716  ”7576  1 

,3717  14045  0 STOOL 

,3720  00027  1 

,3721  4 1366  1 SQkT 

,3722  17755  0 

,3723  77 M 5 C DAD 

,3724  45257  0 SL* 

, 3725  57577  0 

,3726  000 1 3 0 

,3727  53605  1 DMP 

,3730  00027  1 

,3731  57601  1 

,3732  52057  1 SL* 

,3733  5 7 6 G 2 1 

,3734  57641  0 


OF 

27 

27 

27 

27 

27 

27 

27 

27 

2 7 

27 

27 

27 

27 

2T 

27 

27 

27 

27 

27 


3:15  OEC 
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TFF1/AI  F 
1 ,2 
SL* 

TFFTFM 

0,2 

■"FFTEM 

TFF1/ALF 

DMP 

p r / 1 1 


DSU 

C -1  ,2 
TFFDELD 
Si  * 

TFFl/At  F 
0 -3,2 
GOTO 
0 -4,2 
ENDTFF 


USER*  S PAGE  NO.  14  EO  S3 

1/ALFA  E : { -2  2-2N  A ) MM-20-2NA) 

X 2 = -N  A 

AFFIX  SIGN  FOP  SHELF 

P/AIFA  E:{— *9+2NR)  M : ( - 55  + 2N*  ) 

(APG  FOR  USE  IN  TFF/TRIG) 

1/ALFA  E : ( -22-2NA ) M:(-20-2NA) 

PI  (-4) 

2 ( XT ( X ) -1  ) /Z  ALFA  FROM  POL  E: (-15-NA) 

M:  (-14-NA) 

02-01  E:  (-16)  M:  (-15) 

1/A1FA  F : (— 22-2N  A ) M:(-20-2NA) 

IFF  SORT  (MU)  IN  MPAC  EM-45)  MM-42) 


G AC : 


P 06 1 a 
R0616 
R 061  £ 
R061° 
R 062  1 
R.06>i  2 
R 0623 

R 0624 
R062r 

R0626 
R 0627 
R 06 2 1 
R 0629 
P 06  31 
P 0633 
R 06  35 
R 063  6 
R 0637 

R 0638 
R 063° 
R 0660 
R 064 1 
R 0642 
R 0643 

R064' 

0645 

0646 

0647 
0647 
06  4 8 
064,3 
064°' 

0649 

0650 
065  0 

0651 
06  5 1 
065  2 
06  5 2 
0653 

06  54 


ASSEMBLE  EVISICN  001  OF  AGC  PFOG'Afi  APURGPE  BY  EYLES  3:15  DEC.  2,1970  SKIPPER  .087  PAGE 

TIME  OF  FPEE  E ALL  USER’S  PAGE  MG.  15  EO  S3 

PROGRAM  NAME:  T ( X ) DATE:  01.17.67 

MOD  NO:  0 LOG  SECTION:  TIME  OF 

HID  BY:  RR  BA IRNS FATHER 

FUNCTIONAL  DESCRIPTION:  THE  POLYNOMIAL  ! X ) IS  USED  PY  TIME  OF  FLIGHT  SUBROUTINES  CALCTFF 

CAl  CT?Er  70  APPROXIMATE  THE  SERIES 
2 3 

1 / 3 — X/5  + X n -X  /9  ... 

WHERE  X = ALFA  l l IF  ALFA  Z Z LEQ  1 

X = 1 / ( ALFA  Z Z ) IF  ALFA  Z l G 1 

ALSO  X IS  M FG  FOP  HYPERBOLIC  ORBITS 
X = 0 FOR  PARABOLIC  ORBITS 
X IS  POSITIVE  FOR  ELLIPTIC  ORBITS 

FOG  FLIGHT  273,  THE  POLYNOMIAL  TlX)  l S FITTED  t VE  THE  RANGE  (0,+l)  AND  HAS  A MAXIMUM 
DEVIATION  FRCM  THE  SERIES  OF  2 E-5  (T(X)  IS  A CHEBYCHEV  TYPE  FIT  AND  WAS  OBTAINED  USING 

Vac  p Cr  am  auich;  fit29<u  ^ b and  u valid  ■ the  - a ••  e tolerance  over  the  range  i-.08,+i>.  > 

CAl  1 TNG  SEQUENCE:  f’TB 

TlX) 

C(MPAC)  = X 


FREE  FALl 
AND 


SUB f 1 UTINES  CALLED:  ' 0 E 

NOR«AL  EXIT  MODE:  ' C DANZIG 

ALARMS:  NONE 

OUTPUT:  C(MPAC)  = TlX) 

ERASABLE  INITIALIZATION  REQUIRED: 

CIMPAC)  = X 
DEBRIS:  NONE 


PEF  7 


REF  60 
REF  1 


t AST 

1 1 p 9 

27,3735 

0 7222 

1 

TlX) 

TC 

27,3736 

00004 

0 

DEC 

27,3737 

12525 

0 

2DFC 

27  . 37/:  n 

1 ? 5 ? 4 

n 

C.  1 J 1 • 

J.  c c.  > 

27,3741 

71463 

0 

2 DFC  4 

27,3742 

57703 

1 

27,3743 

04423 

0 

2DEC* 

27,3744 

17645 

0 

27,3745 

74604 

0 

2 DEC* 

27,3746 

436o7 

1 

27,3747 

01626 

1 

2DEC* 

27,3750 

372  5 6 

1 

27,375  1 

77404 

1 

2DEC* 

27,3752 

52071 

0 

LAST 

1212 

27 , 3753 

0 6061 

0 

ENDT  I X) 

TC 

27,3753 

TCOANZ IG 

- 

POLY 

4 N-  1 
3.333333333  E- 1 

— 1 .9  998 19135  E-l  * 

1.41 814 <447  E-l  * 

—1.01310997  E-l  * 

5 .60 90049  86  E-2  * 

-1.536156925  E-2  3= 
DANZ  IG 

ENDT I X ) 


SAP  : 

ASSEMBLE  REVISION  CO).  f)F  AGC  PROGRAM  AP11R0PE  BY  EYLES 

3:15  DEC.  2,1970 

SKIPPER 

.087  PAGE 

L 

TIME  OF  F '■  E E FAU 

USEr ' S PAGE 

NO.  16 

EO  S3 

P 065  5 
0656 

IFF 

CONST  AIVTS 

32,3773 

BANK 

32 

0657 

0658 

REF 

2 LAST 

46 

27, 2000 

27,3754 

SETLQC 

BANK 

T0F-FF1 

AC639  NOTE  _ NOTE  _ ADJUSTED  MtJE  FOP  NEAR  EAPTH  TRAJ. 

A0660  MUE  3.990  815  471  E10  M CUBE/CS  SQ 

AC661  Rf MUE  = 1. 997702549  F5  B-18*  MODIFIED  EAPTH  MU 


A066^ 


NOTF  _ NOTE  _ ADJUSTED  MUE  FfP  NEAP  EAPTH  TPAJ. 


A Of  ' 


MUM 


4.902  778  E8  M CUBE  /CS  SQ 


A 066  " 
0666 
0666 
C667 
0667 
06,68 
06  68 
066  9 

0669 
06  70 

0670 
R 067  1 


27. 3754 

27.3755 
27 , 3 7C  6 
27,3757 

27.3760 

27.3761 

27.3762 

27.3763 
27, 37fc4 
27,3765 

RPAD1  2DEC  6373333  6-29 


RTMUM 

2DEC* 

Ot  2 20 
37553 

1 

0 

PI /If 

2 DEC 

L I M ( — 22  ) 

Dr  1-22) 

20CT 

2GCT 

37777 

37700 

00000 

1 

1 

1 

0 0100 

0 

04000 

0 

DP2 { — 3 ) 

2DEC 

(TOGO 

1 

02000 

0 

DP2  ( -4) 

2DEC 

00000 

1 

M (- 

■29) 

=2U  909 

901 . 57 

2.21422176  E4  3-18* 

3. 141592653  B-4 

37777  37700  1.0  -B ( -2 2 ) 

000.-.  00100  B ( -22  ) 

1 B-3 

1 B-4  1/16 

FT 


06  7? 
0673 

0673 

0674 

0674 

0675 
0676. 


1 E F 4 LAST  7 1 7 23,23  14 

27. 3766 

27.3767 

27.3770 

27.3771 

REF  16  LAST  1249  23,2521 

REF  1 23,2511 


RPAD1  = K PAD 

j - ( -29 1 M 

11205  0 

37777  1 ME  ARON F 2DEC  .999°9999Q 

37777  1 

TFFZEOS  EQUALS  HI6 ZEROS 
TFF1/4  EQUALS  HI  DPI /4 


GAP: 

ASSEMBLE  RE 

VIS  I D 

N 0C1  UF  AGC  r : EG  AM  API  1 UPE  BY  EYLES 

3:15  DEC.  2,1970  SKIPPER  .087 

PAGE  1284 

L 

AGO.  BLOCK 

TWO 

SELF-CHECK 

USER’S  PAGE  NO.  1 

EO  S3 

R0001 

R 0003 

PROGRAM  1) 
PROGRAM  N 

ESCRI 
AME  - 

PT  ION 

SELF-CHECK 

DATE  20  DECEMBER  1967 

LOG  SECTION  AGC  BLOCK  TWO 

SELF-CHECK 

RQ0Q5  MOD  NT  - 1 ASSEMBLY  SUBROUTINE  IJTILITYM  REV  25 

R 0007  MOD  BY  - GAUNTT 


R 000 8 FUNCTIONAL  DESCRIPTION 

R0009  PROGRAM  HAS  TWO  '-'A  IN  PARTS.  ThE  FIRST  IS  SELF-CHECK  WHICH  RUNS  AS  A ZERO  PRIORITY  JOB  WITH  NO  CORE  SET,  AS 

R 00 1 1 PART  OF  THF  BACK-UP  IDLE  LOOP.  THE  SECOND  IS  SHOW-BANK SUM  WHICH  FUNS  AS  A REGULAR  EXECUTIVE  JOB  WITH  ITS  OWN 

R 00 1 3 STARTING  VEP8. 

R 00 1 4 THF  PURPOSE  OF  SFIF-CHECK  IS  TO  CHECK  OUT  VARIOUS  PARTS  OF  THF  COMPUTER  AS  OUTLINED  BELOW  IN  THF  OPTIONS. 

R 0016  THE  PURPOSF  OF  SHOW-BANKSUM  IS  Tf  DISPLAY  THE  SUM  OF  EACH  BANK  , ONE  AT  A TIME. 

R 0020  IN  ALL  THERE  AFC  7 P0SSI3LF  OPTIONS  IN  THIS  BLOCK  II  VERSION  OF  SELF-CHECK.  MORE  DETAIL  DESCRIPTION  MAY  BE 

R(  22  FOUND  IN  lr-  : GCK  11  A G : -CHECK  A D 1 - BA  KSUf  BY  EDWIN  D.  SMALLY  DECEMBEf  1966,  AND  ADDENDA  ? AND  3. 

R 0024  TEE  0 1 F F E ‘ E ! i DP  TV  A?  £ CC  NT ( OL LED  BY  PUTTING  DIFFERENT  NUMBERS  IN  THE  S MODE  REGISTER  (NOUN  27).  BELOW  IS 

R 00  2 F A D t SL  •; ! P T ! r ' OF  WHAT  PAi'TS  OF  THF  COMPUTER  THAT  ARE  CHECKED  BY  THE  OPTIONS,  AND  THE  CORRESPONDING  NUMBER,  IN 
R0028  OCTAL,  TO  LOAD  T!\Tn  SMODE. 

R 0032  +-4  ERASABLE  MEMORY 

R0033  + -"  FIXED  MEMORY 

R0Q.34  +-1,2,3,6,7,10  EVE  Y':'H1NC  I -i  OPTIONS  4 AND  5. 

R0036  -0  SAME  AS  +-10  UNTIL  AN  EN[,  IS  DETECTED. 

R 00  3 7 +0  NO  CHECK,  PUTS  COMPUTER  INTO  THE  BACKUP  IDLE  LOOP. 


R 0038  WARNINGS 

R 003  9 USE  IF  E MEMORY  RESERVED  FOF  SELF-CHECK  (EVEN  IN  IDLE  LOOP)  AS  TEMP  STORAGE  BY  OTHER  PROGRAMS  IS  DANGEROUS. 

R 004 1 S jD  F SET  GREATER  THAN  OCT  10  PUTS  COMPUTER  I;  Tf  BACKUP  IDLE  LOOP. 


R 0042  CALI  ING  SEQUENCE 


R 0043 
R0C44 
R 0047 
R 0048 
R004C 


70  CALL  SELF-CHECK  KEY  IN 

V 21  N 27  F CPI  ION  NUMBER  E 
TO  CALL  SHOW -BANK  SUM  KEY  IN 

V 91  E DISPLAYS  FIRST  BANK 

V 33  E PROCEED,  DISPLAYS  NEXT  BANK 


R (105  0 


exit  modes,  normal  and  alarm 


R 005  1 
R 005  3 
R 0054 
R 0057 
R 0059 


SELF-CHECK  NORMALLY  CONTINUES  INDEFINITELY  UNLESS  THERE  IS  AN  ERROR  DETECTED.  IF  SO  + OPTION  NUMBERS  PUT 
COMPUTER  INTO  BACKUP  IDLE  LOOP,  - OPTION  NUMBERS  RESTART  THF  OPTION. 


r HE  -0  OPTION  1 CE  EDI  F 
SHOW-BANK  SUM  PL  or.  EE  US  UNTIL 


THE  LINE  FOLLOWING  THE  LINE  WHERE  THE 
A TERMINATE  IS  KEYED  I r (V  34  E).  THE 


ERROR  WAS  DETECTED. 

COMPUTER  IS  PUT  INTO  THE  BACKUP  IDLE  LOOP 


GAP:  ASSEMBLE  REVISION  001  OF  AGO  PROGRAM  API 

l A 0 C At  : CK  rwo  E 1 F — € m I-  0 k 

R 006 1 SELF -CHECK  UPON  DETECTING  AN  ERRO 

R 006  3 TUM  f'  THE  ALA'  M IIGHT.  ' HE  OPERATOR 

P 00b  5 I wF-Cr.  NAT  I ON  HE  MAY  KEY  I V 05  \ Cs  E, 

R0067  IN  R2  THE  B6C0N  HE  SELF-CHECK,  AND  IN 

P 006  c I I T I A V ED  r n E 5 H 5 T A ' ( ^ L A P 1 ) . 

R 007  3 S HOW  — B A MK  S U M START  I f'  G WITH  BA  •><  0 

R 0( 7 5 THE  BANK  NUMBER,  AND  IN  R3  THE  BUGGE 


P 0076  Ef  \ SALLE  INITIALIZATION  r- EQUIP  ED 

R 0077  ACCOMPLISHED  BY  FRESH  START 

R 007 8 SMDDE  SET  TO  +0 


1 • OPE  BY  EYLES 


3: 15  DE 


R LOADS  THE  SELF-CHECK  ALARM  CONSTANT  ( 
MAY  THEN  DISPLAY  tHE  THRFE  FATLPEGS  BY 
THE  DSKY  DISPLAY  IN  1 WILL  BE  ADDRESS 
R3  "Ht  TOTAL  NUMBER  UE  ERIJRS  DETECTED 


c. 

2 

, 

10  70 

SKIP 

PEF 

.087 

P 

AGE  1285 

US 

EF« 

S 

PAGE 

NO. 

2 

EG 

S3 

01 

102 

) 

INTO 

THE 

FAIL 

REG 

SET 

AND 

K 

FY  I 

MG  IN  V 

05 

N 09 

E. 

FOP 

FURTHER 

+ 1 

OF 

WHERE 

THE 

ERROR  WA 

S DETECTED, 

BY 

SE 

I. 

E-CHECK  SI 

NCE 

THE 

LAS 

T MAI1 

0 I S°l  AYS  IN  HI  THE  BANK  SUM 
WORD. 


(A  +- NUMBER  EQUAL 


TO  THE  BANK 


NUMBER ) , 


IN  R2 


R 0079  DEBP  IS 


R Cr  ” 

R 008  2 
R 00  86 


aid  exits  from  the  fhfck  nr-  erasable  ( e{; aschk 
EXCEPTION  IS  A RESTART.  RESTART  THAT  OCCURS  DURING 
E MEMORY,  IN  WHICH  CASE  PROGRAM  THEN  DOES  A FRESH 


) ’ F c T 0 P F OR T GIN  At  CONTENTS 

EP, ASCHK  RESTORES  ERASABLE, 
START  (DOFSTART). 


TO  P FG! STEF  S UNDE”  CHECK. 

UNLESS  THERE  IS  EVIDENCE  TO  DOUBT 


0085 

25, 

377C 

BANK 

25 

0086 

0 EF 

1 

43, 

200  0 

SETLOC 

SFLFCHEC 

0087 

43, 

3232 

BANK 

0088 

REF 

1 

COUNT  4 

$ $/ S E L F 

0089 

sEF 

31 

LAST 

1099 

4753 

SBIT  1 

EQUALS 

BIT1 

0090 

REF 

48 

LAST 

109° 

47  5 2 

S B IT  2 

EQUALS 

B I T 2 

OOP  1 

” FF 

34 

LAST 

1 09  9 

4 7 5 1 

C R T T 8 

F O'  1 A 1 6 

R l T8 

JU  1 1 J 

L-  V H L J 

0092 

REF 

41 

LAST 

1099 

4750 

SBIT4 

EQUALS 

BIT4 

0093 

REF 

37 

LAST 

1014 

4 74  7 

SBIT5 

EQUALS 

BIT5 

0094 

REF 

A 5 

LAST 

676.6 

SBIT6 

p -ni  1 A I ‘s 

R I T6 

■ 1 70 

C ^ J \ L o 

ni  IQ 

0095 

REF 

41 

LAST 

10-6 

4745 

S8IT7 

EQUALS 

BIT7 

0096 

51  EF 

37 

LAST 

126  7 

4744 

S8TT8 

EQUALS 

BITS 

0097 

Off 

26 

LAST 

983 

474  3 

SRIT9 

EQUALS 

B IT° 

0098 

REF 

37 

LAST 

1099 

4742 

SBIT10 

EQUALS 

BIT10 

0099 

REF 

27 

LAST 

1099 

4 74  1 

SB  IT1  1 

EQUALS 

BIT1 1 

010C 

REF 

32 

LAST 

1099 

4740 

SBIT12 

EQUALS 

BIT12 

0101 

REF 

41 

LAST 

1 0 • 9 

4737 

SBIT 13 

equals 

BTT13 

010? 

REF 

70 

LAST 

126  1 

4736 

S B I T 1 4 

EQUALS 

BIT  14 

0103 

REF 

40 

LAST 

I 0”'Q 

4735 

SRIT1 6 

EQUALS 

BTT15 

0104 

REF 

228 

LAST 

1153 

4755 

S+ZERC 

EQUALS 

ZERO 

0105 

REF 

52 

LAST 

1285 

475  3 

S + l 

EQUALS 

BIT1 

0106 

REF 

49 

LAST 

128  5 

475  2 

S + 2 

EQUALS 

B I T 2 

0107 

REF 

35 

LAST 

1263 

6 26  5 

S + 3 

EQUALS 

THREE 

0108 

REF 

26 

LAST 

T?6  7 

47c  1 

S+4 

EQUAL S 

FOUR 

0109 

PEF 

21 

LAST 

1034 

4756 

S + 5 

EQUALS 

FIVE 

0110 

REF 

24 

LAST 

1264 

6242 

S + 6 

EQUALS 

SIX 
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Gill 

• 0112 

0113 
01 1 A 

• on*- 

Dili- 

0117 

• 011° 
0119 
01  2 C 

• 0121 

012? 
0123 

• 012  A 

0125 

0126 

§ 0127 

01?R 
0129 

9 0130 

0131 

0132 

9 

0134 

9 0135 

0136 

AO  137 
9 A0138 

A 0 1 3 c 

9 0140 

0141 
014? 

9 0143 

0144 

0145 

9 0146 

3-  01<  ' 

0 14  P 

9 0149 

0150 

0151 

9 0152 

0153 

0154 

9 0155 

0156 

0157 

9 015  8 


REF  17  LAST 
REF  16  LAST 
REF  2 LAST 


REF  Q L A ST 


REF  20  LAST 
REF  3 LAST 
REF  7 LAST 


nFF  2 LAST 
FEF  2 LAST 
RFF  3 LAST 
REF  fa  LAST 
REF  1?  LAST 
REF  27  LAST 

RFF  46  LAST 
REF  3 LAST 
REF  4 LAST 


REF  6 LAST 

REF  1 

REF  3 LAST 

REF  3 LAST 

RFF  2 LAST 

REF  7 LAST 

REF  324  LAST 

REF  3 LAST 

REF  3 LAST 

REF  3 LAST 

^ F F 1 

r;  EF  5 LAST 

REF  3 LAST 

RFF  6 LAST 


1099  4757 

1265  4357 

304  4771 

43,3212 

63 . 3233 
1265  5007 

43.3234 

43.3235 
1024  5012 

907  5020 

1 0c-9  4350 

43.3236 

43.3237 

43. 3240 

43.3241 

43.3242 
4 3,  326  3 

232  4660 

1008  6112 

890  7745 

1103  7746 

109^  “767 

996  4754 

1132  E3 , 1400 

2Q 1 43,3244 

1116  43,3265 


215  43,3246 

43, 3247 

63 . 3250 

43.3251 
215  43 ,3252 

215  43,3253 

43 , 3254 
290  43,3255 

1286  43,3256 

63,3257 
1213  $1,3260 

471  43,3261 

305  43,3262 

211  .4  3,3263 

43. 3264 

43.3265 

306  43,3266 

12B<  43,3267 

1286  43,3270 


S+7  EQUALS 

S8B1TS  EQUALS 
CNTKCON  = 

) 0 C 6 1 0 ekascom  octal 

91  373  1 ERAS C0N2  OCTAL 
EF  ASCCN6  = 

I LO  ERASCC  ctal 
01773  0 ERASCQN4  OCTAL 
SI  OB ITS  EQUALS 
SBNK03  EQUALS 
—MAX  AD’  c = 

00060  1 SIXTY  ItTAL 
60017  1 SUPRCON  OCTAL. 
17777  0 S13BITS  OCTAL 
25232  0 C0NC+S1  OCTAL 
) 0 1 C0NC  + S2  OCTAL 
767  77  1 FT.  A SC  ON  5 OCTAL 


S— 4 

EQUALS 

S-3 

EQUAL  S 

St  2 

EQUALS 

5-1 

EQUALS 

S-ZEPO 

EQUAL S 

01371  0 

ADR  S 1 

E 8 A N K = 
ADR  ES 

03336  1 

SELF ADRS 

ADRES 

3 1360 

0 

PRERRORS 

CA 

0 C.00 6 

1 

EXTEND 

1 32  5 7 

0 

B Z F 

C CO 06 

1 

EXTEND 

3 1376 

1 

DC  A 

51 ' 377 

0 

INDEX 

52  001 

1 

DXCH 

3 4755 

1 

CA 

55*360 

1 

TS 

0 0004 

0 

ERRORS 

INHINT 

3 0002 

0 

CA 

55 ' 357 

0 

TS 

55' 363 

1 

TS 

23 ' 365 

0 

I NCR 

0 5571 

1 

TCALARM2 

TC 

01102 

0 

OCT 

11 • 362 

0 

CCS 

3 6755 

1 

SIDLOOP 

CA 

55 '362 

0 

TS 

9 


* 


SEVEN 
LOWR 
OCT  50 
00061 
01373 
OCT  1400 
01461 
01773 
LOW  10 
PRI06 
H I 5 
00060 
60017 
17777 
25252 
52400 
76777 
OCT 77770 
NEG4 
NEG3 
NEG2 
N EG OH  E 
NEGO 

L ST  1 

SKEEP1 

SELFCHK 


ERESTOPE 
ERRO R S 
SKEFP6 

SKEEP7 

0000 

S+ZERO 

ERESTORE 

0 

SFAIL 

ALMCAOR 

erccumt 

A LAP  M2 
01102 
S MODE 
S+ZERO 
SMODE 


i 
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00379 

USED  IN  CNTRCHK 
USED  IN  EPASCHK 
USED  IN  ER Acf HK 
USED  IN  Ec  ASCHK 
USED  IN  EPASCHK 
USED  IN  ERASC-HK 
01777,  USED  IN  ERASCHK 
06000,  USED  IN  ROPECHK 
FOR  ROPECHK 

USED  IN  ROPECHK 

USED  IN  CYCLSHFT 
USED  IN  CYCL.SHFT 


SELFCHK  RETURN  ADDRESS.  SHOULD  BE  PUT 
IN  S E l FRET  WHEN  GOING  FROM  SELFCHK  TO 
SHOWS UM  AND  PUT  IN  SKEEP1  WHEN  GOING 
FROM  SHOW  SUM  TO  SELF-CHECK. 

IS  IT  NECESSARY  TO  RESTORE  ERASABLE 

NO 


RESTORE  THE  TWO  ERASABLE  REGISTEPS 


SAVE  Q FOR  FAILURE  LOCATION 

FOR  DISPLAY  WITH  BBANK  AND  ERCOUNT 

KEEP  TRACK  OF  NUMBER  OF  MALFUNCTIONS. 


SELF-CHECK  MALFUNCTION  INDICATOR 


i 


» 

i GAP:  ASSEMBLE  REVISION  001  OF  AGC  PROGRAM  AP11R0PE 


* L 

» 

0159 

I 0160 


AGC  8! OCR  two  'ELF-CHECK 

REF  5 LAST  1286  A3, 3271  0 3336  1 
REF  4 LAST  1286  43,3272  0 1357  1 


BY  EYlfcS 


TC 

TC 


SELFCHK 

SFAIL 


I 

9 

§ 

§ 

i 

i 

• 

I 

I 


0161 
0162 
n l ^ 3 

REF 

REF 

ccc 

3 30 

1 

? 

LAST 

| ACT 

126  4 

12  87 
1287 

3,3273 
43 , 2 27  4 

43 . 3275 

43.3276 

W 1 U D 

0164 

r\  c r 

REF 

381 

fA  3 l 

LAST 

0165 

REF 

3 

LAST 

1287 

43 , 3277 

0166 

REF 

3 25 

LAST 

1236 

43,3300 

10  000  0 -ICHK 

CCS 

A 

1 3246  0 

TCF 

PRERRORS 

1 3246  0 

TC  F 

PPERRPi  r 

10  COO  0 

CCS 

A 

1 3246  0 

TCF 

PRERRORS 

0 0002  0 

TC 

Q 

0167 

43,3301 

0 

0006 

1 

0168 

°EF 

4 

LAST 

12  36 

*3,3302 

23 

'371 

0 

0169 

REF 

l 

43,3303 

0 

3332 

0 

0170 

REF 

7 

LAST 

1286 

43,3304 

11 

'3  62 

0 

0171 

REF 

1 

43,3305 

0 

3312 

1 

0172 

RFF 

1 

43 , 3306 

0 

3303 

1 

01  73 

RFF 

9 

LAST 

12  87 

*3  , 1307 

0 

3312 

1 

0 174 

DEF 

2 

1 a c T 

10  8 

43,3310 

25 

' 366 

0 

0175 

RFF 

5 

LAST 

1287 

43,3311 

0 

1371 

0 

SMOOECHK  EXTEND 

QXCH  'KEE<n 

TC  CHECKNJ 

CCS  SMODE 

TC  SOPT IONS 

TC  SMOOECHK 

TC  S OPT  TONS 

TNCF  SCOUNT 

TC  SKEEP1 


0176 

0177 

0178 

0179 

, REF 

R FF 

1 

43.3312 

43.3313 
43,331* 

i 5 , 5 •)  I p 

0180 

REF 

3 

LAST 

1287 

43,3316 

0181 

REF 

1 

43 ,3317 

0182 

REE 

382 

LAST 

1287 

43,3320 

0133 

REF 

1 

43,3321 

0184 

REF 

6 

LAST- 

1287 

43,3322 

0185 

REF 

7 

LAST 

1287 

43,3323 

0186 

REF 

8 

LAST 

1287 

43 , 3324 

0187 

REF 

1 

.43,3325 

0138 

REF 

1 

43,3326 

0139 

REF 

9 

LAST 

1287 

43,3327 

0190 

PEF 

10 

LAST 

128  7 

43, 3330 

0191 

REF 

11 

LAST 

1287 

43  ,3331 

0192 

0193 

PEF 

7 

LAST 

11  16 

43,3333 

0194 

REF 

55 

LAST 

11  57 

43,3334 

0195 

REF 

2 

LAST 

11  10 

43,3336 

0196 

REF 

2 

LAST 

1 287 

43,3336 

6 

5660 

1 

SOPT JONS 

AD 

5-7 

0 

0006 

1 

EXTEND 

6 

3316 

0 

BZMF 

+ 2 

0 

32  6 7 

1 

BNKPPTN 

TC 

S I DL  OOP 

25 

' 366 

0 

I NCR 

SCOUNT 

6 

4757 

0 

AD 

S+7 

50 

CCO 

1 

INDEX 

A 

0 

3322 

1 

TC 

SOPT I ON  1 

0 

13  71 

0 

SORT  I ONI 

TC 

SKEEP1 

0 

1371 

0 

S0PTI0M2 

TC 

SKEEP  1 

0 

1371 

0 

SOPT  I0N3 

TC 

SKEEP1 

0 

3 3 3 7 

o 

SOPT  T 0N4 

Tf 

FRASfHK 

l r • w j L/ 1 * - 

0 

3520 

0 

SOPT  I ON 5 

TC 

F OPECHK 

0 

1 371 

0 

S0PTI0N6 

TC 

SKEEP1 

0 

1371 

0 

S0PTT0N7 

TC 

SKEFP1 

0 

1371 

0 

SOP TUN  1 0 

TC 

SKEEP1 

0 

C 006 

1 

CHECKNJ 

EXTEND 

23 

' 3 > i 

1 

QXCH 

SELFFET 

0 

46  3 5 

0 

TC 

POST JUMP 

032  14 

0 

CADR 

ADVAN 

0 

3301 

0 

SELFCHK 

TC 

SMODE CHK 

R0197  S KE  E ^7  HOLDS  LOWEST  OF  VW(  ADDRESSES  BEING  CHECKED. 

80198  SKEEP6  HOLDS  B(X+1). 

ROloo  SKFFP6  HOLDS  «(X). 

SKEEP4  HOLDS  C { EBANK  ) DIJRI  ERAS1  AND  CHECKNJ. 

8 020 1 SKEEP3  HOLDS  LAST  ACCP.ESS  BEING  CHECKED  (HIGHEST  ADDRESS). 


I" 
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USER'S  (AGE  NO.  4 E3  S4 

GO  TO  IDLE  LOOP 
CONTINUE  WITH  SELF-CHECK 


CHECK  FOR  NEW  JOB 


TO  BACKUP  IDLE  LOOP 


CONTINUE  WITH  SELF-CHECK 


FOR  OPTIONS  BELOW  MINE. 

ILLEGAL  OPTION.  GO  TO  IDLE  I OOP. 
FOR  OPTIONS  BELOW  NINE. 


WAS  TC+TCF 
WAS  I N :OUT 1 
WAS  COUNT C HK 


CONTINUE  WITH  SELF-CHECK 

SAVE  RETURN  ADDRESS  WHILE  TESTING  NEWJOB 
TO  SEE  IF  ANY  JOBS  HAVE  BECOME  ACTIVE. 


**  CHARLEY,  COME  IN  HERE 
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02C5 

REF 

2 

LAST 

290 

43,3337 

3 47  53 

1 

ER.AGCHK 

CA 

S +1 

0206 

REF 

3 

LAST 

290 

43,3340 

55 '372 

1 

TS 

SKEEP2 

0207 

REF 

4 

LAST 

1286 

43, 3341 

3 4755 

1 

OEBANK 

CA 

S+ZERO 

0208 

is  p p 

64 

LAST 

12^7 

4 3 , 33A2 

5 6.  003 

0 

TR 

FBANK 

0209 

REF 

1 

43, 3343 

3 3234 

1 

CA 

ERA SC ON 3 

01461 

0210 

REF 

4 

LAST 

1286 

43, 3344 

56*377 

1 

TS 

SKEEP7 

STARTING  address 

0211 

REF 

1 

43,3345 

3 5012 

1 

CA 

S1CBITS 

C1777 

0212 

REF 

3 

LAST 

290 

43,3346 

5 5 ' 373 

0 

TS 

SKEFP3 

LAST  ADDRESS  CHECKED 

0213 

REF 

1 

43 , 33 * 7 

0 33  0 7 

0 

TC 

ERAS  LOC)  R 

0214 

REF 

1 

43,3350 

3 5007 

0 

E 1 36  567 B 

CA 

ERASC0N6 

01400 

0215 

REF 

5 

LAST 

1288 

43,3351 

55*377 

1 

TS 

SKEEP7 

STARTING  ADDRESS 

C216 

. REF 

2 

LAST 

1288 

43,3352 

3 5012 

1 

CA 

S 10  B I TS 

01777 

0217 

REF 

4 

LAST 

1288 

43 , 3353 

55' 373 

0 

TS 

SKEFP3 

LAST  ADDRESS  CHECKED 

021:- 

REF 

2 

LAST 

123  8 

43,3354 

0 3367 

0 

TC 

ERA  SLOOP 

0219 

REF 

2 

LAST 

128  8 

43,3355 

3 5007 

0 

2EBANK 

CA 

ERASC0N6 

01400 

0220 

REF 

6 

LAST 

1288 

43, 3356 

55 ' 377 

1 

TS 

SKEEP7 

STARTING  ADDRESS 

0221 

REF 

1 

43,3357 

3 3235 

0 

CA 

ERAS COM4 

01773 

0222 

REF 

5 

LAST 

1 2 3 8 

43,3360 

55*373 

0 

TS 

SKEEP3 

LAST  ADDRESS  CHECKED 

0223 

REF 

3 

LAST 

12  8 c 

6 3,336  1 

0 3367 

0 

TC 

ERASLOOP 

0224 

REF 

4 

LAST 

1288 

43,3362 

55 ' 372 

1 

noebank 

TS 

SKEEP2 

+0 

0225 

REF 

1 

43,3363 

3 32  3 2 

1 

CA 

ERA  SCON 1 

00061 

0226 

REF 

7 

LAST 

1288 

-,3,3364 

55 '377 

1 

TS 

SKEEP7 

STARTING  ADDfESS 

0227 

REF 

1 

43,3365 

3 3233 

0 

CA 

ERASC0N2 

01373 

02  2 F 

REF 

6 

LAST 

i2rb 

43 ,3366 

55 ' 373 

0 

TS 

SKEFP3 

LAST  ADDRESS  CHECKED 

0229 

43,3367 

0 C 004 

0 

EPASLOOP 

INHINT 

0230 

REF 

65 

LAST 

1238 

43,3370 

3 0003 

1 

CA 

E BANK 

STORES  C ( E BANK ) 

023) 

REF 

3 

LAST 

215 

43,3371 

55 ' 374 

1 

TS 

SKEEP4 

0232 

43,3372 

0 0006 

1 

extend 

0233 

R E F 

8 

LAST 

1288 

43, 3373 

5 13  77 

0 

NDX 

SKFEP7 

0234 

43,3374 

3 0001 

0 

CCA 

0000 

0235 

REF 

4 

LAST 

1286 

43,3375 

53' 376 

0 

DXCH 

SKEEP5 

STORES  C (X ) AND  C( X+l I IN 

SKEEP6  AND 

0236 

REF 

9 

LAST 

12  38 

43 , 3376 

3 1377 

0 

CA 

SKEEP7 

0237 

REF 

8 

LAST 

1236 

43,3377 

55*360 

1 

TS 

E RESTORE 

IF  RESTART,  RESTORE  C ( X ) AND  CIX+1) 

C23P 

REF 

220 

LAST 

1128 

43 ,3400 

56-  0 0 L 

1 

TS 

L 

023  c 

REF 

2 21 

LAST 

128  8 

43 , 340  1 

24  001 

0 

I NCR 

L 

0240 

PFF 

383 

LAST 

1287 

43, 3402 

50  000 

1 

NDX 

A 

0241 

43,3403 

52  001 

1 

DXCH 

0000 

PUTS  OWN  ADDRESS  IN  X AND 

X +1 

0242 

REF 

10 

LAST 

1238 

43 , 3404 

51'377 

0 

NDX 

SKEEP7 

0243 

43,3405 

4 0001 

1 

CS 

0001 

CS  X + l 

0246 

p F F 

1 1 

LAST 

1 288 

43 , 3406 

51 ' 377 

0 

NDX 

SKEFP7 

026  5 

63,3407 

6 GO  00 

1 

AD 

0000 

AD  X 

0246 

REF 

1 

63,3410 

0 32  73 

1 

TC 

- 1CHK 

0247 

REF 

9 

L AST 

1283 

43,341  1 

3 1360 

0 

CA 

ERESTORE 

HAS  ERASABLE  BEEN  RESTORED 

024  £ 

43 , 3412 

0 0006 

1 

EXTEND 
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L 

AGC 

"I  • CK  TWO 

SEt  F- 

•CHECK 

USER'S  PAGE  MO.  6 E3  S4 

0249 

REF 

1 

43 , 341 3 

1 3437 

0 

BZF 

ELOOPF  IN 

YES,  EXIT  ERASLOOP. 

0250 

43,3414 

0 0006 

1 

EXTEND 

0251 

REF 

12 

LAST 

1288 

43 » 3h1 5 

5 1377 

0 

NDX 

SKEEP7 

0252 

43 ,3416 

4 0001 

1 

DCS 

0000 

COMPLEMENT  OF  ADDRESS  OF  X AMD  X + l 

0253 

REF 

13 

LAST 

1239 

43,3417 

51*377 

0 

NDX 

SKEE67 

HOC.  A. 

43, 3420 

5 ? 0 01 

DXC  H 

ocoo 

PUT  FPMPIFMFMT  OF  ADORFCC  OF  Y A Kin  ’ 

\jc.  P • 

0255 

REF 

14 

LAST 

1289 

43,342 I 

51 '377 

0 

NDX 

SKEEP7 

r U 1 UUi  l C L ' ,u  IN  1 I MUun  L j j Ur  A *A|vL/ 

0256 

43, 3422 

4 OCCO 

0 

CS 

0000 

CS  X 

0257 

REF 

15 

LAST 

1289 

43,3423 

51 ' 377 

0 

NDX 

SKEEP7 

0258 

43 , 3424 

6 C001 

0 

AO 

C001 

AO  X+l 

02  5 c< 

°EF 

2 

LAST 

128  8 

43,3425 

0 3273 

1 

TC 

- 1CHK 

noon 

d ir  p 

! ACT 

1 ? <3  w; 

4 T . T A ? C 

-X  1 3 4 . '• 

o 

C A 

EREcTOPF 

MAC  FFACARI  F RFFN  r ccT.-ipcr) 

UdOU 

K n r 

1 u 

LAo! 

I 6-0 

I 3 | JTt.  O 

D L D U 0/ 

'■MO  DLLl  1 C J 1 UuL'J 

0261 

43,3427 

0 0006 

1 

EXTEND 

0262 

REF 

2 

LAST 

1289 

43,3430 

1 3437 

0 

BZF 

elogpfin 

YES,  EXIT  ERASLOOP. 

0263 

43,3431 

0 0006 

1 

EXTEND 

02'.'- 

REF 

5 

LAST 

1 28  8 

4 3,3432 

3 13  76 

1 

OCA 

SKFFP5 

0265 

REF 

1 6 

LAST 

1 zr  9 

43,3433 

51 1 377 

0 

NDX 

SKEEP7 

0266 

'■2 ,3434 

92  001 

1 

UXCH 

0000 

PUT  BIX)  AND  BIX+l)  BACK  INTO  X AND 

0267 

REF 

5 

LAST 

1288 

43, 3435 

3 ^755 

1 

CA 

S+ZERO 

026  8 

REF 

11 

LAST 

1289 

4?  , 3436 
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MAKE  SURE  TWO  CONSECUTIVE  TC  SELF  WORDS 
* 

* +1,  SHOWSUM 

* 

-0  IN  SKEEP6  FOP  ROPECHK 


LAST  BANK  Tp  BE  CHECKED 
END  OF  SUMMING  OF  BANKS. 

37  TO  40  I NCR MTS  SKEEP4  BY  END  PND  CARRY 

SET  FOR  BANK  20 

INCREMENT  SUPER  BANK 

BANK  SET  FOR  30 
FIRST  SUPER  BANK 

SET  BNK  30  + I NCR  SUPR  BNK  AND  CANCEL 
ERC  BIT  OF  THE  37  TO  40  ADVANCE. 


HAS  TO  BE  LARGER  THAN  NO  OF  FXSW  BANKS. 


= BANK  BIT? 


BANK  NUMBER  BEFORE  SUPER  BANK 


GAP:  ASSEMBLE  REVISION  001  Of  AGC  PROGRAM  API  IN  'PE  BY  PYLES 


L AGC  BLOCK  TWO  SELF-CHECK 


043? 
0434 
043  5 
043  6 
0437 
043  3 
043° 

0440 

0441 
044? 
0443 
0644 

0445 

0446 

04461 

04462 
0446  3 

0446  6 

0447 

0448 

0449 
04  5 0 
045  1 


REF  14  LAST 
REF  1 

REF  1 
REF  23  LAST 
°EF  ? 2 5 L AS  T 
REF  13  LAST 
REF  24  LAST 
REF  226  LAST 
RFF  6 LAST 


REF  1 

REF  18  LAST 


REF  ' LAST 
REF  19  LAST 
REF  227  LAST 
REF  20  LAST 
REF  2 LAST 
-FF  5 LAST 
EP  2 LAST 


1292  43,3674 
43,3675 
4 3 t 36  76 
43,3677 

1290  43,3700 

1 2°  2 43,3701 

1286  43,3702 

1293  43,3703 

1293  43,3704 

12°2  43,3705 

43 , 3706 
43,370-' 
43,3710 
1 2°  1 43,3711 

43.3712 

43.3713 

1 2°2  43,  3716 

12° 3 63,3719 

1293  43,3716 

1293  43,3717 

12:91  43,3720 

1 ? 4 3,3721 

2°  0 h-3,372? 


3 1374  0 
7 4357  0 
0 0006  1 
1 3705  1 
56  021  0 
3 0001  0 
7 4757  1 
6 0021  1 
54  001  1 

3 1376  1 
0 0006  1 
1 3711  1 
0 3113  1 
11*371  1 
0 3 714  0 
0 3715  1 
6 6 753  i 
55*371  1 

4 0001  1 
6 1371  0 
6 7747  1 
0 32  73  1 
0 3633  1 


SOP! 


BNKC.HK 


CA 

MASK 

EXTEND 

RZF 

T9 

CA 

MASK 

AD 

IS 

CA 

EXTEND 

BZF 

TC. 

CCS 

TC 

TC 

AD 

TS 

CS 

AD 

AD 

TC. 

TC 


0456 

0455 


REF  22  LAST  1292 


006  7 
43, 3723 


E B A N K = 

66100  0 LSTBNKCH  BBCON* 


SKEEP4 

SSBITS 

SOPT 

SP 

L 

SEVEN 

SR 

L 

9 K F E P 6 
+ 2 

SDISPL  AY 
SKEEP1 
+ 2 
+ 2 
S + l 

9 K EE P 1 
L 

SKEEP1 

$-1 

-1CHK 

NXTBNK 

NEW JOB 


3:15  DEC 


2,1570  SKIPPER  .087  PAGE  1293 


USEi  'S  PAGE  NO.  10  E3  S4 

= SUPER  BANK  BITS 

BEFORE  SUPER  BANK 
SUPER  BANK  NECESSARY 


BALK  NUMBER  WITH  SUPER  BANK 
* 

* 

* ON  -0  CONTINUE  WITH  ROPE  CHECK. 

* ON  +1  GO  TO  DISPLAY  OF  SUM. 
FORCE  SUM  TO  ABSOLUTE  VALUE. 


= - BANK  NUMBER 

CHECK  SU” 


* CONSTANT,  LAST  BANK. 


ROYAL  f BUSINESS  FORMS  INCORPORATED 


ft 


ft 


1 


GAP:  ASSEMBLE  REVISION  001  UF  AGO  PP.QfiR  AM  AP11R0PE  BY  EYLES 

L PH A S E TABLE  MAINTENANCE 

P0001  SUBROUTINE  TO  UPDATE  THE  PROGRAM  NUMBER  DISPLAY  ON  THE  DSKY. 


970 

SKIPPER 

.087  PAGE  1294 

PAGE 

NO.  1 

EO  S4 

ft 

ft 

0002 
000  3 

0004 

0005 

0006 

REF  1 

FEE  1 

REF  327 

LAST 

1 291 

0007 
000  P 

5 FF  3 28 

LAST 

1294 

ft 

oooQ 

-7  E F 21 

LAST 

123  1 

1213 

ft 

0014 

0015 

REF  40 

LAST 

0016 

REF  17 

LAST 

12  2- 

0017 

REF  l 

ft 

ft 

R 001  ? 

0020 

REF  329 

RETURN  T0 

LAST  1294 

0021 

0C2? 

REF  2 2 

LAST 

12  94 

ft 

0023 

0024 

REE  3 

L 4S7 

1196 

0025 

REF  4 

LAST 

521 

• 

002  6 

REF  4 

LAST 

1294 

6 311 
4000 
c 31  1 

5311 
5 312 
5313 

5 3®*' 

5315 

5316 
5 317 
6320 


50  002 
3 COOO 
24  C 0 2 


NEWMODEX 


COUNT  * $$/°HASF 
BLOCK  02 
SETLOC  FFTAG1 
RANK 

INDEX  0 
CAF  0 
I NCR  0 


55*011  1 
3 5320  0 
22  006  1 
1 4640  0 
20213  0 


NEWMCDEA  TS 
MMDSPLAY  CAF 
PRFB JUMP  LXCH 
TCF 
CALK 


MODS  EG 

+ 3 

B BANK 
BANK  JUMP 
SETUP  DSP 


U PD AT  F MODPEG.  ENTRY  FOR  MODE  IN  FIXED. 


ENTRY  FOR  MODE  IN  A. 
DISPLAY  MAJOR  MODE. 
PUTS  BBANK  IN  L 
PUTS  Q INTO  A 


F +3  IF  Mi JDE  = THAT  AT  CAtJ-E"  +1.  OTHERWISE  RETURN  TO  CALLS*  +2. 


5321  50  002  0 CHECKMM  INDEX  0 


53  22 
532  3 
5 3 2 4 

5325 

5326 

674? 


4 0000  0 
6 1011  0 
0 0006  1 
1 6741  1 
1 6737  0 


CS 

AD 

EXTEND 

BZF 

TCF 


TCQ 


0 

MODPEG 

0 + 2 
Q+l 

Q + 2 +1 


NO  MATCH 


OOP7 
002  8 

REF 

] 

14,3774 
i o . ?o a n 

BANK 
SET!  OC 

14 

PHASETAB 

0029 

10,2213 

BANK 

003  0 

REF 

1 

COUNT;* 

$$/ PHASE 

0031 

10,2213 

0 0004 

0 

S E T UP DSP 

INHINT 

0032 

REF 

44 

LAST 

o 0<+ 

10,2214 

5 2 07  1 

0 

DXCH 

■ UPTREG1 

003  3 

REF 

1 1 

LAST 

) 099 

10, 221 5 

3 43  55 

0 

CAF 

PR  1030 

0034 

REF 

26 

LAST 

1121 

10,22  16 

0 5072 

1 

TC. 

NGVAC 

0035 

REF 

23 

L AST 

1294 

1011 

EB ANK= 

MODREG 

0036 

REF 

1 

10,2217 

03534 

0 

2CADR 

DSPMMJOB 

0036 

REF 

1 

10,2220 

6 C 1 0 2 

l 

0037 

REF 

45 

LAST 

1294 

IP ,2221 

6?  071 

0 

DXCH 

rUp t R EG  1 

0038 

10,2222 

0 0003 

1 

PEL’'  NT 

003Q 

REF 

23 

LAST 

1267 

10,2223 

52  006 

0 

DXCH 

z 

004  0 

REF 

2 

LAST 

457 

40,3534 

DSPMMJOB 

EQUALS 

DSPMMJB 

0041 

5327 

BLOCK 

02 

0042 

REF 

2 

LAST 

1294 

4000 

SETLOC 

FFTAG1 

0043 

5327 

BANK 

SAVE  CALL  ER-S  RETURN  2CADP 

EITHER  A TASK  OR  JOB  CAN  COME  TO 
NEWMODEX 


RETURN 


kj  u 


» 
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P 0044  PHASCHNG  IS  THE  MAIN  NAY  OF  MAKING  PHASE  CHANGES  FOR  RESTARTS.  THERE  ARE  THREE  FORMS  OF  PHASCHNG , KNOWN  AS  TYPE 

R 0046  A,  TYPE  B,  AND  TYPE  C.  THEY  ARE  ALL  CALLED  AS  FOLLOWS,  WHERE  OCT  XXXXX  CONTAINS  THE  PHASE  INFORMATION, 


A 0048  TC  PHASCHNG 

A 004 c OCT  XXXXX 


R 0050  TYPE  A IS  CONCERNED  WITH  FIXED  PHASE  CHANGES,  THAT  IS,  PHASE  I NFORMATI ONTHAT  IS  STORED  PERMANENTLY.  THESE 
R 0052  OPTIONS  APE,  WHERE  G STANDS  FOR  A GROUP  AND  .X  FOR  THE  PHASE, 


ROC 5 3 
R 005  r 
R 00t'7 

R 0059 
R0060 


G.O 
G • 1 

G. EVEN 

G . ODD  NOT 


INACTIVE,  WILLNOT  PERMIT  A GROUP  G RESTART 

WILL  CAUSE  THE  LAST  DISPLAY  10  BE  REACTIVATED,  USED  MAINLY  IN  MANNED  FLIGHTS 
A DOUBLE  TABI  F RESTART,  CAN  CAUSE  ANY  COMBINATION  OF  TWO  JOBS,  TASKS,  AND/OP 

LONGCALL  TO  BE  RESTARTED. 

. I A SINGLE  TABLE  F F STAR  T , CAN  CAUSE  EITHER  A JOB,  TASK,  OR  LONGCALL  RESTART 


R 0062  THIS  INFORMATION  IS  PUT  INTO  "i  HE  OCTAL  WORD  AFTER  TC  PHASCHNG  AS  FOLLOWS 
R 006 3 TLr  OOP  P°P  PPP  GGG 


2" 


ROOfcS 
R 0067 
R006  9 
R 00  7 I 


WHEPE  EACH  LETTER  OR  NUMBER  STANDS 
OCTAL  0 - 127.  0 : S MUST  BE  0. 

T IS  SET  in  I,  OTHERWISE  IT  IS  SET 
IT  IS  SET  TO  0.  SOME  EXAMPLES, 


F OR  A BIT 
TO  0.  SI 


. THE  C : S STAND  FOR  THE  GROUP,  OCTAL  1-7,  THE  P:S  FOR  THE  PHASE, 
IF  IMF  WISHES  TO  HAVE  THE  TBASE  OF  GROUP  G TO  BE  SET  AT  THIS  TIME, 
MARLY  IF  ONE  WISHES  TO  SET  LONGBASE,  THEN  L IS  SET  TO  1,  OTHERWISE 


A0072 
A 0073 

A 007* 
A 007* 

A 0076 
A 0077 

a : 

A 007 9 
A 0 ( - ' 
A0081 
A 008  2 

A ( 

A 0034 
A 00  fc  5 
A 0086 


TC 

PHASCHNG 

OCT 

00003 

TC 

PHASCHNG 

OCT 

00012 

TC 

PHASCHNG 

OCT 

40064 

TC 

PHASCHNG 

OCT 

20135 

TC 

PHASCHNG 

OCT 

60124 

THIS  WILI  CAUSE  GROUP  3 TUBE  SET  TO  0, 
MAKING  GROUP  3 INACTIVE 

IF  A RESTART  OCCURS  THIS  WOULD  CAUSE 
GROUP  2 TO  RESTAPT  THE  LAST  DISPLAY 

THIS  SETS  THE  TBASE  OF  GROUP  4 ARID  IN 
CASE  OF  A RESTART  WOULD  START  UP  THE  TWO 
THINGS  LOCATED  IN  THE  DOUBLE  4.6  RESTART 
LOCATION 

THIS  SETS  L0N6BASE  AND  UPON  A RESTART 
CAUSES  5.13  TO  RE  RESTARTED  (SINCE 
LONGBASE  WAS  SET  tHTS  SINGLE  ENTRY 
SHOULD  BE  A LONGCALl  ) 

SINCE  BOTH  TBASE4  AND  LONGBASE  AF E SET, 
6.12  SHOULD  CONTAIN  BOTH  A TASK  AND  A 
LONGCALl  TO  BE  RESTARTED 


R 0087  TYPE  C PHASCHNG  CONTAINS  THE  VARIABLE  TYPE  OF  PHASCHNG  INFORMATION.  INSTEAD  OF  THE  INFORMATION  BEING  IN  A 
P0089  PERMANENT  For  ' , ONE  SO  1 ES  THE  DESIrED  RESTART  INFORMATION  IN  A VAPIABKE  LOCATION.  THE  BITS  ARE  AS  FOLLOWS, 


R 009 1 TLO  1 AD  XXX  C JW  GGG 

R 0092  WHERE  EACH  L ET  TF r'  CM  NlH  RE 1 STANDS  EOF  A RT'r.  THE  GiS  c T AND  FOf  THE  GROUP,  OCTAL  1-7.  IF  the  RESTART  IS  TO 

*0094  BE  BY  WAITLIST,  W IS  SET  TO  l,  IF  IT  IS  A JOB,  J IS  SET  TO  1,  IF  IT  IS  A LONGCALL,  C IS  SET  TO  1.  ONLY  ONE  OF 

R0096  THESE  THREE  BIT  S MAY  BF  SET.  X:S  ARE  IGNORED  1 MUST  BE  1,  AND  0 MUST  BE  0.  AGAIN  T STANDS  FOR  THE  TBASE, 


GAP 
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R 009Q  AND  L FOR  LONGBAS  E.  THE  BITS  A AND  D ARE  CONCERNED  WITH  THE  VARIABLE  INFORMATION.  IF  D IS  SET  TO  1,  A PRIORITY 
R0100  OR  DELTA  TIME  WILL  BE  .FAD  FROM  THE  NEXT  LOCATION  AFTER  THE  OCTAL  INFORMATION,  IF  THIS  IS  TO  BE  INDIRECT,  THAT 
RG102  IS,  THE  NAME  OF  A L CCA! X ON  COMT  + I N1NG  THE  INFORMATION  (DELTA  TIME  ONLY),  THEN  THIS  IS  GIVEN  AS  THE  -GENADT  OF 

POKY  THAT  ! (CATION  'HIGH  CONTAINS  THE  DELTA  TIME.  IF  THE  OLD  PRIORITY  OR  DELTA  TIME  IS  TO  BE  USED,  THAT  WHICH  IS 

P.0106  ALREADY  IN  THE  VA‘  I ABLE  ‘'"  AGE,  f HE  i D IS  SET  "0  0.  NEXT  THE  A BIT  IS  USED.  IF  IT  IS  SET  TO  0,  THE  ADDRESS 

R010P  THAT  KJLO  BE  i:  STA!  TED  DOT  T MG  A RESTART  IS  THE  NEXT  LOCATION  AFTER  THE  PHASE  I NEOR  NATION , THAT  IS,  EITHER 

R011C  (TC  PHASCHNG)  +2  OR  +3,  DEPENDING  ON  WHETHER  D HAD  BEEN  SET  OR  NOT.  IF  A IS  SET  TO  1,  THEN  THE  ADDRESS  THAT 

R01L2  WOULD  BE  RESTATED  IS  THE  2CADR  THAT  IS  READ  FROM  THE  NEXT  TWO  LOCATIONS.  EXAMPLES, 


A01K 
A C 1 1 5 
A 0 1 1 6 
A 01 1 7 

A 0 1 1 £ 

a on  - 

A 0 1 2 p 
AO  1 2 1 
A 012  2 
A012B 
A 01 24 


AD 

TC 

PHASCHNG 

THIS  WOULD  CAUSE  LOCATION  AD  +3  7q  be 

AD+1 

OCT 

05023 

RESTARTED  BY  GROUP  THREE  WITHA  PRIORITY 

AD+2 

AD+3 

ocr 

23000 

OF  23.  NOTE  UPON  PETURNING  IT  WOULD 

ALSO  GO  TO  AD+3 

AD 

TC 

PHASCHNG 

GROUP  1 WOULD  CAUSE  CAUSE  CALI  CALL  TO 

AD+  l 

OCT 

27441 

BE  STARTED  AS  A LONGCALL  FROM  THE  TIME 

AD+2 

-C  E a D ■ 

DELI  IMF 

STORED  IN  LONGBASE  (LONGBASE  WAS  SET)  BY 

AO  + 3 

AD  + 4 
AD+5 

2CADR 

CAl.LCALL 

A DELTATIME  STORED  IN  DELTIME.  THE 

BBC  ON  OF  THE  2 C ADR  SHOULD  CONT A I N THE  E 
BANK  OF  DELTIME.  PHASCHNG  RETURNS  to 
LOCATION  AD+5 

R 0125  NOTE  THAT  IF  A VARIABLE  PRIORITY  I.‘  GIVEN  FOP  A JOB,  THE  JOB  WILL  BE  RESTARTED  AS  A NCVAC  IF  THE  PRIORITY  IS 

R0127  NEGATIVE,  AS  A FKDVAC  IF  PRIORITY  IS  PFCITIVE. 


R012P  TYPE  B PHASCHNG  IS  A CC  JH.ATION  OF  VARIABLE  AND  FIXED  PHASE  CHANGES.  IT  WILL  START  UP  A JOB  AS  I ND I C AT  EO 
R 0 1 3 0 BELCW  AMD  ALSO  STA  T up  iNE  FIXED  RESTART  , THAI  IS  E I V HER  AM  G.l  OR  A G .ODD  OR  THE  FIRST  ENTRY  OF  G. EVEN 
P 0132  DOUBLE  ENTRY.  THE  BIT  f.Ff  ' "ATI C N IS  AS  FOLLOWS, 


R01.33  TL1  DAP  PPP  PPP  GGG 

R0134  VNDS  FOR  A BIT.  THE  G:S  I AND  f ! UP,  CTAL  1 - 7.  THE  p:S  FOR  THE  FIXED 

RCI36  PHASE  If  ■ ’AT  IT  . CTAL  0 - 127.  1 1ST  BE  1.  AND  AGAIN  T STANDS  FOR  THE  TRASE  AND  I FOR  LONGBASE.  D THIS 

R 0138  TIME  STANDS  ONLY  FOP  PR  I PI  TTY  SINCE  THIS  WILL  BE  CONSIDERED  A JOB,  AND  IT  MUST  BF  GIVEN  DIRECTLY  IF  GIVEN. 

R 0140  APA  A r:  T AMDS  f -HE  ADDRESS  OF  THE  L :CAT  ' TP  BE  •ESTAP.TED,  1 IF  THE  2CADP  IS  GIVEN  , OP  0 IF  IT  IS  TO  BE 

R 01 42  THE  NEXT  L.OC  AT  I ON  . ( THE  RETURN  LOCATION  OF  PHASCHNG)  EXAMPLES, 


A 0 1 4 3 

AD 

TC 

PHASCHNG 

T BAS  E IS  SET  AND  APESTART  CAUSE  GROUP  3 

A 0 1 4 ^ 

AD+1 

OCT 

56043 

TO  START  THE  JOB  AJ0BAJ08  WITH  PRIORITY 

Anf‘ 

AD  + 2 

OCT 

31000 

31  AND  THE  FIRST  ENTRY  OF  3.4$P0T(WE  CAN 

A 0 14  6 

AD  + 3 

2CADP 

A J08AJ0B 

ASSUME  IT  IS  A TASK  SINCE  WE  SET  TBASE3 ) 

A 0 1 47 

AD+4 

UPON  RETURN  FROM  PHASCHNG  CONTROL  WOULD 

A 0148 

AD  + 5 

GO  TO  AD+5 

AOK;  " 

AD 

TC 

PHASCHNG 

UPON  A RESTART  THE  LAST  DISPLAY  WOULD  BE 

A 01  50 

AD  + 1 

OCT 

10015 

RESTARTED  AMD  A JOB  W I TH  THE  PREVIOUSLY 

AO  1 5 1 

AD+2 

STORED  PRIORITY  WOLILD  BE  BEGUM  AT  AD+2 

A 01 52 

BY  MEANS  OF  GROUP  5 

SKIPPER  .087 
NO.  4 
, POSITIVE  A 


R 0 1 5 6 

type 

A 

T L 0 

OOP 

PPP 

PPP 

GGG 

P 0157 

TYPE 

B 

TL1 

CAP 

PPP 

PPP 

GGG 

R 0 1 5 6 

TYPE 

C 

TL0 

1 AO 

XXX 

CJW 

GGG 
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P 0159 

2 PHSCHNG 

IS  US 

ED  WHEN 

ONE  WISHES  TO  ’ 

ST 

ART  UP  A GROUP  OR 

CHANGE  A GROUP  WHILE  UNDER  THE  CONTPOL  OF  A DIFFERENT 

R 0161 

GROUP.  FO 

r f:xa 

MPLE,  CHAN 

;ge  THE  PHASE 

D 

F GROUP  3 

WHILE  THE  PORTION  OF  THE 

PROGRAM  IS  UNDER  GROUP  5.  ALL  2 PHSCHNG 

R 0163 

CALLS  ARE 

MADE 

IN  THE 

FOLLOWING  MANNER 

* 

A 01  64 

TC 

2PHSCHMG 

A0165 

OCT 

XXXXX 

A 0 1 6 6 

OCT 

YYYYY 

R 0167 

WHERE  OCT 

xxxxx  must 

BE 

OF  TYPE  A AND 

i.CT  YYYYY 

MAY  BE  OF  EITHER  TYPE  A 

OR  TYPE  B OR  TYPEC.  there  is  one 

R 0169 

DIFFERENCE  

NOTE- 

IF 

LONGBASE  IS  ' 

T3 

BF  SET  THIS  INFORMATION  IS  GIVEN 

IN  THF  OCT  YYYYY  INFORMATION,  IT  WILL 

ROl'7] 

BF 

DISREGARDED 

IF  GIVEN 

WITH 

THE  OCT 

X 

XXXX  INFORMAT  TON. 

A COUPLE  OF  EXAMPLES  FAY  HELP, 

A0173 

AD 

TC 

2PHSCHNG 

SET  TBASE3  AND  IF  A RESTART  OCCURS  START 

A0174 

AD+1 

OCT 

40083 

THE  TWO  ENTRIES  IN  3.8  TABLE  LOCATION 

AO] 

AD  + 2 

OCT 

05025 

THIS  IS  OF  TYPE  C,  SET  THE  JOB  TC  BE 

AO]  7 1 

ADT3 

OCT 

18000 

T0  BE  LOCATION  AD +4 , WITH  A PRIORITY  13, 

A 0177 

AD +4 

FUr  GROUP  5 PHASE  INFORMATION 

0178 

REF- 

1 

COUNT* 

$$/PHASE 

0179 

5327 

0 COO* 

0 

2 PHSCHNG 

IF  HI  NT 

THE  ENTRY  FOR  A DOUBLE  PHASE  CHANGE 

0180 

REF 

330 

LAST. 

1294 

5330 

50  C 02 

Q 

NDX 

3 

018] 

33  31 

3 0000 

1 

CA 

0 

018? 

IFF 

331 

1.  AST 

1298 

5 33  2 

24  002 

0 

IN  CP 

0 

018  3 

REF 

1 

533  3 

54  072 

0 

TS 

TEMPP2 

0184 

REF 

1 

5334 

7 4757 

1 

MASK 

QCT7 

018  5 

53  35 

6 GOOD 

1 

DOUBLE 

0186 

REF 

1 

5 33  6 

5*  071 

0 

TS 

TEMPG2 

018? 

rFF 

2 

LAST 

1 ? ° 9 

53  37 

3 r n7  2 

CA 

j p m P P 2 

0188 

REF 

1 

5340 

7 5030 

0 

MASK 

0CT17770 

NEED  ONLY  1770,  BUT  WHY  GET  A NEW  CONST. 

0189 

5341 

0 0006 

1 

EXTEND 

0190 

REF 

33 

LAS! 

1285 

634  2 

7 *740 

1 

MF 

B I T 1 2 

0191 

RFF 

3 

LAST 

129  3 

53*3 

5b  072 

1 

XCH 

TEMPP2 

019? 

REF 

41 

LAST 

1285 

5344 

7 473  5 

0 

MASK 

B !T  1 5 

0193 

RFF 

1 

5345 

54  066 

0 

TS 

TEMPSW2 

INDICATES  WHETHER  TO  SET  TBASE  OP  MOT 

01932 

REF 

3 32 

LAST 

129  8 

5346 

50  002 

0 

INDEX 

Q 

01834 

5 3*  7 

3 0000 

1 

CA 

0 

01936 

REF 

333 

LAST 

1 ? 

5350 

24  f 02 

0 

I NCR 

Q 

01  93  8 

REF 

1 

5351 

54  065 

0 

TS 

TEMPSW 

0194 

PEF 

1 

c3  5 2 

l 5363 

0 

TCF 

PHAS JUMP 

019  5 

535  3 

0 0 004 

0 

PHASCHNG 

INHINT 

NORMAL  PHASCHNG  ENTRY  POINT. 

0196 

REF 

3 34 

L AST 

1298 

5354 

50  C 02 

0 

INDEX 

Q 

0197 

5355 

3 COOO 

1 

CA 

0 

0198 

REF 

335 

LAST 

1298 

5356 

24  00  2 

0 

I NCR 

0 

0199 

5357 

0 0004 

0 

PHSCHNGA 

INHINT 

FIRST  OCTAL  PARAMETER  IN  A. 

GAP:  ASSEMBLE  REVISION  O'"  1 OF  AGC  PROGRAM  API  1R0PE  BY  EYl.ES 


L PHASE  tABle  MAINTENANCE 


0200 
020  1 
020  U 
0202 
0203 

020A 


REF 

REF 

REF 

2 

128 

2 

LAST 
LA  r 7 
LAST 

1298 

1263 

129b 

5360 
536  1 
5362 

54  065 

3 4753 
54  0 66 

0 

1 

0 

‘ 36  3 

0 0006 

1 PH AS JUMP 

F EF 

1 

5 36  4 

3 5367 

0 

5365 

5?  0 C6 

0 

TS  TEMPSW 

CA  ONE 

TS  TEMPSW2 

EXTEND 

DC A ADR  PCHN2 

DTC8 


0205  REF  47 

0206  REF  1 

020b  REF  1 


LAST  1286  E3.1400 

3366 
5 36  7 


oZZU  1 ADRPCHN2 
20 103  1 


EBANK=  L ST  1 
2CADF  PHSGHNG2 


0207  REF  1 5370 

0208  REF  41  LAST  12«4  5371 

0209  REF  2 LAST  1299  0372 

021'  PEF  1 ‘?73 

0211  E F 3P7  LAST  12°  1 537^ 

0212  REF  1 5375 


22  073 

0 

ONECRTWl-  LX  CH 

TEMPRBCN 

22  C 06 

1 

LXCH 

BBANK 

22  G 73 

0 

LXCH 

TEKPBBCN 

7 5024 

0 

MASK 

OCT  14000 

1C  000 

0 

CCS 

A 

1 7750 

0 

TCF 

CHECKS 

0213 

REF 

l 

. 37  6 

3 0062 

0 

0214 

PEE 

6? 

LAST 

128  5 

5377 

7 4 7 m 

1 

0215 

REF 

388 

LAST 

1?9  V 

5400 

10  000 

0 

0216 

n E E 

1 

5401 

1 R 4 2 3 

0 

CA  TEMPP 

MASK  B1T7 

CCS  A 

TCF  GETP'  f O 


021 7 REF  1 

0218  REF  1 

0213?  f FF  1 


5402 

50 

061 

0 

OLDPRIO  NDX 

TEMPG 

540  3 

3 

1052 

1 

CA 

PHSP--DT  1 

5404 

54 

070 

1 

TS 

TEMPPR 

02  20  REF  7 LAS"”  1299  V'f 

0221  P EF  33  LAST  1285  340': 

0222  REF  389  LAST  l?o9  5407 

0223  REF  1 54  10. 

02  2 4 • er  336  LAST  1298  5411 

0225  RFF  1 5412 

022fa  REF  1 5413 

0227  541  a. 

0228  REF  24  LAST  112?  5415 

0229  REF  1 5416 

0230  REF  1 *-417 

0231  REF  3 LAST  1259  5420 

0232  5421 

0233  REF  1 6 42? 

0234  f EF  337  > ACT  129?  *423 

0235  5424 

0236  RFF  338  LAST  1299  5425 


3 006? 

0 

CONI 

CA 

TEMPP 

7 4744 

0 

MASK 

BIT8 

10  000 

0 

CCS 

A 

1 5427 

1 

TCF 

GETNEWNM 

3 00  02 

0 

CA 

0 

54  063 

0 

TS 

TE-MPNM 

3 0006 

1 

CA 

BB 

0 0006 

1 

EXTEND 

04  007 

1 

ROR 

SURE  R BN  K 

5 4 064 

1 

TS 

TEMPBB 

3 5422 

0 

TO CON 2 

CA 

C0N2ADR 

22  073 

0 

LXCH 

TEMPBRCN 

52  006 

0 

DTCB 

02312 

0 

COM2  ADR 

GENA  DR 

CON  2 

50  0 02 

0 

GET PR 10 

NDX 

0 

3 0000 

1 

CA 

0 

24  002 

0 

INCP 

Q 

3: 15  DEC.  2 , 1P70  SKIPPER 
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.087  PAGE  1299 
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OFF  TO  SWITCHED  BANK 


SEE  WHAT  KIND  OF  PHASE  CHANGE  IT  IS 
IT  ts  OF  TYPE  : B : 

SHALL  WE  USE  the  OLD  PRIORITY 
NO  G FT  A NEW  PPIOPITY  (OP  DELTA  T) 

USE  THF  OLD  PRIORITY  (OR  DELTA  T) 

8EE  IF  A RAD*  IF  GIVEN 


PICK  UP  USERS  SUPERBANK 


BACK  TO  SWITCHED  BANK 


DON : T CARE  IF  DIRECT  OF  INDIRECT 
LEAVE  THAT  DECISION  TO  RESTARTS 
OBTAIN  RETURN  ADDRESS 


AP:  ASSEMBLE  REVISION  CO  1 QF  A GC  PROGRAM  AP11ROPE  BY  FYlES 


PHASF  'ABLE  MAINTENANCE 


0237 

REF 

1 

5426 

1 

5404 

0 

TCF 

CONI  -1 

0236 

542  7 

0 

COO  6 

1 

GET  N EWM5 

EXTEND 

023  0 

' EF 

3 3« 

LAST 

129° 

5430 

5 

00  0 2 

0 

INDEX 

Q 

02  AO 

5431 

3 

C001 

0 

DC  A 

0 

0241 

REF 

2 

LAST 

1209 

5437 

52 

064 

1 

DXCW 

TEMPNM 

0242 

REF 

73 

LAST 

1131 

5433 

3 

4752 

0 

CA 

TWO 

0243 

REF 

34  0 

LAST 

1300 

5434 

26 

002 

1 

ADS 

Q 

0244 

- FF 

1 

5435 

1 

5417 

1 

TCF 

T0C0N2 

PFF 

2 

LAST 

503 

5024 

OCT 1 4000 

EQUAL  S 

P R 1 0 1 4 

0246 

REF 

40 

LAST 

1261 

C06  1 

TEMPG 

EQUALS 

I TEMP  1 

0247 

REF 

20 

LAST 

1261 

C 06  2 

TEMPP 

EQUALS 

ITEMP2 

0246 

REF 

2 6 

LAST 

903 

006  3 

TEMP  NM 

EQUALS 

ITEMP3 

0240 

REF 

12 

LAST 

903 

CQ6  A 

TEMP 8 8 

EQUALS 

l TEKP4 

0250 

REF 

50 

LAST 

907 

006  5 

TEMPSW 

EQUALS 

I TEMPS 

02F  1 

s EF 

7 

1.  AST 

■ 90  5 

004  6 

T E M P S W 2 

EQUALS 

T T EM  P6 

0252 

REF 

46 

LAST 

1294 

C07  0 

TEMPPP 

EQUALS 

PUPTREG1 

0253 

REF 

9 

LAST 

817 

007  1 

TEMPG2 

EQUALS 

RUPTREG2 

0254 

KEF 

12 

LAST 

1000 

007  2 

TEMFP2 

EQUALS 

RU?Tr<EG3 

0255 

9 E F 

5 

LAST 

1000 

007  3 

TEMPBBCN 

EQUALS 

fUJPTft EG4 

0256 

REF 

42 

L A c T 

1 2 9 c 

0006 

BB 

EQUALS 

8 BANK 

0257 
025  8 
0259 

REF 

7 

LAST 

12r,4 

14,3774 

1 0,2000 
10,2224 

BANK 
SET!  OC 
BANK 

14 

PHASE! A3 

026  0 

REF 

1 

E 3 , 1436 

EB ANK= 

PHSNAME1 

0261 

REF 

2 

LAST  1294  TO  1298: 

9 

9 4 

COUNT  4 

t$/ PHASE 

0262 

REF 

• *♦ 

LAST 

1299 

10,2224 

22  073 

0 

PHSCHNG2  LXCH 

TEMPBBCN 

0263 

REF 

3 

LAST 

12  99 

10,2225 

3 0065 

1 

CA 

TEMPSW 

0264 

REF 

2 

I.  AST 

1298 

10,2726 

7 4757 

1 

M A S K 

OCT  7 

026  5 

10,2227 

6 CCQO 

1 

DOUBLE 

0266 

REF 

2 

LAST 

1299 

10,2230 

54  061 

1 

TS 

TEMPG 

0267 

REF 

4 

LAST 

1 300 

10, 2231 

3 0065 

1 

CA 

TEMPSW 

0263 

P EF 

2 

LAST 

1 2 9 8 

10, 22 32 

1 5030 

0 

MASK 

OCT 17770 

026  9 

1 0,2233 

0 0006 

1 

extend 

0270 

REF 

34 

LAST 

1298 

10,2234 

7 4740 

1 

MP 

8TT 1 2 

0271 

REF 

3 

LAST 

1299 

10, 2235 

54  0 62 

1 

TS 

TEMPP 

0272 

REF 

5 

LAST 

1300 

10,2236 

3 0065 

1 

CA 

TEMPSW 

0273 

P EF 

1 

10,2237 

7 1 0 1 

1 

MASK 

0CT60000 

0274 

REF 

6 

L AST 

1 3 00 

1 0,2240 

56  065 

1 

XCH 

TEMPSW 

02  75 

REF 

2 

L AST 

12  99 

10,224  1 

7 5 024 

0 

MASK 

ncT 1 4000 

0276 

REF  : 

390 

LAST 

1 2 

10,2242 

10  000 

0 

CCS 

A 
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GAP:  ASSEMBLE  REVISION  >01  Qf  AGO  PFOGKAM  API  1K0PE  BY  EYLeS 


L PHASE  TABLE  MAINTENANCE 


0277 

REF 

1 

10,2243 

1 53  70 

1 

TCF 

0278 

1 ACT 

1 jL  n A 

1/y  9 9 A A 

o A A A 9 

A 

f A 

REF 

4 

L A j 1 

1 y c £.'  *7 

U 

A 

0279 

REF 

3 

LAST 

1300 

1 0 » 2 2 4 r 

50  061 

0 

NDX 

0280 

REF 

2 

1 AST 

217 

10, 2246 

54  751 

0 

TS 

0231 

REF 

3 

LAST 

1299 

10,2247 

10  C66 

0 

BEL  0W1 

CCS 

0282 

REF 

l 

10,2250 

1 22  64 

1 

TCF 

028  3 

10,225  1 

1 2252 

1 

TCF 

023  ■ - 

REF 

4 

LAST 

129  8 

10,2252 

4 0072 

0 

CS 

fl  O 0 r. 

PCL 

s 

1 fl  < r 

2?  0*  2 

1 

L XCH 

V C.  o J 

■ c r 

9 

U M Z'  r 

i D l ‘ 1 

1 • f c < D 

028  6 

REF 

2 

LAST 

1298 

10,2254 

50  071 

1 

NDX 

0287 

REF 

6 

LAST 

865 

10,2255 

5 2 751 

0 

DXCH 

0283 

REF 

4 

LAST 

1391 

10,2256 

10  0 6 6 

0 

CCS 

0289 

10,2257 

12  2 60 

0 

NOOP 

0 90  0 

l p p 

9 

1 ft  C ft 

1 9 M 1 

i n a 9 9 4 O 

1 9 9 A L 

1 

Tr  f 

\J  C 7'  ' 

wcr 

C- 

1 JU  l 

1 U f cL  cDU 

L C.  C.  04 

1 

1 V.  I 

0291 

REF 

17 

LAST 

996 

10,2261 

4 0025 

1 

CS 

0292 

REF 

3 

LAST 

1 30  1 

1 1 ■> , 2 2 6 2 

5C  071 

1 

NDX 

02°3 

REF 

2 

LAST 

736 

10, 2263 

55*051 

0 

TS 

029'': 

REF 

7 

LAST 

I 300 

1 ,2264 

10  065 

0 

BE!  0W2 

CCS 

0295 

REF 

1 

10,2265 

1 2 300 

1 

TCF 

0296 

PEF 

1 

10,2266 

1 2303 

1 

TCF 

0297 

REF 

1 8 

LAST 

1 3 0 1 

10,2267 

4 C 02  5 

1 

Cc 

0298 

REF 

4 

LAST 

1301 

10,2270 

50  C61 

0 

NDX 

0299 

REF 

3 

LAST 

13  , i 

] 9 , 7?*  1 

p t:  t 0 s 1 

Q 

T c 

■7  - V'  J 1 

0300 

REF 

a 

LAST 

1301 

10,2272 

3 0065 

1 

CA 

0301 

REF 

l 

10,227  3 

6 2276 

0 

AD 

0302 

REF 

391 

LAST 

1300 

10,2274 

ic  ooo 

0 

CCS 

036  3 

10 , 227- 

12  276 

1 

NODP 

0306 

10,2276 

17777 

0 

BIT14CPM 

OCT 

0305 

REF 

2 

LAST 

1301 

1C, 2277 

1 2303 

1 

TCF 

0306 

10,2300 

0 CG06 

1 

BELL W3 

EXTEND 

0 3 - 

REF 

31 

LAST 

12  24 

10,2301 

3 ( 026 

0 

OCA 

0308 

REF 

1 

10,2302 

53  • 152 

1 

DXCH 

0309 

P EF 

5 

LAST 

1301 

10,2303 

4 0062 

1 

BEL0W4 

CS 

0310 

REF 

5 

LAST 

1 301 

10,2304 

50  061 

0 

NDX 

0311 

REF 

7 

LAST 

1301 

10,2305 

54  750 

1 

TS 

0312 

REF 

341 

LAST 

1300 

10,2306 

3 0002 

0 

CA 

0313 

REF 

5 

LAST 

1300 

10,2307 

22  073 

0 

LXCH 

03  1 6 

10,2310 

0 0003 

1 

REL INT 

0315 

10,2311 

52  006 

0 

DTCB 

QNEORTWO 

TEMPP 
TEMPO 
PHASE1  -2 

TEMPSW2 
BELOW 2 

+ 1 

TEMPP2 
TEMP? 2 
TEMPG2 
-PHASE1  -2 

TEMPSW2 

REL0W2 

TIME1 
TEMPG2 
T BAS  El  -2 

TEMPS  -J 
BE LOW 3 

BEL0W4 

T I M F 1 

TEMPO 
TBASET  -2 

TEMPSW 

BIT14CCM 

A 

17777 

BEL0W4 


TIME  2 
LONGS AS  F 

TEMPP 

TEMPO 

- PH AS  E l -2 

Q 

TEMPBBCN 
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START  STORING  THE  PHASE  INFORMATION 

IS  IT  A PHASCHNG  OR  A 2 PH  SCHf  G 
I T : S A PHASCHNG 

I T : S A 2PHSCHMG 


CAM:!  GFT  HF  E 


SEE  IF  WE  SHOULD  SET  TBASE  OR  LQLGBASE 
SET  LCNGBASE  ONLY 
SET  NEITHER 

SET  TBASE  TO  BEGIN  WITH 


SHALL  WE  NOW  SET  LONG BASE 


*****  C AN"1  GET  HERF  ***** 
*****  CANT  GET  HERE  ***** 
NO  WE  NEED  ONLY  SET  TBASE 

SET  LONGBASE 


AND  STORE  THE  FINAL  PART  OF  THE  PHASE 


ROYAL  f BUSINESS  FORMS  INCORPORATED 


* 


GAP:  ASS  EMBL  E REVISION  001  Of  AGC  PROGRAM  API LRUPE  BY  EYLES 


• 

L 

PHASE 

TAB 

LI  maintenance 

0316 

REF 

6 

LAST 

1301 

10,2312 

22  073 

0 CPN2 

LXCH 

* 

0317 

REF 

6 

LAST 

1301 

1 9 ,23 1 3 

3 0062 

0 

CA 

0318 

REF 

6 

LAST 

1301 

1 0 ,231 4 

50  061 

0 

. N0X 

ft 

031Q 

REF 

3 

LAST 

13  01 

10,2315 

54  751 

0 

TS 

0320 

REF 

2 

LAST 

1299 

10,2316 

3 0070 

0 

CA 

• 

0321 

REF 

7 

LAST 

1302 

10,2317 

50  061 

0 

NDX 

0322 

REF 

2 

LAST 

1299 

10,2320 

55 ' 052 

0 

TS 

• 

0323 

10 , 232  1 

0 0006 

1 

EXTEND 

032  A- 

REF 

3 

LAST 

1300 

10,2322 

3 0064 

0 

DC  A 

o 

0325 

REF 

8 

LAST 

1302 

10,2323 

50  061 

0 

NDX 

1 ft 

0326 

REF 

2 

L AST 

1300 

10,2324 

5 3 ' 4 3 5 

0 

DXCH 

* 

0327 

REF 

1 

10,2325 

1 2247 

0 

TCP 

032  3 

7750 

BLOCK 

5 

2 

0329 

REF 

1 

LAST 

750 

6000 

SFTLOC 

| ft 

0330 

7750 

BANK 

0331 
033  2 

P.EF 

REF 

1 

35 

LAST 

1 300 

7750 

7 

4740 

1 CHECKB 

count* 

MASK 

0333 

REF  3<R? 

LAST 

i i'U 

775  1 

1 

0 OOP 

0 

CCS 

0334 

RFF 

2 

L AST 

1299 

7752 

1 

5423 

0 

TCF 

0335 

REF 

1 

7753 

1 

5402 

0 

TCF 

* 

* 

ft 


ft 


ft 


TEMPRBCN 

TEMPP 

TEMPT, 

PHASE  1 -2 

TEMPPR 

TEMPG 

PHSPRDT1  -2 


TEMP  MM 
TEMPG 

PHSNAME1  -2 

BEL0W1 

03 

FFTAG6 


$ S/PHASE 
B I T 1 2 
A 

GETPP  10 
OLOPRIO 


3: 15  DEC 


087  PAGE  1302 


,1970 

SKIPPER 

.087  PAGE  1302 

S PAGE 

NO.  9 

E 3 S4 

S INCE 

THI 

S IS 

OF 

TYPF 

8,  THIS  B I 

T 

SHOULD 

BE 

HFF  E 

IF  WE 

AR 

E TO 

GET  A NEW 

PP 

IORITY 

IT 

IS, 

SO 

GET 

NEW 

PRIORITY 

IT 

ISN 

:T  , 

USE 

THE 

OLD 

PRIORITY 

G AP  : 


0001 

0002 

000  3 

0004 

000* 

0006 

0007 

0008 

0000 

0010 

001  1 
0012 

0013 

0014 

0015 

0016 

001  7 
00  IP 

0019 

0020 
0021 
00  7 2 
0023 

0023 

0024 

0025 

002  6 
0027 

002  c 

002  9 
0030 

003  1 

0032 

0033 

0034 

0035 
003  6 

0037 


ASSEMBLE  REVISION  00 1 OF  AGC  PROGRAM  AP11RQPE  BY  EYlES 
RESTART?  ROUTINE 


01,3526  BANK  01 

REF  2 LAST  23«  01,2000  SETLOC  RESTART 

01,3526  BANK 


PEF  3 LAST  1302  £3,1436 


E B ANK  = PHSNAMF1 


REF  1 

REF  771  LAST  12fe7 
REF  1 


01 , 3526 
Cl  ,352  7 
01 , 3530 


COUNT*  $$/ R SROU 

3 Cl  61  1 RESTARTS  CA  MPAC 

6 0000  1 DOUBLE 

V 155  1 IS  TEMP2G 


RFF  1 01,3531  3 

REF  1 01,3532  54 

REF  1 01,3533  3 

RFF  1 01,3534  54 


3770 

1 

CA 

PHS2C ADR 

157 

0 

TS 

TEMPSWCH 

3565 

1 

CA 

RTANCADF 

7C7 

0 

TS 

GCLCC  +2 

RFF 

REF 

REF 

RFF 

1 

10 

393 

i 

LAST 

LAST 

1286 

1302 

01,353* 

01.3536 

01 .3537 
n 1 . iKi 0 

3 

7 

10 

1 

01  54 
5007 
000 
3551 

1 

1 

0 

1 

y L » j \ 

L 

I 

REF 

2 

1 AST 

1303 

0 1 , 36 4 1 

10 

154 

0 

REF 

304. 

LAST 

130  3 

01 , 35^2 

10 

000 

0 

REF 

1 

01,3543 

1 

3651 

1 

REF 

3 

LAST 

1300 

01,3544 

3 

5024 

1 

REF 

42 

LAST 

120  9 

01,3545 

0 

510  5 

0 

REF 

48 

LAST 

1 2 c c- 

E3 , 1400 

oFF 

1 

n i . it  i i- 

'J 

REF 

1 

01,3547 

20103 

1 

RFF 

2 

LAST 

1 303 

01,3550 

0 

3 56)5 

1 

RFF 

1 1 

L AST 

1303 

C 1,355  1 

7 

5007 

1 

REF 

395 

LAST 

1393 

01 , 3552 

10 

000 

0 

REF 

I 

01,3553 

1 

3622 

0 

01,3554 

0 

C 006 

1 

RbF 

2 

LAST 

1303 

01 , 3555 

5 

015  5 

0 

PEF 

4 

LAST 

130  3 

01 , 355  6 

3 

1437 

0 

REF 

2 

LAST 

1303 

01 , 3557 

52 

7 06 

1 

REF 

3 

LAST 

1303 

01 , 3560 

3 

0154 

1 

REF 

3 

LAST 

1300 

01,3561 

7 

4757 

1 

PEF 

3 

LAST 

115  5 

01 , 3562 

6 

7746 

0 

REF 

396 

LAST 

1 303 

01 ,3563 

10 

000 

0 

PEF 

1 

01 , 3564 

1 

373'- 

0 

REF 

7 

LAST 

1267 

Cl  ,3565 

0 

46  3 1 

1 

CA 

TEMPPHS 

MASK 

OCT  1400 

CCS 

A 

TCF 

I TSAVAF. 

GFTPART2  CCS 

TEMPPHS 

CCP 

A 

TCF 

I TSATBL 

CA 

PRI014 

TC 

F INC VAC 

E B A N K = 

1 ST  1 

2C  ADP 

INITDSP 

TC 

RTRNCADF. 

I T S A V A c 

MASK 

0CT1400 

CCS 

A 

TCF 

ITSLIKEB 

EXTEND 

NOX 

TEMP2G 

DC  A 

phsnamei 

OXCH 

GOLOC 

CA 

TEMPPHS 

MASK 

0CT7 

AD 

MINUS 2 

CCS 

A 

TCF 

TTStNGCl. 

RTRNCADR 

TC 

S TRETURN 
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GOPROG  MUST  SWITCH  TD  THIS  EBANK 


GET  GROUP  NUMBER  -1 
SAVE  FOR  INDEXING 


SET  UP  EXIT  IN  CASE  It  is  AN  EVEN 
TABLE  PHASE 


TO  SAVE  TIME  ASSUME  IT  WILL  GET  NEXT 
GROUP  AFT  THIS 


IS  IT  A VARIABLE  OP  TABLE  RESTART 
IT; S A VARIABLE  RESTART 

I S IT  AN  X.l  n EST ART 

NO,  ITS  A TABLE  RESTART 

IT  IS  AN  X.l  RESTAFT,  THEREFORE  START 
THE  DISPLAY  r EST  APT  JOB 


FINISHED  WITH  THIS  GF.OUP,  GET  NEXT  ONE 
IS  IT  TYPE  B ? 

YES, IT  IS  TYPE  B 

STORE  THE  JOB  (OR  TASK)  2CADI  FOR  EXIT 

SEE  IF  THIS  IS  A JOB,  TASK , OR  A LONGCAL 

ITS  A LONGCAL  L 


CANT  GET  HEPF 


SAP:  ASSEMBLE  REVISION  Ot'l  IF  AGC  PROGRAM  API  1ROPC  BY  PYLES 


L RESTARTS  BUTTLE 


003  8 

REE 

1 

01,3566  1 3570  1 

TCF 

ITS A WAIT 

0039  REF  1 01.3567  1 3635  0 TCP  ITSAJQB 


004  0 

R F F 

1 

01 , 357° 

3 37  74 

0 

ITS A WATT 

CA 

WTITCADP 

00  A 1 

REF 

3 

LAST 

1 30  3 

■t  1 , 3 5 7 1 

54  704 

0 

T S 

GOLOC  —1 

0042 

REF 

3 

LAST 

1 303 

01 ,3572 

50  155 

0 

NDX 

TEMP2G 

0043 

REF 

3 

LAST 

1 30  2 

01,3573 

3 10  54 

1 

CA 

PHSPi  DTI 

0044. 

REF 

397 

1 AST 

1303 

0 1 ,3574 

10  000 

0 

T IMFTEST 

CCS 

A 

0045 

REF 

398 

LAST 

1304 

01,3575 

24  000 

1 

I NCR 

A 

0046 

REF 

1 

0 1 , 3576 

1 3 6 01 

TCF 

F I W 0 T T M F 

0047 

REF 

1 

01 ,3577 

1 5436 

1 

TCF 

ITSINDIR 

0048 

REF 

1 

OL, 3600 

1 3620 

1 

TCF 

I MED  I ATE 

p 004° 

*****  tut  ^ Miter  ttP  tm  P f vcn  r 

t vp  n * * * * * 

0050 

5436 

BLOCK 

02 

0051 

REF 

1 

SELL DC 

p p t a a? 

.7*  V W 

00°  2 

5436 

BANK 

0053 

REF 

1 

COUNT* 

S / S inu 

0054 

REF 

4 

LAST 

1304 

5436 

22  706 

0 

ITSINDIR 

LXCH 

GOLOC  +1 

0055 

REF 

2 

LAST 

1299 

5437 

22  006 

1 

LXCH 

BB 

005 1 

REF 

399 

1 AST 

1304 

5440 

50  COO 

1 

NDX 

A 

0057 

3441 

3 0001 

0 

CA 

1 

0058 

REF 

3 

LAST 

1304 

5442 

22  006 

1 

LXCH 

BB 

005° 

REF 

5 

LAST 

1304 

5 44  3 

22  706 

0 

LXCH 

GOLOC  +1 

0060 

REF 

2 

LAST 

13  04 

5 4 44 

1 3601 

1 

TCF 

F INDTTME 

R0061 

4**  **  YOU 

HAY 

RETURN 

! TO  SWITCHED  FIXED 

***** 

006  2 

01 , 360 1 

BANK 

01 

0063 

REF 

3 

LAST 

1303 

01,2(00 

SE  l LOC 

RESTART 

0064 

01, 3601 

BANK 

0065 

P.EF 

2 L 

AST  1303  TO 

1304; 

43  43  * 

COUNT* 

i $/f  sp  ''i' 

0066 

0 1, 3601 

4 COOO 

0 

FINDTIME 

COM 

0067 

REF 

228 

LAST 

1293 

01 , 3602 

54  001 

1 

TS 

L 

006  8 

REF 

4 

LAST 

1 30^ 

01 , 3603 

50  I 55 

0 

NDX 

TEMP 2 G 

006  9 

REF 

4 

LAST 

1301 

01, 36  04 

4 1053 

1 

CS 

TBASE1 

007  C 

01 , 36  0 5 

0 0006 

1 

EXTEND 

0071 

RFF 

19 

LAST 

1301 

01 , 3606 

60  02  5 

0 

SU 

T I ME  1 

0072 

REF 

400 

LAST 

1304 

01 , 3607 

10  000 

0 

CCS 

A 

0073 

01,3610 

4 COOO 

0 

COM 
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USER'S  PAGE  NO.  2 

ITS  A JOB 

SET  UP  WAIT!  ’ST  CALL 

DIRECTLY  STOFFD 

IS  IT  AM  IMMEDIATE  RESTART 

NO, 

FIND  OUT  WHEN  IT  SHOULD  BEGIN 

STORED  INDIRECTLY 

IT  WANTS  AN  IMMEDIATE  RESTART 


GET  THE  CORRECT  E BANK  IN  CASE 
SWITCHED  ERPASIBLE 

GET  THE  TIME  INDIRECTLY 

RESTORE  THE  PB  AND  GOLOC 

FIND  CUT  WHEN  IT  SHOULD  BEGIN 


MAKE  NEGITIVE  SINCE  IT  WILL  BE 
AND  SAVE 


E3  S4 


THIS  IS 


SUBTRACTD 


GAP:  ASSEMBLE  REVISION  0Q1  OF  AGC  PROGRAM  API 1ROPE  BY  EYLEE 


L ! t 5 ' A • TS  •■;nUTUT 


0074 

REF 

2 

LAST 

159 

01,361  1 

6 7731 

0 

AD 

OCT  377  76 

007c 

REF 

129 

LAST 

12  9° 

01,3612 

6 4753 

1 

AD 

ONE 

0076 

REF 

229 

LAST 

1304 

01,3613 

6 0001 

0 

AD 

l 

007- 

REF 

401 

LAST 

1304 

0 1 , 3614 

10  000 

0 

CCS 

A 

007  f 

PEF 

229 

LAST 

1 28  5 

01,3 ft  1 5 

3 4755 

1 

CA 

ZERO 

007  C 

1 76  6 P 

1 

TC  F 

+ ? 

UU  1 ■ 

! i f ~ n j r 

I D CD  \J 

X. 

0080 

01 , 3617 

1 3620 

1 

TCF 

+ 1 

0081 

REF 

130 

LAST 

1305 

01 , 3620 

6 4753 

1 

I MED I AT  E AD 

ONE 

AAOO 

Ctre: 

A. 

1 ACT 

1 -i.U 

ni  0 a 0 1 

A A 7 A Ll. 

1 

T r 

cm  1 if  — 1 

''tr 

L Ao  1 

1 v H. 

Ol  t DO  A 1 

1 

1 1. . 

OOP*  3 

RFF 

3 

LAST 

1303 

01,3622 

3 3565 

1 

ITSLTKEB  CA 

1 TKNCADF 

00  8 * 

REF 

2 

LAST 

1 343 

01, 36  2 3 

59  157 

0 

TS 

TEMPSWCH 

008  c 

REF 

1 

01,3624 

3 3771 

0 

CA 

PRT2CADR 

00  8( 

REF 

7 

LAST 

1305 

01 , 3625 

54  707 

0 

TS 

GOLOC  +2 

0087 

REF 

4 

L AST 

1303 

Cl, 3626 

3 0154 

1 

CA 

TEMPPHS 

0088 

REF 

1 

01,3627 

7 6 C 7 4 

0 

MASK 

1 1 r.T  1 7 7 

nose 

opr 

(s 

LAST 

1 -3  •>  K 

(ii  . -a  f.  r 1 

54  154 

r 1 

T P 

"CMP  (.1  U C 

UUQ  . 

l t “ O D 

u 

1 O 

0090 

01 , 36  31 

0 0006 

1 

EXTEND 

0C9  1 

REF 

5 

LAST 

1304 

01 , 3632 

5 0155 

0 

NDX 

TEMP2G 

0092 

REF 

5 

LAST 

130  3 

; 1. , 36  33 

3 143  7 

0 

DC  A 

PHSNAME1 

009  3 

REF 

a 

LAST 

U.0C 

01 ,36  34 

5 2 706 

1 

DXCH 

GOLOC 

0094 

REF 

6 

LAST 

1305 

01 , 3635 

50  155 

0 

ITSAJ08  NDX 

TEMP2G 

0095 

PEF 

4 

LAST 

1304 

01 , 3636 

3 10  54 

1 

CA 

PHSPRDT1 

0096 

REF 

9 

LAST 

130  5 

01,3637 

54  704 

0 

CHKNf VAC  TS 

GOLOC  -1 

0097 

01,366n 

C 0006 

l 

EXTEND 

00  98 

PEF 

1 

0 1,3  1 

6 366  5 

0 

BZMF 

ITSNOVAC 

009^ 

PFF 

1 

01, 3642 

3 3773 

1 

CAF 

FVACCADF 

OlOn 

REF 

10 

LAST 

1305 

01 , 3643 

56  704 

1 

XCH 

GOLOC  -1 

0101 

REF 

11 

LAST 

1 305  ... 

1 , 

0 0704 

1 

TC 

GOLOC  -1 

0192 

REF 

1 

0 1 , 366  a 

3 3775 

1 

• r ' f • VAC  CAE 

NOV AC A DR 

0103 

PFF 

12 

LAST 

1 305 

01 j 364 6 

56  704 

1 

XCH 

GOLOC  -l 

0104 

01 ,3647 

4 0000 

0 

COM 

0105 

REF 

13 

LAST 

130  5 

01, 3650 

0 0704 

1 

TC 

GCLOC  -1 

0106 

REF 

45 

LAST 

1 29C 

' 1 , 365  1 

54  02  0 

1 

ITSATBL  TS 

CYR 

0107 

PEF 

46 

LAST 

130  5 

01,3652 

10  020 

1 

CCS 

CYR 

010R 

01, 36*3 

1 36  54 

I 

TCF 

+ 1 

0109 

REF 

1 

01 ,3654 

1 3752 

0 

TCF 

ITSEVEN 

0110 

REF 

4 

LAST 

1 30  5 

01, 3655 

3 3565 

1 

CA 

RTRNCADB 

0111 

REF 

14 

LAST 

1305 

C 1 , 3b  5 6 

54  707 

c 

TS 

GOLOC  +2 

0112 

REF 

6 

LAST 

1 30  r 

01 ,3657 

3 0156 

1 

CA 

r (rwppHt 

0113 

REF 

25 

LAST 

129  3 

01, 3660 

54  021 

0 

TS 

SR 

0114 

REF 

26 

LAST 

1305 

01,3661 

6 00  21 

1 

AD 

SR 
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TYPE  B,  SO  STOP  E .RETUP  N IN 

TEMPSWCH  IN  CASE  OF  AN  EVEN  PHASE 

SET  UP  EXIT  TQ  GET  TABLE  PART  OF  THIS 
VARIABLE  TYPE  OF  PHAC  E 

MAKE  THE  PHASE  LOOK  RIGHT  FOR  THF  TABLE 
PART  PE  this  VARIABLE  PHASE 


OBTAIN  THE  JOB: 5 2CADP 


NOW  ADD  THE  PRIORITY  AND  L ET : S GO 

SAVE  Pf  10  UNTIL  WE  SEE  IF  ITS 
A FINDVAC  OR  A MO VAC 


POSHIVE,  SET  UP  FINDVAC  CALL. 

PICK  UP  PRIG, 

AND  GO 

NEGATIVE , 

SET  UP  NOV  AC  CALI  , 

CORRECT  PPIP, 

AND  GO 

FIND  OUT  IE  the  PHASE  IS  ODD  Or  EVEN 
F T : S EVEN 


IN  CASE  THIS  IS  THE  SECOND  PART  CF  A 
TYPE  B RFSTART,  WE  NEED  PROPER  EXIT 

SET  UP  POINTER  FOP  FINDING  OOP  PI  ACE  IN 
THE  RESTART  TABLES 


ROYAL  f BUSINESS  FORMS  INCORPORATED  nashua  new  hampshi. 


* 
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GAP: 

assemble  re 

VISION  001 

OF  A GC  PROGRAM  AP 

11R0PE  BY  EYLFS 

ft 

L 

RESTARTS 

o OUT  I ME 

0115 

REF 

7 

LAST 

1305 

01, 366  2 

50  155 

0 

NDX 

TEMP2G 

ft 

0116 

REF 

I 

01 , 3663 

6 2003 

0 

AD 

SIZETAB 

n i i 7 

CPF 

1 

n i . 7 a A 4 

54  156 

I 

TS 

POINTER 

U 1 1 • 

t-  c r 

i. 

ft 

0118 

01,3655 

0 0006 

1 

CUNT  BL2 

EXTEND 

m i c 

OFF 

0 

1 A c T 

1306 

ni . \ a 

E f 1 5 i 

o 

NDX 

POINT PR 

\J  L 1 

0120 

REF 

C 

1 

01 , 3667 

3 2002 

1 

DC  A 

C ADPTAB 

ft 

0121 

REF 

15 

LAST 

1305 

01 , 36 7C 

22  706 

0 

LXCH 

GGLCC  +1 

ft 

0122 

REF 

40? 

LAST 

1 30  5 

01,3671 

10  000 

0 

CCS 

A 

n l >>  7 

REF 

403 

LAST 

1306 

0 1 , 367? 

24  non 

I 

I NCR 

A 

* 

012A 

RFF 

l 

01 ,3673 

1 3746 

0 

TCF 

ITSAJPB2 

w 

0125 

R E F 

404 

LAST 

1306 

1 01,3674 

24  OCO 

1 

I NCR  , 

A 

ft 

0126 

REF 

16 

LAST 

1306 

01 , 3675 

54  705 

1 

TS 

GGLOC 

0127 

REF- 

2 

LAST 

1304 

01 , 3*76 

3 3774 

0 

CA 

WTLTCADF 

0128 

REF 

17 

LAST 

1306 

01 , 3677 

54  7 04 

0 

TS 

GOLOC  -1 

ft 

0129 

pet- 

18 

LAST 

1 306 

n i .77  n n 

n 

C A 

GGLOC  +1 

r\  i_  r 

D v iu  o 

0130 

REF 

38 

LA.  ' 

12  3 6 

01 , 37  C 1 

7 4742 

0 

MASK 

BIT10 

ft 

013  1 

RFF 

405 

LA  SI 

1306 

01 ,3702 

10  000 

0 

CCS 

A 

A013? 

A0133 

ft 

01 3 A 

REF 

1 

01 ,3703 

1 3741 

1 

TCF 

ITSWTLST 

0135 

RFF 

3 

LAST 

1306 

01,3704 

50  156 

0 

NDX 

PC INTER 

ft 

0136 

REF 

1 

01, 3705 

3 2000 

0 

CA 

PRDTTAB 

ft 

0137 

REF 

1 

Cl  ,370  6 

1 5445 

0 

TCF 

ITSLGCL 1 

R 0 1 3 8 

*** 

**  I HI 

S MUST  BE 

IN  F I XED  F 

I XED  ***** 

ft 

0139 

5445 

BLOCK 

02 

0160 

REF 

2 

1 AST 

1304 

4000 

S ETLOC 

F FT AG 2 

ft 

01 A 1 

5445 

BANK 

3" 

01A-2 

REF 

2 LAST  : 

1304  TO  1304: 

7 

7* 

COUNT* 

, E/I  si  QU 

0163 

REF 

19 

LAST 

1306 

544  5 

22  706 

0 

I TSLGCL1 

LXCH 

GOLOC  +1 

ft 

01 AA 

?EF 

4 

LAST 

1304 

5446 

22  006 

1 

LXCH 

BB 

0145 

P FF 

20 

LAST 

1306 

546  7 

2?  706 

0 

LXCH 

GOLOC  6] 

ft 

0146 

5450 

0 C 006 

1 

EXTEND 

2" 

0147 

REF 

A 06 

LAST 

1 306 

545  1 

5 0000 

1 

NDX 

A 

ft 

0148 

1 45  2 

3 0001 

0 

DC  A 

0 

0169 

RFF 

21 

LAST 

1306 

545  3 

22  706 

0 

LXCH 

GOLOC  +1 

0150 

REF 

5 

LAST 

1306 

5454 

22  006 

1 

LXCH 

BB 

ft 

0151 

REF 

22 

LAST 

1306 

5455 

22  706 

0 

LXCH 

GOLOC  +1 

1" 

ft 
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FI NO  OUT  WHA T : S IN  the  TABLE 

GET  THE  2CADP 

STOKE  THE  BB  INFORMATION 

IS  IT  A JOB  Of  IS  TIMED 

POSITIVE , MUST  BE  A JOB 

MUST  BE  EITHER  A WAITLIST  OR  LONGCALL 
LET-S  STORE  THE  C0PP.ECT  CADE 

SET  UP  OUc  EXIT  Tr  WAITLIST 


NC-W  FIND  OUT  IF  IT  IS  A WAITLIST  CALL 
THIS  SHOULD  BF  ONE  IF  WE  HAVE  -BB 
FOR  THAT  MATTER  c0  SHOULD  BE  BITS  9,8,7, 
6,5,  AND  LAST  BUT  NOT  LEAST  (PERHAPS  NOT 
IN  IMPORTANCE  ANYWAY.  BIT  A 
IT  IS  A WAITLIST  CALL 


STAIN  THE  ORIGINAL  DELTA  T 
ADDRESS  FOR  THIS  LONGCALL 

NOW  GO  GET  THE  D E l. T A TIME 


OBTAIN  THE  CORRECT  E BANK 
AND  PTESERVE  OUR  E AMD  F BARKS 
GET  THE  DELTA  TIME 

RESTORE  OUR  F AND  F BANK 
RESTORE  THE  TASKS  E AND  F BANKS 
AND  PRESERVE  OUR  L 


ft 
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l RESTARTS  ROUTINE 


015? 

REF 

1 

5456 

1 3707 

0 

TCF 

R0153 

***** 

YGU  MAY 

RETURN  TO  SWITCHED  FIXED 

5 

015* 

01,370? 

BANK 

7c: 

: A :• 

i ACT 

l ^ o /• 

n . ? n o o 

SET! OC 

' J i 

' r r 

*f 

1 . 1 

1 1 C X)  ' u 

0156 

01 ,3707 

BANK 

015  7 

REF 

3 

LAST  130'-;  T( 

130 ft : 

70  113  4 

COUNT* 

315? 

REF 

8 

LAST 

1132 

01, 

53*154 

1 

ITS!  SCI  2 

OXCH 

n i v/i  n 

A r n a f. 

1 

r.  v f c w a 

U 1 !>V 

VI,  I 1 

1 

L.  A 1 L v U 

0160 

REF 

32 

LAST 

1301 

0] , 3711 

4 0025 

1 

DCS 

0161 

REF 

9 

LAST 

1307 

01,3712 

21*154 

1 

DAS 

0162 

01,3713 

0 0006 

1 

EXTEND 

0163 

REF 

2 

LAST 

1301 

01,371 4 

3 1 1 52 

0 

DC  A 

OlfcY 

REF 

I ■ 

LAST 

1 3 07 

01, 3715 

21*1  34 

1 

DAS 

0165 

REF 

11 

LAST 

1307 

01 ,3716 

11*153 

0 

CCS 

0166 

REF 

I 

01,3717 

1 3727 

1 

TCF 

nt  i.7 

n 1 .7  7 ? A 

1 8 7 7 7 

1 

TCF 

J J.  ' 1 

V I f J i V: 

1 Die./.. 

1 

01  - • 

REF 

2 

LAST 

1304 

1 1 , 3 7 2 1 

1 3615 

1 

TC  F 

0169 

REF 

12 

LAST 

130  7 

'1,3722 

LI  * 154 

1 

CCS 

0170 

REF 

2 

LAST 

130  7 

01 , 3723 

1 3727 

1 

TCF 

0171 

01 ,3724 

13  725 

0 

NO  OP 

0172 

REF 

3 

LAST 

1307 

01,3725 

1 3615 

1 

TCF 

0173 

REF 

A 

LAST 

130  7 

01 , '726 

1 3620 

1 

TCF 

017  A 

REF 

1 

01, 3727 

3 3 7 72 

0 

IT NGCLCL 

CA 

0175 

RFF 

7 7 

! A ST 

1 ^ t 

t ■ i 3 7 *3  r, 

54  7 04 

A 

J “UO 

V 1 , f -J  ' 

u 

0176 

01 , 373  1 

0 C006 

1 

EXTEND 

0177 

REF 

13 

LAST 

130  7 

01 , 3732 

3 1154 

u 

DC  A 

0178 

REF 

24 

LAS" 

1307 

Cl , 3733 

0 0704 

l 

TC. 

0179 

REF 

3 

! AST 

1 306 

01 , 3734 

3 3 774 

0 

I TSLNGCL 

CA 

0180 

REF 

25 

LAST 

1307 

01 ,3735 

54  704 

0 

TS 

0181 

REF 

8 

LAST 

1306 

0 1,3736 

50  155 

0 

NDX 

018? 

REF 

5 

LAST 

130  5 

Cl, 3737 

4 1054 

0 

CS 

01 R 3 

REF 

2 

LAST 

13  nf 

01 ,3740 

1 5*  4 5 

0 

TCF 

018A 

REF 

26 

LAST 

130  7 

01,3741 

4 C706 

1 

I TSWTLST 

CS 

0185 

REF 

27 

LAST 

1 30  7 

01,3742 

54  706 

1 

TS 

0 1 8 ft 

R E F 

4 

LAST 

1306 

0 1 , 374 3 

5 0 156 

0 

NDX 

0187 

REF 

2 

LAST 

1306 

01, 37 44 

3 2000 

0 

CA 

0188 

REF 

1 

01,3745 

1 35  74 

0 

TCF 

ITSLGCL2 


01 

r F ST APT 


$$/P  ,.nOU 
LONGTIME 


TIME2 

LONGTIME 

* GNGBASE 
LONGTIME 

LONGT  T ME 
LONGCLC  L 

+ 2 

I MEDIATE 
i CNGT I VE 
LONGCLCl 

I MEDIATE 
I M E 0 I A T E 

LGCLCADP 
GDI CC  -1 


LONGTIME 
GOLOC  -1 

WTt  ft  A OP 
GOLOC  -1 

TEMP2G 

PHSPRDT1 

ITSLGCl  1 

GOLOC  +1 
GOLOC  +1 

POINftR 

PPDTTAB 

TIMETEST 
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USER ' S PAGE  NO.  ft  E3  SA 

NOW  L ET : S PROCESS  THIS  LONGCALL 


CAL  GUI  AT  F TIME  LEFT 


FIND  OUT  HOW  THIS  SHOULD  BE  RESTARTED 

3 

1 

C AN : T GET  HERE  ********* 

3 

WE  WILL  GO  TC  LONGCALL 

PREPARE  OUP  ENTRY  TO  LONGCALL 

ASSUME  IT  WILL  GO  TO  WAITLIST 

GET  THE  DELTA  T ADDRESS 
MOW  GET  THE  DELTA  TIME 
CORRECT  THE  BBCON  INFORMATION 

GET  THE  DT  AND  FIND  OUT  IF  IT  WAS  STORED 
DIRECTI  Y OR  INDIRECTI  Y 

FIND  OUT  HOW  THE  TIME  IS  STORED 


ROYAL  f BUSINESS  FORMS  INCORPORATED 


* 
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# L RE  ST  A E POUT  INF 


A 

O' 

co 

o 

REF 

28 

LAST 

13  07 

01 , 3746 

5b  705 

0 

I TSAJ0B2 

XCH 

GULOC 

moo 

DCF 

c: 

1 A ^ T 

1 o , 7 

1 . 17  4.7 

156 

Q 

ND  X 

P P T M T F R 

U 1 7 V 

t'tr 

- 

J _>  v I 

r bi  IV  > t ' 

Jk 

0191 

REE 

3 

LAST 

1307 

01 ,3750 

3 26  00 

0 

CA 

PROTTAS 

V 

n l q 9 

»ff 

1 

01  ,375  1 

1 3617 

;[ 

TC  F 

r wf  NPV  a r 

r\  c r 

I 

• 

0193 

REF 

3 

LAST 

1305 

01 ,3752 

3 0157 

1 

ITSEVEN 

CA 

TEMPSWCH 

0194 

REF 

29 

LAST 

1308 

.01,37,53 

54  707 

0 

TS 

GOLOC  +2 

» 

01°  r 

REF 

9 

LAST 

1307 

01  ,3754 

50  155 

0 

NDX 

TEMP2G 

019  6 

REF 

2 

LAST 

1306 

01,3759 

3 2002 

1 

CA 

SI ZETAB 

0197 

REF 

7 

LAST 

1305 

01 , 3756 

6 0154 

1 

AD 

TEMPPHS 

• 

0198 

REE 

3 

LAST 

1308 

01,3757 

6 0154 

1 

AD 

TEMPPHS 

0199 

REE 

9 

LAST 

1308 

01,3760 

6 0154 

1 

AD 

TEMPPHS 

* 

0200 

REF 

6 

LAST 

1308 

01,376  1 

54  156 

1 

TS 

POINTER 

w 

0201 

R FF 

1 

n l . a 7 A 5 

1 36  65 

o 

TC  F 

rfiWTRt  9 

1 

X f J 1 o 4. 

GUn  I •_>  t_  c. 

• 

0202 

REF 

36 

LAST 

1285 

01 , 3763 

3 6245 

1 

PHSP  ART 2 

CA 

T HR  E E 

020  3 

REF 

7 

LAST 

1308 

01,3764 

26  1 5o 

1 

ADS 

POINTER 

t 

0204 

REF 

5 

LAST 

1305 

Cl, 3765 

3 3565 

1 

CA 

KTRNCADF 

02nr 

REF 

30 

LAST 

1 308 

01 , 3766 

54  707 

0 

TS 

GOLOC  +2 

A0206 

• 

0207 

REF 

2 

LAST 

130  8 

01 , 3767 

1 3665 

0 

TC  F 

C0NTBL2 

020. ° 

REF 

772 

LAST 

1 303 

Cl  54 

TEMPPHS 

EQUALS 

MP  AC 

• 

020° 

REF 

773 

LAST 

1308 

('155 

1 EMP2G 

EQUALS 

M FAC  +1 

0210 

REF 

774 

LAST 

1 3 n « 

01  5 >'• 

pn T M T 

foiiai  < 

MP AC  +2 

r U 1 '!  1 L_  1“ 

l_VS?VJ  64  l_  J 

0211 

REF 

775 

LAST 

1308 

0157 

TEMPSWCH 

EQUALS 

MP AC  +3 

* 

0212 

REF 

1 

0705 

goloc 

EQUALS 

V AC  5 +2CD 

0213 

REF 

7 

LAST 

12  36 

7746 

M1NUS2 

EQUALS 

N EG  2 

» 

0214 

R FF 

o 

LAST 

1110 

6074 

C CT 177 

EQUALS 

LOW  7 

0215 

REF 

1 

01,3770 

03763 

0 

PHS2C ADR 

GENADR 

PHSPART2 

• 

0216 

REF 

1 

01 , 377  1 

03541 

1 

PPT2CADR 

GENADR 

GET0  ART  2 

3" 

0217 

REF 

5 

LAST 

1210 

01,3772 

05277 

0 

LGCl CADR 

GENADR 

LONGCALL 

0218 

REF 

t-  3 

LAST 

1303 

01,377  3 

C 5 1 0 5 

0 

FVACCADP 

GENADR 

FINOVAC 

• 

0219 

REF 

39 

LA5T 

1132 

01,3774 

0 5203 

0 

WTLTCADP 

GENAO! 

WAIT! 1ST 

0220 

9EF 

27 

L AST 

170  4 

01 , 377  5 

05072 

1 

KG VAC  ADR 

GENADR 

NOVAC 

3 : 1 & DEC.  2 ,1970  SKIPPER  .087  PAGE  1308 
USER'S  PAGE  NO.  6 E3  S4 

STORE  THE  CADR 

ADO  THE  PRIORITY  AND  L ET : S GO 


SET  UP  FOP  El  THE0  THE  SECOND  PART  OF  THE 
TABLE,  OP  A RETURN  FOR  THE  NEXT  GROUP 

SET  Up  POINTER  FOR  OUR  LOCATION  WITHIN 
THE  T AB1 F 

THIS  HAY  LOOK  BAD  BUT  LET  : S SEE  YOU  DO 
BETTER  IN  TIME  OR  NUMBEPR  OF  LOCATIONS 


NOW  PFOCESS  WHAT  IS  IN  THE  TABLE 

SET  THE  POINTER  FOR  the  SECOND  HALF  OF 
THE  TABLE 

THIS  WILL  BE  OUR  LAST  TIME  THROUGH  THE 
EVEN  TABLE  , SO  AFTER  IT  GET  tHE  NEXT 
GROUP 

SO  LE  T : S GET  THE  SECOND  ENTRY  f N THE  TBL 


1” 


ASSEMBLE  REVISION  >.'1  OF  A GC  P.uGBAM  AP11-  PE  BY  EYLES 


GAP: 

L I M ! ) MODE  SWITCHING  PnUTINES 


0001  5457 

0002  REF  1 4000 

0003  5457 

000^  ft  E F 1 E 3,  147  1 

R 0005  FIXED-FIXED  ROUTINE 

0006  REF  1 

0007  ft E F 230  LAST  1305  ft'-? 

0008  E F 18  LAST  125°  5460 

000°  p E F >'•  LAST  12-  ' ' 461 

0010  REF  12  LAST  1260  5462 

0011  REF  342  LAST  1301  5463 

0012  FEE  27  LAST  12-5  4763 


BLOCK  02 
SETLOC  FFTAG3 
BANK 

E B A N K - COMMAND 


COUNT*  $$/! ftUDE 


3 47  55 
54  0 32 
54  033 

1 

1 

0 

ZERO  I CDU 

CAE 

TS 

TS 

ZERO 
C-  DUX 
C DU  Y 

54  034 

1 

TS 

C DU  Z 

0 0002 

0 

TC 

0 

SPSCPDE 

s 

B I T 5 

3215  DEC.  2,1470  SKIPPER  .087  PAGE  1309 
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ZERO  ICDU  COUNTERS. 


GAP:  ASSEMBLE  REVISION  jOI  OF  AGC  PROGRAM  AP11RGPE  BY  E Y L E '• 

L I MU  MODE  SWITCHING  ROUTINE? 

P 001 3 IMU  ZEROING  ROUTINE. 

00 l A 11,3776  BANK  11 


0015 

REF 

1 

C 7 , 20  0 0 

SET  LOC 

MODE  SW 

0016 

07,2714 

BANK 

001T 

REF 

1 

COUNT* 

$ $/ 1 MODE 

00 1£ 

07,2714 

0 0004 

0 

IMUZERQ 

INHINT 

0019 

REF 

42 

LAST 

525 

C 7 , 2 7 1 5 

•+  1 0 3 o 

1 

CS 

QSPT  AB  HID 

0020 

P EF 

4 

LAST 

212 

07,2716 

( 4771 

0 

MA  SK 

BTTS4S6 

0021 

PEF 

407 

LAST 

I 306 

07,2717 

1C  COO 

0 

CCS 

A 

002? 

r EF 

\ 

07,2720 

1 2724 

0 

TC  F 

T MUZ  FRn A 

0023 

R EF 

44 

LAST 

1254 

07, 272  1 

0 5567 

0 

TC 

ALARM 

r\r\7  U 

n 7 . 71 7 2 

p n 2 06 

n 

OCT 

o n ? r.  ^ ^ 

u U c.  s- 

/ i J C l c.  C. 

V.  .1  c.  UU 

V-' 

0C?C 

p EF 

1 

07,2723 

1 36  57 

1 

tcf 

CAGE!  87  J +' 

0032 

REF 

2 

LAST 

1310 

07 ,2724 

0 36  53 

1 

imuzeroa 

TC 

CAGETSTJ 

R 0033 

DF1 ETF 

0034 

REF 

41 

LAST 

907 

07,2725 

4 1303 

1 

CS 

I M..DES33 

003  5 

REF 

2 

LAST 

85  7 

07 , 27 26 

7 4773 

1 

MASK 

SUPER  Oil 

0036 

PEF 

42 

LAST 

1310 

C 7 , 27  2 7 

27 • 303 

1 

ADS 

T vODt  S 33 

0037 

REF 

47 

LAST 

983 

07,2730 

4 1302 

0 

CS 

I MODE  S3  0 

0038 

REF 

1 

07,2731 

7 5781 

0 

MASK 

BITS3&4 

0039 

KEF 

48 

LAST 

1310 

07,2732 

27  ’302 

0 

ADS 

1 MODE  S3 0 

0040 

REF 

5 

LAST 

1310 

07,2733 

4 '771 

0 

CS 

3 ITS' 86 

00' 1 

07, 2734 

0 F('06 

1 

E XI  END 

0042 

PEF 

54 

LAST 

907 

07,2735 

03  012 

1 

WAND 

CHAN12 

0043 

REF 

3 

LAST 

1 66 

07.2786 

2 2 6 6 

n 

Tp 

NPATTflFF 

i 

1 I LM  1 ) 'I  f 

004': 

FEE 

38 

LAST 

12  8 5 

07,2737 

3 4 747 

1 

CAF 

BITS 

no  4 5 

°7 , 2740 

0 0006 

1 

EXTEND 

0046 

REF 

55 

LAST 

1310 

07,2741 

l 

1 

WOR 

CHAN  12 

0046  1 

REF 

3 

LAST 

166 

07,2742 

0 5457 

1 

TC 

ZERO IC DU 

0047 

PEF 

46 

LAST 

1285 

07,2743 

3 4746 

0 

CAF 

BIT6 

004  8 

REF 

40 

LAST 

1308 

07,2749 

0 5203 

0 

1 C 

WAITLIST 

0049 

REF 

3 

LAST 

170 

E 3 , 1474 

EB ANK= 

CDUIMD 

0050 

REF 

1 

07,2745 

02757 

0 

2C  ADR 

IMUZER02 

0050 

REF 

1 

07,2746 

1610  3 

1 

0051 

PEF 

49 

LAST 

1310 

07 ,2747 

4 1302 

0 

CS 

I MODES 30 

0052 

REF 

28 

LAST 

1309 

07,2750 

7 '7  43 

1 

MASK 

B I T9 

0053 

REF 

4C3 

1 AST 

1310 

07,278  1 

10  ono 

0 

CCS 

A 

0054 

REF 

1 

07 , 2752 

1 2 755 

0 

TCF 

MODEEXIT 

3:  15  DEC 


2,1970  SKIPPER  .087 


PAGE  1310 
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ROUTINE  TO  ZERO  ICDUS. 

DONT  ZERC  CDUS  IF  IMU  IN  GIMBAL  LOCK  AND 
COARSE  Al  I G N (GIMBAL  RUNAWAY  PROTECTION) 


IF  SO. 


IMMEDIATE  FAIL  UP E . 


DISABLE  DAP  AUTO  AND  HOLD  MODES 
BITS  FOR  GROUND 


INHIBIT  I C DUE  A I L AND  IMUFAU  (IN  CASE  WE 
JUST  CAME  OUT  OF  COARSE  ALIGN). 


SEND  ZERO  ENCODE  WITH  COARSE  AND  ERROR 
CUUNTER  01 S ARLED. 


TURN  OFF  NO  A^T  LAMP. 


WAIT  320  MS  TO  GIVE  AGS  ADEQUATE  TIME  to 
RECEIVE  ITS  PULSE  TRAIN. 


SEE  IF  IMU  OPERATING  AND  ALARM  IF  NOT 


G Ah  : 


ASSEMBLE  i.fcVISIQN  c;01  Of  AGC  PROGRAM  AP11ROPE  BY  EYLES 


3: 15  DEC 
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I MU 

MODE 

SWITC 

HING 

TOUTINES 

0055 

REF 

45 

LAST 

1310 

07,2753 

0 5567 

0 

TC 

ALARM  , 

0056 

C7.2754 

00210 

1 

OCT 

2 10 

000  7 

07,2755 

0 0003 

1 

DE  EXIT  REL  I NT 

005  8 

REF 

3 

LAST 

1303 

07,2.75  c 

1 * 6 3 1 

0 

TC  F 

SWRETUP  N 

0059 

REF 

1 

C 7 , 275  7 

0 3641 

1 

IMUZER02  TC 

CAGETEST 

OOo  1 

REF 

4 

LAST 

1310 

07,2760 

0 5 4 3 7 

1 

TC 

ZEhUJCDU 

006  2 

REF 

39 

LAST 

I 31  V 

07,2761 

A 6 747 

0 

CS 

RIT5 

AAiO 

r 7 07 4 ■ 0 

0 r nr\c, 

F V TF  wn 

uuo  o 

v/  1 f A 1 C 4 

l UUD 

1 

0064 

REF 

56 

LAST 

1310 

07,2763 

03  012 

1 

WAND 

C HAN  1 2 

0065 

REF 

28 

LAST 

1 285 

07, 2764 

3 ^741 

1 

CAP 

BiTll 

0066 

REF 

1 0 

LAST 

902 

07,  276  5 

3 52  24 

0 

TC 

VARDFLAY 

0067 

REF 

2 

L AST 

1311 

07,2766 

0 3641 

1 

IMUZERP3  TC 

C agetest 

0069 

REF 

2 

LAST 

1310 

07,2767 

4 5751 

0 

CS 

BITS  3 £4 

0070 

REF 

50 

LAST 

1310 

07,2770 

7 1302 

0 

MASK 

I MODE  S3 0 

007 1 

REF 

51 

LAST 

1311 

C 7 ,277  1 

55 ' 3 02 

G 

TS 

I MODES  30 

0072 

REF 

3 

LAST 

1310 

C7 ,2772 

4 47  73 

1 

CS 

SIJPEPOI 1 

0073 

REF 

43 

LAST 

1310 

07,2773 

7 1303 

1 

MASK 

I MODE  S33 

0074 

REF 

44 

LAST 

1311 

07,2774 

55 ' 303 

1 

TS 

T MODE S33 

0075 

REF 

47 

LAST 

966 

07,2/75 

0 4674 

0 

TC 

I bnkcall 

0076 

REF 

5 

LAST 

1 8 G 

07,2776 

1*  7U3 

0 

CAD' 

SETISSW 

0077 

PFF 

1 

C7, 2777 

1 3631 

1 

TCF 

END I MU 

USET  PAGE  ML.  3 E 3 


GENERAL  MODE-SWITCHING  EXIT. 


ZERO  CDUX,  C.DUY , CDUZ 
REMOVE  ZERO  DISCRETE. 

WAIT  10  SECS  FOR  C7RS  TO  FIND  GIMBALS 

REMOVE  IMUFAIL  AND  7CDUFAIL  INHIBIT. 


ENABLE  CAP  AUTO  AND  HOLD  MODES 
BITS  TOR  GROUND 


SEI  ISS  WARNING  IF  EITHER  OF  ABOVE  ARE 
PRESENT . 


GAP:  ASSEMBLE  PE  VISION  GOl  OF  AGC  PT.CGP  AM  AP11RQPE  BY  EYl.ES 


L 

I MU 

MODE 

SWITC 

HING 

ROUTINES 

P 007  8 

IMU  COARSE 

ALIGN  MODE 

• 

n 7 ^aaa 

n ( a Ail 

A 

I MI  ir  fl  A Ei  ^ 

r mu  t m T 

UU  f -■ 

X)  ft  MJU  L- 

1 J L U U *? 

U 

j 'IUL.UMK  J 

1 n 1 In  1 

0080 

REF 

3 

LAST 

1 3 L F 

C 7, 3001 

0 36  5 3 

l 

FC 

C AG:-"  S T J 

0081 

REF 

2 

LAST 

169 

C 7, 7012 

0 3144 

0 

TC 

SETCPARS 

0082 

REF 

25 

LAST 

1285 

07,3003 

3 6242 

0 

CAF 

SIX 

0083 

REF 

41 

LAST 

1310 

C7 » 3004 

0 5203 

0 

TC 

W A I T L I ST 

0084 

REF 

. 4 

LAST 

1310 

E 3 , 1474 

EBA.NK= 

CDU I ND 

003* 

REF 

1 

€7,3005 

03010 

0 

2CADP 

CO  APS 

008  8 

REF 

1 

C 7 , 30C6 

1 6 10  3 

1 

008fc 

REF 

2 

LAST 

1310 

07,3007 

1 2755 

0 

TC  F 

MODEEXIT 

0087 

PEF 

3 

LAST 

1311 

C 7, 30  10 

0 3641 

1 

COAi  3 

TC 

cagetest 

0086 

REF- 

47 

LAST 

1310 

€7,3011 

3 4746 

0 

CAF 

BIT-6 

0089 

07,3012 

0 0006 

1 

EXTEND 

00Qn 

REF 

c? 

l AST 

1311 

07,3013 

0 6 0 12 

\ 

WOP 

CHAM  2 

0091 

REF 

79 

LAST 

1300 

€7,3014 

3 4752 

0 

CAF 

TWO 

0092 

REF 

5 

LAST 

1312 

C7, 3015 

5 5 • 4 ?4 

0 

CP  At  SI 

TS 

CDUIND 

00°  3 

?EF 

6 

LAST 

131  2 

C 7, 3016 

51*474 

1 

I NO  EX 

CDU  I ID 

0094 

REF 

21 

LAST 

1 2 84 

07, 3017 

3 0321 

1 

CA 

THETAD 

0095 

C7, 3020 

0 0006 

1 

EXTEND 

0096 

REF 

7 

LAST 

1312 

C7 , 302  1 

5 1474 

1 

INDEX 

CDUIND 

0097 

REF 

19 

LAST 

1309 

C7, 3022 

20  032 

1 

MSU 

C DU  X 

0098 

€7,3023 

0 CO  06 

1 

EXTEND 

0099 

RFF 

42 

LAST 

1235 

€7,3024 

7 4737 

1 

MP 

B IT  1 3 

OlOn 

REF 

2 30 

LAST 

1 30  5 

€7 , 3029 

5 6 001 

o 

XC  H 

I 

0101 

C7 , 3026 

6 OOCO 

1 

DOUBLE 

0102 

REF 

41 

LAST 

1300 

07,3027 

54  061 

1 

TS 

I TEMP  1 

0103 

07.3030 

1 30  3 ? 

TC  F 

4-9 

’ C- 

0104 

REF 

231 

L AST 

1312 

€7,3031 

26  001 

1 

AOS 

L 

010* 

REF 

# 

LAST 

1312 

C7 , 303  2 

51  * 4 74 

1 

INDFX 

CDUIND 

0106 

REF 

2 

LAST 

1309 

C7, 3033 

2 3 ' 471 

1 

LXCH 

COMMAND 

0107 

REF 

9 

LAST 

1312 

C7, 3034 

11'474 

0 

CCS 

CDUIND 

0108 

REF 

1 

07,3035 

0 3015 

0 

TC 

CQARS 1 

010* 

REF 

80 

LAST 

1312 

C7 , 3036 

3 4 752 

0 

CAF 

TWO 

011  0 

REF 

1 1 

LAST 

1311 

C 7 , 3037 

0 52  24 

0 

TC 

VAPDEl AY 

3:15  DEC. 

2 ,19  70 

SKIPPER 

.087  PAGE  1312 

USER 

‘S  PAGE 

MO.  4 

E 3 S4 

ENABLE  ALL  THREE  ISS  CDU  ERROR  COUNTERS 

SET  CDU  INDICATOR 

COMPUTE  THETAQ  - THETAA  IN  1 : S 
COMPLEMENT  FORw 


SHIFT  RIGHT  2 
f-  O UMD 


DIFFEPENCF  TO  BE  COMMUTED 


MINIMUM  OF  4 MS  WAIT 


GAP : 


2 , 1 9 70  SKIPPER 


087  PAGE  1313 


ASSEMBLE  REVISION  001  OP  AGC  PROGRAM  AP11RUPE  BY  EYLES 


3:  15  DEC. 


L 

I MU 

MODE 

swir: 

HI  NG 

POUT  I ME S 

0111 

REF 

4 

LAST 

1312 

C7 ,3040 

0 3641 

1 

COAP  S2 

0112 

REF 

42 

LAST 

1312 

C 7 , 3041 

54  061 

1 

0113 

REF 

81 

LAST 

1312 

07,3042 

3 4752 

0 

0114 

r'EF 

10 

LAST 

1312 

07,  304  3 

55*474 

0 

+ 3 

Oil* 

0116 

r r p 

1 1 

3 

LAST 

LAST 

1313 

1312 

07.3044 

07 . 3045 

51*' 74 
11*471 

1 

0 

REF 

Oil? 

0118 


REF 

REF 


07 , 3046 
C7 ,3047 


3052 

3061 


0118 

REF 

1 

07, 3050 

0 3117 

0 

0120 

REF 

2 

1 A S T 

1313 

C7 , 305  l 

0 3061 

0 

0121 

REF 

1 

07,3052 

6 3745 

1 

0122 

07,3053 

0 0006 

1 

0123 

REF 

1 

C7 ,3054 

6 3127 

0 

0124 

REF 

12 

LAST 

1313 

07,3055 

51  '474 

1 

0125 

REF 

4 

LAST 

1313 

07,3056 

: ^ i /.,Ji 

0 

012  f 

P FF 

07 , 30*>7 

4 3746 

0 

0127 

REF 

43 

LAST 

1313 

07, 3060 

24  061 

0 

012 1 

REF 

28 

LAST 

1286 

07,3061 

6 4754 

0 

012° 

REF 

1 3 

LAST 

1313 

C 7 , 306  2 

51*47'; 

1 

0130 

REF 

3 

LAST 

282 

C7 , 306 3 

54  050 

0 

0131 

REF 

14 

LAST 

1313 

07,3064 

11*474 

0 

0132 

REF 

1 

07,3065 

0 3043 

0 

0133 

REF 

44 

LAST 

1313 

C 7, 3066 

10  0 61 

1 

0134 

PEF 

1 

07,3067 

1 3133 

1 

0135 

REF 

16 

LAST 

1121 

07 , 3070 

0 5221 

0 

0136 

07,3071 

00226 

1 

0137 

REF 

82 

t AST 

1 3 1 3 

07,3072 

3 h152 

0 

0138 

REF 

48 

LAST 

13  13 

O7 , 3673 

44  061 

1 

0139 

REF 

409 

LAST 

1310 

C7 , 3074 

50  OCO 

1 

0140 

REF 

20 

LAST 

1312 

C7, 3075 

3 0032 

0 

0141 

07,3076 

0 C 006 

1 

0142 

REF 

46 

LAS7 

1313 

0 7 , 3C77 

5 00  61 

0 

0143 

REF 

22 

LAST 

1312 

C 7 , 3100 

2°  321 

0 

0144 

REF 

4 1 0 

LAST 

1313 

07,7161 

10  000 

0 

0145 

REF 

1 

07,3102 

1 3110 

0 

0146 

REF 

1 

07,3103 

1 3105 

1 

0147 

REF 

2 

LAST 

1313 

07,3104 

1 3110 

0 

COMPOS 


NEXTCDU 


CHKCORS 


USER’S  PAGE  NO.  5 E3  S4 


TC 

C AGETEST 

DONT  CONTINUF  IF  CAGED. 

TS 

ITEMP] 

SETS  TO  *-0. 

CAT 

TWO 

SET  C DU  INDICATOR 

TS 

COUIND 

INDEX 

CDU1ND 

CCS 

COMMAND 

NUMBER  OF  PULSES  REQUIRED 

TC 

COMPOS 

GREATER  THAN  MAX  ALLOWED 

TC 

NEXTCDU  +1 

TC 

COMM EG 

TC 

NEXTCDU  +1 

AD 

-COMMAX 

COMMAX  = MAX  NUMBER  OF  PULSES  ALLOWED 

EXTEND 

MINUS  ONE 

3ZMF 

COM ZERO 

INDEX 

C DU  I N D 

TS 

COMMAND 

REDUCE  COMMAND  BY  MAX  NUMBER  of  PULSES 

C c 

— r rvM  'A  av  — 

ai  i f ' !aj  (-  n 

m L L U VV  IT  L7 

I NCR 

I TEMPI 

AD 

Mean 

1 v 17  V 

INDEX 

C C Li  I N D 

TS 

CDUXCMD 

SET  UP  COMMAND  RFGISTER. 

CCS 

COUIND 

TC 

C0ARS2  +3 

CCS 

I ''T' PI 

SEP  IF  ANY  PUl  ES  TO  GO  OUT. 

TCP 

SEND PULS 

TC 

F IXDELAY 

WAIT  FOR  GIMBALS  TO  SETTLE. 

DEC 

150 

CAE 

T WO 

AT  END  OF  CCMMAND, 

CHECK  TO  SEE 

THAT 

IS 

I TEMPI 

gimbai. s ape  WITHIN 

2 DEGREES  OF 

"HE  T AD . 

INDEX 

A 

CA 

C DU  X 

EXTEND 

INDEX 

T TEM  P I 

MSU 

THETAD 

CCS 

A 

TC  F 

COAR  SERF 

TC  F 

C0RSCHK2 

TCP 

COARSER  i- 

# 


GAP:  ASSEMBLE  F VIS  UN  0C1  OF  AGC  r PGP  AM  API  1RQPE  BY  EYLES 


L 

T MU 

MODE 

SWITC 

HING 

F OUTINES 

0148 

RFF 

47 

LAST 

1313 

07,3105 

10  061 

1 

C0RSCHK2 

CCS 

ITEMP1 

0149 

REF 

1 

07,3106 

1 3073 

1 

TCF 

CHKCORS 

Cl  50 

REF 

2 

LAST 

131 1 

G 7 , 3107 

1 3631 

1 

TCF 

END  I U 

015  1 

REF 

1 

07,31  10 

6 3116 

1 

CO  Ah  SERF 

AD 

CO AS STOL 

0152 

07,3111 

0 0006 

1 

EXTEND 

0153 

REF 

2 

LAST 

1313 

07,3112 

6 3105 

0 

BZMF 

CORSCHK  2 

0154 

REF 

4 b 

LAST 

1311 

07,3113 

0 55  67 

0 

TC 

ALARM  vV 

0155 

07, 3114 

00211 

0 

OCT 

211 

s 6 

RFF 

2 

I a t 

1 A f 

07,3115 

1 3637 

Tr  f 

T Ml i p a n 

ialf 

l—  A ^ i 

» o i 

1 H.I  UH  1/ 

0157 

07,31  16 

775  11 

1 

COAF  STOL 

DEC 

-.01111 

or-- 

n i c 

REF 

2 

LAST 

1313 

07,3117 
03,2120 
07,312  1 

6 3745 
0 CO 06 

1 

1 

0 

COMM  EG 

AD 

PXJF,;Q 

-COMMAX 

0160 

REF 

2 

1 AST 

1313 

6 3127 

BZMF 

COMZERO 

0161 

0162 

REF 

15 

LAST 

1313 

07 . 3122 

07.3123 

4 0000 
51 '474 

0 

1 

COM 

INDEX 

CCUIND 

01o3 

REF 

5 

LAST 

1313 

07,3124 

55*471 

0 

TS 

COMMAND 

0164 

REF 

2 

LAST 

1313 

07, 3125 

3 3746 

1 

CA 

- COM MAX - 

0 1 6 

rIf 

3 

LAST 

131  3 

07,3126 

0 3060 

1 

TC 

NEXTCOU 

0166 

REF 

231 

LAST 

1309 

07 ,3127 

3 4755 

1 

COMZERO 

CAF 

ZERO 

0167 

REF 

16 

LAST 

1314 

07,3130 

51 ' 474 

1 

INDEX 

CCUIND 

0168 

REF 

6 

LAST 

1316 

07,3131 

57*471 

1 

XCH 

COMMAND 

016° 

RFF 

4 

LAST 

1314 

07,3132 

0 3060 

1 

TC 

NEXTCOU 

0170 

REF 

3 

LAST 

532 

07,3133 

3 

7 740 

0 

SENDPULS  CAF 

13,14,15 

017  1 

07,3134 

Ci 

00  06 

1 

f y t FKin 

I 

U Ait  tNU 

0172 

RFF 

16 

LAST 

907 

07,3132 

05 

0 1 4 

1 

WOR 

CHAN  14 

0173 

REF 

1 

: 07,3136 

3 

3747 

0 

CAF 

6 00  VS 

0176 

REF 

2 

LAST 

1313 

07,3137 

1. 

3037 

1 

TCF 

C0ARS2  -1 

0175 

REF 

43 

LAST 

1312 

07,3140 

3 

4746 

0 CA+ECE 

CAF 

BIT6 

0176 

07,3141 

0 

0006 

1 

EXTEND 

0177 

REF 

58 

LAST 

1312 

07,3142 

05 

012 

1 

W D R 

C HAN  1 2 

0 1 7 

REF 

73 

LAST 

1209 

07, 316  3 

0 

6261 

1 

TC 

TASKOVEF 

3:15  DEC 


2 


1970 


SKIPPER  .087 


PAGE  1314 


USER'S  PAGE  NO.  6 E3  S4 

END  OF  COARSE  ALIGNMENT. 

2 DEGC  F Er  . 

COARSE  ALIGN  ERROR. 

2 DEGPEES  SCALED  AT  HALF-REVOLUTIONS 


c 


THEN  TO  VARDFLAY 

ENABLE  ALI  THREE  TSS  CDU  ERROR  COUNTERS 


3: 15  DEC 


2,1970  SKIPPER  .087  PAGE  1315 


GAP:  ASSE.-X-LE  kE  V I Si  UN  Oul  OF  AGC  Pr  QG*  AO  AU11FUPE  8Y  EYLLS 


L 

I MU 

M 00c 

SN  ITCHING 

SHUT  If,  ES 

0179 

0180 
0181 
018? 
018  3 

REF 

REF 

REF 

REF 

42 

59 

411 

343 

LAST 

LAST 

LAST 

LAST 

1285 

131* 

1313 

1309 

C 7 , 3 1 4 4 

07.3145 

07.3146 

C 7 , 314 7 
07, 3i.ro 

3 6-750 
0 C006 
02  012 
10  000 
0 COO? 

1 S ETC  PARS 
1 

0 

0 

0 

USER’S  PAGf  NO.  7 E3  S4 

CAF  BIT4  BYPASS  IF  ALREADY  IN  COARSE  ALIGF 

EXTEND 

RAND  CHAN 12 
CCS  A 

TC  0 


018* 

REF 

49 

LAST 

1314 

07,3151 

4 

4746 

1 

0185 

07,3152 

0 

0006 

1 

01 86 

REF 

60 

LAST 

1315 

07,3153 

03 

012 

1 

CS  BIT6  CLEAR  ISS  ERROR  COUNTERS 

EXTEND 

WAND  C HAN  1 2 


018  ' 
018  8 
0189 

REF 

3 5 

LAST 

l 3 ' 

07.3154 

07.3155 
C7 ,3156 

4 4742 
0 0006 
03  014 

0 

1 

1 

REF 

17 

LAST 

1314 

0190 

REF 

232 

LAST 

1314 

07,3157 

4 47  5 5 

0 

0191 

REF 

2 

LAST 

17  5 

C 7 , 3 1 60 

54  047 

0 

CS  BIT10  Ki;  >CK  DOWN  GYP  Q ACTIVITY 

EXTEND 

WAND  C HAN  14 

CS  ZERO 

TS  GYRuCND 


0192  REF  03  LAST  131;  C 7,31/  1 1 4 760  1 CAF  BIT-  PUT  ISS  If  D'-ARSE  ALIGN 

0193  07,3162  0 6006  1 EXTEND 

0194  REF  61  LAST  1315  07,3163  05  012  1 WOR  C HAN  1 2 


0195 

REF 

43 

LAST 

1310 

C 7 » 3 1 64 

4 103  6 

1 

0196 

R E F 

1 

07, 3165 

7 3207 

0 

0197 

REF 

44 

LAST 

1315- 

C 7 ,31  (-  f 

27 ’ 0 3 C 

1 

0198 

REF 

45 

LA9T 

1311 

07,3167 

4 130  3 

1 

0199 

RFF 

50 

LAST 

1315 

C 7 , 3 1 7 n 

7 4746 

1 

02  OX 

REF 

46 

LAST 

1315 

07,3171 

27.’  303 

1 

0201 

REF 

52 

LAST 

1311 

C7 , 3172 

9 1302 

0 

0 2 t 2 

p pp 

LAST 

1315 

07,3173 

T / 7KA' 

r\ 

O Li 

' f n xj 

U 

0203 

REF 

53 

LAST 

1315 

C7, 3174 

27’302 

0 

CS 

MASK 

ADS 

DSP  TAB  + 1 1 D 
OCT  4 0010 
DSPTAB  + 1 1 D 

TURN  ON 

NO  ATT  LAMP 

cs 

MASK 

ADS 

I M0DES33 

BIT  6 

I MODES  33 

DISABLE 

DAP  AUTO  -AND  HOLD  MODES 

CS 

MASK 

ADS 

I MODE S3 0 

B IT 4 

I M0DES30 

DISABLE 

I MU FAIL 

0204 

REF 

14 

LAST 

518 

07, 3175 

4 4747 

0 

RNDFEFDR  CS 

TRACKS! T 

020  5 

REF 

32 

LAST 

907 

07,3176 

7 0075 

1 

MASK 

Ft  AGWRD1 

0206 

KEF 

33 

LAST 

131' 

C 7 , 3 177 

56  0 75 

1 

TS 

FLAGWPD1 

0207 

REF 

3 

LAST 

857 

07,3200 

4 47  35 

0 

CS 

DRFTB IT 

0208 

RFF 

29 

LAST 

1121 

C7, 3201 

7 0076 

1 

MASK 

FL AGWRD2 

0209 

REF 

30 

LAST 

1315 

r,  7 . 3 5 f)  ? 

54  076 

1 

TS 

FLAGWPD2 

V • t - 4.  - C. 

0210 

REF 

6 

LAST 

976 

07,3203 

4 *73  7 

1 

CS 

PEFSMBIT 

0211 

REF 

18 

LAST 

976 

07,3204 

7 CC77 

0 

MASK 

FLAGWRD3 

0212 

REF 

19 

LAST 

1315 

C7, 3205 

54  077 

0 

TS 

FLAGWPD3 

021  3 

REF 

344 

LAST 

1315 

07,3206 

0 C 002 

0 

TC 

Q 

02 1 * 

07, 32C 7 

40010 

1 

OC T4 0 j 1 P OCT 

40010 

CLEAR  TRACK  FLAG 


CLFAR  DRIFT  FLAG 


CLEAR  KEFS MM AT  FLAG 


GAP: 


ASSEMBLE  ,\EVI$J3N  0C1  OF  AoC  :PROo<AM  API  1RGPE  BY  EYLES 


L I HU  mOl)E  SWITCHING  ROUTINES 


P 02 1 5 I MU  FINE  ALIGN  MOOE  SWITCH. 


0216 

07,3210 

0 

0 

0 

0217 

RFF 

4 

LAST 

1312 

07,3211 

0 

36  53 

1 

0218 

REF 

1 

<17, 32  1? 

4 

3744 

1 

0219 

07, 3213 

0 

0006 

1 

0220 

REF 

62 

LAST 

1315 

07,3214 

03 

012 

1 

0221 

REF 

5 1 

LAST 

1315 

C 7 , 32  1 5 

4 

4 746 

1 

0222 

REF 

47 

LAST 

1315 

07,3216 

7 

1303 

1 

022? 

»FF 

43 

l AST 

1316 

07,3217 

55 

* 303 

1 

0224 

REF 

4 

LAST 

1310 

07,3220 

0 

3266 

0 

022  5 

REF 

40 

LAST 

1315 

C7 , 322  1 

3 

4742 

1 

0226 

RFF 

4 2 

LAST 

1312 

C 7 , 32  2 2 

0 

5203 

0 

0227 

RFF 

1 7 

LAST 

1 3 14 

F3 , 1474 

02  2 8 

REF 

1 

07,3223 

0 32  34 

1 

0228 

REF 

1 

07,3224 

16103 

1 

IMUF1ME  IN HI  NT 
TC 

cs 

EXTEND 

WAND 

CS 

MASK 

TS 

TC 

CAF 

TC 

E B A N K = 
2C  ADR 


022° 

RFF 

8 

LAST 

966 

07,3225 

3 5080 

1 

0230 

REF 

4 3 

< AST- 

1316 

07,3226 

0 52  03 

0 

0231 

REF 

18 

LAST 

1316 

E3 , 1474 

0232 

REF 

1 

07 ,3227 

03232 

1 

0232 

REF 

1 

07,3230 

16  103 

1 

CAF 

TC 

E B A M K = 
2CADR 


0233  PEE 


LAST  1312  07,3231  1 2755  0 


TC  F 


0234  PEF  * L A^T  1313  07,3232  0 3641  1 IMUPTNgfT  TC 

0235  REF  3 LAST  1314  07,3233  1 3631  1 TCP 


CAGE  1ST  J 
— 5 

CHAN12 
B T T 6 

I MODE  S33 
T MODES33 

NCATTOFF 

B IT  10 
WAITLIST 

C DU  I ND 

IFAILOK 


2SECS 
WAITLIST 
CCUIND 
I MUFINED 


MOOEFX  IT 

CAGE TEST 
END  I MU 


3:15  DEC 
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USER • S PAGE  NO.  8 E3  S4 


SEE  IF  IMU  BEING  CAGED. 

RESET  ZFC  0 AND  CrW  SE 

INSURE  DAP  AUTO  AND  HOLD  MODES  ENABLED 


IMU  FAIL  WAS  INHIBITED  DURING  THE 
PRESUMABLY  PRECEDING  COARSE  ALIGN.  LEAVE 

IT  ON  FOR  THE  FIRST  5 SECS  OF  FINE  ALIGN 


S EE  THAT  NO  ONE  HA'  CAGED  THE  ' m(j 


GAP : 


ASSEMBLE  - E VIS  I Oh  001  CF  A ,0  P.  OGkAM  API  1R0PE  BY  EYLES 


IMU 

MODE 

SWITC 

HING 

ROUT  I NES 

02  36 

REF 

1 

07,3234 

0 

3646 

0 

I FAI  LOK. 

TC 

0237 

REF 

74 

LAST 

1314 

07,3235 

1 

52  61 

0 

TCF 

0238 

kef 

A 5 

LAST 

1315 

C 7 , 32  3 6 

3 

4 7 50 

1 

CAF 

0239 

07, 3237 

0 

0006 

1 

EXTEND 

0240 

RFF 

63 

LAST 

1316 

07,3240 

02 

012 

0 

RAND 

0241 

REF 

412 

LAST 

1315 

C7 , 324  1 

10 

COO 

0 

CCS 

0242 

REF 

75 

LAST 

1317 

07,3242 

1 

52  61 

0 

TCF 

0243 

REF 

54 

LAST 

131  r 

C7, 324.3 

4 

1302 

0 

CS 

0244 

RTF 

43 

LAS’ 

1312 

07,32*4 

7 

4737 

1 

MASK 

DCC 

s 5 

i a <;  t 

1517 

0 7 t 3 p a «> 

27 

'302 

o 

AOS 

U2i*T  zy 

E r 

L M o 1 

1 1 f 

0246 

REF 

46 

LAST 

1317 

C7 , 3 246 

4 

4750 

0 

CS 

0247 

REF 

56 

LAST 

1317 

07, 3247 

7 

1302 

0 

PFAIL0K2 

MASK 

02  4 F 

REF 

57 

LAST 

1317 

07,3250 

55 

' 3 02 

G 

TS 

024  9 

«EF 

48 

LAST 

1311 

07,3251 

0 

4-674 

0 

TC 

02  5 0 

REF 

6 

L AST 

1311 

C 7,3252 

1 * 7 C 3 

0 

CADR 

nor.  i 

pcc 

7 A 

1 K' 

lii-’ 

n 7 . -a  0 c -a 

I 

n 

rr  F 

Uc  -7  1 

F.LF 

L A'  ' 

I O 1 f 

..  t f _5  C D 

1 

" C-  D 1 

u 

0252 

REF 

2 

LAST 

1317 

07,3254 

0 

3646 

0 

PFAI LOK 

TC 

0253 

REF 

77 

LAST 

1317 

07,3255 

1 

5 26] 

G 

tct 

025  a 

REF 

5 8 

LAST 

1317 

07 , 325  6 

4 

1302 

0 

CS 

0255 

RFF 

4 1 

LAST 

1316 

07,3257 

7 

*742 

0 

MASK 

0256 

REF 

59 

LAST 

1317 

07,3260 

27 

’ 302 

0 

ADS 

0257 

REF 

49 

LAST 

1 316 

07,326  1 

4 

1303 

1 

CS 

025  8 

REF 

44 

LAST 

1317 

07,3262 

7 

47  3 7 

1 

mask 

02  5 c- 

RFF 

50 

LA  SI- 

1317 

C7,32f  3 

27 

' 30  3 

1 

ADS 

0260 

REF- 

40 

LAST 

1311 

07,3264 

4 

4747 

0 

CS 

0261 

REF 

1 

07,3265 

1 

3247 

1 

TCF 

026  2 

REF 

2 

last 

1315 

07,3266 

4 

32  0 7 

0 

f UA‘  TOFF 

CS 

C263 

k C F 

45 

LAST 

1315 

07,3267 

7 

1 0 3 6 

1 

mask 

0264 

REF 

4 2 

LAST 

1298 

07,3270 

6 

4735 

1 

AD 

0265 

REF 

46 

LAST 

1317 

07,327  1 

55 

• 036 

1 

TS 

0266 

REF 

345 

LAST 

1315 

07,3272 

0 

0002 

0 

TC 
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CAGETSTO  ENABLE  IMU  FIAL  UNLESS  IMU  BEING  CAGED. 

T ASKOVFR  IT  IS. 

BIT  A DONT  RESET  1 MU  FAIL  I NHI 8 I T IF  SOMEONE 

HAS  GONE  INTO  CP APSE  ALIGN. 

CHAN  12 
A 

TASKOVEF 

I MODES 30 
BITL3 
I MODESPC 
BIT* 

I MODE  S3 0 
I MODE  S3 0 
I BNKCAL L 
SET  I SSW 
T ASKOVFR 

C AG  E T S T Q 
TASKOVER 

I M0DES30  RESIT  IMU  AND  PJRA  FAIL  BITS. 

BITIO 

T MODES  30 

i MODES 33 
SIT13 
I MODES  33 

B I T 5 

PFA I L0K2 

OCT 400 10 
DSPTAB  + 1 1 D 
ft  T T 1 5 

DSPTAB  + 1 1 D 
0 


r 


RESET  I MU-FAIL. 

THE  ISS  WARNING  1 I GHT  MAY  COME  ON  NOW 
THAT  THE  INHIBIT  HAS  BEEN  REMOVED. 

ENABLE  PIP  FAIL  PROG  ALARM. 


SUBROUTINE  TP  T I JR  N P'FF  NO  ATT  LAMP 


GAP:  ASSEMBLE  REVISION  GOl  QF  AG.C  PROGRAM  AP11R0PE  BY  EYLES 


TMU 

MODE 

SWITCHING 

ROUT INES 

'0267 

ROUTINES  TP  INITIATE 

AND  TERMINATE  PROGRAM  USE 

027  2 

REF 

233 

LAST 

1315 

07,3273 

4 4755 

0 

PI  PUSE 

CS 

0273 

KEF 

15 

LAST 

95  2 

07, 327  A 

54  03  7 

1 

TS 

0274 

REF 

6 

LAST 

9 5 2 

07,3275 

54  040 

1 

TS 

0275 

REF 

9 

LAS  T 

952 

07, 3276 

54  OM 

n 

TS 

02752 

REF 

3 

LAST 

1317 

07, 3277 

0 36 A 6 

0 

P I P USE  1 

TC 

0275  A 

RFF 

LAST 

1311 

C 7 , 3300 

1 6631 

0 

1CF 

02756 

07, 33C l 

0 0004 

0 

INHINT 

0276 

RFF 

53 

LAST 

12  8 5 

r>  7 , 3 3 0 2 

4 4753 

0 

C S 

0277 

REF 

60 

LAST 

1317 

07,3303 

7 1302 

0 

MASK 

0278 

REF 

61 

LAST 

1318 

C7 , 330 A 

55 ' 3 02 

0 

TS 

027° 

FFF 

69 

LAST 

131 7 

07,3305 

0 4 67 A 

0 

P I PFRFE2 

TC 

02  30 

- EF 

7 

LAST 

1717 

07, 3306 

14703 

0 

CADP 

0281 

REF 

A 

LAST 

1316 

C7, 3307 

1 2755 

0 

TC  F 

028  2 

07,3310 

Q 0004 

0 

PIPFREE 

INHINT 

0283 

REF 

62 

L A S T 

1315 

07,331  1 

A 1302 

0 

CS 

028/ 

FEE 

5 A 

LAST 

1318 

07,3312 

7 4753 

0 

MASK 

028  r 

«ff 

63 

LAST 

1318 

C7 ,3313 

27 ’ 302 

0 

ADS 

0286 

REF 

A2 

LAST 

1317 

07 , 33  1 A 

7 A 742 

0 

MASK 

0237 

REF 

413 

LAST 

13  17 

07,3315 

io  ooo 

0 

CCS 

0288 

REF 

5 

LAST 

131° 

07,3316 

I 2755 

0 

TC  F 

02  6 c 

REF 

/■ 

LAST 

l 3 1 ^ 

n 7.H31 7 

n F F H 7 

0 

Tf 

v S'  U / 

i v 

0290 

07  T 33? 0 

00212 

0 

OCT 

029 1 

n 7 i 

o on  pa 

n 

T kl  U i M T 

1 ■ 1 f JJZ.  J 

U U U V 

u 

I 

0292 

REF 

1 

07,33?? 

1 3305 

0 

TC  F 

OF  THE  PI 

ZERO 
PIPAX 
P IPAY 
PIPAZ 

CAGETSTO 
S WRE TURN 


BIT1 

I MODES30 
I MODE  S3  C 

I BNKCAU 
SETISSW 

MOQEEXI T 


T MODE  S3  0 

BIT! 

I MODES 30 

BIT10 

A 

MODEEXI'f 

ALARM  3 
212 


PIPFREF2 


3: 

15  DEC. 

2,1970 

SKIPPER 

.067  PAGE  1318 

USER 

*$  PAGE 

NO. 

10 

E 3 SA 

NO 

IMU STALL 

REQUIRED  IN 

EIT 

HER  CASE. 

DO  NOT  ENABLE  PIPA  FAIL  IF  IMU  IS  CAGED 


1F  PIPA  FAILS  FROM  NOW  ON  (UNTIL 
PIPFREE),  LIGHT  ISS  WARNING. 


ISS  WARNING  MIGHT  COME  ON  NOW. 
( OP  GO  OFF  ON  PIPFREE ) . 


PROGRAM  DONE  WITH  PIPAS.  DONT  LIGHT 
ISS  WARNING. 


IF  PIP  FAIL  ON,  DP  PROG  ALSP.n  AMD  RESET 
ISS  WARNING. 


« 


GAP  : 


P 0293 
R0295 
R 0297 

02  cc 

0300 

0301 

0302 

0303 

0304 

0305 

0306 

0307 

0308 

0310 

0311 

0312 

0312 

0313 

0314 

0315 

0316 

031  7 
0311 

0319 

0320 

0321 

032  2 

0323 

0324 

0325 

0326 

0327 

0328 

0329 

0330 

0331 

0332 

0333 

0334 

0335 

0336 


ASSEMBLE  REVISION  001  OF  AGO  PROGRAM  AP11R0PE  BY  EYLES 
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I MU 

MODE 

SWTTC 

HI  NG 

P OUT INES 

■ TORQUES 
IG  IN  A. 
IS  LEFT 

THE  FOLLOWING  ROUTINE 
BEGINNING  AT  r HE  ECADR  ARP  IVIN 
UNSENT  PORTION  OF  TEE  COMMAND 

E3 , I /00 

REF 

776 

LAST 

130! 

07,3323 

54  161 

0 

REF 

5 

LAST 

13  16 

07,3324 

0 3653 

1 

R E F 

2 

L AST 

222 

07, 33  2 r 

11’ 314 

1 

= EF 

1 

07,3326 

0 33  67 

0 

REF 

777 

LAST 

1319 

07,3327 

54  156 

1 

REF 

52 

LAST 

1316 

07, 3330 

3 4746 

0 

07,3331 

0 0006 

1 

REF 

18 

LAST 

1315 

07,3332 

0-  014 

1 

pep 

9 7 

1 A r T 

i ? p r: 

47C1 

A 

- LP 

C f 

L A j i 

I C-  ' M 

\J  ’ 1 9 9 9“ 

9 7 I "1 

1 J 

REF 

44- 

LAST 

1316 

07,3334 

0 5203 

0 

PEF 

19 

LAST 

1316 

F3 , 1474 

C PF 

1 

/x.  n 

o 

C 1 

i 

U i f 7 j J U 

REF 

i 

07,3336 

16  103 

i 

PEF 

773 

LAS': 

131.4 

07,3337 

3 0161 

i 

REF 

71 

LAST 

1289 

07,3340 

56  003 

i 

REF 

779 

LAST 

1319 

C7 , 334  1 

56  161 

i 

REF: 

3 

LA  SI- 

1319 

07,3342 

53  ’ 314 

i 

REF 

17 

LAST 

1236 

07,3343 

7 4357 

0 

REF 

48 

LAST 

131 ' 

C7 , 3344 

54  061 

1 

REF 

83 

LAST 

1313 

07,3345 

3 4752 

0 

REF 

780 

LAST 

1319 

07,3346 

54  157 

0 

07,3347 

6 COOO 

1 

REF 

49 

L AST 

1315 

C 7 , 3350 

o {’06 1 

0 

REF 

781 

LAST 

1319 

07,335  1 

54  160 

1 

07,3352 

0 0006 

1 

REF 

414 

LAST 

1318 

07,3353 

5 0000 

1 

07,3354 

3 1401 

0 

REF 

782 

LAST 

1319 

07,3355 

52  155 

1 

REF 

15 

LAST 

1224 

07,3356 

0 7257 

0 

REF 

783 

LAST 

132  9 

07,3357 

5?  155 

1 

REF 

784 

LAST 

1319 

97, 3360 

50  160 

0 

07,3361 

53 ’401 

1 

REF 

78  5 

LAST 

1319 

07,3362 

10  157 

0 

REF 

1 

07,3363 

l 3346 

1 

PEF 

786 

LAST 

2 31o» 

07,3364 

3 0161 

1 

REF 

72 

LAST 

13  19 

07, 3365 

54  003 

0 

REF 

6 

LAST 

1318 

07 , 3366 

1 2 75  5 

0 
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F3  S4 


THE  IPIGS  ACCORDING  TO  DOUBLE  PRECISION  INPUTS  IN 
THE  MINIMUM  SIZE  OF  ANY  PULSE  TRAIN  IS  16  PULSES  I, 
INTACT  IN  THE  INPUT  GO MM AMD  REGISTERS. 


THE  SIX  REGISTERS 
2 5 C DU  COUNTS ) . THE 


E B A N K = 1400 


IMUPULSE  TS 
TC 

CCS 

TC 

TS 

CAF 

EXTEND 

WOR 

CAF 

GWAKE2  TC 

E B A N K = 
2CADR 


CA 

XCH 

XCH 

TS 

MASK 

TS 

CAF 

GYRO AGR  E TS 

DOUBLE 

AD 

TS 

EXTEND 
INDEX 
DC  A 
DXCH 
TC 

DXCH 

INDEX 

DXCH 

CCS 

TCF 

CA 

TS 

TCF 


MP AC  +5 
CAGETSTJ 

LGY  RQ 
GYRO BUSY 

MPAC  +2 
BIT6 

CHAN 1 4 

FOUn 

WAITLIST 
CCUIND 
ST  T G Y ' l 


MPAC  +5 
EBANK 
MPAC  +5 
LGYRO 
LOW  8 
I T E M P 1 

TWO 

MPAC  +3 

I TEMPI 
MPAC  +4 

A 

1400 

MPAC 

TPAGREE 

MPAC 

MPAC  +4 

1400 

MPAC  *-3 
GYROAGRE 

MPAC  + * 
EBANK 
MODEEX IT 


VARIABLE,  ACTUALLY. 

SAVE  ARRIVING  ECADP. 

DONT  PROCEED  IF  I MU  BEING  CAGED. 

SEE  IF  GYROS  BUSY. 

SLEEP. 


ENABLE  THE  POWER  SUPPLY. 


(IF  A JOB  WAS  PUT  TO  SLEEP,  THE  POWER 
SUPPLY  IS  LEFT  ON  BY  THE  WAKING  JOB). 


SET  UR  EBANK,  SAVING  CALLER'S  EBANK  FOR 
RESTORATION  ON  RETURN. 

RESERVES  GYROS. 


FORCE  SIGN  AGREEMENT  ON  INPUTS. 


RESTORE  CALLER’S  EBANK . 


GAP  : 

ASSEMBLE  REVISION  001 

OF  AGC  PROGRAM  AP11R0PE  BY  EYLES 

L 

I MU 

MODE 

SWITC 

HING 

* OUTINES 

P0337 

ROUTINES  TO  ALLOW  TORQUING  BY 

ONLY  ONE 

JOB  AT  / 

0338 

07,3367 

0 CG06 

1 

GYRO BUSY 

EXTEND 

033  9 

RER 

23 

LAST 

i ' 

C 7 , 3370 

3 0134 

1 

DC  A 

0340 

REF 

787 

LAST 

1319 

07,3371 

52  155 

1 

DXCH 

034  1 

REF 

1 

07,3372 

3 3404 

1 

r F4  SI.  FFP 

CAF 

0342 

REF 

5 

LAST 

1220 

07,3373 

1 5133 

1 

TCF 

0343 

REF 

4 

LAST 

1319 

07,3374 

1 1 * 314 

1 

GWAKE 

CCS 

034' 

R EF 

1 

07,3375 

1 33  72 

0 

TCF 

034  5 

REF 

7 p p 

1 AST 

13  2 0 

07 , 3376 

5 1.  15*, 

3 

T S 

L3  ! 

0346 

07,3377 

0 C 006 

1 

EXTEND 

0347 

REF 

789 

LAST 

1320 

07 , 3400 

3 0155 

0 

DC  A 

034  8 

. REF 

24 

LAST 

1320 

a , 3401 

52  134 

0 

DXCH 

034  c 

REF 

131 

LAST 

1305 

0 7 , 3-  0 2 

3 47  53 

1 

CAF 

0350 

REF 

1 

07, 34C3 

1 3334 

1 

TCF 

0351 

REF 

1 

07,3404 

17374 

1 

LGWAK  E 

CADR 

TIME. 


BUF2 
MP  AC 

t GWAKE 
JOBSLEEP 

LGYRO 

REGSLEEP 

MPAC  +2 

MP  AC 
BUF2 
ONE 

GWAKE2 

GWAKE 
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SAVE  RET  Jf  N 2FCADP  . 


WHEN  AWAKENED,  SEE  IF  GYROS  STILl  BUSY. 
IF  sn,  STEEP  SOME  v0RE. 


RESTORE  SWRETURN  INFO. 


GAP 


ASSEMBLC  REVISION  001  OF  AGC  PROGRAM  AMIkGPC  BY  E YL  E S 


L 7 MU  MODE  SWITCHING  ROUTINES 


P0352 


GYRO-TORQUI NG  WAITLIST  TASKS. 


035  3 
03  5 A 
035  5 


REE 


• EE  I'  LAST  131  ! 


G 7 * 340  5 
07,3406 
CT  ,3407 


4 3626  1 
0 0006  l 
03  014  1 


SIRTGYhLi  cs 

EXTEND 

WAND 


0356  REF 


6 LAST  1316  C 7 , 3 4 1 C 0 3641  1 


TC 


0357 

0358 

0359 

0360 

0361 

0362 

0363 


REF 

REF  47 
REF  4l> 

REF  1 


LAST  1320 

LAST  1317 
L A c T 131° 


07,341  1 
o 7 , 34 1 2 

07.3413 

07.3414 

07.3415 

07.3416 

07.3417 


3 1314  G 

0 0 0Q6  ]. 

7 4750  0 
50  000 l 

1 3416  0 
0 3433  0 

00202  1 


STRTGYR2  CA 

EXTEND 

MP 

INDEX 
TC  F 
TC 
DC  T 


0364  REF  2 LAST  3321  07 

0365  07 

0366  REF  3 LAST  1321  C7 

0367  07 

0360  ref  23o  LAST  1318  Cl 

0369  PEE  6 LAST  1321  07 

0370  REF  2 LAST  1320  C7 

0371  PEF  6 LAST  1220  0? 

0372  REF  2 1 AST  1316  07 


3420 

0 34  33 

0 

TC 

342  1 

00302 

0 

OCT 

342  2 

0 3431 

1 

TC 

3423 

00100 

0 

OCT 

3424 

3 4755 

1 

CAF 

3426 

56*314 

1 

TS 

3426 

3 3404 

1 

CAF 

34  27 

C 5137 

1 

TC 

3430 

1 3232 

0 

NORESET  TC  F 

GDESELCT 

CHAN  14 

CAGETES  r 

LGYRG 

B I T4 
A 

+ 1 

GSELECT 

00202 

GSELECT 
00  302 

GSELECT  -2 
00100 

ZERO 

LGYPO 

LGWAKE 

JOBWAKE 

IMUFI  JED 


3:15  DE  C 
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USER'S  PAGF  NO.  13  F3  S4 

DE-SELECT  LAST  GYRO. 

JUMP  ON  PHASE  COUNTER  IN  8 1 Tc  13-14. 

=0.  DO  Y GYRO. 

=1.  DO  Z GYRO. 

=2.  DC  X GYRO. 

=3.  DONE 

WAKE  A POSSIBLE  SLEEPING  JOB. 


DO  NOT  RESET  POWER  SUPPLY 


GAP: 

assemble  re 

VISION  DC  1 

iSCF  AGC  .PR  OGL  AM  AP 

1 1R0P  E BY  EYLES 

L 

I MU 

MODE 

swit: 

hing 

RCUTINES 

0373 

REF 

28 

LAST 

1319 

07,3431 

4 ^751 

1 

-2  CS 

FOUR 

0374 

REF 

7 

LAST 

1321 

07,3432 

27' 314 

1 

ADS 

LGYRO 

0375 

P FF 

34  6 

LAST 

1317 

07, 3433 

50  002 

0 

GSELFCT  INDEX 

0 

0376 

07,3434 

3 0000 

1 

CAF 

0 

0377 

RFF 

1 3 

LAST 

1300 

07, 34 3 K 

54  064 

1 

Tc 

ITFMP/ 

0378 

E F 

19 

LAST 

1293 

07,3436 

7 4757 

1 

MASK 

SEVEN 

0379 

RFF 

45 

LAST 

1317 

07,3437 

6 4737 

0 

AD 

BIT13 

0380 

REF 

a . 

LAST 

1322 

G 7,  344  0 

27 '314 

1 

ADS 

LGYLQ 

0361 

REF 

7 3 

LAST 

13  19 

Cl,  14  4 1 

54  CC3 

0 

TS 

EBANK 

0382 

REF 

18 

LAST 

1319 

07 , 3442 

7 4357 

0 

MASK 

L 0 W 8 

0383 

REF 

50 

L ACT 

131° 

C 7 , 36V.  3 

54  06  1 

1 

TS 

1 TEMP1 

0364 

REF 

20 

l.  AST 

1322 

07,3444 

4 4757 

1 

CS 

SEVFN 

0385 

REF 

14 

LAST 

1322 

C 7, 344 5 

/ 0064 

1 

MASK 

ITEMP4 

038  6 

REF 

15 

LAST 

1322 

07,3446 

54  064 

1 

TS 

1 TEMP4 

QO  q7 

07 , 3467 

9 900  6 

1 

F y T FND 

\J  Tv  U Cv 

t—  A I t-  1 V Lv 

0368 

REF 

51 

LAST 

132? 

C7, 3450 

5 0061 

0 

INDEX 

ITEMP1 

0389 

07, 3451 

3 1401 

0 

DC  A 

1400 

0390 

REF 

47 

LAST 

1300 

C7 , 345  2 

52  071 

0 

DXCH 

RUPTREG1 

0391 

REF 

48 

LAST 

1322 

C 7 , 345  3 

10  070 

1 

CCS 

PUP' PEG 1 

0392 

RRF 

1 

07,3454 

1 3467 

0 

TC  F 

MAJ  + 

0393 

07,3455 

1 3457 

0 

TC  F 

+ 2 

0394 

REF 

1 

07,3456 

1 3607 

1 

TC  F 

MAJ- 

0395 

REF 

10 

LAST 

1 3 00 

07,3457 

10  071 

0 

CCS 

RUPTRFG2 

0396 

REF 

1 

07,3460 

1 3464 

0 

TCF 

MIN+ 

0397 

!?EF 

1 

07 ,3461 

1 34  1 1 

1 

TC  F 

ST1-  T 0 Y 1 2 

vJ  1 1 7 T * C. 

0398 

RFF 

1 

07 , 3462 

1 3604 

1 

TCF 

M I N- 

0399 

REF 

2 

LAST 

1322 

C7, 3463 

1 3411 

1 

TCF 

STRTGYP2 

3:15  DEC.  2,1970 
USER'S  PAGE 
SPECIAL  ENTRY  TO 


SKIPPER  .087  PAGE  1322 
NO.  14  E 3 SA- 

fl  EGR  ES  S LGYP  0 FTP  X. 


SELECT  GYRO. 

PACKED  WORD  CONTAINS  GYRO  SELECT  BITS 
AND  1NCCEMFNT  TO  L GYC  0 . 


MOVE  DP  COMMAND  TO  RIJPTREGS  FOR  TFST I NG 


AP:  ASSEMBLE  LF VISION  OC 1 Of  AGC  PLUG1  AM  AP11R0PE  BY  EYLES 

I MU  MODE  S W ITCHING  f'JTINES 


0400  RFF  1 07, 

0401  07, 

040?  REF  3 LAST  1322  U7, 

040?  C 

04-06  Rtf  1 0 7, 

0405  REF  49  LAST  1322  07, 


34b4 
3465 
346  6 

6 

0 

6 

3520 

0006 

3411 

0 

1 

0 

MIN+ 

AD 

EXTEND 

BZMF 

346  7 

0 

C006 

1 

MAJ  + 

EXTEND 

3470 

3 

3630 

1 

DC  A 

3471 

20 

071 

0 

DAS 

0406 

REF 

16 

LAST 

1322 

07,  347  2 

3 

0064 

0 

0407 

07,3473 

0 

COOP 

1 

040  8 

P EF 

20 

L AS'r 

1321 

C 7, 36 74 

05 

014 

1 

CA 

EXTEND 

W0;< 


04  09 

REF 

10 

LAST 

1308 

07,3475 

3 

6074 

1 

0410 

REF 

1 1 

LAST 

1322 

07,3476 

7 

0 071 

0 

06  11 

Rfc  F 

12 

LAST 

1323 

C 7 , 3477 

56 

071 

1 

0412 

07,  3500 

0 

0006 

1 

0413 

REF 

3 9 

(AST 

]?•  . 

07,3  5 0 1 

7 

6 ?4h 

0 

04  1 6 

PEE 

7 1 

I \ r r 

1 300 

07,3502 

5 ' 

062 

C.  JL 

0415 

REF 

50 

LAST 

1323 

07,3503 

3 

0070 

0 

0416 

07, 3504 

0 

0006 

1 

0417 

REF 

29 

LAST 

1310 

07,3505 

7 

4743 

1 

04 1 8 

REF 

51 

LAST 

1323 

07,3506 

54 

070 

1 

041  9 

RFF 

2 32 

LAS" 

131  2 

07, 3507 

3 

0 001 

0 

0420 

07,3510 

0 

0006 

1 

0421 

REF 

71 

LAST 

1285 

C7 , 35 1 1 

7 

4736 

0 

0422 

REF 

22 

LAST 

1323 

07, 3512 

26 

062 

1 

CAP 

MASK 

XCH 

EXTEND 

MP 

TS 

CA 

EXTEND 

MP 

TS 

CA 

EXTEND 

MP 

ADS 


04?  3 

0424  REF  52 

042  K 0 EF  1 

0426  REF  416 

0427  REF  1 

04  2 e 

04  2 9 


LAS'" 

13  23 

07 

07 

LAST 

1321 

07 

07 

n 7 

07 

35 L 3 0 CO OF  1 

3514  3 0071  1 

3515  6 7747  i 

3516  10  000  0 

3517  1 3543  1 

3520  77601  0 

3531  1 36  2 5 1 


EXTFND 
DC  A 
AD 
CCS 
TCF 

-GYFOMIN  OGI 
TCF 


04 3 C REF  1?  LAST  1323  07,3622  3 4736  1 CAF 

0431  REF  23  LAST  1323  07,3523  26  062  1 ADS 

0432  REF  235  LAST  1321  C7,3524  3 4755  1 CAF 

043^  REF  52  LAST  1322  07,3526  50  06l  0 +4  INDEX 

0434  C? ,3526  53 '401  1 DXCH 


-GYROMIN 

STRTGYR2 


G YROFR  AC 
RUPTREG1 

I TEMP 4 

CHAN  1 4 

L0W7 

RUPTREG2 
UP"  R E 6 2 

BTTR 
T TFMP? 
RUPTREG1 

BITR 

RUPTREG1 

L 

BIT  14 
I TEMP2 


nUPTREGl 

MINUS1 

A 

LONGGYPC1 

-176 

+ 4 

R T T 1 4 
1 TEMP2 
ZERO 

I TEMPI 

1400 
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USER'S  PAGE  NO.  15  E3  S4 

SMALL  POSITIVE  COMMAND.  SEE  IF  AT  LEAST 

16  GYRO  PULSES. 

DEFINITE  POSITIVE  OUTPUT. 


SELECT  POSITIVE  TOP.QUING  FOR  THIS  GYRO. 


LEAVE  NUMBER  OF  POSSIBLE  8192  AUGMENTS 
TO  INITIAL  COMMAND  IN  MAJOR  PART  OF  LONG 
TERM  STOP  AGE  AND  TRUNCATED  FRACTION 
IN  MINOR  PART.  THE  MAJOR  PART  WILL  BE 
COUNTED  DOWN  TO  ZERO  I N THE  COURSE  OF 
PUTTING  OUT  THE  ENT  IP E COMMAND. 


INITIAL  COMMAND. 

SEE  IF  MORE  "rH AN  ONE  PULSE  TS  Ai  NEEDED 
CM  RE  THAN  16333  PULSES). 


MAY  BE  ADJUSTED  TO  SPECIFY  MINIMUM  CM D 


GAP:  ASSEMBLE  RE  V I S 1 3 N 001  OF  AGC  PROGRAM  AP11R0PE  BY  EYLES 


0435 

0436 

r,  /,  -2  7 

I MU  ' 

REF 

REF 

MODE 

24 

3 

SW  ITS 

LAST 

LAST 

HING  ROUTINES 

1323  07,3527 

1315  07,3530 

3 0062 
54  047 

0 0 ( / j A 

0 

0 

1 

LAST  SEG 

CA 

TS 

F X TEMPI 

I TEMP2 
GYROCMD 

VJ  V L vU 

X 

043  8 

REF 

A3 

LAST 

1318 

07,3532 

7 6 742 

c 

MP 

BITIO 

CA-3  9 

REF 

37 

LAST 

1308 

07, 3533 

6 6 245 

1 

AD 

T HR  E F 

0440 

5 EF 

45 

LAST 

1319 

PT, 3634 

0 5203 

0 

TC. 

W A I T 1 1ST 

0441 

REF 

20 

LAST 

1319 

E3, 1474 

EBANK= 

CDUIND 

0442 

REF 

2 

LAST 

1319 

07,3535 

03405 

0 

2C  ADR 

STRTGYRO 

0442 

07,3536 

16  103 

1 

0448 

REF 

44 

1 AS" 

1 324 

07,3537 

3 4742 

1 

GY;  (’EXIT 

CAF 

BITIO 

044Q 

07, 3540 

0 0006 

1 

EXTEND 

045  0 

REF 

21 

LAST 

1323 

07,3541 

05  014 

1 

WOR 

C HAN  1 4 

045  1 

REF 

73 

LAST 

1317 

07,3542 

l 5261 

0 

TCF 

T ASKOVER 

045  2 

REF 

5 3 

LAST 

1323 

07,  354  3 

50  06  1 

0 

LCNGGYP C 

IF  DEX 

I TEMPI 

0453 

07,3544 

53 '401 

1 

DXCH 

1 400 

04-5  a 

REF 

73 

l.  A$T 

13  23 

07 ,3546 

3 4735 

1 

CAF 

ft  IT  1 4 

0455 

REF 

2 5 

LAST 

1324 

07,3546 

6 0062 

0 

AD 

I TEMP2 

0456 

REF 

4 

LAST 

1324 

07,3547 

54  047 

0 

TS 

GYROCMD 

0457 

07,3550 

0 OF  06 

1 

AUG  3 

EXTEND 

04  5 8 

REF 

45 

LAST 

1324 

07,3551 

7 <742 

0 

MP 

BITIO 

0459 

REF 

4 

LAST 

I 286 

07,3552 

6 7745 

0 

AD 

MEG  3 

0460 

REF 

46 

LAST 

1324 

07,3553 

0 520  3 

0 

TC 

WAITLIST 

04  61 

REF 

21 

LAST 

1324 

E3 , 1474 

EBANK= 

CDUIND 

0462 

REF 

1 

,07,3554 

035  57 

G 

2 CADE 

8 19  2 AUG 

0462 

REF 

1 

07 ,3555 

1610  3 

1 

0463 

RFF 

1 

07,3556 

1 3537 

1 

TCF 

GY!  (’EXIT 

0464 

REF 

7 

LAST 

1321 

07,3557 

0 3641 

1 

8 1 92  AUG 

TC 

CAGETEST 

04641 

REF 

48 

LAST 

1321 

07,3560 

3 4750 

1 

CAF 

B I T 4 

0464  2 

07,3561 

0 1 006 

1 

EXTEND 

OR  64  3 

REF 

64 

LAST 

1317 

07, 35f 2 

02  012 

0 

RAND 

CHAM  2 

04644 

REF 

417 

l AST 

1 323 

07,3563 

10  000 

0 

CCS 

A 

04645 

REF 

3 

LAST 

1314 

07,3564 

1 3637 

1 

TCF 

I MUBAD 

0465 

REF 

9 

L AST 

1322 

07,3565 

3 1314 

0 

CA 

LGYRO 

0466 

REF 

74 

LAST 

1322 

C 7 , 3 56  6 

54  CO  3 

0 

TS 

EBANK 

0467 

REF 

1° 

LAST 

1322 

07,3567 

7 4357 

0 

MASK 

L0W8 

0468 

REF 

54 

LAST 

1324 

07,3570 

5 < 061 

1 

TS 

I TEMPI 

04  69 

p EF 

55 

LAST 

1324 

C7, 357  1 

50  061 

0 

INDEX 

ITEMP1 

0470 

07,3572 

11 '400 

0 

CCS 

1 400 

0471 

REF 

1 

07,3573 

1 3577 

0 

TCF 

AUG2 

0472 

RFF 

74 

LAST 

1324 

07,3574 

3 4736 

1 

CAF 

8 IT  1 4 

0473 

REF 

5 

LAST 

1324 

07,3575 

26  047 

0 

ADS 

GYROCMD 

0474 

REF 

1 

07,3576 

1 353  1 

1 

TCF 

LASTSEG  +1 

3:15  DEC 
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. 2,1570 

USER  •$  PAGE  MG.  16  E3  S4 

ENTIRE  COMMAND. 

WAITLIST  DT 

TRUNCATION  AND  PHASE  UNCERTAINTIES. 


INITIAL  COMMAND  nyT  PLUS 
8192.  INITIAL  COMMAND  IS 


N AUGMENTS  OF 
AT  LEAST  8192. 


GET  WAITLIST  DT  TO  T I M F WHEN  TRAIN  IS 
ALMOST  OUT. 


ADD  8192  PULSES  TO  GYROCMD 


SEE  IF  THIS  IS  THE  LAST  AUG. 


MORE  TO  COME 


GAP:  ASSEMBLE  REVISION  ' 1 GE  A GC  PROGRAM  AP11ROPE  BY  LYU 


L 1 MG  'CUE  SWITCH J “G  I HI*  ’ FT 


0475 

REF 

56 

LAST 

1324 

07,3577 

0476 

07,3600 

047  7 

REF 

7 5 

LAST 

1324 

C7 » 3 1 

047  E 

REF 

fc 

LAST 

13  24 

07,3602 

0479 

REF 

1 

07,3603 

50  061 

0 AUG2 

INDEX 

l TEMPI 

55 '400 

0 

TS 

1400 

3 4736 

1 

CAP 

31  T14 

26  047 

0 

ADS 

GYROCMD 

1 3550 

0 

TCP 

AUG3 

3: 15  DEC 
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4 


2,1970  SKIPPEP  .087 


USER'S  PAGE  NO.  17 


E 3 S4 


..z 

COMPUTE  DT. 


GAP: 


0480 

0481 

0482 

0483 
04  84 

0485 

0486 

0487 
04  8 8 

C4  4Q 

0490 

0491 

0492 
04  9 3 

0494 

0495 

0496 

0497 

0498 

0499 
0499 


ASSEMBLE  :.fc  V1SI0I  :001  OB  A'-jC  PROGRAM  AP11RUPE  BY  EYLBS 


I MU 

MODE 

SWITCHING 

ROUT INE5 

REF 

2 

LAST 

132  3 

07,3604 

6 3520 

0 

MI  N- 

AD 

- V 

07, 3605 

0 C006 

1 

EXTEND 

1 FF 

4 

! A l\T 

1 3?  3 

n 7 ..  84  0 6 

4 341  1 

0 

BZMF 

c TkTGV : 2 

...  *T'~ 

V / t J • 

-D  ll 

07,3607 

0 0CG6 

1 

MAJ- 

EXTEND 

REF 

2 

LAST 

1353 

07,36] 0 

4 3630 

0 

DCS 

GYROFRAC 

REF 

53 

LAST 

1323 

07,3611 

20  071 

0 

DAS 

PUPTREG1 

REF 

L 7 

LAST 

1323 

07, 3612 

3 006.4 

0 

CA 

I TEMP4 

REF 

30 

LAST 

1323 

07,3613 

6 4743 

0 

AD 

B I T9 

07, 3614 

0 0006 

1 

EXTEND 

F’  FF 

22 

! AST 

1324 

C 7 , 3 6 1 5 

0 6 01 4 

WUR 

chan 1 4 

REF 

54 

LAST 

1326 

07,36  16 

4 0070 

1 

CS 

RUPTREG1 

REF 

5 5 

LAST 

1.3  26 

07,3617 

5 4 0 70 

1 

TS 

RUPTREG1 

REF 

13 

LAST 

132  3 

07, 3620 

4 0071 

0 

CS 

LUPTREG2 

REF 

11 

LAST 

1 323 

07,3621 

7 6074 

0 

8AS  K 

LOW  7 

rv?  . 7 4 ? ? 

6 0000 

0 

C n M 

f C.  C. 

REF 

14 

L AS  T 

1 326 

07, 3623 

56  071 

1 

XCH 

R.UPTF  EG? 

07,3624 

4 OCOO 

0 

COM 

REF 

1 

07,3625 

1 35  00 

0 

TCF 

GMERGE 

07,3626 

017  00 

1 

GDE8ELCT 

OCT 

1700 

07,3627 

00000 

1 

GYRCFRAC 

2DEC 

.215  B - 

07,3630 

00034 

0 

3:15  DEC.  2,1970  SKIPPER  .087  PAGE  1326 
USER'S  PAGE  NO.  18  E3  S4 

POSSIBLE  NEGATIVE  OUTPUT. 


DEFINITE  NEGATIVE  OUTPUT. 


SELECT  NEGATIVE  TORQUING  FOR  THIS  GYRO. 


SET  UF  RUPTPEGS 
ALL  NUNBERS  PUT 
POSITIVE  - B I T9 
THE  SIGN  OF  THE 


TO  FALL  INTO  GMERGE. 
INTO  GYROCMD  ARE 
OF  CHAN  14  DETERMINES 
COMMAND. 


TURN  OFF  SELECT  AND  ACTIVITY  8!TS 


GAP:  ASSEMBLE  -E  VI  SION  I OF  A ,-C  P-  OG-  AM  API  IROPE  BY  EYLtS 


L I'  J 'DDE  SWITCHING  ' ITI  <E$ 

P 0500  IMU  'I ODE  SWITCHING  ROUTINES  COME  HERE  WHEN  ACTION  COMPLETE 


0501 

07 ,3631 

0 COOo 

1 

END IMU 

EXT  END 

0502 

REF 

33 

LAST 

1116 

07, 3632 

00  011 

1 

READ 

0503 

REF 

55 

L A S T 

1318 

€7,3433 

7 47  53 

0 

MASK 

0504 

REF 

41  n 

LAST 

13  24 

€7, 36 3 a 

10  000 

0 

CCS 

0505 

REF 

4 

LAST 

1324 

07,3635 

1 3637 

1 

TCP 

0506 

REF 

3 

LAST 

56  3 

G 7 , 36  3 6 

1 36  65 

0 

i MUG GOD 

TCP 

0507 

REF 

236 

LAST 

1323 

07,3637 

3 4755 

1 

I MUBAD 

CAF 

nfc  rvp 

Q CC 

? 

1 A C 

C f.  7 

r 7 . ; i c n 

1 Ot,  f.  O 

1 

Trc 

u"  UR 

r\  c r 

LAO 

1 

I L r 

0509 

REF 

53 

L AST 

1319 

07, 364  1 

3 4746 

0 

CAGETEST 

CAF 

05 1 G 

REF 

64 

LAST 

1318 

07,364? 

7 1302 

0 

MASK 

0Kl  1 

REF 

•<  1 9 

LAST 

13  27 

07, 364  3 

10  000 

0 

CCS 

051? 

REF 

5 

LAST 

1327 

07,3644 

1 3637 

1 

TCF 

i 3 

P F F 

Hi,.  7 

1 A RT 

1 3 7 7 

0 7 . 7 A A F 

i • r n r ? 

o 

t r 

LHjI 

1 D L.  c. 

V i } Jv  . O 

vj  v vut 

XJ 

0514 

REF 

65 

LAST 

1327 

07 , 3646 

4 1302 

0 

CAGETSTQ 

cs 

0515 

REF 

54 

LAST 

132  7 

07,364 7 

7 A746 

1 

MASK 

05  If 

REF 

420 

LAST 

1327 

07,3650 

10  000 

0 

CCS 

0517 

REF 

348 

l AST 

1327 

07,365  1 

24  (02 

0 

I NCR 

0518 

REF 

349 

LAST 

1377 

07,3652 

0 000  2 

0 

TC 

0519 

REF 

66 

LAST 

1327 

07,3653 

4 13  02 

c 

cagetstj 

CS 

0520 

REF 

55 

LAST 

1327 

07,3654 

7 4746 

1 

MASK 

0521 

REF 

421 

LAST 

1327 

€7,3655 

10  000 

0 

CCS 

052? 

REF 

350 

LAST 

1377 

07,3656 

0 (CO 2 

o 

TC 

052  3 

REF 

237 

LAST 

1327 

07,3657 

4 4755 

0 

CS 

0524 

REF 

4 

L AST 

112  1 

07,3640 

5 5 • 3 04 

0 

TS 

0525 

REF 

7 

LAST 

1319 

• , 3,44  L 

1 2755 

0 

TCF 

DSALMOUT 
B IT  1 
A 

I MUBAD 

GuuOEND 

ZERO 
P ADFNO 

31  T6 

IMUDt  S3t 
A 

I MUBAD 
Q 

I MODE S3 C 
BITE 
A 
0 
0 

T MO  D E S 3 0 
B I T6 
A 
Q 

ZERO 
I MUCADR 
MODE  EXIT 
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MODE  IS  BAD  IF  CAGE  HAS  OCCUR ED  CP  IF 
ISS  WARNING  IS  ON. 


WITH  CIA)  = 0. 


SUBROUTINE  T 0 TERMINATE  IMU  MODE 
SWITCH  IF  IMU  HAS  BFEN  CAGED. 

DI  - EC  Tl Y . 

WITH  CIA)  = +0. 

SKIP  IF  IMU  NOT  BEING  CAGED. 


IF  DURING  MODE  SWITCH  INITIALIZATION 
IT  IS  FOUND  THAT  THE  IMU  IS  BEING  CAGED, 
SET  I MUCADR  TP  -0  TO  INDICATE  OPERATION 
COMPLETE  BUT  FAILED.  RETURN  IMMEDIATELY 


TO  SWRETURN 


i 


GAP:  ASSE  BLE  EVISIDN  iOl  OF  AGI.  P'-UGRA.M  API  J.ROPE  BY  EYLES  3:15  DEC.  2 ,1970  SKIPPER  .087  PAGE  1323 

L IMU  MODE  SWITCHING  -TUT  I NFS  USER’S  PAGE  NO.  20  E3  S4 


'0526 

0528 

00  AT  BAD 

GENERALI  ZED 
END  FOR  AN 

MODE  SWITCHING  TER 
UNSUCCESSFUL  ONF. 

MI  NAT  ION 
C ( A ) OR 

. ENTER 
ARR  IV  AL 

AT  GOODEND 
=0  FOR  IMU, 

FOF  SUCCESSFUL  COMPLETION  OF  AN  I/O  OPERATION 
1 FOR  OPTICS. 

0530 

RFF 

15 

LAST 

1 326 

OT, 3662 

56-  0 ? 1 

0 

B A 0 E Ki  D 

TS 

PUP TP  EG? 

DEVICE  INDEX. 

0531 

REF 

2 33 

LAST 

1 327 

07,3663 

A 475  5 

0 

CS 

ZERO 

FOR  FAILURE. 

RE  F 

A 

LAST 

132  7 

f 7 . 3 A 6 4 

1 36  67 

l 

TCP 

GOODEND  +2 

c. 

in  1 

0533 

REF 

16 

LAST 

1328 

07,3665 

54  071 

0 

GOODEND 

TS 

KUPTREG2 

0534 

REF 

132 

LAST 

1320 

07,3666 

A 4 7 53 

0 

CS 

ONE 

FOR  SUCCESS. 

053  5 

REF 

13 

LAST 

13  00 

07,3667 

54  07? 

0 

TS 

RUPT  EG? 

0536 

c EF 

1 7 

L AST 

132  8 

r.7 . 3 A 7 0 

50  071 

1 

I ODE  X 

k HPT  F R ? 

cpp  Tn  m ^ T N!  po  nnr?  am  a^i  pfp 

'<1  U > f v." 

X 

J L L ll  UJ  1 r 1 'U  ' M 1 M O l_  IT  P.  • • 

0537 

REF 

5 

LAST 

27  A 

07,367 1 

1 1 • 304 

0 

CCS 

MODECADR 

0538 

07,3672 

1 3676 

1 

TCF 

+ 4 

YES  - WAKE  IT  UP. 

0539 

R EF 

1 

0 7, 367  3 

1 3706 

1 

TCF 

ENDMODE 

IF  0,  PROGRAM  NOT  IN  YET. 

05392 

07,36  74 

0 0 006 

1 

EXTEND 

053°4 

F EF 

2 

LAST 

1328 

07,3675 

1 3707 

0 

BZF 

END MODE  +1 

BZF  = TCF  IF  MOOECADP  = -0. 

OSAO 

REF 

239 

LAST 

1328 

07,3676 

3 4755 

1 

CAF 

ZERO 

WAKE  SLEEPING  PROGRAM. 

054  1 

REF 

13 

LAST 

132  8 

07,3677 

50  071 

1 

INDEX 

RUPT;  EG2 

054  2 

REF 

6 

LAST 

1 32  8 

07,3700 

57 ' 304 

1 

XCH 

MODECADR 

05  A 3 

RFF 

7 

LAST 

1321 

( , 3 7 0 1 

1 5137 

1 

TC 

JQ8WAKE 

05AA 

REF 

1A 

LAST 

1328 

C7, 3702 

A 007? 

0 

CS 

RUPTREG3 

ADVANCE  LOC  IF  SUCCESSFUL. 

05A5 

REF 

23 

LAST 

1220 

07, 3703 

50  064 

0 

INDEX 

LOCCTR 

05A6 

REF 

AA 

: A 

126  7 

C 7 , 37  04 

26  164 

0 

ADS 

LOC 

05A7 

P EF 

79 

LAST 

1 32  A 

07 , 3705 

1 52  61 

0 

TCF 

T ASKOVEP 

05A  8 

REF 

15 

LAST 

1328 

07, 3706 

3 0072 

1 

ENDMODE 

CA 

RUPTREG3 

-0  INDICATES  OPERATION  COMPLETE  BUT 

05A  9 

REF 

19 

LAST 

1 328 

07,3707 

50  071 

1 

+ 1 

INDEX 

RUPTREG2 

UNSUCCESSFUL:  -1  INDICATES  COMPLETE  AND 

0550 

REF 

7 

LAST 

1328 

07,3710 

55 * 304 

0 

TS 

MODFC ADR 

SUCCESSFUL. 

0551 

RFF 

80 

LAST 

1 328 

C7  » 371  1 

l 5261 

0 

TCF 

T ASKfVEI- 

GAP  : 
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L I MU  MODE  SWITCH!  "G  ROUTINES  USER’S  PAGE  NO.  21  F3  S4 

P 05 52  GENERAL  STALLING  ROUTINE.  USING  PROGRAMS  COME  HERE  TO  WAIT  FOR  I/O  COMPLETION. 

RG55*  PROGRAM  DESCRIPTION  DATE-  21  FEB  1967 

R 0555  LOG  SECTION  I MU  MODE  SWITCHING 

R 0556  MOD  BY-  R.  ME  LAMS  ON  TO  ADD  DOCUMENT  AT  ION  ASSEMBLY  SUNDISK  r;EV.  32 


R 0 5 5 7 
R 0558 
R 055  c 
R 0560 
R0561 
R 0562 
R 0563 
R 0 5 6 A 
R 0565 
R 0566 
PC567 
P 056  8 
R05E  ° 


FUNCTIONAL  DESCRIPTION- 

TO  OELAY  FURTHER  EXECUTION  OF  THE  CALLING  ROUTINE  UNTIL  ITS  SELECTED 
I/O  FUNCTION  IS  COMPLE  i E . THE  FOLLOWING  CHECKS  ON  THE  CALLING  ROUTINERS 
M 0 CFC  AD  r A'  F MADE  AND  ACTED  UPON. 

I!  +0  INDICATES  INCOMPI.  FTF  I / f OPERA!  I T 1 . CALL  I OC  -CUT  INE  IS  PUT  TO 
SL  EEP . 

2)  -1  INDICATES  COMPLETED  I/O  OPERATION.  STALL  BYPASSES  JOBSLEEP 
CALL  AND  RETURNS  TO  CALLING  ROUTINE  AT  L + 3 

3)  -0  INDICATES  COMPLETED  I/D  WITH  FAILURE.  STALL  CLtARS  MODECADR 
AND  RETJRNS  TP  CALLING  ROUTINE  AT  L +2 . 

' ) VALUE  GREAT!;!  THAN  0 INDICATES  TWt  ! PUT  INE:  CALLING  FOP  USE  OF 
SAME  DEVICE.  ST  A I L FXITS  TC  ABORT  WHICH  FXECUTES  A PROOF  AM  ’ 
RESTART  WHICH  IN  TURN  CLEARS  ALL  MODECADR  REGISTERS. 


R 0570  CALLING  SEQUENCE- 
R 0571  L TC  RANK  CALL 

057  2 t+1  CAD'  (Gmf  F 5 1 "ALL  ADDRESSES  I.E.  I FUST ALL , OPT STALL , c AOS  TALL  , 

R 0573  A? TST m I ATT  STALL  ) 


R 057*  NORMAL-EXIT  MODE- 
R 0575  TCF  JOBSLEEP  01  TC F MODEXIT 

P 057 1 ALARM  OP  ABr.LT  EXIT  MPDF- 

R 6577  TC  ABORT 

R 0 5 7 8 OUTPUT- 

R 0579  P .DEC  ADF=  CA.-OR  IF  J 'BSLEEP 

R.C580  Mf  DFCADf  = + 0 IF  !/<  COMPLETE 

F 058 1 BUF2=L  + 3 IF  I/P  COM  PLETE  AND  GOOD. 

rO+p?  BUF2=L+2  IF  I/O  COMPLETE  BUT  FAILED. 

R 0583  ERASABLE  INITIALIZATION- 

BUF2  CONTAINS  LET Ut  N ADDRESS  PLUS  l,  (1+2) 

R058r  BUF2+1  CONTAINS  FRANK  VALUE  OF  CALLING  ‘OUTINE. 

R 0586  MPDECAD ■ F C A t l I NO  ROUTINE  CONTAINS  +0.-1.-0  OF  C ADR  RETURN  ADDPESS. 

P 0587  DEBP  I S- 

R 058  8 P.UPTREG2  AND  CALLING  ROUTINE  MODECADR. 


0589 

0590 

OFF 

REF 

133 

1 

L AST 

1328 

07. 3712 

07.3713 

3 

0 

/ 7 53 
3717 

1 

C 

AO T STALL 

CAF 

TC 

ONE 

STAl.t 

AOT  • 

0591 

0592 

REF 

REF 

84 

2 

LAST 
l AST 

1319 

1329 

07.3714 

07. 3715 

3 

1 

^ 7 52 
3717 

0 

1 

P ADSTAl L 

CAF 

FCF 

TWO 

STALl 

GAP:  ASS  O'  81.  t rtVISIS'  001  OF  A6C  PT  uGKAM  AP11RGPE  BY  EYLES 


IMU 

MODE 

SWITC 

HING 

ROUTINES 

0593 

REF 

3 

LAST 

960 

C7 , 37 1 2 

OPTSTALL 

EQUALS 

ACTSTAl 1 

0594 

REF 

240 

LAST 

13  28 

G7,3716 

3 4755 

1 

IMUSTAL 1 

cap 

ZERO 

0595 

07,3717 

0 0004 

0 

STALL 

INHTNT 

05  ^ 6. 

ncc 

20 

(ART 

1 X P ft 

07.  P 7 ? 0 

64  0 71 

0 

T S 

o i ip  TP  FO? 

r cr 

L HD  1 

1 D c.  TO 

L 1 } J I L 

0597 

REF 

422 

LAST 

132  V 

C7, 372  1 

50  000 

1 

INDEX 

A 

059  8 

REF 

8 

LAST 

1328 

07,3722 

1 1 ' 3 04 

0 

CCS 

MODE  CADE 

0599 

REF 

1 

07,  .'-7  23 

1 3741 

1 

ICF 

MGOABQRT 

060  0 

REF 

I 

07,3724 

1 3735 

1 

TCF 

MODES LP 

0601 

r FF 

1 

C 7 ,3725 

1 37  31 

c 

TCF 

MCDEGfcCD 

0602 

REF 

21 

LAST 

1330 

07,3726 

50  071 

1 

MG2 

INDEX 

RUPTREG2 

060  3 

REF 

9 

LAST 

1330 

07,3727 

55 ' 304 

0 

TS 

MODECADF 

0604 

REF 

8 

LAST 

1327 

07,3730 

1 2755 

c 

TCF 

MODE EX  IT 

0605 

REF- 

6 23 

LAST 

1330 

o 7,3731 

10  000 

0 

MUDFGOC D 

CCS 

A 

0606 

REF 

2 

LAST 

1330 

07 , 373? 

1 3T41 

1 

TCF 

M 0 0 A & 0 F r 

0607 

0608 


REF  25 
REF  1 


LAST  1320 


07 ,3733 
u 7,3734 


24  133  0 
1 3726  0 


I NCR  BUF2 
TCF  MG2 


0609 
06 1 0 
06  11 
0612 


REF 

13 

LAST 

937 

C7, 3735 

0 4645 

1 

MODESLP  TC 

MAKE CADE 

REF 

22 

LAST 

1330 

07,3736 

50  071 

1 

INDFX 

RUPl REG2 

REF 

10 

LAST 

1330 

C7 , 3737 

55 • 304 

0 

TS 

MODECADF 

REF 

6 

LAST 

1320 

C7, 3740 

1 5133 

1 

TCF 

JOBSLEEP 

061?  REF  26  LAST  1330 
06132  REF  6 LAST  1126 


07,3741  52  134  0 

C 7 , 374  2 C 5716  1 


M3 DA BOH 
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USER'S  PAGE  NO.  22 


E 3 S4 


IMU. 


SAVF  DEVICE  INDEX. 

SEE  IF  OPERATION  COMP L ETE  . 

ALLOWABLE  STATES  ARE  +0,  -1,  AND  -0 . 
OPERATION  INCOMPt FTE. 

COMPLETE  AND  GOOD  IF  = -1. 

COMPLETE  AND  FAILED  IF  -0.  RESET  TO  +0. 
RETURN  TO  CAL L EP . 


MAKE  SURE  INITIAL  $TA"  -1. 


IF  SO,  INCREMENT  RETURN  ADDRESS  AND 
RETURN  IMMEDIATELY,  5ETTING  CADR  = +0 . 

CALL  FROM  SWITCHABLE  FIXED  ONLY. 


TWO  PROGRAMS  USING  THE  SAME  DEVICE 


ASSEMBLE  REV  ISION  001  OF  AbC  PROGRAM  API  l.ROPH  BY  EYLES 


3: 15  DEC 


2,1970 


SKIPPER  .087  PAGE  1331 


GAP: 


P OF  1 5 

Ob  16 

0617 

0618 
061° 
0620 
06  21 
0622 
0623 
06  24 

nfypc 

0626 

0627 
062  8 

062° 

0630 

0632 

0633 

0634 

0635 

0642 

0643 

0644 

06452 

06453 

06454 

0645  5 
0645  6 


I HI  VPOE  SWITCHING  ROUTINES 


USER'S  PAGE  NO . 23  E3  S4 


CONSTANTS  FOR  MODE  SWITCHING  ROUTINES 


KEF 

REF 


REF 

REF 


REF 


LAST 

LAST 


972 
12  86 


•pf  4Q  LAST  1323 


LAST 

LAST 


968 

369 


LAST  1233 


6 75  1 
477  1 
07 , 3 74  4 
4744 

07.3745 

07.3746 

07.3747 
07,3210 
C7, 3750 
07, 37c  1 
C7 , 3752 

07.3753 

07.3754 


Of  030  l 


77500 

77477 

0G074 

1 1307 

'i  0 006 

. 3755 


BIT S3  64 
BITS4C6 
SITS4-5 
IMUSEFLG 
-COMMAX 
-1  ' ^ AX- 

60  OMS 
I MU F I N20 

gohanup 


0CT 

F DUALS 
DEC 
DEC 
DEC 


0 5652  0 
01210  0 


OC  T 14 
OCT  50 
00030 
BIT8 
-191 
-192 
60 

IMUF INE 
ATT  C A DR 

+ 3 

POQDGG 

1210 


REF 

REF 

27 

5 

LAST 

LAST 

1330 

1331 

07.3755 

07.3756 

07.3757 

0 0006 

3 0134 
53*310 

1 

1 

0 

+3 

DC  A 
DXCH 

BUF2 

ATTCADR 

SAVE 

REF 

4 3 

LAST 

I 300 

07,3760 

3 0006 

1 

CA 

B BAN  K 

REF 

21 

LAST 

13  22 

07,3761 

7 47  5 7 

1 

MA  S K 

SEVEN 

REF 

6 

LAST 

1331 

Co,  3762 

27*310 

0 

ADS 

AT'^CAHL  +1 

REF 

32 

LAST 

1113 

07,3763 

3 0167 

1 

CA  \ 

P IGF  * TY  ) 

REE 

2 

LAST 

232 

07,3764 

7 7725 

1 

MASK 

REF 

2 

LAST 

3 6 0 

07,3765 

55*311 

1 

TS 

ATT  PP  I n 

SAVE 

REF 

1 

07, 3766 

3 3772 

0 

CAF 

KALFBCON 

SET  E 

REF 

75 

LAST 

1324 

07,3767 

54  003 

0 

TS 

EBANK 

REF 

56 

LAST 

1287 

C 7 , 37  70 

0 4635 

0 

TC 

POST JUMP 

REF 

l 

07,377  1 

44004 

0 

CADR 

KALCMAN3 

REF 

13 

LAST 

485 

07,3772 

03276 

1 

KALE BOON 

EC  ADR 

BCDU 

INTERPRETER  SWITCH  7. 


IS  KALCMANU  FR EE 


NG 

2 TRYING  TO  USE  SAME  DEVICE 


SAVE  FINAL  RETURN  FOR  KALCMAN3 


t 


GAP:  ASSEMBLE  REVISION  QOl  OF  AG.C  PROGRAM  APllRGPF  BY  EYLES 

L I Mij  MODE  Sw  ITCHING  ROUTINES 


3:  15  DEC.  2,1970  SKIPPER 
USER'S  PAGE  NO.  24 


.037  PAGE  1332 
E3  S4 


P 0646  PROGRAM  DESCRIPTION 

R0647  T MU  STATUS  CHECK  ROUTINE  R02  (SUBROUTINE  UTILITY) 

R 064  8 MOD  NU  - 1 

R 064 9 MOD  BY  - N.BRODEUR 

R0650  FUNCTIONAL  DESCRIPTION 
P 066  1 

R 0652  TO  CHECK  WHETHER  IMU  IS  ON  AND  IF  ON  WHETHER  IT  IS  ALIGNED  TO  AN 

P 065  3 ORIENTATION  KNOWN  BY  THE  CMC.  TO  REQUEST  SELECTION  OF  THE  APPROPRIATE 

R065 ' PROGRAM  IF  THE  IMU  IS  OFF  OR  NOT  ALIGNED  TO  AN  ORIENTATION  KNOWN  BY  THE 
R06rr  CMC.  CALLED  THROUGH  BANKCALL 
R 0656  CALLING  SEQUFNCE- 
R 0657 

R 065  8 L TC  BANKCALL 

R0659  L + l CADF  RO  2 BOTH 

R 0660  SUBROUTINES  CALLED 
R 06  6 1 

R 066  2 VARA!  ARM 

R 0663  FLA &UP 

R 0664  NORMAL  EXIT  MODES 
R 066 5 

R 0666  AT  1+2  OF  CALLING  SEQUENCE 
R0667  ALARM  OR  ABORT  EXIT  DDES 

R 0668  GCTOPOOH,  WITH  ALARM 

R 067  3 ERASABLE  INITIALIZATION  f E#IRED 
R 0674 

R067r'  NONE 
R 06  7 6 DEBITS 
R 0677 

R 067  f CENT  ALS-A,Q,I. 


067  0 

34, 37 7 F 

R A M K 

-2  A 

0680 

REF 

1 

04,2000 

u n 1 v r\ 

SETLOC 

R 02 

0681 

04,3253 

BANK 

0682 

RE  F 

1 

COUNT* 

t t/ur.o 

4>  / K . e 

0683 

04,3253 

CL  06  3 

1 

DECS  1 

DEC 

5 1 

0684 

REF 

7 

L AST 

1315 

04, 3254 

3 

4737 

0 

P.0  2BPTH 

CAF 

REFSMBIT 

0685 

REF 

20 

LAST 

131  5 

04,3255 

7 

0077 

0 

MASK 

FLAGWRD3 

0686 

REF 

424 

LAST 

1330 

04,3256 

10 

000 

0 

CCS 

A 

0687 

REF 

1 

04,3257 

0 

3270 

1 

TC 

RG2ZER0 

0688 

REF 

67 

LAST 

1327 

04,3260 

3 

1302 

1 

CA 

I MODES30 

0689 

REF 

31 

LAST 

1326 

04,326  1 

7 

4743 

1 

MASK 

B I T9 

0690 

04, 3262 

0 

0006 

1 

EXTEND 

0691 

04,3263 

1 

3265 

1 

BZF 

+ 2 

0692 

REF 

49 

L AST 

1324 

04,3264 

4 

475  0 

0 

CS 

B I T 4 

0693 

REF 

1 

04,3265 

6 

3273 

1 

AD 

CCT220 

0694 

P.EF 

4 

LAST 

621 

04 , 3266 

0 

5744 

0 

TC 

VARAl  AR  M 

06<^ 

REF 

67 

LAST 

983 

04,3267 

0 

6 00  1 

0 

TC 

GOTOPOOH 

0700 

REF 

70 

LAST 

1254 

04,3270 

0 

5504 

0 

R02ZER0 

TC 

UPF1 AG 

ZERO  IMUS 


IS  ISS  INITIALIZED 


SEND  IMU  ALARM  CODE  210 
SEND  REFS  .MM  ALARM 


l 


GAP:  ASSL  Bl.  E REVISION  001  ,CF  AGC  PROGRAM  AfllRUPE  BY  £YLfc< 


I MU 

Ml  OE 

SWITC 

HI  NG 

•r  i m u is 

0701 

REF 

6 

LAST 

983 

04,3271 

00007 

0 

ACRES 

I M'JSE 

070? 

F EF 

10 

LAST 

1318 

04,3272 

1 4631 

0 

TCF 

SWRETUF  N 

07  02  i 

04,3273 

00220 

1 0CT220 

OCT 

2 20 

3:15  DEC . 2, 

1970 

SKIPPER 

.08?  page 

USER'S 

PAGE 

NO.  25 

E 3 S4 

1333 


GAP  : 

L 

P 0703 

R 0704 

R070E 
R 0707 
P.  07  09 

R 071  C 
R 0 7 11 

R0712 
R 07 1 3 
R 07  16 

R0719 


assemble  re 

; vision  ooi 

OF  AGC  PROGRAM  API  1 OPE  BY  EYLKS 

3:15  DFC.  2,1070 

SKIP 

PER 

.087  PAGE 

I HU  MODE 

switching 

ROUTINES 

USER'S  PAGE 

NO. 

26 

E 3 S4 

PROGRAM  DESCRIPTION  P06  10FEB67 

ThANSFEF  THE  I$5/CH(  PROF  THE  OPERATE  TO  THE  STANDBY  CONDITION. 

THE  TO  r-  A L CONDITION  - F .EAfilNESS  OF  THE  GMC  S WHFN  NOT  IN  USE  IS  STANDBY.  IN  THIS  CONDITION  THE  I MU 
HE  ATP-  POWF r'  IS  'N.  THE  IMU  0 P F R A'1  6 POWER  T S OFF.  THE  COMPUTER  POWER  I PON.  THE  OPTICS  POWER  IS  OFF.  THE 
C*'C  STANDBY  ON  THE  MAIN  AND  LEB  DISKYS  IS  ON. 

CALL  ING  SEQUENCE : 

ASTRONAUT  PEQUFST  THROUGH  DSKY  V37E  06E. 

SUBFOUT  IN  ES  CALL  Ft): 

G0PERF1 
BANKCALL 
FLAG DOWN 


GAP 


ASSEMBLE  REVISION  001  OF  AGC  PL  CGP AM  APllNOPE  BY  EYLES 


3:  15  DEC 


2,1970  SKIPPED  .097  PAGE  1335 


L I MU  MODE  c - IT  C I ' • ' 0 KHITU-  ES 

p 08 1 0 PRESTAND  PREPARES  FOR  STANDBY  BY  SNAPSHOTTING  THE  SCALER  AND  TIME1  TIME2 

R0811  THE  LOW  5 BITS  OF  THE  SCALE!  A E INSPECTED  0 INSURE  CGMPATABILITY 

R 0612  BET  WEE  ' THE  SCALE*-  ft  FADING  AND  THE  TIM  El  T I M E 2 READING. 


OP  1 2 5 REF  1 37,2000 

09126  37  * 365 ^ 


SETI.OC  P05P06 
BAN* 


2" 


0813 

REF 

2 

LAST 

99 

0314 

E B A N K = 

TIME2SAV 

n c c 

. 

r i i im  r * 

<r,  t / o n a 

Uo  is- 

Kcf 

i 

V l . vJ  ’N  ' ^ 

08161 

F EF 

71 

L AR'r 

1332 

37, 3655 

0 5504 

0 

P 06 

TC 

UPFLAG 

API  / A 

o r p 

1^ 

i a <;t 

i o i n 

A 

ADR  FS 

hrnnPi  An 

U “ J.  1 C 

t:  r 

LaoI 

It  lv 

O f f O C 

U v.7  v 

V 

0815 

3 7 ,365  7 

C 0004 

0 

PP  E STAND 

INHINT 

0816 

37, 3660 

0 0006 

i 

EXTEND 

081 7 

REF 

33 

i AST 

1307 

3 7 ,36  p 1 

3 00  2 5 

0 

CCA 

T I M F 2 

08)  - 

P EF 

3 

LAST 

1335 

3 7,366  2 

52  315 

1 

DXC  H 

TIME2SAV 

nai  c 

D pt 

1 

■1 7 .APPJ 

A 7 7 1 U. 

o 

Tf 

c r a | opFf 

vOl  . 

cr 

I 

or  j .“oo  j 

V7  D 1 

1 

C>  c,  ;a  l ■ r r r 

0820 

REF 

1 

37,3664 

0 36  57 

0 

TC 

PRESTAND 

0821 

REF 

790 

LAST 

1320 

37,3665 

52  155 

1 

DXCH 

MP  AC 

0822 

DtP 

i 

n 

nyr  m 

C r A ! QAVF 

' F 1 

i 

J i f - > v L-  ' - 

JC  O 1 i 

O 

uau  n 

O v»  AA  1.  jUV  C. 

0823 

37,3667 

0 0004 

0 

INHINT 

0824 

REF 

311 

LAST 

12  65 

37,3670 

0 4616 

1 

TC 

BANKCALl 

0825 

RFF 

3 

1 AST 

1 7( 

37,3671 

17175 

1 

CADR 

RNDRFFDR 

0826 

REF 

C1 

LAST 

1210 

37,3672 

0 5516 

0 

TC 

OOWNFLAG 

0827 

REF 

7 

I AST 

1333 

37, 3673 

0(007 

0 

ADKES 

I MUSE 

082“  1 

REF 

92 

LAST 

1 335 

37,3674 

0 5516 

0 

TC 

DOWNFL AC 

08272 

REF 

6 

LAST 

838 

37,3675 

00010 

0 

ADf-  FS 

' NOVZPl G 

0828 

REF 

29 

LAST 

1311 

37,3676 

3 4741 

1 

CAE 

B I T 1 1 

032° 

37,3677 

0 0006 

1 

EXTEND 

0830 

REF 

20 

LAST 

99  7 

37,3700 

05  013 

0 

WUR 

CHAN 13 

0831 

REF 

113 

LAST 

1242 

37,3701 

0 5353 

1 

TC 

PHASCHNG 

0832 

37,3702 

07024 

0 

OCT 

07024 

0833 

37,3703 

20000 

0 

OCT 

20000 

08335 

REF 

2 

LAST 

1335 

0316 

EBANK= 

SCA1SAVE 

0834 

REF 

1 

37,3704 

03734 

1 

2 C A 0 D 

PCSTAND 

0834 

REF 

1 

37,3705 

76060 

0 

0835 

REF 

1 

37,3706 

3 *774 

1 

CAF 

OCT  62 

0836 

REF 

312 

LAST 

13  3 5 

37,3707 

0 *616 

1 

TC 

BANKCALl 

083  7 

REF 

10 

LAST 

972 

37,3710 

2062  3 

1 

CADR 

G0PERF1 

0838 

37,3711 

1 3706 

1 

TCF 

-3 

0839 

37,3712 

1 2 706 

]. 

TC  F 

-4 

0840 

37,3713 

1 3 70  6 

1 

TCF 

-5 

08405 

REF 

3 

l AST 

990 

4774 

OC  T6  2 

EQUAL  S 

. 5SEC 

R 0841 

THE 

LOW 

5 BITS 

OF 

THE  SCALFR 

READS  10000 

FOR  THE 

FIRST 

INTERVAL  AFTER 

USER'S  PAGE  NO.  27  E3  S4 


SET  MCD0V37  BIT 

SNAPSHOT  T I M E 1 T I M E2 

T1,T2, SCALER  NQT  COMPATIBLE 
T 1 , T2  AND  SCALED  OK 
STORE  SCALER 

rEFSMM,  DP  I FT,  T^ACK  FLAGS  DOWN 

I MUSE  DOWN 
RNOVZFLG  DOWN 

SET  STANDBY  ENABLE  BIT 

SET  RESTART  TO  POST AN  D WHEN  STANDBY 
RECOVERS 


DEC  5 C = OCT  62 


I 


SAP:  AS  S l ISLE  [.VISIT  Of  1 OF  A GC  fr  Gl  AM  API  lK'-PE  BY  EYLES 


3: 


L 

I MU 

MODE 

SWITC 

PTNG 

ROUTINES 

R084? 

Tl  INCREMENT. 

IF  SCALPTEP  DETECTS  TH 

R 0843 

DATA 

ARE 

NOT  COMPATABLE  AND  RETURN  II 

R 0844 

DATA 

. OTHERWISE,  THE  RETURN  IS 

TC  L + I 

R 0845 

THE 

SC  ALE  e READING 

FfN  C 0 3Pi.JT  AT  I ON  t;  | 

R086- 

10  MS  BIT  (BIT 

6)  f.F  THE  SCALE  15  I 

R 0847 

Tl.  ) 

ACDITION 

OF  5 

MS  (BTT  6) 

TO  THE 

R 0848 

ADJUSTING  BIT 

6 IN 

THE  SCALER 

TO  BE 

R 084c 

BIT? 

OF 

THE  SCALER 

READING  ARE 

THEN 

R085C 

DATA 

TO 

10  MS. 

RESULTS  ARE  STL.-  ED  IN 

0851 

37,3714 

0 0006 

0852 

REF 

791 

LAST 

1 5 

37,3715 

22  1 56 

0853 

REF 

3 

LAST 

381 

37,3716 

0 4103 

0854 

37,3717 

0 C 00  3 

0855 

REF 

792 

• -V 

1336 

37,3720 

52  155 

0856 

REF 

4 1 

1.  AST 

1317 

37,4721 

3 4747 

0857 

OFF 

233 

LAST 

1323 

37,3722 

54  001 

03^8 

P EE 

241 

LAST 

1330 

37,3723 

3 4755 

0659 

REF 

793 

LAST 

1336 

37,3724 

20  155 

0860 

REF 

9 

LAST 

744 

37,3725 

4 43*6 

0861 

REF 

794 

LAST 

13  36. 

37,3726 

7 0155 

0862 

REF 

795 

LAST 

1336 

37,3727 

56  155 

0863 

REF 

10 

LAST 

133^ 

37,3730 

7 4346 

A086-' 

A 0865 

0866 

REF 

425 

LAST 

1332 

37, 373 1 

10  COO 

0867 

REF 

796 

LAST 

1336 

37,3732 

24  156 

0868 

S'  EF 

79  7 

LAST 

133  5 

3 7 ,3733 

0 '166 

& 0869 

POST AND 

F>ECOVEPS  TIME  AFTEP  STANDBY. 

S TO  L+l  FOR  ANOTHER  READING  OF  THE 
2 TO  PROCEED.  ROUTINE  ALSO  PREPARES 
E THE  INCREMENT  TO  UPDATE  T1T2.  (THE 
NCREMENTED  5 MS  OUT  OF  PHASE  FROM 
SCALE'  EADTNC  HAS  THF  EFFECT  OF 
IN  PHASE  WITH  BIT  1 OF  TI.  THE  LOW  5 
SET  TO  ZERO,  TO  TRUNCATE  THE  SCALER 
MPAC,  +1. 

1 SCAL PREP  EXTEND 
0 
1 
1 
1 
I 
1 
I 
1 
0 
1 
0 
0 


QXCH 

TC 

RELINT 

DXCH 

CA 

T5 

C A 

MPAC  +2 

FINETIME  +1 

MPAC 

BITS 

t 

7 can 

DAS 

MPAC 

CS 

L0W5 

MASK 

MPAC 

+ 1 

XCH 

MPAC 

+ 1 

MASK 

LOW  5 

CCS 

A 

INC  R 

MPAC 

+ 2 

TC 

MPAC 

+2 

R 0870  TIME!  TIME2  COUNTER  IS  SET  TO  ZERO.  THE  LOW  5 BITS  OF  THE  SCALER  ARE 

R 087 1 INSPECTED  TO  INSURE  C0MPATA3IL ITY  BETWEEN  THE  SCALER  READING  AND  THE 

R0872  CLEARING  OF  THE  TIME  COUNTER.  IT  THEN  COMPUTES  THE  DIFFERENCE  IN  SCALER 
*0873  VALUE'  HE  DP)  AND  ADDS  T H I i TO.  THE  PREVIOUS!  Y SNAP  -HOT  Tfe,D  VALUES  OF 


R 087  4 

TJM 

FI  TTME2  AND  Dl ACES  THIS  1 

NEW 

T I M E 

INTO  THE  TIME1  TIME?  COUNTER. 

087  c 

REF 

1 

COUNT  * 

$t/P05 

0876 

REF 

30 

LAST 

133  5 

37 ,3734 

4 

4741 

0 

POSTAND  CS 

BIT  11 

0877 

37, 3735 

0 

C 0 06 

I 

EXIEND 

0878 

0 EF 

2 1 

LAST 

1335 

37,3736 

03 

013 

0 

WAND 

CHAN  13 

087° 

37,3737 

0 

0004 

0 

INHINT 

0880 

REF 

242 

LAST 

1336 

37,3740 

3 

4755 

1 

CA 

ZERO 

0881 

REF 

234 

LAST 

1336 

37, 374  1 

54 

001 

1 

TS 

L 

0882 

REF 

34 

LAST 

1335 

37,3742 

52 

02  5 

I 

DXCH 

TIME2 

088  3 

REF 

2 

LAST 

133  5 

37,3743 

0 

3714 

0 

TC 

SCAL PREP 

0884 

REF 

2 

LAST 

1335 

37 ,3744 

0 

3737 

1 

TC 

POSTAND  +3 

0885 

37,37*5 

0 

0006 

1 

EXTEND 

0886 

REF 

3 

LAST 

1335 

37,3746 

4 

0317 

0 

DCS 

SCAL  S AV  F 

0887 

REF 

798 

1 AST 

1336 

37 , 3747 

20 

1 56 

1 

DAS 

MPAC 

15  DEC.  2,1*70  SKIPPER  .087  PAGE  1336 
USER'S  PAGE  NO.  2R  EO  S3 


ADD  5 MS  TO  THE  c C A L.  F R READING. 


SET  LOW  5 BITS  OF  ( SCAL  ER+5MS ) TC.  ZERO 
AND  STORE  RESULTS  IN  MPAC,+1. 

TEST  LOW  5 BITS  np  SCALER  FOP  THE  FIRST 
INTERVAt  AFTER  THE  T1  INCREMENT 
( NOW  = OOOCO,  SINCE  BIT  5 ADDED). 

IS  IT  1ST  INTERVAL  AFTER  Tl  INCREMENT 

NO 

YES 


FECQVEF  TIME  AFTER  STANDBY. 
CLEAR  STANDBY  ENABLE  BIT 


CLEAR  TIME1TIME2 
STOPE  SCALES  IN  MPAC,  MPAC+1 
T1,T2, SCALER  MOT  COMPATIBLE 
T 1 , T2  AND  SCALER  OK 

FORM  DP  DIFFERENCE  OF  POSTSTANDBY  SCALER 


1" 


ASSEMBLE  Kt  VISION  001  Of  A Of.  PROGRAM.  API 1R0PE  BY  EYLE5 


GAP  : 


088  8 

0889 

0890 

0891 

0892 

0893 
089  A 
089  9 

0896 

0897 

0898 
0809 

0900 

0901 

0902 
0909 

0904 

09045 

09046 

0905 


I M'U  M OE  SW  IT  CHI G ' PUT  INES 


REF 

46 

LAST 

13  24 

37,3750 

3 4742 

1 

CAE 

REF 

1 i 

LAST 

884 

37,375  1 

0 7307 

1 

TC 

REF 

243 

LAST 

13  3 o 

37,3752 

3 4755 

1 

CAE 

I-  EF 

799 

LAST 

133  6 

37,3753 

5'  156 

1 

IS 

REE 

16 

LAST 

1319 

37,3754 

0 72  5 7 

0 

TC 

REF 

8 00 

L ACT 

1337 

37,3755 

10  154 

0 

CCS 

REF 

1 

37,3756 

0 3763 

0 

TC 

REF 

2 

LAST 

1337 

37,3757 

0 3763 

0 

TC 

37, 37&0 

0 3761 

1 

TC 

REF 

47 

LAST 

1337 

37, 376  1 

3 47*2 

1 

CAE 

REF 

801 

LAST 

1337 

37,3762 

26  154 

0 

ADS 

3 7, 3 76' 3 

0 0006 

PnSTCOM  FXtEND 

REF 

4 

LAST 

1335 

37, 3764 

3 0315 

0 

DC  A 

REF 

802 

LAST 

1337 

37,3765 

20  155 

1 

DAS 

REF 

17 

LAST 

1337 

3 1 , 3 lb ti 

0 7257 

0 

TC 

REF 

303 

LAST 

1337 

37,3767 

52  155 

1 

DXCH 

KEF 

35 

LAST 

133  6 

37,3770 

20  025 

1 

DAS 

tpf 

o 7 

i a <;  t 

1 35K 

■3  7.3771 

11  r c.  1 A 

A 

Tf 

r tr 

L A u I 

1 j D 

d 1 i j ! ’ t 

w 

REF 

6 

LAST 

1335 

37,3772 

00054 

0 

ADRES 

RcF; 

68 

LAST 

1332 

37 , 3773 

0 6001 

0 

TC 

BIT  10 

SHClRTMP 

ZERO 

'•  PAC  + 
TP AGREE 
MPAC 
POSTCOM 
POSTCOM 
+ 1 

BITiO 

MPAC 

TIME2SAV 

MPAC 

T PAG A EE 

MPAC 

TIME2 

DOWNFLAG 

NODOFLAG 

GGTQPOGEI 


3:  15  DEC 


2,1070 


SKIPPER 


087 


PAGE  1337 


USER'S  PAGE  NO.  29  Eo  S3 

MINUS  PRESTANDBY  SCALER  AND  SHTFT  RIGHT 
5 TO  ALIGN  BITS  WITH  TIME1TIME2. 

NEEDED  FOR  tp  AGREE 
MAKE  DP  D1EF  AGREE 

IF  DP  DIFF  NET  + , NO  SCALER  OVERFLOW 
BETWEEN  PRE  AND  POST  STANDBY. 

IF  DP  DIFF  NET  SCALER  OVERFLOWED.  ADD 
BIT  10  TP  HIGH  DIFF  TO  CORRECT. 

C(MPAC,+1)  MAGNITUDE  OF  DELTA  SCALER. 
PRESTANDRY  TIME1TIME2 

FORCE  SIGN  AGREEMENT 
UPDATED  VALUE  FOR  T1,T2. 

LOAD  UPDATED  VALUE  INTO  T1,T2,  WITH 
CLEAR  NODOFLAG 


GAP:  ASSEMBLE  REVISION  OOI  OF  AGC  PROGRAM  API  1. 'OPE  BY  EYLES 


L KEYRUPT,  UPRUPT 


0001 

14,3774 

BANK 

14 

0002 

REF 

1 

04,2000 

SETLGC 

KEYRUPT 

non  r 

n / . 3 ? 7 A. 

RANK 

V vUj 

U M 1 YJN 

0004 

REF 

1 

COUNT* 

$$/K6YUP 

0005 

REF 

9 

LAST 

112° 

04,3274 

54  016 

1 

KEYPUPT1  TS 

BANKRUPT 

0006 

REF 

351 

LAST 

1327 

04,3275 

56  CC2 

0 

XCH 

Q 

0007 

REF 

8 

1 AST 

1129 

04,3276 

54  012 

0 

TS 

QRUPT 

0008 

REF 

2 

LAST 

438 

04,3277 

0 4400 

1 

TC 

LODSAMPT 

000° 

REF 

1 1 

LAST 

133  6 

04, 3300 

3 43-+6 

1 

CAF 

LOWS 

C010 

04, 3301 

0 0C06 

3 

EXTEND 

0011 

RFF 

2 

LAST 

218 

04,3302 

02  015 

1 

RAND 

MNKEYTN 

0012 

REF 

6 

LAST 

1300 

04,3303 

54  073 

1 

KEYCOM  TS 

RUPTF;  EG4 

0013 

REF 

28 

LAST 

915 

04,3304 

4 0101 

0 

CS 

FL  AGWRD5 

0014 

REF 

04. 3305 

7 4 7 3 5 

0 

MASK 

n sK  Y F R I T 

0015 

REF 

29 

LAST 

1338 

04, 3306 

26  101 

0 

ADS 

FIAGVIKD* 

00 1 6 

REF 

f, 

L AST 

10RO 

04, 3307 

3 4 3 55 

0 

a r r f p t 1 1 p pap 

ph  n 

ho  c l ' >,r  m T 

i ro  1 - 

0017 

REF 

2 3 

LAST 

1308 

04,3310 

0 5072 

1 

TC 

NOVAC 

0018 

REF 

66 

LAST 

458 

C777 

EB ANK= 

DSPCOUNT 

0019 

REF 

1 

04 ,3311 

02G7  7 

0 

2CADR 

CHAP.  I N 

0019 

REF 

1 

04,3312 

60101 

1 

0020 

REF 

7 

LAST 

1338 

04 ,3313 

3 0073 

0 

CA 

RUPTREG^ 

0021 

RFF 

24 

LAST 

1 328 

04,3314 

50  064 

0 

INftx 

LCCC  rP 

0022 

REF 

804 

LAST 

1337 

04,3315 

54  154 

0 

TS 

M p AC 

0023 

REF 

22 

LAST 

994 

04,3316 

0 5270 

1 

TC 

RESUME 

3:15  DEC.  2,1970  SKIPPER 
USER • c PAGE  MO.  1 
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TIME  IS  SNATCHED  IN 

CHECK  IF  KEYS  5M-1M 


RUPT  FOR  NQUF  65. 

ON 


(MOTE:  r;  UP  TP  FG4  = KFYTEMPl) 


LEAVE  5 BIT  KEY  CDE  IN  MPAC  FOR  CHARIN 


GAr:  ASSEMBLE  KE:.y  I SI  .||  001  or  A'.'C  f -GRAM  APliri'Pfc  BY  E YL£  -> 

L KEY,  UPT,  UP:  UPT 


P 002 A UPRUPT  PROGRAM 


0025 

REF 

10 

LAST 

1336 

04,3317 

54 

016 

1 

UPkUPT 

TS 

BANKRUPT 

0026 

REF 

3 52 

(.AST 

1338 

04, 3320 

56 

C02 

0 

XCH 

0 

0027 

REF 

9 

LAST 

133  I 

0 4 , 732  1 

54 

012 

0 

TS 

QR  UPT 

0028 

P EE 

3 

l AST 

1338 

04,3322 

0 

6400 

1 

TC 

LODSAMPT 

0029 

REF 

244 

LAST 

1337 

04,3323 

3 

4755 

1 

CAF 

ZERO 

0030 

REF 

2 

LAST 

222 

04,3324 

56 

045 

0 

XCH 

INLINK 

0031 

REF 

2 

LAST 

154 

04,3325 

54 

073 

1 

TS 

KEYTEMPI 

0032 

REF 

35 

LAST 

1 2 ? 5 

06,3326 

3 

47  5 1 

0 

CAF 

B IT  3 

007? 

04,7327 

0 

OC  06 

1 

EXTEND 

A n 3 L. 

p CC 

1 ACT 

1 -1  ■?  7 

r . .’iin 

AC 

r>  i i 

1 

WOE 

ncAi  Mm  it 

W D 

n C r 

T 

1 0 c.  f 

L 

U OH  L J U 1 

0035 

REF 

12 

L A S T 

1338 

04,3331 

3 

4 3 46 

1 

UPRPT1 

CAF 

LOW  5 

0036 

REF 

3 

LAST 

133° 

04,333  2 

7 

CO  73 

1 

MASK 

KEYTEMP1 

0037 

REF 

0, 

L AS  r 

13  39 

04, 3333 

5fc 

0 73 

0 

XCH 

KEYTEMP1 

003  8 

04 , 3334 

0 

0006 

1 

EXTEND 

0039 

REF 

•48 

LAST 

1337 

04 , 3335 

7 

4 742 

0 

Mp 

BIT10 

0040 

REF 

1 

04,3336 

54 

734 

0 

t$ 

KEYTFMP2 

0041 

REF 

13 

LAST 

1339 

04,3337 

7 

4 346 

0 

MASK 

L0W5 

0042 

REF 

1 

04,3340 

6 

3374 

1 

AD 

HI1C 

0043 

REF 

1 

04,3341 

0 

3 3 7 1 

1 

re 

UPTEST 

0044 

■•EE 

49 

LAST 

13  3° 

04, 3362 

3 

4742 

1 

CAF 

B I T 1 0 

0045 

04,3343 

0 

0006 

1 

FXTEND 

0046 

2 

LAST 

1339 

04, 3344 

7 

07  34 

0 

MP 

KEYTEMP2 

0047 

REF 

14 

LAST 

1339 

04,3345 

7 

4 3 46 

G 

MASK 

LOWS 

0048 

04,  3346 

4 

OCOO 

0 

COM 

0049 

■JR  EE 

2 

LAST, 

1339 

04,3347 

0 

33/1 

1 

TC 

UPTEST 

00^0 

REF 

1 

04, 3350 

4 

3377 

0 

UP  OK 

CS 

EL;:;  CODE 

0051 

REF 

5 

LAST 

13  90 

06,3351 

6 

0073 

0 

AD 

keytempi 

0052 

04, 3352 

C 

0006 

1 

EXTEND 

0053 

REF 

1 

04,3353 

1 

3361 

1 

BZF 

CLUPLOCK 

0054 

PEE 

1 

04, 3354 

3 

6 7 50 

1 

CAF 

UPLOCB I T 

005  5 

REF 

26 

LAST 

898 

04, 3355 

7 

0103 

1 

MASK 

FLAGWRD7 

0056 

REF 

426 

LAST 

13  36 

04,3356 

10 

000 

0 

CCS 

A 

0057 

KEF 

23 

LAST 

1338 

04, 3357 

0 

5270 

1 

re 

RESUME 

0058 

REF 

1 

04, 3360 

0 

3307 

0 

TC 

ACCEPTUP 

0059 

REF- 

2 

LAST 

1339 

04 ,3361 

4 

4750 

0 

cluplock 

CS 

UPLOCB IT 

0060 

REF 

27 

1 AST 

1339 

04, 3362 

7 

0103 

1 

ma  s k 

FLAGWRD7 

0061 

REF 

28 

LAST 

1 3 30 

04 , 336  3 

54 

103 

1 

TS 

FLAGWRD7 

0062 

REF 

2 

l AST 

1339 

04,3364 

0 

3307 

0 

TC 

ACCEPTUP 

A 0063 

0064 

REF 

29 

LAST 

13  39 

04,3365 

4 

0103 

1 

TMFAIL2 

CS 

FLAGWRD7 

0065 

REF 

3 

L AST 

1339 

04,3366 

7 

‘ 750 

0 

MASK 

UPLOCBIT 

0066 

REF 

30 

LAST 

1339 

04, 33t 7 

26 

103 

1 

ADS 

FI.AGWRD7 

0067 

REF 

24 

LAST 

1339 

04,3370 

0 

5270 

1 

TC 

RESUME 

006° 

REF 

6 

LAST 

1339 

04, 3371 

6 

0 C 73 

0 

UPTEST 

AD 

KEYTEMPI 

l:li  DEC.  2,1970  SKIPPER  .087  PAGE  1339 
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TIME  IS  SNATCHED  IN  PUPT  FOP  NOUN  65. 


TURN  ON  UP ACT  LIGHT 
(BIT  3 OF  CHANNEL  11) 

TEST  FOP.  TRIPLE  C.H A”  REDUNDANCY 

L0W5  OF  WORD 

L0W5  INTO  KEYTEMPI 

SHIFT  RIGHT  5 

MID  5 


SHIFT  RIGHT  5 
HIGH  5 


CODE  IS  GOOD.  IF  CODF  = 'ERROR  RESET', 
CLEAR  UPL.C  CK  FL  ( SET  RIT4  0 F FLAGWFD7  = 0) 
TF  CODE  DOES  NOT  = 'FRROR  RESET',  ACCEPT 
CODE  ONLY  IF  UPLOCKFI  IS  CLEAR  (=0). 

TEST  UPLOCKFL  FOF  0 OP  1 


U PL  OC  K FL  = 1 
UPLOCKFL  = 0 

CLEAR  UPLOCKFL  (I.E.,SET  BIT  4 OF  ) 
FLAGWP07  = C) 


CODE  IS  BAD 

LOCK  OUT  FURTHER  UPLINK  ACTIVITY 
(BY  SETTING  UPLOCKFL  = 1)  UNTIL 
•ERROR  RESET*  IS  SENT  VIA  UPLINK. 


1” 


GAP:  ASSEMBLE  KE  VISION  .0-01  .OF  AGC  PROGRAM  API  1R  OPE  BY  EYLES 

L KEYFUPT,  UPFUPT 


3: L5  DEC.  2 ,1970  SK  JFPEP 
USER'S  PAGF  NO.  3 


.087  PAGE  1340 
EQ  S3 


0070 

0071 

0072 

0073 

REF 

REF 

427 

1 

LAST 

1339 

04.3372 

04. 3373 

04.3374 

04.3375 

R EF 

2 

LAST 

1340 

0074 

REF 

353 

LAST 

1339 

04,3376 

10  000  0 CCS  A 

0 3365  1 TC  TMFAIL2 

77740  1 HI  10  OCJ  77740 

0 3365  1 TC  T VF  A 1 1 2 

0 C 002  0 TC  Q 


007  5 


04,3377  Ot  022  1 ELRCODE  OCT  22 


R0076 
R0077 
R 007  8 
R 007  9 


'UPLINK  ACTIVITY  LIGHT'  is  TUI  NED  OFF  BY  

1.  VBRELDSP 

2.  F 7 " O RESET 

3.  UPDATE  PMiSPAMfP27)  ENTE'EO  BY  V70  , V71  , VT? , AMD  V73  . 


R 0080 

R0C81  the  ACCEPT  I •-•••'  OF  A BAD  TOOEd.E  CCC  FAILG  E)  LUCKS  JT  FURTHER  UPLINK  ACTIVITY  BY  SETTING  BJT4  OF  FI  AGWR  D7  = 1. 
RODS  3 THIS  i . T I C A T ! ' -ML!  BE  TRANSFERRED  T3  THE  Gr  OUMD  BY  THE  00 WN LINK  WHICH  DOWNLINKS  A LI  FLAGWORDS. 

R OOF  ^ WHEN  UPLINK  ACTIVITY  d LOCKED  OUT  , IT  CAN  BE  ALLOWED  WHEN  1 HE  GROUND  UPLINKS  AND  'EPPOP  RESET'  CODE. 

R 0087  ( IT  IS  RECOMMENDED  THAT  -'HE  'ERROR  LIGHT  RESET'  CODE  IS  PFECEEDED  BY  16  BITS  THE  HI  ST  OF  WHICH  IS  1 FOLLOWED 

P 0039  BY  15  ZEROES.  THIS  WILL  ELIMINATE  EXTRANEOUS  BITS  FROM  INLINK  WHICH  MAY  HAVE  BEEN  LEFT  OVER  FROM  THE  ORIGINAL 

R 009 1 FAILURE) 

ROOT'?  UP  L i ' :K  ACTIVITY  IS  ALSn  A L L OWED!  UNLOCKED)  DLL  ING  FRESH  START  WHEN  FRESH  STAC  T SETS  BIT4  OF  FL  A GW  3 07  = 0. 

05124  REF  I 04,3400  4 4753  0 CS  XDSPBIT 


GAP  : 


assemble  revision  aui  of  agc  p.-.g&fam  api  irope  by  eyle^ 


3 1.1 5 DEC 


2,1970  SKIPPER  .097  PAGE  1341 


t 

R 000  1 

R00G2 
R 0004 
ROODS 
R0007 
R 0009 
R OOK 
R 001 2 


R 00 1 3 
ROC  14 

R 001  5 
R 0017 
P 00 1 3 
R 0020 
R 002  2 
R 0024 
RC02fc 
R0028 


P 0029 

R0G3G 
P 003  1 
R 003  3 
R 003  5 
R0037 
R0039 
R004C 

R 004  1 
ROC'? 
R 0043 
R 0044 
R 0045 

R 0046 
p 00'*  7 

R004P 


DISPLAY  INTERFACE  ROUTINES  USER’S  PAGE  NO.  1 EO  S3 

DISPLAYS  CAN  BE  CLASSIFIED  INTO  THE  FOLLOWING  CATEGORIES- 

1.  ?!•  i.IRI  TY  OK-.- LAY.'--  DISPLAY!  WHICH  ; AKE  P'-  IU  ITY  OVER.  ALL  OT  HE  - DISPLAYS.  USUAL  1.  Y THESE  DT  SPLAYS  Af  E SENT 
UT  UNDER  CRITICAL  ALA  ! ' 1 CONDITIONS. 

2.  FKTENOED  VE  B DISPLAYS-  AU  EXTENDED  VERBS  AND  MA‘  K , UJTINES  SHOULD  USE  EXTENDED  VERB  (MARK)  DISPIAYS. 

3.  one  VI n . ; r- 1 Aye,-  All  f y < T ■ -j  P- OKA'  DT  SPI  AYS  WHICH  INTERFACE  WITH  THE  ASTRONAUT  DURING  THE  NOP'^Al 

SEQUENCE  OF  EVENTS. 

4.  MI  SC.  DISPLAYS-  ALL  DISPLAYS  NOT  HANDLED  BY  THE  DISPLAY  I NT  ER  FAC  EROIJTI  ME  S . THESE  INCLUDE  SUCH  DISPLAYS  AS 
MM  DISPLAYS  AND  SPECIAL  PURPOSE  DISPLAYS  HANDLED  BY  PINBALL. 


3.  ASTRONAUT  INITIALED  DF  PL  AY  0 - ALL  DICPL4YS  IN  IT  I AT  FD  EXTERNALLY  . 

THE  FOLLOWING  TERMS  ARE  USED  TO  DESCRIBE  THE  STATUS  OF  DISPLAYS- 

1.  AC  T I Vt-  THE  DISPLAY  WHICH  IS  (1)  BUNG  DISPLAYED  TO  THE  ASTRONAUT  AND  WAITING  FOR  A RESPONSE  OR 

(2)  W A T 71  ‘ 1 G FI1-  V IN  t I ME  EC;  THE  ASTFONAU"  TO  FINISH  USING  THE  DSKY  OF  (3)  BEING  DISPLAYED  ON  THE  DSKY 
BUT  NOT  WAITING  F-V-  A RESPONSE. 

2.  INACTIVE  -A  DISPLAY  WHICH  HAS  (I)  BEEN  ACTIVE  BUT  WAS  INTERRUPTEDBY  A DISPLAY  OF  HIGHER  PRIORITY, 

(2)  BEEN  PUT  INTO  THE  WAITING  LIST  AT  TIME  IT  WAS  EQUESTED  DUE  TO  THE  FACT  A HIGHER  PRIORITY  DISPLAY 
WAS  ALREADY  GOING,  (3)  BEEN  INTERRUPTED  BY  TEE  ASTRONAUT  (CALLED  A PINBRANCH  CONDITION,  SINCE  THIS  TYPE 
OF  INAC:  l VE  DISPLAY  IS  USUALLY  REACTIVATED  ONLY  BY  PINBALL)  OF.  14)  A DISPLAY  WHICH  HAS  FINISHED  BUT  STILL 
HAS  INFO  SAVED  FCV  RESTART  PURPOSES. 


DISPLAY  PRIORITIES  WORK  AS  FOLLOWS- 
I NT ERR U P T S- 

1.  THE  AST'  MAUT  CAN  INTERRUPT  ANY  DISPLAY  WITH  AN  EXTERNAL  DISPLAY  REQUEST. 

2.  INTERNAL  DISPLAY!  CAN  NOT  BE  SENT  OUT  WHEN  THE  ASTRONAUT  IS  USING  THE  DSKY. 

3.  ('—'■■  tty  DISPI  AY<  1 - \ t F ! . J P T ALL  OTHER  TY  FE<;  OF  INTERNAL  P’SPLAYS.  A PPIOPITY  DISPLAY  INTERRUPTING  ANOTHER 
PRIORITY  DISPLAY  WILL  CAUSE  AN  ABORT  UNLESS  BIT14  IS  SET  FOR  THE  LINUS  ROUTINE. 

4.  A MAP  K DISPLAY  INTERRUPTS  ANY  NORMAL  DISPLAY. 

5.  A MARK  THAT  II, TE:  JPTS  A 0A~  K COMPLETELY  REPLACES  IT. 

ORDER  OF  WAITING  DISPI  AYS~ 

1.  AST1'  PNA I IT  FXTfp  MAl  USE 

2.  PRIORITY 

3.  INTERRUPTED  MARK 

4.  INTERRUPTED  NC  MAL 

5.  MARK  TO  BE  REQUESTED  (SEE  DESCRIPTION  IF  ENDMARK  ) 

6.  MA r;  K WA  ITING 

7.  N1RMAL  WAITING 


2 ,1970 
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GAr:  ASSEMBLE  REVISION  0U 1 OF  AGC  pROfiRAM  AP11RQPE  BY  LYLES 

L DISPLAY  INTERFACE  ROUTINES 


3:15  DEC. 

USER'S  PAGE  MO.  2 


EO  93 


P 00*  ? 
R 005  1 
R 005  3 


THE  DISPLAY  ROUTINES  A?E  INTENDED  TO  SERVE  AS 
FOLLOWING  STATEMENTS  CAI  BE  MADE  ABOUT  NORMAL 
WILL.  FOLLOW  LATE  ) : 


AN  INTERFACE  BETWEEN  THE  USER  AND  PINBALL. 
DISPLAYS  AND  PRIORITY  DISPLAYS  (A  DESCRI°T 


THE 

ON  OF  MARK  ROUTINES 


R 005* 
R 0056 
R 005  8 
R 0059 
R 006  1 
R 0063 
P 0065 
RPC66 
R0067 
R 0069 
R 007  0 
P 007  2 
R 0076 
R 007  5 


1.  ALL  • 0UV  HIES  TEAT  END  ' " A HAVE  A ' 1 1 ECIATE  ETL'  • T'  THE  USE?.  FOP  Alt  FLASHING  DISPLAYS  THIS  RETURN 
IS  TO  THE  USERS  CALI  CADR  +'-.  FOP  THE  ONLY  NON  FLASHING  IMMEDIATE  R F TURN  DISPLAY  (GODS00)  this  RETURN 

IS  TO  THE  USERS  CATLING  LOC  +1. 

2.  ALL  ROUTINES  NOT  ENDING  IN  R DO  NOT  DO  AN  IMMEDIATE  RETURN  TO  THE  USER. 

3.  ALL .ROUTINES  THAT  END  IN  R START  A SEPARATE  JOB  (MAKEPLAY)  WITH  USERS  JOB  PRIORITY. 

4.  AIL  '.a,' TINES  ML  7 ENDING  IT  ' BRANCH  DIRECTLY  TO  MAKEPLAY  WHICH  MAK  ES  THESE  DISPLAYS  A PART  OF  THE 
USERS  JHR. 

5.  ALL  DISPLAY  ROUTINES  APF  CALLED  VIA  BANKCALL. 

6.  TO  RESTART  A DI SPl  AY  THE  USER  WILL  GENERALLY  USE  A PHASE  CF  ONE  WITH  DESIRED  RESTART  GROUP  (SEE 
DESCRIPTION  OF  RESTARTS). 

7.  ALL  FLASHING  DISPLAY::  HAVE  3 RETURNS  TO  THE  USES  FROM  ASTRONAUT  RESPONSES.  A TERMINATE  (V3*)  BLANCHES 
T F THE  isns  CALI-  CADR  +1.  A PROCEED  (V33)  BRANCHES  TO  THE  USERS  CALL  CADR  +2.  AN  ENTER  OR  RECYCLE 

! V 3 2 ) BRANCHES  '0  THE  USERS  CALL  CADR  +3. 

0.  ALL  ROUT  I NFS  MU  ft  BE  USED  UNDER  EXECUTIVE  CONTROL • 


R Qu7  6 


A DESCRIPTION  OF  EACH  ROUTINE  WITH 


AN  EXAMPL  E FOLLOWS: 


ROC  77 

GODSP  IS  USED  TO  DISPLAY  A VF.'.B  f OUN  ARRIVING  IN  A.  NO 

RETURN  IS  MADE 

TC  THE 

USER  . 

R 0079 

1 . 

GODSP  TS  MOT  : EST  ADT  ABLE 

R 008  0 

2. 

A VERB  PASTE  WITH  GODSP  ALWAYS  TURNS  ON  THE  FLASH. 

A 008  1 

CAP 

VXXNYY 

A 0082 

TC 

BANKCALL 

A 008  3 

CAD'< 

GODSP 

A003* 

v x x i\:  v y 

OCT 

0 X X Y Y 

V A A * n T T 

R 0085 

GQDSPR 

IS  THE  SAME  AS  GODSP  ONLY  RETURN  IS  TO  THE  USER. 

A 0086 

CAF 

VXXNYY 

A 008  7 

TC 

BANKCALL 

A 008  p 

CADR 

GODcPR 

A 008  9 

• e • 

. . . 

IMMED 

I AT  E RETURN  OF  GODSPR 

R 009  0 

GO El  ASH 

DISPLAYS  A FLASHING  VERB  NOUN  WITH  NO  I 

: mmedi ate 

RETURN  TO  Th E 

USER.  3 

RFTIJRNS  APE  POSSIBLE 

FROM 

R 00°  2 

THE  ASTRnMAUT  (SEE  NO.  7 ABOVE). 

A 009  3 

CAF 

VXXNYY 

VXX  N 

YY  WILL  BE  A FLASHING 

VERB  NOUN . 

A 0094 

TC 

BANKCALL 

AOC  95 

CADR 

GOFL ASH 

A 0 0 9 6 

• • * 

• • • 

TERMI 

NATE  RETURN 

A 0097 

, , , 

• • • 

PROCE 

ED  RETURN 

A 009  « 

... 

ENT  FR 

OR  RECYCLE  RETURN 

R0C99 

GOPERFI 

IS  ENTERED  WITH  DESIRED;  CHECKLIST  VALUE  II;  A. 

GOPERFI  WILL  DISPLAY  T 

HIS  VALUE  IN  R1  BY  MEANS  OF  A 

GAP:  ASSEMBLE  <EVISI3N  001  GF  A(,C  PROj&RAM  AP11R0PE  BY  PYLES  3:15  DEC.  2,1970  SKIPPER 

L DISPLAY  TNTERFACF  ROUTINES  USER'S  PAGF  NO.  3 

R 010 1 V01  N25.A  FLASHING  Pl.EA'E  PE  FOIE  ON  CHECKLIE'r  ( V50  N25)  IS  THEN  DISPLAYED.  NO  IMMEDIATE  PETURN 

R0103  USEF  (SEE  NO.  7 ABOVE). 


087  PAGE  1343 
EO  S3 
IS  MADF  TO 


R 0104  GOFER  FI  BLANKS  REGISTER  2 ADD  1 3 

AGIOS 
A 0106 
A0107 
AGIOS,  : 

A 0 1 0 r 
A01K 


CAF  PCTXX  CODE  EOF  CHECKLIST  VALUE  XX 

TC  BANKCALL 

CADE  GOP  ERF  1 

...  ...  TERMINATE  RETURN 

. . . ...  PROCF  ED  p ETUF  N 

...  ...  ENTER  RETURN 


R0111  GOP ERF 2 IS  FNTEPED  WITH  A VARIABLE  NOUN  AND  V01  ( VOO  FOR  NlO  OR  Nil)  IN  A.  G0PFRF2  WILL  FIRST  DISPLAY  THE 

R 01 1 3 REQUESTED  N(  UN  BY  MEANS  OF  A V01NYY  OR  A VOONYY.  PLEASE  PERFORM  ON  NOUN  ( V50  NYY ) THEN  BECOMES  A FLASHING 

ROUE  DISPLAY.  Nt  I Nt  'EDI  ATE  RETURN  IS  MADE  TO  THE  USER  (SEE  NO.  7 ABOVE). 

ROll'S  GUPERF2  DOES  NOT  BLANK  ANY  REGISTERS 


A C 1 1 7 

Aona 

A 0 1 1 r 

CAF 

TC 

CAD 

VXXNYY 

BANKCALL 

G0PERF2 

VARIABLE  NOUN  YY 

A 0 1 2 C 

* • * 

« • • 

TERMINATE  RETURN 

A0121 

• • • 

• • • 

PROCEED  RETURN 

A0122 

• • • 

• • • 

ENTER  RETURN 

R 01 2 3 
R 012  5 
R 0 1 27 


G0PERF3  7 S USED  FOR  A PLEASE 
DISPLAYS  THE  NO.  BY  MEANS  OF 
IS  MADE  Tr  THE  USER  (SEE  NO. 


PERFORM  ON  A PROGRAM  NUMBER.  THE  DESIRED  PROGRAM  NO.  IS  ENTERED  IN  A.  G0PERF3 
A VC6  NO 7 FOLLOWED  BY  A FLASHING  V50  NC7  FOR  A PLEASE  PERFORM,  NO  IMMEDIATE  RETURN 
7 ABOVE). 


R 01 28  GOPF'F?  BLANKS  REGISTERS  -’7  AND  P3 


A 0 1 2 c 
A 0130 
A 01  31 
A 01  3 2 
A 01 33 
A 0 1 34 


CAF  DECXX  REQUEST  PERFORM  ON  PXX 

TC  BANKCALl 

CADR  GOP ERF 3 

TERMINATE  RET URN 

PROCEED  P ET UP  N 

...  ...  ENTER  RETURN 


R 0 1 3 5 
R 01  37 
R 01 3 c 


GOP  ERF  4 IS  USED  FOR 
GCPERF4  DISPLAYS  PI 
IMMEDIATE  RETURN  IS 


A ('LEASE  PE  NFC!  4 JN  AN  UP  TON.  THE  DtSIl  ED  OPTION  I S ENT  ER  ED  IN  A AND  STOP  ED  IN  OPT  I ONI. 
A7  0 ' 2 BY  '(FANS  OF  A V.  ■ N(  • FOLLOWED  BY  A FLASHING  V50N06  FOR  A P L FAS  E PERFORM.  NO 
MADE  'r0  THE  USER  (SFE  NO.  7 ABOVE). 


A 0 1 k 0 

A 0141 
A 0142 
A 01 4 3 
A 014  £ 
A 01*  * 


CAF  OCT  X X REQUEST  PERFORM  ON1  OPTION  XX 

TC  BANKCALl. 

CADR  G0PERF4 

...  ...  TERMINATE  RETURN 

PROCEED  RETURN 

ENTER  RETURN 


R 01 46  GOPER  F4  BLANKS  PEG  ISTEr  23 


GAP: 

L 

R 0147 
R0 149 

A 0 1 5 0 
A 0 1 5 1 
A 01  5? 

A0153 

9 015  4 
(10154 

A0157 
A 01  5 8 
A 0 1 3 9 

R 014  0 

A0162 
A 0 16  3 
A 01 64 
A 01 
A 0 1 • 

A 0167 


ASSEMBLE  REVISION  001  (.F  AGC  PROGRAM  AP11R0&E  BY  tYLES 

display  interface  routines 


A 0170 
A 01  71 
A0172 
A0173 
A 0174 
A0175 

A 01  7 1 

R 01 77 

R 0 1 7 9 

A 0180 
A 0 1 8 1 
A 0182 
A0183 
A 0 1 8 ' 
A0185 

A0186 

R0187 


USER'S  RAGE  NO. 


SK  IPP 

ER  .087 

PAGE 

1344 

NO. 

EO  S3 

DISP 

LAY  HAS 

BEEN 

SENT 

OUT. 


CAF 

TL 

C ADR 


VXXNYY 
BANKCALL 
GODc  P R FT 


RETURN  TO  USER 


REGCDS0  IS  USED  T"  DISPLAY  A VERB  IOUN  ARRIVING  IN  A.  FEGODSP  IS  THE  SAME  AS  GOD  S P ONLY  PEGODSP  REPLACES  ANY 
ACTIVE  NORMAL  DISPLAY  IF  ONE  WAS  ACTIVE. 


CAF 

TC 

CAD1 


VXXNYY 
BANKCALL 
R EGO DSP 


E F t ASH  IS  THE  SAE  AS  ''■'FLASH  'MY  .E  FLASH  ’ EP  LACES  AN  Y ACTIVE  NORMAL  DISPLAY  IF  ONE  WAS  ACTIVE. 

VXX  NYY  WILL  BE  A FLASHING  VERB  NOUN 


CAF 
TC 
r A D 


VXXNYY 

BANKCALL 

PEFLASH 


T ER  M I NATE  RETURN 
PROCEED  RETURN 
ENTER  RETURN 


9 013  3 GOFLASH  IS  r AM  F AS  GOFLASH  ONLY  AN  IMMEDIATE  RETURN  IS  MADE  TO  THE  USERS  CALL  CADR  +4. 


CAF 

TC 

CADR 


VXXNYY 

BANKCALL 

GOFLASHP 


...  ...  TERMINATE  RETURN 

...  ...  PROCEED  RETURN 

ENTER  OP  RECYCLE  RETURN 

...  ...  IMMEDIATE  RETURN  FROM  GOF  L AS  HR 

GCPEPF1R  IS  THE  SAME  AS  G0PEFF1  ONLY  G0PERF1P  HAS  AN  IMMEDIATE  FETURN  TOUSERS  CALL  CADR  +4. 

GCPEF.Flk  BLANKS  REGISTERS  R2  AMD  R3 


CAF 

TC 

CADR 

C CT  XX 

BANKCALL 

G0PERF1R 

CODE  FOP  CHECKLIST  VALUE  XX. 

• • • 

... 

T ERMI NATE  RETURN 

• • © 

... 

PROCEED  RETURN 

... 

• • • 

ENTER  RETURN 

• © e 

• • • 

IMMEDIATE  RETURN  FPO^  G'‘PERF1P 

RETURN 

IS  MADE  TO 

USERS  CALL  CADR  +4. 

GAP: 

L 

R 01»c 

A 01  90 
Aom 
A 01 0 2 
A01°3 
A0194 
A 019  F 

A 0 1 c •' 

R 0197 
R 0190 


ASSF  IRLE  REVISION  • > 1 OF  AGO  P GRAM  AP11  ' PE  BY  LYLES  1:15  DEC.  2.1970  SKIPPER  .067  PAGE  1345 

DISPLAY  INTERFACE  ROUTINES  USER'S  PAGE  NO.  5 EO  S3 

G0PERF2R  DOES  NOT  BLANK  ANY  REGISTERS 

VXXNYY  VARIABLE  NOUN  YY  REQUESTED.  XX=00  OR  01 

BAMKCALL 
GO PER  F 2 P 

...  TERMINATE  return 

...  proceed  return 

...  ENTER  RETURN 

...  IMMEDIATE  RETURN  HERE  FROM  GPPEF  F2R 

G0PE  F9-:  ic  THr  SAME  S'  GC  r'E'  F3  0 ' ■ L Y AN  T MEDIATE  f ETU'U  is  MADE  TO  USER'S  CALI  CADR  +4. 

G0PERF3R  BLANKS  REGISTERS  R2  AND  R3 


CAF 

TC 

CADR 


A 020  0 
A02C1 
A 0202 
A 020? 
A 0204 
A 020  5 


CAF  P FOG XX  PERFORM  PPCGRAM  XX 

TC  BAMKCALL 

CADR  G0PFRF3P 

...  ...  TERMINATE  RETURN 

...  ...  PROCEED  RETURN 

ENTER  RETURN 


A 020  K 


G0PEPF3F  IMMEDIATELY  RETURNS  HERE 


R 0207 

A 0209 

A 021  f 
A 02 11 
A021  2 
A 02 1 3 
A 02  1 4 

A 02 1 c 

R 02 1 f 

R 021 7 

A 021° 
A0220 
A 0221 
A 022  2 
A 022  3 
A022A 

A 022  S 

R 0226 


G0PERF4R  IS  THE  SAME  AS  GO PE RE 4 ONLY  AN  IMMEDIATE  RETURN  IS  MADE  TO  USERS  CALL  CADR  +4. 

REQUEST  PERFORM  ON  OPTILNXX 

TERMINATE  RETURN 
PROCEED  RETURN 
ENTER  RETURN 

IMMEDIATE  RETURN  TO  USER 

gop er ear  blanks  register  r? 

REFLASHF  IS  THE  SAME  AS  REFLASH  ONLY  AN  IMMEDIATE  RETURN  IS  MADE  TO  THE  USERS  CALL  CADR  +4. 

VXX  NYY  WILL  BE  A FLASHING  VERB  NOUN 

TERMINATE  RETURN 
PROCEED  RETURN 
ENTER  RETURN 

IMMEDIATE  RETURN  TO  USER 

REGODSPk  IS  THE  SAME  As  EGODSP  ONLY  A RETURN  (IMMEDIATE)  TS  MADE  TO  THE  USER. 


CAF  VXXNYY 

TC  BANKCALt 

cSbo  REEL  A S H P 


CAF  OCT  XX 

TC  BANKCAl t 

CADR  GO  f%  R F 4F 


GAP: 


L 

A 02  ? 8 
A0229 
A 0.23,0 


ASSEMBLE  REVISION  001  OF  AGC  P OGFAF  APlUOPE  BY  EYLES 
DISPLAY  INTERFACE  POUT  UTS 


CAF 

TC 

CADR 


3:15  DEC 


2,1970 


SKIPPER  .087  PAGE  13A6 


USER ' S PAGE  NO.  6 EO  S3 

VXXNYY 
BANKCALL 
R EGO DSP  R 

...  IMMEDIATE  RETURN  TO  USER 


« 


GAP:  ASS L -'.Ll  Kg^*SI.)M  001  OF  AGO  PROGRAM  API 1R0PE  BY  EYl.ES  3:15  DEC.  2,1<=70  SKIPPER  .087  PAGE  134-7 


L 

DISPLAY  INTERFACE  ROUTINES 

USER’S  PAGE  NO.  7 EO  S3 

P 02  3 2 

GOMARK  IS  USED  TO  DISPLAY  A MARK  VERB  NOUN  A f R I ’ 

VIMG  IN 

A.  NO  RETURN  IS  MADE  TO  THE  USER. 

R 0234 

6UXDSF  = GO  3 ARK 

A 023  5 

CAF 

VXXNYY 

VXXNYY  CONTAINS  V EF B AND  NOUN 

A0236 

TC 

BAMKCALl 

A 023  7 

CADR 

GOMARK 

OTHER  EXTENDED  VERBS  USE  CADF  GOXDSP 

RQ238 

GOMARKF  IS  THE  SAME  AS  GCVA4K  uNL  Y RETURN  IS  IT 

TFE  USER. 

R 023  r 

GOXDSPR  = GOMARKR 

A 0240 

CAF 

VXXNYY 

A 024  1 

TC 

BANKCALL 

A 0242 

CADR 

GOMARKR 

OTHER  EXTENDED  VERBS  USE  CADR  GOXDSPR 

A 0243 

• • • 

• • • 

IMMEDIATE  RETURN  OF  GO MAP  KR 

R 0244 

GOMARKF  DISPLAYS  A FLASHING  MARK  VERB  NOUN  WITH 

NO  IMMEDIATE  RF T URN  TO  THE  USER.  3 RETURNS  APE  POSSIBLE  FROM 

R 0246 

THF  ASTRONAUT  (SEE  NO.  7 ABOVE  ). 

R 02*  7 

GOXDSFF  = G ' 3 A ’ KF 

A 024  P 

CAF 

VXXNYY 

VXXNYY  WILI  BE  A FI  ASHING  MAr'K  VEr  B NOUN 

A0249 

TC 

BAMKCALL 

A 0250 

CADR 

GOMARKF 

OTHER  EXTENDED  VFRRS  USE  CADR  GOXDSPF 

A0251 

• * * 

« • • 

TERMINATE  RETURN 

A0252 

• • • 

• • * 

PROCEED  RETURN 

A 0 2 5 3 

• « • 

t • • 

ENTER  CP  RECYCLE  RFT1JRN 

R 025  4 

GOMARKFR  IS  THF  SAME  AS  GOMARKF  ONLY  AN  I MM.EDIA 

TE  RETURN  IS  MADE 

TO  THE  USER  CALL  CADP  +4. 

P.0256 

GiXOSPFr  = GOMARKFR. 

A 02  5 7 

CAF 

VXXNYY 

FLASHING  MARK  VERB  NOUN 

A 025  8 

TC 

BANKCAL  L 

A 0254 

CADR 

GOMARKFR 

OTHER  EXTENDED  VERBS  USE  CADP  GOXDSPFR 

A 0260 

• « » 

• • • 

TERMINATE  RETURN 

A 026  1 

• • • 

• • • 

PROCEED  RETURN 

A 026  2 

• « • 

6 • • 

ENTER  OR  RECYCLE  RETURN 

A0263 

• • • 

• • • 

IMMEDIATE  RETURN  TO  THE  USEr- 

R 026* 

G0MARK1  IS  USED  FOR  A PLEASE  PERFORM  ON  A MARK 

REQUEST 

WITH  ONLY 

1 ASTRONAUT  RE T JR N To  THE  USER.  NO  IMMEDIATE 

R 026  6 

-ETURN  IS  MADE.  THE  DESIRED  MARK  PLEASE  PERFORM 

VFRB  AND  DESIRED 

NOUN  I S ENT  EF E D IN  A.  GOMARK 1 DISPLAYS  Rl»  R2,  R 

R 026  G 

MEANS  f.’F  A VC5 NYY  FOLLOWED  BY  A FLASHING  V5XNYY 

FOR  A 

PLEASE  PERFORM.  THE  ASTRONAUT  WILL  RESPOND  WITH  A MARK 

R 027  C 

OR  MARK  REJECT  OR  AN  ENTER.  THE  ENTER  IS  "r  HE  ONLY  ASTRONAUT  RESP 

ON S E THAT  WILI  COME  BACK  TO  THE  USER'. 

A 0272 

CAF 

V5XNYY 

X=1 ,2 ,3,4  Y=  NOUN 

A0273 

TC 

BANKCAl L 

4 


..i 


GAP: 


ASSEMBLE  REVISION  001  OF  A GC  PROGRAM  API  1R0P E 8Y  EYLES 


3:15  DEC 


2 ,1970  SKIPPER  .087  PAGE  134-8 


L 

DISPLAY  1 N 1 ERF  ACE  ROUT-F1-  USE!  *S  PAGE  NO.  8 EO  S3 

A 0274- 

CADR  G0MARK1 

A 0275 

...  ...  ENTER  RETURN 

^0276 

***  if  BLANKING  DESIRED  fr  NON  "■  ROUTINES,  0.171  FY  01  SPLAY ER. 

R 0277 

A 0279 

A 0280 

A 02*1 

GOM ARK 1R  IS  THE  SANE  AS  A G0MARK1  ONLY  AN  If  1EDIATE  RfiTURN  IS  MADE  TO  THE  USERS  CALL  CADR  +2. 

CAF  V5XNYY  X=l,2,3,4  VY  = NOUN 

TC  BANKCALL 

CADR  G0MARK1R 

A0282 

A 0283 

...  ...  ASTRONAUT  ENTER  RFTURN 

...  ...  IMMEDIATE  RETURN  TO  USER 

R 0284 

A 02^6 

A 02  87 

A 028  9 
A0289 

A 0290 

A 0291 

R 0 2 9 2 

G0MARK2  IS  THE  SAME  AS  GCMARK1  ONLY  3 RETURNS  ARE  MADE  TO  THE  USER  FROM  THE  ASTRONAUT. 

CAF  V5XNYY  X=L,2,3,4  YY  =NOUN 

TC  BANKCALL 

C AD°  G0MAFK2 

TERMINATE  RETURN 

...  ...  PROCEED  RETURN 

ENTER  RETURN 

G0MARK2:  IS  THE  SAM  AS  GO"*  AT  KIR  ( L Y 3 ASTRONAUT  RETURNS  ARE  MADE  TO  THE  USER. 

A 029*- 
A 0295 

A 02Q6 

A 02  ?7 

A 029!; 

A 02°9 

CAF  V5XNYY  X=0,l,2,3,'  YY=NGUN 

TC  BANKCALL 

CADR  G0MARK2R 

TERMINATE  RETURN 

PFOCE  EO  ! ETURN 

ENTER  RETURN 

A 0300 

...  ...  IMMEDIATE  RETURN  TO  THE  USER 

R 0301 

R 03  03 

R 0305 

(3  OR  ARK  .3  IS  USED  FO!  A PLEASE  PE  f i ! ON  A MARK  REQUEST  WITH  A 3 COMP.  DEC  DISPLAY.  THE  DESIRED  MARK  PLEASE 

PERFORM  VERB  AND  NOUN  am:  ENTERED  IN  A.  G f MARKS  DISPLAY*  -1,  R2,  F 3 BY  MEANS  C-F  A VC6NYY  FOLLOWED  BY  A FLASHING 

V5XNYY  FO"  A PL  EASE  PE  FI  M.  G0MARK3  HAS  3 ASTRONAUT  " ETU <NS  TO  THE  USE!  WITH  NO  IMMEDIATE  RETURN. 

A 0 3 0 7 
A0308 

A 0309 

A 031  0 
A031  1 

A 031  2 

CAF  V5XNYY  X = l,  2,3,4  YY  = NOU N 

TC  BANKCAU. 

CADR  GO MARK 3 

TERMINATE  RETURN 

PROCEED  RETURN 

...  ...  ENTER  RETURN 

R 031  3 

G0MARK4  IS  THE  SAME  AS  G0MARK3  ONLY  R2  AND  R3  APE  BLANKED  AND  PI  IS  DISPLAYED  IN  OCTAL. 

A 031  5 

A 031  6 

A 03 17 

A 03  18 

A 031  9 

CAF  V5 XN'Y Y X = 1 ,2 ,3,4  YY  = NOUN 

TC  BANKCAU 

CAD*  GCMAPK4 

TERMINATE  RETURN 

PROCEED  RETURN 

4 


I 
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L 

DISPLAY  INTERFACE  .'O'  5 PS  USER’S  PAGE  NO.  9 EG  S3  < 

A 032  0 

R 032  1 

R 032  3 

...  ...  ENTER  RETURN 

i 

EXDSPRET  IS  USED  TQ  DISPLAY  A VERB  NOUN  ARRIVING  IN  A WITH  A RETURN  MADE  TO  THE  USEF  AFTER  THF  DT SPLAY  HAS  BEEN 

SENT  OUT. 

A 032  A 

A 03  2 5 
A0326 

CAF  VXXNYY 

TC  BANKCALL 

CADR  EXDSPRET 

A 0327 

RETURN  TO  USER 

R 0 3 2 c 
RC330 

KLEE'  FX  CIEA'S  m?  At!  M ARK  nTS°LAYS  (ACTTVE  AMP  INACTIVE  ) . A pfetUf  N IS  MADE  T E THE  USER  AFT  EP  THE  MARK  DISPLAYS 

HAVE  BEEN  CLEANED  OUT. 

A 03  31 

A 033? 

TC  BANKCALt 

CADR  KLEENEX 

A0333 

...  ...  RETURN  TO  USER 

R0334 

MARKER AN  IS  A SPECIAL  PU!  POSE  ROUTINE  USED  FOP  SAVING  JOB  VAC  AREAS  (SEE  DESCRIPTION  OF  MAFKBRAN  BELOW). 

A 0336 
A 0337 

TC  BANKCALL 

MARK  BRAN 

A0338 

...  ...  BAD  RETURN  IF  MAFK  DISPLAY  NOT  ACTIVE 

A 033  9 
A 0340 

(GOOD  RETURN  TO  IMMEDIATE  RETURN  LOC  OF 

LAST  FLASHING  MARK  R ROUTINE) 

R 034  1 

R 0343 

D I N BRNCH  REESTABLISHES  THE  LAST  ACTIVE  FLASHING  DISPLAY.  IF  ThPpE  IS  NO  ACTIVE  FLASHING  DISPLAY,  THE  DSKY  IS 

BLANKED  AND  CONTROL  IS  SENT  TO  ENDOFJOB. 

AG344 
A 034  5 

TC  POST  JUMP 

CAD;-  D I N BRNCH 

R 034  A 
R03A8 

PRIODSP  IS  USED  AS  A PRIORITY  DISPLAY.  IT  Will  OIcP!AY  A GOF  L A c H TYPE  DISPLAY  WITH  THR  F F POSSIBLE  PETURMS  FROM 

THF  ASTRONAUT ( SEE  NO. 7 ABOVE). 

0 0349 

R 0 3 5 1 

R 03  52 

THE  MAIN  PU  POST  OF  PJ<  IODSg  IS  To  REPLACE  THE  PRESENT  DISPLAY  WITH  A DISPLAY  OF  HIGHER  PRIORITY  AND  TO 

provide  a means  for  restoring  the  old  display  when  the  priority  display 

IS  RESPONDED  TC  3 Y THE  ASTRONAUT . 

R 035  3 

R 0355 

THE  FORMFR  DISPLAY  IS  RESTORED  BY  AN  AUTOMATIC  BRANCH  TO  WAKE  UP  tHE  DISPLAY  THAT  WAS  INTERRUPTED  BY  THE 

PRir  DISPLAY. 

A 0356 

A 0357 

A 035  8 
A0359 

A 0360 

CAF  VXXNYY  VXXNYY  WILL  BE  A FLASHING  VERB  NOUN 

TC  BANKCAl  L 

C.ADP  PRIODSP 

...  ...  TERMINATE  RETURN 

...  ...  PROCEED  RETURN 

GAP:  assemble  revision  ooi  of  agc  program  apiirope  by  EYLES  3: 

:I5  DEC.  2,1970  SKIPPER  .087  PAGE  1350 

L DIE  P LAY  I ! T Ec  F AC  E P OUT  I '■  E S 

USER'S  PAGE  NO.  10  EO  S3 

A 036  1 

enter  OR  RECYCLE  RETURN 

■l  036  2 IWH'DSPR  IS  THE  SAME  AS  Pi-  I Q.DS  PONL  Y AN  IMMEDIATE  RETURN  IS  MADE  TO  THE 

USERS  CALL  CADR  +4. 

A0364  CAP  VXXNYY 

A 0365  TC  BANKCALL 

A 0366  CAUF  PRICDSPF 

VXXNYY  WILL  BE  A FLASHING  VERB  NOUN 

A 03 6"?  « . . • o « 

A 036  3 «.«««. 

A 036  9 

TERMINATE  RETURN 

PROCEED  RETURN 

ENTER  CP  RECYCLE  RETURN 

A 0370  ... 

IMMEDIATE  RFTURN 

R 037 1 PRIPLARM  DOES  A V05N09  PRIOOSPR. 

R 0372  OLE A:  DSP  CLEANS  OUT  ALL  NORMAL  DISPLAYS  (ACTIVE  AND  INACTIVE).  A RETURN 

R 037  A DISPLAYS  ARE  CLEANED  OUT. 

A 0375  TC  BANKCALL 

A0376  CADR  CLEANDSP 

IS  MADE  TC  THE  USER  AFTER  NORMAL 

A 0377  

RETURN  TO  USER 

A 037  7 
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3:15  DEC 


2,1970  SKIPPER 


087  RAGE  1351 


L 

P 0378 
R 0379 


R C"1 B " 

A 038  l 
A 03 

R 03  8 3 
R0335 
R 03  37 


R 03  0 

R 03  8 Q 
R 0391 
R 039  3 


R 0395 
R.  0396 
R 039  8 

R { 3 - 
R.Q4Q0 
R 040  1 

R 0 1 2 
R 040  3 
R 0404 

R 0405 
R 0406 
R04O7 

R 0408 
R 0409 
R 04 1 f 
R 04 1 1 
R 041 2 
R 04 1 A 
R 04 1 5 

R 04  1 6 
R04  ir 
R 04  ? r 

R 042  2 


DISPLAY  I:\UE'  FACF  r f t 1 T 17  ES 
GENERAL  INFORMATION 


USER'S  PAGE  NO.  11 


FO  S3 


ALARM  OR  ABORT  EXIT  MODES— 


PRIOBORT  TC  ABORT 

OCT  1502 

PRIOBORT  I - BRAGGED  HF'  (1)  A -Of-  MAL  DISPLAY  H -EOUESTED  AMD  ANQTHE."-  NORMAL  DISPLAY  IS  ALREADY  ACTIVE 

( 9 E F i A \ H AND  • EG'  DSP  v'  r EXCEPT! '-'MS)  OF  (2)  A ?’■  ICHTY  DISPLAY  IS  F E GUESTED  WHEN  ANOTHER  PRIORITY  DISPLAY  IS 
AL  R F ADY  ACTIVE  (A  PRIORITY  ITH  LINOS  R1T1  IS  AN  EXCEPTION). 


e;asable  initialization  required — 


ACCOMPLISHED  BY  F'  OSI  ST  A I-  1.  FLAG- 

2.  NVSAVE  = 

3.  EBANKTEN 


(USED  EXCI  JSIVELY  BY  DISPLAY  INTERFACE  ROUTINES) 

NORMAL  VEF-B  AND  NOUN  P EGtSTER  . 

= NORMAL  INACTIVE  FLAGWOTDt  ALSO  CONTAINS  NORMALS  EBANK). 


output — 


5.  RISAVE  = MARKBRAN  CONTROL  WORD 
4.  REST!  EG  = PRIOR  IT  Y 30  AND  CUPEL  BANK  3. 


NVWORD  = PRIO  VERB  AND  NOUN 

) +HMAPKNV)  = 1ARF  VE  1 AND  NOUN 
fVHO'-'D  4-2  (UVSAVt  ) = > < n - y A t . VE-B  AMD  NOUN 


D c PF  LG  ( F3  AN  ■' 1 A V ) - FLACHPLD  ( I UCLOQJ  MG  §BANK) 

+1 (MARKEBAN)  = MARK  FLAGWORD  (INCLUDING  EBANK) 
DSPFLG  +2  (EBALKTEM)  = NORMAL  FLAGWORD  (INCLUDIG  FBANK  ) 


C A DP  FISH  = P(  It.  USEF  S 
C AD-  f ' SH  +1  ( : ' A r K F L S ) 
C ADR  FL  SH  + 2 { TEMPF  LS  H ) 


CALL  CAD:  +1  L PC  AT  T CD 
= TA-'K  USE'  S CALL  CADE  +1  LOCATION 
= NORMAL  USERS  CALL  CADR  +1  LOCATION 


P RIOTIME  = TIME  EACH  PRIO  REQUEST  FIRST  SENT  0UT 
OgFIONl  = DESIRED  OPT!:::  FRO  14  G PEPF4 

FLAGWRD4  = BIT  INFO  Ft"  CJ::TE"L  OF  ALL  0T  SPLAY  ROUTINES 
O-TEMl  = i i INI  F ■ AST.  OF  AUT  FROM  PERFuM  UI  SPLAYS!  (JO  P ' AL  ) 

SO1  UTINrS  USED — NVSUF  , F1AGUP,  F I.  AGDOWN , ENOOFJOB,  Bt.  ANK  SUB , ABORT,  JOBWAKF,  JORSIFEP,  FINDVAC,  PRIOCHNG, 
JAMTERM,  NVSUBUSY,  FLASHCN , END I OLE,  CHANG  1 , BANK JUMP  , MAKECADR,  NOVAC, 

DEBRIS—  (STORED  INTO) 


TEMPORARY  TEMPORARIES-  A,  Q,  L*  MPAC  +2,  M P A C 
EBANK,  J PT ' EGA  , IRC,  BAiKSCT,  MODE,  MPAC,  ' ' A C 4-1 
E-"  AS  ABES  ( SHAS  EC  AND  USED  W I ft  nTHEF  PROGRAMS) 


4-3,  MPAC 
CADRSTOR 


4-4,  MPAC  4-5,  MPAC  4-6,  RUPTREG2, 
4,  FAC  EP  EG 


DSPLIST,  LOC, 


DSPTEM1 , 


OP  T I ON  1 


R 'IP'  FG3, 


CYL  , 


E:  ASA81.ES  (USED  ONLY  BY  DISPLAY  ROUTINES)-  N VwOR  D , 4- 1 , 4-2  , 


,4-2  , 


DSPFLG,  4-1 


CADFFLSH,  + 1 ,4-2,  PRIOTIME,  FLAGWRD4 


GAP  : 

L 

R0424 


R 042  5 
P 0^  2 6 
R042T 

R 042  8 
R 0420 
R 0430 
R 043  1 
R 043  2 
R 043  3 
R 0434 
R 043  5 
R043( 
R 04  3 7 
R 043  3 
R 043  9 
R 

R 044  1 
R 0442 
R 044  3 
R 04  4 4 
R 0445 

R 0446 

R 0447 
R 044° 
R 0451 
R 0453 
R 0454 
R 045  6 
R 045  & 
R 0460 

R 0464 
R 0465 
R0466 
R 0 4 6 8 
R047P 
R 0472 
R 0474 

R 04-7  5 

R 04  76 
R 0478 


R 0479 


% 


ASSJMBLC  RE  V I ‘ I ON  1 CF  AGC  PROGRAM  APH'UPE  BY  LYLt  , 3:15  DEC.  2,1570 

OISTLAY  I NT  EF  F ACE  ROUTINES  USER’S  PAGE 

R1SAVE,  MARK2PAC, 

« 

OER  ; — (USED  BMV  ►•■u  Cf-’UEO  V ft)-  MUUkPcg,  VERBREG,  LOCCT'-,  M0NSAVE1 

FLAG-'1!"-  0 D E S C 7 1911(7  S — • 

FI.  AGWRO*-  EE  DFSCRIP'  I’™  UNDER  LOG  'ECT  ION  E ° A ABLE  ASST  GNMEN  T S 

DSPFLG,  DSPFLG+1 , OSPFLG  +2-  • 


BITS  1 BLANK  rH 

2 BLANK  12 

3 BLANK  R 3 

4 FLASHING  DISPLAY  REQUESTED 

5 PERFORM  DISPLAY  REQUESTED 

6  EJDSPRET  GCOSPTET 

7 I oi  ' PL  AY  

DEC  vi  A P K PE:  FORM  

9  EBANK 

10  EBANK 

11  EBANK 

12  V99  PASTE 

13  2ND  PART  OF  PERFORM 

1"  REF!  ASH  OR  REDO  E FI  ASH  v FDD 

15 ARK  EQUE'T  

RESTARTING  DISPLAYS — 

RULES  FUR  THE  DSKY  GPE.ATOR  — 

1.  PI'  '"C  EE  D • D TE-wf.*4ATE  SEi  VE  AS  RES  3ES  T;  r EQUEST  S FEM  OPERATOR  RESPONSE  (FLASHING  V/N).  AS  LONG 
AS  ThSrF  IS  ANY  REQUEST  AWAITING  OPERATOR  RESPONSE,  ANY  USE  OF  PROCEED  Or  TERMINATE  WILL  SERVE  AS 
RESPONSES  TO  THAT  EQUEST.  CARE  SHOULD  BE  EXERCISED  IN  ATTEMPTING  TO  KILL  AN  OPERATOR  INITIATED  MONITOR 
WITH  PROCEED  AND  TERMINATE  FOR  THIS  REASON. 

2.  THE  ASTRONAUT  MUST  'ESPOLD  TO  A PC  IT >ITY  DISPLAY  NO  SOONER  THAN  2 SECONDS  FROM  THE  TIME  THE 

-'T  V F<  ; -.u  tub  REQUEST  FOR  ' PF  AT-  "ESPUNSE  ( THE  ASTr  OUAUT  WOULD  SEE  THIS  DISPLAY  FC  R LESS  TIME 
DUE  TO  TIME  IT  TAKES  TO  OFT  DISPLAY  SENT  OUT.)  IF  THE  ASTRONAUT  RESPONDS  T00  SOON,  THE  PRIORITY  DISPLAY 

tc  SENT  OUT  agc:  — A-'D  ATTAIN  IE  'll  AN  ACCUMULATED  2 S EC  5 F PQM  THE  TIME  THE  FIF  ST  PRIORITY  DISPLAY 

OUT.  THE  SAME  2 SFC.  DELAY  WILL  OCCUR  AT  163.84  SECS  OR  IN  ANY  MULTIPLE  OF  THAT  TIMF  DUE  TO  PROGRAM 
CONSIDERATION. 

3.  KEY  RELEASE  BU  TLN- 

A)  IF  THE  KEY  E!  EASE  LIGHT  IS  (U,  IT  S Is  PLY  *"  EL  EASES  THE  KEYBOARD  AND  DISPLAY  FOR  INTERNAL  USE. 

B)  IF  THE  KEY  RELEASE  LIGHT  is  OFF,  AND'  IF  , ~ ME  REQUEST  FF " OPERATOR  RESPCN^E  (FLASHING  V/M  IS  STILL 
AWAITING  ! ESprUS  E THEN  IT  "•  E-ESTABLT  SHES  THE  DISPLAYS  THAT  ORIGINALLY  REQUESTED  RESPONSE. 

IF  AN  OPERATOR  WANTS  THEREFORE  TO  RE-ESTABLISH  BUT  CONDITION  (A)  IS  ENCOUNTERED,  A SECOND  DEPRESSION  OF 
KEY  RELEASE  BU7  TON  MAY  BE  NECESSARY. 

4.  IT  IS  IMPORTANT  TO  ANSWER  ALL  REQUESTS  FOR  UP  ERA  T OR  RESPONSE. 

5 • IT  IS  ALWAYS  GOOD  PRACTICE  TO  TERMINATE  AN  EX'  ENDED  VERB  BEFORE  ASKING  FOP  ANOTHER  ONE  OR  THF  SAME  ONE 
OVER  AGAIN. 


SPECIAL  CONSIDERATIONS — 
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CC  VC 
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3:  15  DEC 
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L DISPLAY  INTERFACE  ROUTINES  USER'S  PAGE  NO.  13  FO  S3 

0430  1.  M P AC  + 2 SAVED  ONLY  IN  MARK  DISPLAYS 

0481  2.  GODSP ( ) , P EGO OSP ( D ) , GGM A P K ( ) ALWAYS  TURN  ON  THE  FLASH  IF  ENTERED  WITH  A PASTE  VERB  REQUEST. 

R 04  83  3.  ALL  NOT  -AL  DISPLAYS  ARE  E.TARTABLE  EXCEPT  GODSP  (fM,  'EGGDSP(K) 

R0484  0,  ALL  EXTENDED  VE>  OS  WITH  DISPLAYS  SHOULD  START  WITH  A TC  TEST X ACT  AND  FINISH  WITH  A TC  ENDEXT. 

R 04  86  5.  GODSP (R)  AND  REGGDSP(R)  FUST  BE  IN  THE  SAME  E8ANK  AND  SUPERBANK  AS  THE  LAST  NORMAL  DISPLAY  RESTARTED 

R 043  P BY  A .1  RESTA'T  °H  AS  F CHANGE. 

R 04  B 6.  IN  ORDEd  TO  SET  UP  A NON  DISPLAY  .1  RESTART  POINT , THE  USER  MUST  MAKE  CERTAIN  THAT  RESTREG  CONTAINS  THE 

R 049 1 CORRECT  PRIORITY  AND  SIJPERBANK  AND  THAT  EBANKTEM  CONTAINS  the  CO 

R 0491 1 7.  IF  CLEA-'DSP  IS  RESTARTED  VIA  A .1  PHASE  CHANGE,  LAP  ZERC  SHOULD  BE  EXECUTEC  BEFORE  THE  TC  SANKCALL. 


, AP : ASS!  1LE  REVISIT  3C1  CF  A GC  PRCGRM  AP11R0PE  BV  FYLES 
DISPLAY  I I'T  ERF  ACE  ROUTINES 


3:15  Dt  C . 2 

USE R * 


P0492  CALLING  S EQUEMCE  FOP  BLANKING 
A 049  3 
A 0494 
A 04  95 


CAF  B ITX  X=l, 2, 3 BL 

TC  BLANKET 

...  ...  RETURN  TO 


R n<  " in  ORDER  tq  USE  BLANKET  Of-  * C H Y THE  USE?  MJ^T  USE  A DISPLAY  °roTIN€  fHAi  ENDS  IN 

R0498  TO  BLANKET  AT  THE  I MME  D I AT  F RETURN  LOC  . 


049  9 

5464 

0500 

R EF  1 

4000 

0501 

8464 

BLOCK  02 
SET LOC  FFTAG4 
BANK 


,1970  SKIPPER  .087  PAGE  1354 
S PAGE  NO.  14  EO  S3 

ANK  R 1 , R 2 , R 3 RESPECTIVELY 
USER  HERE 

r FIRST  FOLLOWED  BY  r HE  CALL 


0502  REF  I 

0503  REF  805  LAST  1338  5464 

0504  REF  1 5465 

0505  REF  806  LAST  1354  5466 

0 50  6 ‘EF  r 07  LAST  1354  046-7 

0507  RFF  2 LAST  U«  5*70 

0508  REF  354  LAST  1340  5*71 


count* 

$ $ / D c 

•PLA 

54 

162 

0 

BLANKET  TS 

YPAC 

+ 6 

4 

(.160 

1 

CS 

PLAYTEM4 

7 

0162 

0 

MASK 

MP  AC 

+ 6 

50 

161 

1 

INDEX 

M P AC 

26 

160 

1 

AOS 

PLAYTEM4 

0 

0002 

0 

TC 

0 

0511  REF  5?  LAST  1331 

0512  REF  1 


54  7 2 0 4 63  5 0 E NON  ARK  TC 
:T?1  2032-  1 CADI 


POST JUMP 
Y ARK END 


05121  REF  245  LAST  1339  5474 

05122  REF  16  LAST  718  5475 

05123  5476 

0512  4 REF  2 LAST  1340  5<+7? 

05125  RFF  5 LAST  47c  5^00 

05126  REF  6 LAST  1354  1 


3 47  55 
55*044 

1 

1 

CLEAR  MRK 

CAF 

TS 

ZERO 

EXTVBACT 

0 0004 

0 

+ 2 

INHINT 

*•  *7  53 

0 

CS 

XDSPBIT 

7 0100 

1 

MASK 

FLAGWRD4 

54  100 

1 

TS 

FL AGWRD4 

05127  5502  0 0003  1 RELINT 

0512  8 REF  35-  LAST  135'-  -503  0 0002  0 TC  Q 

RC513  ***  <'••!.!.  EXTENDED  VE  ••  >’  s'  'UTT  N El  THAT  HAVE  AT  1 EAST  ONE  FLASHING  DISPLAY  MUST  TC  F ENDHAfK  OR  TCP  ENDEXT  WHEN 

ROM-  FI  I SHED. 


0516  10,2326 

0517  REF  1 1C, 2000 

0518  10,2326 


BANK  10 

SLTL  !C  DISPLAYS 

BANK 


051°  'H  1 COUNT  * IS/DM'LA 

R 0520  NTETQNLY  IS  USED  TO  DIFFERENTIATE  THE  MARK  ROUTINE  WITH  ONLY  ONE  RETURN  TO  THE  USER  FROM  THE  MARKING  ROUTINE  WIT 
R 0 5 2 2 3 RETURNS  TO  THE  USER.  THIS  ROUTINE  IS  ONLY  USED  BY  GOM ARK  I AND  GQMARK1R. 


052°! 

05?c7 

REF 

REF 

? LAST  225 

1 

10.2326 

10.2327 

0 

1 

54  74 
34  21 

0 

1 

MARK  END 

TC 

TCP 

CLEAR  MR  K 
MARKOVEP 

0530 

REF 

I 

10,2330 

54 

155 

1 

GOMARK 

TS 

PLAYTEM1 

ENTRANCE  FOR  MARK  GODSP 

GAP:  ASSEMBLE  -EVISllN  Q01  UF  AGC  PRuGKAM  APUkDPE  BY  EYLES 


L OIS  PL  AY  INTERFACE  ROUTINES 


0531 

REF 

43 

LAST 

1317 

10,2331 

3 

4735 

1 

GOMARS 

CAF 

0532 

PEF 

1 

10,2332 

1 

2500 

1 

TCF 

0533 

f EF 

246 

LAST 

1354 

10,2333 

3 

'755 

1 

KLEENEX 

CAF 

053''; 

REF 

2 

LAST 

1 3 54 

19,2334 

54 

1 5 5 

1 

GO MAR KF 

TS 

0535 

REF 

1 

10,2335 

3 

3 031 

0 

CAF 

0536 

REF 

2 

LAST 

1355 

10,2336 

1 

2500 

1 

TCF 

0539 

REE 

3 

LAST 

13  6 5 

10,  233  7 

54 

155 

1 

GOMAF K2 

TS 

0540 

EF 

1 

10,2340 

3 

3520 

0 

MARK FORM 

CAF 

AC/,  I 

DOC 

-I 

1 A v T 

1 T,  - C 

i 

? r;  n O 

1 

TCP 

U !3<t  1 

Ktr 

1 A o 1 

ID 

1 ' ■ j ' _>*T  I 

1 

C-  Jj  XjXj 

1 

1 L-  i 

0542 

REF 

4 

LAST 

1355 

10,2342 

54 

155 

1 

GOMARK3 

TS 

0543 

PEF 

1 

10,2343 

3 

3 505 

1 

CAF 

0544 

REF 

4 

L A6T 

1 3 5 5 

10,2344 

1 

2 500 

1 

TCF 

0545 

REF 

c 

LAST 

1 3 55 

10, 234 c 

54 

155 

1 

GCMARK4 

TS 

0546 

REF 

l 

10,2346 

3 

3506 

1 

CAF 

0547 

REF 

5 

LAST 

1355 

10,2347 

1 

2500 

1 

TCF 

0548 

R FF 

6 

LAST 

1365 

10,2350 

54 

1 5 5 

1 

GO MAP KF 

TS 

0549 

c FF 

i h 

LAST 

13c5 

15 , 4 * 5 1 

3 

4735 

1 

CAF 

0550 

REF 

1 

10,2352 

1 

2453 

0 

TCF 

0551 

REF 

7 

LAST 

1355 

10,2353 

54 

155 

1 

GOMARKFR 

TS 

0552 

REF 

2 

LAST 

13c8 

10,2354 

3 

3C3  1 

0 

CAF 

0653 

p pp 

i 

1 A O 7 9 ” 

1 

n 

T C i- 

1 

I vL*  j c.  0 “ 

X 

60  Of 

u 

1 L r 

0559 

REF 

8 

LAST 

1355 

10,2356 

54 

155 

i 

GO MAS  K2F 

TS 

0560 

REF 

2 

LAST 

1355 

10, 2357 

3 

3520 

0 

CAF 

056  1 

PEF 

2 

LAST 

1355 

10,2  360 

1 

2637 

0 

TCF 

0561  1 

PEF 

9 

l A.pt 

1355 

19,336  1 

54 

158 

1 

GOMAPK3P 

TS 

05612 

PEF 

2 

LAST 

1355 

10,2362 

3 

3505 

1 

CAF 

05613 

RFF 

3 

LAST 

1355 

10,2363 

1 

2637 

0 

TCF 

066  2 

PEF 

1 34 

LAST 

1329 

10,2364 

3 

4 753 

1 

Maks mark 

CAF 

0563 

REF 

1 

10,2365 

0 

2735 

1 

TC 

0564 

REF 

7 

LAST 

13  54 

10,2366 

3 

0100 

0 

CA 

056  5 

REF 

1 

10,2367 

7 

3521 

0 

MASK 

0566 

REF 

423 

LAST 

1340 

10,2370 

10 

000 

0 

CCS 

056  7 

PEF 

1 

10,2371 

1 

2427 

0 

TCF 

0568 

»FF 

8 

LAST 

1355 

10, 2372 

3 

0100 

0 

CA 

0569 

REF 

1 

10,2373 

7 

4743 

1 

MASK 

0570 

10,2374 

0 

f 006 

1 

EXTEND 
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USER'S  PAGE  NO.  15  EO  S3 

B IT  1 5 
G0FLASH2 

RIT15  SET  FOP  ALL  MARK  REQUESTS 

ZERO 

PL AYTEM1 

CLEAN  OUT  EXTENDED  VERBS 

ENTRANCE  FOF  MARK  GOFLASH 

MAR  KF  MS  K 
G0FLASH2 

MARK, FLASH 

PLAYTEM1 

MPERFMSK 

GOFF ASH2 

MARK  GO °ERFS— 3 AST.  RETURNS 

MARK,  PERFORM,  FLASH 

PLAYTEM1 

MARK  3MSK 
G0Fi.AS.H2 

USED  FOP  3C0MP  DECIMAL  PER  FOP  M 

0 l.AYTFMl 
MARK4MSK 

GOFL  ASH2 

MARK, PERFORM, FLASH, BLANK 

PLAYTFM1 

BIT  15 

G0DSPR2 

ENTR+NCE  FOR  MARK  GODSPR 

PLAY T EMI 

MAP  KFMSK 
GODSPRS 

ENTRANCE  FOF  MARK  GOFLASHR 

PLAYTEM1 

MPERFMSK 

GODSPRS 

playtImi 

MARK3MSK 

GODSPRS 

ONE 

COPIES 

MARK  GOPEPF5-3  AST.  RETS+  IMMEDIATE  PET. 

MA^K,  PERFORM,  FLASH 

FLAGWPD4 

OCT 34300 

A 

CHKFKIO 

TS  NORM  OR  PPIO  BUSY  OR  WAITING 

FLAGWRD4 
MRKMV  BIT 

IS  MARK  SLEEPING  DUF  TO  ASTRO  BUSY 

GAP:  ASSEMBLE  REVISION  GG1  Of  AGC  PROG!-  AM  aPUKUPE  BY  EYLES 


3:15  DEC.  2,1970  SKIPPER  .087  PAGE  1356 


L 

DISCI  AY 

I NT ERF 

ACE  ROUTINES 

USER'S  PAGE  NO. 

> 

m 

o 

0571 

REF 

1 

10,2375 

1 

2377 

1 

BZF 

MARK PL  AY 

NO 

0572 

REF 

146 

LAST 

1210 

10, 2376; 

1 

5155 

1 

TCF 

LNQCF JCB 

0594 

10,2377 

0 

0004 

0 

MARK  PL  AY  IN  H I NT 

0595 

RFF 

22 

1 AST 

12  85 

1 G if  24  00 

4 

4756 

0 

CS 

FIVE 

PESET  MA”K  OVER  NORM, 

SET  MARK 

0596 

1 EF 

9 

LAST 

1355 

10,240 1 

7 

0100 

1 

MASK 

FLAGWR D4 

05965 

REF 

135 

LAST 

1355 

10,2402 

6 

47  5 3 

1 

AD 

ONE 

0597 

REF 

10 

LAST 

1356 

10,2403 

: 54  100 

1 

TS 

FLAGWRD4 

0598 


10,2604  0 0003  1 


ELI  0 T 


0599 

0600 
OfcOl 
0602 
06  03 
060^ 


REF  1 
REF  42 
REF  429 
REF  1 
0 EF  1 
REF  2 


LAST  1336 
LAST  1355 


LAST  1356 


10.2405 

10. 2406 

10.2407 
10,2410 
1", 2411 
10,2412 


4 1071  1 
7 4747  0 
10  000  0 
1 24  13  1 
4 0370  1 
54  370  1 


GO'GT.'MAP  k cs 

MASK 

CCS 

TCF 

CS 

TS 


MACK  FLAG 

BIT5 

A 

MARK C Of 
MARKNV 
MARK MV 


PE" EOF m 


0605 

REF 

136 

LAST  1356 

10,2413 

3 4753 

1 

MARK COP 

CAF 

ONE 

MARK  INDEX 

0606 

REF 

1 

10, 2414 

1 2616 

0 

TCF 

PRIOPLAY 

0607 

REF 

1 

10,2415 

3 Cl  65 

0 

COPY  TOGO 

CA 

MPAC2SAV 

060  P 

REF 

808 

LAST  1354 

10, 2416 

5 4 15  6 

1 

TS 

YP AC  +2 

0609 

P.  EF 

1 

in, 2417 

50  164 

1 

COPYPACS 

INDEX 

COP  INDEX 

0610 

REF 

1 

10,2420 

3 353  1 

0 

CAF 

PRIOOCT 

0611 

REF 

1 

10, 242  1 

54  162 

0 

TS 

GENM4SK 

0612 

REF 

2 

LAST  1356 

10 , 242  2 

5 ( 1 6 4 

1 

index 

COP  INDEX 

0613 

SEE 

] 

10,2423 

3 1070 

1 

CAF 

c a a Mx  c a \/ 

I 

COM  I v AjM V 

0614 

RFF 

1 

10,2424 

54  160 

1 

TS 

TEMP0R2 

ACTIVE  EBANK  AND  FLAG 

0615 

REF 

76 

LAST  1331 

10,2425 

54  003 

0 

TS 

E BANK 

0616 

REF 

3 56 

LAST  1354 

10,2426 

0 00C2 

0 

TC 

Q 

R 0617 

PINCHEK 

CHECKS  TO  SEE 

IF  THE 

CURRENT 

MARK  REQUEST  IS  MADE  BY  THE  ASTRONAUT  WHILE  INTERRUPTING  A GOPLAY  DISPLAY 

R06  19 

( A 

NORMAL  OR  A PRIG). 

IF  THE 

ASTRONAUT 

TRIES  TO 

MARK  DURING  A PI-  10,  THE 

CHECK  FAIL  1 I GHT  GOES  ON  AND  THE 

MARK 

R 0621 

REQUEST 

IS  ENDED.  IF 

HE  TRIES 

TO  MARK 

DURING  A NORM,  THE  MARK  IS  ALU  WED 

'.  IN  THIS  CASE  THE  NORM  IS  PUT  TO 

SLEEP 

R 062  3 

UNTIL  ALL  MARKING  IS 

finished 

• 

P 0624 

IF 

THE  MARK  REQUEST  COMES  FcOM  THE  PROGRAM 

DljR  I MG 

A TIME  THE  ASTRONAUT  IS  NOT  INTERRUPTING  A NPPMAL 

OP  A 

R0626 

PRI 

n,  THE  MARK  REQUEST  IS  PUT 

TO  SLEEP 

UNTIL  THE 

+RESENT  ACTIVE  DISPLAY 

IS  RESPONDED  TO  BY  THE  ASTRONAUT . 

0628 

REE 

11 

LAST  1356 

10,2427 

3 0100 

0 

CHKPRIO 

CA 

F LAGWRD4 

MARK  ATTEMPT  DURING  PRIG 

0629 

REF 

1 

10,2430 

7 32  54 

0 

MASK 

OCT 24 100 

06  3 C 

REF 

A 30 

LAST  1356 

10,2431 

10  000 

0 

CCS 

A 

0631 

PFF 

1 

10,2432 

1 34^4 

0 

TCF 

MARS1 EEP 

0632 

RFF 

12 

LAST  1356 

10,2433 

4 0100 

1 

CS 

F LAGWRD4 

GAP: 
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0633 
06  3^ 
0635 

063  ( 

0637 

0638 

0639 

0640 

0641 

0642 

06  4 3 

0644 

0645 

0646 

064  7 
064  8 

0649 

0650 

R0651 
R 066  3 

R 0654 
R 0656 

R 0657 

A 065  8 
A 0659 

0660 
06  61 

0662 

0663 

0664 

0665 

0666 


DISPLAY  INTERFACE  ROUTINES 


REF 

1 

1 ACT 

10.2434 

10.2435 

7 

0 

47  51 
C004 

1 A A 

1 

0 

1 

MASK 

INHINT 

A fYC 

K E F 

1 3 

L A b 1 

I 3 e 

10* 2436 

26 

I u u 

1 

REF 

1 

10, 2437 

1 

2 534 

0 

TC  F 

REF 

3 

LAST 

1366 

10,2440 

3 

0370 

0 

M ARK P ERF 

CA 

REF 

1 

10,244  1 

7 

^ 144 

0 

MASK 

nrc 

1 

1 A 9 A / O 

1 

21  TO 

A 

Tr  r- 

rs  t r 

J 

1 t c-  H l 

1 

sic.  V 

U 

1 c.  I 

REF 

10 

LAST 

1355 

10,2443 

54 

15  5 

1 

GODS  0 

TS 

REF 

2 47 

LAST 

1355 

10, 2444 

3 

5155 

1 

G0DSP2 

CAF 

REF 

6 

LAST 

1355 

10,2445 

1 

2500 

1 

TC  F 

REF 

1 1 

LAST 

1357 

10,2446 

54 

155 

1 

godspret 

TS 

REF 

56 

LAST 

1327 

10, 2 44 7 

3 

4 74  6 

0 

CAF 

REF 

7 

LAST 

1357 

10,2450 

1 

2500 

1 

TCF 

REF 

12 

LAST 

1357 

10,2451 

54 

155 

1 

GOD  SP  R 

TS 

REF 

24  3 

1 AST 

1 357 

10 , 2452 

3 

4755 

1 

GODS  PR  1 

CAF 

PFF 

3 

LAST 

13  54 

10,2453 

54 

160 

1 

G0DSPP2 

TS 

REF 

249 

LAST 

1357 

10, 2454 

3 

4755 

1 

CAF 

REF 

1 

10,2455 

1 

2641 

1 

tcf 

CLEANDS®  Ir  US EC  F'  CLEARING  CUT  A NORMAL  DISPLAY 
SET  UP  TO  BE  STARTED  OR  RESTARTED. 


USER’S  PAGE  NO.  17  EO  S3 

MKOVBIT  SET  MARK  OVER  NORM 

FLAGWK04 

SETNQRM 

MARKNV 

VERBMASK 

NV5GDSP 

PLAY'TE,'1l 

ZERO 

G0FLASH2 

PLAY TE Ml  ENTRANCE  FOR  A GPDSP  W ITH  A PASTE 

BITA  SET  BIT6  TO  GO  BACK  TO  USER  AFTER  NVSUB 

G0FLASH2 

PLAY  TEN  1 

ZERO 

DLAYTEM4 

ZERO  * DONT  MOVE 

GODS P RSI 
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5523 

0 0 004 

0 

INHINT 

007  0 

REF 

28 

LAST 

1375 

5524 

54  063 

0 

TS 

I TEMP3 

0071 

REF 

3 

LAST 

1092 

552  5 

3 4762 

0 

CA 

LUW4 

DEC  15 

007  2 

P EF 

58 

LAST 

1375 

55  26 

54  0 61 

1 

TS 

T TE  MP1 

007  3 

R EF 

29 

LAST 

1375 

5527 

50  063 

1 

INDEX 

ITEMP? 

0074 

5430 

2*7777 

0 

CA 

0 -1 

ADPES 

0075 

REF 

244 

LAST 

1375 

553  1 

54  C01 

1 

TS 

L 

0076 

REF 

259 

LAST 

1370 

5532 

3 4755 

1 

CA 

ZERO 

1" 


GAP:  AS  S tr 1 1 3 L E C V IS  1 01-!  lil  :E  A GC  PROGRAM  AP11ROPE  BY  EYt.ES 


L SEE  VICE  OUTIMES 


0077 
007  8 

REF 

5° 

LAST 

1375 

0079 

REF 

60 

LAST 

1376 

0080 

REF 

61 

LAST 

1376 

0081 

REF 

3 2 

LAS'" 

1375 

0082 

P EF 

245 

L ACT 

13  75 

0083 

REF 

26 

LAST 

1324 

0G84 

RFF 

45 

1 AST 

1355 

0085 

REF 

365 

LAST 

1375 

5533  0 C 006  1 EXTEND 

5534  10  061  1 DV 

5535  52  062  1 DXCH 

5536  50  061  0 INDEX 

5537  3 ''•074  1 CA 

5540  54  001  1 TS 

554  1 50  062  0 INDEX 

554  2 4 473  5 0 CS 

554  3 0 0002  0 TC 


ITEMP1 
I TEMPI 
I TEMPI 
FI AGWRO0 
L 

ITEMP2 
B IT  1 5 
Q 


3:15  DEC.  2,lr70  SKIPPER 
USER'S  PAGE  NO.  3 


.067  PAGE  1376 
EO  S3 


A = FL AGWPD,  L = (15  - BIT) 


CURRENT  STATE 
-! 15  - BIT  ) 


GAP:  ASSEMBLE  REVISION  001  OH  AGG  PROGRAM  API 1R0PE  BY  EYL,ES 


3:  15  DEC 


2,1970  SKIPPER  .087  PAGE  1377 


L SERVICE  ROUTINES  USER'S  PAGE  NO.  A EO  S3 

P 0086  DEL  AY JOB-  A GENERAL  ROUTINE  TO  DELAY  A JOB  A SPECIFIC  AMOUNT  OF  TIME  BEFORE  PICKING  UP  AGAIN. 


ROC 8 3 ENTRANCE  REQUIREMENTS... 
A0089 
A 0090 
A 00°  1 


CAF  DT  DELAY  JOB  FOR  DT  CENT ISECS 

TC  BANKCALl 

C A Dr  DEL AY JOB 


0092 

06,3764 

BANK 

0093 

REF 

1 

0 0,2000 

oETLUC 

0094 

00,373* 

BANK 

> 009* 

this 

MIST  REMAIN  IN 

BANK  9 ****£*-$ 

iff#  # 

afe  * * * * * sjt  # # aje  * # # 

0096 

REF 

1 

COUNT* 

0C97 

00, 373* 

0 C 004 

0 

DFLAYJOB 

INHINT 

0098 

REF 

366 

LAST 

1376 

00 , 3736 

54  002 

1 

T S 

0099 

REF 

I 

00,3737 

3 4752 

0 

CAF 

m nr» 

prc 

I ACT 

1 3 ? A 

on . 774  a 

a r 7 0 

1 

np«  1 nnp 

L H D 1 

0101 

REF 

454 

LAST 

1371 

00,3741 

50  000 

1 

INDEX 

0102 

REF 

A 

LAST 

222 

00,3742 

3 1326 

1 

CA 

0103 

00,3743 

0 0006 

1 

EXTEND 

010' 

RFF 

1 

00,3744 

1 3752 

0 

BZF 

010* 

REF 

57 

LAST 

1377 

00,3745 

10  0 70 

1 

CCS 

0106 

REF 

1 

00,3746 

1 3 740 

0 

TCF 

0107 

REF 

20 

LAST 

133  1 

00,3747 

52  134 

0 

QXtrH 

0108 

: REF 

7 

LAST 

1330 

00,3750 

0 5716 

1 

cr 

TC 

010® 

00,3751 

01104 

0 

OCT 

0110 

REF 

1 

OC, 37*2 

3 3772 

0 

0K2DELAY 

''6A. 

0111 

REF 

7 

LAST 

1132 

00,3753 

54  C * 1 

1 

TS 

Oil? 

REF 

30 

LAST 

1105 

00,3754 

3 0004 

0 

CA 

Oil? 

?EF 

5 3 

LAST 

1377 

00,3755 

6 0070 

0 

AD 

Oil* 

RFF 

246 

1 376 

00,3756 

54  001 

1 

TS 

0115 

REF 

1 

00,3757 

3 3773 

1 

CAF 

0116 

REF 

2 

LAST 

1119 

00,3760 

i 52  11 

1 

TCF 

0117 

REF 

15 

LAST 

1362 

00,3761 

0 4645 

1 

TCGETCAD 

TC 

0118 

REF 

59 

LAST 

1377 

00,3762 

50  070 

0 

INDEX 

0119 

REF 

5 

LAST 

1377 

00,3763 

55 ' 3 26 

0 

TS 

0120 

REF 

8 

LAST 

1363 

00,3764 

0 5133 

0 

TC 

0121 

REF 

260 

LAST 

137* 

00,376  5 

3 4755 

1 

WAKER 

CAF 

0122 

REF 

45 

LAST 

1361 

00,3766 

50  006 

1 

INDEX 

0123 

REF 

6 

LAST 

1377 

CO, 3767 

57  • 326 

1 

XCH 

06 


$$/DFL AY 

q 

DEL AY NUN 
RUPTREG 1 
A 

DELAYLOC 

0K2DEL AY 

RUPTD  EG  1 
DELLOOP 


BUF2 
BAIL  OU T 1 
1 104 

TC  SLEEP 

waTte XI T 


F BANK 

RUPTREG! 

L 

WAKECAD 
DLY2  -1 

Y AK  EC  ADF 

RUPTREG1 

DELAYLOC 

Jf'BSLEEP 

ZERO 

BBANK 

DELAYLOC 


STORE  DELAY  DT  IN  0 FOR  DLY  -1  IN 
WAITLIST 


IS  THIS  DELAYLOC  AVAILABLE 
YES 

NO,  TRY  NEXT  DELAYLOC 


NO  AVAILABLE  LOGS. 


SET  WAITLIST  IMMEDIATE  RETURN 


STORE  BBANK  FOR  TASK  CALL 


STORE  CADR  FOR  TASK  CALL 
DLY  IS  IN  W A I T t 1ST  ROUTINE 

GET  CALLERS  FCADP 


SAVE  DELAY  CADRS 


MAKE  DELAYLOC  AVAILABLE 


G AP : 

ASSEMBLE  PEVISI 

31.  001 

OF  AGC  Fv 

L G i < A M AF 

>1  1 

F,  OPE  e.Y 

LYLES 

L 

SERVICE  ROUTINES 

0124 

012  5 

REF 

REF 

13  LAST 

■31  LAST 

1364 

1328 

CO, 3770 

Op, 377 1 

0 5137 

0 52  61 

1 

1 

TC 

TC 

JOBWAKE 

TASKOVER 

0126 

PFF 

1 

00,3772 

037  57 

1 

TCSLEEP 

GEN  AO1" 

T CGETCAD 

0127 

Df-p 

1 

00,3773 

J 3 7 6 5 

0 

WAKECAD 

GEN  AOS 

WAKE1- 

3:15  DEC.  2,1970  SKIPPER  .087  PAGE  1378 
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> GAP:  ASSEMBLE  G VI  SIGN  061  OF  AgC  PROGRAM  API l ROPE  BY  EYLtS  3:  It  DEC.  2,1970  SKIPPER  .087  PAGE  1379 

) L S l ' 7 ICF  0H‘r  I'JES  USER’S  PAGE  MO.  6 EO  S3 

) 

P 01 2 8 GENTRAN,  A BLOCK  TRANSFER  ROUTINE. 

RC12-  WRITTEN  BY  D.  EYLES 

P t:  13'  ' D 1 BY  KE  -'A  UTILITY."  ! EV  17  11/18/67 

R 01 3 2 MOD  2 BY  SCHUL  EN3  ERG  (REMOVE  REtINT)  SKIPPER  REV  4 2/?V6f 

R0133  TUTS  ROUTINE  IS  USEFULL  FC.\  TRANSFER  I NG  N CONSECUTIVE  ERASABLE  OR  FIXED  QUANTITIES  TO  SOME  OTHEF  N 

R0135  CONSECUTIVE  ERASABLE  LOCATIONS.  IF  BOTH  BLOCKS  GF  DATA  ARE  IN  SWI TCHABLE  EBANKS,  THEY  MUST  BE  IN  THE  SAME  ONE. 


R 013  T 

gfntran  is  cai 

LLABl F 

IN  A JOB  AS  WELL  AS 

A RUPT 

. THE  calling 

SEQUENCE  Is: 

A 0 1 3 9 

I 

CA 

N-l 

# OF  QUANTITIES  MINUS  ONE. 

A014C 

I +1 

TC 

GENTRAN 

IN  FIXED-FIXED. 

A ul4  1 

I +2 

ADR  ES 

l. 

STARTING  ADRES  OF  DATA  TO  BE  MOVED. 

A 0 1 A 2 

I +3 

ACT  FS 

M 

ST  ART  1 1 G ACRES  OF  DUPLICATION  BLOCK. 

A 01  : 3 

I +'- 

"E  TURNS  HERE. 

R0144 

GENTRAN  TAKES 

2 5 MCT 

■ S (300 

MICROSECONDS)  PER 

ITEM  + 5 

MCT  • S 

(60  MICS)  FOP  ENTERING  AND  EXITING. 

R01A6 

A,  L 

AND  ITF-.Pl  A t 

NOT  PRESERVED. 

01-7 

5544 

BLOCK 

0? 

014  0 

OFF 

2 

LAST 

13  54 

4000 

SETl OC 

FFTAG' 

0149 

5544 

BANK 

0150 

REF 

62 

LAST 

1 3 76 

(..06  1 

E BANK  = 

ITEM PI 

0151 

REF 

1 

COUNT* 

$ $ / TR AN 

0152 

5544 

0 0004 

0 GENTRAN 

INHINT 

0153 

PEF 

63 

LAST 

1379 

554  5 

54  0 61 

1 

TS 

T TEMP  1 

SAVE  N-l. 

0154 

kEF 

367 

LAST 

1377 

5546 

50  002 

0 

INDEX 

Q 

C ( Q ) = ADRES  L. 

0155 

5547 

6 COOO 

1 

AD 

0 

ADRES  (L  + N - 1 ! . 

015  4 

REF 

455 

LAST 

1377 

5450 

50  000 

1 

INOE  X 

A 

0157 

T'55  1 

3 0000 

1 

CA 

0 

C( ABOVE ) . 

0158 

R EF 

247 

LAST 

1377 

5552 

54  C01 

1 

TS 

L 

SAVE  DATA. 

0159 

REF 

64 

LAST 

1379 

5553 

3 OC  61 

0 

CA 

I TEMPI 

0160 

REF 

368 

LAST 

1379 

5554 

50  002 

0 

INDEX 

Q 

0161 

5555 

6 CC01 

0 

AD 

1 

AD5  ES  ( M + N - I ) . 

01fc2 

REF 

456 

LAST 

1379 

55  56 

50  0 00 

1 

INDEX 

A 

0163 

5857 

2?  000 

1 

LXCH 

0 

STUFF  IT. 

0164 

REF 

65 

LAST 

1379 

5560 

10  061 

1 

CCS 

I TEMPI 

LOOP  UNTIL  N-l  = 0. 

0165 

REF 

2 

LAST 

297 

5561 

1 5545 

1 

TC  F 

GENTP AM 

+ 1 

0166 

REF 

5 

LAST 

1204 

5562 

1 6 741 

1 

IGF 

Q+2 

f ETURN  TO  CALLEF. 

► 


« 
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L 

SERVICE 

POUT  IVES 

USER'S  PAGE  NO. 

7 

EO  S3 

P 0167 

B50FF 

ZERO  BIT  5 OF 

EXTVB ACT , WHICH  IS  SET  BY 

TESTX ACT 

• 

R 0168 

MAY  BE  USED 

AS  NEEDED  BY  ANY  EXTENDED 

VERB  WHICH  HAS  DONE  TESTX ACT 

,.z 

0170 

REF 

1 

COUNT  * 

5 $ / E X T V B 

0171 

REF 

46 

LAST  1367 

5563  4 4747  0 B50FF 

CS 

BIT5 

0172 

PEF 

17 

LAST  1354 

5564  7 1044  1 

MASK 

EXTVBACT 

0173 

REF 

18 

LAST  1380  .. 

55 6 5 55 '044  1 

TS 

EXTVB ACT 

0174 

REF 

156 

LAST  1372 

5566  0 5155  0 

TC 

ENDnF JOB 

3" 


2" 


> 


i" 


► 


ASSEMBLE  *E VISION  "Cl  OF  AGO  PROGRAM  AP11RGPE  BY  EYLES 


3:15  DE  C 


2,1970  skippep.  .087  page  1381 


H 

• 

0 

• 


GAP : 

L ALA',,  AMO  A 80'  USE  P'S  PAGE  NO.  1 

ft  000 1 THE  FOLLOWING  SUBROUTINE  MAY  BE  CALLED  TO  DISPLAY  A NON- ABORTIVE  ALARM  CONDITION.  IT  MAY  BE 

R 000  3 EITHER  IN  I NTERRUP‘r  OR  UNDER  EXECUTIVE  CONTROL. 


^ R 0004  CALL  IF'’  SEQUENCE  IF  AS  FOLLOWS: 

R OOP 5 TC  ALARM 

P 0006  OCT  A A ANN  ALARM  NO.  NN  IN  GENERAL  AREA  AAA. 

• R 0007  (RETURNS  HERE) 


00 OF  : • 6 '7 

• Of;  REF  1 

00 1C  c c 67 


BLOCK  02 

S El  LOG  F FT  A 07 

BANK 


• 0011  REF  3 LAST  471  C37- 


EBANK=  FAIL  REG 


2 

* 


2" 


1" 


0012  ft EF  1 COUNT*  $ $/ At AR M 

R 001 3 ALARM  TURNS  ON  THE  PROGRAM  A l ARM  LIGHT,  BUT  DOES  MOT  DISPLAY. 


0014 

5567 

0 CO 04 

0 

ALARM 

G01 5 

fe  p r 

369 

LAST 

1 17.Q. 

c;«7n 

•7  r , r.n  O 

A 

i _»  i ■? 

->  L.  V U d 

y 

0016 

REF 

4 

LAS'! 

1 2 m 6 

5 571 

55 ' 363 

1 

AL  Af  M2 

0017 

R E F 

370 

LAST 

13"! 

5572 

50  002 

0 

0019 

7 r r>  r n 

1 

i D 

D 1.  UUU 

I 

001P 

REF- 

248 

LAST 

1379 

5574 

54  00  1 

1 

BORTENT 

0020 

REF 

46 

LAST 

1377 

5575 

3 0006 

1 

Pi  IOFNT 

0021 

55  76 

0 re  04 

1 

+ 1 

00  2 2 

REF 

2 7 

LAST 

13  41 

55  77 

04  007 

1 

002  3 

C'FF 

5 

LAST 

1 7 A 1 

S A 0 0 

*7  r.  * q f.  /. 

A 

Juvj  v* 

3 

U 

0024 

REF 

371 

LAST 

1381 

5601 

3 COO 2 

0 

1 ARMENT 

0025 

REF 

66 

LAST 

1379 

5602 

54  0 61 

1 

002  6 

REF 

9 

LAST 

1381 

5603 

It  375 

1 

CHKFA1L1 

0027 

c FF 

1 

c604 

1 5607 

i 

0028 

REF 

10 

LAST 

1381 

5605 

22  375 

0 

002° 

REF 

1 

5606 

1 5621 

0 

0030 

REF 

11 

LAST 

138  1 

560  7 

1.0  3 7fc 

1 

CHKFAIL2 

0031 

R E F 

1 

56  1 0 

1 6l  13 

1 

0032 

KEF 

12 

LAST 

1381 

•"11 

22  376 

0 

0033 

P EF 

1 

5612 

1 56  24 

0 

0034 

REF 

13 

LAST 

138  1 

5613 

3 C37 7 

1 

FAII  3 

0035 

REF 

32 

LAST 

1)  29 

5 4 1 4 

7 4733 

0 

0036 

REF 

457 

LAST 

13  79 

5615 

1C  000 

0 

0037 

REF 

1 

561  6 

1 56  3 0 

0 

0038 

REF 

I 4 

LAST 

1381 

56  17 

22  377 

1 

003  9 

REF 

2 

LAST 

1381 

5620 

1 5624 

0 

INHINT 

CA  Q 

_rS  ALMCADR 

INDEX  Q 

CA  0 

TS  L 

CA  BBANK 

EXTEND 

SUPER BNK  ADD  SUPER  BITS. 

TS  ALMCADR  +1 

CA  Q STORE  RETURN  FOR  ALARM 

TS  I TEMPI 

CCo  FAIL  REG  IS  ANYTHING  IN  F A 1 L 5 E G 

TCF  CHKFAIL2  YES  TRY  NEXT  PEG 

LXCH  FAILREG 

TCF  PROGLARM  TURN  ALARM  LIGHT  ON  FOR  FIRST 

CCS  FAILREG  +1 

TCF  FAIL  3 

LXCH  FAIL  "EG  +1 

TCF  MULTEXIT 

CA  FAIL  LEG  + 2 

MASK  PCS  MAX 

CCS  A 

TCF  MULT  FA  I L 

LXCH  FAILREG  +2 

TCF  MULTEXIT 


EO  S3 
CALLED 


ALARM 


GAP:  ASSI  ’ BIF  Kt  VISION  001  OF  AX  PROGRAM  AP11  OPE  BY  EYLtS 

L ALARM  AND  ABORT 


0040 

0041 

0042 

0043 

0044 

0045 

0046 

004  7 

0048 

0049 

0050 

R0051 
POO  53 
A 0054 
A0055 
A00r  6 

A0057 
A 005  8 
A 

A0060 
A 1 


REF 

47 

LAST 

1317 

562  l 

REF 

2 

LAST 

1358 

5622 

REF 

48 

LAST 

1382 

562  3 

REF 

67 

LAST 

1 381 

56  24 

'62  8 

REF 

458 

LAST 

1381 

5626 

5627 

P.EF 

249 

LAST 

138  1 

5630 

REF 

46 

LAST 

1376 

5631 

REF 

1 5 

LAST 

138  1 

5632 

REF 

3 

LAST 

1381 

5633 

PkIOI  arm 

DISPLAYS  V05N0 

R VIA 

AN 

I R MED! AT  E 

ETU>  N TO 

THE  US 

4 1036  1 
7 5642  0 
27 ' 03  6 1 


50  000  1 


6 4735  1 


1 5624  0 


PROGLAPli  CS 

MASK 

AOS 


DSPTAB  + 1 1 D 
0CT40400 
DSPTAB  +11 D 


MU’- T E X I T XCH  1TEMP1 
Rf L I NT 


3:15  DEC.  2,1970  SKIPPER  .OPT  PAGE  1382 
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OBTAIN  RETURN  ADDRESS  IN  A 


INDEX 

TC 


MULT  FA  II  CA 
AD 
TS 

TCF 


CAP 

TC 

C ADR 


TC 

OCT 


A 

1 

t. 

B I T 1 5 

FAIL ’EG  +2 
MULTEXIT 


0 T X X 

BANKCALL 

PRIOLARM 


OHASCHNG 
X .1 


006  2 

10, 3562 

BANK 

10 

0063 

REF 

3 

LAST 

13  7 4 

10,2000 

SETLOC 

DISPLAYS 

0064 

10, 3562 

BANK 

0065 

REF 

3 

LAST 

1374  TO 

1375: 

14  668* 

COUNT* 

$ $ / D S P L A 

0066 

! : , 3562 

0:  C 004 

n 

PRIOLARM 

I . uiUT 

l i • n l 

0067 

REF 

250 

LAST 

1382 

1 0,3563 

54  0C1 

1 

TS 

L 

0068 

° FF 

29 

LAST 

1 377 

10,3564 

3 01  33 

0 

CA 

BUF  2 

C069 

REF 

6 

LAST 

1381 

10,3555 

55 ' 36 3 

1 

TS 

ALMCADR 

0C70 

REF 

30 

LAST 

1382 

10,3566 

3 0134 

1 

CA 

BUF2  +1 

0071 

REF 

1 

10,3567 

0 5576 

0 

TC 

PRIOENT  +1 

0072 

10,3570 

77467 

1 

~2  c E C 

DEC 

-200 

007  3 

REF 

6 

LAST 

930 

10,3E71 

3 50  06 

1 

CAE 

V C5f  G9 

0074 

REF 

2 

LAST 

515 

10,3672 

1 2504 

0 

TCF 

PRIPDSPP 

007  c 

5634 

BLOCK 

02 

0076 

KEF 

2 

LAST 

1381 

4000 

SETLOC 

FFTAG7 

0077 

5634 

BANK 

0078 

REF 

2 

L AST 

1381  TO 

138  23 

37 

37* 

C(  UNT* 

$$/ ALARM 

0079 

5634 

0 0 C04 

0 

BA  ILOUT 

INHINT 

0080 

REF 

372 

LAST 

1 381 

5635 

3 0002 

0 

CA 

Q 

ALARM  CODF 


ASTRONAUT  RETURN 

IMMEDIATE  RETURN  TO  USER.  RESTART 
PHASE  CHANGE  FOR  PP ID  DISPLAY 


4 * * KEEP  IN  DISPLAY  ROUTINES  BANK 
SAVE  ALARM  CODE 

2 CADR  OF  PRIOLARM  USER 


* LEAVE  L ALONE 
***  DPNT  MOVE 


1" 


GAF:  ASSEMBLE  REVISION  00 1 UP  A^C  PROGRAM  API  1HGPE  BY  EYLES 

L A l A ' - AMD  ABO  I 


008] 

OC  62 
0083 
008* 
oo«^ 


REF  7 LAST  1382  5636 

KEF  373  LAST  1382  5637 

5640 

REF  1 r*64  1 

564  2 


55' 363 

5 ( ) 0 0 2 

I 

0 

TS 

S ju  .)  c v 

i *\  ut  a 

3 0000 

1 

CAF 

0 557* 

1 

TC 

4040  C 

1 

OCT*  0400  OCT 

• 

ft 

ft 

ft 

ft 


0086 

0087 

0088 
008° 
a non 

REF 

KEF 

REF 

88 

24 

2 

LAST 

LAST 

LAST 

13  6 3 
1294 
33* 

\j\js  \j 

0091 

0092 
009  3 

0094 

0095 
00°  6 

REF 

REF 

58 

2 

LAST 

LAST 

1354 

832 

REF 
r f f 

o FF 

374 

8 

37F 

1 TST 
i A.  '• 

1 AFT 

13  33 

1 3 ° 3 
13*3 

138  3 

0097 

0098 

0099 

> u r 

REF 

2 

l_  H J > 

LAST 

56*  3 

5644 

5645 
364  6 

Ci,  / 7 

0 0004 
3 4752 
6 0005 
56  017 
5 001? 
0 46  35 

0 

0 

1 

0 

1 

0 

WHIMPER 

INHINT 

CA 

AD 

TS 

RESUME 

TC 

5?  O I 

56  5 0 

565  1 

12765 

0 

CADR 

..652 

0 0004 

0 

POOD GO 

li  HINT 

56  5 3 

3 000  2 

0 

CA 

5654 

55  « 3 63 

1 

ABORT 2 

TS 

56  * 5 

50  002 

0 

INDEX 

K656 

3 0000 

1 

CAF 

56  57 

0 5 5 74 

1 

TC 

5 C 6 0 

77770 

1 

OCT 77 770 

OCT 

ft 

ft 

ft 

ft 

ft 

ft 

3 

ft 


2" 


% 


0100 

PEP 

: 3 , 

LAST 

1096 

686  1 

3 

4765 

1 

DlOl 

C P f 

7 t;  1 

| A F T 

17  0 7 

ft  A ft  O 

ft  v r . r 

"or 

c.  L 

l A.)  [ 

1 o o c. 

o u © <i 

u u i 

1 

0102 

566  3 

4 

0000 

0 

0103 

REF 

9 

LAST 

865 

5664 

52  761 

0 

0104 

566  5 

0 

0004 

0 

010*2 

REF 

3 1 3 

LAST 

13  35 

5666 

0 

4 fc  1 f 

1 

01044 

REF 

l 

5U  7 

27755 

0 

010  5 

REF 

3 1 

L A r " 

1 33  o 

F A7  A 

-3 

r . i n "3 

A 

3 © t XJ 

D 

v‘  I ’ -3 

U 

0106 

REF 

3 

LAST 

280 

567  1 

7 

474  6 

1 

0107 

REF 

459 

LAST 

1382 

5672 

10  000 

0 

0108 

REF 

l 

C 47  2 

1 

5 70  1 

A 

TO  / j 

1 

V 

01  " 

REF 

314 

LAST 

139  3 

56  74 

0 

4616 

1 

0110 

REF 

2 

LAST 

2 30 

56  7 5 

12652 

0 

0110? 

R.FF 

315 

LAST 

138  3 

56  76 

0 

*616 

1 

01104 

RFF 

2 

LAST 

212 

5677 

12643 

0 

0111 

REF 

2 

LAST 

865 

5700 

1 

5644 

0 

Oil? 

REF 

1 

5.70  1 

3 

5743 

1 

01  122 

R FF 

3 

LAST 

1 3 7 ( 

5702 

0 

47  27 

1 

0112  4 

REF 

314 

LAST 

1383 

570  3 

0 

f *44  JL-6 

1 

01125 

R EF 

1 

5704 

57321 

0 

0114 

5705 

0 

0004 

0 

0115 

REF 

376 

LAST 

1383 

5706 

3 

0002 

0 

0116 

REF 

1 

5707 

0 

56  54 

0 

Oil? 

5710 

0 110  3 

1 

0118 

5711 

0 

0004 

0 

01  1<5 

REF 

377 

LAST 

1333 

571  2 

3 

0002 

0 

0120 

REF 

2 

LAST 

1286 

57  1 3 

0 

5571 

1 

0121 

5714 

002  17 

0 

GO POO DQO 

CAF 

TS 

COM 

DXCH 

INHINT 

TC 

CADR 
r a 

L/  M 

MASK 

CCS 

TCP 

TC 

CADR 

TC. 

CADR 

TCP 

SIR T IDLE 

CAF 

TC 

TC 

C ADP 

CCSHOLE 

INHINT 

CA 

TC 

r CT 1103 

OCT 

CURTAINS 

INHINT 

CA 

TC 

0CT217 

OCT 

At  MCADR 

0 

0 

BOB  TENT 
40400 


T Wu 
1 

9RUPT 

POST  JUMP 
ENEMA 

0 

AL MCADR 
0 
0 

BORTENT 

77770 

■3CT3  5 

I 

-PHASE4 

8 Af  KCALt 
FLAGS 
FLAGWRD7 
V37FL  BIT 
A 

SiTRT  IDLE 
6 AN KC ALL 
V37KLEAN 
BANKCAL I 
MR.KLEAN 
WHIMPER 
BBSERVDL 
SUPFRSW 
BANK CALL 
SEP  VI  OLE 

Q 

A80f  T2 
1 103 

0 

AL ARM2 
00217 


3:15  DEC.  2,1970  SKIPPER 
USFF'S  RAGE  NO.  3 


.08?  PAGE  1383 
EO  S3 


RESUME  SENDS  CONTROL  HERE 


DON'T  MOVE 

4.35SP0T  FC'K  GOPOOOOO 

1 EE  ET  STATEFLG,  P E T * T F L 0 , AND  MQDfFLAG. 
TS  c E p V I C E R CLEMENTLY  IN  noEFATION? 

T!''  AIN  AT  E GK  PS  1,  3,  5,  AND  6 

T ER  MT 1 AT  E GO  PS  2,  4,  1,  3,  5,  AND  6 
( I .E.  , GRP  4 I AST) 

PUT  SERVICER  INTO  JTS  "GROUND”  STATE 
AND  PRICE  ED  TO  GOTOPoSI-t. 


GAP:  ASSEMBLE  . E VIS  I .ON  001  CF  AGC  P.O  ikAM  APllROPE  BY  EYLES 


L 

ALARM  AND 

ASP"  T 

0122 

REF 

9 

LAST 

1 3 R 3 

5715 

0 1363 

0 

TC 

ALMCADP 

Ol  DO 

5 7 I A 

n c c o.  l. 

n 

u a T i niiTi 

TMU T M T 

V'lC  J 

1 io 

OH  1L L ' > 1 1 

1 i fill*  | 

0124 

RTF 

10 

LAST 

1334 

5717 

5 3 * 3 64 

0 

DXCH 

ALMCADR 

012  6 

REF 

1 

572  0 

3 574  2 

0 

CAE 

ADR  40400 

0126 

REF 

68 

LAST 

138  2 

572  1 

54  06  1 

r n THAR- T 

T S 

j J j;  MP  1 

IJ 1 n H On  1 

0127 

REF 

378 

LAST 

13  83 

5722 

50  002 

0 

INDEX 

0 

0128 

5723 

3 0000 

1 

CAE 

0 

0120 

REF 

252 

LAST 

1333 

5 724 

54  001 

1 

TS 

L 

0130 

REF 

1 

5 725 

1 5603 

c 

TC  F 

CHKFAIL1 

0131 

572  6 

0 C006 

0 

POO DC 71 

IMHINT 

013? 

RFF 

1 1 

LAST 

1 3«4 

57  2? 

53*364 

0 

DXCH 

A 1 M f A n P 

L.  1 lUHL/lx 

0133 

REF 

1 

5730 

3 6741 

0 

CAF 

ADR77770 

0134 

REF 

1 

5731 

1 5721 

1 

TC  F 

3GTHABR  T 

0135 

1 73  2 

0 0004 

0 

At  AR  M 1 

INHINT 

0136 

REF 

1? 

LAST 

1334 

573  3 

63*364 

0 

DXCH 

Al  MCADR 

01 37 

5734 

0 C 004 

o 

ALMNCADP 

I N H T NT 

ii\  n 1 Al  1 

0138 

REF 

379 

LAST 

1384 

5735 

50  002 

0 

INDEX 

Q 

0139 

5736 

3 0000 

1 

CA 

0 

0140 

REF 

253 

LAST 

1 38  4 

5737 

54  001 

1 

TS 

L 

0141 

REF 

1 

576  0 

1 5601 

1 

TCP 

LAP  WENT 

014? 

RFF 

5 

LAST 

1 37*- 

5741 

1 5660 

0 

ADR77770 

TC  F 

0CT7777  0 

0143 

REF 

3 

LAST 

1382 

57*  2 

1 5642 

0 

ADP  40400 

TCF 

OCT 40400 

0144 

REF 

1 57 

LAST 

1380 

5155 

DCAl ARM 

EQUALS 

ENDOF JOB 

01444 

REF 

54 

LAST 

894 

E7 ,1515 

EBANK= 

DVCNTR 

01446 

REF 

2 

LAST 

138  3 

574  3 

56067 

0 

B B S E r VDL 

BBCQN 

SERVIDLE 

R 0145 

CALL 

TUG  SEQUEMCE  FOE 

VAR ALARM 

A 01 46 

CAF 

( ALARM ) 

A0147 

TC 

VAPAL ARM 

R 0 1 4 8 

VAr-  AL  ARM 

TO!  NS 

ON  P POGF.  A ■ At  AL  M i 1 GHT 

BUT  DOES  NOT  DISPlAY 

0149 

5744 

0 0004 

0 

VARALARM 

IN  HI  NT 

0150 

REF 

254 

LAST 

1384 

5745 

54  C01 

1 

TS 

L 

0151 

REF 

380 

LAST 

1384 

5746 

3 0002 

0 

CA 

Q 

0152 

REF 

13 

LAST 

13P6 

5747 

55*363 

1 

TS 

ALMCADR 

015? 

REF 

2 

LAST 

133? 

5750 

0 5575 

0 

TC 

PRIOENT 

0154 

575  1 

00014 

1 

OCT  14 

OCT 

14 

0155 

REF 

14 

LAST 

1384 

5752 

0 1363 

0 

TC 

ALMCADR 

0156 

RFF 

3 

LAST 

1 38  3 

5644 

ABORT 

EQUALS 

WHIMPER 

01  57 

13,3755 

BANK 

13 

0158 

REF 

1 

13,2000 

SETLOC 

ABTFLGS 

0159 

13,3755 

BANK 

3:15  DEC 


PAGE  1384 


3:  15  DEC.  2 ,1970 

SKIPPER 

.087  PAGE  1384 

USER*  S PAGE 

NO.  4 

EO  S3 

RETURN  TO  USER 

SAVE  USERS  ALARM  CODE 
SAVE  USERS  Q 

DONT  MOVE 


RETURN  TO  USER 


GAP : 


0160 

0161 

0162 

0163 

016/' 

0165 

0166 

0167 

0168 

0169 

0170 


ASSEMBLE  -EVI.S10N  001  CF  AGO  P-OGi-  AM  API  lRf.Pfc  BY  EYLtS 


ALARM  AND  ABORT 
REF  1 
REF  1 

REF  21  LAST  1332 
REF  22  LAST  1385 
REF  3 LAST  1220 
REF  20  LAST  862 
REF  21  LAST  1385 
REF  3 LAST  229 
REF  31  LAST  1315 
REF  33  LAST  1385 
9 E F 3 81  L A ST  13  86 


13 ,375 o 

4 

4 74  7 

0 

3 3,3756 

7 

0C77 

0 

13,3757 

54 

■ 077 

0 

1 3,3 ^60 

4” 

/*  74  5 

1 

13,3761 

7 

0106 

1 

13,3762 

54 

106 

1 

13,37o3 

4 

475  3 

0 

13,3764 

7 

C07  6 

1 

1 3 , 37 ( ■ 

54 

076 

1 

1 3,376/- 

0 

0002 

0 

COUNT*  $$/AL ARM 

AGS  CS  STAT  EBIT 

MASK  FLAGWRD3 

TS  FLAGWRD3 

Cc  REINTBTT 

MASK  FLGWRD10 

TS  FLGWR01C 

CS  M.  DU  BIT 

MASK  F LAG  WR 02 

TS  FLAGWRD2 

TC  Q 


3:15  DEC.  2 
USER  ' 


,1970 

SKI 

P PER 

.087 

PAGE 

S PAGE 

NO. 

5 

EO  S3 

1 385 


GAP: 

ASSEMBLE 

REVISION  0Q1  OF  AGC  PROGRAM  API IRbPE  BY  fc YL  E S 

3: 15  DEC.  2 ,1970 

skipper 

.087  PAGE  1336 

L 

UPDATE 

PROGRAM 

USER'S  rAGE 

MO.  1 

m 

o 

(/* 

VjJ 

R 000  1 
R0002 

R 0003 
P 0004 
R 000r 

R 0006 

R 0007 
R 0008 
R 000° 
R 0C10 
ROC'l  1 

P 00 1 2 

R 0014 
R 0016 

R001? 

ROC  1R 

ROD  19 
R0C2C 
R 002  2 
ROC23 
ROC25 
R 0027 
R0029 
R 003  1 

R 0032 
ROC  3 3 
R 003  5 
R 0036 
R0038 
R 0039 


R 004 1 INPUT : 

R0042  ENTRY: 


PROGRAM  NAME: 
WRITTEN  BY: 

: D NC  : 

MOD  BY: 

DATE  : 

LOG  SECTION: 
FUNCT.  DESC'-: 


CALLING  SEO: 
SURR0LitINF  S : 

NORMAL  EXIT; 
AL  A f '■'■  / VV  “ T ■ 

RESTARTS : 


DER‘  IS: 


P27 

KILROY/  DE  WOLF 
6 

KILPCY 
01  DEC 67 

UPDATE  RPOGRAM. 

P27  (THE  UP  DATE  !■  OGRAM)  PROCESSES  COMMANDS  AMD  DATA 
I-  EE  T I -NS  REQUESTED  BY  “HE  GROUND  VIA  UPLINK. 

THE  ! 27  PROGRAM  WILL  ACCEPT  UPDATES 

CNLY  DURING  POO  FOR  THE  LM,  AND  ONLY  DURING  POC, 

PC 2 , AMD  FRESH  START  FOR  the  CSM 

p ~ GP  A :'t  IS  INI  TIATED  BY  UPLINK  ENTRY  OF  VERBS  7C,  71,  72  AND  73. 

TFSTXACT,  hFWYDDEX,  NEWMODEX  +3,  GOXOSPF,  BANKCALL,  FTMDVAC,  INTPBET,  INTSTAL  L , TP  AGP  EE, 

I NTWAKEU , ENDEXT,  POST  JUMP,  FALTON,  NBWPHASE,  PHASCHMG 

TC  ENDEXT 

TC  FALTr:  FOLLOWED  BY  TC  ENDEXT 

P27  IS  PFSTART  PRC  T ECT  ED  IN  TWO  WAYS... 

1.  PRICE  Tf  VERI FLAG  I N V ERS I PN ( WHI CH  IS  CAUSED  BY  THE  GROUND/ASTPCNAUT  • S VERIFICATION  OF  UPDATE 

DATA  BY  SENDING  A V33E  WHEN  V21NL2  IS  FLASHING) 

NO  PROTECTION  EXCEPT  PRE-P2Y  MODE  IS  RESTORED,  COAST  + ALIGN  DOWNUST  IS  SELFCTEO  AND  UPLINK 
ACT  IV T “ Y LIGHT  IS  TURNED  FF . {JUS''  Ar  IF  A V34E  WAS  SEMI  DUf-  IMG  P27  DATA  LOADS). 

V70,V71 , V72  OP  V73  WILL  HAVE  TO  BE  COMPLETELY  ■ ESENT  BY  USER. 

2.  AFTEP  VERIFLAG  IN VERS  ION < WHEN  UPDATE  OF  THE  SPECIFIED  ERASABLES  IS  BEING  PERFORMED) 

PROTECTED  AGAINST  PESTARTS. 


IIP  BUFF 
UP VERB 
up pl dm on 

COMPNUMB 

UPCOUMT 

UPTENP 


( 200) 
( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

(1  ) 


TEMP  STORAGE  FOR  ADDRESSES  AND  CONTENTS. 

VERB  NUMB!  ■"  MINUS  700  (E.G.  Ft  o V72,  UPVFRB  = 720  - 700  = 2) 

FOP  MA  JiP  MODE  f o T e f U P T E D BY  P27. 

TOTAL  NUMBER  OF  COMPONENTS  TO  BE  TRANSMITTED. 

ACTUAL  NUMBER  OF  COMPONENTS  RECEIVED. 

SC  ATCH,  BUT  USUALLY  CONTAINS  COMPONENT  NUMBER  TO  BE  CHANGEO  DURING  VERIFY  CYCLE 


DESCP TPTION 


R 004  3 V7  0FXXXXXEXXXXXE  (1IFT0FI  TIME  INCREMENT)  DOUBLE  PRECISION  OCTAL  TIME  INCREMENT,  XXXXX  XXXXX, 

^ 00^ TS  ADDED  "0  TEPHEM,  SUBTRACTED  FROM  AGC  C LOCK  ( T I ME2 , TI  ME  1 ) , SUBTRACTED  FROM  CSM  STATF 
P 0047  VFC  Tn  T I M F ( T F T C S ; 1 ) AND  SUBTRACTED  FROM  LED  STATE  VECTOR  T I ME ( T ET L EM ) . 

*0049  THE  DP  OCTAL  TIME  INCREMENT  IS  SCALED  AT  2(28). 


I*' 


w 


I 

G AP : 


ASSEMBLE  REVISION  '0!  OF  A GC  PROGRAM  AP11K0PE  BY  € YL  F S 


3:13  DEC.  2,1970  r K I P P ER  .087  PAGE  1387 


> L 


UPDATE  PROGRAM 


USER'S  PAGE  UP.  2 


EO  S3 


R 0050 

V71EI IE  A AAA 

R 005  1 

XX  XX  XE 

R 005  2 

XXXXXE 

R 005'* 

R 0058 

9 NEXT  BANK 

P 005c 

(CONTIGUOUS  BLOCK  UPDATE)  I 1-2  OCTAL  COMPONENT  S , XXXX  X , 
ARE  LOADED  INTO  FRASABLE  STARTING  AT  ECADR,  A A A A . 

IT  15  .GE.  3 .AND.  .LE.  2 C D • , 

AND  ( A AAA  + II  - 3)  DOES  NOT  PRODUCE  AN  ADDRESS  IN  THE 
SCALT'G  TS  SAwE  AS  INTER  MAI  REGISTER  S. 


) P005o  V72EIIF 

R005 7 AAAAEXXXXXC 

R 005  8 A A A A E X X X X X F 

I R 006 0 


' " UPDATE)  (II-D/2  OCTAL  COMPONENTS  , XXXXX  , ARE 

LOADED  INTO  ERASABLE  LGCAiIGNS,  AAA  A • 

II  IS  .C-T.  3 .AND.  .LE.  19D,  AND  MUST  BE  ODD. 

SCAUR  G I S SAME  AS  INTERNAL  REGISTERS. 


R 006 1 V73EXXXX XEXXXXXE  (OCTAL  CLOCK  INCREMENT)  DOUBLE  PRECISION  OCTAL  TIME 
I R 00  6 ? INCREMENT  XXXXX  XXXXX,  IS  ADDED  TO  THE  AGC  CLOCK,  IN 

RQC63  CENT  I SECONDS  SCALED  AT  (2)28. 

R0064  THIS  L AD  IS  THE  OCTAL  EQUIVALENT  OF  V55. 


R005c  OUTPUT:  IN  ADDITION  TO  THE  ABOVE  REGISTER  LOADS,  ALL  UPDATES 

R 0066  COMPLEMENT  BIT3  OF  F LAGW0RD7 . 


A DO  I T I ) T E S : V E 1 B "T 1 , JUS  I DFFI  II  I I 4111  BE  USEO  TO  PERFORM  BUT  NOT  LIMITED  TO  THF  FOLLOWING  UPDATES — 

R 0069  1.  CSM/LM  STATE  VECTOR  UPDATE 

R0072  2.  P EFSMMAT  UPDATE 


3" 


2" 


R007 3 THE  FOLLOWING  COMMENTS  DELINEATE  EACH  SPECIAL  UPDATE 


R 0079  1.  CSM/LM  STATE  VECTOR  U R U AT  E ( AL  L DATA  ENTRIES  IN  OCTAL) 


R0075 
R0077 
R 007  8 
R 008  C 
R0082 
R 008  3 
R 00  84 
R Of;  86 
R 008  8 
R009H 
R 0092 
R 00  94 
R 009  6 
R 009  R 


ENTRIES: 

V 7 1 E 

21  F 

A A A A E 

DATA  DFF  I N 1 T I ON : 
CONTIGUOUS  BLOCK  UPDATE 
HUMBER  CF  COMPONENTS  FOP. 
FCADR  OF  • UPSVFL  AG* 

STATE  VECTOR  IDENTIFIER: 

X POSITION 

Y POSITION 

Z POSITION 
v \/f  ! nr  t rv 

VERB 

state 

VECTOF  UPDATE: 

SCALE 

FACTORS 

XXXXXF 

XXXXXE XXXXXE 
XXXXXEXXX  XXE 
XXXXXFXXXXXE 
XXXXXEXXX  XXE 

00001 

00002 

FOR  CSM  , 
FOR  CSM, 

77776 

77775 

FOR  LEM  - 
FOR  LEM  - 

EARTH 

LUNAR 

SPHERE 

SPHERE 

XXXXXEXXXXXE 
XXXXXEXXX XXE 
XXXXXEXXXXXE 
V33E 

Y VELOCITY 

Z VELOCITY 

TIME  FI  f '1  AGC  CLOCK  ZERO 

VERB  33  TO  SIGNAL  THAT  T HE  STATE  VECTOf 

I S r EADY  TO  BE 

STORED. 

INFLUENCE 
I NFLUENCE 


SCALING 

SCALING 


R 01^4  2.  RFFSMM AT ( AL 

R 0145  ENTRIES: 


DATA  ENT!  IES  IN  OCTAL) 
DATA  DEFINITIONS: 


SCALE  FACTORS: 


i" 


GAP:  ASSEMBLE  E VISI3N  Gil  -)F  AGC  P-.GGkAM  APlli-uPE  BY  EYLtS 

L UPDATE  i HG  A'' 


R0147 
R014P 
R 01 5 0 
R 01  5? 
R 0154 
R01  I 
R0158 
R0160 
R 0162 
R0164 
R0166 
R0168 
R 0170 


V71  F 
24E 
AAA  AE 

XXXXXEXXXXXE 
XXXXXEXXXXXE 
XXXXXEXXXXXE 
XXXXXEXXXXXE 
XXXXXEXXXXXE 
XXXXXEXXXXXE 
XXXXXEXXXXXE 
XXXXXF  XXXXXE 
XXXXXEXXXXXE 
V33E 


C PM  I GUO  US  BLOCK  UPDATE  VERB 

NUMBER  F F COMPONENTS  FOP  REFSMMAT  UPDATE 

ECADR  CF  'REFSMMAT' 

: Ofe  1 COLUMN  1 
ROW  1 COLUMN  2 
ROW  1 COLUMN  3 
ROW  2 COLUMN  1 
ROW  2 COLUMN  2 
ROW  2 COLUMN  3 
! GW  3 COLUMN  1 
ROW  3 COLUMN  2 
TOW  3 COLUMN  3 

VERB  33  TO  SIGNAL  THAT  REFSMMAT  IS  READY  TO  BE  STORED 


017] 

0172 

01  73 

REF 

7 

LAST 

21'  7 

C 7 , 3 7 7 3 
43,2000 

4 3 , 37 94. 

BANK 

SETLCC 

BANK 

07 

E X T V E p B S 

0174 

REF 

4 

LAST 

985 

E 3 , 1706 

EBANK= 

TEPHEM 

0175 

REF 

1 

CO  UNIX' 

4F/P27 

0176 

RFF 

1 

43,3724 

3 

4755 

1 

V70UPDAT 

CAF 

UP70 

0177 

REF 

2 

LAST 

262 

-S3, 372  5 

1 

3733 

1 

TCF 

V 731  1 P DAT 

+ 1 

0178 

REF 

1 

43,3726 

3 

4753 

1 

V71UPDAT 

CAF 

UP7  1 

0179 

REF 

3 

1 AST 

1383 

43,3727 

1 

3733 

1 

TCF 

V73U°DAT 

+ 1 

0180 

REF 

1 

43,3730 

3 

4752 

0 

V72UPDAT 

CAF 

1JP72 

0181 

REF 

4 

LAST 

1388 

43,3731 

1 

3733 

1 

TCF 

V73UPDAT 

+ 1 

0192 

DFF 

1 

4 3, 373  2 

3 

62  4 5 

1 

V73UPJAT 

CAF 

UP73 

0183 

REF 

1 

43,3733 

55 

' 166 

0 

+ 1 

TS 

UPVFRBSV 

0184 

REF 

19 

LAST 

298 

43,3734 

0 

2 C76 

1 

TC 

JEST  X ACT 

A013F 

0186 

REF 

2t 

LAST 

1 294 

43,3735 

3 

1 01  1 

0 

CA 

MOD'1  FG 

0187 

43,3736 

0 

0006 

1 

EXTEND 

0188 

43,3737 

1 

3742 

1 

BZF 

+ 3 

0189 

REF 

59 

LAST 

1383 

43,3740 

0 

4 63  5 

0 

UPERROf; 

TC 

POSTJUMP 

0190 

REF- 

1 

43,3741 

11762 

1 

C A DP 

1J  PEP  F.  OUT 

+ 2 

019] 

REF 

25 

LAST 

13»R 

43,^742 

31 

'01  1 

0 

CAE 

MODREG 

01915 

REF 

1 

43,3740 

CKMDMOR E 

= 

UPERROF 

0192 

REF 

2 

LAST 

104 

43,3743 

5 5 

'171 

0 

TS 

UPOL  DMOD 

i" 


i 


3:16  DEC.  2,1970  SKIPPED  .087  PAGE  1388 
USER'S  PAGE  NO.  3 EO  S3 


2 ( - l ) 
2 ( - 1 ) 
2 ( - 1 ) 
2 ( - 1 > 
2 ( - 1 ) 
2 ( - 1 ) 
2 (-1 ) 
2 ( - l ) 
2 (-1  ) 


COMES  HERE  ON  V70E 


COMES  HERE  ON  V71R 


COMES  HERE  ON  V??E 


COMES  HERE  ON  V73E 

SAVE  UPVER6  UN T I L IT'S  OK  TO  ENTER  P27 

GRAB  DISPLAY  IF  AVAILABLE,  OTHERWISE 
TURN*OPERATMP  ERROR * ON  AND  TERMINATEJOB 

CHFCK  IF  UPDATE  ALLOWED 

FIRST  CHECK  FOR  MQDRE  G = +0,  -0 

(+0  = POO,  -0  = FRESHSTART) 

TURN  CN  ' OPERATOR  ERROR’  LIGHT 
GO  TO  COMMON  UPDATE  PROGRAM  EXIT 

IJPDATF  All  OWED. 


SAVE  CURRENT  MAJOR  MODE 


w 


i 


GAP  : 

i l 

i \riy' 


ASSEMBLE  REVISION  DOl  if  AGC  P-uGFAM  AP11-UPE  BY  fcYLES 
UPDATE  PROGRAM 


3 : 15  DEC.  2,1970  SK  IPPER 
USE R ' S TAGE  NO.  4 


.067  PAGE  1389 
E 3 S4 


0193 

REF 

2 

LAST 

1388 

43,3744 

31 • 166 

1 

CAE 

UPVERBSV 

SET  UPVERB  TO  INDICATE  TO  P27 

0194 

REF 

2 

LAST 

104 

43,3745 

55 • 172 

0 

TS 

UPVERB 

WHICH  EXTENDED  VERB  CALLED  IT. 

0195 

P E F 

146 

LAST 

1375 

4 3,3  7 ‘ 6 

3 67  53 

1 

CAP 

ONE 

0196 

REF 

2 

LAST 

104 

4 3 ,3747 

55'  1 7 3 

1 

TS 

UPCOIJNT 

INITIALIZE  UPCOUNT  TO  1 

0197 

REF 

60 

LAST 

1388 

43,3750 

0 4635 

0 

TC 

POSTJUMP 

LEAVE  EXTENDFD  VERB  BANK  AND 

0198 

REF 

1 

43,375  1 

1 1 40  1 

1 

C ADR 

UPPART2 

GO  TO  UPDATE  PROGRAM! P27)  BANK 

I 0211 
0212 
C21  3 
02  1 ^ 


REF 

261 

LAST 

REF 

147 

LAST 

REF 

89 

LAST 

REE 

43 

LAST 

1377  4755 
136°  '753 
1383  4752 
1372  6 245 


UP7C  EQUALS  ZERO 

UP71  EQUALS  ONE 

UP 72  EQUALS  TWO 

UP 7 3 EQUALS  THREE 


0215 
n y i (■ 

DXZtZ 

2 

1 

LAST 

122  K 

04,3401 
O'-  , 200  0 
04,3401 

7 c.  L r 

0217 

0218 

TT  r 

DCC 

\ C 1 

l 

0219 

0<  ,3401 

0220 

REF 

114 

L AST 

1335 

04, 3401 

0221 

04,3402 

022  2 

, 36-0  3 

022  3 

»EE 

: 

LAST 

204 

1 170 

02 

TEE 

■;  : l 

06 , 3404 

022' 

o c e 

i 

LI 

i 

0225 

REF 

143 

LAST 

138 

04 , 3406 

0226 

KfcE 

LAST 

,3,7  2 

04.-,  34  0 Z 

0227 

REF 

LAST 

8CJ2 

04,36 10 

022° 

<J'  , 341! 

022c 

REF 

3 

last 

1389 

04, 3412 

02.30 

04 , 34  1 3 

0231 

0 ,341 4 

023  2 

CEE 

1 

04 , 34  1 ' 

023  3 

»EF 

2 

LAST 

13  89 

06, 3416 

0234 

REF 

90 

LAST 

1 3 5 9 

04,3417 

0235 

REF 

3 

LAST 

204 

04,3420 

0236 

REF 

1 

04,3421 

0237 

REF 

1 

04,3422 

02  3P 

ROE 

829 

LAST 

1373 

04,3423 

0239 

REF 

1 

04,3424 

0240 

KEF 

317 

LAST 

138  3 

04,3425 

I 


RANK 

04 

SFTLOC 

UPDATE2 

BANK 

COUNT* 

$ $ / P 2 7 

UP PART 2 

EQUALS 

0 5353 

I 

TC 

PHASCHNG 

07026 

1 

OC  T 

07026 

3 OG  GO 

1 

UCT 

30000 

E 6 A N K - 

IJP8UFF 

037  1 2 

0 

?C  ADR 

up.au  t +i 

1C  I ? 

0 

3 4753 

1 

CAE 

ONE 

6 4.  332 

1 

Co 

DNLS7C0D 

6 311 

1 

TC 

NEW:  9,0  EX 

00033 

1 

DEC 

27 

51 • 172 

1 

INDEX 

UPVERB 

1 3414 

1 

rcF 

+ 1 

1 34  17 

1 

TCP 

+ 3 

l 3422 

1 

TCP 

QHWEL.L  I 

1 3422 

1 

TCP 

DHWELL1 

3 4752 

0 

CA 

TWO 

55  * 170 

1 

TS 

COMPNUMB 

1 3445 

0 

TCP 

0HWELL2 

3 3515 

0 

0HWELL1 

CAF 

A DU P BUFF 

54  156 

1 

TS 

MP AC  +2 

3 3516 

0 

+ 2 

CAF 

UPLOADNV 

0 4616 

1 

TC 

BANKCALL 

UPDATE  PROGRAM  - PART  2 

SET  RESTART  GROUP  6 TO  RESTORE  OLD  MODE 
AND  DOWNL  1ST  AND  EXIT  IF  RESTART  OCCURS. 
PRIORITY  SAME  AS  CHRPRIO 


DOWNL 1ST 

SET  MAJOR  MODE  = 27 


B'ANCH  DEPENDING  ON  WHETHER  THE  UPDATE 
VERB  REQUIRES  A FIXED  OF  VARIABLE  NUMBER 
V7Q  FIXED.  (OF  COMPONENTS. 

V71  VARIABLE  - GO  GET  NO.  OF  COMPONENTS 
V72  VARIABLE  - GO  GET  NO.  OF  COMPONENTS 
V 73  (AND  V70 ) FIXED 
SET  NUMBER  OF  COMPONENTS  TO  2. 

GO  GET  THE  TWO  UPDATE  COMPONENTS 

* REQUEST  USER  TO  SEND  NUMBER  * 

* OF  COMPONENTS  P AR AM ET ER < I I ) . * 

(CK4V32  RETURNS  HEFF  IF  V32  ENCOUNTERED) 
DISPL  AY  A FI  ASHING  V21N01 


GAP 


ASSEMBLE  .E  VI  SIGN  001  LF  AGO  RIuGLAM  API  lx  OPE  BY  EYLES 


► 

> 


> 

» 


3” 


L 

0241 

0242 

UPDATE  PROGRAM 

REF  11  LAST 
REF  1 

DCt  X 1 A C T 

717 

1 7QQ 

04.3426 

04.3427 

f 1 /.i.  • 1 

20334 

1 3712 

1 X 9 L. 

1 

1 

CADR 

TCP 

TC  F 

UCT  0 

L ) ' 

J t J *’ 

0244 

REF 

1 

04 , 34  3 L 

0 

3506 

1 

TC 

024  5 

REF 

50 

1 AST 

1285 

04, 3432 

4 

4752 

1 

cs 

0246 

REE 

5 

LAST 

1389 

>■'4,3433 

6 

1174 

1 

AD 

0247 

04,3434 

0 

0006 

1 

EXTEND 

0248 

REF 

4 

LAST 

1390 

04,3435 

6 

34  24 

0 

B7MF 

0249 

REF 

6 

LAST 

139! 

04,3436 

4 

1 1 74 

0 

cs 

0250 

REF 

1 

04 , 34  37 

6 

4 3 62 

1 

AD 

0251 

04, 3440 

0 

0006 

1 

EXTEND 

0252 

RFF 

5 

1.  AST 

1 #90 

OA,  Xin.  1 

6 

3424 

0 

BZMF 

0253 

REF 

7 

LAST 

1390 

04, 3442 

31 

• 174 

1 

CAE 

0254 

REF 

LAST 

138Q 

04, 3443 

55 

• 170 

1 

TS 

R 0257 

UPBUFF  LOADING  SEQUENCE 

02571 

REF 

3 

LAST 

1389 

04, 3444 

25 • 173 

0 

I NCR 

0258 

REF 

1 

04,3445 

3 3662 

0 

CHWE!  L2 

CAF 

0259 

REF 

4 

LAST 

1390 

04,3446 

6 1173 

0 

AO 

0260 

REF 

830 

LAST 

13  3'' 

04 , 3447 

54  1 5 6 

1 

+ 2 

TS 

0261 

REF 

2 

LAST 

13  8 - 

04,3450 

3 35  16 

0 

+ 3 

CAF 

0262 

?EF 

318 

LAST 

1389 

04,345  1 

0 46 ll 

1 

TC 

0263 

REF 

12 

LAST 

1300 

04,3452 

20334 

1 

CADR 

0264 

REF 

2 

LAST 

1390 

04,3453 

1 3712 

1 

TC  F 

0265 

REF 

2 

LAST 

13 

04, 3454 

1 3450 

1 

TCF 

0266 

REF 

2 

LAST 

139  0 

C4»  3455 

0 3506 

1 

TC 

0267 

D EF 

5 

LAST 

1 3 9 0 

04,3466 

4 1173 

1 

CS 

0268 

REF 

c 

LAST 

13  0 0 

04 , 3457 

a 1170 

o 

AD 

0269 

04,3460 

0 0006 

1 

EXTEND 

0270 

REF 

l 

04,3461 

6 34  63 

0 

BZMF 

027  2 

REF 

3 

LAST 

1 390 

04,3462 

1 3444 

1 

TCF 

R 027  3 

VERIFY  SEQUENCE 

0274 

REF 

1 

04 , 3463 

3 

3514 

1 

UPVERIFY  CAF 

0275 

REF 

831 

LAST 

13  5 0 

04,3464 

54 

156 

1 

TS 

0276 

REF 

1 

04, 3465 

3 

3517 

1 

CAF 

0277 

RTF 

319 

LAST 

1390 

04 ,346  4 

0 

- £ 1 6 

1 

TC 

0278 

REF 

13 

last 

1390 

04,3467 

2 

0334 

1 

CADR 

0279 

RFF 

3 

LAST 

1390 

04,3470 

1 

37  12 

1 

TCF 

0280 

REF 

1 

04,3471 

1 

3520 

1 

TCF 

0281 

REF 

3 

LAST 

1390 

04,3472 

0 

3506 

1 

TC 

0282 

REF 

4 

LAST 

104 

04,3473 

3 

1167 

0 

CA 

028  3 

04,3474 

0 

0006 

1 

EXTEND 

0284 

P EF 

2 

LAST 

13°0 

04,3475 

6 

3463 

0 

BZMF 

0285 

REF 

C 

LAST 

1390 

04,3476 

4 

1 167 

1 

CS 

0288 

REF 

6 

LAST 

1390 

04,3477 

6 

1 1 ZO 

0 

AD 

i 


GOXOSPF 
UP0UT4 
CHWELL1  +2 
CK4V32 
BIT? 

UPBUFF 

OHWELLl  +2 

UPBUFF 

UP21 

OHWELt.  1 +2 

UPBUFF 

COMPNUMB 


UPCOUNT 
ADUPBFM1 
UPCOUNT 
M P A C +2 
U PL  Q A ON  V 
R ANKCALI 
GOXOSPF 
UP0UT4 
LHWfcl ! 2 +3 
CK4V32 
UPCOUNT 
COMPNUMB 

UPVERIFY 
0HWELL2  -1 


ADIJPTEMP 
MPAC  +2 
UPVP  FYNV 
BAN KC ALL 
GOXOS PF 
UP0UT4 
UPFTORE 
CK4V32 
UPTFMP 

UPVE'  IFY 

UPTEMP 

COMPNUMB 


i" 


3: 


IB  OEC.  2,1970  SKIPPER  .087  PAGE  1390 
USER'S  PAGE  NO.  5 E3  SA- 

TO REQUEST  I I . 

V 34  TERMINATE  UPDATE! P27)  RETURN 
DATA  OR  V32  RETURN 

IS  II (NUMBER  OF  COMPONENTS  PARAMETER) 

. GE.  3 AND  .LE.  20D. 


SAVE  II  IN  COMPNUMB 


INCREMENT  COUNT  OF  COMPONENTS  RECEIVED. 
CALCULATE  LOC AT  ION ( EC  ADR ) IN  UPBUFF 
WHERE  NEXT  COMPONENT  SHOULD  BE  STORED. 
PLACE  ECADR  INTO  R3. 

(CK4V32  RETURNS  HERE  TF  V32  ENCOUNTERED) 
DISPLAY  A FLASHING  V21N01 
TO  REQUEST  DATA. 

V34  TERMINATE  UPDATE! P 27 ) RETURN. 

V33  PROCEED  RETURN 

DATA  OR  V3 2 RETURN 

HAVE  WE  FINISHED  RECEIVING  ALL 

THE  DATA  WE  EXPECTFD. 

YES-  GO  TO  VERIFICATION  SEQUENCE 
NO-  REQUEST  ADDITIONAL  DATA. 


PLACE  ECADR  WHERE  COMPONENT  NO.  INDEX 
IS  TO  BE  STOP  ED  INTO  R3. 

(CK4V32  RETURNS  HE,JE  IF  V32  ENCOUNTERED) 
DISPLAY  A FLASHING  V21N02  REQUEST 
DATA  CORRECTION  OR  VEP I F T C A TT ON . 

V 3^  TERMINATE  UPDATE! P27 ) RETURN 
V 33  DATA  SENT  IS  GOOO.  GO  STORE  IT. 
COMPONENT  NO.  INDEX  OR  V 32  RETURf 
DOES  THE  COMPONENT  NO.  INDEX  JUS">  SENT 
SPECIFY  A LEGAL  COMPONENT  NUMBER? 

MO,  IT  IS  NOT  POSITIVE  NONZERO 


w 


SAP:  ASSEMBLE  .EVISION  001  Uf  AGC  PROG! AM  API  IkOPE  BY  E YL  E 5 


! IP OATE  PROGRAM 


0289 

0290 
029  1 

0292 

0293 

REF 

REE 

REF 

R EF 

p pc 

56 

3 

2 

6 

t 

LAST 

LAST 

LAST 

LAST 

1 A c T 

1327 

1390 

1390 

1390 

1 TOO 

04,3500 

0^,3501 

04 . 350 2 

04.3503 

04.3504 
a 4.  •at; o8 

6 4753 

0 CO 06 
6 3463 

3 3662 
6 1157 

1 a /i  A 7 

1 

1 

0 

0 

0 

AD 

EXTEND 

6ZMF 

CAF 

AD 

TCP 

BIT1 

UPVER IFY 
ADUP8FM1 
UPTFMP 
n H W F II  2 

Ur 

r\  t r 

1.  Ao  1 

IP  v* 

\J*T  f jDU  J 

I DM  + 1 

UMALLLA 

0298 

REF 

2 

LAST 

1389 

04,3712 

UP0UT4 

EQUALS 

U POUT  +1 

R 0296 

CHECK 

FOR 

VERB  32  SEQUENCE 

0297 

REF 

832 

LAST 

1390 

C4 ,3506 

4 01  54 

0 

C K 4 V 3 2 

CS 

MPAC 

0298 

REF 

58 

LAST 

1366 

04,3507 

7 4746 

1 

MASK 

BIT6 

0299 

REF 

46G 

LAST 

1383 

04,3510 

10  000 

0 

CCS 

A 

0300 

■ E F 

3P? 

LAST 

138  5 

04,3.51 1 

0 0002 

0 

TC 

Q 

0301 

REF 

38  3 

LAST 

1391 

04,3512 

50  002 

0 

INDEX 

Q 

P30  2 

n /. . a c i a 

717771 

0 

Tf 

A _ 

1 t JOl J 

C 

0305 

REF 

7 

LAST 

139] 

04, 3514 

01167 

0 

ADllP  TEMP 

ADPES 

IJPTEMP 

0306 

REF 

a 

LAST 

139Q 

04,3515 

01174 

1 

ADUPBUFF 

ADRCS 

UPBUFF 

0307 

08- , 35  16 

0 5201 

1 

UR  LL ADNV 

VN 

2 101 

0308 

04,3517 

Cc202 

1 

UPVf  FYNV 

VN 

2102 

0309 

RFF 

4 

LAST 

10OC 

4 36  2 

UP  21 

= 

MD1 

0312  1 

REF 

23 

LAST 

1356 

4756 

UPDTPHAS 

EQUALS 

FIVE 

R 031  3 

Pi  E-STORE 

AND  FAN  T * 

APPROPRIATE  BPAsCH 

SEQUENCE 

0314 

04,3520 

UP  SI GP  F 

EQUALS 

0315 

04,3520 

0 0004 

0 

I N HINT 

0316 

REF 

32 

LAST 

1 3 3 

0 — , 3 5 2 1 

30  103 

0 

CAE 

FLAGWRD7 

0317 

RFF 

2 85 

LAST 

) 3-' 

04,3522 

56  001 

0 

XCH 

L 

03 1 B 

P EF 

1 

0*  , 3523 

3 4 151 

0 

CAF 

VEP IFBI T 

031  9 

04 , 3 524 

0 0006 

1 

EXTEND 

0320 

REF 

1 7 

LAST 

1 37  5 

04, 3525 

06  001 

0 

RXOR 

L CHAM 

032  1 

REF 

33 

LAST 

139] 

04,3526 

54  103 

1 

TS 

FLAGWRD7 

0322 

REF 

115 

! AS  7 

1389 

04,3527 

0 5353 

1 

TC 

PH AS CHNG 

0323 

u -,-  ,3530 

04026 

1 

OCT 

04u2  6 

032* 

04 , 353  1 

0 0004 

0 

INHINT 

0325 

REF 

91 

LAST 

1389 

04,353  2 

4 47  52 

1 

CS 

TWO 

0326 

REF 

4 

LAST 

1389 

04 ,3533 

0 .1  17  2 

1 

AD 

UPVERB 

0327 

04 , 35  3* 

0 ( 006 

1 

EXTFND 

0328 

REF 

1 

04 ,3535 

6 3544 

1 

B L MF 

UPFNDVAC 

R 0330 

VERB 

73  BRANCH 

+ 2 


i" 
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NO 

YES-  BASED  ON  THF  COMPONENT  NO.  INDEX 
CALCULATE  THF  ECADR  OF  LOCATION  IN 
UPBUFF  WHICH  USE!"  WA^TS  T0  CHANGF. 

COMES  HERE  ON  V34  TO  TERMINATE  UPDATE 


ON  DATA  RETURN  FROM  'GOXDSPF' 

ON  DATA  RETURN  FROM  "GOXDSP"E  THE  CON- 
TENTS OF  MP AC  = VERB.  SO  TEST  FOR  V32. 
IT’S  MOT  A V32,  IT'S  DATA.  PROCEED. 

V32  ENCOUNTFrED  - GtJ  BACK  AND  GE-1  DATA 

ADDRESS  OF  TFMP  STORAGE  FOR  CORRECTIONS 
ADDRESS  OF  UPDATE  DATA  STORAGE  BUFFER 
V E R R 21  NOUN  01 
VERB  21  NOUN  02 

DEC  21  = MAX  MO  OF  COMPONENT?  +1 


GROUND  HAS  VERIFIED  UPDATE . STO^'E  DATA. 


INVERT  VERI Ft AG( B I T3  OF  FLAGWR07)  TO 
INDICATE  TC  THE  GROUNDIVIA  DOWNLINK) 

THAT  THF  V33  (WHICH  THE  GROUND  SENT  TO 
VERIFY  THF  UPDATE)  HAS  BEEN  SUCCESSFULLY 
FECEIVED  BY  THE  UPDATE  PROGRAM 


SET  RESTART  GcOUP  6 TO  REDO  THE  UPDATE 
DATA  STORE  IF  A RESTART  OCCURS. 
(BECAUSE  P RASCHNG  DTD  A PEI  1 NT ) 

GO  TO  UPFNDVAC  IF  INSTALL  IS  REQUIRED, 
THAT  IS,  IF  IT'S  A V70  - V72. 

GO  TO  U PE N C7 3 TF  IT'S  A V73. 


GAP:  ASSEMBLE  PE  V I S I 3 N CO  1 OF  AGC  PROGRAM  API  1 ROPE  BY  FYLtS 


L UPDATE  PROG- A'? 


0331 

04,3536 

0 0006 

1 

UPEi  D73 

EXTEND 

0332 

RFF 

<5 

LAST 

1391 

04,3537 

3 1176 

0 

DC  A 

UPBIJFF 

0333 

REF 

10 

1.  AST 

139  2 

04 ,3540 

53 ' 2 05 

0 

DXcH 

UP BUFF  +80 

0334 

REF 

1 

04,354  1 

0 3567 

0 

TC 

T IMEOIDL 

Q33c 

REF 

o 

l AST 

63  6 

04,3542 

0 4 364 

1 

""C 

F ALTON 

n 8 f. 

CPF 

8 

1 A RT 

1 8-1 

f|£,3St5 

0 371  2 

0 

TO 

IIP-  ■ 1 ! T +1 

r l r 

L A j I 

■LO  T 

vu  r i * i 

0337 

REF 

7 

LAST 

1338 

04, 3544 

3 4355 

0 

UPFNDVAC 

CAF 

C HR  PR  10 

0338 

REF 

45 

LAST 

1367 

04,3545 

0 5105 

0 

TC 

FINDVAC 

0339 

REF 

5 

LAST 

136  8 

F3 , 1706 

EBANK= 

TEPHEM 

0340 

REF 

1 

04,3546 

0 3591 

0 

2CADF 

UP  JOB 

034C 

P E F 

OF, 3647 

1010  3 

x 

0341 

RFF 

158 

LAST 

1384 

04,3550 

0 5155 

0 

TC 

ENDUFJOB 

0342 

F.EF 

24  2 

LAST 

12  65 

04,  355  1 

0 6037 

0 

UP  JOB 

TC 

I NT PF  F.T 

0343 

04,3552 

776  24- 

1 

CALL 

0344 
i 034!' 

REF 

38 

LAST 

1223 

04,3553 

2 7414 

0 

INTSTALL 

0346 

04,3554 

77776 

1 

upwak e 

EXIT 

034  7 

REF 

116 

LAST 

1391 

04  ,3555 

0 535  3 

1 

TC 

PHASCHNC- 

0348 

04, 3556 

040  26 

1 

OC  T 

0402o 

0350 

REF 

73 

LAST 

1365 

04,3557 

0 5504 

0 

TC 

UPFLAG 

0351 

REF 

C 

LAST 

1242 

04,3560 

00236 

0 

ADRES 

REINTFLG 

0352 

04, 3561 

0 0004 

0 

INHINT 

0355 

04,3562 

UPPAT73 

EQUALS 

0356 

REF 

5 

LAST 

1 39  1 

0 4.  8 8 A ? 

51  * 172 

1 

t r * n p v 

j 1 D\/  C V Q 

' J *T  f 3 7 0 6 

1 

IMMIa 

v • r V C r rj 

0357 

04,3563 

1 3564 

1 

TCF 

+ 1 

0358 

REF 

1 

04,3564 

1 3723 

0 

TCF 

UPEND70 

0359 

REF 

1 

04. 8868 

1 3632 

1 

Tf  F 

1 1 PP  N'H7  1 

CM  f Z*  J O * 

1 

• 1/  1 

U > C * U l X 

0360 

REF 

1 

04,3566 

1 3604 

1 

TCF 

UPET  1)7  2 

0361 

ROUTINE  TO 

INCREMENT 

CLICK! 

TIME2,  TIMED 

WITH 

CONTENTS  OF 

0363 

04,3567 

0 0006 

1 TIMEDlDl 

EXTEND 

0 3 64 

REF 

8 

LAST 

139  1 

0 a ,3570 

23' 167 

0 

QXCH 

UPTEMP 

0365 

R EF 

262 

LAST 

1389 

04, 3571 

3 4755 

1 

CAF 

ZERO 

0366 

04,3572 

22  007 

0 

ZL 

0367 

REF 

36 

LAST 

1337 

04,3573 

52  02  5 

1 

DXCH 

TIME2 

0368 

REF 

1 1 

1 AST 

1392 

04,3574 

53*217 

0 

DXCH 

UPBUFF  +18 

036  9 

RFF 

1 

04,3575 

3 4756 

1 

CAF 

UPDTPHAS 

0370 

REF 

256 

LAST 

1 3‘  1 

04, 3576 

54  001 

1 

TS 

L 

0371 

04,8577 

4 0000 

0 

COM 

0371  1 

REF 

5 

LAST 

865 

C4 , 3600 

52  765 

1 

DXCH 

-PHAS  E6 

3:15  DEC.  2,1 
USER  *S 
V73-PERFORM 
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PAGE  NO.  7 
DP  OCTAL  AGC 


.087  PAGE  1392 
E 3 S4 

CLOCK  INCREMENT 


ERROR-  TURN  ON  *OPFPATO?  EPPC'R*  IIGHT 
G TO  COMMON  UPDATF  PROGRAM  EXIT 

(USE  EXTENDED  VE°  R PRIORITY) 

GET  VAC  AREA  FOR  'CALL  INTSTALL' 

(NOTE:  THIS  WILL  ALSO  SET  ERANK  FOR 

■TEPHEM'  UPDATE  BY  V70) 

THIS  COULD  BE  A STATE  VECTOR  UPDATE  — SO 
WA I T ( PUT  JOB  TO  SLEFP  ) IF  ORRIT  I NT (01  ) 
IS  IN  PROGRESS — OP — GRAB  01  AND  F E T U P N 
Tn  UP  WAKE  IF  ni  IS  NOT  IN  PROGRESS. 


RESTART  PROTECT (GROUP  6) 


SET  INTEGRATION  RESTART  BIT 


B- ANCH  TO  THE  APPROPRIATE  UPDATE  VERB 

ROUTINF  TO  ACTUALLY  PERFORM  THE  UPDATE 

V70 

V71 

V72 


WORD  AT  UPBIJFF. 


SAVE  0 EOF  RETURN 

ZERO  AND  SAVE  TIME2,TIME1 


STORF  IN  CASE  OF  OVERFLOW 

DO 

A 

QUICK 
FHARC  HNG 


GAP:  ASSEMBLE  REVISION  001  OF  A^C  P- C G>  A -I  AP11R0PE  BY  EYLES 

L UPDATE  PROGRAM 


0372 


04 , 360  1 0 0004  0 T [MED  IDR  IN  HINT 


0373  KEF  2 6 3 LAST  1392  04,3602 

0374  04, 3603 

0375  REF  833  LAST  1301  04,3604 

0376  PFF  1?  LAST  13°?  04,3605 

0377  REF  334  LAST  1393  04,3606 


3 4755 

1 

CAF 

ZERO 

22  007 

0 

ZL 

54  156 

1 

TS 

*■’  PA  C +2 

53*205 
52  155 

0 

1 

nvru 

UPBUFF  +80 
MPAC 

UaCm 

DXCH 

037  b 

04 , 160  / 

0379 

REF  13 

LAST 

13°  3 

04,3610 

0380 
03  81 

FEF  835 

LAST 

1393 

04 . 36 1 1 

04.3612 

REF  1 
REF  264 
REF  14 

LAST 

LAST- 

13°  3 
139  3 

0382 

0383 
0334 

04.3613 

04.3614 

04.3615 

0385 

REF  37 

LAST 

139  2 

04,3416 

0 GO 06 
3 1217 
20  155 
0 0 006 

1 3622 

1 

1 

I 

1 

0 

Fx  f END 
DC  A 

DAS 

EXTEND 

BZF 

UPBUFF  +ISD 
MPAC 

DELTATQK 

3 4755 

1 

CAF 

ZERO 

53*217 

0 

DXCH 

UPBUFF  +18D 

20  0 25 

I 

DAS 

TIME  2 

0336  REF  117  LAST  13°2  0' ,3617  0 c353  1 

0387  04,3620  04026  1 


'i  C PFiAc  C HI' 6 

OCT  04026 


0388 

REF 

9 

LAST 

1392 

04,36  2 1 

0389 

PCF 

18 

LAST 

1337 

€4,3672 

0390 

REE 

836 

LAST 

1393 

04, 3623 

0391 

REF 

38 

LAST 

1393 

04,3624 

0392 

REF 

1 18 

LAST 

1393 

04,3625 

03  93 

04, 36  26 

0394 

04,362? 

0395 

REE 

10 

LAST 

1393 

04, 3630 

0396 

04,3631 

R 0397 

VERB 

71  BRANCH 

0402 

REF 

15 

LAST 

13-3 

04,3632 

0403 

REF 

79 

LAST 

1364 

04 , 363  3 

0404 

REF 

20 

LAST 

1324 

04,3634 

0405 

REF 

1 1 

LAST 

1393 

04,3635 

0406 

FEF 

5 

LAST 

1 324 

0.4 ,3636 

0407 

IFF 

7 

LAST 

1390 

04 ,3637 

040  8 

04 , 36*  0 

0409 

REF 

1 

04,3641 

0410 

REF 

32 

LAST 

1332 

04,3642 

0411 

REF 

461 

LAST 

1391 

0 4,364  3 

0412 

PEE 

2 

LAST 

1386 

04 , 3644 

0413 

REF 

6 

l AST 

1393 

0 A f 

0414 

REF 

8 

LAST 

139  3 

04,3646 

0415 

REF 

337 

LAST 

1393 

04, 3647 

0 1167 

0 

TC 

UPTEMP 

0 7 2 57 

0 

DELTA  ILK  TC 

T P AG EE 

52  155 

1 

DXCH 

MPAC 

20  025 

1 

DAS 

TIME2 

0 5353 

1 

TC 

phaschng 

04026 

1 

OCT 

04026 

0 C004 

0 

IN  HI  NT 

51 ' 167 

0 

INDEX 

UPTEMP 

0 0001 

0 

TC 

1 

31*175 

0 

UPEND71 

CAE 

UPBUFF  +1 

54  0 03 

0 

TS 

EBANK 

7 4357 

0 

MASK 

LCW8 

65  * 167 

1 

TS 

UPTEMP 

6 7 74  5 

0 

AD 

MEG  3 

6 I 170 

0 

AO 

COMP NUMB 

0 €006 

1 

EXTEND 

1 3647 

0 

BZF 

STOP  L P71 

7 4743 

1 

MASK 

B I T9 

10  000 

0 

CCS 

A 

1 37  60 

1 

TC  F 

UP ERL  OUT 

3 7 74  5 

0 

CA 

MEG  3 

6 1170 

0 

AD 

COMPNUMB 

54  154 

0 

ST0RLP71 

TS 

MPAC 

3:15  DEC.  2,1970  SKIPPER  .087  PAGE  1393 
USER  * S RAGE  MO.  8 E3  S4 


SICK  UL  I NCR  EM ENT E F ( A NO  ZERO 
IT  IN  C AS  F EF  RESTAPTS)  AND 
ST°9E  IT 

INTO  M P AC  FOR  TPAGREE . 


FORM  SUM  IN  MPAC 
TEST  FOR  OVERFLOW 

OVERFLOW,  RESTORE  OLD  VALUE  OF  Cl  OCK 
AND  TURN  ON  OPERATOR  ERROR 

P EST  APT  PROTECT (GPOUP  6) 


GO  TO  ERROR  EXIT 
FORCE  SIGN  AGP  E EM ENT 
INCREMENT  T I M E 2 , T I M E 1 
EST ART  PROTECT (GPOUP  o) 


(CODED  THIS  WAY  FOP  RESTART  PROTECTION) 
NORMAL  RETURN 


SET  EBANK 
AND 

CALCULATE 

S-REG  VALUE  OF  RECEIVING  AREA 

IN  "HE  PROCESS  OF 
PERFORMING 
THI c UPDATE 
WILL  WE 
OVERFLOW 

INTO  1 HE  NEXT  EBANK. . . . 

YES 

NO-  CALCULATE  NUMBER  OF 

WORDS  TO  BE  STORED  MINUS  ONE 

SAVE  NO.  OF  WORDS  REMAINING  MINUS  ONE 


» 


> 


GAP  : 


ASS  E.MBL  £ RE VISID!  001  L F 


AGC  Pr-  OGHAM  API  1R0P  E BY  EYLES 


> L 


UPDATE  PROGRAM 


0416 

RCF 

462 

t AS-1- 

1393 

04 ,3650 

50  000 

1 

INDEX 

0^17 

REF 

16 

LAST 

1393 

04, 3651 

3 1176 

0 

C A 

QCC 

I A C T 

1 ^.G  ? 

f _ 'X/-.  R 9 

•>  A f)  p 1 

1 

T >; 

UH  1 t 

< l r 

L.  7 t 

L Au 

1 > /L 

) S U 1 

I 

< o 

0419 

REF 

8 33 

LAST 

139  3 

04, 3653 

3 Cl  54 

1 

CA 

0420 

REF 

12 

LAST 

1393 

0 4 , 36  5 & 

6 1167 

0 

AD 

04  21 

OFF 

463 

LAST 

1 3Q  A 

04,3655 

50  000 

1 

I NOEX 

0422 

E3, 1400 

E 3 A N K = 

042  3 

04,3656 

23*400 

1 

LXCH 

0424 

REF 

6 

LAST 

1 3 9 2 

F 3 , 1706 

EBANK= 

0425 

RFF 

839 

LAST 

1 39  A 

04,3657 

10  154 

0 

CCS 

04  2 6 

REF 

2 

LAST 

13c  3 

04, 3660 

1 3647 

0 

TCF 

04?7 

PEF 

4 

1 /\ST 

1 3°  2 

OA  , 34  4 1 

1 3711 

1 

Tf  F 

< 

0423 

REF 

17 

LAST 

1394 

04,3662 

01173 

0 

ADUPBFM]  ADRES 

0429 

REF 

5 

LAST 

1394 

C4, 3663 

1 37  11 

1 

TCF 

R 0430 

ve;  b 

72  BRANCH 

04  31 

REF 

57 

LAST 

1391 

04,3664 

3 4753 

1 

UPEND72 

CAF 

0432 

REF 

9 

LAST 

1393 

04,3665 

7 1170 

1 

MASK 

0433 

REF 

464 

LAST 

1394 

. 04,3666 

10  000 

0 

CCS 

04  34 

04,3667 

1 3671 

0 

TCF 

0435 

REF 

3 

LAST 

1393 

04,3670 

1 37  60 

1 

TCF 

0451 

PFF 

51 

LAST 

1390 

04,367 l 

4 4752 

1 

CS 

045  2 

P.EF 

10 

LAST 

1394 

04,3672 

6 1170 

0 

AD 

0453 

REF 

640 

LAST 

139  4 

04,3673 

54  154 

0 

L DLL 0P72 

TS 

0454 

REF 

465 

LAST 

139‘L 

04,3674 

50  000 

1 

INDEX 

0455 

R EF 

1« 

LAST 

130/,. 

04,3675 

31 ' 175 

0 

CAE 

0^5  6 

REF 

466 

LAST 

139*: 

04,3676 

22  COO 

1 

LXCH 

0457 

REF 

84  1 

LAST 

1394. 

04,3677 

10  1 54 

Q 

r r c 

G u o 

045  8 

REF 

842 

LAST 

1394 

04, 3700 

54  154 

0 

TS 

0459 

REF 

467 

LAST 

1394 

04,3701 

50  000 

1 

INDEX 

0460 

RFF 

19 

LAST 

1394 

04,3702 

31  ' 175 

0 

CAE 

0461 

REF 

80 

LAST 

1393 

04,3703 

5 4 00  3 

0 

TS 

0462 

REF 

21 

LAST 

13  93 

04,3704 

7 4 3 5 7 

0 

MASK 

0463 

PEF 

468 

LAST 

1 3°  4 

09 , 3705 

50  000 

1 

INDEX 

0464 

E3  , 1400 

EB ANK= 

0465 

04,3706 

23*400 

1 

LXCH 

0466 

REF 

7 

LAST 

1 3 94 

E 3 , 1706 

EBANK= 

0467 

REF 

843 

LAST 

1394 

04,3707 

1C  154 

0 

CCS 

046  8 

REF 

1 

04,3710 

1 3673 

1 

TCF 

R 0469 

NORMA 

L F INISH  OF  P27 

0470 

04,371 1 

UPOUT 

EQUALS 

0^71 

REF  1 

04 ,371  1 

0 

3165 

0 

TC 

0472 

REF  3 

LAST 

13R8 

04 , 37  1 2 

31 

•171 

1 

+ 1 

CAE 

0473 

REF  7 

LAST 

1389 

04 ,3713 

0 

5314 

1 

TC 

0474 

REF  265 

LAST 

1393 

04,3714 

3 

4755 

1 

CAF 

i" 


< 


A 

UPBUFF  + 2 
L 

MPAC 

UPTFMP 

A 

1400 

1400 

TEPHEK 

MPAC 

ST0PLP71 
UP  OUT 
UPBUFF  -1 
UPCUT 


BIT! 

COMPMUMB 

A 

+ 2 

!J">rr  ROUT 
AIT2 

CGMPNUMB 

MPAC 

A 

UPBUFF  +1 
A 

MPAC 

MPAC 

A 

UPBUFF  +1 
E8ANK 
LOWS 
A 

1400 

1400 

TEPHEM 

MPAC 

LDLCOP72 


INTWAKEU 

IJPOLDMOn 

NEWMOOEX 

ZERO 


3:  15  DEC. 


2,1970  SKIPPER  .087 


PAGE  1394 


USER'S  PAGE  NO.  9 


E 3 ?A 


TAKE  NEXT  UPDATE  WORD  FROM 
UPBUFF  AND 
SAVE  IT  IN  L 
CALCULATE  NEXT 
PECEIV1NG  ADDRESS 


UPDATE  THE  REGISTER  BY  CONTENTS  OF  L 

ARE  THERF  ANY  WORDS  LEFT  TO  BE  STORED 
YES 

NO-  THEN  EXIT  UPDATE  PROGRAM 

SAME  AS  ADUPBUFF  BUT  LESS  1 (DON'T  MOVE) 

NO-  EXIT  UPDAT  E( HER  E WHEN  COMPMUMB  = 3) 


HAVE  AN  ODD  NO.  OF  COMPONENTS 
BEEN  SENT  FOP  A V72  UPDATE... 

YES 

E-"':  1R-  SHOULD  BE  ODD  NO.  OF  COMPONENTS 


NOW  PERFORM  THE  UPDATE 

PICK  UP  NEXT  UPDATE  WORD 

c ET  POINTED  TO  EC ADC ! MUST  BE  CCS) 

PICK  UP  NEXT  ECADP  OF  REG  TO  BE  UPDATED 
SET  EBANK 

ISOLATE  RELATIVE  ADDRESS 


UPDATE  THE  REGISTER  BY  CONTENTS  OF  L 

APE  WE  THROUGH  THE  V72  UPDATE... 

NO 


+ 3 


RELEASE  GRAB  OF  ORBITAL 
RESTORE  PRIOR  P27  MODE 


INTEGRATION 


GAP : 


ASSEMBLE  REVISION  001  OF  AGO  PROOF  AM  API  1R0PE  BY 


UPDATE  PROGRAM 


0475 

REF 

10 

LAST 

1389 

04,3715 

54  332 

1 

0476 

REF 

1 

04, 3716 

0 3765 

0 

0477 

04,3717 

0 0006 

1 

0478 

REF 

29 

LAST 

1313 

04,3720 

3 4755 

1 

0479 

REF 

A 

1 A C T 

, 3721 

52  765 

1 

O 

LAM 

1 D c. 

0480 

REF 

43 

LAST 

718 

04, 3722 

0 5472 

0 

R 0481 

VERB 

70  BRANCH 

0482 

04,3723 

0 0006 

1 

0483 

RFF 

20 

LAST 

1394 

04, 3724 

4 1175 

1 

0484 

REF 

21 

LAST 

1395 

04 , 3725 

33 '205 

0 

04  85 

REF 

2 

LAS" 

13  4 2 

04,3726 

0 3567 

0 

04  86 

0487 

0488 
04  89 

0490 

0491 
04-92 
0493 


"EF 

REF 

REF 

REF 


22 

23 


LAST  1394 

LAST  13o4 

LAST  1345 
I AST  1393 


04,3727  0 3760  0 


REF  24  LAST  1395 
REF  25  LAST  1395 


E 3 , 1706 
04,3730 

■ ' 

04 ,373  2 

04.3733 

04.3734 

04.3735 


0 0006 
4 1175 
53 ' 207 
0 COO 6 
4 1175 
53' 21 1 


0494 

REF 

1 19 

LAST 

13  93 

04,3736 

0 5353 

l 

Q49r 

04,3737 

04026 

1 

0496 

REF 

266 

LAST 

1394 

04,3740 

3 4755 

1 

0497 

04, 3741 

22  007 

0 

0498 

- REF 

2b 

LAST 

139? 

04 ,3742 

S3' 207 

1 

0499 

REF 

5 

LAST 

500 

04, 3743 

21 '571 

1 

0500 

RFF 

26  7 

LAST 

13  r- 5 

04,3744 

3 4755 

1 

0501 

04,3745 

22  CO  7 

0 

0502 

PEF 

27 

LAST 

1395 

04,3746 

5 3 ' 2 1 1 

0 

050  3 

REF 

4 

LAST 

622 

04,3747 

21 '643 

0 

0504 

REF 

26  5 

L AT  T 

1395 

04,3750 

3 4755 

1 

0505 

04,3751 

22  007 

0 

0506 

REF 

28 

LAST 

1395 

04,3752 

53' 175 

1 

0507 

REF 

9 

LAST 

1395 

04,3753 

21  ' 710 

1 

0508 

REF 

10 

LAST 

1 3 

04,3754 

27 ' 706 

0 

0509 

REF 

120 

LAST 

1 3 

04,3755 

0 535  3 

1 

0510 

04, 3754 

04  026 

1 

0511 

REF 

29 

LAST 

1 i l 

1 174 

UPEND70 


Yl.tS 


3:15  DEC 


2,1970  SKTPPER 


087  PAGE  1395 


USER'S  PAGE  NO.  10  E3  S4 


TS 

TC 

dnlstcod 

UPACTOFF 

TURN  OFF  'UPLINK  ACTIVITY 

EXTEND 

KILL  GROUP  6. 

OCA 

NEGO 

DXCH 

-PHASE6 

TC 

ENDEXT 

EXTENDFD  VERB  EX  T T 

EXTEND 

DCS 

DXCH 

7C 

TC 

EB ANK= 
c y c m n 

UPBUFF 

UP8UFF  +80 

7 IMEDIDl 

UPERROUT 

TEPHEM 

V 70  DOES  THE  FOLLOWING  WITH 
TIME  IN  UPBUFF 

DP  DELTA 

DECREMENT  AGC  CLOCK 

ERROR  WHILE  DECREMENTING  CLOCK  --  EXIT 

LA  : C LV  U 

DCS 

UPBUFF 

COPY  OECPEMENTERS  FOR 

DXCH 

UPBUFF  + 10  D 

RESTART  PROTECTION 

EXTEND 

DCS 

UPBUFF 

DXCH 

UPBUFF  +12D 

TC 

PHASCHNG 

RESTART  PROTECT (GROUP  6) 

OCT 

04026 

CAF 

ZERO 

ZL 

DXCH 

UPBUFF  +1CD 

DECREMENT  CSM  STATE  VECTOR 

TIME 

DAS 

TETCSf- 

CAF 

Z FRO 

ZL 

DXCH 

UPBUFF  +12D 

DECREMENT  LEM  STATE  VECTOR 

TIME 

DAS 

TETLEM 

CAF 

ZERO 

ZL 

DXCH 

UPBUFF 

DAS 

TEPHEM  +1 

INCREMENT  TP  TEPHEM 

ADS 

TEPHEM 

TC 

PHASCHNG 

PESTART  PROTECT (GROUP  6) 

OCT 

0402  6 

EBANK= 

UPBUFF 

GAP:  ASSEMBLE  REVISION  001  GF  AGC  PROGRAM  APllROPE  8V  EYLE3 


0512 


R 0 5 1 3 


A 051 
A052C 
A 052  1 
A 052  2 


UPDATE  PROGRAM 
REF  6 LAST  139' 


04,3757  0 3711  0 

ERF  HR  SEQUENCE 


TC 


UPOIJT 


3:15  DEC.  2,1570  SKIPPER  .087  PAGE 
USER ' S PAGE  NO.  11  E?  S4 

GO  TO  STANDARD  UPDATE  PROGRAM  EXIT 


051  L 

REF 

10 

LAST 

1392 

04,3760 

0 

4364 

1 

UPE'  • Oli-T 

TC 

F ALTON 

TURN 

ON  ^OPERATOR  ERROR* 

LIGHT 

0515 

REF 

7 

LAST 

1396 

04,3761 

1 

3711 

1 

TCF 

UPOUT 

GO  TO 

COMMON  UPDATF  PROGRAM  EXIT 

0516 

KtF 

1 1 

LAST 

1396 

04, 3762 

0 

43  64 

1 

+ 2 

TC 

F ALTON 

TURN 

ON  'OPERATOR  ERROR' 

L IGHT 

0517 

REF 

2 

LAST 

13°  5 

04,3763 

0 

3765 

0 

TC 

UPACTOFF 

TURN 

OFF'UPI INK  ACTIVITY' 

1 LIGHT 

0518 

RFF 

44 

LAST 

139  5 

OA, 3764 

0 

5472 

0 

TC 

ENDEXT 

EXTEN 

DED  VERB  EXIT 

(THE  PURPOSE  OF  UPEPPOUT  +2  EXIT  IS 
TO  PROVIDE  AN  ERROR  EXIT  WHICH  DEES 
RESET  ANY  RESTART  GROUPS) 


R 0523 

: UPACTOFF : 

IS  A ROUT I ME 

TURN 

OFF  UPLINK  ACTIVITY  LIGHT 

0525 

REF 

33 

LAST 

1369 

04,3765 

4 4751 

1 

UPACTOFF  CS 

BIT3 

0527 

04,3766 

0 0006 

1 

EXTEND 

0528 

P EF 

3 6 

LAST 

136  7 

04, 37t7 

03  011 

1 

WAND 

DSALMOUT 

0530 

REF 

384 

LAST 

1391 

04,3770 

0 0002 

0 

TC 

0 

TURN  OFF  UPLINK  ACTIVITY  LIGHT 
(BIT  3 OF  CHANNEL  11) 


1396 


NOT 


GAP  : 

ASSEMBLE 

REVISION  001  OF  AGC  PROGRAM  AP1IR0PE  BY  EYLES 

3:  15  DEC.  2,19?0 

SKIPPER 

.087  PAGE  1397 

L 

PTB  OP 

CODES 

USER'S  PAGE 

NO.  1 

EO  S4 

0001  22,3773  BANK.  22 

0002  REF  1 1C, 2000  SFTLOC  RTBCODES 

0003  10,3573  BANK 

0004  REF  12  LAST  1265  E5.1664  EBANK=  XNB 

0005  RFF  1 COUNT*  $f./RTB 

R 0006  LOAD  TIME2,  TIME1  INTO  MPAC: 

COOT  10,3573  0 00C6  1 LOADTIME  EXTEND 

0008  REF  39  LAST  1393  10,3574  3 C 02  5 0 DC A TIME2 

000°  REF  2 LAST  10 1 r 10,3575  1 6055  0 TCP  SL0AD2 


R 101  CONVERT  The  SINGLE  PRECISION  2'S  C(  i : r •'  F : V 1 1 G IN  MPAC  (SCALED  IN  HALF-REVOLUTIONS)  Tn  A 

R0012  DP  l'S  COMPLEMENT  NUMBER  SCALED  IN  REVOLUTIONS. 


0016  REF  844 

001?  REF  2 69 

0018 
001° 

0C20  REF  26 


LAST  1 3 ° 4 10,3576  1C  154  0 COULOGIC  CCS 


LAST  1395  10,3577  3 4755  1 CAF 

10.3600  1 3603  0 TCF 

10.3601  13  602  1 NOOP 

LAST  1102  1 0 , 3 6G2  4 4736  0 CS 


MPAC 
ZERO 
+ 3 


HALF 


002  1 

REF 

845 

1 AST 

1397 

10,3603 

54  155 

1 

0022 

RFF 

270 

LAST 

1357 

10, 3604 

3 4755 

1 

0023 

REF 

846 

LAST 

1397 

10,3605 

56  154 

1 

0024 

10,3606 

0 0006 

1 

0025 

REF 

27 

LAST 

1397 

10,3607 

7 4736 

0 

0026 

REF 

847 

LAST 

1397 

10,3610 

2C  155 

1 

002* 

REF 

61 

LAST 

1282 

10,3611 

1 60  61 

1 

R 0054 

FORCE 

TP  SIGN  AGREEMENT  IN  MPAC: 

TS  MPAC  +1 

CAF  ZERO 

XCH  MPAC 

EXTEND 
MP  HALF 

DAS  MPAC 

TCF  DANZIG  MODE  IS  AL 0 EAD  Y AT  DOUBLE-PRECISION 


0055 

REF 

19 

LAST  1393 

10,3612 

0 7257  0 

SGNAGREE 

TC 

TPAGREE 

0056 

REF 

62 

LAST  1 3 V 7 

1 C ,3613 

l 6061  1 

TCF 

DANZIG 

R 0057 

CONVERT  THE 

DP  l'S  COMPLEMENT 

ANGLE  SCALED  IN 

REVOLUTIONS  TO  A 

SINGLE 

PRECISION  2'S  COMPLEMENT 

R 0059 

SCA 

LED  I 

N HALF-RFVOL  UTI0N5 • 

0060 

REF 

1 

10,3614 

0 3644  1 

1STG2S 

TC 

1TL2SUB 

0061 

REF 

2 71 

LAST  1 3°7 

10 , 3615 

3 4755  1 

CAF 

ZERO 

0062 

REF 

848 

LAST  1397 

10, 3616 

56  155  1 

TS 

M D A C +1 

0063 

REF 

5 

LAST  1047 

10,3617 

o 

o 

o 

o 

TCF 

NEWMODE 

R 0064 

DO  1ST02S  ON 

A VECTOR 

OF  ANGLES: 

006  r 

REF 

2 

LA-T  1397 

1 0 , 3620 

0 3644  1 

VI  ST 02$ 

TC 

1T02SUB 

ANSWER 

ARRIVES  IN  A AND  MPAC. 

0066 

REF 

849 

LAST  1397 

10,3621 

52  162  0 

DXCH 

MPAC  +5 

0067 

REF 

850 

LAST  1397 

10,3622 

52  155  1 

DXCH 

MPAC 

0068 

REF 

3 

LAST  1397 

10, 3623 

0 3644  1 

TC 

1T02SUB 

GAP: 


ASSEMBLE  l VlSn.  001  OF  AGC  PROGRAM  API  1ROPE  BY  EYLES 


3 : 1 Is  DEC 


2,1970  SKTPPEP 


087  PAGE  1398 


L L TB  OP  CODES 


USER'S  PAoE  NO.  2 


006° 

REF 

851 

LAST 

1397 

10,3624 

54  154 

1 

TS 

MP AC  +2 

0070: 

REF 

852 

LAST 

139:8 

1C, 3625 

62  160 

1 

DXCH 

XPAC  +3 

007  1 

REF 

8*3 

LAST 

1306 

10,3626 

52  155 

1 

OXCH 

MPAC 

007? 

REF 

4 

LAST 

1 3-7 

10, 3627 

0 3 66+4 

1 

TC 

1T02SU8 

007  3 

REF 

8 54 

LAST 

1398 

10,3630 

5 £ 155 

1 

TS 

MPAC  +1 

0074 

REF 

855 

LAST 

1398 

10,3631 

3 0161 

1 

CA 

MPAC  +5 

0075 

REF 

8 5 3 

LAST 

139  8 

10,3632 

: 1 5 

0 

TS 

MPAC 

0076 

RFF 

1 - 

LAST 

1389 

10,3633 

3 6753 

1 

TP MODE 

CAF 

ONE 

0077 

D EF 

b 

LAST 

13^7 

10,3636 

1 6 0 60 

0 

TC  F 

NEW MODE 

R 007  8 

V1STD2S  FOR 

2 COMPONENT  VECTOR 

. USED  BY 

RR. 

0079 

REF 

5 

LAST 

1398 

10, 3635 

0 3644 

1 

2 V'l  ST  02$ 

TC 

1 TO 2 CUB 

0080 

REF 

85? 

l AST 

1398 

10, 3636 

52  16c 

1 

DXCH 

v P A C +3 

0081 

REF 

858 

LAST 

139R 

10,3637 

52  155 

1 

DXCH 

MPAC 

008  2 

REF 

6 

LAST 

13°  8 

10,3640 

0 3644 

1 

TC 

1T02SUB 

0083 

REF 

258 

LAST 

1394 

10,3641 

54  001 

1 

TS 

L 

008  A 

REF 

85  9 

LAST 

1398 

10,3662 

3 0157 

1 

CA 

MPAC  +3 

0085 

REF 

3 

LAST 

1397 

10,3643 

1 6 05  5 

0 

TCF 

SL0A02 

R 0086 

SUBROUTINE* 

TO  on  DOUBLING  AND 

l'S  TO  2* 

S CONVERSION: 

0087 
008  8 

0089 

0090 
00°  1 

REF 

RFF 

REF 

860 

469 

lc0 

LAST 

L AST 
LAST 

1 3 

1394 
1 3°8 

10.3644 

10.3645 
10,3 64  6 

1 0,^647 

10.3650 

10.3651 

10.3652 

0092 

0093 

REF 

861 

LAST 

1398 

0094 

RFF 

385 

L AST 

I 396 

10,3653 

0095 

'■  FF 

6 70 

L A S T 

1 '■ ' i 

10,3654 

0096 

REF 

5 

LAST 

1102 

10,3655 

0097 

REF 

862 

LAST 

1398 

10,3656 

0098 

REF 

386 

LAST 

1398 

10,3657 

R 0 1 1 4 
ROll  6 

QUANTITY 

THE  FOLLOWING  ROUT  I' 
FOLIMO  IN  TFM2.  THIS. 

R01 18 

( +0 

UNEQUAL  T9 

-0  ) 

QUANTITY. 

0119 

REF 

31 

LAST 

1267 

10,3660 

0120 

REF 

166 

last 

1 7(r> 

10,3661 

0121 

012? 

REF 

1 51 

L A ST 

13°» 

10.3662 

10.3663 

0123 

0124 

REF 

152 

LAST 

i i 

10.3664 

10.3665 

5 2 155 

1 1T02SUB 

DXCH 

MPAC 

2 C Col 

1 

DDCUBL 

10  OOO 

0 

CCS 

A 

6 47  5 3 

1 

AD 

ONE 

1 3652 

1 

TCF 

+ 2 

4 0000 

0 

COM 

54  134 

0 

TS 

MPAC 

0 C002 

0 

TC 

Q 

50  000 

1 

I NDEX 

A 

3 4734 

0 

CAF 

LIMITS 

26  154 

0 

ADS 

MPAC 

C 0002 

0 

TC 

Q 

: INCREMENTS  IN  2S 

COMPLEMENT  THE 

■AY  BE  i 

USED  TP  INCREMENT  DESIRED 

i AY  BE  i 

CALLED  BY  BANKCAL  L/SWCALL . 

54  142 

1 CDU I NC 

TS 

TEM2 

50  130 

0 

INDEX 

BUF 

10  000 

0 

CCS 

0 

6 4753 

1 

AD 

ONE 

1 3670 

1 

TCF 

+4 

6 ^-753 

1 

AD 

ONE 

• FINAL  MPAC  +1  UNSPECIFIED. 

THIS  WAS  REVERSE  OF  MSU. 

AND  SKIP  ON  OVERFLOW. 

OVER  FI OW  UNCOPRFCT  AND  IN  MSU. 

ISTER  WHOSE  ADDRESS  IS  IN  BUF  8 Y THE 
AND  OPTICS  CDU  ANCLES  hr  ANY  0THER  2 

IS  CD  FPL .QUANT . ARRIVES  IN  ACC 


E 5 S4 


IS  COMPL. 
S COMPL . 

. STORE  IT 


CHANG F 2 S COMPL.  ANGLE! IN  BUF) INTO  IS 


ASSEMBLE  66  V I S I uE  001  OF  AGO  PROGRAM  APllRGfE  BY  EYLES 


GAP: 

L RTR  OP  COOES 

012  c REF  153  LAST  1308 

0126 

0127  REF  32  LAST  1308 

0126  REF  471  LAST  1398 

0130  REF  154  LAST  13<p° 

0131 

0132 

0133  REF  33  LAST  1399 

0134 

0135  F EF  472  LAST  1399 

0137  RFR  f LACT  13  °P 

0138  REF  34  LAST  1369 

0136  REF  169  LAST  1393: 

0140 

0141  REF  387  LAST  1393 


,3666  6 4753  1 AD 

,3667  4 0000  0 COM 

,3670  6 0142  0 AD 

,3671  10  000  0 CCS 

,3672  6 *753  1 AD 

,3673  1 3675  1 TCF 

,3674  4 0000  0 COM 

,3675  54  142  1 IS 

,3676  l 3702  0 TCF 

,3677  50  000  1 INDEX 

,3700  3 4?Pi  o CAF 

,3701  6 0142  0 AD 

,3702  50  130  0 INDEX 

,3703  59  COG  0 TS 

,3704  0 0002  0 TC 


10 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10: 

10: 

1C: 

10 

10: 


c o 


3:13  DEC 


2,1970  SKIPPER  .087  PAGE  1399 


USEP ' S PAGE  NO.  3 E 5 S4 

□ ME 

OVERFLOW  HERE  IF  2S  COMPL . IS  180  DEG. 

TEM? 

A 

ONE 
+ 2 

SULT  MOVES  FFO  1 2ND  TO  3D  QUAD.  (OR  BACK) 
BACK  TO  2 S COMPL . 

T EM 2 

+ 4 

A 

LIMITS 

TEM2 

STORE  14BIT  QUANTITY  WITH  PRESENT  SIGN 

SIGN. 

FIX  tt,BY  ADDING  IN  37777  CP  40000 

BUF 

0 

STORE  NEW  ANGLE  IN  2S  COMPLEMENT. 

GAP:  ASSEMBLE  REVI5IQF  01  CF  AGC  PROGRAM  API 1RQPE  BY  EYLES  3:  15  DEC.  2,1970  SKIPPER  .087  PAGE  14-00 

L f 3 op  CODE1-  US  EP  • S PAGE  NO.  A E5  SA 


P 0142 

RTB 

TO  TORQUE  GYROS, 

EXCEPT 

FOR 

THE  CALL  TO  IMUSTALL.  ECAOR 

OF  COMMANDS  ARRIVES  IN  XI. 

0144 

REF 

61 

LAST 

1220 

10, 3705 

50  120 

1 

PUL  SE I MU  INDEX 

F IXLOC 

ADDRESS  OF  GYRO  COMMANDS  SHOULD  BE  IN  XI 

0145 

REF 

70 

LAST 

1271 

10, 3706 

3 0046 

0 

CA 

XI 

0146 

REF 

320 

LAST 

1390 

10,3707 

0 -'-  616 

1 

TC 

8ANKC ALL 

0147 

REF 

7 

L AS" 

669 

10,3710 

1 7323 

0 

C AO  P 

I MU  PUL  SF 

0148 

RFF 

63 

LAST 

1397 

10, 3711 

1 6061 

1 

TCF 

DANZ  IG 

..e 


2" 


GAP  : 

L 

P 0192 
R 0 1 93 

R 0195 

R 019* 
R 0197 
R 0198 

R 0199 
R 020  0 
R 020 1 

R 0?02 

0204 

0205 

020 6 

0207 

0208 
0209 
02 1C 
021  1 
0212 
0213 

P 02 1 4 
R 02  1 6 
R 02  1 5 

R 0220 

0222 

02221 

02222 

02223 

02224 

02225 

0223 

0224 
022? 
0226 

0227 

0228 

0229 

0230 

0231 

0232 

0233 

0234 
02  35 


HO!  \ LI  8Y  3:1?  DEC.  2,19^0  SKIPPER.  .087  PAGE  1401 

I'r  pp  COOES  USER'S  PAGE  NO.  5 E5  SA 

THE  SUBROUTINE  SIGNMPAC  SETS  CIMPAC,  MPAC  +1)  TO  SIGN(MPAC). 

FOP  THIS.  ONLY  THE  CONTENTS  OF  MPAC  ARE  EXAMINED.  ALSO  +0  YIELDS  POSMAX  AMD  -0  YIELDS  NEGMAX. 

ENTRY  *'A  Y BE  BY  PI  I HR  CF  THE  FOLLOWING: 

1.  LIMIT  THF  SIZE  OF  MPAC  ON  INTERPRETIVE  OVERFLOW: 

ENTRY:  9 OVB 

S IGNMPAC 

2.  GENERATE  IN  -1PAC  THE  SIGNU*-1  FUNCTION  OF  MPAC: 

ENTRY:  RTB 

r IGNMPAC 


IN 

REF 

OCC 

EITHER  CAS 

2 LAST 

O ^ H 1 A C T 

E,  PETUFN  IS  TO 

THE  NE 

XT 

1 

1 

1 

INTERPRETIVE  IN: 

S IGNMPAC  EXTEN! 

CCA 

n vr  u 

STS UCTION 

4^1 

1 7 0 0 

10.3712 

10.3713 

i n. 

0 0006 
3 4733 

n 7 IFF 

1 

OPUS  MAX 
MPAC 

r-  tr  r 

I 3 w o 

lUf  J 1 . 

C.  1 J J 

I 

REF 

473 

LAST 

1399 

10,3715 

10  000 

0 

CCS 

A 

REF 

272 

LAST 

1 3 7 

10,3716 

3 4755 

1 

DP  MODE 

CAF 

ZERO 

R |f 

4 

LAST 

139  8 

10,3717 

1 6057 

1 

TCF 

SLUAD2  +: 

1 0,3720 

1 3721 

1 

TCF 

+ 1 

10,3721 

C f 006 

1 

EXTEND 

npF 

3 

(.AST 

1401 

10,3722 

4 4733 

0 

DCS 

DPOSMAX 

REF 

5 

LAST 

1401 

10,3723 

1 60  5 5 

0 

TCF 

SLQAD2 

R T8 

0 COOT  MOk-UNIT  IS  Like  INTERPRETIVE  INSTRUCTION  UP  IT, 

UP  WHEN 

THE  VECTOR 

BEING  UNITIZED  IS 

VERY  SMALL  - 

— IT  WILL  BLOW  1 

IS  USED 

AND  THF  UPPER  ORDER  HALVES  OF  ALL  COMPONENTS  ARE  ZERO,  T! 

BY  A FACTOR  OF  2(13 

) AND  THF 

SQUARED 

MAGNITUDE  RETURNED  AT  340  W 

PEF 

155 

LAST 

1399 

10,3724 

3 47  53 

1 

MORMUNX 1 

CAF 

ONE 

REF 

11 

LAST 

91 2 

10,3725 

1 3727 

1 

TCF 

Nfif  "UNIT 

REF 

273 

LAST 

1401 

10,3726 

3 4 7 55 

1 

NORM UN  IT 

CAF 

ZERO 

REF 

62 

LAS': 

1.400 

10,3727 

6 0120 

1 

AD 

FIX  L 0 C 

REF 

964 

LAST 

1401 

10, 3730 

54  156 

1 

TS 

MPAC  +2 

REF 

321 

LAST 

1400 

10,3731 

0 46  16 

1 

TC 

BANKCALL 

REF 

3 

LAST 

1070 

10,3732 

01010 

1 

CADR 

VECAGREE 

PEF 

865 

LAST 

1 40  1 

10,3733 

10  164 

0 

CCS 

MPAC 

- EF 

1 

10,3734 

1 3770 

0 

TCF 

NCSHl FT 

10,3735 

1 3737 

0 

TCF 

+ 2 

REF 

2 

LAST 

1401 

10,3736 

1 3770 

0 

TCF 

NOSHIFT 

REF 

866 

LAST 

1401 

10,3737 

10  157 

0 

CCS 

MPAC  +3 

REF 

3 

LAST 

1401 

10,3740 

1 3770 

0 

TCF 

NOSHIFT 

10,3741 

1 3 743 

0 

TCF 

+2 

EF 

4 

L A S T 

140  1 

10,3 74  2 

1 3 7 70 

0 

TCF 

NOSHIFT 

REF 

867 

L AST 

14  0 1 

10,376 3 

10  161 

0 

CCS 

MPAC  +5 

RFF 

5 

l AST 

1 4-0  1 

1 0,3744 

1 3770 

0 

TCF 

NOSHIFT 

10,3745 

1 3747 

1 

TCF 

+ 2 

REF 

6 

LAST 

1401 

10,3746 

1 3770 

0 

TCF 

NOSHIFT 

SETS  MPAC  +2  TO  ZERO  IN  THE  PROCESS 


• HEN  ALL  (SOMEONE NTS  A C Zf  !'0.  IE  NOF  MUNI T 
MAGNITUDE  PET  IF  NED  IN  36D  WILL  BE  TOO  LA^GE 
BE  TOO  BIG  BY  A FACTOR  OF  2(26). 


+ 1 


GET  SIGN  AGkEEMENT  IN  ALL  COMPONENTS 


gap;  ASSEMBLE  REVISION  001  >F  AGC  PROGRAM  API  1R0PE  BY  EYLb.S 


L 

RTB 

OP  CODES 

0236 

REF 

868 

LAST 

1401 

10 

0237 

10 

0238 

REF 

79 

LAST 

1370 

10 

0239 

REF 

869 

l AST 

1402 

1C 

0240 

REF 

870 

LAST 

1402 

10 

0241 

10 

0241 1 

RFF 

80 

LAST 

1402 

10 

02412 

REF 

871 

LAST 

1402 

10 

024  13 

REF 

372 

LAST 

1402 

10 

02414 

10 

0241  5 

REF 

SI 

LAST 

1402 

TO 

0241  6 

REF 

«73 

l AST 

1402 

10 

02417 

REF 

2 

LAST 

1070 

10 

02418 

REF 

874 

LAST 

1402 

1C 

0241  9 

10 

0242 

REF 

61 

L AST 

1 3 1 9 

10 

0243 

REF 

3 

LAST 

1013 

10 

0243  1 

REF 

274  LAST  1401 

10 

02432 

REF 

1 

10 

P 0300 

RTB  VECSGNAG 

• « 

. FOB 

0301 

REF  322 

LAST 

1401 

10 

030  2 

REF  4 

L AST 

1‘  1 

10 

030  3 

REF  64 

LAST 

1400 

10 

***  END  IF  SK I PPP  F .087 


3 0155 

0 

CA 

MPAC  +1 

0 0006 

1 

EXTEND 

7 4736 

0 

MP 

BIT  14 

20  155 

1 

DAS 

MPAC 

3 0160 

0 

CA 

MPAC  +4 

0 0006 

1 

EX VEND 

7 *736 

0 

MP 

BIT14 

20  160 

1 

DAS 

MPAC  +3 

3 0162 

1 

CA 

MPAC  +6 

0 00  06 

1 

EXTEND 

7 4736 

0 

MP 

BIT  14 

20  162 

0 

DAS 

MPAC  +5 

3 4761 

0 

CAP 

THIRTEEN 

50  156 

0 

INDEX 

MPAC  +2 

54  045 

1 

TS 

370 

0 46  3-5 

0 

OFFTUNIT 

TC 

POST JUMC 

0102  4 

0 

CAD;- 

UNIT  +1 

3 4755 

1 3764 

1 

0 

NOSHIFT 

CAF 

TCP 

ZERO 

OFFTUNIT 

im  AGREEMENT  n|-  VfcCTnP  IN  M^AC. 

0 4616  1 VECSGNAG  TC  BANK  CALI. 

QIC  10  1 CAP"  VECAGP.Efc 

0 6061  0 TC  DANZIG 


, 3747 

,3750 

,3751 

,3752 

,37  53 

,3754 

,3755 

,3756 

, 3757 

,3760 

',376  1 

',3762 

,3763 

, 3764 

, 3 76  5 

,3766 

, 3767 

,3770 

, 3 77  1 

CES  S 

,3772 

,3773 

,3774 


3; 15  DEC. 

USEE 
SHIFT  AIL 

DAS  GAINS 


SKIP  THE 


2 ,19  70  SKIPPER  .087  PAGE  1402 
* S PAGE  NO.  6 E 5 S4 

COMPONENTS  LEFT  13 

A LITTLE  ACCURACY 


"TC  V EC AGP  EE"  DONE  AT  UNIT 


-2 


GAP:  ASSEMBLE  EVISiJN  001  OF  AGC  PROGRAM  API 1R0PE  BV  EYLES 


3:15  DEC.  2,1970  LMDAP 


.015  PAGE  1403 


R COO  1 
R 000  2 


R 0003 
R 0004 
R0006 
R 0008 
R 0009 
R0010 
R 0011 
ROC  12 
R 001  3 
R0014 
R 0015 
R0016 
R 0015 
R 0020 
R 0021 
R 002  3 
R0025 
R 002< 
ROO?e 


R 003  0 
R 003  1 


A 00  3 2 
A 00  3 3 


P 00  3* 


A 003  5 

A 0036 
A0C3  7 
A 00  ^ 


Tf-P.JPT  PROGRAMS 


USER'S  PAGE  NO. 


EO  S4 


PROGRAM  NA^ES:  (1)  T6jrP.CHK 

(2)  DOT  6PUPT 


MOO.  NO. 


OCTOBER  2,  1967 


MODIFICATION  BY:  LOWELL  6 HULL  ( A. C. ELECTRONICS) 

THESE  PROGRAMS  ENABLE  THE  LM  DAP  TO  CONTROL  the  THRUST  TIMES  OF  THE  REACTION  CONTROL  SYSTEM  JETS  BY  USING  TIME6. 
SI  OF  1 HE  LM  DAP  MAINTAINS  EXCLUSIVE  CONTROL  OVER  TIME6  AND  ITS  INTERRUPTS,  THE  FOLLOWING  CONVENTIONS  HAVE  BEEN 
ESTABLISHED  AND  MUST  NOT  BE  TAMPERED  WITH: 

1.  NO  NUMBER  IS  EVER  PLACED  INTO  T I ME6  EXCEPT  BY  LM  DAP. 


2. 

3. 


NO 

TO 


PROGRAM  CTHER  THAI  LM  DAP  ENABLE!  THE  TIME6  C JN! L . 


USE 

A. 

ft. 

C. 


INDICATING  that  tt  ts  ACTIVE. 


T T ' E a » THE  FOLLOWING  SEQUENCE  IS  ALWAYS  EMPLOYED: 

A POSITIVE  (MU-ZERO)  NUMB' EC  IS  STORED  IN  TIME6. 

THE  T I M%6  CLOCK  IS  ENABLED. 

TIME6  IS  INTERROGATED  AND  IS: 

NEVER  FOUND  N EG AT  I V E ( NON- Z ER 0 ) OR  +0. 

SOMETIMES  FOUND  PC  ST TI VE ( BETWEEN  1 AND  240DI 
SOMETIMES  FOUND  PUS MAX  INDICATING  THAT  IT  IS 
SOMETIMES  FOUND  NEGATIVE  ZERO  INDICATING  THAT: 

A.  A T6RUPT  TS  ABL  l)T  TT  OCCUR  AT  THE  NEXT  DIMC,  OR 

B.  A T6RUPT  IS  WAITING  IN  THE  PRIORITY  CHAIN,  OR 

C.  A T6RUPT  IS  IN  PROCESS  NOW. 

ALL  P JO  AMS  ..HICH  OPERATE  INEITHEF  INTERRUPT  MODE  OR  WITH  INTERRUPT  INHIBITED  MUST  CALL  T6J0BCHK 
E V Er  Y r HI  LI  I SECONDS  TO  PROCESS  A POSSIBLE  WAITING  TSRUPT  BEFORE  IT  CAM  BE  HONORED  BV  THE  HARDWARE. 


1 , 
I I . 
Ill, 
IV, 


INACTIVE  AND  NOT  ENABLED. 


(5.  PFf'GPAN  JtLcT,  IN  — AXES,  HANDLES  THE  INPUT  LIST.) 
T6JCBCHK  CALLING  SEQUENCL: 


L 

L +1 


TC  T6J0BCHK 

( : ETUE N) 


DOTE- HPT  C ALL  1 NG  SEQUENCE: 


DXCH  ARUPT 
EXTEND 

DC  A T 6 ADR 
DTC8 


T6RUPT  LEAD  IN  AT  LOCATION  4004. 


R 003  9 

SUBROUTINES  CALLED; 

: D0T6RUPT 

CALLS  T6J0BCHK. 

R 0040 

NOR  CAL  EX  I r MODES : 

TfcJOBCHK 

RETUI NS  TO  L +1. 

R 004 ! 

D0T6RUPT 

TRANSFERS  CON T POL 

TO  RESUME. 

R 004? 

ALARM/ABORT  MOOES: 

NONE. 

R0043 

INPUT:  TIME6  NXT6ADP 

OUTPUT  : TIME6 

NXT6AUR 

CHANNEL 

5 

R 0044 

T6NEXT  T.6NEXT  + 1 

T6MEXT 

T6NEXT  +1 

CHANNEL 

fc 

R 0045 

E6 FORTH A T6FURTHA  +1 

T6FURTHA 

T6FURTHA  +1 

8I715/CHL3 

R 0046 

DEBRIS:  T6J0BCHK  CLOBBER.  A. 

DOTfcR UPT  CLOBBERS  NOTHING. 

0047 

5753 

BLOCK  02 

* 


AP:  ASS  P ''BLE  E V IS  I Or  001  t F AGC  PROGRAM  AP11ROPE  BY  EYLfcS 


L T6-UPT  PROGRAMS 


0055 

0056 

nn  c;  7 

REF 

1 

17,2027 
17,2000 
17.  7 

BANK 
SETLOC. 
R AMK 

17 

DAPS2 

UUv  ( 

J.  i y ■ c-'-JC  i 

O H ' V FV 

0058 

8 EF 

2 

LAST 

219 

E6,  1466 

E 8 A N K = 

T6NEXT 

0059 

REF 

1 

COUNT  * 

$ $/ D APT6 

0060 

REF 

1 

17,2027 

10  031 

1 

T6 JOBCHK 

CC  S 

TIME6 

0063 

REF 

388 

LAST 

1399 

17,2030 

0 C002 

0 

TC 

Q 

0062 

R EF 

20 

LAST 

1 1 1.5 

17,2031 

0 5705 

0 

TC 

CCS HOLE 

0063 

REF 

1 

17,2032 

0 2032 

1 

TC 

T 6 Jf  3CHK  +3 

1006/ 

CONTROL 

PASSES 

TO  T ( JOB  ONLY 

WHEN  CITIME6)  = -0 

(I.F.  WHEN  A T6RUPT 

0066 

RFF 

33 

LAST 

1381 

17,2033 

3 4733 

1 

T6  JOB 

CAF 

PQSMAX 

0067 

17,2034 

0 0006 

1 

EXTEND 

0068 

REF 

22 

LAST 

1336 

17,2035 

03  G 1 3 

0 

W AMD 

CHAN  13 

00  fee 

REF 

34 

LAST 

1404 

17,2036 

3 6733 

1 

CA 

PPSMAX 

007  0 

] 7 . 7 0 2 7 

7 7 007 

n 

7 1 

1 I f C-\J  D 1 

C.  r.  r 

L.  L. 

0071 

RFF 

1 

17,2040 

53*471 

0 

DXCH 

T 6 F U THA 

0072 

REF 

3 

LAST 

1404 

17,2041 

53' 467 

1 

DXCH 

T6NEXT 

0073 

REF 

2 

LAST 

219 

1 7,2042 

23*465 

1 

LXCH 

N XT 6 ADR 

007< 

REF 

2 

LAST 

1 4 / 

17,2043 

54  031 

1 

IS 

TIME6 

007* 

REF 

7 

LAST 

3 36  9 

17,2044 

6 7725 

0 

AD 

PRI037 

0076 

REF 

474 

LAST 

1401 

17,2045 

5 4 000 

0 

TS 

A 

0077 

REF 

1 

17, 2046 

1 2052 

0 

TC  F 

EMABLET6 

0078 

REF 

35 

LAST 

1404 

17,2047 

3 47  3 3 

1 

CA 

PUS MAX 

0079 

REF 

3 

LAST 

1404 

17,2050 

56  031 

1 

TS 

T I ME6 

008  0 

r-  EF 

1 

17,2051 

1 2 0 63 

1 

TC  F 

GOCHRfc 

008  1 

RFF 

47 

LAST 

1 3 8 ? 

17,2052 

3 4735 

1 

ENABLET6 

CA 

Bill  5 

0082 

17,2053 

0 0006 

1 

EXTEND 

0083 

REF 

23 

LAST 

1404 

17,2054 

05  013 

0 

WOR 

CHAN  13 

0084 

REF 

4 

LAST 

1404 

17,2055 

3 1466 

1 

CA 

T6NEXT 

0085 

RFF 

8 

LAST 

140  4 

17,2056 

6 772  5 

0 

AD 

PRIP37 

0086 

REF 

475 

LAST 

14  04 

17,2057 

54  COO 

0 

TS 

A 

0087 

RFF 

2 

LAST 

1404 

17, 2069 

1 2063 

1 

TC  F 

GOCH56 

0088 

REF 

36 

LAST 

1404 

17,2061 

3 4733 

1 

CA 

posmax 

0089 

REF 

5 

LAST 

1404 

17,2062 

55*466 

0 

TS 

T6NFXT 

0090 

REF 

259 

LAST 

1398 

17,2063 

50  001 

0 

G0CH56 

INDEX 

L 

0091 

REF 

1 

17,2064 

1 5753 

1 

TC  F 

WRITEP  -1 

00Q? 

F 75  3 

BLOCK 

02 

0093 

REF 

1 

4000 

SETLOC 

FFTAG9 

0094 

5753 

BANK 

0095 

REF 

15 

LAST 

914 

E6  , 1635 

E B A N K = 

C DUX  0 

0096 

REF 

1 

COUNT  4 

$$/0APT6 

0097 

RFF 

4 

LAST 

219 

c;  '7  5 3 

3 1472 

1 

CA 

N E X T P 

0098 

5754 

0 0006 

1 

WRITEP 

EXTEND 

0099 

REF 

2 

LAST 

212 

5755 

01  006 

0 

WRITE 

CHAN6 

3:  15  DEC 


2,1970 


LMDAP 


015 


PAGE  1404 


USE3 1 S PAGE  NO. 


EO  $4 


CHECK  TIME6  FOR  WAITING  T6RUPT : 
NONE:  CLOCK  ROUTING  DOWN. 


MUST  BE  PROCESSED) . 

DISABLE  CLOCK:  NEEDED  SINCE  RUPT  OCCURS 
1 DING  AFTER  T6  = 77777.  FOR  625  MUSECS 
MUST  NOT  HAVE  T 6 = +0  WITH  ENABLE  SET 


GAP: 


ASSEMBLE  REVISION  001  OF  AG  C PROGRAM  AP11K0PE  BY  EYt.ES 


L 

Tfe- 

RUPT 

PROGRAMS 

0100 

REF 

389 

LAST 

1404 

5756 

0101 

<r  -7  r - 7 

REF 

1 

Z>  t % ( 

0102 

REF 

260 

LAST 

3 404 

5 76  0 

0103 

PEF 

1 

576  1 

m aa 

U 1 u . 

" r C 6 

0105 

REF 

3 

LAST 

1026 

5763 

0106 

REF 

261 

LAST 

140  5 

5764 

0107 

5765 

0108 

REF 

4 

LAST 

140  5 

5766 

0109 

PEF 

390 

LAST 

140  5 

5767 

0110 

PEF 

1 

5770 

0111 

PEF 

262 

LAST 

1405 

577  1 

0112 

REF 

2 

LAST 

140  5 

5772 

0113 

5773 

0114 

5774 

0115 

17,2065 

0116 

REF 

2 

LAST 

1404 

17, 2C 00 

n l i 7 

U 1 L 1 

i / » cue  J 

Oil  B 

REF 

4 

LAST 

1 40  4 

E 6, 1466 

011° 

c Ef 

2 

l AST  1 404  Tr 

1404: 

0120 

REF 

1 1 

LAST 

1339 

17,2065 

0121 

1 7,2066 

012? 

EF 

10 

LAST 

13  39 

17,2067 

0123 

REF 

2 

LAST 

1404 

1 7 , 2070 

0124 

REF 

25 

LAST 

1339 

17,2071 

0 0002  0 TC  0 

3 1473  0 CA  NEXTU 

54-  001  1 WRITEU  IS  L 

4 5774  1 CS  003 140CT 

0 C 0 06  I EXTEND 

02  005  0 RAND  CHAN5 

6 C001  0 AD  L 

0 GO  06  1 EXTEND 

01  005  0 WRITE  CHAN 5 

0 0002  0 TC  Q 

3 1474  1 CA  N EXT V 

54  001  1 WRITEV  TS  L 

3 5774  0 CA  00314UCT 

1 5762  0 TCP  -9D 

00314  1 0031 'OCT  OCT  00314 

BANK  17 

SETLOC  DAPS2 
BANK 

E B A N K = T6NEXT 


30 

30* 

COUNT* 

$ $/D APT 6 

22  016 

0 

D0T6RUPT  LXCH 

BANKRUPT 

0 C006 

1 

EXTEND 

22  012 

1 

QXCH 

QRUPT 

0 202  7 

0 

TC 

Tt  inufMk 

' DJ  JDo"(' 

1 52  70 

0 

TCF 

RESUME 

■ 


3:15  DEC.  2,1970  LMDAP 
USER'S  PAGE  NO. 


.015  PAGE  1405 
E6  S 4 


( INTERRUPT  LEAD  INS  CONTINUED) 

CALL  T6 JO BCHK . 

END  TIME6  INTERRUPT  PROCESSOR. 


* 


3:  15  DEC 


015 


PAGE  1406 


I 

GAP:  ASSEMBLE  REVISION  301  OF  AGC  Phi.GR AM  AP11R0PE  BY  FYLfcS 


2,1970  LMDAP 


DAP 

INTER 

FACE 

SUBROUT INES 

USER'S  PAGE 

0001 

20,2123 

BANK 

20 

0002 

0C03 

REF 

3 

LAST 

43 

20,2000 

20,2123 

SETLOC 

Q A ivi  K 

DAP  S3 

umin  r\ 

0004 

0 EF 

16 

LAST 

140  4 

E6, 1635 

FRANK = 

CDUXD 

0005 

REF 

1 

COUNT* 

TS/DAP IF 

EO  S4 


R 0006  MOD  0 


DATE  11/15/66  BY  GEORGE  W.  CHERRY 


R 0007  v D 1 1/23/67  MODIFICATION  BY  PETER  ADLER 

ROOOP  FUNCTIONAL  DF?C' TPTION 

R 0009  HEREIN  A" F A COLLECTION  OF  SUBROUTINES  WHICH  ALLOW  MISSION  CONTROL  PROGRAMS  TO  CONTROL  THE  mqdE 

RC011  AND  INTERFACE  WITH  THE  DAP. 

r oo 1 2 cai  ! ing  Sequences 

R 001 3 I!  INTERRUPT  OR  WITH  INTERRUPT  INHIBITED 
R0016  TC  I BNKCALL 

R 00 1 5 FC  ADR  SOUTINE 

ROOK  I A J b WITHOUT  I NTE'  » UPT  INHIBITED 
R 0017  INHINT 

R001P  TC  IBNKCALL 

R 001 9 FC ADR  ROUTINE 

R 0020  RE!  INT 

ROC 21  OUTPUT 

R 002  2 SEE  INDIVIDUAL  ROUTINES  BELOW 

R 002  3 DEBRIS 

R 002 ^ A , L , AND  SOMETIMES  MDUETEMP  ODE  NOT  IN  PULSES  MODE 


1 " 

\ 


GAP!  AS  i > oil  kEVISUN  001  Of  AGC  PROGRAM  API IkOPE  8Y  E YL  E S 


3:  15  DEC 


015 


PAGE  1407 


L 

R COS  7 
R OOPS 

R OOF 

R 00°  0 

R 009  1 
R0G9  2 
R 009  3 
ROC'TA 
R OOP  A 
R 009  8 
R0100 

P 010? 

R 0103 
A 0 1 C 7 
R 0 1 0 5 

010  6 
0107 
010 -: 
010° 

0110 
01 1 1 

0112 
0]  1 3 

0114 

01 15 

0116 

on-7 

0117 

0118 

011  9 

oi  ?n 


0121 
0122 
0123 
012' 
01  2 c 
0126 
01261 


LMDA  P 

NO.  2 E?  $4 

SU8FGUT IN  E NAMES: 

SETMAXDB,  SETMINDB,  RESTORDB,  PEL ITEDB 


OAF  INTER  FACE  SUBROUTINES 


. 2,1970 

USE P * S PAGE 


MODIFIED:  30  JANUARY  156*  BY  P WEISSMAN  TO  CREATE  r ESTOP 08. 


MI'OIFIED:  1 MAr  CH  1 »6  < py  r S WEISSMAN  TO  SAVE  FRANK  AND  CREATE  PEL  I TEDB 


FUNCTIONAL  DESCRIPTION  : 

SET  8 - , I OH  A DR  A T 5.0 

SETMINO-3  - SET  DEADBAND  TO  0.3 
'f  ST.'';  OB  - SC”  DEADBAND  jn  iA  X 
PFLTTEDB  - SET  DEADBAND  TO  1.0 
AH  ENTRIES  SET  UP  A NOVAC  JOB 
REFLECT  THE  NEW  DEADBAND.  IT  SHOULD  BE 


ObGR  EES 
DEGREE 

Pi.  n:  ACCORDING  TO  SETTING  OF  DESELECT  BIT  CF  DAPBOOLS 

DEGREE  AND  Z%RO  THE  COMMANDED  ATTITUDE  CHANGE  AND  COMMANDED  RATE 

TO  DO  1/ACCS  SO  THAT  THE  TJE7LAW  SWITCH  CURVES  ARE  POSITIONED  T0 

NOTED  THAT  THE  DEADBAND  REFERS  TO  THE  ATTITUDE  IN  THE  P-,U-,AND  V-AXES. 


SUBROUTINE  CALLED:  NOVAC 

CAL  L I NO  SEQUENCE:  SAME  AS  ASrVE 

OR  TC  RESTORDB  +1 

DEBRIS:  A,  L,  Q,  RUPTREG1,  (ITEMPS  IN  NOVAC) 


FROM  ALL  COAST 


REF 

35 

LAST 

9 1 0 

R EF 

1 

REF 

REF 

6 

1 

LAST 

853 

REF 

? 

LAST 

212 

20.2123 

20. 2124 

20.2125 

20.2126 


30  111  0 
7 4750  0 

0 One 6 1 

1 2140  1 


RESTORDB 


CAE 

MASK 

EXTEND 

BZF 


DAPBOOLS 

DESELECT 

SETMINDB 


20,2127  3 2151 

20,2130  55 ’3 46 


0 SETMAXDB  CAP 
0 + 1 TS 


WIDEQB 

DB 


DETER  MINE  CP EW-SEl ECT ED  DEADBAND. 


SET  5 DEGREE  DEADBAND. 


20, 2131 

REF  60  LAST  1377  2C,2132 

REF  4 LAST  744  20,2133 

REF  31  LAST  1371  20,2134 

REF  9 LAST  740  f 4, 1337 

£ F 2 LAST  192  20,2135 

20,2136 


0 (006  1 EXTEND 

22  070  0 QXCH 

3 7715  0 CALL, ACCS  CAF 

0 5072  1 TC 

E B A N K = 

02454  0 2CADR 

40106  1 


SET  UP  JOB 

EUPTREG1 
PR  I 027 
NOVAC 
AOSQ 
1 /ACC  JOB 


TO  RE-POSITION  SWITCH  CURVES. 


PEE 

61 

LAST 

1407 

20,2137 

0 

C07  0 

0 

PEF 

1 

20,2140 

3 

2150 

1 

REF 

2 

LAST 

791 

20,214 1 

1 

2 1 30 

0 

20, 

,2142 

0 

C 006 

1 

REF 

62 

LAST 

1407 

20, 

,2143 

22 

070 

0 

,<  F F 

9 

LAST 

8 5 3 

20, 

, 2 14  4 

0 

2153 

1 

r EF 

1 

20, 

, 214  5 

3 

2152 

0 

REF 

3 

1 AST 

1 407 

20, 

, 21  46 

FF 

*346 

0 

PEF 

1 

20, 

,2147 

1 

2133 

0 

20, 

,2150 

00155 

0 

TC  RUPTREG1  RETURN  TO  CALLER. 


s'  r i .oo 

CAF 

TCF 

N APR OWO 8 

SETMAXDB  61 

SET 

0.3  DEGREE  DEADBAND. 

PFLI TEDB 

EXTEND 

THE 

RETURN  FROM  CALLACCS 

IS 

TO  RUPTREG1. 

QXCH 

RUPTREG1 

TC 

Z AT  : EP.OF 

ZEF 

n THE  ERRORS  AND  COMMANDED  PATES. 

CAF 

POWER DB 

SET 

DB  TO  1.0  DEG. 

TS 

DB 

TCF 

CAL  L ACCS 

SET 

UP  1/ACCS  AMD  RETURN 

TO 

CALLER. 

N ARROWDB 

OCTAL 

0015  5 

0.3 

DEGREE  SCALED  AT  45. 

GAP: 


ASSEMBLE  E VISION  OG1  CP  ACC  PROGRAM  APIIRL-PE  BY  EYLES 


01262 

0127 


0128 

012° 

0130 

0131 

0132 

0133 
013^ 
013? 

0136 

0137 


0138 

01311 

0140 

0141 

0142 

0143 

0144 
014? 

0146 

0147 

0148 

0149 
016  0 

0151 

0152 

F 0153 

R Q1 5 4 

F 0156 

R 0157 

P 015? 

P 01 59 

R 0 1 6 < 

P 016  I 

0162 

0163 


DAP  INTERFACE  SOORfHIT  I NFS 


20.2151 

20.2152 

03434 

0C554 

1 

0 

HI DFDB 
POWEPDB 

OCT/ 

DEC 

RFF 

8 

LAST 

90  3 

20,2153 

3 15 

0 

ZATTFRnr 

CAF 

R EF 

81 

LAST 

1394 

20,2154 

56  0C3 

1 

XCH 

REF 

263 

LAST 

1405 

20,2155 

54  001 

1 

TS 

REF 

21 

LAST 

1313 

20,2156 

30  032 

0 

CAE 

REF 

17 

LAST 

1406 

20,2157 

5 5 ' 6 3 5 

1 

TS 

RFF 

10 

LAST 

1304 

20,2160 

30  033 

1 

CAE 

R E F 

4 

LA'  _ 

911 

20,2161 

55 '636 

1 

TS 

REF 

REF 

REF 


13 

4 

8 


LAST 

LAST 

LAST 


1309 

911 

924 


20,2162 

20.2163 

20.2164 


30  034 
55 '637 
1 2170 


CAP 

TS 

TCP 


03434 

.02222 


E8ANK6 

EBANK 

L 

COUX 

CDUXQ 

CC'JY 

CDUYO 

CDUZ 

CCUZO 

STOPRATE  +3 


REF  9 
PEF  8 2 
REF  264 
REF  275 
REF  1 1 


REF 
N FF 
PEF 
REF 
REF 
REF 
REF 
F EF 
REF 


6 
6 
5 
2 
2 
4 
2 
2 
8 3 


EF  391 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


140  5 
1408 
1408 
1402 
918 
917 

917 

918 
136 
136 
918 
3 6° 
3 1 , 9 

i - 

1405 


20 . 2 1 6 5 
20,2166 
20,2167 
20,2170 

20 .217  1 

20.2172 

20. 2173 

20. 2174 

20.2175 

20.2176 

20.2177 
20,2200 
20, 22C  1 
20,2202 
20,2203 


3 5015  C STOPRATE  CAF 


56  003 
54  001 
3 4 755 
55 ' 643 
5 5 • 648- 
55 '645 
65*640 
55 '641 
55 ' 642 
5? '277 
55 ' 300 
35 '301 
2 2 003 
0 COO 2 


+ 3 


XCH 

TS 

CAF 

TS 

TS 

TS 

TS 

TS 

TS 

TS 

TS 

TS 

LXCH 

TC 


SUBROUTINE  .NAME:  ALLCOAST 

Ul  l BE  GALLED  BY  FRE.^H  STARTS  AN  0 ENGINE  OFF  ROUTINES. 
CALLING  SEQUENCE:  (SAME  AS  ABOVE) 

EXIT:  RETURN  TO  Q. 


EBANK 6 

EBANK 

L 

ZERO 

CMEGAPD 

OMEGAQD 

P ME GAR D 

OELCOUX 

DELCOUY 

DELCDUZ 

OELPEROR 

DELQFROR 

DEL- ER OF 

EBANK 

Q 


SUBROUTINES  CALLED:  STCPkATE,  FSTORDB,  NOVAC 

ZERO:  (FOR  ALL  AXES)  AOS,  ALPHA,  ApSTERN,  C'MEGAD,  DELCDU,  DELEROR 

OUTPUT:  DR  I F T B I T / DA  PB  00 L S , D3,  JOB  TO  DO  1/ACCS 

DEPOTS:  A,  L,  0,  PUP-  RE  .1,  ' UPTPFG2,  ( IT6VPS  IN  . j VAC ) 

20,2204  0 0006  1 ALL  COAST  EXTEND 

'EF  23  LAST  1330  20,2205  22  071  1 QXCH  RUPTREG2 


3:15 

DEC.  2, 

1970 

L M OA  P 

.01? 

PAGE  1408 

USER'S 

PAGE 

NO. 

3 

E6  S4 

5 .0 

DEGRFES 

SCALED  AT 

45. 

1.0  DEGREE  SCALED  AT  45. 


SAVF  CALLERS  EBANK  IN  I . 


SAVE  CALLERS  EBANK  IN  L. 


RESTORE  CALLERS  EBANK. 


SAVE  Q FOR  RETURN 


Gap: 


ASSEMBLE  -EVISI2N  •.•01  OF  AGO  PR  0 S F AM  API 1R OPE  BY  EYLF.S 


L OAP  INTER  FACE  SUBFCUIINES 


0164 

REF 

9 

LAST 

1408 

20,2206 

0 2165 

1 

TC 

0165 

REF 

84 

LAST 

1408 

20,2207 

22  003 

1 

LXCH 

0166 

REF 

10 

LAST 

1407 

20,7210 

55 ' 637 

0 

TS 

0167 

REF 

1 1 

L AST 

1409 

20,2211 

55 ' 540 

0 

TS 

0168 

R EF 

2 

LAST 

740 

20,2212 

55' 541 

1 

TS 

01 6 c 

REF 

3 

I AST 

1409 

20,2213 

5 5 ' 5 A 2 

1 

TS 

0170 

REF 

2 

LAST 

19? 

20,2214 

55 '424 

0 

TS 

0171 

REF 

1 

20, 2215 

55 ' 425 

1 

TS 

0172 

REF 

2 

LAST 

133 

20,2216 

55 ' 545 

0 

IS 

0173 

REF 

1 

20,2217 

55 • 546 

0 

TS 

017  A 

RTF 

8 5 

LAST 

1409 

20,2220 

2 2 003 

1 

LXCH 

C 1 7 

REF 

36 

LAST 

1407 

20,222 1 

4 011  1 

1 

CS 

0176 

REF 

2 

LAST 

740 

20,2222 

7 4744 

0 

MASK 

0177 

REF 

37 

LAST 

1409 

2 0 , 2 22  3 

26  111 

1 

AOS 

017  c 

n EF 

8 

LAST 

8 54 

20, 2224 

0 212< 

1 

TC 

0179 

REF 

24 

LAST 

1408 

29, 2225 

0 0071 

1 

TC 

STOPRATE 

EBANK 

AO  SQ 

ACSQ  +1 

AOSR 

AOSR  +1 

CLEAR  R AT  E INTERFACE.  RETURN  WITH  A=0 
AND  l =E  BANK  6 . SAVE  CALLERS  EBANK. 

ALPHAQ 

ALPHAR 

AOSQTERF' 

aosrterm 

FOR  DCWNL  1ST. 

FBANK 

RESTORE  EBANK  (EBANK6  NO  LONGER  NEEDED 

DAP  BOOLS 

OR  I FTBI  T 

set  up  DRIFTBIT 

DAPBOOLS 

E‘  'OB  +1 

rfSTOFE'  OEADBANK  TO  CP  EW- SELECTED  VALUE 

F UP  T EG  2 


f-  ETURN 


GAP:  ASSEMBLE  REVISION  001  OF  AG C PROGRAM  AP1IR0PE  BY  FY1.ES 


3: 1 5 DEC 


2,1970  I.MDAP 


015 


PAGE  1410 


L OAPIDLER  PPOGc  AM  USER'S  PAGE  NO.  1 EO  S4 


R 000 1 

the 

OAPIDLER  PROGRAM 

IS  STARTED  BY  FRESH  STA'  T AND  RESTART. 

THE  DAPIDLER  PROGRAM  IS  DONE  10  TIMES 

R 0003 

PER 

SECOND  UNTIL  THE 

ASTRONAUT  DESIRES 

THE  DAP  TO  WAKE 

UP,  AND  THE  IMU 

AND  CDUS  Ah  E PEADY  FOR  USE  BY  THE  DAP. 

R 0005 

THE 

NECESSARY 

INITIAL IZAT ION 

OF  'i  HE  DAP 

IS  DUNE  BY  THE 

DAP  IDLE:  PROGR  AM 

. 

0006 

16 , 2000 

BANK 

16 

0007 

REF 

1 

16,2000 

SETLOC 

DAPS  1 

000  P 

16,2000 

BANK 

0009 

REE 

12 

LAST 

140° 

E6 , 1537 

ebank= 

AOS  Q 

0010 

REE 

l 

COUNT  * 

$ $/ DAP  I D 

0011 

16,3000 

0 0006 

1 

CHFKBITS  EXTEND 

0012 

REF 

8 

LAST 

911 

16,?  i 

00  03  1 

0 

READ 

CHAM  31 

IF  BOTH  8TT13  AND  BIT14  ARE  ONE,  THEN 

0013 

16,2002 

4 0000 

0 

COM 

THE  MODE  SELECT  SWITCH  IS  IN  THE  OFF 

001 4 

REF 

6 

LAST 

497 

16, ,2003 

7 4-3  55 

1 

MASK 

BIT  13- 14 

POSITION,  AND  SO  THE  DAP  SHOULD  BE  OFF, 

00 1 1 

1 6 , 2004 

0 0006 

1 

EXTEND 

WITH  NO  ATTITUDE  ERROR  DISPLAY. 

0016 

REF 

1 

16,2005 

1 2 157 

1 

BZF 

MORFIDLF 

0017 

REF 

51 

LAST 

1317 

16,2006 

4 1303 

1 

cs 

I MODES  33 

00  IP 

REF 

59 

LAST 

1391 

16,2007 

7 4746 

1 

MASK 

BIT6 

0019 

REF 

6 76 

LAST 

L4Q4 

1 - , 2010 

10  000 

0 

CCS 

A 

0920 

FF 

1 

16 , 26  1 1 

1 2206 

0 

TCF 

JUMP DSP 

0021 

REF 

4 

LAST 

219 

1 6 , 20 1 2 

4 12  73 

1 

CS 

RCSF  LAGS 

IMU  MOT  USABLE.  SET  UP  INITIAL  IZATIPN 

002  2 

P FF 

39 

LAST 

1396 

1 6 , 20 1 3 

7 6 7 51 

1 

MASK 

B I T3 

FLAG  FCr<  A?T  ERROR  DISPLAY  ROUTINE. 

002  3 

REF 

5 

LAST 

1410 

16,2014 

27*273 

1 

ADS 

RCSFL AGS 

002  6 

REF 

1 

1 6,2  1 

1 2163 

0 

TCF 

SHUTDOWN 

0025 

REF 

5 0 

t A ST 

I 33c 

ls,201fc 

3 ^742 

1 

CHEKMOPE  CAF 

BIT  10 

BIT  10  OF  30  IS  DGNC S CONTROL  OF  S/C 

002  f 

16, 2017 

0 0006 

1 

EXTEND 

0027 

P FF 

9 

1 AST 

9 1 1 

16,2026’ 

02  0 30 

0 

R ANO 

OH/iMRO 

RTTr  IN  30  APF  IMVFRTFfl 

oriHi M ?>  w 

Oil  1 IN  Zj  v’  M r l_  1IN  V CIa  1 CU 

0028 

P EF 

477 

LAST 

1410 

16,2  1 1 

10  COO 

0 

CCS 

A 

0029 

REF 

2 

LAST 

1410 

16,2022 

1 2157 

1 

TCF 

MOREI OLE 

0C30 

1 6 , 202  3 

0 CO 02 

0 

RETURN 

(/ 


H 

GAP:  AS S E MB L E R E VISION  00 1 

ID 

• 

L 

DAP!  Dl.  ER 

“PROGRAM 

LO 

LO 

P 003  1 

DAPIDLER 

ENTRY. 

• 

003  2 

REF 

12 

LAST 

1405 

« 

0033 

• 

0034 

REF 

11 

LAST 

1405 

0C35 

REF 

6 

LAST 

1410 

• 

0036 

REF 

49 

LAST 

13  66 

003  7 

REF 

478 

l AST 

1410 

0038 

REF 

1 

• 

00381 

REF 

50 

LAST 

1 4 }.  1 

( \ r n p 7 

OLC 

7 

1 ft  C T 

1 /,  i i 

Krr 

1 

LAo  I 

1 1 | 

O 

00383 

REF 

5 

LAST 

1407 

• 

003  9 

REF 

32 

LAST 

140  7 

0040 

REF 

13 

LAST 

1 1 

1 

0041 

: EF 

1 

!• 

0041 

REF 

1 

i 

0042 

RFF 

1 

!• 

A0043 

2 

0044 

REF 

38 

LAST 

1 4 o ? 

% 

o “ 

0045 

R FF 

2 

LAST 

219 

0 

004  6 

Z 

0047 

R EF 

3 

LAST 

14)0 

• 

6 

0048: 

REF 

50 

LAST 

1318 

2 

0049 

REF 

10 

LA$T 

140  7 

19 

005  0 

REF 

276 

LAS" 

1408 

0051 

RFF 

3 

LAST 

133 

0052 

REF 

2 

LAST 

134 

• 

0053 

REF 

1 

0054 

REF 

7 

LAST 

l'?5 

0C5* 

REF 

6 

LAST 

7 1 

» 

0056 

REF 

1 

0057 

REF 

6 

LAST 

130 

0058 

REF 

1 

• 

0059 

REF 

1 

3" 

0060 

REE 

14 

LAST 

1411 

006  1 

REF 

15 

LAST 

1411 

* 

0062 

REF 

4 

LAST 

1409 

0063 

RFF 

5 

LAST 

1 " 1 1 

0064 

REF 

3 

LAST 

1409 

% 

0065 

REF 

2 

LAST 

1409 

2" 

0066 

REF 

7 

LAST 

134 

006  7 

"EF 

1 

% 

0068 

REF 

3 

L AST 

14  09 

006  9 

REF 

2 

LAST 

140 

0070 

REF 

1 

% 

0071 

REF 

1 

1 


OF  AGC  PROGRAM  AP11ROPE  BY  EYLES 


16*2024 

22  016 

0 

D A P I 0 L E 1 

LX  CH 

16, 2025 

0 0006 

1 

EXTEND 

16,2026 

22  012 

1 

QXCH 

16,2027 

3 1273 

0 

CA 

16,2030 

7 4737 

1 

MASK 

16,2031 

10  000 

0 

CCS 

16,2032 

1 2 041 

1 

TCF 

16,2033 

3 4737 

0 

CA 

1 6,2034 

27 '2 73 

1 

ADS 

16,2035 

3 7715 

0 

CAF 

16 , 2036 

0 5072 

1 

TC 

E 6 , 1537 

EBANK= 

16 , 2037 

02  44  7 

1 

2 C A D c 

1 6 , 2C 40 

40106 

1 

16,2041 

0 2000 

0 

CHECKUP 

TC 

1 6 , 2 04  3 

3C 

1 1 1 

0 

CAE 

16, 2043 

7 

4 751 

1 

MASK 

1 4 , 2 04 4 

0 

0006 

1 

EXTEND 

16,2045 

1 

2157 

1 

BZF 

16,2046 

0 : 

46  74 

0 

STARTDAP  TC 

It-  ,2047 

4015  3 

1 

FCADR 

16,  20  5 0 
16, 205  1 

3 

55 

4755 

•5  24 

1 

1 

CAF 

TS 

16,2052 

55 

' 525 

0 

TS 

16,2053 

55 

• 526 

0 

TS 

16,2054 

55 

•421 

0 

TS 

16,2055 

55 

•422 

0 

TS 

1.6,  2056 

55 

•4  23 

1 

TS 

16,2057 

55 

'430 

0 

TS 

16,2060 

55 

'431 

1 

TS 

16,206  1 

55 

•4  32 

1 

TS 

16,2062 

55 

' 537 

0 

TS 

I 4, 2 06  3 

55 

• 540 

0 

TS 

16,2064 

55 

• 541 

1 

TS 

16,2065 

55 

* 542 

1 

TS 

16,2066 

55 

•424 

0 

TS 

I 6,2067 

55 

•425 

1 

TS 

16,2070 

55 

• 501 

0 

TS 

16,2071 

55 

»5<  3 

1 

TS 

16,2072 

55 

• 545 

0 

TS 

16,2073 

35 

* 546 

0 

TS 

16,2074 

55 

•510 

0 

TS 

16 , 2075 

5 5 

'512 

1 

TS 

BANKRUPT 

QRUPT 

C F 1 AGS 
BITIT 
A 

CHECKUP 
BIT13 
DCSFL  AOS 
PR 1 027 
NOVAC 
AOS  Q 
1 /ACCS  FT 


CHEKBITS 


DAP BOOL 5 
ACC  SOKAY 

MORE  I Dl E 

I BNKCALL 
zattep.gr 
z ep  r 

TJP 
TJU 
T JV 

OMEGAP 

OMEGAQ 

OMEGAP. 

T PAPE  DP 

TPAPEDQ 

TRAPEDR 

AGSQ 

AOSQ  +1 

AOSR 

AC'SF  +1 

ALPHAO 

ALPHAR 

|EGUQ 

NEGUR 

ACSQTET.  M 

A 0 S R T E P M 

QACCDOT 

R ACC  DOT 


3:15  DEC.  2,1970  LMDAP 

USER ' S PAGE  NO.  2 


.015  PAGE  1411 
E 6 S4 


INTERRUPT  LEAD  INS  (CONTINUED) 


CHECK  IF  1/ACCJQ8  HAS  BEEN  SET  UP  SINCE 
THE  LAST  FRESH  START  OR  RESTART. 

BIT  13  IS  1. 

SET  UP  JOB  TO  DO  A LITTLE  INITIALIZATION 
AND  EXECUTE  1/ACCS. 

(WILL  BRANCH  TO  MOREIDLE  ON  ACCSOKAY) 


CHECK  TO  SEE  IF  LM  DAP  IS  TO  GO  DM  AND 
DO  FRROR  DISPLAY. 

IF  1/ACCS  HAS  NUT  BEEN  COMPLETED , IDLE. 
NOTE:  ONLY  FRESH  START  AND  RESTART 
KNOCK  this  BIT  DOWN. 


ZERO  ATTITUDE  ERROR  AND  DESIRED  RATES. 
**********  INITIALIZE:  ********** 


RATES  IN  BUOY  (PILOT)  COORDINATES. 


OFFSET  ACCELERATION  ESTIMATES. 


COPIES  OF  OFFSET  ESTIMATES  FOR  DOWNLIST. 


QRAXIS  PATE  DERIVATION  TERMS  AND  KALMAN 
FILTER  INITIALIZATION  TERMS. 

DESCENT  ACCELERATION  DERIVATIVE  EST. 


GAP: 


ASSEMBLE  t-EVISnN  001  T A&C  Pi-.CGF  AM  APilr.&PE  BY  EYLES 


L DAP  T OLE!  Pf  '-<?/'• 


0072 

REF 

0073 

REF 

0074 

REF 

0075 

RFF 

0076 

R EP 

0077 

° EF 

0078 

REF 

00781 

4REF 

0078  2 

4REF 

0078  3 

*PEF 

0075 

REF 

0080 

REF 

0081 

REF 

008? 

REF 

1 

1 

1 

-i 

1 

1 

1 

3 

1 

2 

47 


LAST 


LAST 

LAST 

LAST 


134 


137 

137 
1 3 3 ' 


8 LAST  1411 

9 LAST  141? 


16.2076 

16.2077 
16,2100 
10,2101 
16,2102 
16  >'2103 
16,2104 
16, 2 ln5 
16,2106 
16,2107 

4747 

16,2110 

16,2111 

16,2112 


55*502 
55*631 
55  '6  33 

0 

0 

1 

TS 

TS 

TS 

ALLOWGTS 

COTPOLER 

INGTS 

55*632 

q 

TS 

QGIMT IMP 

55*634 

0 

TS 

R6IMTIMP 

55*460 

0 

TS 

(1LDPM  I N 

55*461 

1 

TS 

0 LOOP  MIN 

55*767 

1 

TS 

PJETCTR 

5 5 ' 7 7 0 

1 

TS 

UJETCTF 

55*771 

0 

TS 

VJETC" 

CALI  GOBI.  EQUALS  BITS 


4 2202  1 CS  MANFLAG 

7 1273  1 MASK  RCSFLAGS 

5 5 ' 2 73  1 TS  RCSFLAGS 


R 008  3 SET  UP  "OLD"  MEASURED  COL  ANGLES: 


0086 

00  85 

REF 

22 

0086 

REF 

3 

0087 

REF 

14 

008  P 

REF 

1 

0039 

REF 

I 

0090 

REF 

37 

0C901 

REF 

1 1 

0091 

REF 

31 

009  2 

REF 

2 

009  3 

REF 

1 

0094 

REF 

37 

0099 

REF 

4 

0096 

REF 

7 

00°7 

REF 

2 

0098 

REF 

277 

0095 

R E F 

8 

0100 

REF 

3 

0101 

RFF 

3 

0102 

REF 

5 

0103 

REF 

2 

0104 

G E F 

2 

0105 

PEP 

3 

0106 

P EF 

1 

0107 

REF 

q p 

0108 

REF 

1 

0109 

P.  EF 

1 

0110 

REF 

1 

0111 

0112 

REF 

1 

0113 

O0f 

3 

0114 

REF 

1 

0115 

REF 

5 

LAST  1408 
LAST  130 
LAST  1403 

LAST  1412 
LAST  1367 
LAST  1412 
LAST  1364 
LAST  133 

I AST  1404 
L A S 1 1 

LAST  1405 
LAST  1404 
LAST  1411 
LAST  1412 
LAST  1412 
L A E T 1 4 04 
last  1404 
LAST  1405 
LAST  1405 
I AST  1035 

LAST  1391 


LAST  219 
LAST  858 


16.2113 

16.2114 

16.2115 

16.2116 
14,2117 
14,2120 
14,212  1 
16,2122 
16, 2123 
1 6 ,2124 

16 .2125 

16.2126 
16,2127 

16.2130 

16.2131 

16.2132 

14.2133 

16.213 4 

16 , 213K 

16.2136 

16.2137 
16, 2140 
1‘  , 214  1 
1 6 , 2 14 2 

16 . 2143 

16.2144 

16.2145 

16.2146 
16,2167 

16.2150 

16.2151 

1 6. 2152 

16.2153 


0 0006  1 
3 0033  1 
53*441  0 

3 0034  0 
55*442  0 

4 1273  1 
7 474®  1 
27*273  1 
3 4751  0 
55*535  1 
55*536  1 
3 ^733  1 
56  C 3 1 1 
55*466  0 
55*470  1 

3 4755  1 
55*467  1 
55*471  0 
55*465  0 
55*472  0 
55*473  1 
55 ' 474  0 

4 4363  1 
55*757  1 
3 6752  0 
55*433  0 
55*434  1 
55' 435  0 
0 000:  1 
3 2205  1 
53*275  1 
3 7727  1 
54  030  0 


SETT IME5 


EXTEND 
OCA  C DUX 

DXCH  OLDXFOPR 

CA  COUZ 

TS  0 L 0 Z P OR Q 

CS  RCSF!  AO-S 

MASK  BIT12 

ADS  RCSFLAGS 

CA  FOUR 

TS  SKI PU 

TS  SKI  P V 

CA  D 0 S M A X 

TS  TIME6 

TS  T6NEXT 

TS  T 6FURTHA 

CA  ZERO 

TS  T6NEXT  +1 

TS  T6FUft7HA  +1 

TS  N X T 6 A DR 

TS  NEXTP 

IS  NEXTIJ 

TS  NEXTV 

CS  TEN 

TS  DAPZ’-UPT 

CA  TWO 

TS  NPTRAPS 

TS  NQTkAPS 

TS  NTTi  APS 

EXTEND 

DC A PAXAOIDL 

DXCH  T5ADR 

CAF  MS100 

TS  TIME5 
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AOSTASK  FLAG  FOR  QPAXIS  RCS  CONTEOl.  USE. 
DO  TRYGTS  ON  FIE  ST  PASS  ( WILL  GO  TO  RCS) 
RECOGNIZE  FIRST  GTS  PASS  AS  SUCH. 

STOP  GIMBAL  DRIVES.  (PFOBABIY  WOULD  8E 
GOOD  ENOUGH  JUST  TO  INACTIVATE  TIMERS) 
MINIMUM  IMPULSE  MODE  ERAS  ARLES 

INITIALIZE  DOCKED  JET  INHIBITION 
COUNTERS 

RCSFLAGS  INITIALIZATION. 

NEGUQ(P)  HAVE  BEEN  GENERATED. 


OLD XF OR  P AND  OLDYFORP 


BIT  12  SET  TO  1. 


JASK  MOT  IN  PROGRESS,  INITIALIZE  MEG 


GAP: 


ASSf  BLE  REVISION  OC 1 f AGO  PROGRAM  API  1ROPE  BY  LYLES 


OAF  I OLE!  PRr  G?  AM 


0116 

0117 

0118 

REF 

REF 

REF 

26 

16 

2 

LAST 

LAST 

LAST 

1405 

1411 

222 

16.2154 

E 6 , 1537 

16.2155 

1 5270 

0202  4 

0 

0 

1 DLERADR 

TCF 

EBANK= 
2CADR  :S: 

0118 

16,2154 

34  106 

1 

01  15 

0120 

REF 

RFF 

51 

1 

LAST 

1411 

16,21*7 

16,2160 

0 4674 

36626 

0 

0 

MOPE  IDLE 

TC 

CADP 

0121 

0122 

REF 

REF 

52 

1 

LAST 

1413 

16,2161 
16,2 16 2 

0 4674 
35446 

0 

1 

TC 

CADR 

0123 

16,2163 

0 0006 

1 

SHUTDOWN 

EXTEND 

012''- 

0125 

0126 
0127 
012  6 
012° 
0130 
013  1 
0132 
oni 

013“ 
01  3 * 

0136 

0137 

0137] 

0138 
0130 

0140 
01  t 

0141 

0142 


PEE 

RFF 


LAST  1412 


REF  278  LAST  1412 

REF  a LAST  1412 

1 EF  3 LAST  1412 

FP  3 LAST  1412 


P EF 

REF 

REF 

REF 

REF 


REF 
REF 
REF 
REF 
m E F 


3 

1 

65 

I 


R 

1 

1 

2 

60 


LAST  140 * 


LAST  1404 


LAS"  1324- 


LAST  1 4 11 


LAST  155 
LAST  1384 


16,2164 
1 ,21 

16, 2166 
16,2167 
1 ,2170 
16 , 217  l 

16.2172 

16.2173 
16,2114 

16.2175 

16.2176 

16.2177 
16 , 2200 
l , 220  1 

16,2202 
1.'  , 2 20? 
H , 1421 

16.2204 

16.2205 
7727 
006  1 


3 2156  1 
53 '2 75  1 

3 4 7 55  1 
55*472  0 
5L ' 473  1 
55 '474  0 
0 (006  1 
01  005  0 

1 0 6 1 
01  006  0 

4 2203  0 
0 00<  1 
03  012  1 
1 2152  1 

03021  1 
' >0  1 

02213  0 
34106  1 


DC  A 
DXCH 

CAE 
TS 
TS 
TS 

EXTEND 
WRITE 
EXTEND 
WT  I T E 

CS 

EXTFND 
WAND 
TCP 

OCT 
OCTAL 
EBANK= 

PAXADIDL  2CADR 


MAR F|  AG 
BGIM23 


MS  100 
COSMG 


0143  1 

16,2206 

0 0006 

1 

JUMPDSP 

EXTEND 

01432 

REF 

1 

16 ,2207 

3 221  2 

1 

DC  A 

01433 

16,2210 

52  006 

0 

DTC8 

01434 

, REF 

3 LAST  137 

E6, 1761 

EB  ANK  = 

0143  5 

RFF 

1 

1 4,22  1 1 

022  2 6 

0 

DSPCADR 

2 CADR 

01435 

P EF 

1 

16,2212 

4C  106 

1 

RESUME 

AOSQ 

DAP  IDLER 

I BNKCAL L 
QERr>C  ALC 

I BNKCAL l 
CALCPERR 


IDLE*  ADI- 
TS A D n 

ZERO 
NEXT  P 
NEXTU 
NEXTV 

CHAM5 

CHAN6 

BGIM23 

CHAN12 
SETT  I ME5 

03021 
07400 
OMFGAP 
PAX  IS 

OCT  37 766 
if EM PI 

DSPCADR 


AK 

ALT  DSP l Y 


1 

I 
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CALCULATE  Q,P.-AXES  ATTITUDE  FRRORS. 

CALCULATE  P AXIS  ATTITUDE  FRRORS. 

KILL  ANY  POSSIBLE  JET  REQUESTS 

COMMAND  JETS  OFF. 

TURN  TRIM  GIMBAt  OFF 

RETURN  IN  100  MSEC. 


TRANSFER  TO  RANK  20 

FO!  ATTITUDE  FRonp  DISPLAYS 


< 


) 


GAP:  ASSEMBLE  EVISI3N  SCI  GF  AGC  PR  DG  AM  AP11R0PE  BY  EYLES 


L 

DAP  IDLER  PROGRAM 

01436 

20,2226 

BANK 

01437 

REF  4 LAST  1406 

2C, 2000 

SETLOC 

01438 

20,2226 

BANK 

01439 

REF  I 

COUNT* 

p t - . ! A V • HI  TIKPI  V 

K'Jl 

r i ■ \?  • . A • a 1 l IJ  0 r i t 

R 0145 

MOD  0.  6 DEC  1967 

LMDAP  .015  PAGE  1414 
NO.  5 E6  S4 

20 

DAP  S3 
$$/NEEDL 


3:15  DEC.  2,1970 
USER'S  PAGE 


RC146  AUTHOR : CRAIG  WORK  , DON  KEENE,  MIT  IL 

R 0 147  MOD  3 BY  DON  KEE'E  AUG  1,  1°68  MOVED  PROGRAM  TO  BANK  20 
R 0148  PROGRAM  DESCRIPTION: 

P.  01 4 ' ALTDSPLY  REVERSES  THE  OS  L Y A 1 T BIT  OF  RCSFLAGS  EACH  TIME  IT  IS  CAL  l ED,  WHICH  IS  PRESUMABLY  EVERY  100  MS. 

ROI  1 If  TUT  BIT  IS  ( ME!  I II  CALLED  I DISPLAY  ATTITUDE  ERRORS.  IF  THF  B T T IS  ZERO,  THE  ATTITUDE  ' 

P 0 1 5 3 « APR  CALCULATED  AS  1)  DA3  F II  f * I NG  ERRO!  ? , F NEEDLFLG  = 0,  AND  2)  TOTAL  ATT I TUDE  ERRORS  FOP  NEEDLFLG  = 1. 

P 01 5 5 WA  NING:  ALTDSPLY  MAY  ONLY  BE  CALLED  WITH  INTERRUPT  INHIBITED. 


R 01K : WARNING:  EBANK  MUST  RE  SET  TO  6 WHEN  USING  THIS  ROUTINE. 

R 0157  INPUT:  R C S FT  AGS  AND  I)  IF  NEEOLFL  G=0',  TNPUT  P E R R 0 R ,OEPPOP  , R ERROR. 

R015P  2)  IF  NEEDLFL 0= 1,  INPUT  CP H I , CTHETA , CP S I , CDUX , CDU Y , CDUZ , Ml  1 , M2 1 , M3  1 , M22 , M32 . (GPMATFIX) 

R016C  OUTPUTS:  r CGF  LAGS  WITH  DSPLYALi  T EVER SED , AK , aKI , AK2 , + NEEDLER  OUTPUTS. 

P 0 14 1 ENTRY:  TCF  ALTDSPLY 


I 

l 

i 

4 


,.z 


R 0162  EXIT:  TCF  CHEKMORE 

R0163  ALARM  0 ABORT  EXITS:  NONE 


R 0 1 6 SUBPROGRAMS  CALI  ED:  NEEDLER,  OVERSUB? 


R 0 16  5 

DEBRIS : 

A , L , 

AND  NE 

EDLER  DEBS 

IS. 

0166 

REF 

12 

LAST 

1412 

20,2226 

3 1273 

0 

ALTDSPLY  CA 

rcsflags 

0167 

REF 

2 fcr 

LAST 

140  6 

20,2227 

54  001 

1 

TS 

L 

C168 

REF 

1 

20, 2230 

3 4 7 50 

1 

CA 

DSPLYAl T 

0169 

20 , 2231 

0 0006 

1 

EXTEND 

0170 

REF 

18 

LAST 

1391 

20,2232 

06  001 

0 

RXOP 

LCHAN 

0171 

REF 

13 

LAST 

1414 

20,2233 

55 '273 

1 

TS 

RCSFLAGS 

0172 

REF 

2 

LAST 

141  A 

20,2234 

7 4 7 50 

0 

MASK 

DSPLYALT 

0173 

REF 

479 

LAST 

1411 

20,2235 

10  000 

0 

CCS 

A 

0174 

REF 

1 

20,2236 

1 2322 

1 

TCF 

NEED! ER 

0175 

REF 

33 

LAST 

1376 

20,2237 

30  074 

1 

CAE 

FLAGWROC 

INVERT  THE  0 


SPLAY  ALTERNATION 


BIT. 


TS  ALTER  MAT  ION  FLAG  ZERO? 


NEEDLFLG  WILL  INDICATE  TOTAL  OP  DAP  AT- 


9 


9 

i 

D 

• 

I 

» 

* 

> 

3' 

► 

> 

2" 

► 

I 


!" 


> 


GAP:  ASSEMBLE  RE  VI.  ION  001  OF  A GC  PROGRAM  AP1100PE  BY  EYLES 

L OAPIDLFP  PROGRAM 


0176  REF  1 20,2240  7 '750  0 MASK 

0177  PEF  480  LAST  1414  20,2241  10  COO  0 CCS 

0178  REF  1 20,2242  1 2252  1 TCF 

0170  REF  2 LAST  132  20,2243  4 1450  0 CS 

01QP  15  EF  A LAST  1413  20,  2244  5C'762  1 TS 

0161  PEF  2 LAST  132  20,2245  4 1452  1 CS 

01815  REF  5 LAST  1415  20,2246  55'763  0 t$ 

0182  REF  2 LAST  154  20,2247  4 1464  1 CS 

016?  REF  o LAST  1^15  20,2250  57 '761  0 XCH 


3:15  DEC.  2,1° 70  LMDAP  .015  PAGE  1415 

USER'S  PAGE  NO.  6 E6  S4 

NEEDLBIT  TITUDE  ERROR  DISPLAY  REQUEST. 

A 

DSPLYTOT  TOTAL  ER P OR  IS  NEEDED  IN  AK , AK  +1,AK  +2 

QEPPOR  YES.  DISPLAY  ATT  EPRPRS  ON  THE  ,-BALL. 

AK  +1  ERROR  COMPLEMENTS  APE  INPUT  TO  NEEDLER. 

RERROR 

AK  4-2 

PERRGR 

AK 


0184  r E F 


2 0 , 2 2 c 1 1 2 a i 2 0 TCF  r ET  nMOP  E DISPLAY  THESE  THE  NEXT  TIME  THROUGH 


R 0 1 8 5 


CALCULATE  GIM3AL  ANGLE  Tt  TAL  EfRORS,  RESOLVE  INTO  PHOT  AXES,  STORE  TOTAL  ERRORS  FOR  NEEDLER. 


Q-AXIS  FIRST. 


0137  20,2252  0 0006  1 DSPLYTOT  EXTEND 

01  OF  -EF  1'  LAST  113  20,226  3 22  r>l  0 QXCH  [TEMPI  SAVE  Q FOP  CHEKBITS  RETURN. 


0189 

REF 

3 

LAST 

478 

20,2254 

3 

0322 

1 

01°C 

20,2255 

0 

0006 

1 

0191 

REF 

11 

LAST 

1408 

20,2256 

20 

033 

0 

0192 

REF 

7 

LAST 

1415 

20,2257 

55 

'7&1 

1 

0193 

20,2260 

0 

C0C6 

1 

0T94 

PEF 

2 

LAST 

IPO 

20,2261 

7 

14  15 

1 

0 19! 

REF 

8 

LAST 

1415 

20,2262 

57 

’ 762 

0 

0196 

REF 

5 

LAST 

518 

20,2263 

3 

03  23 

0 

0197 

20,2264 

0 

0-006 

1 

019  6 

REF 

15 

LAST 

1612 

20,2265 

20 

034 

1 

0199 

REF 

9 

LAST 

1415 

20, 2266 

55 '763 

0 

020P 

on  .00 1-  7 

A 

n n n a 

i 

2_  ' f C.  C.  O f 

U 

'JUUC 

i 

020  I 

REF 

5 

LAST 

903 

20, 2270 

7 

1417 

0 

0202 

REF 

10 

LAST 

1415 

20,2271 

6 

1762 

0 

0203 

REF 

1 

20,2272 

0 

2435 

1 

0204 

OFF 

11 

LAST 

1415 

20,2273 

55 

'7  62 

1 

CA  CTHETA 

EXTEND 
MSU  CDUY 

TS  AK 

Extend 

MP  M 21 

XCH  AK  +1 

CA  CPSI 

EXTEND 

MS  U C DU  Z 

TS  AK  4-2 

EXTEND 

MP  M22 

AD  AK  4-1 

TC  OVER SUB2 

TS  AK  4-1 


DESIRED  ATTITUDE,  Y-AXIS,  2'S  COMP. 
SUBTRACT  CURRENT  ATTITUDE. 

DIFFERENCE  SCALED  AT  PI,  l'S  COMP. 

SAVE  FOR  F.-EP.ROR  CALCULATION. 

(CHTETA-CDUY ) *M21  'CALED  AT  PI  RADIANS. 
STOPE  FIRST  T ERM  OF  Q ERROR . 

DESIRED  ATTITUDE, Z-AXIS,  2'S  COMP. 
SUBTRACT  CURRENT  ATTITUDE. 

DIFFERENCE  SCALED  AT  PI,  l'S  COMP. 

SAVE  Z-AXIS  TERM  FOR  R ERROR  CALCULATION 

( CPSI— CDIJZ  )*M22,  SCALED  AT  PI  PADIANS. 

Q ERROR  COMPLETE  , AT  PI  RAD. 

PIN  NEEDLES  IN  CASE  OF  OVERFLOW. 


R 0205 


P ERROR  CALCULATION  NEXT. 


0206 

REF 

12 

LAST 

1415 

20,2274 

3 

1761 

0 

CA 

AK 

Y-AXIS  DIFFERENCE  STORED  BY  Q-AXIS  CALC. 

0207 

20, 2275 

0 

0006 

1 

EXTEND 

0206 

REF 

2 

LAST 

1 39 

20,2276 

7 

1416 

1 

MP 

M3 1 

(CTHETA-CDIJY  >*M31,  SCALED  AT  PI  PADIANS. 

0209 

R G H 

13 

LAST 

1 a 1 r: 

20,2277 

57 

'763 

1 

XCH 

AK  +2 

FIRST  TERM  Of-  q ERROR. 

A 02 1 n 

Z-AXIS  DIFFERENCE,  STORFD  BY  A CALC.  IS 

021  1 

20, 2300 

0 

0006 

1 

EXTEND 

RECOVERED  BY  THE  EXCHANGE. 

0212 

REF 

3 

LAST 

903 

20,2301 

7 

1420 

1 

MP 

M32 

(CPSI— CQUZ)*M32,  SCALED  AT  PI  RADIANS. 

0213 

REF 

14 

LAST 

1415 

20,2302 

6 

' 

1 

AD 

AK  +2 

R ERROL  COMPLETE  , AT  PI  RAD. 

0214 

r EF 

2 

LAST 

1415 

20,2303 

0 

2435 

1 

TC 

SVEP-SUB2 

PIN  NEEDLES  IN  CASE  OF  OVER  FI  OW. 

02  lc 

PEF 

15 

LAST 

1 4 1 5 

20, 2304 

56 

' 7 o 3 

0 

TS 

AK  +2 

R0216 

NOW 

CALCULATE 

P ERROR 

. (NOTE 

THAT  M 13  = 1, 

SCALED  AT  1, 

, SO  THE  MULTIPL 

I CAT  ION  IS  BY-PASSED.) 

\ 
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L DAPTDLEK  PROGRAM 


0218 

REF 

16 

LAST 

1415 

20,2305 

0219 

20,2306 

0220 

REF 

7 

LAST 

183 

20,2307 

0221 

REF 

17 

LAST 

1M6 

20 ,2310 

0222 

0223 

‘ FF 

1 1 

LAST 

914 

20. 2311 

20. 2312 

0224 

REF 

23 

LAST 

1412 

20,2313 

3 1761 

0 

CA 

AK 

0 0006 

1 

EXTEND 

7 1-+ 1 4 

0 

HP 

Mil 

57 ' 761 

0 

XC  H 

AK 

30  321 

1 

CAE 

C PH  I 

0 0006 

1 

EXTEND 

20  0 32 

1 

MSU 

CDUX 

R 0 2 2 ? M 13  = 1,  SO  BYPASS  IK  MULTIPLICATION. 

R 022 6 EXTEND 

R 0 2 2 ~ MP  13  I CPHI-CDUX  )*  ’•  13  SCALED  AT  PI  -ADIANS. 


0228 

REF 

18 

LAST 

1416 

20,2314 

6 

176  1 

0 

0229 

RFF 

3 

LAST 

1415 

20,2315 

0 

2435 

1 

0230 

REF 

19 

LAST 

1416 

20,2316 

55 

'76  1 

1 

AD  AK 

TC  0VERSUB2 

TS  AK 


0231  20,2317  0 0006  1 

023?  PEE  71  LAST  14f?  20,2320  22  061  0 


EX  TFND 

QXCH  ITEMP1 


0233  REF 


2 LAST  1415  20,2321 


2442  0 


TC  F RETNMORE 


USER'S  PAGE  NO.  7 E6  S4 

Y-AXIS  DIFFERENCE  STORED  BY  Q AXIS  CALC. 

(CTHETA-CDUY >*M1L  SCALED  AT  PI  RADIANS. 
FIRST  TEEM  TF  P ERROR  IN  AK , AT  PI  RAD. 
DESIRED  ATTITUDE,  X-AXIS,  2'S  COMP. 
SUBTRACT  CURRENT  X ATTITUDE. 

X-AXIS  DIFFERENCE,  l'S  COMP,  AT  PI  RAD. 


P ERROR  COMPIETE  , SCALED  AT  PI  RAD 

PIN  NEEDLES  IN  CASE  OF  OVERFLOW. 


RESTORE  0 FOP  CHEKBITS  PE  TUFF . 
DISPLAY  THESE  THE  NEXT  TIME  THROUGH 
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LMDAP 
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L 

P023^ 

R 02  35 

R 023?' 

R 0237 

R0239 
R 024  1 
R 02  4 3 
R 024  5 


RC246 

00247 
R 0249 

R 0250 
r ( 25  i 
9 02^2 

R 025  ° 

R0255 
R0256 
R 025  7 

R 025  0 
R026C 

R 0262 

R 026  3 
R 0264 
R0265 
R 0266 

R 0267 
R 026  c 
D 0270 

P 027  2 
R 0273 
R0274 
R 0275 
R 027  ' 

R 0277 
R 027  8 


DAPIDLEr  PROGRAM  USER'S  PAGE  NO.  8 E6  S4 

FDA  I ATTITUDE  ERROR  DISPLAY  SUBROUTINE 

PRO  GR  AM  D F ; CR I P T I ON  : D.  KEENE  5/2  4/67 

MOD  l BY  CRAIG  WORK,  12  DEC  67 

tOD  2 BY  CRAIG  WORK,  6 APRIL  68  CONVERTS  ATTITUDE  ERROR  DISPLAY  SCALING  FROM  1/  7/8  DEG.  TP  42  3/16  DEGREES. 

►.THIS  SUBROUTINE  IS  LED  VC  DISPLAY  A"'  T I YUDE  ERUD-S  ON  V HE  FDAI  VIA  THE  DIGITAL  TO  ANALOG  CONVERTERS  (DACS) 

Ii  THE  CD  US . CA  r is  TAKE;.  T-  TTE"  out  THE  A RPR  DPI  I ATE  NUMB  E F OE  PULSES  TO  THE  I MU  ERROR  COUNTERS  AND  PREVENT 
OVERFLOW,  TO  C0NTROI  THE  RELAY  SEQUENCING,  AND  TO  AVOID  INTERFERENCE  WITH  THE  COARSE  ALIGN  LOOP  WHICH  ALSO  USES 
THF  DACS. 


CALLING  SEQUENCE: 

DURING  THE  INITIALIZATION  SECTION  OF  THE  USER'S  PROGRAM,  BIT3  OF  PCS EL AGS  SHOULD  BE  SET  TO  INITIATE  the 
TUPN-ON  SEQUENCE  WITHIN  THE  NEEDLES  PROGRAM: 


CS  RCSFIAGS  IN  EBANK6 

MASK  B I 73 

ADS  ■ CS  FI  AGS 


THE  E A F T E ? , -HE  ATTITUDE  EL 'TORS  GENE ’’AT  ED  BY  HE  US  Er  SHOULD  BE  TRANSFER  ED  TO  THE  FOLLOWING  LOCATION?  If!  EBAMK6: 

AK  SCALED  130  DEGREES  NOTE:  THESE  LOCATIONS  ARE  SUBJECT 

AK1  SCALED  180  DEGREES  TO  CHANGE 

AK 2 SCALED  180  DEGREES 

Foil  SCALED  DEFLECT'!.'.  N 1 F THE  ' EEDLES  CORRESPONDS  TO  5 1/16  DEGREES,  (WHILE  3 0 4 BITS  IN  THE  I MU  ERROR  COUNTER 
CORRESPONDS  TO  42  3/16  DEGREES.  ( DAC  MAXIMUM  CAPACITY  IS  384  BITS.)  46  BITS  EFFECTIVELY  PIN  THE  NEEDLES. 


A CALL  TO  NEEDLE  WJLL  THEN  UPDATE  THE  DISPLAY: 


INHINT 

TC  IBNKCALL  NnT E : EBANK  SHOULD  BE  SET  TO  E6 

CADR  NEEDl  ER 

RELINT 

rHlS  P‘  CE  ..  SHOULD  BE  6 L-  't  A 1 E D EACH  TIME  THE  El- FORS  A>.E  UPDATED.  AT  LEAST  3 PASSES  THRU  THE  PROGRAM  ARE 
: EQUIP  ED  BEFORE  ANYTHING  IS  ACTUALLY  DISPLAYED  ON  THE  ERROR  METERS. 

TF:  EACH  CALL  to  NEEDLE'-  MUST  BE  SEPARATED  BY  AT  (EAST  50  M S TO  ASSURE  PRO  PE  F PE!  AY  SEQUENCING. 

ERASABLE  USED: 

AK 
AK  1 
AK2 

EDr'  IVEX 
E DP  IVEY 
EDR  IVEZ 


C D'J  X CM  D 

CDUYCMD 

cbOZCMD 

A , 1. , Q 

T5TEMP 

DINDX 


> 

GAP:  ASSEMBLE  &£  VISION  OOl  CF  AGC  PROGRAM  AP11R0PE  BY  EYLES 


L DAP  IDLER  PROGRAM 


P 0279 

SWITCHES: 

RCSFLAGS 

BITS  3 

,2 

R 02  80 

R 028  1 

R 023  2 

I/O  CHANNELS: 

CHAN12 

CHAN12 

CHAM'- 

BIT  4 
BIT  6 
BIT  13 

(COARSE  ALIGN  - RE 
( IMU  IF  Cl  COU  r Ef 
,14, 15  (DAC  ACT  I VI 

AD  r FLY } 
ENABLE) 
TY) 

R 028  3 

SIGN  CONVENT! 0 N< 

AK  = THETAC  - THETA 

R 023  4 

WHERE. 

THETAC  = COMMAND 

ANGLE 

R 02?  r 

THETA  = PRESENT 

AN  GL  E 

0286 

REF 

14 

LAST 

1414 

20,2322 

3 1273 

0 

NEEDLER 

CA 

RCSFLAGS 

0287 

REF 

27 

LAST 

1370 

20,2323 

7 6242 

1 

MASK 

SIX 

028  9 

20,2324 

0 CO 06 

1 

EXTEND 

0289 

R.  EF 

1 

20, 2325 

1 2362 

0 

BZF 

NEEDLES3 

0290 

REF 

40 

LAST 

1410 

20,2326 

7 47  51 

1 

MASK 

B IT  3 

pipe  1 

pn . pp p7 

n i r>  ft  a 

1 

F y Y F N n 

IJL  V 1 

i.  u i f-  ~ C-  1 

U v Uwu 

1 

0292 

R EF 

1 

20,2330 

1 2353 

1 

BZF 

NEEDLER 2 

025  3 

REF 

6.0 

LAST 

1410. 

20, 2331 

4 4746 

1 

CS 

B IT 6 

0294 

20,2332 

0 0006 

1 

EXTEND 

02c  5 

P E F 

66 

LAST 

1M  3 

20,2333 

03  012 

1 

WAND 

CHAN  I 2 

029  a 

RFF 

279 

LAST 

141  3 

20,2334 

4 a 7 55 

0 

NEEDlEll 

CS 

ZERO 

0297 

REF 

20 

LAST 

1416 

20,2335 

55 ' 761 

1 

TS 

AK 

0298 

REF 

1 

20 , 2336 

55 '762 

1 

TS 

AK  1 

0299 

REF 

1 

20, 2337 

55*763 

0 

TS 

AK2 

030  0 

REF 

3 

LAST 

137 

20,2340 

55 '764 

1 

TS 

EOF  I VEX 

0301 

REF 

). 

20  , ?36l 

55*765 

0 

TS 

FDR  IVEY 

0302 

P EF 

1 

p r , 234-2 

55' 766 

o 

TS 

E DP.  ! V E Z 

0303 

REF 

4 

LAST 

1313 

20,2363 

54  050 

0 

TS 

CDUXCMD 

030  A 

REF 

2 

LAST 

174 

20,2344 

54  051 

1 

TS 

CDUYCMD 

0305 

REF 

2 

LAST 

175 

20, 2345 

54  052 

T 8 

r n 1 1 7 r m n 

1 O 

G U U Z.  G ' ‘ FJ 

0306 

RFF 

23 

LAST 

1418 

20,2346 

a 6242 

1 

CS 

SIX 

0307 

55  EF 

1 5 

LAST 

1418 

20,2347 

7 1273 

1 

MASK 

RCSFLAGS 

0308 

s EF 

52 

L AST 

1304 

20,2350 

6 M52 

0 

AD 

BIT2 

0308 

REF 

16 

LAST 

1418 

20,2351 

55*273 

1 

TS 

RCSFLAGS 

0310 

REF 

3 

LAST 

1416 

20,2352 

1 2442 

0 

TCF 

R ETNMORE 

0311 

REF 

61 

LAST 

1418 

20,2353 

3 4 746 

0 

NEEDLE  R 2 

CAF 

BIT6 

0312 

20,2354 

0 0006 

1 

EXTEND 

0313 

8 EF 

67 

LAST 

1418 

20,2386 

05  012 

1 

WOR 

CHAN12 

031  a 

REF 

29 

LAST 

1418 

20,2356 

4 6242 

1 

CS 

SIX 

0315 

REF 

17 

LAST 

1418 

20,2357 

7 1273 

1 

MASK 

RCSFLAGS 

0316 

REF 

18 

LAST 

1418 

20,2360 

55' 273 

1 

TS 

RCSFLAGS 

0317 

REF 

4 

LAST 

1618 

20,2361 

I 2442 

0 

TCF 

RETNMORE 

0318 

c FF 

62 

LAST 

1418 

20,2362 

3 474  6 

0 

NEED!  ES3 

CAF 

BIT4 

0315 

20,2363 

0 0006 

1 

EXTEND 

0320 

REF 

68 

LAST 

1418 

20,2364 

02  012 

0 

RAND 

CHAN12 

3:15  DEC.  2,1970  L.MDAP 
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B I T 3 

= 0, 

BIT2  = 1 

FIRST 

PASS  BIT3  = 1 

DISABLE  I 

MU  EPROP  COUNTER 

TO  ZERT  DACS 

MUST 

WA  I T 

AT  LEAST  60  MS 

BEFORE 

BN  A BL 

ING 

COUNTERS . 

ZERO 

THE 

INPUTS  ON  FIRST 

PASS 

ZERO 

THE 

DISPL AY  F EGI STF^ S 

ZERO 

THE 

OUT  COUNTERS 

RESET 

PCS 

FLAGS  FOR  PASS2 

ENABL 

E IMU  ERROR  COUNTERS 

RESET 

RCSFLAGS  TO  DISPLAY 

ATTITUDE 

ERROR 

s 

WAIT  AT L EAST  4 

MS  FOR 

RELAY 

CLOSUP  E 

CHECK  TO  SEE  IF  IMU  ERROR  COUNTER 
IS  ENABLED 
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DAP  IDLER 

PRPGR  Av 

0321 

REF 

481 

LAST 

1415 

20 ,2365 

10  000 

0 

CCS 

0322 

REF 

1 

20,2366 

1 2373 

0 

TCF 

0323 

K EF 

19 

LAST 

1413 

20,2367 

4 1273 

1 

CS 

032* 

REF 

41 

LAST 

1 * 1 8 

20,2370 

7 4751 

1 

MASK 

0325 

REF 

20 

LAST 

1419 

20,2371 

27*273 

1 

ADS 

0326 

REF 

5 

LAST 

1418 

20,2372 

1 2442 

0 

TCF 

0327 

REF 

9 3 

0 

Mccm  cc 

r ac 

LAST 

1ft  1 2 

2 L *23/3 

5 4 7 Z 

IN  ttULto 

v A r 

032  8 

ft  EF 

1 

20,2374 

54  063 

0 

DAC LOOP 

TS 

032  9 

R FF 

1 

20,2375 

4 2434 

1 

CS 

no  "j  n 

on  7 T 7 A 

ft  A ft  ft  A 

1 

c y ’"Cm  n 

0 d ;v  • 

£'J  , c.  D JO 

U uUuu 

L 

C A 1 L’VU 

0331 

REF 

2 

LAST 

1419 

20, 2377 

5 0063 

l 

INDEX 

0332 

REF 

21 

LAST 

1416 

20,2400 

7 1761 

l 

MP 

0333 

REF 

266 

LAST 

1414 

20,2401 

54  001 

l 

TS 

0334 

:<EF 

432 

LAST 

141  ■ 

20,2402 

10  000 

0 

CCS 

033  5 

REF 

1 

20,2403 

3 2432 

0 

CA 

n o o r. 

,,v  7/u.f-  a 

i ? /.  r<c. 

o 

Tf  F 

U D D C 

C.  W f 2_  *+  L.  -T 

1 £ -»  VJ  to 

1 1 

033  7 

REF 

2 

LAST 

1419 

20,2405 

4 2432 

1 

CS 

033  8 

REF 

267 

LAST 

) 1 ' 

20, 2406 

6 0001 

0 

AD 

0339 

REF 

1 

20,2407 

54  0 61 

1 

TS 

034  0 

2C  ,2410 

1 2414 

0 

TCF 

0341 

REF 

483 

LAST 

1*19 

2n  ,2*11 

50  000 

1 

INDEX 

0342 

: REF 

3 

LAST 

1419 

20,2410 

3 2*3  2 

0 

CAP 

0343 

REF 

263 

LAST 

1419 

20,2413 

54  001 

1 

TS 

0344 

REF 

3 

LAST 

141° 

20,2414 

50  063 

1 

INDEX 

0345 

REF 

4 

LAST 

1418 

20,2415 

4 17  64 

1 

CS 

0346 

REF 

26  R 

LAST 

1419 

20,2416 

6 0001 

0 

AD 

0347 

REF 

4 

LAST 

1419 

20,2417 

50  063 

1 

INDEX 

034  P 

REF 

5 

1 A FT 

1*18 

7 O . ?//>n 

ft 

AftC 

£ O \ ; 17  U 

u 

0349 

REF 

5 

LAST 

1419 

20,2421 

50  063 

1 

INDEX 

0350 

REF 

5 

LAST 

1419 

20,2422 

23*764 

0 

LXCH 

035  1 

REF 

6 

LAST 

1419 

20,2423 

10  063 

G 

CCS 

0352 

REF 

l 

20,2424 

1 2374 

1 

TCF 

035  3 

REF 

3 

LAST 

1372 

20,2425 

3 7740 

0 

CAF 

035* 

20,2426 

0 C 006 

1 

EXTEND 

0355 

REF 

23 

LAST 

1326 

20,2427 

05  014 

1 

WOR 

0356 

REF 

6 

LAST 

1419 

20,2430 

1 2442 

0 

TCF 

0357 

20,2431 

77177 

0 

DEC 

035  8 

20, 2432 

37200 

1 

DACL  IN  IT 

DEC 

035c 

’0,2433 

00600 

1 

DEC 

0360 

20, 2434 

03146 

1 

ONETENTH 

OCT 

0361 

RFF 

55 

LAST 

1366 

475  0 

DSPLYALT 

EQUALS 

036  2 

20,2435 

54 

007 

1 

OVER  SU:B 2 TS 

0363 

REF 

392 

LAST 

140  8 

20,2436 

0 

0002 

0 

TC 

036* 

REF 

484 

LAST 

1419 

20,2437 

50 

000 

1 

INDEX 

A 

NEEDLES 

h C S F LAGS 
BIT3 

RCSFL AGS 
RETNMORE 

TWO 

DINDX 

ONETENTH 

DINDX 

AK 

L 

A 

D ACL  I M IT 
+ 2 

DACL  IMI  T 
L 

T5TEMP 
+ 4 
A 

DACL I MI T 
L 

DINDX 
EDRI VEX 

L 

DINDX 
CD'JXCMD 
DINDX 
E DR  I V E X 
DINDX 
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L P-AxTS  -C  S AUT OP  II  T 


0149 


0150 

A 1 R 1 

REF 

orr 

2 

o 

LAST 

1 ACT 

1411 

i /.  o a 

UJL  J i 

Kfc  r 

-3 

L A b 1 

i -> 

0152 

REF 

3 

LAST 

1424 

0153 

REF 

4 

LAST 

1425 

015301 

0 1 5 3 C 2 

REF 

5 

LAST 

1424 

015303 

REF 

2 

LAST 

130. 

015304 

REF 

1 

015305 

015306 

REF 

ft. 

LAST 

1424 

015307 

REF 

3 

LAST 

142  5 

0153  1 

REF 

39 

LAST 

1411 

015  32 

REF 

7 

LAST 

9 10 

01533 

01534 

REF 

1 

01  K 3 c 

01536 

REF 

2 

LAST 

213 

01537 

REF 

6 

LAST 

1423 

0153E 

ope 

9 

1 A ST 

? 1 3 

n L f 

L ‘U  1 

015382 

0 1 5 3 f 4 

1 

REF 

2 

LAST 

213 

015383 

REF 

7 

LAST 

1425 

01539 

REF 

2 

LAST 

213 

01539? 

REF 

4. 

LAST 

1424 

015* 

REF 

10 

LAST 

1424 

0155 

015  4 

o ef 

0157 

REF 

5 

LAST 

1425 

0158 

0159 

REF 

2 

LAST 

14  2 5 

f U1 

016  0 

0161 

r'FF 

1 1 

LAST 

142  5 

0162 

REF 

280 

LAST 

1418 

0163 

0164 

REF 

2 

LAST 

1412 

0165 

REF 

1C. 

LAST 

1424 

0166 

REF 

4 

LAST 

142  5 

0167 

REF 

1 1 

LAST 

142  5 

0168 

REF 

3 

LAST 

1*25 

0169 

REF 

3 

LAST 

1425 

0170 

REF 

4 

LAST 

1425 

0171 

REF 

5 

LAST 

1423 

0172 

REF 

12 

LAST 

1 42  F 

0173 

P EF 

5 

LAST 

1425 

0174 

REF 

1 3 

LAST 

142  5 

0175 

REF 

5 

LAST 

1424 

16.2435  0 0006  1 

16.2436  61 '423  0 

16.2437  27*632  1 

1C  ,2440  0 2310  1 

16.2441  55*432  1 

16.2442  0 CO 0 6 1 

16.2443  3 1744  1 

16.2444  21 '453  0 

16.2445  4 1456  0 

16.2446  0 CO 06  1 

16,2*47  7 3620  1 

16.2450  21 '453  0 

16.2451  3 0111  0 

1 ,2,52  7 4737  1 

1 ,2463  0 0006  1 

14,2454  1 246 2 1 

14,7455  0 r 006  1 

16.2456  3 1405  1 

16.2457  53 ' 7 5 1 1 

lb, 2460  3 1403  1 

16,2461  1 2466  0 

1 ,2462  0 CO 06  1 

16.2463  3 1410  0 

16.2464  53 ' 75 1 1 

16.2465  3 1406  1 

16. 2466  65 '752  1 

16.2467  11 *430  0 

16.2470  1 2472  0 

16.2471  1 2507  0 

16.2472  6 1752  0 

16.2473  0 0006  1 

16.2474  o 2507  1 

16 . 2475  22  007  0 

16.2476  23 ' 43C  1 

16.2477  3 4755  1 

16.2500  0 0006  1 

16.2501  11*433  0 

16.2502  27 '421  0 

16.2503  0 2310  1 

16.2504  55 ' 42 1 0 

14,25'  5 ? 17  50  1 

L 6 , 2506  55*433  0 

16,2507  25*433  1 

16.2510  3 1745  0 

16.2511  27*421  0 

10.2512  0 2310  1 

16.2513  55*421  0 

16.2514  11*431  1 


EXTEND 

SU  OMEGAR 

ADS  TRAPEDR 

TC  OVERSUB 

TS  TRAPEDR 

EXTEND 

CCA  DAPTEMP5 

DAS  UZERRQR 

CE  RL AST 

EXTEND 
MP  1/40 

DAS  DZERROR 

CA  0 APBOP  L S 

MASK  CSMDOCKD 

EXTEND 

BZF  L MONEY 

EXTEND 

DCA  DKOMEGAN 

DXCH  DAPTREG4 

CA  DKTRAP 

TCE  +5 

LMONLY  EXTEND 

DCA  LMOMEGAF 

DXCH  DAPTREG4 

CA  LMTRAP 

+5  TS  QAPTREG6 

CCS  TRAPEDR 

TCP  +2 

TCE  SMALPDIF 

AD  DAPTREG6 

EXTEND 

BZMF  SMALPDIF 

ZL 

LXCH  TRAPEDP 

CA  ZERO 

EXTEND 

DV  NPTRAPS 

ADS  OMEGAP 

TC  OVER SUB 

TS  OMEGAP 

CA  DAPTREG* 

TS  NPTRAPS 

SMALPDIF  I NCR  NPTRAPS 

P-8 ATE  CA  JETRATE 

ADS  OMEGAP 

TC.  OVERSUB 

TS  OMEGAP 

CCS  TRAPEDQ 


3: 15  DEC.  2,1970  LMDAP 

USER’S  PAGE  NO.  5 


.015  PAGE  1425 
E6  S4 


TRAPEDS  HAVE  ALL  BEEN  COMPUTED 


MANUAL  MODE  Z-ATTITUDE  ERROR  (DP) 

PICK  UP  PAD  LOADED  STATE  ESTIMATOR  GAINS 


DOCKED 


UNDOCKED 


TRAPSIZE  > ABOU'r  770C1  %-  1 . 4D  EG/S  EC  " 


ABOUT  10  Of  0 FOP  DOCKED  OF  UNDOCKED 


GAP: 


ASS  t "BL  t.  kE  ViSJ  ON  COl  OF  AGC  PROGRAM  API  1R0PE  8Y  EYtfcS 


L P-AXI S PC  S AUTOPILOT 


0176 

16,2515 

1 2517 

1 

TCF 

+ 2 

0177 

P EF 

1 

16, 25 16 

1 2544 

1 

TCF 

Q-RATE 

m *7  q 

DPP 

A 

1 A ^ T 

1 /,  o q 

1 /.  .OKI  7 

1 17*? 

n 

An 

niPTBFC/. 

ul  1 

K t.  r 

C 

L Ao  1 

1.  » . f c.  -J  1 1 

O i 1 .J  K 

H 

U .Hr  i r\  r_  v 

01  7R 

16 , 25  20 

3 0006 

1 

EXTEND 

0180 

REF 

2 

LAST 

1426 

16,252 1 

5 25*4 

0 

BZMF 

3-RATE 

01 81 

16,262? 

2 2 007 

0 

ZL 

013? 

REF 

6 

LAST 

1426 

16,2523 

23 '431 

0 

LXCH 

TRAPEDO 

0183 

REF 

281 

LAST 

1425 

16,2524 

3 4755 

1 

CA 

ZERO 

0186 

16,25  25 

0 0006:: 

1 

EXTEND 

018  5 

REF 

2 

LAST 

1612 

16,2526 

11 '434 

1 

DV 

N IT  APS 

0186 

REF 

22 

LAST 

1624 

16,25  27 

55*737 

1 

TS 

DAPTEMP1 

01 8 « 

PEF 

8 

LAST 

1 424 

16,2530 

27 '4 22 

0 

AOS 

OMEGAQ 

0190 

REF 

6 

LAST 

1425 

16,2531 

0 2310 

1 

TC 

VE  ' 

0191 

REF 

9 

LAST 

1426 

16,2532 

55 '422 

0 

TS 

OMEGAQ 

0192 

REF 

9 

LAST 

1 4 2 5 

16,2533 

3 17  50 

1 

CA 

DAPTEEG4 

0193 

REF 

1 

LAST 

1426 

16,2534 

57 ' 434 

0 

XCH 

NOT  RAPS 

0194 

REF 

4 

LAS7 

1423 

16,2535 

6 1751 

0 

AD 

D APT f-  EG5 

019* 

PEF 

23 

LAST 

1426 

16,2536 

571737 

0 

XCH 

f>  A PT  F MO  1 

U AA  r 1 L ! 1 ’ J 

0196 

16,2537 

0 0006 

1 

EXTEND 

0197 

RFF 

24 

LAST 

1391 

16,2540 

7 4756 

0 

MP 

FIVE 

01 9 f 

16,2541 

0 OC  06 

1 

EXTEND 

019° 

REF 

24 

LAST 

1426 

16,2542 

1 1'737 

1 

DV 

DAPTEMP1 

0200 

REF 

18 

LAST 

1420 

16, 2543 

2 / ' 53  7 

0 

ADS 

A 0 S Q 

0201 

REF 

4 

LAST 

1426 

16,2544 

25 '434 

0 Q-RATE 

1 NCR 

NQTRAPS 

0202 

REF 

2 

LAST 

1423 

16,2545 

3 1746 

0 

CA 

JETRATEQ 

0203 

REF 

5 

LAST 

1423 

16,2546 

6 1545 

1 

AD 

AOSQTER  M 

0204 

REF 

10 

LAST 

1426 

16,2547 

27 '422 

0 

ADS 

OMEGAQ 

020  r 

REF 

7 

LAST 

1426 

16,2550 

0 2 310 

1 

TC 

OVEPSUB 

0206 

REF 

1 1 

LAST 

1426 

164255  1 

55 '422 

0 

TS 

r'  MEGAQ 

0207 

REF 

5 

LAST 

1425 

16,2552 

1 1 '432 

1 

CCS 

TRAPED0 

020R 

16, 2553 

1 2555 

1 

TCF 

+ 2 

0209 

REF 

1 

16,2554 

1 26  02 

0 

TCF 

R-RATE 

02 10 

REF 

7 

LAST 

14  2 6 

16,2555 

6 1752 

0 

AD 

D APT  E C-  6 

0211 

16,2556 

0 00  U 6 

1 

EXTEND 

0212 

RFF 

? 

LAST 

1 6 2 6 

16 ,2557 

6 2602 

1 

BZMF 

R-RATE 

021  3 

1 6 , 256  0 

22  007 

0 

ZL 

0214 

REF 

6 

LAST 

1426 

16,2561 

23*432 

0 

LXCH 

TRAPEDF 

0216 

REF 

282 

LAST 

14  26 

14 ,2562 

3 4755 

1 

CA 

ZERO 

021  ' 

16,2563 

0 0006 

1 

EXTEND 

02 1 7 

REF 

2 

LAST 

1'-  12 

16,2564 

11 '435 

0 

DV 

N RT  R A P S 

021  f 

RFF 

6 

LAST 

1424 

1 6,2565 

55' 740 

1 

TS 

DAPT EM  P2 

0221 

REF 

3 

LAST 

1425 

16,2566 

27*423 

1 

ADS 

OMEGAR 

0222 

REF 

8 

LAST 

1*26 

16,2567 

0 2310 

1 

TC 

OVER  SUB 

0223 

REF 

4 

LAST 

1426 

16,2570 

55 '423 

1 

TS 

1, MEGAK 

0224 

RFF 

10 

1 AST 

1426 

16,2571 

3 17  50 

1 

CA 

DAPTREG4 

022? 

REF 

3 

LAST 

1426 

16,2572 

57*435 

1 

XCH 

NRTF APS 

0226 

R EF 

5 

LAST 

1426 

16,2573 

6 1751 

0 

AD 

0 A P T F EG? 

0227 

REF 

7 

LAST 

1426 

16,2574 

57 ' 740 

0 

XCH 

DAPTEMP2 

0228 

16,2575 

0 0006 

1 

EXTEND 

3:15  DEC.  2,1970 

L MDAP 

.015  PAGE  1426 

USER'S  PAGE 

NO.  6 

E6  S4 

TLA  PS  I ZE  > ABOUT 

77001  Z 

-1.4DEG/SEC" 

SAVE  FGF  OFFSET  ESTIMATF 

ABOUT  10  OR  C FOR  DOCKED  OR  UNDOCK  ED 
KAOS  > ABOUT  60D  WN_60" 


7 RAPS  ! ZE  > ABOUT  77001  %- 1 .4DEG/SEC" 


RAVE  FOP  OFFSET  ESTIMATE 


ABOUT  10  OR  0 FOR  DOCKED  OR  UNDOCKED 


KAOS  > ABOUT  600  *N$S_60 


GAP : 

L 

0229 

0230 

0231 

0232 

0233 

0234 

0235 

0236 

0237 

0238 

A 02  3° 

A 0240 

A 024  1 

A 0 2 ^ 2 

024  3 

0244 

0245 

0246 

0247 

0248 

0249 

025  0 

0251 

025  2 

0253 

0254 

0255 

0256 

025  7 

0258 

025° 

0260 

0261 

0262 

0263 

0264 

0265 

0266 

0267 

0268 

026q 

0270 

0271 

0272 

02721 


AS  > BIBLE  REVISION  001  OF  AGC  -PROGRAM  AP11R0PE  BY  EYL.ES 


3:15  DEC 


2,1970 


lmdap 


015  PAGE  1427 


P-AXTS  RCS  AUTOPILOT 


USER'S  PAGE  NO.  3 


E6  S 6 


REF 

25 

LAST 

1426 

16,2576 

7 4756 

0 

MP 

F IVE 

16,2577 

0 CO 06 

1 

EXTEND 

REF 

8 

LAST 

142.6 

16, 2600 

11 ' 740 

1 

DV 

0APTEMP2 

REF 

6 

LAST 

14  11 

16,2601 

27*541 

1 

ADS 

AOSR 

REF 

4 

LAS’’ 

1424 

16 ,260  2 

25*439 

1 f -R AT E 

I NCR 

N RTF.  APS 

ref 

2 

LAST 

142  3 

16,2603 

3 1747 

1 

CA 

JETRATER 

REF 

4 

LAST 

1423 

16,2604 

6 154b 

1 

AD 

AOSPTEPM 

REF 

5 

LAST 

1426 

16,2605 

27*423 

1 

ADS 

CMEGAP 

REF 

t ACT 

A O O 1 A 

t c 

OV/C  nrim 

L Ad  1 

I ! ' f dbu  o 

U d D 1 U 

I 

U v t KMJb 

REF 

6 

L AS  T 

1427 

16 , 2607 

5 5*423 

1 

TS 

0 MEG AP 

END  OF  r ATE  DERIVATION 


BEGIN  OFFSET  EST IMATER 

II  POWERED  FLIGHT,  AOSTASK  WILL  BE  CALLED  EVERY  2 SECONDS. 
AOS  = AOS  + K*SUMRATE 


REF  40 
REF  3 
REF  48S 
- FF  1 
REF  4 
REF  3 
REF  6 
RE  F 5 
REF  19 
• FF  7 
REF  1 

REF  2 

REF  3 
REF  20 
-FF  21 
REF  5 

REF  1 
REF  7 
REF  2 

REF  4 
REF  8 
REF  9 
REF  4 

REF  2 
REF 

REF  2 


LAST 

LAST 

1425 

1409 

LAST 

li:  22 

L AST 

1 "■  1 1 

LAST 

14  1 1 

LAST 

1426 

LAST 

1427 

LAST 

142  6 

I AST 

1427 

LAST 

141 

1 

LAST 

101 

5 

LAST 

) 427 

l AST 

14? 

7 

LAST 

142 

7 

LAST 

1427 

LAST 

141  1 

LAST 

142  7 

LAST 

1427 

LAST 

1427 

LAST 

14?7 

L AST 

1427 

LAST 

1427 

LAST 

1427 

16, 26 10 
1 6 , 261  1 
16,2612 
16,2613 
16,261' 

16.2615 

16.2616 
16,2617 
1 ,2620 
16,2621 

14 . 2622 

16.2623 

16.2624 

16.2625 

16 . 2626 

16,2627 

16.2630 

16.2631 

16.2632 

16.2633 

16 . 2634 
1'  ,2635 

16.2636 

16.2637 

16. 2640 

16.2641 

16.2642 
16,2663 

16.2644 

16.2645 

1 6 . 2646 


40111  1 
l 4744  0 
10  000  0 
1 2^24  1 
5$ '424  0 
' *■ 25  1 
55*545  C 
5 5 ' 546  0 
55 '537  0 
55*541  1 
1 2667  0 
00074  1 
3 15 1C  1 
0,0006  1 
7 ^ 766  0 
21 '540  0 
3 1537  1 
55*424  0 
0 0006  1 
7 36 16  1 
55*545  0 
3 1512  0 
0 0006  1 
7 4766  0 
21'542  1 
3 1541  0 
55*425  1 
0 0006  1 
7 3616  1 
5C ' 546  0 
1 2667  0 


CS 

MASK 

CCS 

TCF 

TS 

TS 

TS 

TS 

IS 

TS 

TCF 

KAO?  DEC 

WORKTIME  CA 

EXTEND 

MP 

DAS 

CA 

TS 

EXTEND 

MP 

TS 

CA 

EXTEND 

MP 

DAS 

CA 

TS 

EXTEND 

MP 

TS 

TCF 


DAPBOOLS 
DRIFT BIT 
A 

WORKTI me 
ALPHAQ 
ALPHAR 
A 0 S Q T E 1 M 
AOSRTERM 
AOS  Q 
AO  ST 

PRFT  IMCK 
60 

QACCDOT 

CALI  CODE 
AOSQ 
AOSQ 
ALPHAQ 

200  MS 
AOSQTE : M 
f ACC  DOT 

CALLCODE 

AOSR 

AOSR 

ALPHAR 

2 00MS 
AOSRTER M 
PRETIMCK 


ZERO  THE  OFFSET  ACCELERATION  VALUES. 


OCTAL  0 0 0 3 2 IS  DECIMAL  .1  AT  2(6). 


.2  AT  1 


OCTAL  00032  IS  DECIMAL  .1  AT  2(6). 


.2  AT  1 


GAP:  ASSEMBLE  ! EVISION  QQ1  CF  AGC  PROGRAM  A ?1 1RLP  E BY  EYLEi 


L P-AXIS  PCS  AUTOPILOT 


R0273 


0274 

REF 

I 

1 o,2647 

3 4747 

1 

PAXFIir  CA 

CALLGM.BL 

02742 

REF 

21 

LAST 

1419 

16,2650 

7 1273 

1 

MASK 

RCSFLAGS 

027''  4 

R FF 

489 

LAST 

1427 

16,26.5  1 

10  000 

0 

CCS 

A 

07  7 4 A 

p c c 

1 

16, 2652 

0 3 736 

0 

TC 

ACOT+Cl? 

U C-  1 

HV/L/  1 1 V./  1 C 

0275 

REF 

12 

LAST 

1129 

16,2653 

52  011 

0 

DXCH 

ARUPT 

02  7i_ 

REF 

4 

LAST 

137 

16,2654 

53' 754 

1 

DXCH 

DAPARUPT 

0277 

REF 

1 

16,2655 

3 26  66 

0 

CA 

SUPF  JOB 

027  8 

REF 

3 

LAST 

13:3 

16,2656 

56  017 

1 

XCH 

8RUPT 

027< 

REF 

13 

LAR? 

14?  1 

16,26-7 

22  012 

1 

L XCH 

QRUPT 

02  3 0 

REF 

1 

16,2660 

53 ' 756 

0 

DXCH 

D APBQRPT 

0231 

REF 

1 

16,2661 

3 2665 

0 

CA 

SUPERADP 

028  2 

REF 

1 

16,2662 

5 2 016 

1 

DXCH 

ZRUPT 

02  83 

REF 

3 

LAST 

1421 

16,2663 

33 ' 760 

0 

DXCH 

DAPZRUPT 

02  3 4 

R EF 

1 

16,266': 

1 5275 

0 

TCP 

NC3BRSM  +1 

AO?"c; 


028  6 

REF 

2 

l AST 

1428 

16,2665 

02667 

1 

SUPER  ADR 

GENA  DR 

SUPF:-.  JOB 

R 0287 

COUNT 

DOWN  GIMBAl 

DRIVE  TIMER 

s and  turn 

OFF  DRIVES  IF  REQUIRED. 

02  9 F 

f FF 

1 

16,2666 

L 3641 

0 

SUPER JOB 

T C F 

RATFLOOP 

02981 

REF 

4 

LAST 

1412 

16,2667 

1 1 ' 632 

0 

PRETJMCK 

CCS 

QGIMTIMR 

0289 

REF 

1 

16,2670 

1 2710 

1 

TC  F 

DEC  QT I MR 

0290 

REF 

l 

16,267  1 

1 2714 

0 

TC  F 

TURNOFFQ 

0291 

REF 

2 

LAST 

1412 

16,2672 

11 ' 634 

0 

CHKr TIME 

CCS 

F.GIMT  I MR 

0292 

REF 

1 

16,267  3 

1 2712 

0 

TC  F 

dec;-  TIME 

0293 

*REF 

1 

16,2674 

1 2724 

0 

TC  F 

TURNOFFP 

0294 

* 

16,2675 

0 0006 

1 

EXTEND 

0295 

*RFF 

4 

LAST 

1412 

16,2676 

27*767 

1 

DIM 

PJETCTR 

0296 

& 

16.7677 

0 0006 

1 

pvTcwn 

i 

L A 1 C i • 1 U 

0297 

EF 

2 

LAST 

1412 

16,2700 

27*770 

1 

D I M 

U J E T C T P 

0295 

* 

14 , 2701 

0 0006 

1 

EXTEND 

029  Cl 

*RFF 

7 

l A R T 

1412 

1 6 ,270  2 

27*771 

n 

DIM 

\i  | p",  r -j  c 

V 

U 1 ’ 1 

V vJ  C f 1 ■ 

0300 

REF 

38 

LAST 

1412 

16,2703 

3 4740 

0 

CA 

BIT12 

0301 

REF 

22 

LAST 

142  8 

16,2704 

7 1273 

1 

MASK 

RCSFLAGS 

0302 

16,2705 

0 0006 

1 

EXTEND 

0303 

REF 

1 

16,2706 

1 2734 

1 

BZF 

SKI PPAXS 

0304 

REF 

1 

16,2707 

0 2740 

0 

TC 

CHKVT  SFZ 

0305 

REF 

5 

LAST 

1 42  9 

16,27  10 

55*632 

0 

DECQTI M" 

TS 

QGIMTIMR 

0306 

REF 

1 

16,2711 

1 2672 

1 

TC  F 

CHKRT I MR 

0307 

RFF 

3 

LA5T 

1428 

16,2712 

55*634 

0 

DECRTI MR 

TS 

RGIMTIMF 

0308 

REF 

2 

LAST 

1428 

16, 27  13 

1 2675 

c 

TC  F 

CHKRT I MR 

0309 

REF 

4 

LAST 

1411 

1 6,2714 

55*501 

c 

TURNOFFQ 

TS 

NEGU3 

03 1 n 

RFF 

3 

LAST 

142  7 

16,27) 6 

55*510 

0 

TS 

Q ACC  DOT 

0311 

REF 

1 

16,2716 

4 5007 

1 

CS 

QGIMBITS 

0312 

16,2717 

0 0006 

1 

EXTEND 

i 
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L MDAP 
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..l 

USER'S  PAGE 

NO.  8 

E6  S4 

EXECUTE  ACDT+C12,  IF  NEEDED. 

C ALLGMBL  IS  NOT  BIT  15,  SO  THIS  teSt  IS 
VALID. 

SETTING  UP  THE  SUPERJOB 


PEL  TNT  (JUST  IN  CASE)  AND  RESUME,  IN  THE 
FORM  OF  A JASK,  AT  S'JPERJOB. 


POSITIVE-  COUNTING  DOWN 
NEGATIVE-  DPIVE  SHOULD  BE  ENDED 
NEGATIVE-  INACTIVE 
(NEG  ZERO-  IMPOSSIBLE) 

REPEATED  (ABOVE)  FOR  R AXIS. 

DECREMENT  COCKED  JET  INHIBITION  COUNTERS 


COUNT  TIMERS  DOWN  TO  POS  ZERO. 


HALT  DPIVFS 


ASSEMBLE 

REVISION  001  GE  AGC  PrOGkAM  AP11.NJPE  BY  EYLES 

3:15  DEC.  2 , 

1970 

LMDAP 

.015  PAGE  1429 

P-AXIS 

PCS  AUTOPILOT 

USER'S 

FAGE 

NO.  9 

E6  S4 

0313 

0314 

0315 

0316 
031  7 
03  IP 

03 1 c 

0320 

0321 

032  2 

0323 

0324 

0325 
032  6 


REF  69  LAST  1418 

REF  8 LAST  1122 

REF  6 LAST  1428 

REF  3 LAST  1428 

: EF  2 LAST  I'  ll 

REF  3 LAST  1<*27 

REF  1 


REF  70  LAST  1429 
EF  9 LAST  1429 
REF  4 LAST  1428 
REF  4 LAST  1429 
REF  12  LAST  1303 
REF  4 LAST  1286 


16.2720 

16.2721 

16.2722 

16.2723 

16.2724 

14.2725 

16.2726 

16.2727 

16.2730 

1 6 .2731 

16.2732 
1 6 , 27  3 3 

5007 

5020 


03  012  1 

3 4735  1 
55*632  0 
1 2672  1 
55*503  1 

5*512  1 

4 502'  1 

0 COOfe  1 
03  012  1 
3 ''735  1 
55*634  0 

1 2675  0 


WAND  C HAN  1 2 

CAF  NEGMAX 

TS  06 1 MT IMF 

TCF  CHKRT I MR 

TURF  IFF r TS  NEGOR 

TS  p ACC  DOT 

CS  RGIMBITS 

EXTEND 

WAND  CHAN12 

CAF  NEGMAX 

TS  RGIMTIMF 

TCF  CHKRtIMR 

QGI MBITS  EQUALS  0CT1400 

RGIMBITS  EQUALS  PRIP6 


+ 3 


BITS  9 AND  10  (OF  CHANNEL  12). 
BITS  11  AND  12  (OF  CHANNEL  12). 


0327 

0328 
03  2 c 
033  C 


REF 

23 

LAST 

142  8 

16,2734 

4 

1273 

1 

SKIPPAXS  CS 

RCSFL AGS 

REF 

39 

LAST 

1426 

16,273 5 

7 

4740 

1 

MASK 

BIT12 

REF 

24 

LAST 

14  29 

16,2736 

27 

•273 

1 

ADS 

RCSFl AGS 

REF 

1 

16,2737 

1 

3624 

0 

TCF 

ORAXI S 

BIT  12  SET  TO  1. 

GO  TO  QRAXIS  OR  TO  GTS. 


A 033  1 
A 0 3 ? 2 
A 03?  3 


Y-Z  TRANSLATION 

INPUT:  BITS  1-12  OF  CH31  (FROM  TRANSLATION  CONSOLER) 

OUTPUT:  NEXTP 


A0334 
A C 3 3 r- 


NEXTP  IS  THE  CHANNEL  6 CODE  OF  JETS  FOR  THE  DESIRED  TRANSLATION. 
IF  THERE  Ar  E FAILURES  IN  THE  DESIRED  POLICY,  THEN 


A 03  7 6 
A 0337 


(1!  FOP  DIAGONAL  TRANS:  UNFAILED  PAIR 

ALARM  (IF  NO  PAIR) 


A 03  3 b 

A 033  ° 

034  0 

16 , 2740 

0341 

REF 

9 

LAST 

141  C 

16,276 l 

0342 

REF 

490 

LAST 

1428 

16, 2742 

0343 

REF 

1 

16 ,2743 

0344 

16,2744 

03  4 5 

REF 

) 

1 6 , 2745 

0346 

16,2746 

0347 

REF 

43 

LAST 

1 299 

16, 2747 

0348 

REF 

491 

LAST 

1429 

16,2750 

0349 

REF 

1 

16,275  1 

0350 

REF 

1 

16,2752 

0351 

REF 

30 

LAST 

1416 

16,2753 

035? 

REF 

1 

16 , 2754 

0353 

REF 

31 

LAST 

16  29 

16 , 2756 

0354 

REF 

1 

16,2756 

0355 

16,2757 

(2)  FOR  PRINCIPAL  TRANS: 


0 

CO  06 

1 

CHKVISFZ 

EX  TEND 

00 

031 

0 

PEAD 

CHAN31 

4 

0000 

0 

CS 

A 

7 

3613 

1 

MASK 

074000CT 

C 

C 006 

1 

EX  LEND 

1 

3014 

0 

8ZF 

TSNEXTP 

0 

C 006 

1 

EXTEND 

7 

4745 

1 

MP 

BIT? 

50 

000 

1 

INDEX 

A 

3 

3572 

1 

CA 

INDXYZ 

55 

' 744 

0 

TS 

ROT  INDEX 

3 

6 2 6 2 

0 

try  upp v 

CA 

SIX 

0 

35  51 

0 

TC 

SELECTYZ 

4 

6242 

1 

CS 

SIX 

6 

1743 

0 

AD 

NUMBERT 

0 

0006 

1 

EXTEND 

TRY  TO  TACK  WITH  DIAGONAL  PAIRS 
ALARM  (IE  DIAGONAL  PAIRS  ARE  FAILED) 


GAP.:  ASSEMBLE  REVISION  G01  GF  AGC  P|QGRAM  AP11ROPE  BY  EYLES 

L P-AXI S RC S AUT OP  It  OT 


3:15  DEC.  2,19  70  l ' DAP  .015 
USER'S  PAGE  NO.  10 


0356 

REF 

2 

LAST 

142  9 

16,2760 

1 

3013 

1 

0357 

REF 

26 

LAST 

1427 

16,2761 

4 

4756 

0 

0356 

REF 

2 

LAST 

1429 

16,2762 

6 

1744 

1 

035  ° 

16,2763 

0 

0006 

1 

0360 

'•LF 

1 

16,2764 

6 

3002 

0 

(Y*  A 1 

REF 

? 

1 AST 

142  9 

16,2765 

1 743 

1 

0362 

REF 

32 

LAST 

1412 

16,2766 

6 

f 751 

0 

0363 

16,2767 

0 

0006 

1 

0364 

REF 

3 

LAST 

1430 

1 6 ,277  0 

6 

3013 

0 

0365 

i<EF 

4-8 

LAST 

1 3 1 e 

16, 2771 

0 

5567 

0 

0366 

16,2772 

02001 

1 

0367 

REF 

pp 

LAST 

13  94. 

16,2773 

3 

4753 

1 

0368 

REF 

25 

LAST 

1429 

16,2774 

2 1 

• 273 

0 

0369 

16,2775 

0 

00  C 6 

1 

0370 

16,2776 

06 

001 

0 

0371 

’ E F 

26 

LAST 

14  30 

16,2777 

5 5 

'273 

1 

0372 

REF 

28  ^ 

LAST 

142' 

16,3000 

3 

4755 

1 

0373 

C-  p p 

4 

LAST 

I.430 

1 6,3001 

3014 

0 

0374- 

REF 

59 

LAST 

1430 

16,3002 

3 

47  53 

1 

0375 

REF 

27 

LAST 

1430 

16,3003 

23 

'273 

0 

0376 

16,3004 

0 

CCC6 

1 

0377 

16,3005 

06 

001 

0 

0378 

REF 

28 

LAST 

1430 

16,3006 

55 

'273 

1 

0379 

EFF 

60 

LAST 

14^0 

16,3007 

7 

475  3 

0 

03  « n 

REF 

33 

LAST 

1430 

16,3010 

6 

4751 

0 

03  8 1 

REF 

3 

LAST 

1430 

16,3011 

27 

’ 744 

0 

0382 

REF 

1 

16, 3012 

1 

2753 

0 

0393 

REF 

1 

16,3013 

3 

1 74  1 

1 

0384 

r*FF 

7 

LAST 

1413 

16,301 4 

55 

•472 

0 

a : 

BZF  TSNEXTP  -1 

CS  FIVE 

AD  ROT  INDEX 

EXTEND 

BZME  ALTER YZ 

CS  HUMBERT 

AD  FOUR 

EXTEND 

BZME  TSNEXTP  -1  / 

ABORT YZ  TC  ALARM  r 7 

OCT  C2001 

CA  Bin  INVENT  BfT  1 OF  PCSFLAGS. 

LXCH  RCSFLAGS 

EXTEND 

P.XQR  1 

TS  RCSFLAGS 

CA  ZERO 

TCF  TSNEXTP 

ALTERYZ  CA  BIT!  INVERT  BIT  1 OF  F.CSFL  AGS . 

LXCH  RCSFLAGS 

EXTEND 
RX  01  I 

TS  RCSFLAGS 

MASK  BIT1 

AD  FOUR 

ADS  ROTINDEX 

TCF  TRYUORV 

CA  POLYTEMP 

TSNEXTP  TS  NEXTP 

STATE  LOGIC 


A 0386 
A036  7 
A 038  r 

AO  3" ' 


0391 

0392 

0393 

0394. 

0395 

REF 

REF 

51 

10 

LAST 

LAST 

1411 

142  9 

1 6 . 3015 

16 . 3016 

1 A . T f)  1 7 

R EF 

1 

16,3020 
14 , 302  l 

0396 

REF 

41 

LAST 

1427 

16, 3022 

0397 

REF 

2 

LAST 

910 

16,3023 

0398 

REF 

492 

LAST 

1429 

1 6,3024 

039  5 

nF 

1 

16,3025 

0404 

PEP 

1 

16, 3026 

0401 

REF 

4 

LAST 

739 

16,3027 

0402 

REF 

4 2 

LAST 

1430 

16,3030 

CHECK  IN  ORDER: 

L POP  HAS  E 
PULSES 

DETENU  BIT  15  CH31) 
GO  TO  PURGENCY 


3 

4737 

0 

CA 

B IT  1 3 

0 

0006 

1 

EXTEND 

0 2 

031 

p 

RAND 

01  1 m v _>  L 

0 

0006 

1 

EXTEND 

1 

3027 

0 

BZF 

MANMODE 

3 

0111 

0 

CA 

DAPBOOLS 

7 

4743 

1 

MASK 

XOVINHI B 

10 

000 

0 

CCS 

A 

1 

3463 

1 

TCF 

PUP  GENCY 

1 

3071 

0 

TCF 

DETENTCK 

3 

4735 

1 

MANMODE  CA 

PULSES 

7 

on  1 

1 

MASK 

DAPBOOLS 

IF  ON 

GO  TO  PURGENCY 
MINIMUM  PULSE  LOGIC 
PATE  COMMAND 

CHECK  STICK  IF  IN  ATT.  HOLD. 


ATTITUDF  STEFr'  DURING  VISIBIL 


PULSES  IS  ONE  FOP  PULSE  MODE 


PAGE  14-30 
E6  S4 


ITY  PHASE 


GAP:  ASSEMBLE  REVISION  1 LF  AGO  PKDG-Ah  AP11-OPE  BY  EYLEa 


L P-AXIS  PCS  AUTOP1I.pt 

0^03  16,3031 

0404  REF  2 LAST  1430  16,3032 

04Cr  RFF  284  LAST  K30  16,3033 

0406  REF  4.  LAST  142  1 16,3034 

R O'  07  M-INI'TOW  I MPOLS  E MODE 


0408 

REF 

25 

LAST 

1421 

16,3035 

0409 

REF 

20 

LAST 

142  1 

16, 3036 

0*  1 f 

REF 

2 

LAST 

14  12 

16 ,3037 

04  1 1 

n p p 

1 

16 ,30' 0 

Err 

0412 

0413 

REF 

42 

LAST 

14  19 

16,3041 
1<  , 3042 

0614 

REF 

1 1 

LAST 

143  0 

16,3043 

0415 

16 , 3064 

04  1 f - 

REF 

1 

16,3044 

0 CO 06 

1 

EXTEND 

1 3071 

0 

BZF 

DETENTCK 

3 4755 

1 

CA 

ZERO 

55 '464 

1 

TS 

P ERROR 

3 0032  0 

5 5 ' 6 3 5 1 

CA 

TS 

C DUX 
CDUXD 

11 '460  0 

1 3054  i 

CCS 

TCF 

OLDPMIN 
CHECK  P 

3 4751  0 FIPEP  CA 

BIT3 

0 0006  1 

EXTEND 

02  03  1 1 

RAND 

CHAN 31 

0 0006  1 

EXTEND 

1 3064  1 

BZF 

+ XMIN 

0417 

r\/.  i 0 

REF 

56 

LAST 

1419 

16,3046 

1 A Cl  r\A  ~7 

Un  1 0 

I 0*7 UH  1 

041  c 

REF 

12 

LAST 

14-31 

16, 3050 

0420 

16 , 3051 

n/,  ? i 

DPP 

1 

1 A . 7 C)  f-:  D 

c.  1 

K c r 

I 

lOl  dKJZJ  C. 

042  2 

REF 

1 

16,3053 

042  3 

16,3054 

04  24 

RFF 

13 

L AST 

1 431 

16,3055 

0425 

REF 

493 

1 AST 

1430 

16,3056 

0426 

REF 

5 

LAST 

1331 

16,3057 

0427 

REF 

3 

LAST 

1431 

16,3060 

0428 

REF 

2 

LAST 

1431 

16,306  1 

042° 

REF 

9 

l AST 

141  2 

1 6,3042 

0430 

16, 3063 

0431 

REF 

10 

LAST 

1431 

16,3064 

0432 

REF 

4 

LAST 

141  1 

16, 3065 

043  3 

REF 

157 

LAST 

1422 

16, 3066 

0434 

REF 

4 

1 AST 

14  3 1 

1 6,3067 

0435 

REF 

1 

16 ,3070 

3 4750 
0 0006 

1 

1 

CA 

EXTEND 

BIT4 

02  03  1 

1 

RAND 

CHAN 31 

0 0006 

1 

EXTEND 

1 3062 

1 

BZF 

— XMI  it 

1 3442 

1 

TCF 

JETSOFF 

0 0006 
00  031 

4 0000 

1 

0 

0 

CHECKP 

EXTEND 
r EAD 

CS 

CHAN 31 

A 

7 5751 

0 

MASK 

OCT  14 

55 ' 460 

0 

TS 

OLDPMI N 

1 3442 

1 

TCF 

JETSOFF 

4 43  63 
l 3065 

1 

0 

— XMI  N 

CS 

TCF 

TEN 

+ 2 

3 4 3 63 

0 

+ XM1N 

CA 

TEN 

« ' 

1 

TS 

T JP 

3 47  53 

1 

CA 

ONE 

55 ' 460 

0 

TS 

OLDPMIN 

1 3350 

0 

TCF 

PJETSLEC 

R 043  6 MANUAL  RATE  COMMAND  MODE 

R 0437  = = ===  = = = = = = = ===  = = = = = ===  = 

R 043  8 BY  ROBERT  F.  STENGEL 

R 0434 

R 0440  THIS  N"DE  PROVIDES  PC  AH  MANUAL  CONTROL  THRU  2 CONTROL  l AMS: 

R 0442  THE  DIRECT  RATE  n D E AFFORDS  IMMEDIATE  CONTROL  WITHOUT  OVERSHOOT 

R 0444  RATE  CONTROL  AND  ATTITUDE  HOI  D . 

R 0445 


3:15  DEC 


2,  19  70 


LMDAP 


015 


PAGE  1431 


USER'S  PAGE  NO.  11  E6  S4 

BRANCH  FOR  RATE  COMMAND 


ANYTHING  l ESS  THAN 
IN  JET  SELECTION 


14MS.  CPF  RE C TED 
ROUTINE 


-6 


1)  DIRECT  FATE  AND  2)  PSEUDO-AUTO. 
THE  PSEUDO-AUTO  MODE  PROVIDES  PRECISE 


GAP  : 


ASSEMBLE  it  VI S I 001  OF  AGO.  PEOGF-.A'i  API  11,  CPE  BY  EYL.ES 


3:  15  DEC 


2,1070  LMDAP 


015  PAGE  1432 


L P-AXIS  kCS  AUTOP I LET  USER'S  PAGE  NO.  12  E6  S4 

R 044 6 IN  DIRECT  RATE,  JETS  ARE  FIRED  WHEN  STICK  POSITION  CHANGES  BY  A FIXED  MEMBER  OF  INCREMENTS  IN  ONE  DAP  CYCLE. 

THE  'BREAKOUT  LEVEL'  I f .6  0/S  F'J  1-  ILY  AND  .3  D/S  FOI  CS  1-DOCKED.  THIS  LAW  NULLS  THE  RATE  ERROR  TO  WITHIN 
R0450  THE  'TARGET  DEADBAND',  WHICH  EQUALS  THE  BREAKOUT  LEVEL. 

R04EL  IN  PEE  UDO- AUT  , BODY-FIXED  kATE  AND  ATTITUDE  ETORS  A*' E SUPPLIED  TO  TJETLAW,  WHICH  EXERCISES  CONTROL. 

R 0453  Cf  H POL  SWITEHES  FF  f O1  ECT  ATE  TO  PSEUDO-AUTf  IF  THE  TARGET  DB  IS  ACHIEVED  OP  IF  TIME  IN  (1)  EXCEEDS  * SEC. 

R 045 ' IF  THE  INITIAL  COMM® ND  DOES  NOT  FXCEED  THE  BREAKOUT  LEVEL,  CONTROL  GOES  TO  PSEUDO-AUTO  IMMEDIATELY. 

R 0457 

R045P  SINCE  P-AXIS  CONTROL  IS  SEPARATE  FROM  Q , F AXES  CONTROL,  IT  IS  POSSIBLE  TO  USE  (1)  IN  P-AXIS  AND  (2)  IN  Q , R AXES, 

R 0460  OR  VICE  VERSA.  THIS  ALLOWS  A DEGREE  OF  ATTITUDE  HOLD  IN  UNCONTROLLED  AXES.  DUE  TO  U,V  CONTROL,  HOWEVER,  Q AND 

R 0462  * AXES  ARE  COUPLED  AND  MIST  USE  THE  SAME  CONTROL  LAW. 

R 0463 

R046<  HAND  CONtROLLFR  COMMAND1-  APF:  SCAIED  BY  A L I N E A P / OU  AD  P AT ! C LAW.  FOR  THE  LM-ALONE,  MAXIMUM  COMMANDED  FATES  APE  20 

R04<  AND  4 D/S  IN  NORMAL  AND  FINE  SCALING;  HOWEVER,  STICK  SENSITIVITY  AT  ZERO  COUNTS  (OBTAINED  AT  A STICK  DEFLECTION 

R0468  OF  2 DEGREES  F " 1 1 ' TFF  CENTERED  POSITION)  IS  .5  UR  .1  D/S  PER  DFGREE . NORMAL  AMD  FINE  SCALINGS  FOR  THE  CSM— DOCKED 

R 047  0 CASE  IS  AUTOMATICALLY  SET-TO  1/10  THE  ABOVE  VALUES.  SCALING  IS  DETERMINED  IN  ROUTINE  3. 

A0^72  Zi  ' PEN8L  ENABLES  COUNTERS  SO  THEY  CAM  BE  READ  NEXT  TIME 

A 0473  JUSTOUT  FIRST  DETECTION  OF  OUT  OF  DETENT  (BY  OUPRCBIT) 

A 0^74 
A 0475 


0476 

16,3071 

0 

0006 

1 

DETENTCK 

EXTEND 

0477 

REF 

14 

LAST 

1431 

16, 3072 

00 

031 

0 

READ 

CHAN31 

0478 

REF 

1 

16 , 3073 

55 

•44  3 

1 

TS 

CH31TEMP 

04  7 9 

REF 

49 

LAST 

142  2 

1 6,3074 

7 

47  3 5 

0 

MASK 

BITl^ 

CHECK  OUT-OF-DETENT  BIT. 

0480 

16,3075 

0 

0006 

1 

EXTEND 

0481 

REF 

1 

16,3076 

1 

3223 

0 

BZ  F 

R HCMOVED 

BRANCH  IF  CUT  OF  DETFNT. 

043  2 

REF 

1 

16,3077 

3 

4 740 

0 

CAF 

OURPXBIT 

IN  DETENT.  CHECK  THE  RATE  COMMAND  BIT. 

0483 

REF 

43 

LAST 

1 43  0 

16,3100 

7 

0111 

1 

MASK 

DAPBQOL  S 

0484 

16,3101 

0 

0006 

1 

EXTEND 

0435 

REF 

2 

LAST 

1430 

16,3102 

1 

3463 

1 

BZF 

PURGENCY 

BRANCH  IE  MOT  IN  FATE  COMMAND  LAST  PASS. 

P 04  8 6 

0487 

REF 

33 

LAST 

139  3 

16,3103 

3 

4743 

0 

CA 

BIT9 

JUST  IN  DETENT?? 

048  8 

REF 

29 

L AST 

1430 

16,3  104 

7 

1273 

1 

MASK 

RCSFL  AGS 

0489 

16*31 05 

Q 

(-0  06 

1 

F y T P M n 

04  90 

REF 

1 

16,3106 

l 

312 

0 

BZF 

RUTH 

04?1 

REF 

5 2 

LAST 

1430 

16,3107 

3 

4737 

0 

CAF 

B IT  13 

CHECK  EOF  ATTITUDE  HOLD. 

0492 

16,3110 

0 

0006 

1 

EXTEND 

049  3 

REF 

15 

LAST 

1432 

16, 3111 

02 

031 

1 

RAND 

CHAN31 

0494 

16,3112 

0 

0006 

1 

EXTEND 

0495 

REF 

1 

16,3113 

1 

3220 

0 

BZF 

R ATE DAMP 

BRANCH  IF  IN  ATTITUDE  HOLD. 

0496 

REF 

1 

14, 3114 

4 

5014 

0 

C S 

3ITS9 ,1  1 

IN  AUTO. 

0497 

REF 

30 

LAST 

1432 

16,31 1 5 

7 

1273 

1 

MASK 

RCSFLAGS 

(X-AXIS  OVERRIDE) 

0498 

REF 

31 

LAST 

1432 

16,2116 

55 

'273 

1 

TS 

RCSFLAGS 

ZERO  OF-BIT  (BIT  11)  AND  JUST-IN  BIT  (9). 

0499 

REF 

2 

LAST 

1432 

16,3117 

1 

3220 

0 

TCE 

R ATEDAMP 

0500 

REF 

32 

LAST 

1432 

1 ' ,3120 

3 

1273 

0 

RUTH 

CA 

RCSFLAGS 

0501 

REF 

l 

16,3121 

7 

474  2 

0 

MASK 

PBIT 

IN  ATTITUDE  HOLD. 

0502 

14,3122 

0 

00  06 

1 

EXTEND 

0503 

16,3123 

1 

3125 

0 

BZF 

+ 2 

BRANCH  IF  P-PATE  DAMPING  IS  FINISHED. 

0504 

REF 

3 

LAST 

1432 

16,3124 

1 

3220 

0 

TCP 

R ATEDAMP 

GAP 


ASSEMBLE  ,.-E  VISION  001  OF  AGC  PROGRAM  AP11RUPE  BY  EYLES 


L P-AXfS  PCS  AUTOPILOT 


0505 

REF 

33 

LAST 

1432 

16,3125 

3 1273 

0 

050f 

REF 

1 

16,3126 

7 4741 

0 

0507 

l O , 0 J.  S I 

U L'U  I/O 

0508 

REF 

1 

16,3130 

1 313o 

1 

0509 

REF 

4 

LAST 

143  2 

16,3131 

1 3220 

0 

0511 

16,3132 

0CCC1 

0 

0512 

16,3133 

00050 

1 

UDi  5 

0514 

REF 

13 

LAST 

958 

5014 

0515 

16,3135 

00056 

1 

r UDl  < 

0517 

REF 

2 

LAST 

1432 

16,3136 

4 4740 

1 

051  8 

16,3137 

0 0004 

0 

05  L 9 

REF 

44 

LAST 

1432 

16,3140 

7 0111 

1 

0520 

REF 

45 

LAST 

143  3 

16,3141 

44  111 

1 

R 052  1 

READ 

CDUS  I NT 3 CDU 

DESIRED  CFGISTERS 

0522 

REF 

53 

LAST 

1432 

16,3142 

3 473  7 

0 

052  3 

16,3143 

0 0006 

1 

0524 

PEE 

IF 

LAST 

1432 

I 6 ,3  144 

02  031 

1 

0525 

16 , 3145 

0 GO  06 

1 

0526 

1 6 ,3146 

1 3152 

0 

0527 

REF 

26 

LAST 

1431 

16,3147 

3 0032 

0 

0528 

REF 

21 

LAST 

143  1 

16,3150 

55 • 635 

1 

0529 

16,3151 

0 3154 

1 

0530 

REF 

53 

1 AST 

1413 

14,3152 

0 4674 

0 

0531 

REF 

11 

LAST 

1411 

1 4 ,3153 

4015  3 

1 

0532 

1 A * "2  1 4 

r,  r>  n 3 

1 

0533 

REF 

3 

LAST 

1432 

16, 3155 

1 3463 

1 

0534 

REF 

5. 

LAST 

1431 

16,3156 

55*464 

1 

0535 

REF 

3 

LAST 

14  3 3 

16,3157 

3 474  0 

0 

0536 

REF 

46 

LAST 

1438 

16 ,3160 

2 6 1 1 1 

1 

0537 

REF  28=1 

L ACT 

1431 

16,3161 

3 4755 

1 

0538 

REF 

5 

LAST 

1424 

16,3142 

55 ’ 446 

1 

053  9 

REF 

6 

LAST 

1433 

16 ,3163 

55*447 

0 

0540 

PEF 

4 

LAST 

1424 

16, 3164 

55*450 

0 

05c  1 

FEF 

5 

LAST 

1433 

16,3165 

55*451 

1 

0542 

REF 

4 

LAST 

1425 

14,3166 

55*452 

1 

054? 

REF 

5 

LAST 

1433 

16,3167 

85*453 

0 

0544 

REF 

2 

LAST 

1424 

16, 3170 

55 '454 

I 

0545 

REF 

2 

LAST 

1424 

16,3171 

55*455 

0 

0546 

REF 

2 

LAST 

1425 

16,3172 

55*456 

0 

0547 

PEF 

1 

16,8173 

5 4 04  2 

0 

0548 

PEF 

1 

16,3174 

54  0 4 4 

0 

054° 

REF 

1 

16,3175 

3 3134 

1 

0550 

REE 

34 

LAST 

1433 

16,3176 

7 1273 

1 

0551 

REF 

35 

LAST 

1433 

16,3177 

55*273 

1 

CA  RCSFLAGS 

MASK  ORBIT 

EXTEND 

BZF  RATEDONE 

TCP  R A T E D A M P 

1/10SEC  OCT  1 

40CYC  OCT  50 

PORBIT  OCT  74777 

B I TSR, 11  EQUALS  E BANK5 
LINRATP  DEC  46 

RATEDONE  CS  OURRCBTT 

INHINT 

MASK  UAPBOGL  S 

TS  DAPBOOLS 


CAF  BIT13 

EXTEND 

P AND  CHAN31 

EXTEND 
BZF  +4 

CA  C DU  X 

TS  C DU  XD 

TC  +3 

TC  IBNKCALL 

FC ADR  ZATTEROR 

REL  I NT 

TC  F PURGENCY 


JUS TOUT 


TS 

P ERROR 

CA 

OURPCBIT 

ADS 

DAPBOOLS 

CA 

ZERO 

TS 

DXERROR 

TS 

DXERROR  +1 

TS 

DYERP  OR 

TS 

DYE  Pi-  OR  +1 

TS 

DZERROP 

TS 

DZEF  PC  -'  +1 

TS 

PLAST 

TS 

QL  AST 

TS 

R L AST 

TS 

Q-RHCCTR 

TS 

R-R.HCCTF 

CA 

PQRBTT 

MASK 

RCSFL AGS 

TS 

RCSFLAGS 

3:15  DEC.  2, 

1970 

LMDAP 

.015  PAGE  1433 

USER*  S 

PAGE 

NO.  13 

F6  S 4 

BRANCH  IF  Q , P R A” E DAMPING  IS  FINISHED. 


MANUAL  COMMAND  AND  DAMPING  COMPLETED  IN 
ALL  AXES. 


(X-AXIS  OVERRIDE) 


INITIALIZATION  - FIRST  MANUAL  PASS. 


BITS 


10  AND  11  OF  RCSFLAGS  ARE  0 


I 


gap:  ASSEMBLE  -EVISIJjN  001  OF  AGC  PROGRAM  API  1R0PE  BY  EYLES 


L P-AXIS  RCS  AUTOPILOT 


0552 

REF 

36 

LAST 

1433 

16,3200 

4 

1273 

1 

CS 

FCSFL AGS 

0553 

o E F 

34 

LAST 

1432 

16,3201 

7 

z 743 

1 

MASK 

BIT9 

0554 

REF 

37 

LAST 

1434 

16, 3202 

27 

•273 

1 

ADS 

RCSFLAGS 

0555 

REF 

1 

16,3203 

0 

3 2 05 

0 

TC 

Z EROENBL 

0556 

REF 

3 

LAST 

1431 

16,3204 

1 

3442 

1 

TCF 

JETSOFF 

055? 

REF 

2 

LAST 

1433 

16,3205 

22 

044 

1 

Z EROENBL 

LXCH 

R-RHCC.tr 

0558 

RFF 

2 

LAST 

1433 

16,3206 

3 

0042 

1 

CA 

Q-RHCCT  F 

0559 

REF 

1 

16, 32C7 

53 

•463 

0 

DXCH 

SAVEHAND 

0560 

REF 

286 

LAST 

1433 

16,3210 

3 

4755 

1 

CA 

ZERO 

056  1 

RFF 

1 

16,3211 

54 

043 

1 

TS 

P-RHCCTF 

056  2 

REF 

3 

LAST 

1434 

16, 3212 

5 4 

042 

0 

TS 

Q-RHCCTR 

0C63 

P E F 

3 

1 AST 

34 

16,3213 

54 

044 

0 

TS 

R-kHCGTF 

0564 

REF 

1 

16,3214 

3 

3617 

1 

CA 

BITS8 ,9 

0565 

16,3215 

0 

0006 

1 

EXTEND 

0566 

REF 

24 

LAST 

1404 

1 6,3216 

05 

013 

0 

WOR 

CHAN13 

0567 

F EF 

401 

LAST 

1423 

16,321? 

0 

0002 

0 

TC 

Q 

0568 

RFF 

287 

LAST 

1434 

16 , 3220 

3 

4755 

1 

RATE  DAMP 

CA 

ZERO 

056  Q 

P FF 

2 

1 AST 

143  / 

1 A.13? 1 

64 

043 

1 

T c 

C - - uffTF 

I f D C c 1 

1 

" noo  r> 

0570 

REF 

1 

16,3222 

1 

3227 

1 

TCF 

RATERRQF 

0571 

REF 

4 

LAST 

1,433 

16,3223 

3 

4 740 

0 

RHCMQVE D 

CA 

DURRCB IT 

0572 

P EF 

47 

LAS' 

1433 

16,3224 

7 

0111 

1 

MASK 

OAPBOOLS 

0573 

16 , 3225 

0 

CC  06 

1 

EXTEND 

057^~ 

RFF 

1 

16,3226 

1 

! 1 - 

1 

BZF 

JLSTOUT 

0575 

REF 

27 

LAST 

1433 

16,3227 

3 

CC32 

0 

KATEPROR 

CA 

CDUX 

0576 

REF 

22 

LAST 

1433 

16 , 3230 

55 

'635 

1 

TS 

CDUXD 

0577 

REF 

3 

LAST 

1434 

16,3231 

10 

043 

1 

CCS 

P-RHCCTF- 

0578 

16,3232 

1 

3235 

1 

TCF 

+ 3 

0579 

16,3233 

1 

32  35 

1 

TCF 

+ 2 

0580 

16, 3?34 

1 

3235 

1 

TC  C 

+.  1 

1 

1 L r 

0581 

16,3235 

6 

0000 

1 

DOUBLE 

0582 

16,3236 

6 

0000 

1 

DOUBLE 

0583 

REF 

1 

16,3237 

6 

3135 

0 

AD 

L INRAT P 

0584 

1 6 , 3240 

0 

0006 

1 

EX  TEND 

0585 

REF 

4 

LAM- 

1434 

16,3241 

7 

0043 

1 

MP 

P-RHCCTF 

0586 

REF 

273 

LAST 

1424 

16,3242 

3 

0001 

0 

CA 

L 

0587 

16,3243 

0 

C006 

1 

EXTEND 

0585 

REF 

6 

LAST 

294 

16,3244 

7 

1444 

0 

MP 

STIKSENS 

0589 

REF 

3 

LAST 

1433 

16,3245 

57 

' - 

0 

XCH 

PLAST 

0590 

16,3246 

4 

0000 

0 

COM 

0591 

REF 

4 

LAST 

IS  34 

16,3247 

6 

14  54 

0 

AD 

PLAST 

0592 

REF 

25 

LAST 

16?6 

16,3250 

55 

•737 

1 

TS 

OAPTEMP 1 

0593 

REF 

2 

LAST 

1434 

16,3251 

0 

3205 

0 

TC 

ZEROENBL 

0594 

REF 

5 

LAST 

1434 

16,3252 

4 

1454 

1 

CS 

PLAST 

0595 

REF 

14 

LAST 

1425 

16,3253 

6 

1421 

1 

AD 

OMEGAP 

0596 

REF 

1 

16,3254 

55 

*427 

0 

TS 

EOOTP 

0597 

REF 

26 

LAST 

1434 

16,3255 

11 

'737 

1 

CCS 

DAPTEMP1 

0598 

16,3256 

1 

3261 

0 

TCF 

+ 3 

0599 

16, 3257 

1 

3267 

0 

TCF 

+ 8 

0600 

16,3260 

1 

3261 

0 

TCF 

+ 1 

i" 


3:15  DEC.  2,1970  L MDAP  .015  0 AGE  1434 

USER ' S PAGE  NO.  14  E6  S4 

SET  'JUST-IN*  BIT  TO  1. 


COUNTERS  ZEROED  AND  ENABLED 


P CONTROL 


FINDCDUW  REQUIRES  THAT  CDUXD=CDUX  DURING 
X-AXIS  OVERRIDE 


LINEAR/QUADRATIC  CONTROLLER  SCALING 
(SEE  EXPLANATION  IN  Q.R-AXES  RCS 
AUTOPILOT) 


INTERVAL.  ZERO  AND  ENABLE  ACA  CHUNTERS. 


IF  P COMMAND  CHANGE  EXCEEDS  BREAKOUT 
LEVEL,  GO  TO  DIRECT  PATE  CONTROL.  IF  NOT 
CHECK  FOR  CIRECT  RATE  CONTROL  LAST  TIME. 


SAP : ASSEMBLE  RE  VISION  001  OF  AGC  PROGRAM  API  1 ROP E BY  EYLES 


L P-AXIS  RCS  A LIT  OP  T LOT 


0601 

0602 

REF 

5 

LAST 

294 

16. 3261 

16.3262 

1 /.  Q O A d 

6 1476 
0 0006 
A 22  A7 

0 

1 

1 

AD 

EXTEND 

QJ.MC 

060  3 

lOf  Jcc  5 

O DC  O I 

1 

OZ.  ' i 

0604 

REF 

l 

16, 3264 

3 3133 

0 

CA 

0605 

REF 

2 

LAST 

142? 

16,3265 

55 '445 

1 

TS 

06  o a 

DPP 

0 3300 

TC 

uouo 

D t I 

I 

JL  O f j A U O 

0607 

REF 

38 

LAST 

1434 

1 6 , 3267 

3 1273 

0 

CA 

0608 

REF 

2 

LAST 

1432 

16,3270 

7 4 742 

0 

MASK 

A4  no 

1 

p v T r N n 

UoU  V 

L C y DC  f I 

1 

0610 

16,3272 

1 3274 

1 

BZF 

061  1 

REF 

2 

LAST 

1435 

16,3273 

0 3300 

1 

TC 

DA  19 

0 P P 

*7 

1 A c:  T 

1 A . 7 77 L 

7 1 4 Aft 

o 

C A 

Uo  I C 

“tr 

t 

L A o i 

I M-  D D 

in  y D c.  1 • 

0613 

REF 

i 

1 6,3275 

55 ' 752 

1 

TS 

0614 

REF 

6 

LAST 

1433 

16,3276 

55*464 

1 

TS 

0615 

REF 

4 

LAST 

1433 

16,3277 

0 3467 

1 

TC 

0616 

REF 

28 

LAST 

I 434 

16,3300 

3 0032 

0 

PEGI 

CA 

0617 

REF 

23 

LAST 

L 

16,3301 

55*635 

1 

TS 

0618 

REF 

2 8 P 

LAST 

1436 

14,3302 

3 '•■755 

1 

CA 

0619 

REF 

8 

LAST 

1435 

16,3303 

55*446 

1 

TS 

0620 

RFF 

Q 

L AST 

1435 

16 , 3304 

55*447 

0 

TS 

0621 

REF 

7 

LAST 

1435 

16,3305 

55*464 

1 

TS 

0622 

REF 

2 

LAST 

1434 

16,3306 

1 1*427 

0 

CCS 

062  3 

16 , 33C  7 

0 331? 

1 

TC 

06  2 '■ 

14,3310 

0 3312 

1 

TC 

0625 

16,3311 

0 3312 

1 

TC 

0626 

REF 

1 

16,3312 

55*737 

1 

TS 

0627 

REF 

1 

16,3313 

6 1476 

0 

AO 

06  28 

16,3314 

0 C 006 

1 

EXTEND 

062  c 

REF 

1 

16,3315 

3 33  25 

3 

BZMF 

06  3 0 

REF 

7 

1 ACT 

1435 

1 a 21  1 I 

x 1 /AC 

n 

r a 

L /A  j I 

1 o f D D 1 o 

D 1 *•  "■ 

u 

U A 

0631 

16,3317 

0 0006 

1 

EXTEND 

0632 

REF 

2 

LAST 

1435 

16,3320 

6 3325 

0 

BZMF 

0633 

REF 

39 

LAST 

1435 

16,332 1 

4 1273 

l 

CS 

063* 

REF 

3 

LAST 

143  6 

16,3322 

7 4742 

0 

MASK 

0635 

REF 

40 

LAST 

1435 

16,3323 

27*273 

1 

ADS 

0636 

16,3324 

1 3330 

0 

TC  F 

0637 

REF 

4 

LAST 

1435 

16,3325 

4 4742 

0 

LAST 

CS 

0638 

REF 

41 

LAST 

] 3 

16,3326 

7 1273 

1 

MASK 

063  9 

EF 

42 

LAST 

1435 

16,3327 

55*273 

1 

TS 

064  0 

REF 

3 

LAST 

143  5 

16 , 3330 

4 1427 

0 

CS 

0641 

16,333] 

0 C C C 6 

1 

EXTEND 

0642 

REF 

1 

16,3332 

7 1551 

0 

MP 

0643 

REF 

494 

LAST 

1431 

16,3333 

20  001 

1 

DAS 

0644 

REF 

10 

LAST 

1427 

16,3334 

0 2 310 

1 

TC 

0645 

16,3335 

0 C006 

1 

EXTEND 

0646 

REF 

1 

16,3336 

7 7716 

1 

MP 

0647 

REF 

5 

LAST 

1431 

16,3337 

55*524 

1 

TS 

0648 

REF 

2 

LAST 

143  5 

16, 334  0 

3 1737 

0 

CA 

0649 

REF 

2 

LAST 

130 

16,3341 

6 1475 

0 

AD 

065  0 

16,3342 

0 0006 

1 

EXTEND 

-RATEDB 

+4 

40CYC 
TCP 
PEG  I 

RCSFLAGS 

PBIT 

+ 2 

PEG  I 

DXERROR 

E 

PERROR 
PURGENCY  +4 
CRUX 
CDUXD 
ZERO 
DXERROR 
DXERROR  +1 
PERROR 
EDOTP 
+ 3 
+ 2 
+ 1 

ABSEDOTP 

TARGETDB 

LAST 

TCP 

LAST 

RCSFLAGS 

PBIT 

RCSFLAGS 

+4 

PBIT 

RCSFLAGS 

RCSFLAGS 

EDOTP 

1 /ANETP 
A 

OVERSUB 

25/32 

TJP 

ABSEDOTP 

-2JETLIM 


3:15  DEC 


2,1970 


LMDAP 


015  PAGE  1435 


USEP'S  PAGE  NO.  15  E6  S4 


CHECK  FOR  DIRECT  RATE  COMMAND  LAST  TIME. 


TO  PURE  RATE  COMMAND 
PSEUDO-AUTO  CONTROL. 

X-ATTITUDE  EFROR  (SP) 

LOAD  P-AXIS  EF.ROP  FOR  MODE  1 F D A I DISPLAY 
DIRECT  PATE  CONTROL. 


ZERO  P-AXIS  EFROR  FOR  MODE  1 F DA  I DISPLAY 


IF  RATE  ERROR  IS  LESS  THAN  DEADBAND, 
FIRE,  AND  SWITCH  TO  PSEUDO-AUTO. 

IF  TIME  IN  RATE  COMMAND  EXCEEDS  4 SEC., 


BIT  10  IS  1. 

BIT  10  IS  C. 

1/2JTACC  SCALED  AT  2EXP(7)/PI 

A CONTAINS  TJET  SCALED  AT  2EXP ( 4 M 16/ 25 ) 
4. JET  TIMF 

COMPARING  DELTA  RATE  WITH  2 JET  LIMIT 


GAP:  ASSEMBLE  REVISION  001  OF  A C-C  PROGRAM  AP11K0PE  BY  EYIFS 

L p— AXIS  CS  AUTOPILOT 


3:15  DEC.  2,1970  LMDAP  .015  PAGE  1436 
USER'S  PAGE  NO.  16  E6  S4 


0651 

16,3343 

065  2 
0653 

REF 

32 

LAST 

1429 

16. 3344 

16.3345 

0654 

REF 

6 

LAST 

1435 

16,3346 

065c 

A 065  6 

REF 

7 

LAST 

1436 

14,334  7 

3346 

6242 

0 

0 

BZMF 

CA 

+ 3 

SIX 

3355 

0 

TCF 

+ 80 

1524 

0 

CA 

TJP 

, 524 

1 

ADS 

TJP 

GOES  TO  PJETSLEC  FOR  TWO  JETS 


A 06  5 7 


P-J  ET-S ELECT  ION-ROUTINE  (ROTATION ) 


A 065  p 
A 065' 


INPUT:  NUM BERT 

TJP 


4,5,6  FOP  WHICH  PAIR  OF  A JETS 
+ FOR  +P  ROTATION 


A 066  0 
A 066  1 
A 06  42 


OUTPUT : 

CHANNEL  6 

PJUMPADR 

FOR  P- 

( JTLST  CALL ! 

( SMALL 

A 066  3 
A 06  64 
A 0665 

A 

A 066  7 
A 066  8 
A 0 6 6 - 
A 06  70 
A 0671 


0672 

REF 

1 

16,3350 

3 

4747 

1 

0673 

REF 

48 

LAST 

14  34 

16,335 1 

7 

0111 

1 

0674 

RFF 

495 

LAST 

1435 

16,3352 

1C 

000 

0 

0675 

REF 

158 

LAST 

1 A ^ ] 

16 , 3353 

3 

47  53 

1 

0676 

REF 

34 

LAST 

1430 

16,3354 

6 

4 751 

0 

0677 

REF 

3 

LAST 

1430 

16,3355 

55 

■743 

1 

0673 

REF 

159 

LAST 

1436 

16,3356 

3 

4753 

1 

0679 

REF 

274 

LAST 

1434 

1 4,335  7 

54 

0C1 

1 

0630 

RET 

8 

LAST 

1436 

16,3360 

11 

' 52  4 

1 

0681 

) 6 , 336  1 

1 

3 3 66 

o 

L 

0682 

REF 

4 

LAST 

1434 

16  , 3362 

1 

3442 

1 

0683 

16 , 3363 

1 

3365 

c 

0684 

REF 

5 

LAST 

1436 

16,3364 

1 

3442 

1 

068  r 

16 , 3365 

22 

007 

0 

0686 

REF 

160 

LAST 

1436 

16,3366 

6 

4753 

1 

0667 

REF 

l 

16,3367 

55 

' 737 

1 

0688 

REF 

4 

LAST 

1430 

16,3370 

23 

'7  44 

1 

0689 

REF 

1 

16,3371 

0 

3531 

0 

0690 

REF 

33 

LAST 

1436 

16,3372 

4 

6242 

1 

0691 

REF 

4 

LAST 

1436 

16,3373 

6 

1743 

0 

0692 

16,3374 

0 

0006 

1 

0693 

16,3375 

1 

3377 

0 

0694 

REF 

94 

LAST 

1419 

16, 3376 

4 

4752 

1 

ORDER  OF  PO!  ICIES  TRIED  IN  CASE  CF  FAILURE. 
+ P -P 

7.15  8,16 

6.12  3,11 

4,7  8,11 

7.12  11,16 

12.15  3,16 

4.15  3,8 

ALARM  ALARM 

CA  AORBSYST 

MASK  PAPBOOLS 

CCS  A 

CA  ONE 

AD  FOUR 

TS  NUM8ERT 

PJETSLEC  CA  ONE 

TS  L 

CCS  TJP 

TCF  +5 

TCF  JETSOFF 

TCF  +2 

TCF  JETSOFF 

ZL 

AD  ONE 

TS  ABSTJ 

LXCH  ROTINDEX 
TC  SELECTP 

CS  SIX 

AO  NUMBER! 

EXTEND 
BZF  +2 

CS  TWO 


GAP:  ASSEMBLE  REVISION  001  OF  AGC  PROGRAM.  AP11RGPE  BY  EYLES 

L P-AXIS  RCS  AUTOPILOT 


0695 

0696 

0697 

0698 

0699 

0700 

0701 

0702 


REF 

REF 

REF 

REF 

REF 

REF 

REF 


35 

2 

2 

2 

2 

1 


LAST  14-36 
LAST  133 
LAST  1430 
LAST  1404 
LAST  1436 


2 LAST  1429 


16,3377 

16. 3400 

16.3401 

16.3402 

16.3403 

16 . 3404 

16.3405 

16.3406 


6 4751  0 
55 ' 521  1 

3 1741  1 
0 6754  1 

4 1737  1 
6 3612  1 
0 CO 06  1 
6 3624  1 


AD 

TS 

CA 

TC 

CS 

AD 

EXTEND 

BZMF 


0703 

0704 
070  c 


REF 


16,3407  6 3572  1 

16.3410  0 0006  1 

16.3411  6 3416  1 


AD 

EXTEND 

BZMF 


0706 

0707 
070? 

0709 

0710 

071 1 

0712 

0713 

0714 

0715 

0716 

0717 

0718 
071  ° 


REF 
kEF 
D E F 
PEF 

REF 


REF 


LAST 

LAST 


1437 

1436 


LAST  1636 


LAST  1437 


LAST  1612 
REF  54  LAST  1433 
REF  1 

REF  40  LAST  1429 
REF  43  LAST  1435 
REF  44  LAST  1437 
P EF  1 


16.3412  27 ' 7 3 7 1 

16.3413  51' 744  1 

16.3414  3 3621  1 

16,3416  55 '526  1 


16.3416 

16.3417 

16.3420 

16.3421 
16, 3622 

16.3423 

16.3424 

16.3425 

16 . 3426 

16.3427 


3 1737  0 
22  007  0 
0 CO 04  0 
5 3 • 6 7 1 0 
0 4674  0 

37  IK:  i 

4 6740  1 
7 1273  1 
55 ' 273  1 
0 3431  1 


0720 

REF 

3 

LAST 

1637 

16,3430 

1 

3624 

0721 

REF 

49 

last 

143  6 

16,3431 

3 

01  1 1 

0722 

REF 

275 

LAST 

1436 

16,3432 

54  001 

0723 

REF 

1 A 5 T 

1 / 7A 

1 A - 'XL.'*.  X 

a 

/ 7/7 

c 

LAO  I 

1 • J ‘ 1 

1 0 j _>  H 0 j 

A / <+  / 

0724 

16,3434 

0 

0006 

07  2 c 

PEF 

19 

1 AST 

1414 

16, 3435 

06 

001 

0726 

REF 

50 

LAST 

1437 

16 ,3436 

54 

1 1 1 

0727 

16,3437 

0 

0003 

C72P 

PEF 

402 

LAST 

1434 

16 , 3440 

0 

0002 

0729 

RFF 

2 

LAST 

1437 

16,3441 

0 

3431 

0730 

PEF 

3 

LAST 

1437 

16, 3442 

0 

5753 

0731 

REF 

28° 

LAST 

1435 

16,3463 

3 

4755 

0732 

REF 

10 

LAST 

1437 

16,3444 

55 

' 524 

0733 

KEF 

4 

LAST 

1437 

16,3445 

1 

3624 

R 0734 

(NOTE  — 

Ml  3 = 

1 IDENTICALLY 

1 MPL I ES 

0735 

PEF 

13 

last 

1421 

16,3446 

3 

0033 

0736 

16,3467 

0 

0006 

0737 

REF 

7 

LAST 

1421 

16,3450 

21 

' 636 

QKAL’ 


JETSPFF 


ADS 

INDEX 

CA 

TS 

CA 

ZL 

INHINT 

DXCH 

TC 

CADR 

CS 

MASK 
TS 
TC 
TC  F 


TS 

CA 

EXTEND 

RXHR 

T.S 

RE  LI  NT 
TC 

TC 

TC 
CA 
TS 
TC  F 


CAL  CP  ERR  CA 

EXTEND 

MSU 


FCUR 

NO. P JETS 
FOLY TEMP 
WRITEP 
ABSTJ 

+ 1 50MST  6 

QRAX  IS 
— 136  MS  T 6 
+ 5 

ABSTJ 
ROTINDEX 
MI  NT  I me s 
TJP 

ABSTJ 


T 6 FUST  HA 
IBNKCALL 
JTLST 
B IT  1 2 
FCSFLAGS 
RCSFL AGS 
ALTSYST 
ORAXI S 

DAPBOOLS 

L 

AORBSYST 

LCHAN 

DAPBOOLS 

0 

ALTSYST 

WRITEP  -1 

ZERO 

TJP 

QRAX I S 

. ) 

CDUY 

CDUYD 


3:15  DEC.  2, 

1970 

L M DA  P 

.015  PAGE  1437 

USER'S 

PAGE 

NO.  17 

E6  S 4 

GO  TO  QRAXIS  OR  TO  GTS. 


BIT  12  SET  TO  0. 


ALTERNATE  P-AXIS  JETS 


P-EPROF  CALCUL  ATIQN. 


CDU  VALUE 


ANGLE  DESIRED  (Y-AXIS) 


GAP : 

ASSEMBLE  REVISION  001 

OF  AGC  PROGRAM  AP11R0PE  BY  EYLES 

L 

P-AXIS  PCS  AUTOPILOT 

0738 

16,3451 

0 0006 

1 

EXTEND 

07T< 

REF 

o 

LAST 

1423 

16,3452 

7 1414 

0 

MP 

Mil 

0740 

REF 

2 

LAST 

143  5 

16,3453 

57*752 

0 

XCH 

E 

0741 

REF 

2 = 

LAST 

1435 

16 , 3454 

3 00  32 

0 

CA 

CDUX 

0742 

16,3455 

0 0006 

1 

EXTEND 

0743 

REF 

24 

LAST 

1435 

16,3456 

21 *635 

1 

MS'J 

CDUxn 

R 0744 

EXTEND 

R0745 

MP 

M 1 3 

0746 

REF 

5 

LAST 

1408 

16,3457 

6 12  77 

1 

AD 

DELPERQR 

0747 

REF 

3 

LAST 

1 438 

16,3460 

27 '752 

1 

ADS 

E 

0748 

REF 

8 

LAST 

143  5 

16,3461 

57*464 

0 

XCH 

P ERROR 

0749 

REF 

403 

LAST 

1^37 

16,3462 

0 000  2 

0 

TC 

0 

R 0750 

P-AX 

IS  UP 

GENCY 

' FUNCTICN  CALCULATION. 

0751 

REF 

2 

LAST 

1413 

16,346  3 

0 344  6 

1 

PUNGENCY  TC 

CALC  PF-R  R 

0752 

REF 

12 

LAST 

1.408 

1 6 , 3464 

4 1643 

0 

CS 

qmegapd 

075T 

REF 

1 5 

LAST 

1434 

16 , 3465 

6 1421 

AD 

0 ME  13  AP 

0754 

REF 

4 

LAST 

1435 

16,3466 

55*427 

0 

TS 

EDQTP 

0755 

REF 

161 

LAST 

1436 

16,3467 

4 

4753 

0 

CS 

ONE 

0756 

REF 

2 

LAST 

132 

16, 3470 

5 5 

' 505 

1 

TS 

A X I SC  TP 

0757 

REF 

51 

LAST 

1437 

16,3471 

3 

01 1 1 

0 

CA 

DAPBOPLS 

0758 

REF 

8 

LAST 

1425 

16 , 3472 

7 

4737 

1 

MASK 

csmdockd 

075  9 

16,3473 

0 

0006 

1 

EXTEND 

0760 

REF 

1 

16,3474 

1 

3505 

0 

BZF 

HEADTJET 

076  1 

L6, 3475 

0 

0004 

0 

INHINT 

0762 

REF 

55 

LAST 

1437 

16,3476 

0 

1 6 7 4 

0 

TC 

IBNKCALt 

0763 

REF 

1 

16 , 3477 

L.  ^ 7 9 7 

C ADR 

SPSPCS 

0764 

REF 

1 1 

LAST 

1437 

16,3500 

3 

1524 

0 

CA 

TJP 

0765 

16,3501 

o 

0006 

EXTEND 

0766 

REE 

1 

16,3502 

1 

344  1 

1 

BZF 

DK  ALT 

0767 

15 , 350  3 

0 

0003 

1 

RFL  INT 

0768 

R FF 

2 

LAST 

1431 

16,3504 

33  50 

0 

TC  F 

P J E~  S L EC 

0769 

REF 

290 

LAST 

1437 

16,3505 

3 

4755 

1 

HEADTJET  CA 

ZERO 

0770 

REF 

1 

16,3506 

55 

' 500 

1 

TS 

SENSETYP 

0771 

16 , 35C.7 

0 

C:0Q4 

0 

INHINT 

0772 

REF 

56 

l AST 

1438 

16,3510 

0 

^674 

0 

TC 

IBNKCAL  L 

0773 

REF 

1 

16,3511 

37252 

0 

C ADR 

TJETLAW 

0774 

16,3512 

0 

0003 

1 

R E L TNT 

0775 

REF 

1 

16,3513 

4 

1741 

0 

CS 

F IREFCT 

0776 

REF 

1 

16,3514 

6 

3530 

1 

AD 

— FQURDEG 

0777 

16, 35  15 

0 

00  06 

1 

EXTEND 

0778 

REF 

3 

LAST 

1 4-38 

16 , 3516 

6 

3350 

1 

BZMF 

PJETSLTC 

077R 

REF 

12 

LAST 

1438 

16,3517 

11 

' 524 

1 

CCS 

TJP 

0780 

16, 3520 

1 

3522 

0 

TC  F 

+ 2 

0781 

REF 

6 

LAST 

1436 

16 , 352  1 

1 

36  42 

1 

TCP 

J ETSQFF 

4 


3: 15  DEC.  2,1970  LMDAP 
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USER'S  CAGE  NC.  18 


E 6 S4 


( C DUY-CDU YD )M1 1 SCALED  AT  PI  RADIANS 
SAVE  FIPST  TERM  (OF  TWO) 

THIRD  COMPONENT 

C DU  VALUE  - ANGLE  DESIRED  (X-AXIS) 


K ALCMANU  INERFACE  ERROR 
SAVE  SUM  OF  TERMS.  COULD  BE  OVERFLOW. 
SAVE  P-ERROP  FOP  EIGHT-BALL  DISPLAY. 
RETURN  TO  CALLER 


CALCULATE  P-AXIS  ERRORS. 

THIS  CODING  IS  COMMON  TO  BOTH  L M DAP  AND 
SPS-BACKUP  MODE. 

EDQTp  = OMEGAP  - OMEGADD  AT  P I /4  P.AD/SEC 


IF  CS M DOCK D 


GO  TO  DOCKED  RCS  LOGIC 


IF  TJP  = ZERr , CHANGE  AORBSYST. 

SELECT  AORBSYST  AND  USE  TWO  JETS 


-6 


GAP  : 


ASSEMBLE  REVISION  001  OF  AGC  PROGRAM  API 1R0PE  BY  EYLES 


0782 

0788 

0786 

0785 

0786 

0787 
0738 


P-AXIS  PCS  AUTOPILOT 


REF  1 

REF  4 LAST  1438 
REF  34  LAST  1436 
REF  5 LAST  1439 


16.3522  6 3527  1 

16.3523  0 0006  1 

16.3524  6 3350  1 

16.3525  3 6242  0 

16.3526  1 3355  0 

16. 3527  77377  1 

16,3530  75117  1 


AD 

EXTEND 

BZMF 

CA 

TCF 

-160MST6  DEC 
-FOURDEG  DEC 


-160MST6 

PJETSLEC 

SIX 

PJETSL EC 
-256 
-.088 


3:  15  DEC 


2,1970 


LMOAP 


015 


PAGE  1439 


USER ' S PAGE  NO.  19 


E 6 S4 


6 


l 


GAP: 

ASSEMBLE  REVISION  001 

OF  AGC  PROGRAM  AP 

11R0PE  BY  EYLES 

3: 

15  DEC.  2,1570 

LMDAP  . .015  PAGE  1440 

L 

P -AX  1 S PCS  AUTOPILOT 

USER'S  PAGE 

NO.  20  E6  S 4 

P0789 

JE 

T POLICY  CONSTRUCTION  SUBROUTINE 

A 07  9 C 

INPUT : RUTINDEX,  NUMBERT 

A 0791 

OUTPUT:  pOLYTEMP  (JET  POLICY) 

A 079  2 

THIS  SUBROUTINE 

SELECT  A SUBSET 

OF  THE  DESIRED  JETS  WHICH  HAS  NO  FAILURE 

0798 

REF 

35 

L AST 

1439 

16, 3531 

3 6242 

0 

SELECTP  CA 

SIX 

07  9 A 

REF 

1 

16,3532 

55*742 

0 

TS 

TEMPNUM 

079  9 

REF 

5 

LAST 

1436 

16,3533 

51 « 743 

0 

INDEX 

NUMBERT 

0796 

REF 

1 

16,3534 

3 3563 

1 

CA 

TYPEP 

0797 

REF 

6 

LAST 

1437 

16,3535 

51 ' 744 

1 

INDEX 

RCTINDEX 

0798 

REF 

l 

16,3536 

7 3554 

1 

MASK 

JETSALL 

0799 

REF 

3 

LAST 

1437 

16,3537 

55 ' 741 

0 

TS 

PCLYTEMP 

0800 

REF 

fa 

LAST 

2 1 2 

16,3540 

7 1263 

0 

MASK 

CH6MASK 

0801 

REF 

496 

LAST 

1436 

16,354 1 

10  000 

0 

CCS 

A 

0802 

16,3542 

1 3544 

0 

TCF 

+ 2 

080  3 

° FF 

404 

LAST 

1438 

16, 3543 

0 0002 

0 

TC 

Q 

0804 

REF 

2 

LAST 

1440 

16,3544 

11 *742 

0 

CCS 

TEMPNUM 

0805 

1 6, 3545 

1 355  1 

1 

TCF 

+ 4 rj"' 

0806 

REF 

49 

LAST 

1430 

16,3546 

0 5567 

0 

TC 

ALARM  xO<!~ 

0807 

16,3547 

02003 

0 

nCT 

02003 

080  8 

REF 

7 

LAST 

I 43  8 

16 , 355C 

1 3442 

1 

TCF 

JETSOFF 

^^t***TCF  At.  ARM  JET  #*****#****♦**!(!♦*##** 

080° 

REF 

6 

LAST 

1440 

16,355  1 

55*743 

1 

SELFCTYZ  TS 

NUMBERT 

0810 

REF 

2 

LAST 

1436 

16,3552 

1 3532 

1 

TCF 

SELECTP  +1 

0811 

REF 

1 

16,3553 

1 2773 

1 

-1  TCF 

ABORTYZ  +2 

0812 

16,3554 

00252 

1 

JETSALL  OCT 

00252 

0813 

16,3555 

00125 

1 

OCT 

00125 

+ P 

0814 

16, 3556 

00140 

1 

OCT 

00140 

-Y 

0815 

16,3557 

00006 

l 

nr  T 

nonn  a 

_ 7 

vuUUO 

L 

0816 

1 6, 3560 

00220 

1 

OCT 

00220 

+ Y 

0817 

16,3561 

00011 

1 

OCT 

00011 

+ Z 

081? 

1 6 , 3562 

00151 

OCT 

n n l 9 1 

+ V/ 

* V 

0819 

16, 3563 

00146 

1 

TYPER  OCT 

00146 

-u 

08  2 0 

16,3564 

00226 

1 

OCT 

00226 

-V 

0821 

16, 3565 

002  31 

nr  T 

nn?3i 

4-  1 1 

1 

C.  D l 

-r 

082? 

16,3566 

00151 

1 

OCT 

00151 

+v 

0823 

16 , 3567 

00132 

1 

OCT 

00132 

1-3 

082  4 

16,3570 

00245 

1 

OCT 

00245 

2-4 

082  5 

16,3571 

00377 

1 

OCT 

00377 

ALL 

0826 

REF 

2 

LAST 

143  7 

16,3572 

INDXYZ 

— 136MST6 

0827 

16,3572 

77445 

1 

-136MST6  DEC 

-218 

0828 

16,3573 

00004 

0 

DEC 

4 

0829 

16,3574 

00002 

0 

DEC 

2 

0830 

16,3575 

07776 

0 

OCT 

07776 

0831 

16,3576 

0 000  5 

1 

DEC 

5 

0832 

16,3577 

000  1 1 

1 

DEC 

9 

0833 

16,3600 

000  L 2 

1 

DEC 

1 0 

0834 

16,3601 

07776 

0 

OCT 

07776 

0835 

16,3602 

0C003 

1 

DEC 

3 

» 


GAP: 


0836 

0837 

0838 
083  9 

0840 

0841 

0842 

0843 

0844 
R 0846 

0846 

0847 

0848 

0849 
0860 
0851 
085? 

0853 

0854 

A0855 

0856 

0857 

0858 

0859 

0860 
0861 
0862 

0863 

0864 

0865 

0866 

0867 

0868 
0868 


ASSEMBLE 


-E VISION  001  OF  AGC  PROGRAM  API 1R0PE  BY  EYLES 


3 


P-AXIS  RCS  AUTOPILOT 


16.3603 

16.3604 

16.3605 

16.3606 

16.3607 

16. 361 0 

16 . 3611 

16.3612 

16.3613 

T-JET  LAW  FIXED  CONSTANTS 


00010 
0C007 
07  776 
07776 

0 

0 

0 

0 

DEC 

DEC 

OCT 

OCT 

8 

7 

07776 

07776 

07776 

0 

OCT 

07776 

07776 

0 

OCT 

07776 

07776 

0 

OCT 

07776 

00360 

1 

+ 15!  ' STL 

DEC 

240 

07400 

1 

074000CT 

OCT 

07400 

16.3614 

16.3615 

16.3616 

REF  4 LAST  965  7716 

16.3617 

16.3620 

16.3621 

16.3622 

REF  2 LAST  1428  16,3623 


00266 

0 

NORMS CL 

OCT 

266 

74631 

0 

- 1 oc 

DEC 

-.1 

06315 

0 

200MS 

DEC 

.2 

25/32 

= 

PRI031 

0060C 

1 

BI TS8  ,° 

OCTAL 

00600 

0063? 

0 

1/40 

DL-C 

.02500 

7 7 7 fe  l 

1 

M T KiT  TMPC 

ncr 

_T7 

1 l f I 

1 

n i i\j  i i lvi  c o 

UlL 

d d 

00026 

0 

DEC 

22 

02734 

0 

PSK I PADR 

GENADR 

SKIPPAXS 

REF  7 
REF  7 
REF  11 
REF  2 
RET  7 
REF  12 
REF  12 
PEF  3 

REF  1 


LAST  1408 
LAST  14  27 
LAST  1435 
LAST  130 
LAST  1408 
LAST  1426 
LAST  1441 
I AST  130 


16 . 3624 

16.3625 

16.3626 

16 . 3627 

16.3630 

16.3631 

16.3632 

16.3633 

16. 3634 

16.3635 
1 6 , 36  3 6 


4 1645  0 
6 1423  0 
0 2310  1 
55*437  1 
4 1644  1 
6 1422  1 
0 2310  1 
55*436  0 
0 0006  1 
3 3640  0 
52  006  0 


GOES  TP  Q iR— AXE 
OF  AXIS  CS 
AO 
TC 
TS 
CS 
AD 
TC 
TS 

EXTEND 
DC  A 
DTCB 


RCS  AUT OP  I LOT 
0 RECARO 

omega! 

OVERSUB 
EDO  TP. 

OMEGAQD 

CMEGAQ 

OVERSUB 

EDOTQ 

OERRC ALL 


REF  22  LAST  1427 
REF  1 
REF  1 


1537 

EBANK= 

AOSQ 

36  3 7 

02072 

0 

QFPLCALL  2CADP 

CALLQEPF 

3640 

36106 

0 

15  DEC.  2,1970  LMDAP 


.015  PAGE  1441 


USER'S  PAGE  NO.  21 


E6  SA 


THESE  INDEXES  OF  MASK  JETSALL  WILL 
CHANGE  THE  INSTRUCTION  AT  SELECTP  +4 
TO  BE  TC  JETSALL  -1 
ONLY  USED  FOP  TRANSLATION  FAILURE 


< DEC 


78125) 


GAP:  ASSEMBLE  ^VISION  001  OF  AGO  PROGRAM  AP11R0PE  BY  EYLES 


3:15  DEC 


2,1970  LMDAP 


015 


PAGE  1442 


« 


L 

Q * R- 

AXES 

RCS  AUTOPI 

LOT 

USER'S  PAGE  NO.  1 EO  S4 

0001 

17,2072 

BANK  17 

0002 

REF 

3 

LAST 

1405 

17,2000 

SETLOC  DAPS2 

0003 

17,2072 

BANK 

0004 

REF 

25 

LAST 

1438 

E 6 , 1635 

E 3 A N.  K = CDUXD 

0005 

PEF 

1 

COUNT  * $ $/ D APQR 

RC006 

0006  1 

REF 

54 

L AST 

143  3 

17,2072 

3 4737 

0 

CALLQEP.F 

CA  8IT13 

CALCULATE  C,F  ERPOPS  UNLESS  THESE  AXES 

00062 

17,2073 

0 0006 

1 

EXTEND 

ARE  IN  MANUAL  RATE  COMMAND. 

0006  3 

PEF 

17 

LAST 

1433 

17,2074 

02  031 

1 

RAND  CHAN31 

00064 

REF 

497 

LAST 

1440 

17, 2075 

10  000 

0 

CCS  A 

00065 

17,2076 

1 2103 

0 

TCF  +5 

IN  AUTO  COMPUTE  Q,R  ERRORS 

0007 

PEF 

52 

LAST 

1438 

17,2077 

4 01  11 

1 

CS  DAPBOOLS 

IN  MANUAL  RATE  COMMAND? 

0007  1 

REF 

5 

LAST 

1434 

17,2100 

7 4740 

1 

MASK  OURRCBIT 

0007? 

17,2101 

0 0006 

1 

EXTEND 

00073 

REF 

1 

17, 2102 

1 2104 

1 

BZF  0 , ROR  GT  S 

IF  SO  BYPASS  CALCULATION  OF  ERROFS. 

00074 

REF 

2 

LAST 

1413 

17,2103 

0 2626 

1 

TC  QERRC.ALC 

R 0008 

0009 

REF 

2 

LAST 

1412 

17,2104 

1 1 ' 6 3 1 

0 

Q , FOR  GTS 

CCS  COTPOLEF 

CHOOSE  CONTROL  SYSTEM  FOR  THIS  DAP  PASS: 

0010 

REF 

1 

17,2105 

1 2607 

o 

TCF  GOTO GTS 

GTS  (ALTERNATES  WITH  RCS  WHEN  DOCKED) 

0011 

RFF 

1 

17,2106 

1 2574 

1 

TCF  TRYGTS 

GTS  IF  ALLOWED,  OTHERWISE  PCS 

0012 

REF 

291 

LAST 

1438 

17,2107 

3 47  5 5 

1 

RCS 

CAF  Z FRO 

RCS  (TRYGTS  MAY  BRANCH  TO  HERE) 

001  3 

REF 

3 

LAST 

1442 

17,2110 

55' 631 

0 

TS  COTROLER 

0014 

PEF 

4 

LAST 

146  1 

17,2111 

53*437 

1 

DXCH  EDOTO 

0015 

REF 

1 

17,2112 

0 3146 

1 

TC  R CT-TOUV 

0016 

REF 

1 1 

LAST 

1424 

17,2113 

5 3 ' 4 27 

0 

DXCH  ONEGAU 

A 001 7 

X - TRANSLATION: 

A 00 1 8 

INPUT: 

BITS  7,8  OF  CH31  ( 

TRANSLATION  CONTROLLER) 

A 001 9 

ULLAGEP 

A 002  0 

APSFLAG,  DRIFTBIT 

A0021 

ACC40P2X , AORBTRAN 

A 002  2 

OUTPUT : 

NEXTU,  NEXTV 

CODES  OF  TRANSLATION  FOR  AFTER  ROTATION 

A0023 

SENSETYP 

TELL  ROTATION  DIRECTION  AND  DESIRE 

R 0024 

X— TF A N S 

POL ICI 

ES  ARE  EITHER  4 

JETS  OR 

A DIAGONAL 

PAIR.  IN  2-JET  TRANSLATION  THE  SYSTEM  IS  SPECIFIED.  A FAILURE 

R 0026 

WILL  OVERRIDE 

THIS 

SPECIFIC  ATI 

ON.  AN 

ALARM  RESULTS  WHEN  NO  POLICY 

IS  AVAILABLE  BECAUSE  OF  FAILURES. 

0028 

REF 

44 

LAST 

1429 

17,2114 

3 4745 

0 

SFNSEGET 

CA  BIT? 

INPUT  BITS  OVERRIDE  THE  INTERNAL  BITS 

002° 

17,2115 

0 0(  06 

1 

EXTEND 

SENSETYP  W I LI  NOT  OPPOSE  ANYTRANS 

0030 

REF 

IP 

LAST 

1442 

17,2116 

02  031 

1 

RAND  CHAN31 

0031 

17,2117 

0 0006 

1 

EXTEND 

003  2 

REF 

1 

17,2120 

1 2146 

1 

BZF  +XORULGE 

i" 


GAP:  ASSEMBLE  REVISION  001  OF  AGC  PROGRAM  A°11R0PE  BY  EYLES 

L Q.R-AXES  RCS  AUTOPILOT 


0033  REF  A 2 LAST  1365  17,212  1 3 4744  1 CA 

0034  17,212?  0 0006  1 EXTEND 

0035  REF  19  LAST  1442  17,2123  02  031  1 RAND 

0036  17,2124  0 0006  1 EXTEND 

0037  REF  1 17,2125  1 2147  0 BZF 


003ft 

REF 

3 

LAST 

763 

17,2126 

3 

4746 

0 

0039 

RFF 

53 

LAST 

146  2 

17,2127 

7 

0111 

1 

0040 

REF 

49ft 

LAST 

1442 

17,2130 

10 

000 

0 

0041 

REF 

2 

LAST 
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17. 2417 

17.2420 

17.2421 

17.2422 

17.2423 

17.2424 

17.2425 

17.2426 

17.2427 
17, 23-3  0 

17. 243 1 

17.2432 

17.2433 
3.7,2434 

17.2435 

17.2436 

17.2437 

17.2440 

17.2441 

17.2442 

17.244 3 

17.2444 

17.2445 

17 . 2446 

1 7 . 2447 


6 1455  1 
55  * 741  0 
11 '463  0 
1 2 3 74  1 
1 2374  1 
1 2374  1 
6 0000  1 
6 0000  1 


6 2344  0 


) 00 Of)  1 
7 1463  0 
30 001  0 
0 0006  1 
7 1444  0 
5.7*456  1 
4 CO 00  0 
6 1456  1 
55 '74?  0 
4 1455  0 
6 1422  1 
i6'4  36  0 
4 1456  0 
1423  0 
56*437  1 
53*437  1 
0 3146  1 
53*427  0 
11*741  0 
0 24  2 5 0 
0 2425  0 
0 2425  0 
6 1476  0 

0 00  C 6 1 

6 2431  0 

1 2^  47  0 
11*742  0 
0 2'  1 
0 2435  1 
0 2435  1 

0 1.-076  0 

0 0006  1 
- 2 ■ l 1 

1 2447  0 
3 1273  0 

7 4741  0 

t:  0 006  1 

l 240  , i 
1 2451  1 
1 2661  0 
3 2342  0 


ENTF:  QR 


AD 

TS 

CCS 

TCF 

TCF 

TCF 

DOUBLE 

DOUBLE 

AD 

EXTEND 

MP 

CA 

EXTEND 

MP 

XCH 

COM 

AD 

TS 

CS 

AD 

TS 

CS 

AD 

TS 

DXCH 

TC 

DXCH 

CCS 

TC 

TC 

TC 

AD 

EXTEND 

BZMF 

TCF 

CCS 

TC 

TC 

TC 

AD 

EXTEND 

BZMF 

TCF 

CA 

MASK 

EXTEND 

BZF 

TCF 

TCF 

CA 


QLAST 
DAPTEMP3 
SAVEHAND  +1 
+ 3 
+ 2 
+ 1 


L INRAT 

SAVEHAND  +1 

L 

STIKSENS 

RI.AST 

ftLAST 
DAPTEMP^: 
QLAST 
OMEGAQ 
QH ATE  DIF 
PLAST 
OMEGAR 
PF ATEDIF 
QRATEDI F 
ROT-TOUV 
UF ATEDIF 
DAPTFMP3 
+ 3 
+ 2 
+ 1 

-RATEDB 
+ 2 

ENTERUV  -2 
DAPTEMP' 

+ 3 
+ 2 
+ 1 

-RATEDB 
+ 2 

ENTERUV  -2 

RCSFLAGS 

QRSIT 

+ 2 

ENTERUV 
STI LLRCS 
40CYCL 


3:  15  DEC.  2,1970  LMDAP 
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USER'S  PAGE  NO.  6 


E6  $4 


INTERVAL. 


TRANSFORM  RATES  FROM  Q, R TO  U,V  AXES 


CHECK  IF  Q COMMAND  CHANGE  EXCEEDS 
BREAKOUT  LEVEL.  IF  NOT,  CHECK  7. 


BREAKOUT  LEVEL  EXCEEDED.  DIRECT  RATE. 
R COMMAND  BREAKOUT  CHECK. 


BREAKOUT  LEVEL  EXCEEDED.  DIRECT  RATE. 
BREAKOUT  LEVEL  NOT  EXCEEDED.  CHECK  FOR 
DIRECT  RATE  CONTROL  LAST  TIME. 


CONTINUE  DIRECT  RATE  CONTROL 
PSEUDO-AUTO  CONTROL. 


I 


AP : 

ASSEMBLE  8 

E VISION  0C1 

OF  AGC  PROGRAM  AP11R0PE  BY  EYLtS 

3:15  DEC.  2,1970  LMDAP  .015  PAGE  1448 

Q,R- 

AX  FS 

RCS  AUTOPH  OT 

USER'S  PAGE  NO.  7 E6  S4 

0261 

REF 

2 

LAST 

1422 

17, 2450 

55 ' 457 

1 

TS 

TCOP 

0262 

17,2451 

0 000^ 

0 

ENTEPUV 

INHINT 

DIRECT  RATE  CONTROL. 

0263 

REF 

58 

LAST 

1444 

17,2452 

9 4674 

0 

TC 

I BNKCALL 

0264 

REF 

1 3 

LAST 

1444 

17,2453 

40153 

1 

FC  ADR 

ZATTEROR 

02  6 5 

17,2454 

0 OQ0  3 

1 

PEL  TNT 

0266 

REF 

294 

LAST 

1 /.  1,  f- 

17 , 245* 

3 4755 

1 

CA 

ZERO 

0267 

REF 

6 

LAST 

1433 

17,2456 

55 '450 

0 

TS 

DYERROR 

0268 

REF 

7 

LAST 

1448 

17,2457 

55 1 45  1 

1 

TS 

DYERROR  +1 

0260 

REF 

6 

LAST 

1433 

17,2460 

55 ' 452 

1 

TS 

DZERROR 

0270 

RFF 

7 

LAST 

1448 

17,2461 

55*453 

0 

TS 

DZEPROR  +1 

0271 

REF 

2 

LAST 

1447 

17, 2462 

11*426 

1 

CCS 

UR AT  EDI F 

0272 

17, f463 

1 24  66 

0 

TC  F 

+-3 

0273 

17,2464 

1 2466 

0 

TCF 

+ 2 

0274 

17,2465 

1 2466 

0 

TCF 

+ 1 

0275 

REF 

2 

LAST 

1435 

17,2466 

6 1476 

0 

AD 

T ARGETDB 

IF  TARGET  DB  IS  EXCEEDED,  CONTINUE 

0276 

17,2467 

0 0006 

1 

EXTEND 

DIRECT  PAT  E CONTROL  . 

027  7 

R E F 

1 

11 , 2470 

6 2 504 

1 

8 ZMF 

VDB 

0278 

REF 

1 

17,2471 

1 1 ' 2 7 

0 

CCS 

vratedif 

0279 

17,2472 

1 2475 

1 

TCF 

+ 3 

0280 

17,2473 

1 2475 

l 

TCF 

+ 2 

0281 

17,2474 

1 2475 

1 

TCF 

+ 1 

028  2 

" EF 

3 

LAST 

144  c 

17,2475 

6 1476 

0 

AO 

T ARGETDB 

02  3? 

17,2476 

0 00  06 

1 

EXTEND 

028  4 

1 ” , 2^77 

6 2 501 

1 

BZMF 

+ 2 

0285 

REF 

1 

17, 2500 

1 2515 

0 

TCF 

QRTIME 

0206 

REF 

295 

LAST 

1448 

17,2501 

3 4755 

l 

CA 

ZERO 

0287 

REF 

2 

LAST 

1448 

17,2502 

55*427 

0 

TS 

VRATEQI F 

0238 

REF 

2 

LAST 

1448 

17,2503 

1 2515 

0 

TCF 

QRTIME 

0289 

REF 

3 

LAST 

144  8 

17,2504 

11 '427 

0 

VDB 

CCS 

VRATEDIF 

0290 

17,  ?805 

0 2510 

1 

TC 

+ 3 

0291 

17,2506 

0 2510 

1 

TC 

*2 

0292 

17,2507 

0 2510 

1 

TC 

+ 1 

0293 

REF 

■gjt 

LAST 

1448 

17,2510 

6 1476 

0 

AD 

T ARGETDB 

IF  TARGET  DB  IS  EXCEEDED,  CONTINUE 

0294 

17, 25 1 1 

0 0006 

1 

EXTEND 

DIRECT  PATE  CONTROL.  IF  NOT,  FIFE  AND 

025  ^ 

REF 

1 

17,2512 

6 25  24 

0 

BZMF 

TOPSEUDD 

SWITCH  TO  PSEUDO-AUTO  CONTPOt  ON  NEXT 

0296 

P FF 

296 

LAST 

144  8 

17,2513 

3 4755 

1 

CA 

ZERO 

PASS. 

0297 

REF 

3 

LAST 

1448 

17,2514 

55*426 

1 

TS 

UR AT  EDI F 

0298 

REF 

3 

LAST 

1448 

17 , 2515 

3 1457 

0 

OPTIME 

CA 

TCQR 

DIRECT  RATE  TIME  CHECK. 

0299 

1 7 , 25  1 6 

0 (006 

1 

EXTEND 

0309 

17,2517 

6 2524 

0 

BZMF 

+ 5 

BRANCH  IF  TIME  EXCEEDS  4 SEC. 

0301 

REF 

48 

LAST 

1447 

17 , 2520 

4 1273 

1 

CS 

PCSFLAGS 

0302 

RFF 

2 

LAST 

1^47 

17,252  1 

7 4741 

0 

MASK 

ORBIT 

0303 

REF 

49 

LAST 

1448 

17 , 2522 

27*273 

1 

ADS 

RCSFLAGS 

BIT  11  IS  1. 

0304 

17,2523 

0 2527 

0 

TC 

+4 

0305 

REF 

4 

LAST 

144  8 

17,2524 

4 4741 

0 

TQPSEUDO 

cs 

ORBIT 

0306 

F FF 

50 

LAST 

1448 

17,2525 

7 1273 

1 

MASK 

RCSFI  AGS 

0307 

REF 

51 

LAST 

14*63 

17,2526 

55 ' 273 

1 

TS 

RCSFLAGS 

BIT  11  IS  0. 

03  4>8 

PEF 

1 

17,2527 

3 2573 

1 

CA 

HANDADR 

0309 

REF 

2 

LAST 

1445 

17,2530 

55*477 

0 

TS 

RETJADR 

0310 

REF 

167 

LAST 

1446 

17 , 25  31 

3 4753 

1 

CA 

ONE 

> 


GAP:  ASSEMBLE  REVISION  001  F AGC  PROGRAM  aPIIHOPE  BY  EYLFS 

L Q,R— AXES  PCS  AUTOPILOT 

0311  REF  6 LAST  1445  17,253?  55'505  1 BACKHAND  TS 


0312  REF  38  LAST  1446  17,2533  3 4751  0 CA 

0313  PEE  9 LAST  1445  17,2534  55*743  1 TS 

0314  PEE  7 LAST  1449  17,253c  51*505  0 INDEX 

03 1 c REF  3 L AST  141  2 17,2536  51'535  0 INDEX 

0316  17, 2537  1 2540  0 TCF 

0317  REF  39  LAST  1449  17,2540  3 4751  0 CA 

0313  »EF  8 LAST  1469  17,2541  51*505  0 INDEX 

0319  IFF  4 LAST  1449  17,254?  55*535  1 TS 

0323  REF  1 17,2543  1 3005  0 TCF 
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USER'S  PAGE  NO.  9 E6  S4 

A X I SCTR 

FOUR 

HUMBERT 

A X I SCTR 
SKI  PU 

+ 1 

FOUR 

AXISCTP 

SKIPU 

LOOPER 


0321 

0322 
032  3 
032  4 

0325 

0326 

0327 

REF 

o 

LAST 
LAST 
!.  AST 

LAST 

LAST 

1449 

1 /,  / o 

17.2544 

17.2545 
1T,2546 
17,2547 

17 . 2550 

17.2551 

17.2552 

51*505 
11*426 
3 47  55 
1 2551 
3 4753 
51 ' 505 
6 3722 

0 

1 

1 

0 

1 

0 

0 

INDEX 

CCS 

CA 

TCF 

CA 

INDEX 

AD 

AX! SCTR 

IIDATFHIF 

REF 
F F 

£ r r: 

4 

2 97 

168 

10 

1 

1 H-h  O 

14-4  8 

1448 

1440 

UKA 1 CUir 

ZERn 
+ 2 

ONE 

AXISCTP. 

AXI SDIFF 

Krr 

REF 

REF 

0328 

RFF 

504 

LAST 

1 44  5 

17,2553 

50  000 

1 

INDEX 

A 

032° 

REF 

1 

1-7,2554 

* 1571 

1 

CS 

1/ANET2  + 1 

0330 

17,2555 

0 00  06 

1 

EXTEND 

0331 

REF 

1 1 

LAST 

1449 

17,2556 

5 1505 

0 

INDEX 

AXISCTR 

0332 

REF 

5 

LAST 

14  49 

17,2557 

7 1426 

1 

MP 

URATEDIF 

0333 

REF 

405 

L AST 

1440 

17,2560 

54  002 

1 

TS 

0 

0334 

REF 

505 

LAST 

144° 

17,2561 

20  001 

1 

DAS 

A 

03  35 

RFF 

406 

LAST 

1 4 48 

17,256? 

6 r 0 0 2 

0 

AD 

Q 

0336 

RFF 

506 

LAST 

1449 

17,2563 

54  000 

0 

T$ 

A 

0337 

17,2564 

1 2566 

1 

TCF 

+ 2 

0338 

RFF 

407 

LAST 

1449 

17,2565 

3 C002 

0 

CA 

0 

0339 

REF 

12 

LAST 

1449 

1 7, 256  6 

5 1 ' 505 

0 

SETTIME 

INDEX 

AXISCTR 

0340 

REF 

8 

LAST 

1445 

17,2567 

55*525 

0 

TS 

TJU 

0341 

REF 

2 

LAST 

146  6 

17,2570 

1 272-* 

0 

TCF 

A F T E R T J 

0342 

REF 

298 

LAST 

1449 

17,2571 

3 4755 

1 

ZERPTJ 

CA 

ZERO 

0343 

REF 

1 

17,2572 

1 2566 

1 

TCF 

SETTIMF 

0344 

REF 

1 

17,2573 

02532 

1 

H AND A DP 

GEE' A OF 

BACKHAND 

A 0 3 4 c 

GTS  WILL 

BE  TsJED  IF 

A 0346 

1.  US  EQR  J TS  = 

0, 

A 0347 

2.  ALLOWGTS 

POS, 

A 034  8 

3.  JETS  ARE 

OFF ( Q,R-AXES) 

034  c 

REF 

4 

L AST 

86  3 

17,2574 

3 4736 

1 

TRYGTS 

CAF 

USEQRJTS 

035( 

REF 

61 

LAST 

144  4 

17,2575 

7 0 1 1 1 

1 

MASK 

DAPBCOl.S 

0351 

REF 

507 

L AST 

1469 

17, 2576 

10  C OO 

0 

CCS 

A 

0352 

RFF 

1 

17,2577 

1 2107 

1 

TCF 

F CS 

0353 

PEF 

2 

LAST 

1412 

1 7, 2600 

11  * 50  2 

0 

CCS 

ALLOWGTS 

INDEX 

AXIS 

OUANIT Y 

0 

-U 

1 / J ET  ACC-AOSU 

L 

-HJ 

1/ JETACC+AOSU 

16 

-V 

i/jetacc-aosv 

17 

+ V 

1/ JETACC+AQSV 

JETAC-C 

= 2 JET 

ACCELERATION  (I  FOR  FAIL 

URATEDIF  IS  SCALED  AT  PI/4  PAD/SEC 
JET  TIME  IN  A SCALED  32  SEC 


OVERFLOW  SKIP 

RIGHT  SIGN  AND  BIGGER  THAN  I50MS 
SCALED  AT  10.67  WHICH  IS  CLOSE  TO  10.24 


IS  JET  USE  MANDATORY.  (AS  LONG  AS 

USEQRJTS  BIT  is  NOT  BIT  15,  CCS  IS  SAFE) 


NO.  DOES  AOS TASK  OK  CONTROL  FOR  GTS? 


< 

I 


) 


i 


i 


‘ 


* 

4 


I 
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035* 

17,2601 

1 2603 

1 

TCF 

+ 2 

0355 

REF 

2 

LAST 

1449 

17,2602 

1 2107 

1 

TCF 

RCS 

0356 

17,2603 

0 0006 

1 

EXTEND 

035- 

REF 

6 

L AST 

16  13 

17,26  04 

00  00  5 

1 

READ 

CHAN  5 

0358 

REF 

50  P 

LAST 

1449 

17,2605 

10  000 

0 

CCS 

A 

0359 

REF 

1 

17,2*06 

1 2612 

1 

TCF 

CHKINGTS 

0360 

17,2607 

0 0006 

1 

GOTOGTS 

EXTEND 

0361 

REF 

1 

17,2610 

3 2625 

1 

DC  A 

GTSCADR 

0362 

1 7 , 26 1 1 

52  006 

0 

DTCB 

0363 

RTF 

3 

LAST 

If  46, 

17,2612 

11 ' 633 

1 

CHKINGTS 

CCS 

I NG  T S 

0364 

17,2613 

1 2615 

0 

TCF 

+ 2 

0365 

REF 

3 

LAST 

14  50 

17,26  14 

1 2 107 

1 

TCF 

RCS 

0366 

17,2615 

0 0004 

0 

INHINT 

0367 

REF 

59 

LAST 

1448 

1 7,2616 

0 *6  74 

0 

TC 

I BNK  CALL 

0368 

r EF 

1 

17,2617 

433  30 

0 

C.  ADR 

TIME G M B L 

036° 

17,2620 

0 0003 

1 

PELINT 

0370 

REF 

poc 

LAST 

1449 

17,2621 

3 47  5 5 

1 

C AF 

ZERO 

0371 

REF 

4 

LAST 

1450 

17,2622 

55' 633 

1 

TS 

INGTS 

0372 

REF 

4 

LAST 

14  50 

17,2623 

1 2107 

1 

TCF 

RCS 

0373 

REF 

2 6 

LAST 

1442 

FT, 1635 

EBANK= 

CDUXD 

0374 

11  EF 

1 

17,2624 

03077 

1 

GTSCADT 

2CADR 

GTS 

0374 

REF 

1 

17, 26 2 F 

42106 

0 

WAS  THE  TRIM  GIMBAL  CONTROLLING 

YES.  SET  UP  A DAMPED  NULLING  DFIVE. 
NO.  NULLING  WAS  SET  UP  BEFORE.  DO  RCS 


i” 


ASSEMBLE  REVISION  0G1  OF  AGC  PRQGPAM..  API  1ROPE  BY  EYL  ES 


3:15  DEC 


2,19  70  I MDAP 
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GAp  : 


L Q , R - AXES  PCS  AUTOPILOT 


USER'S  PAGE  MO.  10  E6  S4 


P 0375  SUBROUTINE  TO  COMPUTE  Q.k-AXES  ATTITUDE  ERRORS  FOR  USE  IN  THE  RCS  AND  GTS  CONTROL  LAWS  AND  THE  D I SDL AY S . 


0377 
03  7 P 
037c 
038° 
0381 
038  2 
0383 
03  8^ 

0385 

0386 

0387 

0388 
03  39 
0350 
0391 
039? 


REF  14  LAST  1437 

REF  8 LAST  1437 
PFF  27  LAST  143* 

REF  4 LAST  1424 
REF  4 LAST  1438 
RTF  17  LAST  1421 

! FF  7 LAST  1422 
REF  9 LAST  1427 

REF  7 LAST  1424 
REF  3 1 AST  1408 

p E F 5 LAST  145  1 
R FF  4 LAST  1444 


17  ,26  26 
17,2627 

17.2630 

17. 2631 

30  03  3 
0 0006 
21  1 636 
5C  ' 737 

1 

1 

1 

1 

17, 2632 

0 00  06 

1 

1 7,2633 

7 1415 

1 

17,2634 

55' 752 

1 

1 7 , 263c; 

30  0 36 

0 

17,2636 

0 0006 

1 

17 ,263 

21  * 637 

0 

17,2640 

55 ' 740 

1 

17,2641 

0 0006 

1 

17,2642 

7 1417 

0 

17,264  3 

6 1300 

0 

17,2644 

6 1752 

0 

17 , 2665 

57*450 

1 

C CAE  CDUY 

EXTEND 

MSU  CDUYD 

TS  DAPTEMP1 

EXTEND 

Ml'  M21 

TS  E 

CAE  CDUZ 

EXT  END 

MSU  CDUZD 

TS  DAPTEMP2 

EXTEND 

MP  M22 

AD  DELQERor 

AD  E 

XCH  QERROR 


Q-ERROR  CALCULATION 

CDU  ANGLE  - ANGLE  DESIRED  (Y-AXIS) 
SAVE  FOR  REPP  CALC 

( CDUY-C.DUYD)*M21  SCALED  AT  PT  RADIANS 

SECOND  TERM  CALCULATION: 

CDU  ANGLE  -ANGLF  DESIRED  (Z-AXIS) 

SAVE  FOP  R EPF  CALC. 

( CDUZ -CDU  ZD ) *M22  SCALED  AT  PI  RADIANS 
KALCMANU  INEFFACE  EPPOR 

c AVE  O-EPPOP  FOP  FIGHT-BALL  DISPLAY. 


0393 
03  94 

0395 

0396 
03°7 

0398 

0399 

0400 

0401 

0402 

0403 


REF 

28 

l AST 

1451 

17,2646 

31 • 737 

0 

KEP.RCALC  CAE 

DAPTEMP1 

p— ERROR  CALCULATION: 

17,2647 

0 C 006 

1 

EXTEND 

CDU  ANGLE  -ANGLE  DESIRED  (Y-AXIS) 

REF 

4 

LAST 

1 424 

17,2650 

7 1416 

1 

MP 

M3 1 

(CDUY-CDUY0)*M31  SCALED  AT  PI  RADIANS 

REF 

5 

LAST 

145  1 

17, 265  1 

55*752 

1 

TS 

E 

PFF 

10 

I AST 

145  1 

17,265? 

31 ' 740 

0 

CAE 

D APTEMP2 

SECOND  TERM  CALCULATI ON: 

17,2653 

0 0006 

1 

EXTEND 

CDU  ANGLE  -ANGLE  DESIRED  (Z-AXIS) 

REF 

5 

LAST 

1424 

17,2654 

7 1420 

1 

MP 

M32 

( CDUZ-CDUZD )*M32  SCALED  AT  PI  RADIANS 

REF 

3 

LAST 

1408 

17,2655 

6 1301 

1 

AD 

DELR EKGR 

KALCMANU  INERFACE  ERROR 

REF 

7 

L AST 

1451 

17,2656 

6 1752 

0 

AO 

E 

REF 

4 

t AST 

1444 

17,?657 

57*452 

0 

XCH 

P ERR  OR 

SAVE  R-ERROR  FOR  EIGHT-BALL  DISPLAY. 

REF 

408 

LAST 

1 ■■ 

1 7,2660 

0 0002 

0 

TC 

Q 

I 
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USEO  » S PAGE  NO.  11 
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E6  S4 


P 0404 

" ATTSTFER 

ff  J c, 

THE  ENTRY  POINT 

FOR  Q 1 7 

- 

AXES  { U * V - 

AXES  ) 

ATTITUDE  CC 

r\  /.  r\  r 

n C C 

'X 

1 ACT 

1 A A *7 

1 ~7  J / 1 

A TT  C T F F P 

FO  I JA1  ^ ST  I 11  RF  C 

K t r 

....  3 

1. .Ay 

t i , /.  JO  6 

L.  jJ  ‘M  l,  O O * L 

0407 

REF 

5 

LAST 

1451 

17,2661 

3 1452 

0 

STILL RCS 

CA 

RERRDR 

0408 

REF 

509 

LAST 

14  50 

17,2662 

22  000 

1 

LXCH 

A 

0409 

REF 

5 

LAST 

1 

17,2663 

3 14  50 

1 

CA 

QERRQR 

0410 

REF 

3 

LAST 

1447 

17,2664 

0 3146 

1 

TC 

ROT-TOUV 

0411 

REF 

2 

LAST 

131 

17,2665 

53 ' 7 52 

1 

DXCH 

UERROR 

A0412 

PREPARES 

CALL 

TO  TJETLAW 

A 04 13 

PREFORMS 

SKI0 

LOGIC  ON  U 

04 1 4 

REF 

1 

17,2666 

3 3113 

1 

TJLAW 

CA 

T JLAWADP 

0415 

REF 

3 

LAST 

1448 

17,2667 

55*477 

0 

TS 

RETJADR 

0416 

REF 

1 o9 

LAST 

144  9 

17 , 2670 

3 4753 

1 

CA 

ONE 

0417 

REF 

1? 

LAST 

144-2 

17, 2671 

55 ' 505 

1 

TS 

AXI SCTR 

06  1 

REF 

14 

LAST 

14  5? 

17,2672 

51  * 505 

0 

INDEX 

AXISCTR 

0*  1 

REF 

5 

L A ‘ T 

1 44° 

17,2673 

51  *c35 

0 

INDEX 

SKI  P U 

"STILLFCS"  TS  THE  F CS  EXIT  FPOM  TRYGTS . 


(OR  SRSRCS ( DOCKED  ) ) 
OP  Y AXIS  IF  NEEDED. 


0420 

0421 

0422 
042  3 
042/ 
042  r 

0426 

0427 

042  8 
0^2° 

0430 

0431 
043? 

0433 

0434 
04  3 r 
0436 

043  3 
04  3 8 

0439 

0440 

0441 
0642 

0443 

0444 

0445 

0446 

A 044  7 

A 0448 
A O' 


REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 


40 

15 
6 
2 

16 
3 
8 

17 

12 

2 

62 

10 


REF  510 

REF  2 
REF  3 
REF  63 
REF  5 
REF  511 
REF  5 


* 

*RFF 
*R  CF 
>1= 

REF 

REF 


60 

2 

41 

10 


LAST 
LAST 
LAST 
LAST 
LAST 
LAST 
LAST 
LAST 
LAST 
LAS  T 
LAST 
LAST 
LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

LA^T 

LAST 

LAST 


1 440 
1452 
14  52 

144  9 
1452 

145  2 
14  51 
1452 
1 44  2 

130 

1440 

144  5 
1452 

1438 

1445 

1452 

1449 
1452 

1446 

1450 
1433 

1452 

1449 


17.2674 

17.2675 
17, 2o?6 
17,2677 

17.2700 

17.2701 

17 . 2702 

17.2703 

17.2704 

17.2705 

17.2706 

17.2707 
17,2710 
17,2'Ul 

17.2712 

17.2713 

17.271 4 

17.2715 

17. 2716 

17.2717 

17. 2720 

17.2721 

17.2722 

17.2723 

17.2724 

17.2725 

17.2726 


1 2675  0 
3 4751  0 
51 1 505  0 


551535 
1 3 005 
51  * 505 
3 1751 
55*752 
51 • 505 
3 1426 
55 '4 27 
3 0111 
7 4737 
10  000 


1 

0 

1 

4 

7 

10 


2715  1 
32  52  1 
2727 
fill 
473  6 
000 


55 ' 63 1 
0 ' 004 
0 4674 
43727 
0 0003 
3 4751 
55*743 


+ 3 


TCF 

CA 

INDEX 

TS 

TCF 

INDEX 

CA 

TS 

INDEX 

CA 

TS 

CA 

MASK 

CCS 

TCF 

TC 

TCF 

CS 

MASK 

CCS 

TS 

INHINT 

TC 

CADR 

RELINT 

CAP 

TS 


+ 1 

FOUR 
A XI SCTR 
SKI  PU 
LOO PER 
AXI SCTR 
U ERR OR 
E 

AXI  SCTR 

DMEGAU 

EDOT 

DAP BOOL  S 
CSMDOCKD 
A 

+ 3 

tjetlaw 

AFTEPTJ 
DAPBHOLS 
USEQf  JTS 
A 

CCTROLER 

I BNKC  ALL 
SPSPCS 

FOUR 
NUMBER T 


DOCKED.  IF  GIMBAL  USAB1E  DO  GTS  CONTROL 
ON  THE  NEXT  PASS. 

USEQRJTS  BIT  MUST  NOT  BE  BIT  15. 

GIMBAL  USABLE.  STORE  POSITIVE  VALUE. 


DETERMINE  PCS  CONTROL 

ALWAYS  CALL  FOR  2-JET  CONTROL  ABOUT  U,V. 
FALL  THROUGH  TO  JET  SELECTION,  ETC. 


Q,R- JET- SELECT  ION-LOGIC 


INPUT:  AXISCTR 
SNUFFS  I T 


0,1  FOR  U,V 

ZERO  T JETU , V AND  TRANS.  ONLY  IF  SET 


IN  A DPS  BURN 


ASSEMBLE  REVISION  001  OF  4 SC  PROGRAM  AP11R0PE  BY  E Yl_  E S 


3:  15  DEC 


2,1970 


L M DA  P 


015  PAGE  1453 


> AP : 


A 045  0 
A 0451 
A0452 

A0453 
A045* 
A045  6 

A( 

A0457 
A 045  8 
A0*5C 

A 0460 

A046  ] 

0462 

0*63 

0*64 

0465 


047  P 
047-5 
0480 


0,4 —AXES  RCS  AUTOPILOT 


USER  * S PAGE  NO.  12 


E6  S4 


REF 

REF 

REF 


30  LAST  1 3 3 f 
1 


0466 

0467 

0468 

04  66 

0470 

REF 
F:  E F 

.•?  c c 

2 3 
15 

2 

64 

LAST 

LAST 

1 ACT 

1443 

1443 

14  53 
1452 

• u “ 

REF 

1 

LAST 

0471 

R FF 

5 

LAST 

14*3 

047  2 
047  3 

REF 

3 

LAST 

1 4 4.5 

0474 

Q F F 

98 

1 APT 

144  5 

0475 

REF 

278 

LAST 

1447 

0476 

REF 

18 

LAST 

1452 

0477 

REF 

9 

LAST 

1449 

■ FF 


17,2727 

17.2730 

17.2731 

17.2732 

17.2733 

17.2734 

17.2735 

17.2736 

17.2737 

17.2740 

17.2741 

17.2742 

17. 2743 

17.2744 
17,27*5 

17.2746 

17.2747 
17,2750 
17, 2761 


C101  1 
*737  1 
0006  1 
2743  1 
0106  1 
47  37  1 
00  06  1 
2743  1 
OHIO 
*744  0 
0 0006  1 
l 3063  0 


3 47  52 
54  001 
51 1 505 
11 • 525 
1 2 764 
1 2 777 
1 2753 


I i,TJV 

MJMBERT 

RETJADR 


JET  TIME  SCALED  10.24  SEC. 

INDICATES  NUMBER  OF  JETS  AND  TYPE  OF  POLICY 
WHERE  TO  RETURN  TO 


0UT  PUT  : MO  . U ( V ) J ET  S r-ATF  DERIVATION  FEEDBACK 
CHANNEL  5 

SKI PU, SKIRV  FOR  LESS  THAN  150MS  FIRING 

NOTES:  IN  CASE  OF  FAILURE  IN  DESIRED  ROTATION  POLICY, "ALL"  UNFAILED 

JETS  OF  THE  DESIRED  POLICY  APE  SELECTED.  SINCF  THERE  APE  ONLY 
TWO  JETS,  THIS  MEANS  THE  OTHER  ONE  OP.  NONE.  THE  ALARM  IS  SENT 
IF  NONE  CAN  BE  FOUND. 

TIMES  LESS  THAN  14  MSEC  ARE  TAKEN  TO  CALL  FOR  A SINGLE-JFT 
MINIMUM  IMPULSE,  WITH  THE  JET  CHOSEN  S EM I-R AN OOML Y . 


AFTERTJ 


OOP 0 TAT 


CA 

MASK 

EXTEND 

BZF 

cs 

MASK 

EXTEND 

BZF 

CA 

MASK 
EX  TEND 
BZF 

CAF 

TS 

INDEX 

CCS 

TCF 

TCF 

TCF 


FLAGWRD5 

SNUFFBIT 

DOROTAT 
FLGWRD1C 
APSFL8I T 

DOROTAT 

DAPBOOLS 

DRIFTBIT 

XTRANS 

TWO 

L 

AXISCTR 
T JU 
+ 5 

NOROT AT 
+ 2 


0481 

REF 

2 

LAST 

1453 

17,2752 

1 2777 

0 

TCF 

NOROTAT 

0482 

17,2753 

22  007 

0 

ZL 

0483 

REF 

170 

LAST 

14  52 

L7 , 2 7r4 

6 47  53 

1 

AD 

ONE 

0*  8<! 

REF 

5 

1 

1437 

1 7 , 2755 

55*737 

1 

TS 

ABSTJ 

0*85 

PEE 

1° 

LAST 

1453 

17,2756 

3 1505 

0 

CA 

AXISCTk 

0486 

REF 

279 

LAST 

1453 

17,2757 

6 0001 

0 

AD 

L 

0487 

REF 

8 

LAST 

1443 

17,2760 

55*744 

0 

TS 

ROT  INDEX 

0488 

RFF 

6 

LAST 

1*53 

17,2761 

3 1737 

0 

CA 

ABSTJ 

0*89 

REF 

1 

17,2762 

6 ? 1 1 0 

1 

AD 

-150MS 

04  • r 

17,2763 

0 0006 

1 

EXTEND 

0491 

REF 

1 

17,2764 

6 3010 

0 

BZMF 

DOSK  I P 

IF  SNUFFBIT  SET  DUPING  A DPS  BURN  GO 
XTRANS;  THAT  TS , INHIBIT  CONTROL. 


0123  = -U  -V  -+U  +V 


I 


TO 


l 


AP:  ASSEMBLE  LEV  IS  1 3!'  001  QF  ACC  PROGRAM  API  1R0PE  BY  EYLES 


L 

0,9- 

AXES 

PCS  AUTOPILOT 

049  2 

R.EF 

2 

LAST 

1463 

17,2765 

0 3173 

1 

TC 

SELCTSUB 

0493 

REE 

20 

LAST 

1453 

17,2766 

51  1 505 

0 

INDEX 

AXISCTR 

0494 

REF 

1 

1 7 , 2 7 6 7 

3 3105 

0 

CA 

INDEXES 

0495 

REF 

2 30 

LAST 

14  53 

17,2770 

54  001 

1 

TS 

l. 

049  6 

REF 

7 

LAST 

1444 

17,2771 

3 1761 

1 

CA 

PCLYTEMP 

04°7 

17,2772 

0 0004 

0 

INHINT 

04  9 8 

, REF 

231 

LAST 

1456 

17,2773 

50  0:01 

0 

INDEX 

L 

nice 

REF 

4 

LAST 

16-3  7 

17, ZT74 

0 5754 

1 

TC 

WRI TEP 

0500 

17,2775 

0 C003 

1 

RE  LINT 

0501 

REF 

1 

17,2776 

1 3051 

1 

TCF 

FEEDBACK 

0502 

REF. 

21 

LAST 

1464 

17,2777 

51 • 505 

0 

NO ROT AT 

INDEX 

AXISCTR 

0503 

R F F 

2 

LAST 

14  54 

17, 30  C 0 

3 3105 

0 

CA 

INDEXES 

0506 

17,3001 

0 CO 04 

0 

INHINT 

050r 

REF 

6 12 

1 ART 

1 A * ? 

1 7 . a On  3 

50  0 00 

1 

T f "IF  Y 

A 

1 

l 1 ' U L A 

0506 

REF 

5 

LAST 

14  54 

17,3003 

0 5753 

0 

TC 

WRITEP  -1 

0507 

1 7,3004 

0 0003 

1 

RELINT 

0508 

REF 

22 

LAST 

1454 

17,3005 

11  * 50  5 

1 

L DOPE A 

CCS 

A X I S C T c 

0509 

REF 

4 

LAST 

14  5 2 

17, 3006 

0 1477 

1 

TC 

RETJADR 

0*10 

p F F 

1 

17,3007 

1 3236 

1 

TCF 

CLOSEOUT 

0511 

RFF 

7 

LAST 

1453 

17,3010 

4 1737 

1 

DOSK  IP 

cs 

ABSTJ 

0512 

REF 

2 

LAST 

1446 

17,3011 

6 3107 

1 

AD 

+ T JM INT6 

0513 

1 t , 30 1 2 

0 OOOo 

1 

EXTEND 

05 1 6 

REF 

1 

17 ,3013 

a 3032 

0 

BZMF 

NOTMIN 

05  1 K 

REF 

a 

LAST 

1456 

’7,3014 

27*737 

1 

ADS 

ABSTJ 

0516 

REF 

23 

LAST 

1454 

17,3015 

51  * 505 

0 

INDEX 

AXISCTR 

0517 

REF 

10 

LAST 

1453 

17,3016 

11  * 525 

0 

CCS 

TJU 

0518 

REF 

3 

LAST 

1454 

17,3017 

3 3107 

1 

CA 

+TJMINT6 

05  1* 

17,3020 

1 3022 

0 

TCF 

+ 2 

0520 

REF 

4 

LAST 

14  54 

17 , 302 1 

4 3107 

0 

CS 

+TJMINT6 

0521 

REF 

24 

LAST 

14  56 

17,3022 

51  * 505 

0 

INDEX 

AXISCTR 

0522 

REF 

1 1 

LAST 

1454 

17,3023 

55*525 

0 

TS 

TJU 

052  3 

REF 

4 

LAST 

1 44  3 

17,3024 

1 1 ’ 50C 

1 

CCS 

sensetyp 

0526 

REF 

2 

LAST 

14  56 

17,3025 

1 3031 

1 

TCF 

NOTMIN  -1 

052  5 

17,3026 

0 0006 

1 

EXTEND 

0526 

RFF 

4 

LAST 

331 

17,3027 

OC  6 04 

0 

READ 

LOSCALAP 

0527 

REF 

171 

LAST 

1453 

17,3030 

7 4753 

0 

MASK 

ONE 

0528 

REF 

1 1 

LAST 

14  52 

17,3031 

55 ' 743 

1 

TS 

NUMBERT 

052? 

REF 

3 

LAST 

1456 

17,3032 

0 3173 

1 

NO TWIN 

TC 

SELCTSUB 

053  0 

REF 

25 

LAST 

14*6 

17,3033 

51 '505 

0 

INDEX 

AXISCTR 

0531 

REF 

3 

LAST 

1A54 

17,3034 

3 3105 

0 

CA 

INDEXES 

0532 

17,3035 

0 0004 

0 

INHINT 

3:15  DEC 


2,1970 


L MDAP 


01 


PAGE  1454 


USEr'  * S PAGE  NO.  13 


E6  S4 


14MS 


ENSURE  NIN-IMPULSE  NOT  AGAINSr  TF  AN S 


GAP: 


ASSfcMBL  fc  StvISm  001  OF  A GC  PROGRAM  AP11R0PE  BY  EYLES 


L Q , R- AXES  RCS  AUTOPII.OT 

IS  T6FURT  H A +1 

CA  POLYTEMP 

INDEX  TfcFURTHA  +1 

TC  WRITEP 


053? 

REF 

5 

LAST 

1437 

17,3036 

55 

• 471 

0 

0534 

REF 

8 

LAST 

1454 

17,3037 

3 

1741 

1 

0535 

REF 

6 

LAST 

14-55 

17,3040 

51 

•471 

1 

053  6 

REF 

6 

LAST 

1454 

1 7 , 30  41 

0 

5754 

1 

0537 

REF 

0 

LAST 

1^54 

17,3042 

0538 

REF 

7 

LAST 

1455 

17, 3043 

0539 

REF 

2 

LAST 

1437 

17,3044 

0540 

054  1 

9 FF 

300 

LAST 

14  TO 

1 7,3045 

17,3046 

054? 

REF 

26 

LAST 

1454 

17,3047 

0543 

RFF 

7 

LAST 

1452 

17,3050 

0544 

-.EF 

44 

LAST 

1389 

17, 3051 

0545 

0546 

RFF 

12 

LAST 

1 45& 

17,305? 

17,3053 

0547 

17, 3054 

3 1737 

0 

CA 

ABSTJ 

55 '470 

1 

TS 

T 6FURTHA 

0 3114 

c 

TC 

JTLST 

0 0003 

3 4755 

1 

1 

R E L I NT 

CA 

ZERO 

51 ' 505 

0 

INDEX 

A XI SCTR 

55*535 

1 

TS 

SKI  P'J 

4 624  5 

5 1743 
0 0006 

0 

0 

1 

feedback  cs 

AD 

EXTEND 

THREE 

NUMBER! 

6 3C57 

0 

BZMF 

+ 3 

054  8 

REF 

99 

LAST 

14  53 

17,3055 

3 

4 7 52 

0 

054S 

17,3056 

1 

3060 

0 

0550 

REF 

1 72 

LAST 

1 4 54 

17,3057 

3 

4 753 

1 

06  5 1 

REF 

27 

last 

14  55 

1 7,3060 

51 

' 505 

0 

05  5 2 

REF 

2 

LAST 

133 

17,306  1 

55 

' 522 

1 

0553 

REF 

3 

LAST 

1452 

17,3062 

1 

3005 

0 

CA 

TWO 

TC  F 

+ 2 

CA 

ONF 

INDEX 

AXISCTR 

TS 

NO. U JETS 

TC  F 

LOOPER 

C55  4 
055  5 

06^  A 

P FF 
p EF 

DCF 

30  1 
12 

3 

LAST 

LAST 

1 APT 

- * o 

0557 

>\  l r 

REF 

42 

L A o i 

LAST 

0558 
055  9 

REF 

8 

LAST 

0560 

0561 
056? 

T FF 

1 

0563 

REF 

43 

LAST 

0564 

RFF 

2 

LAST 

0565 

I-  55 

17, 3063 

3 4.755 

1 

1454 

17, 306 4 

55 ' 525 

0 

#45 

17,3065 

55*526 

0 

1452 

17,3066 

3 47  51 

0 

17,3067 

0 0004 

0 

1455 

17,3070 

57 ' 535 

0 

17,3071 

0 0006 

1 

17,3072 

1 3074 

0 

17,3073 

0 5757 

1 

1455 

17,3074 

3 47  51 

0 

1412 

17,3075 

57 ' 536 

0 

17, 3076 

0 0003 

1 

XTRANS  CA  ZERO 

TS  TJU 

TS  TJV 

CA  FOUR 

INHINT 

XC  H S K I PU 

EXTEMO 

BZF  +2 

TC  WRITEU  -1 

CA  FOUR 

XC  H SKIPV 

RELINT 


0566 

17, 3077 

0 

0006 

1 

0567 

REF 

2 LAST  1 4*54- 

17,3100 

1 

3236 

1 

05o8 

17,3101 

0 

0004 

c 

056  6 

REF 

1 

17,3102 

0 

5770 

1 

0570 

17, 3103 

0 

C 003 

1 

EXTEND 

RZF 

INHINT 

TC 

REL I NT 


CLOSEOUT 
WRITEV  -1 


0571 

REF  3 LAST  14 55  17,3104 

1 323  6 

1 

TC  F 

0572 

17,3105 

00004 

0 

INDEXES 

DEC 

0573 

17,3106 

00015 

0 

DEC 

0574 

17,3107 

00026 

0 

+TJMINT6 

DEC 

CLOSEOUT 

4 

13 

22 


3:15  DEC 


2.1970 


LMDAP 


015  PAGE  1455 


USER'S  PAGE  NO.  14  E6  S4 


IN  QR  BANK  BY  NOW 


i 

I 

( 

( 

t 

4 

4 

t 


i 


GAP : 

ASSEMBLE  REVISION  O01  CF  AGC  PROG 

AM  API  INOP fc  BY 

E YL  E S 

3:  15  DEC.  2, 

1970 

LMDAP 

.015  PAGE  1456 

L 

Q , R- AX  ES  PCS  AUTOPILOT 

USER  * S 

PAGE 

NO.  15 

E6  S4 

0575 

17,3110 

77417  0 

-150MS 

DEC 

-240 

0576 

17,3111 

006 00  1 

BITS, 9 

OCT 

00600 

0577 

17,3112 

00266  0 

SCU  1RM 

OCT 

266 

057;  EF  1 17,7113  C2671  0 T J LA  WADI  GE  .AO'  T JLAW  +3  RETURN  ADDRESS  FOR  RC S ATTITUDE  CONTROL 

A Ot'7°  THE  JET  LIST: 

A 0580  THIS  IS  A WAITLIST  FOR  T6RUPTS. 


A - 

A 05  32 
A 05  3 3 

A 

A 058  5 
A 05  36 


CALLED  BY: 

CA  7 J TIME  WHEN  NEXT  JET$  WILL  BE  WR I TTE N 

IS  T6FURTHA 

CA  INDEX  AXIS  TO  RE  WIRTTFN  AT  IJ  (FROM  NOW) 

TS  T6FURTHA  +1 
TC  JTLST 


A ! 

A 0r  i 3 
a : 

A 0590 
A 0591 


EXAMPLE-  U-AXIS  AUTOPILOT  WILL  WRITE  ITS  ROT  AT  I ON  CODE  OF 
J F S INTO  CHANNEL  5.  IF  IT  DESIRES  TO  "*  URN  OFF  THIS  POLICY  WITHIN 
150MS  AND  THEN  FILE  NEXTU,  A CALL  TO  JTLST  IS  MADE  WITH  T6FURTHA 
CONTAINING  THE  TIME  TO  TURN  OFF  THE  POLICY,  t^FIJRTHA  +1  T HE  INDEX 
OF  THE  U-AX1S14),  AND  NEXTU  WILL  CONTAIN  THE  "U-TPANS"  POLICY  OR  ZERO. 


A0592 
A )5  i 


THE  i 1ST  IS  EXACTLY  3 LONG.  (THIS  LEADS  TO  SKIP  LOGIC  AND  I50MS  LIMIT) 
THE  I T PUT  IS  THE  LAST  MEMBER  OF  THE  LIST 


A0594 
A 05 


RETURNS  RY: 
+ TC 


a 

A 

A 059  P 
A0599 
AOa  C 

A 060  1 
A 0602 

0603 

0604 

0605 

0606 

0607 

0608 
060° 
0610 
06  1 1 

0612 
0613 
06  1 4 
0615 


DEE  I N I ■’  ] cm;  : ( OUTPUT  ) 


TIME6 
T6NEXT 
T6FUPTHA 
NXT6ADP 
T 6 NEXT  +1 
T6FUPTHA  +1 


TIE  CF  NEXT  RUPT 

DELTA  TIME  TO  NEXT  RUPT 

DELTA  TIME  FROM  2ND  TO  LAST  RUPT 


AXIS  INDEX 
AXIS  INDEX 
AXIS  INDEX 


REF 

8 

LAST 

1455 

17,31 14 

4 1470 

1 

JTLST 

CS 

T 6FURTHA 

REF 

K 

LAST 

1412 

17,3115 

6 00  31 

0 

AD 

TIMF6 

17,  3116 

0 0006 

1 

EXTEND 

REF 

1 

17,3117 

6 3131 

1 

BZMF 

M IDQRLST 

REF 

4 

LAST 

i4i| 

1 7,3120 

23*465 

1 

LXCH 

N XT 6 ADR 

REF 

o 

LAST 

1412 

17 ,312  1 

53*467 

1 

DXCH 

T6NEXT 

RFF 

o 

LAST 

14  56 

17,312$ 

53*471 

0 

DXCH 

T 6F0RT  HA 

REF 

6 

L Ac7 

1456 

17,3123 

54  031 

1 

TS 

TIME6 

REF 

5 

LAST 

1456 

17,3124 

23*465 

1 

LXCH 

N XT  6 ADR 

R EF 

5 1 

LAST 

’ 4 , 

17,3125 

3 4735 

1 

turnon 

C A 

BIT  15 

RFF 

17,3126 

0 C ( 06 

1 

EXTEND 

25 

LAST 

1 ' 

17,3127 

05  013 

0 

WOR 

CHAN13 

REF 

409 

LAST 

1451 

17,3130 

0 0002 

0 

TC 

Q 

Q - 
4 - 

13  - 


P-AXIS 
IJ-AXIS 
V-AXI S 
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0616 

REF 

10 

LAST 

1456 

17,3131 

6 1466 

1 

MIDORLST 

AO 

T6NEXT 

0617 

17 , 3132 

0 0006 

1 

EXTEND 

0618 

REF 

1 

17 ,3133 

d 3142 

0 

BZMF 

LASTCHG 

TIME6  + T6NEXT  - T IS  IN  A 

0619 

r>  E F 

11 

LAST 

1457 

17,3134 

23 '467 

0 

LXCH 

T6NEXT  +1 

1456 

1 ”7  3 1 "5  r. 

C O 1 /,  7 1 

D XF  H 

T r F 1 IP  T ! 1 A 

06  2 0 

r EF 

10 

LAST 

1 J t -5  13*5 

D D 1 H f 1 

u 

1 Or  ijr  1 1 1M 

0621 

1 7,3136 

0 00  06 

i 

EXTEND 

06  2 2 

REF 

7 

LAST 

1456 

17,3137 

60  031 

0 

SU 

TIME6 

0623 

REF 

12 

LAST 

1457 

17:,  3140 

: 53 '467 

i 

DXCH 

T6NE XT 

06  24 

REF 

410 

LAST 

1466 

17,3141 

0 C002 

0 

TO. 

a 

0625 

REF 

513 

LAST 

1454 

17, 3142 

4 COOO 

0 

l ASTCHG 

CS 

A 

0626 

REF 

30 

LAST 

1305 

17,3143 

6 4754 

0 

AO 

NEGO 

0627 

REF 

1 1 

LAST 

1457 

17, 3144 

55*470 

1 

TS 

T6FURTHA 

062  8 

REF 

411 

1 AST 

14  57 

17,3145 

0 0,02 

0 

TC 

a 

R 062  9 

rot-tquv  IS 

ENTERED  WITH  THE  Q-CriMPONEMT  OF  THE  QUANTITY  TO  BE 

FO!  MED  IN  A AND  THE  R-COMPONENT  IN  L. 

R 063  1 

rot 

-TOUV 

TRANS EUROS 

THE  QUANT  ITY  INTO  THE  NON-CP  THCGONAL 

U-V  A X T S 

SYSTEM.  IN  THE  U-V  SYSTEM  NO  CROSS-COUPLING  IS 

R 0633 

PRODUCED 

FROM 

R C S JET  FIRINGS 

. AT  THE  COMPLETION 

OF  ROT- 

•TOUV,  THE 

U- COMPONENT  OF  THE  TRANSFORMED 

QUANTITY  IS  IN 

R 06  3 6 

A AND  THE  V-COMP  r ENT  IS  IN  L 

• 

0636 

PEE 

1 

17,3146 

23<  740 

0 ROT-TOUV 

LXCH 

N0TEMP2 

(R)  IS  PUT  INTO  RCTEMP2 

0637 

17, 3147 

0 OC  06 

1 

EXTEND 

06  3 E 

REF 

2 

LAST 

134 

17,3150 

7 1627 

1 

MP 

COEFFQ 

06  3° 

R EF 

2 

LAST 

1457 

17,3151 

57 ' 740 

0 

XCH 

P0TEMP2 

(R)  GOES  TO  A AND  COEFFQ 

. (0)  TO  R0TEMP2 

064  0 

17,3152 

0 0006 

1 

EXTEND 

0641 

REF 

1 

17,3153 

7 1630 

1 

MP 

CCEFFR 

0642 

REF 

282 

LAST 

14  54 

17,3154 

54  001 

1 

TS 

L 

COEFFR.(R)  IS  PUT  INTO  L. 

0643 

REF 

3 

LAST 

1457 

17,3155 

6 1740 

0 

AD 

RQTEMP2 

0644 

REE 

1 

17,3156 

55*737 

1 

TS 

■RC  TEMPI 

COEFFQ.  (Q  )+COEFFR.  (R)  IS 

PUT  IN  RCTEMP1 

0645 

17, 3157 

1 3163 

1 

TCF 

+4 

064  6 

R EF 

514 

LAST 

1 -■  7 

! ’,  3160 

5 0 0 00 

1 

.1  f.-DEX 

A 

COEFFQ . ( Q ) + COEFFR .{ R ) 

HAS  OVERFLOWED 

0647 

REF 

8 

LAST 

142  0 

17,  316  ) 

4 4734 

1 

CS 

1 IMITS 

AND  IS  LIMITED  TO  POSMAX 

OR  NEGMAX 

064  8 

REF 

2 

LAST 

1457 

17, 3162 

55*737 

1 

TS 

R0TEMP1 

064  9 

REF 

4 

LAST 

1457 

17,3163 

4 1740 

1 

CS 

R0TEMP2 

065  0 

REF 

283 

LAST 

1457 

17,3164 

0 0001 

0 

AD 

1. 

-COEFFQ. (Q)  + COEFFR. (R) 

IS  NOW  IN  A 

0651 

I 7 , 7 16  6 

54  COT 

1 

TS 

7 

0652 

17, 3166 

1 3171 

1 

TCP 

+ 3 

065  3 

REF 

515 

LAST 

1457 

17,3167 

50  000 

1 

INDEX 

A 

-COEFFQ. (Q)  + COEFFP. (R) 

HAS  OVERFLOWED 

0654 

REF 

9 

LAST 

1457 

17,3170 

4 4734 

1 

CS 

LIMITS 

AND  IS  LIMITED  TO  POSMAX 

OF  NEGMAX 

0655 

REF 

3 

LAST 

1457 

17, 317  1 

23*737 

0 

LXCH 

P0TEMP1 

COEFFQ. (Q)  + COEFFR. (R) 

IS  PUT  INTO  L 

0656 

REF 

412 

LAST 

14  57 

17,3172 

0 0002 

0 

TC 

Q 

065  7 

REF 

9 

LAST 

14  53 

17, 3173 

51 ' 744 

1 SELETSUB 

INDEX 

ROT  INDEX 

065  8 

REF 

1 

17,3174 

3 32  2C 

1 

CA 

ALLJETS 

065° 

REF 

13 

LAST 

1455 

17,3175 

51 ' 743 

0 

INDEX 

HUMBERT 

0660 

REF 

1 

17, 3176 

7 3231 

0 

MASK 

TYPEPOl.Y 

0661 

REF 

q 

LAST 

1455 

17,3177 

55 ' 74  1 

0 

TS 

POLYTEMP 
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PCS  autopilot 

0662 

REF  7 

LAST  212 

17,3200 

7 12  62 

1 

MASK 

0663 

REF  516 

LAST  1457 

17,3201 

10  000 

0 

CCS 

0664 

17,3202 

1 3204 

0 

TCF 
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chsmask 

A 

+ 2 


0665 

REF 

413 

LAST 

1457 

17, 3203 

0 0002 

0 

TC 

0 

0666 

REF 

45 

LAST 

1455 

17,3204 

3 6245 

1 

C A 

THREE 

0667 

REF 

14 

LAST 

1457 

17,3205 

55' 743 

1 

FA! LOOP 

TS 

NUMBERT 

0668 

REF 

10 

LAST 

1457 

17,3206 

5 1'744 

1 

INDEX 

ROT  INDEX 

0669 

RFF 

R 

LAST 

1457 

17 ,3207 

3 3225 

1 

Ca 

AL  L JETS 

0670 

REF 

15 

LAST 

1458 

17, 3210 

51  '743 

0 

INDEX 

HUMBERT 

067\ 

REF 

2 

LA  FT 

1457 

17,321  1 

7 3231 

0 

MASK 

TYPEPOLY 

0672 

REF 

10 

LAST 

1457 

17,3212 

55 ' 741 

0 

TS 

PCLYTEMP 

0673 

REF 

8 

LAST 

1458 

17,3213 

7 1262 

1 

MASK 

CH5MASK 

0674 

1 1 , 3214 

0 0006 

1 

EXTEND 

067c 

REF 

1 

17,3215 

1 3203 

1 

BZF 

F A I LOOP  - 

-2 

0676 

REF 

16 

LAST 

14  5 8 

17,3216 

11 '743 

1 

CCS 

NUMBERT 

0677 

r 5 p 

7 

LAST 

1438 

17,3217 

1 

rr  p 

c A T 1 POP 

1 DC  '•>  J 

1 

1 V_,  1 

1 /A  1 L 'J'.'  I 

0678 

REF 

28 

L AST 

1455 

17,3220 

51  ' 505 

0 

INOEX 

A X I SCTR 

0679 

REF 

13 

LAST 

1455 

17,3221 

55 ' 525 

0 

TS 

TJU 

A 

0680 

KEF 

51 

LAST 

1443 

17,3222 

0 5 567 

0 

TC 

ALA, CM 

vOY 

0681 

17 , 3223 

02006- 

1 

OCT 

02004 

\ 

0682 

REF 

3 

! AST 

14  53 

17,3224 

1 2777 

0 

TCF 

NOROT  AT 

0633 

17,3225 

00110 

1 

ALLJETS 

OCT 

00110 

-u 

6 13 

0686 

17,3226 

00022 

1 

OCT 

00022 

-V 

2 9 

0685 

17,3227 

002  04 

1 

OCT 

00204 

+u 

5 14 

0686 

17,3230 

00041 

1 

OCT 

00041 

+ v 

1 10 

0687 

17 , 3231 

OC  125 

1 

TYPEPPLY 

OCT 

00125 

-X 

1 5 

9 13 

069  8 

17, 3232 

00252 

1 

7f  T 

O 0 ? S ’> 

+ X 

O A 

1 A 1 A 

\j\JC  DC 

C o 

IU  L *r 

0689 

17,3233 

00146 

1 

OCT 

00146 

A 

2 5 

10  13 

0690 

17, 3234 

00231 

1 

OCT 

00231 

B 

1 6 

9 14 

06  91 

17, 3235 

0037  7 

1 

OCT 

nru77 

A 1 1 

5 6 9 10  13  14 

Uyj  f / 

1 C 

R 06  9 2 

THE  FOLLOW  IN: 

3 SFTS 

THE  INTERRUPT  FLIP- 

FLOP  AS  SOON  AS 

POSSIBLE, 

WHICH 

PERMITS 

A RETURN  TO  THE  INTERRUPTED  JOB 

0694 

REF 

1 

17,3236 

3 3240 

1 

CLOSEOUT 

CA 

ADRRUPT 

0695 

REF 

l 

17,3237 

0 7754 

0 

TC 

MAKER'JPT 

069A 

REF 

1 

17,3240 

03241 

0 

ADR  ; UPT 

AD  :ES 

ENDJASK 

0697 

REF 

5 

LAST 

1428 

17,3241 

5 3 ' 7 54 

1 

ENDJA  SK 

DXCH 

D APARUPT 

0698 

REF 

13 

LAST 

1428 

17,3242 

52  011 

0 

DXCH 

ARUPT 

0699 

REF 

2 

LAST 

1428 

17,3243 

53' 756 

0 

DXCH 

DAPBQRPT 

0700 

REF 

4 

LAST 

1428 

17,3244 

5fc  017 

1 

XCIH 

ERUPT 

0701 

REF 

414 

LAST 

1458 

17,3245 

22  002 

0 

LXCH 

Q 

0702 

REF 

10 

LAST 

1429 

17,3246 

3 4735 

1 

CAF 

NEGMAX 

NEGATIVE  DAPZRIJPT  SIGNALS  JASK  IS  OVFR 

0703 

REF 

4 

LAST 

1428 

17 , 324  7 

93 '760 

0 

DXCH 

DAPZRIJPT 

0704 

REF 

2 

LAST 

1428 

17,3250 

52  016 

1 

DXCH 

ZRUPT 

0705 

REF 

1 

17, 3251 

1 52  72 

1 

TCF 

NOQRSM 
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SETLOC 
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R 000 1 PROGRAM  DESCRIPTION 

R 0002  DESIGNED  BY:  R.  D.  GOSS  AND  P.  S.  WEISSMAN 


R 0003  C'D  ED  BY:  P.  S.  WEISSMAN  28  FEBRUARY  1968 


► 

► 


> 

3' 

► 

I 

2" 


R 000  A TJETLAW  IS  CAI.LED  AS  A SUBROUTINE  WHEN  THE  LEM  IS  NOT  DOCKED  AND  THE  AUTOPILOT  IS  IN  THE  AUTOMATIC  OR 

ROOOf  ATTITUDE-HOLD  MODE  TC  CALCULATE  THE  JET-FIRING-TIME  ( T JET } REQUIRED  FOR  THE  AXIS  IMDICATED  BY  AXJSCTr  : 

R0008  -1  INDICATES  THE  P-AXIS 

P 0009  +0  INDICATES  THE  U-AXIS 

R0010  +1  INDICATES  THE  V-AXIS. 

ROC-11  ’HE  PEGISTtr  S E AND  ED  ~>T  CONTA  ? ’ THE  A P P L n P R 1 ATE  ATTITUDE  ERROR  AND  ERROR  RATE  AND  SENSETYP  SHOWS  WHETHER 

13  UNBALANCED  COUPLES  ARE  PREFERRED.  TJETLAW  ALSO  USES  VARIOUS  FUNCTIONS  OF  ACCELERATION  AND  DEADBAND  WHICH  A " F 

R 001 5 COMPUTED  IN  THE  1/ACC0NT  SECTION  C'F  1/ACCS  AMD  ARE  STORED  IN  SUCH  AN  ORDER  THAT  THEY  CAN  BE  CONVENIENTLY 

R 001 7 ACCESSED  BY  INDEXING. 

R 001 8 THE  SIGN  3 F THE  REN"  I RED  ROT  AT  IGN  IS  CARRIED  TH'OUGH  TJFUAW  AS  ROTSENSE  AND  IS  FINALLY  APPLIED  TO  T JET  JUST 

R 002  0 PREVIOUS  Tf  ITS  STORAGE  I-  THE  LOCATION  CO'  ••  E SPENDING  TO-  THE  AXIS  (TJP,  TJU  OP  TJV).  THE  NUMBER  OF  JETS  THAT 

R 002  ? TJETLA*  ASSUMES  ‘ILL  BE  USED  IS  INDICATED  BY  THE  SETTING  OF  NUMPERT  FOR  THE  U-  OR  V-AXIS.  TWO  JETS  ARE  ALWAYS 

ASSUMED  FOR  THE  P-AXIS  ALTHOUGH  FOUR  JETS  WILL  BE  FIRED  WHEN  FIREFCT  IS  MORE  NEGATIVE  THAN  -4.0  DEGREES 
R0026  (FT  EFC  IS  ‘HE  DISTANCE  TO  A SWITCH  CURVE  IN  THE  PHASE  PLANE ) AND  A LONG  FIRING  IS  CALLED  FOP. 

ROC?  IN  ORDER  TO  AVOID  SCALING  DIFFICULTIES,  SIMPLE  ALGORITHMS  TAGGED  RUFLAW1,  -2  AND  -3  ARE  RESORTED  TO  WHEN  THE 

R 00  30  FT1'.-,  AND/OR  FLOOR  RATE  APE  LARGE. 


R 003 1 C A I I IMG  SEQUENCE: 

R 0032  TC  TJETLAW  (MUST  BE  IN  JASK) 

R0033  OR 

R003'  INHINT  (MUST  BE  IN  JASK) 

ROC'  35  TC  IBNKCAIL 

R0036  CADR  TJETLAW 

0003?  RE  L I NT 


R 0038  EXIT:  RETURN  TO  Q. 

R003°  INPUT: 

R 0040  FROM  THE  CALLER:  E,  E OUT , AXISCT"  , SENSETYP,  TJP,-U,-V. 

ROOM'  F I / ACC"  ":  '•«  ENABLES  BEG  INNING  A'  BLOCKTOP  (INCLUDING  FLAT,  Z 0 N E 3 L I M AMO  ACCSWtl,-V). 

R 0043  OUTPUT: 

P.  Of  44  TJP,-U  -V,  NUNBE  ‘ ( 0 A F T E M F 5 ) , FIREFCT  ( DAPTEMP3  ) . 

R0C45  DEBT- IS: 

R 00*  M A,  I,  Q , E,  FOOT,  DAPTEMP1-6,  DAPTR  EG1-4 . 

R 0047  ALARM:  NONE 


0043 

17,3252 

BANK 

1 7 

004  0 

°EF 

4 

LAST 

1 44  2 

17,2000 

-SET LiC 

DAPS  2 

0050 

17,3252 

BANK 

0051 

REF 

1 3 

LAST 

1438 

E6 , 1824 

E8ANK= 

TJP 
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0052 

REF 

1 

COUNT* 

$$/DAPT J 

0053 

1 7,3252 

0 0006 

1 

TJE7LAW  EXTEND 

SAVE  Q FOR  RETURN. 

0054 

• EF 

1 

17,3253 

23' 745 

0 

QXCH 

HOL  DO 

R 005 5 

SET 

INDEX  EPS  T"  COPE  ESP"-:  0 Tr’ 

the  AXIS 

AND  Tr  THE  SIGN 

OF  EDOT 

0056 

REF 

29 

LAST 

1458 

17,3254 

51 ' 505 

0 

INDEX 

AXISCTR 

AXI SD I FF ( - 1 ) =N0  OF  LOCATIONS  BER  P AND  U 

0057 

REF 

2 

LAST 

1449 

17, 3255 

3 3722 

0 

CAE 

A X 1 SDI FF 

AX  I SDI FF  <0 ) = 0 

005  8 

REF 

1 

17,3256 

55 ' 746 

1 

TS 

ADRSDIF1 

AXISDIFF ( +1 ) = N 0 OF  LOCATIONS  BET  V AND  U 

ri  a c rs 

n r c 

SJ 

* ACT 

1*7  2 0 "7 

o i i / o 7 

1 

f A L 

F nnT 

TF  FHPT  MFFATTVF  CTFI^  1 ID  CCT  DC  UAI  IICC 

Kr  r 

n 

LAV  ' 

1 **  c 

L • t . 

j I t £ f 

I 

U M C 

L_  1/ 

JLr  cut  1 ''cliAl  IVt,  r I U A U ^ it  1 1 . VALUtb 

0060 

17,3260 

0 0006 

1 

EXTEND 

THAT  ALLOW  USE  OF  SAME  CODING  AS  FOR 

0061 

REF 

1 

17,3261 

6 32  66 

0 

BZMF 

NEGEDOT 

POSITIVE  EDOT. 

0062 

KEF 

2 

LAST 

1 4.6  1 

1 7 , 32o  2 

31 ' 746 

0 

CAE 

AOPSOi FI 

SET  A SECOND  INDEXER  WHICH  MAY  BE 

0063 

REF 

1 

17 , 3263 

55 • 744 

0 

TS 

ADR  SO  I F 2 

MODIFIED  BY  A DECISION  FOR  MAX  JETS. 

006  A 

P.  E F 

1 

17, 3264 

3 3724 

0 

CAF 

SENSOR 

FOP  POSITIVE  EDOT,  ROTSENSE  IS 

Ar , A c: 

cc 

i 

17.  -4  0 c c 

r\ 

T r t- 

C CT  C p j\|  C p 

fMTTTAI  T7FP  DfK  T T 1 UP 

UUC  T5 

c r 

i 

1 Jd  fO 

U 

1 U 1 

O L 1 J C 1 V o L 

INI  1 lALlicU  rUjl  1 IVl. 

0066 

REF 

q 

LAST 

1452 

17, 3266 

4 1752 

i 

NEGEDGT  CS 

E 

IN  ORDER  FOR  NEC  EDOT  CASE  TO  USE  CODING 

0067 

REF 

10 

LAST 

1461 

17, 3267 

55' 752 

l 

IS 

E 

OF  PUS  EDOT,  MUST  MODIFY  AS  FOLLOWS: 

0068 

'.EF 

4 

LAST 

146  1 

17, 3270 

4 1427 

0 

CS 

EDOT 

1. COMPLEMENT  F AND  EDOT. 

0060 

REF 

5 

LAST 

1461 

1 7, 3271 

55*427 

0 

TS 

EDOT 

2. SET  SENSE  OF  ROTATION  TO  NEGATIVE 

0070 

PEF 

62 

LAST 

14'4t 

17,3272 

.3  6 7 53 

1 

CAF 

BIT1 

( REVERSED  LATER  IF  NECESSARY). 

007  1 

REF 

3 

LAST 

146  1 

17,3273 

27 ' 746 

1 

ADS 

ADRSDIF1 

3. INCREMENT  INDEXERS  BY  ONE  SO  THAT 

0072 

REF 

2 

LAST 

1 1 

17,3274 

55*744 

0 

TS 

ADRSDIF2 

THE  PROPER  PARAMETERS  ARE  ACCESSED. 

0073 

REF 

2 

LAST 

1461 

17,3275 

4 37  24 

1 

CS 

SENSOR 

0074 

RFF 

1 

17,3276 

§5 ' 740 

1 

SET SENSE  TS 

ROTS  ENSE 

R 007? 

test  magnitude 

OF  E 

{ ATT  TTUDE 

ERRO  , 

S IN  CL  E-PR  EC  I ST  ON, 

SCALED  AT  PI 

P ADI  AMS ) : 

P 0077 

IF  GR 

EATER 

THAN  (CR 

EQUAL  TO) 

PI/16  RADIANS,  GO  TO  THE  SIMPLIFIED  TJET  ROUTINE. 

R 007  9 

IF  LESS  THAN  DI/16  RADIANS. 

RESCALE  TO  PI/4. 

0080 

REF 

1 1 

LAST 

146  1 

17, 3277 

31 '752 

0 

CAE 

E 

PICK  UP  ATTITUDE  ERROR  FOR  THIS  AXIS 

0081 

17,3300 

0 0006 

1 

EXTEND 

008? 

RFF 

*9 

LAST 

1444 

17, 3301 

7 4 747 

0 

MP 

BITS 

6 HI  FT  RIGHT  f*EN  BITR;  IF  A-PEGTSTEF  IS 

0083 

REF 

517 

LAST 

145  8 

17,3302 

10  000 

0 

CCS 

A 

ZERO,  RESCALE  AND  TEST  EDOT. 

0084 

REF 

1 

17,3303 

1 3664 

1 

TCF 

RUFLAW2 

008  5: 

< EF 

1 

17,3304 

1 3306 

0 

TCF 

SCALES 

0036 

P.  EF 

1 

17,3305 

1 3630 

0 

TCF 

RUFLAW1 

0087 

REF 

56 

' AST 

1 44  4 

17,3306 

3 *737 

0 

SCALFE  CAF 

B IT  1 3 

ERROR  I?  IN  l SCALED  AT  PI/16.  RESCALE 

008  8 

I 7, 3307 

0 0006 

1 

EXTEND 

IT  TO  PI/4  AMD  SAVF  IT. 

0089 

REF 

284 

LAST 

1457 

17,3310 

7 0001 

1 

MP 

L 

0090 

REF 

12 

LAST 

146  1 

17,3311 

55 ' 752 

1 

TS 

E 

R 009  1 

TEST 

MAGNITUDE 

OF  EDIT  ( ERROR 

TATE  SCALED  AT  PI/4  F AD  I AN S /SECOND ) 

R 0092 

IF  GREATER 

THAN  (O': 

I) 

PI/32  -ADT  AMS/SECOND,  G- ' TO 

THE  SIMPLIFIED  TJET  ROUTINE. 

R0094 

IF  L E S S THAU  °T/32  I ADT  A'N  S / SECOND , THEN  > ESCALE  TO  PT/32  P ADI  ANS/SECOND. 

0096 

REF 

6 

LAST 

1461 

17,3312 

31 '427 

1 

CAE 

EDOT 

PICK  UP  SINGLE-PRECISION  ERROR-RATE 

AP : ASSEMBLE  REVISION  001  Or  AGC  PROGRAM  APllROPE  BY  EYlFS 


0097 
009  8 

0099 

0100 
0101 

8 010  2 

0103 

0 1 0 
010  5 
010' 

0107 

0108 

0109 

0110 
0111 
0112 

0113 

0114 
0119 
01  It 

0117 

0118 

0119 

0120 
0121 
012  2 
0123 
012  A 

0125 

0126 

R 0 1 2 ? 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

013° 

0140 


f JET  I AW 


REF 

57 

LAST 

1431 

17. 3313 

17 . 3314 

17.3315 
17, 3 BIS 
17,3317 

H FR  E *** 

REF 

REF 

*** 

1 

1 

F T N El 

AW  CTALtC 

REF 

7 

LAST 

1461 

17 ,3320 

REF 

8 

LAST 

l'+- 2 

1 7, 3321 

REF 

57 

LAST 

1461 

17,3322 

17,332? 

17.3324 

17.3325 

REF 

1 

17,3326 

0 

0006 

1 

EXTEND 

7 

0 

4750 

0GQ6 

0 

1 

MP 

EXTEND 

8 IT4 

1 

33  20 

1 

BZF 

SCALED!  T 

l 

36  72 

0 

TCF 

• UFLAW3 

23 ’427 

1 

SC  AL  EDOT  LXCH 

EDOT 

1 > 4 27 

L 

CAE 

E DOT 

0 00  06 

1 

EXTEND 

7 0000 

0 

< n 1 1 A o r: 

0 0006 

1 

EXTEND 

7 4737 

1 

MP 

BIT13 

55 1 737 

1 

IS 

EDOTSO 

»EF 

13 

LAST 

146  1 

17,3327 

1 1 

l 

17,8330 

6 

17,3331 

1 

REF 

2 

LAST 

1462 

l7 , 3332 

6 

17. 3333 

0 

REF 

4 

L A S "r 

146  1 

17,3334 

5 

REF 

1 

17,3335 

61 

17,3336 

0 

REF 

1 

17 , 3337 

6 

REF 

ICO 

LAST 

1455 

17,3340 

3 

REF 

3 

LAST 

1461 

17,334  1 

27 

REF 

44 

LAST 

14  5 5 

17,3342 

3 

REF 

I 

1 7 , 33' 3 

1 

PEF 

5 

1 AST 

17,3344 

11 

REF 

2 

LAST 

1462 

17,3345 

1 

REF 

1 

17 ,3346 

1 

REF 

17 

LAST 

1458 

17,3347 

55 

BEG 

i ’ n i no 

■ OF 

T JET  CALCULATIONS: 

REF 

2 

LAST 

1462 

17,3350 

4 

17,3351 

0 

REF 

,....,,4  .. 

LAST 

1 46  2 

1 7 . ? 

C 

PEF 

8 

LAST 

134 

1 7,335  3 

7 

REF 

5 

L AST 

1 462 

17, 3354 

51 

REF 

2 

LAST 

14.6? 

1 7,3365 

6 

17,3356 

0 

REF 

1 4 

LAST 

1462 

17,3357 

6 1 

REF 

2 

LAST 

1438 

17,3360 

55 

17, 336  1 

0 

REF 

1 

17,3362 

6 

RFF 

6 

LAST 

1462 

17,3363 

51 

REF 

1 

17, 3364 

31 

* 15 2 

1 

EP > TEST 

CCS 

E 

CV*7  D £ 

1 

A D 

-9QFG 

DiC.-/ 

1 

3333 

0 

TCF 

+ 2 

372  5 

1 

AD 

-3DEG 

0006 

1 

EXTEND 

1746 

0 

INDEX 

ADR  SOI  FI 

’601 

1 

SU 

FIREDB 

0006 

1 

EXTEND 

3344 

1 

BZMF 

SENSTEST 

47  52 

0 

MAXJETS 

CAF 

TWO 

• 7 44 

0 

AOS 

ADRS DI F2 

47  51 

0 

CAF 

FOUR 

3347 

G 

TCF- 

'-JCALC 

i KQO 

cciuctFPT 

CCS 

< F (C  f - TV  P 

O L.  1 \ ■ j ! O I 

g Lr'IO  L ! T r 

3347 

0 

TCF 

TJCALC 

3340 

1 

TCF 

MAXJETS 

• 743 

1 

T J CALC 

TS 

NUMBER T 

1737 

1 

cs 

EDQTSQ 

0006 

1 

EXTEND 

1744 

1 

INDEX 

ADRSDIF2 

1567 

0 

MP 

1/ANETl 

’ 74  6 

0 

INDEX 

ADRSDIF1 

1601 

1 

AD 

F IREDB 

0006 

1 

EXTEND 

’752 

0 

SU 

E 

• 741 

0 

TS 

FIPEFCT 

0006 

1 

EXTEND 

3542 

1 

BZMF 

Z0N1 ,2 ,3 

• 746 

0 

Z0NE4 , 5 INDEX 

ADRS  01 F 1 

’ 573 

1 

CAE 

1 /ACQAST 

% 


I 
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USER’S  PAGE  NO.  3 E6  S4  % 

FOR  THIS  A X I S = 

SHIFT  RIGHT  ELEVEN  BITS,  IF  THE  A-REG  IS  • 

ZERO,  THEN  RESCALE  AND  USE  FINELAW. 


EDOT  IS  SCALED  AT  PI/32  R AO  I ANS /$ ECOND . 
COMPUTE  (EDOT  )( EDOT 1 

PRODUCT  SCALED  AT  PI(2)/2(10)  RAD/SEC. 

SHIFT  RIGHT  TWO  BITS  TO  RESCALE  EDOTSO 
TO  PI[2)/2(8)  RADI  2 ) /SEC( 2) . 

DOES  BIG  ERRCR  (THPEE  DEG  BEYOND  THE 
DEADBAND)  REQUIRE  MAXIMUM  JETS? 


IF  NOT:  ARE  UNBALANCED  JETS  PREFERRED! 

IF  YES  : INCREMENT  ADDRESS  LOCATOR  AND 
SET  SWITCH  FOR  JET  SELECT  LOGIC  TO  4. 
(ALWAYS  DP  THIS  FOR  P-AXIS! 

DOES  Tf:  ANSL  AT  I ON  PREFER  MIN  JETS. 

YES.  USE  MI N- JET  PARAMETERS. 

NO.  GET  MAX-JET  PARAMETERS. 

SET  TO  +0,1,'  FOR  (U.V-AXES)  JET  SELECT. 


SCALED  AT  PI(2)/2(8). 

.9/ ACC  SCALED  At  2 ( 6 ) / P I SEC ( 2 ) /RADIAN. 

DEADBAND  SCALED  AT  PI/4  RADIAN. 

ATTITUDE  ERROR  SCALED  AT  PI/'  RADIAN. 
-E-.5 (EDQTSQ) /ACC-DB  AT  PI/4  RADIAN. 


5/ACC  SCALED  AT  2(6  ) / P I WHERE 


GAP: 


ASSEMBLE  REVISIO!  001  OP  AGO  PROGRAM  AP11R0PE  BY  EYLES 


L TJFT  LAW 


E DOT  SQ 
E 

ADf  SOI  FI 
COAST.DB 

ZONE  5 


R014O  zrtr  4 IS  THE  COAST  REGION.  HOWEVER,  IF  THE  JETS  ARE  ON  AND  DRIVING 

R0151  A,  THE  AXIS  WITHIN  + OF  - ( DP  + FL  AT  ) FOR  DRIFTING  FLIGHT,  OR 

P0152  3.  THE  !JR  U Al  T AF  GET  PAF  ABOLA  FOP  POWERED  FLIGHT 

R 01 5 3 THEN  TFE  THRUSTERS  APE  KEPT  ON. 


0154 
015  5 
0156 
0167 

0158 

0159 

REF 

RFF 

DC  r 

30 

1 

2 

1 

LAST 

i ACT 

146  1 

14  61 

1 7.3374 

1 7. 3375 

17. 3376 

17.3377 

17.3400 

17.3401 

5 1 ' 505 
4 1525 
0 0006 
7 1740 
0 0006 
6 3422 

0 

0 

1 

1 

1 

0 

Z0NE6 

INDEX 

CS 

EXTEND 

M P 

AX  I SCI R 
TJETU 

ROT  SENSE 

COASTTJ 

K tr  r 

REF 

L A : 

r!  r 

EXTEND 

BZMF 

0160 

REF 

1 

17,3402 

11 ' 555 

1 

JETSON 

CCS 

FLAT 

0161 

E F 

1 

17,3403 

1 3414 

1 

TO  F 

DRIFT/ON 

C162 

REF 

3 

LAST 

1^62 

17,3  404 

4 1741 

0 

CS 

FIREFCT 

0163 

REF 

8 

LAST 

1463 

17,3405 

51 '746 

0 

INDEX 

ADRSDIF1 

016  4 

REF 

1 

17,3406 

6 16U5 

0 

AD 

AX  I SO  I ST 

0165 

17,3407 

0 00  06 

1 

EXTEND 

0166 

R£F 

2 

LAST 

1463 

17,3410 

6 3422 

0 

BZMF 

COASTTJ 

pi  ( 7 

DCC 

i 

17.  ? 1 1 

Ci 

TO 

7 1 pirnMO 

v Iv  1 

r\  c r 

1 

L » _ • I 1 

V D C.  C 

u 

L 1 cL  D 4 U l i i 

0168 

REF 

4 

LAST 

1463 

17,3412 

31 ' 741 

1 

CAE 

FIREFCT 

0169 

REF 

1 

17,341 3 

1 3562 

1 

TCF 

ZONE  1 

017  0 

REF 

9 

LAST 

1463 

17*3414 

51 ' 746 

0 

DRIFT/ON 

INDEX 

ADFSDIF1 

0171 

tff 

3 

LAST 

14  6 2 

17, 3415 

4 16  01 

0 

CS 

FIRE  DB 

0172 

17,3416 

6 0000 

1 

DOUBLE 

0173 

REF 

5 

LAST 

1463 

17,3417 

6 174  1 

1 

AD 

FIREFCT 

0174 

17,3420 

0 00  06 

1 

EXTEND 

0175 

17,3421 

6 3424 

0 

BZMF 

+3 

0176 

7 E F 

3 02 

LAST 

1 

17,5422 

3 6-7  5 5 

1 

COAST  I J 

CAF 

ZER  0 

0177 

REF 

1 

17,3423 

1 34  66 

1 

TCF 

RETURNTJ 

0178 

REF 

2 

LAST 

1463 

17,3424 

0 3526 

0 

TC 

Z123C0MP 

017c 

REF 

1 

17, 3425 

1 3547 

0 

TCF 

Z0NE2 ,3 

0180 

REF 

285 

LAST 

1461 

17  ,3426 

5 4 0 0 1 

1 

ZONES 

TS 

L 

0181 

REF 

3 

LAST 

1463 

17,3627 

11 >740 

1 

CCS 

ROT SENS 6 

01*2 

17 , 3430 

1 3436. 

0 

TCF 

+ 4 

01  83 

REF 

21 

LAST 

1404 

17,3431 

0 5705 

0 

TC 

CCSHOLE 

0184 

REF 

101 

LAST 

146? 

17,3432 

4 4752 

1 

CS 

TWO 

0141  17,3365  0 0006  I EXTEND 

01^2  REF  3 LAST  1462  I 7, 3366  7 1737  1 MP 

0143  REF  15  LAST  1462  17,3367  6 1752  0 AD 

0144  REF  7 L ACT  1462  17,3370  51* 746  0 INDEX 

0145  REF  1 17,3371  6 1603  0 AD 

0146  17,3372  0 0006  1 EXTEND 

0147  REF  1 17,3373  6 3426  1 BZMF 

A 0148 
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USER'S  PAGE  NO.  4 E6  S4 

ACC  = M AX  ( AMIN,  AOS-). 

SCALED  AT  PI/2 (8) . 

SCALED  AT  PI/4 

SCALED  AT  PI/4  POS.  FOP.  NEG.  INTERCEPT. 
TEST  E+.5I EDOTSQt /ACC+DB  AT  PI/4  RADIAN. 
IF  FUNCTION  NEGATIVE,  FIND  TJET. 

IF  FUNCTION  PnSITIVF,  IN  ZONF  4. 

TOWARD 


IS  THE  CURRENT  VALUE  IN  TJET  NON-ZERO 
WITH  SENSE  OPPOSITE  TO  EDOT  , 

( I . E . , ARE  JETS  ON  AND  FIRING  TOWARD  f 

THE  DES  IPABLE  ST ATE  ) . 

NO.  COAST.  I 

YES.  IS  THIS  DRIFTING  OP  POWERED  FL  IGHT | 

DRIFTING.  GO  MAKE  FURTHER  TEST.  I 

POWERED  (OR  ULLAGE).  CAM  TARGET  PARABOLA 

BE  PEACHED  FROM  THIS  POINT  IN  THE  * 

PHASE  PLANE  I 

NO.  SET  TJET  = 0.  ' 

YES.  CALCULATE  TJET  AS  THOUGH  IN  ZONE  1 
AFTER  COMPUTING  THE  REQUIRED 

PARAMETERS.  ■ 

CAN  TARGET  STRIP  OF  AXIS  BE  FEACLED  FROM 

THIS  POINT  IN  THE  PHASE  PLANEl  1 


MO.  SET  TJET  = 0. 


YES.  CALCULATE  TJET  AS  THOUGH  IN  ZONE  2 
OR  3 AFTER  COMPUTING  REQUIRED  VALUES. 

TEMPORARILY  STORE  FUNCTION  IN  L. 

MODIFY  ADPSDIF2  FOR  ACCESSING  1 / A N E T 2 
AMO  ACCFCTZ5,  WHICH  MUST  BE  PICKED  UP 
FROM  THE  NEXT  LOWER  REGISTER  IF  the 
(ACTUAL)  ERROR  RATE  IS  NEGATIVE. 


* 
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L 

T JET 

L AW 

USER'S  PAGE  NO.  c E6  S4 

0189 

REF 

5 

LAST 

146  2 

17,3433 

27 ' 744 

0 

ADS 

ADRSDIF2 

0136 

REF  286 

LAST 

1463 

17,3434 

30  CGI 

0 

+ 4 

CAE 

L 

Cl  37 

17,3  4 3 5 

0 00  06 

1 

EXTEND 

0188 

REF 

6 

LA  ST 

146* 

17,3  43 f 

5 1744 

L 

INDEX 

ADRSD1F2 

TTOAXIS  AND  HH  APE  THE  PARAMETERS  UPON 

0189 

r’  EF 

1 

17, 3437 

7 1 5 76 

0 

MP 

ACCFCTZ5 

WHICH  THE  APPROXIMATIONS  TO  TJET  APE 

0190 

17, 34*-0 

20  001 

1 

DDOUBL 

BASED. 

0191 

17 , 346  1 

20  001 

1 

DDOUBL 

0192 

REF 

1 

17,3442 

5 3 ' 750 

c 

DXCH 

HH 

DOUBLE  PRECISION  H SCALED  AT  8 SECI2). 

019? 

REF 

7 

LAST 

1464 

17,3/4  3 

51 ' 744 

1 

INDEX 

ADFSDIF2 

0194 

REF 

2 

LAST 

16  V' 

17, 3444 

31  * 970 

1 

CAE 

1/ANET2 

SCALED  AT  2I7I/PT  SECI21/RAD. 

01  °5 

17,3465 

0 00  06 

1 

EXTEND 

0196 

REF 

9 

LAST 

1462 

17 , 3446 

7 1427 

0 

MP 

EDOT 

SCALED  AT  “1/2(5) 

0197 

REF 

1 

17,34*  7 

55 ' 742 

0 

TS 

TTGAX I S 

SCALED  AT  4 SEC. 

R01 

TEST 

WHETHER  T JET  GREATER  THAN 

50  MSEC. 

01  9r 

17,3450 

0 COOK 

1 

EXT  END 

020  n 

REF 

1 

17,3451 

7 3736 

0 

MP 

— . 05AT2 

H - .05  TTOAXIS  - .00125  G.T.  ZERO 

0201 

REF 

2 

LAST 

1464 

17,3452 

6 1747 

1 

AD 

HH 

(SCALED  AT  8 SEC(2)  ). 

0202 

REF 

8 

LAST 

1308 

17 , 345  3 

6 7746 

0 

AD 

NEG2 

0203 

17 , 3454 

0 0006 

1 

EXTEND 

0204 

REF 

1 

1743455 

6 3503 

l 

BZMF 

FC  HULA  1 

R 0209 

TEST 

WHETHER  T JET  CREATE!  THAN 

1 150  MSEC 

02  06 

REF 

2 

LAST 

1464 

17,3456 

31 '742 

1 

CAE 

TTOAXI S 

0207 

17,3457 

0 6006 

1 

EXTEND 

0208 

REF 

1 

17,3460 

7 3735 

1 

MP 

-.  15AT2 

H - .15  TTOAXIS  - .01125  G.T.  ZERO 

0209 

REF 

3 

LAST 

1464 

17,3461 

6 1747 

1 

AD 

HH 

(SCALED  AT  8 SEC ( 2 ) ) 

0210 

REF 

1 

17,346  2 

6 3726 

1 

AD 

-.0112A8 

0211 

17 ,3463 

0 00  06 

1 

EXTEND 

0212 

REF 

1 

17,3464 

6 351  3 

0 

BZMF 

FORMUL  A2 

R 02  1 3 

IF  T JET 

greater  than 

150  MSEC, 

ASSIGN  IT  VALUE 

OF  260  MSEC,  SINCE  THIS 

R 021  o 

I S 

ENOUGH  T3  ASSURE  NO  SKIP 

NEXT  CSP 

(100  MSEC ) 

• 

0215 

REF 

31 

LAST 

1336 

17,3465 

3 *741 

1 

FULLTIME 

CAE 

8 I T 1 1 

250  MSEC  SCAT  ED  AT  4 SEC. 

R0216 

RETURN  TO  CALLING  PROGRAM  WITH  JET  TIME 

Sc  AL  E D 

AS  T I M E6 

AND  SIGNED. 

0217 

17,3466 

0 0006 

1 

RETURNT  J 

EXTEND 

ALL  BRANCHES  TERMINATE  HERE  WITH  TJET 

0218 

REF 

4 

LAST 

lA6  3 

17,3467 

7 1740 

1 

MP 

POT  SENSE 

(SCALED  AT  4 SEC)  IN  THE  ACCUMULATOR. 

02 1 r' 

REF 

31 

LAST 

1 * 4 3 

17,3670 

51 * 505 

0 

INDEX 

AXISCTR 

• IT  SEN'S  F APPL  TES  SIGN  AND  CHANGES  SCALE. 

0220 

REF 

2 

LAST 

1463 

17,3471 

55 '525 

0 

TS 

TJETU 

0221 

17,3472 

0 0006 

1 

EXTEND 

0222 

REF 

32 

LAST 

1464 

17,3473 

5 1505 

0 

INDEX 

AXISCTR 

0223 

REF 

2 

LAST 

134 

17,3474 

7 1547 

l 

MP 

ACCSWU 

SET  SWITCH  FOP  JET  SELECT  IF  ROTATION  IS 

0224 

REF 

287 

LAST 

1464 

I 7,3475 

3C  00  1 

0 

CAE 

L 

0225 

17,3476 

0 0006 

1 

EXTEND 

IN  A SENSE  FOR  WHICH  1/ACCS  HAS  FORCED 

0226 

17,3477 

6 3502 

0 

BZMF 

+ 3 

A MAX-JET  CALCULATION. 

0227 

REF 

45 

LAST 

1462 

17,3500 

3 4751 

0 

CAE 

FOUR 

GAP: 
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3 


I JF"r  LAW 


022  6 

REF 

18 

LAST 

14  52 

0229 

REF 

2 

LAST 

1461 

R023  0 

TJET 

= H/(  . 

025  • 

0231 

PFF 

1 

0232 

REF 

3 

LAST 

1 t - 

0233 

REF 

4 

LAST 

1464 

023  * 

0235 

P£F 

5 

LAST 

1465 

023* 

0237 

RFF 

<53 

LAST 

142  3 

0238 

REF 

1 

R 0239 

0240 

0241 

0242 
A0243 

0244 

0245 

0246 

0247 

0248 

0249 

0250 

0251 

R 025  2 
R 0254 


17.3501 

17.3502 


55*743  1 
0 1745  0 


TS 

TC 


NUMSERT 

HOLDQ 


+ 1 MAXI?)  F i ! TJET  LESS  THAN  50  MSEC, 


17.3503 

17.3504 

17. 3505 

17.3506 

17. 3507 

17.3510 

17.3511 

17.3512 


4 3733  1 

6 1742  1 
53*750  0 
0 0006  1 
11*747  C 

0 f 006  1 

7 4736  0 

1 3623  1 


T JE  1"  = ( H + .0037:  >/(,.!  + 1T0AXIS) 


REF 

REF 

REF 
REF 
R EE 

REF 

REF 

REF 


LAST  16-65 


LAST  1465 


LAST  1465 


17, 35  13 
17, 351* 
17,3515 


0 0006  1 
3 3737  1 
21*750  0 


17, 3516  31*742  1 


8 LAST  1465 


84 

2 


LAST  1465 
LAST  14-3 


17,3517 

17. 3520 

17.3521 

17.3522 

17. 3523 

17.3524 


6 3727  0 
53*750  C 
0 CO  06  1 
11  * 747  0 

■ 1 

7 4736  0 


17,3525  1 3466  1 


FORMULA* 


cs 

AO 

DXCH 
EXT  END 
DV 

EXTEND 
MP 
TC  F 


- .02  5 AT* 
TTOAXI S 
HH 

HH 

B IT  1 4 
CHKMUMTJ 


FOR  1 J E T GREATER  THAN  50  MSEC, 

F0RMULA2  EXTEND 

DC  A .003 75  A 8 

DAS  HH 


CAE 

AD 

DXCH 

EXTEND 

DV 

EXTEND 

MP 

TCP 


TTOAXI S 
. 1 AT  + 

HH 

HH 

BLT1-, 

ETURNT J 


S UBr  "’ill  IP  I Z ED  C ,'M  PUT  AT  I CL'S  °E0UIFEC  FOR  ALL  ENTRIES  INTO  CODING  FOR  ZONf 
REACHED  BY  TC  FROM  3 POINTS  IN  TJETLAW. 


025  5 

REF 

5 

LAST 

14  64 

17, 3526 

4 

17-- 

1 

Z 12  3 COMP 

CS 

ROTSENSE 

025' 

REF 

6 

LAST 

146  5 

17,3527 

5^ 

*740 

1 

TS 

ROTSENSE 

02  5 t 

REF 

10 

LAST 

1464 

17,3530 

31 

•4  27 

1 

CAE 

EDOT 

0258 

17,3531 

0 

C006 

1 

EXTEND 

025  S 

REF 

8 

LAST 

1464 

17,3532 

5 

1744 

1 

INDEX 

ADRSDI E2 

0260 

REF 

• .9 

LAST 

1462 

17,3533 

7 

1567 

0 

MP 

1/ANET1 

02  61 

REF 

5 

LAST 

1 r 5 

17 ,3534 

55 

' 742 

0 

TS 

TTOAXIS 

0262 

REF 

1 

17,3535 

6 

3740 

1 

AO 

— T J M AX 

0263 

17,3536 

0 

0006 

1 

EXTEND 

0264 

l7, 3537 

6 

3541 

1 

B7.MF 

+ 2 

02  £ 

REF 

I 

17,3540 

1 

3465 

1 

TCP 

FULLTIME 

0266 

17, 3541 

0 

C 0 0 2 

0 

RE  TURN 

026  7 

REF 

3 

last 

146  3 

17,3542 

0 

35  26 

0 

ZONl ,2,3 

TC 

Z123C0MP 

R026P  IE  THE  (NEGJ  DISTANCE  BEYOND  PARABOLA  IS  LESS  THAN  FLAT,  USE  SPFCIAL 
R 0266  LOGIC  TO  ACQUIRE  MINIMUM  IMPULSE  LIMIT  CYCLE.  DURING  POWERED  FLIGHT 
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RETURN  VIA  SAVED  0. 


.025  SEC  SCALED  AT  4. 

SCALED  AT  4 SECONDS. 

STORE  DENOMINATOR  IN  FIRST  WDPD  PF  H, 
WHICH  MEED  NOT  BE  PRESERVED.  PICK  UP 
DP  H AND  DIVIDE  BY  DENOMINATOR. 

RESCALE  T J ET  FROM  2 TO  USUAL  4 SFC. 

CHECK  THAT  TJET  IS  NOT  LESS  THAN  MINIMUM 


.00375  SEC ( 2 ) SCALED  AT  8. 

STORE  NUMERATORS!  DP  H,  WHICH  NEED  NOT 
BE  PRESERVED. 

SCALED  AT  4 SEC. 

0.1  SEC  SCALED  AT  4. 

STORE  DENOMINATOR  IN  FIRST  WORD  OF  H, 
WHICH  MEED  NOT  BE  PRESERVED.  PICK  UP 
DP  NUMERATOR  AND  DIVIDE  BY  DENOMINATOR 

ESCALE  TJET  FROM  2 TO  USUAL  4 SEC. 

END  SUSP  QUISLE. 

S 1 , 2 , AND  3. 


USED  IN  RETURNTJ  SECTION  Tr  RESCALE  TJET 
AS  T I MF 6 AND  GIVE  IT  PRQPEf  SIGN. 
SCALED  AT  PI/2I5)  RAD/SEC. 


SCALED  AT  2 ( 7 ) / P I SEC(2)/RAD. 

STORE  1 IME-TO-AXI S SCALED  AT  4 SECONDS. 

IS  TIME  TO  AXIS  LESS  THAN  150  MSEC. 

NO.  FIRE  JETS,  DO  NOT  CALCULATE  TJET. 
YES.  GO  ON  TO  FIND  TJET 


SU3R0UT  IN  I ZED  PFEftA NATION  FOP  Z0NE1,2,3 


GAP:  ASSEMBLE  RE  VISION  001 
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1. 

T JET  1 

AW 

USER  * S PAGE  NO.  7 

E6  94 

R 0270 

OR  ULLAGE 

, FLAT  = 0 

0271 

REE 

6 

LAST 

1463 

17 , 354  3 

31' 741 

1 

CAE 

FIREFCT 

SCALED  A1  PI/4  RAD. 

0272 

9 EF 

2 

LAST 

14t>3 

17,3544 

6 15  55 

0 

AD 

FLAT 

0277 

17,354  5 

0 0006 

1 

EXTEND 

0274 

REF 

2 

LAST 

1 4A3 

17,3546 

6 3562 

0 

BZMF 

ZONE  1 

NOT  IN  SPECIAL  ZONES. 

R 027  5 

FIRE 

FI 

AXIS 

OR,  IF  CLOSE,  FIRE  MINIMUM 

IMPULSE.  IF  ON 

AXIS,  COAST. 

0276 

RFF 

1 

17,3547 

4 1556 

1 

ZCNE2 , 3 CS 

ZGNE3L  IM 

HEIGHT  C.F  MIN- 1 MPULSE  ZONE  SET 

BY  1/ACCS 

0277 

nEF 

6 

LAST 

14  65 

1 7,3550 

6 1742 

1 

AD 

TTOAXIS 

35  MSEC  IN  DRIFTING  FLIGHT 

0278 

17, 35cl 

0 C 006 

1 

EXTEND 

ZERO  WHEN  TRYING  TO  ENTER  GTS  CONTROL. 

027° 

REF 

1 

17,3552 

6 3555 

1 

BZMF 

ZCNE3 

0280 

REF 

7 

LAST 

1466 

17 , 3553 

31 '742 

1 

ZONE  2 CAE 

TTOAXIS 

FIRE  TC  AXIS. 

028  1 

REF 

3 

LAST 

146  5 

17,3554 

1 3466 

1 

TCF 

RETURN! J 

02  8 2 

8 E F 

11 

L A ST 

Ut-T 

17,3558 

1 1 ' 4 2 7 

0 

ZONE 3 CCS 

EDOT 

CHECK  IF  EDOT  IS  ZERO. 

028  7 

REF 

64 

LAST 

1 6 4 8 

17,3556 

3 474  6 

0 

CAF 

B I T 6 

FIRE  A ONE-JET  MINIMUM  IMPULSE 

• 

02  84 

RTF 

t. 

LAST 

1466 

17 . 7667 

1 34  4 6 

1 

TCF 

R FTi  It?  IM  t i 

TJET  = +0. 

1 ' * J -J  -J  I 

JL 

IN  L » UM'I  i 

0285 

REF 

22 

LAST 

1463 

17,3560 

0 5705 

0 

TC 

CCSHOLE 

CANNOT  BE  BECAUSE  NEG  EDOT  COMPLEMENTED. 

0286 

FEF 

cz 

LAST 

1466 

17,3561 

1 3466 

1 

TCF 

RE  TURN TJ 

TJET  = +0. 

0287 

17,3562 

0 0006 

1 

ZONE!  EXTEND 

0288 

EF 

10 

1 AST 

14  63 

17,3563 

5 174  6 

0 

INDEX 

AORSDI FI 

02fiQ 

REF 

2 

LAST 

] 4A3 

17,3564 

61 '605 

0 

SO 

AX  I SOI  ST 

SCALED  AT  PI/4  RAD. 

0290 

17,3565 

0 0006 

1 

EXTEND 

0291 

REF 

9 

LAST 

1465 

17,3566 

5 1744 

1 

INDEX 

ADRSDIF2 

0292 

REF 

1 

17,3567 

7 1575 

c 

MP 

ACCFCTZ1 

SCALED  AT  2(7) /PI  $EC(2)/RAD. 

0293 

17,3570 

20  0C1 

1 

DDOUBl 

0294 

17,3571 

2 0 001 

1 

DDOUBL 

0298 

REF 

9 

LAST 

1466 

17,3572 

53 ' 750 

0 

DXCH 

HH 

DOUBLE  PRECISION  H SCALED  AT  8 

SEC ( 2) . 

R 0296 

TEST 

WHETHER 

TOTAI 

TIME  REQUIRED  GREATER 

THAN  150  MSEC: 

R 0297 

y 

< . 

c. 

R 0293 

I S 

.M 

. 1 5 0 

- TIP  AXIS)  - H 

NEGATIVE 

(SCALED  AT  8 SECONDS  ) 

0299 

RFF 

8 

LAST 

14^6 

17,3573 

31' 742 

1 

CAF 

TTOAXIS 

TTOAXIS  SCALED  AT  4 SECONDS. 

0300 

REF 

2 

LAST 

1465 

17,3574 

6 3740 

1 

AD 

— T J M AX 

-.150  SECOND  SCAI  ED  A T 4. 

0301 

17,3575 

0 0006 

1 

EXTEND 

0302 

17,3576 

7 coon 

0 

SQUARE 

0303 

17,3577 

0 (006 

1 

EXTEND 

0304 

REF 

10 

LAST- 

] 6 6 

17, 3600 

e l ' 747 

1 

SU 

HH 

HIGH  WORD  OF  H SCALED  AT  8 SFC(2). 

030c' 

17,3601 

0 0006 

1 

EXTEND 

0306 

REF 

2 

LAST 

1465 

l 7 , 3602 

6 3465 

0 

BZMF 

FULLTIME 

YES.  NEED  NOT  CALCULATE  TJET. 

R 0307 

TEST 

WHETHER 

time  beyond  axis 

GREATER  THAN 

50  MSEC  TO  DETERMINE  WHICH 

approximation  TO  USE. 

0309 

REF 

1 1 

LAST 

1466 

17,3603 

31 '747 

1 

CAE 

HH 

0310 

REF 

9 

LAST 

1464 

1 7 , 3604 

6 7 746 

0 

AD 

NEC  2 

0311 

17, 3605 

0 0006 

1 

EXTEND 

0312 

REF 

1 

17,3606 

6 3616 

0 

BZMF 

FCRMULA3 

p n n • 
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API 


1RL.PE  BY  EYLfc 


S 


3 


L TJET  LAW 


R 031 3 TJET  = H/0.  1 + TTOAXIS  + .0375  FOR  APPROXIMATION  OVER  MORE  THAN  50 


0315 

REE 

1 

17,  3 60 7 

3 

3730 

0 

CAE 

. 1 A T 2 

0316 

REE 

12 

LAST 

1466 

17, 3610 

53 

' 750 

0 

DXC.H 

HH 

0317 

17,3611 

0 

0006 

1 

EXTEND 

03  18 

i r c 

1 + 67 

17, 3612 

1 1 

' 747 

0 

D V 

HH 

r tr 

1.  D 

LA  * 

0319 

REF 

Q 

LAST 

14  66 

17, 36  13 

6 

1 

1 

AD 

TTOAXI S 

032° 

REF 

1 

17,361* 

6 

3731 

1 

AD 

.0375AT4 

0321 

REF 

6 

LAST 

1466 

17, 3615 

1 

3466 

1 

TCF 

RETURNT J 

R 0322 

TJET 

= H/. 

025  + 

TTOAXI S 

FOR  APPROXIMATION 

OVER  LESS  THAN  50  MSEC 

0323 

0324 
032  5 

0326 

0327 

REF  1 

REF  14 

L AST 

1467 

17.3616 

17.361 7 

17.3620 

17. 3621 

17.3622 

4 3732 
53 ' 750 
0 0006 
11 ' 747 
6 1742 

0 F0RMULA3 
0 

1 

0 

1 

CS 

DXCH 

EXTEND 

DV 

AD 

-.025AT2 

HH 

EE  15 
REF  10 

LAST 

LAST 

1467 

1 4 1 7 

HH 

TTOAXIS 

R 032 8 TF  COMPUTED  JET  TIME  IS  LESS  THAN  TJMIN,  TJET  IS  SET  TO  ZERO. 

R 032  9 MINIMUM  IMPULSES  REQUIRED  [ : ZONE  3 ARE  OUT  SUBJECT  TO  THIS  CONSTRAINT, 


03  31 

R t F 

1 

17,3623 

6 

3 742 

0 

CHKMINTJ  AD 

-TJMIN 

0332 

17,362* 

0 

00  06 

1 

EXTEND 

033  3 

RFF 

3 

LAST 

1463 

17,3625 

6 

3422 

0 

BZ  MF 

CCASTTJ 

033* 

REF 

1 

17,3626 

6 

31'  1 

0 

AD 

TJMIN 

033  5 

REF 

7 

LAST 

1467 

17, 3627 

1 

3466 

1 

TCF 

RETURNT J 

* 


i 
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MSEC. 

STORE  .1  SEC  SCALED  AT  2 FOR  DIVISION. 

DP  H SCALED  AT  8 SECI2)  NEED  NOT  BE 
PRESERVED. 

QUOTIENT  SCAI  ED  AT  4 SECONDS. 

SCALED  AT  4 SEC. 

.0375  SEC  SCAI  ED  AT  4. 

END  COMPUTATION. 


STORE  +.025  SEC  SCALED  AT  2 FOR  DIVISION 
DICK  UP  DP  H AT  8,  WHICH  NEED  NOT  BE 
PRESERVED. 

QUOTIENT  SCALED  AT  4 SECONDS. 

SCALED  AT  4 SEC. 


NATURALLY. 

IS  COMPUTED  T I M E LESS  THAN  THE  MINIMUM. 

YES,  SET  TIME  TO  ZERO. 

NO,  RESTORE  COMPUTED  TIME. 

END  COMPUTATION. 


i" 
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L 

P0336 

R 0337 
R03  3P. 
R0340 
R034  2 
R,  0343 

R 0 3 4 4 
R 03'  - 
R 034  8 


tjet  law 

***  ROUGHL AW  *** 
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USER'S  PAGE  NO.  9 E6  S4 


BEFORE  ENTRY  TO  RUFLAW: 

1.  ! 0 DE  XE  R S AnrsniFl  AMO  AORSOIF?  ARE  :,Ev  on  basis  of  axis,  and  sign  of  EDO-. 

2.  IF  ED"  T WAS  NEGATIVE.  E AND  EDOT  ARE  L OT  ATE:)  INTO  UPPFR  HALF-PLANE  AND  ROT  SENSE 

3.  E IS  SC  At FP  AT  PI  RADIAN1  AND  F 00 T A’  PI/4  "AD/SEC. 

(EXCEPT  THE  PUFLAW3  ENTRY  WHEN  E IS  AT  PI/4) 


IS  MADE  NEGATIVE. 


UFL  AW  1 : EFT  C 
'•  UFLAW2  : E P R 1 ' ■ 
! UFLAW3  : ERD  f’: 


MOTE  NEGATIVE  THAN  Pl/16  RAD. 

F POSITIVE  THAO  °I/I6  RAD. 
1 ATF  Gr  EAT  E( 


FIRE  TO  A RATE  OF  6.5  DEG/SEC  (IF  JFT  TIME  EXCEEDS  20  MSEC.). 
FIRE  TO  AN  OPPOSING  PATE  OF  6.5  DEG/SEC. 


0350 

REF 

1 

17,3630 

0351 

REF 

12 

LAST 

1466 

17,3631 

0352 

17,3632 

0353 

REF 

1 

17,3633 

0354 

REF 

1 

17,3634 

0355 

REF 

13 

LAST 

146  8 

17,3635 

0356 

17,3636 

0357 

REF 

10 

LAST 

1466 

17, 3637 

03  58 

REF 

10 

LAST 

1465 

17,3640 

0359 

PEF 

3 

LAST 

Q / 

17,3641 

0360 

17,3642 

0361 

17 , 3643 

0362 

REF 

3 

LAST 

1466 

17,3644 

03621 

17, 364 5 

03622 

REF 

4 

LAST 

1 4 r.  P 

1 7,3646 

0363 

R EF 

41 

LAS! 

1437 

17, 3647 

0364 

RFF 

518 

LAST 

! 

) 7 , 36  c 0 

0365 

REF 

519 

LAST 

1468 

17,365  1 

0366 

REF 

520 

LAST 

146  8 

17 , 3652 

0367 

REF 

2 

LAST 

14,65 

17, 3653 

0368 

KEF 

2 

LAST 

1448 

17, 3654 

0369 

REF 

7 

LAST 

146  5 

17 , 3655 

0370 

REF 

173 

LAST 

1455 

17,3656 

0371 

17, 3657 

0372. 

REF 

1 3 

L AST 

1 ?RA 

17. 3aa  n 

0373 

REF 

I) 

LAST 

1 4 6 8 

17,366  1 

0374 

REF 

14 

(.AST 

1 

17, 366? 

0376 

REF 

1 

17,3663 

0376 

REF 

3 

LAST 

1468 

17,3664 

0377 

REF 

2 

LAST 

1468 

17,3666 

0378 

REF 

15 

LAST 

1-468 

17,3666 

0379 

c E p 

5 2 1 

LAST 

1 

17,3667 

0380 

REF 

2 

LAST 

1468 

17 , 3670 

0381 

REF 

5 

LAST 

1468 

17,3671 

THAN  P I / 32 

f AO /SEC 

AND  ESTOP  WITHIN 

BOUNDS.  COAST  IF  BELOW  F IP  EFCT , FIRE  IF  ABOVE 

4 3743 

0 

R UFL  A W 1 

CS 

RUFRATE 

DECREMENT  EDOT  BY  .1^44  PAD/tEC  AT  PI/4 

27*427 

0 

ADS 

EDOT 

WHICH  IS  THE  TARGET  RATE 

0 CO 06 

1 

EXTEND 

6 36  54 

0 

BZMF 

SMALL ATE 

BRANCH  IF  " ATE  LESS  THAN  TARGET. 

0 3712 

0 

TC 

8 LF  SETUP 

REVERSE  TOTSENSF  AND  INDICATE  MAX  JETS. 

31*427 

1 

CAE 

EDOT 

PICK  UP  DESIRED  RATE  CHANGE . 

0 0006 

1 

RUFLAW12 

EXTEND 

COMPUTE  TJET 

5 1744 

1 

INDEX 

ADRSDIF2 

= ( D ES I P E D RATE  CHANGE )/( 2-J ET  ACCEL.) 

7 1571 

1 

MP 

1/ANE71  +-2 

6 7741 

1 

AD 

-1/8 

IF  TJET,  SCAI  ED  AT  32  SEC,  EXCEEDS 

0 0006 

1 

EXTEND 

4 SFCONDS,  SET  TJET  TO  TJMAX . 

6 3 645 

0 

BZMF 

+ 2 

1 3465 

1 

TCF 

FULLTIME 

0 CO 06 

1 

EXT  END 

1 346  5 

1 

BZF 

FUL! TIME 

6 F740 

0 

AD 

B I T 3 2 

RESTORE  COMPUTED  TJET  TO  ACCUMULATOR. 

20  001 

1 

DAS 

A 

20  0C1 

1 

DAS 

A 

20  001 

1 

DAS 

A 

RESCALED  TJET  AT  4 SECONDS. 

1 3623 

1 

TCF 

CHKMINTJ 

RETURN  AS  FROM  FI NE LAW. 

0 3714  0 
11 '740  1 
3 4753  1 


1 3661 
3 7747 
27 ' 744 


SMALKATE  TC 
CCS 
CAF 
TC  F 
CAF 
ADS 


4 1427  0 CS 

1 3636  0 TCF 

0 3712  0 R UFL AW2  TC 

3 3 7 4 3 1 CAF 

6 1427  1 AD 

54  000  0 TS 

1 3636  0 TCF 

1 3465  1 TCF 


RUFSETUF  +2 
ROTSENSE 
ONE 
+ 2 

NEGQN.E 
AORSDI F? 

LOOT 

RUFLAW 12 

RLF  SETUP 
RUFRATE 

EDOT 

A 

RUFLAW12 

FULLTIME 


SET  NUMB EFT  AND  FIREFCT  FOR  MAXIMUM  JETS 

MODIFY  INDEXER  TO  POINT  TO  1/ANET 
CORRESPONDING  TO  THE  PPOPEP  SENSE. 


(.144  AT  PI/4  - EDOT ) =0F S I RFD  RATE  CHNG. 


REVERSE  ROTSENSE  AND  INDICATE  MAX  JETS. 

(.144  AT  PI/4  + EDOT) =DESIRED  ATE  CHNG. 
IF  OVERFLOW  SKIP,  FIRE  FOR  FULL  TIME. 
OTHEPWISE,  COMPUTE  JET  TIME. 


f " 
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L 

TJET 

l AW 

0382 

REF 

4 

LAST 

1468 

0383 

REF 

11 

LAST 

1 - 

0334 

REF 

*■ 

LAST 

14.6  3 

0385 

REF 

16 

LAST 

1463 

0336 

0387 

REF 

32 

LAST 

I'W 

0388 

REF 

16 

LAST 

1468 

0389 

0390 

0391 

0392  :EF  12  LAST  1469 

0393  REF  11  LAST  1468 

03c4  REF  17  LAST  1469 

0395 

0396  REF  4 LAST  1467 

0397  REF  6 LAST  1468 

R 039  8 CU8R0UT INF  U?FO  IN 


17.3672  0 3712  0 

17.3673  51 '746  0 

17.3674  4 1601  C 

17.3675  6 1752  0 

17.3676  0 C0C6  1 

17,367?  7 4741  0 

17.3700  57 '427  1 

17.3701  0 0006  1 

17.3702  7 OOQQ  0 

17.3703  0 OC 06  1 

17.3704  5 1746  0 

17.3705  7 1571  1 

17.3706  6 1427  1 

17.3707  0 0006  1 

1 7. 3710  6 3422  0 

17.3711  1 3465  1 

ALL  Fi  TMES  TP  UUGHLAW 


RUFLAW3  TC  FUFSETUP 

INDEX  ADR  SOI F 1 

CS  FIREDB 

AD  E 

EXTEND 
MP  8 IT  11 

XCH  EDOT 

EXTEND 
SQUARE 
EXTEND 

INDEX  ADR SO I F 1 

Mp  1/ANET1  +2 

AD  EDOT 

EXTEND 

BZMF  CQASTTJ 

TC  F FULLTIME 


0399 

F.EF 

8 

1 AST 

146  8 

17,3712 

0400 

REF 

9 

LAST 

1469 

17,3713 

0401 

REF 

4 6 

LAST 

1464 

17,3714 

0402 

?EF 

19 

LAST 

1465 

17,3715 

REF 

1 1 

LAST 

1 4 8 8 

17,3716 

0404 

REF 

7 

LAST 

1466 

17,3717 

0405 

REF 

415 

LAST 

1458 

17, 3720 

R 0406 

CONS ? A NTS 

Ff  ^ 

TJETLAW 

4 1740 

1 

R UFSETUP 

CS 

ROTSENSE 

55 ’ 740 

1 

TS 

ROTSENSE 

3 *7  51 

0 

+ 2 

CAE 

FOUR 

55 i 743 

1 

rs 

HUMBERT 

3 47  36 

l 

CAE 

NEGMAX 

55' 741 

0 

TS 

F I R E F C T 

0 0002 

0 

TC 

Q 

040  7 

040  8 

0409 

04 1 C 

17. 3721 

17.3722 

17.3723 

17.3724 

A 04 1 1 

0412 

17,3725 

0413 

1? ,3726 

0414 

17,3727 

0415 

17, 3730 

0416 

17,3731 

0417 

1 7,3732 

0418 

1?, 3733 

041« 

17,3734 

0420 

17,3735 

0421 

17,3736 

0421 

17,3737 

0422 

1? ,?740 

042  3 

17,3741 

0424 

1 7 , 3742 

0425 

17,3743 

7775  7 
COO  00 
00020 

1 4400 

1 

1 

0 

0 

AXISDIFF 

SENSOR 

DEC 

DEC 

DEC 

OCT 

-16 

+0 

16 

14400 

756  73 

1 

-3DFL 

DEC 

-.06667 

77750 

0 

-.  11 2A8 

DFC 

- .001M 

0063  2 

0 

. 1 AT4 

DEC 

.025 

01463 

1 

. 1 AT? 

DEC 

.05 

002  32 

1 

.0375  AT 4 

DEC 

.00938 

77462 

1 

-.02 5 AT? 

DEC 

- .0125 

77631 

0 

- . 0 2 5 AT  4 

OEC 

- .00625 

77145 

1 

-.05 AT2 

DEC 

-.025 

75462 

0 

-. 15 AT2 

DEC 

-.075 

C 0 0 0 7 

0 

. 003  7 5 A8 

2 DEC 

.00375 

25605 

0 

76  631 

1 

-UMAX 

DEC 

-.0375 

0 C 1 2 2 

0 

TJMIN 

DEC 

.005 

77655 

1 

- J 

DFC 

- .005 

04476 

0 

RUPP  ATE 

DEC 

. 1444 
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USER ' S PAGE  NO.  10  F6  S4 

EXECUTE  COMMLN  RUFLAW  SUBROUTINE. 

CALCULATE  DISTANCE  FROM  SWITCH  CURVE 

1/ANET1*ED0T*ED0T  +E  - FIREDB  = 0 
SCALED  AT  4 PI  RADIANS 


CCAST  IF  BELOW  IT. 

FIRE  FOR  FULL  PERIOD  IF  ABOVE  IT. 

REVERSE  ROTSENSE  WHEN  ENTER  HERE. 
REQUIRE  MAXI MUM  (2)  JETS  IN  U,V-AXES. 
SUGGEST  MAXIMUM  ( <■  ) JETS  IN  P-AXIS. 


AXISDIFFI INDEX ) = NUMBEF  OF  REGISTERS 
BETWEEN  STORED  1/ACC.S  PAPAMEUFS  FOR 
THE  INDEXED  AXIS  AND  THE  U-AXIS. 

RATIO  OF  TJET  SCALING  WITHIN  TJETLAW 

(4  SEC)  TO  SCALING  F0D  T6  (10.24  SEC). 
-3.0  DEGREES  SCALED  AT  45. 

-.01125  S EC ( 2 ) SCALED  AT  8. 

0.1  SECOND  SCALED  AT  4. 

0.1  SEC  SCALED  AT  2. 

.0375  SEC  SCALED  AT  4. 

-.025  SEC  SCALED  AT  2. 


LARGEST  CALCULATED  TIME.  .150  SEC  AT  4. 
SMALLEST  ALLOWABLE  TI ME • .020  SEC  AT  4. 


CORRESPONDS  TO  TARGET  RATE  OF  6.5  DEG/S 


ASS  E'iBLE  RE  VI  SI  IK  001  OF  AGO  PROGRAM  aPUKuPE  BY  EYLfcS 


GAP: 


KALMAN  FILTER 

0001 

REF 

3 

LAST 

1455 

E6, 1522 

EBANK= 

NO.UJETS 

0002 

16,3641 

BANK 

16 

0003 

REF 

3 

LAST 

1421 

16,2000 

SETLOC 

DAPS1 

0004 

16 ,3641 

BANK 

000* 

0 F F 

1 

COUNT* 

$ $ / D A P 

0006 

REF 

102 

last 

1463 

16,3641 

3 4752 

0 

P ATELOGP 

CA 

TWO 

0007 

REF 

3 

LAST 

133 

U,  364  2 

55’ 744 

0 

TS 

0APTEMP6 

00071 

1 6 , 3 64  3 

6 0000 

1 

DOUBLE 

0007  2 

REF 

416 

L AST 

1469 

16,3644 

54  002 

1 

TS 

Q 

0008 

^ EF 

4 

LAST 

1470 

16, 9^45 

51 1 744 

1 

INDEX 

D AP  T F m P6 

0009 

REF 

14 

LAST 

1460 

16 , 3646 

1 1 * 524 

1 

CCS 

TJP 

0010 

16,3647 

1 365  1 

1 

TCF 

+ 2 

0011 

REF 

1 

16,3650 

1 3670 

1 

TCP 

L CO  PF ATE 

0012 

REF 

1 

16,3651 

6 3731 

1 

AD 

- 1 0 0 M 5 T 6 

0013 

16 ,3652 

C (006 

1 

EXTEND 

tei  4 

OFF 

1 

16,3653 

6 9707 

1 

BZMF 

SMAt  LTJU 

0015 

REF 

5 

LAST 

1470 

16,3654 

51’ 744 

1 

INDEX 

DAPTEMP6 

0016 

REF 

15 

LAST 

1470 

16,3655 

11’ 524 

1 

CCS 

TJP 

0017 

REF 

2 

LAST 

1470 

16,3656 

3 3731 

1 

CA 

- 100MST6 

00  IS 

16,3657 

1 3661 

1 

TCF 

+ 2 

0019 

REF 

3 

LAST 

1470 

16,3660 

4 3731 

0 

CS 

-IOC  ' ST6 

0020 

RFF 

6 

LAST 

1490 

16,366 1 

31 ’ 744 

1 

INDEX 

D APT  EMP6 

0021 

REF 

16 

LAST 

1470 

16,3662 

27 • 524 

1 

ADS 

TJP 

0022 

REF 

7 

LAST 

1470 

16,3663 

5 1 1 744 

1 

INDEX 

DAPTFMP6 

002  3 

REF 

17 

LAST 

1470 

16,3664 

11*  524 

1 

CCS 

TJP 

0024 

r EF 

1 

16, 3665 

4 3615 

1 

CS 

-100MS 

0025 

16  , 3666 

1 3670 

1 

TCF 

+ 2 

0 02f 

RFF 

2 

L AST 

1470 

1.6,3667 

3 3615 

o 

C A 

1 i O M C 

0027 

16 , 3670 

0 00  06 

1 

LOOPF ATE 

EXTEND 

0028 

REF 

8 

LAST 

1470 

16,3671 

5 1744 

1 

INDEX 

DAPTEMP6 

0029 

REF 

3 

LAST 

1437 

16, 3672 

7 1521 

1 

MP 

NQ.PJETS 

0030 

REF 

283 

L AST 

1464 

16 , 3673 

3 0001 

0 

CA 

L 

0031 

REF 

9 

LAST 

147  0 

16,3674 

51*744 

1 

T r 1 D F X 

D APtFm  P6 

00311 

o EF 

29 

LAST 

1451 

16,3675 

55*737 

1 

TS 

DAPTEMPl 

00312 

16,3676 

0 0006 

1 

EXTEND 

00313 

REF 

51 

LAST 

1410 

16,3677 

7 4742 

0 

MP 

BITIO 

00314 

16,3700 

0 0006 

1 

EXTEND 

00315 

REF 

1 

16,3701 

6 3732 

1 

BZMF 

negthrk 

00316 

P EF 

417 

1 AST 

1470 

16,3702 

50  002 

0 

STOP  TORK 

INDEX 

0 

0031  7 

REF 

7 

LAST 

1 33 

16,3703 

27*513 

0 

ADS 

DOWNTORK 

0032 

RFF 

10 

LAST 

1470 

16,3704 

1 1 ' 744 

0 

CCS 

DAPTEMPf 

0033 

REF 

2 

LAST 

1428 

16,3705 

1 3642 

0 

TCF 

RATE  LO  O P 

0034 

REF 

1 

16,3706 

1 3716 

0 

TCF 

RDTPRQUE 

0035 

REF 

303 

LAST 

146  3 

16,3707 

3 4755 

1 

SMALLTJIJ 

CA 

ZERO 

0036 

P FF 

1 1 

LAST 

147  0 

16, 3710 

51 ' 744 

1 

INDEX 

0APTEMP4 

0037 

REF 

18 

LAST 

147  0 

16,3711 

57*524 

0 

XCH 

TJP 

3:15  DEC 


2 


1970  LMDAP 


015  PAGE  1470 
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0.1  AT  1 


SIGNED  TORQUE 
RESCA1 E TO  32 


AT  1 

JET- 

-SEC  FOR 

F I L TER 

ONE 

BIT 

ABOUT  2 

JET-MSEC 

increment  DCWNLIST  RE 
NOTE:  NOT  INITIALIZ 


GISTER  . 

ED;  OVERFLOWS. 


+ 1 


GAP 
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0039 

0040 

0041 

0042 

0043 
004  a 
0045 
0040 
0047 

004  3 
0049 
00  ^ A 

005  1 

0052 

0053 
R005  a 

0055 

006  6 
0057 


K AL  MAN  FILTER 


REF  4 
REF  289 
REF  2 
REF  11 
REF  7 

PFF  1 
REF  3 
REF  8 
REF  12 

oFF  t 

REF  3 
REF  1 


LAST  109° 
LAST  1470 
LAST  1470: 
LAST  1481 
LAST  1447 


LAST  1427 
LAST  1471 
LAST  1*71 


LAST  1426 


16.3713 

16.3714 

16.3715 

16.3716 

16.3717 
16 , 372  0 
16,372  1 

16. 3722 

16.3723 

16.3724 

14.3725 

1 6.3726 

16.3727 

16.3730 

16.3731 


7 * 7 60  0 
3 0C01  0 
1 3670  1 

3 1740  0 

6 1741  1 
0 0006  1 

7 1532  0 
55*747  0 

4 1741  0 

6 1740  0 
0 00  06  1 

7 1631  0 
55*746  1 
1 2116  0 

77537  0 


MP  ELEVEN 

CA  L 

TGF  LOQPRATE 

' 01  QUE  CA  DAPTEMP2 

AD  DAPTEMP3 

EXTEND 

MP  LJACCR 

TS  JETRATER 

CS  DAPTEMP3 

AO  DAPTEMP2 

EXTEND 

MP  1JACC0 

TS  JETRATEQ 

TCF  BACKP 

- 1 00F5T6  DEC  -160 


'•FT  418  LAST'  1'- 70 
PEF  1 


16,3732 

4 0000 

0 

negthrk  com 

16  , 373  3 

26  002 

0 

I NCR 

Q 

16,3734 

1 3702 

0 

TCF 

STORTORK 
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t 
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0 

0 

0 

0 

• 

f 
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0 


0 


0 
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0001 

0002 

REF 

1 

0003 

REF 

1 

000* 

00045 

p ef 

1 

21 , 3077 
E6, 1450 
21,2000 
21  ,7077 


BANK  21 
F B A N K = QDIFF 
SOIL  DC  DAPS4 
BANK 

COUNT*  1$/DAPGT 


> R 000  5 

ROD  07 
R0006 
R0010 
R001  2 
R 0 0 1 4 


COI  T' OL  REACHES  THIS  PMNT  UNDER  EITHER  UF  THE  FOLLOWING  TWO  CONDITIONS  ONCE  THE  DE  SC  F NT  ENGINE  AND  THE  DIGITAL 
AUTOPILOT  APE  BOTH  ON: 

A)  THE  T1  IP  I : 1341  CONTROL  LAW  WAS  O' I DUPTIiG  THE  PREVIOUS  Q.'-AXIS  TIME"  I!*  TERRUPT  (OR  THE  D#  IDLER 
INITIALIZATION  WAS  SET  FOR  TRIM  GIMBAL  CONTROI  AMD  THIS  IS  THE  FIRST  PASS),  OP 
,)  the  0,  -AX!  , CO  AUTOPILOT  DETt  «’^ED  '‘HAT  THE  VEHTCIE  WAS  ENTERING  (OR  HAD  JUST  ENTERED)  A COAST 
ZONE  WITH  A SNAIL  OFFSET  ANGULAR  ACCELERATION. 


R001  GTS  IS  THE  ENTRY  TO  THE  GIMBAL  Ti  1 I SYSTEM  FCh  CONI  OLLING  ATTITUDE  ERRORS  AND  PATES  AS  WELL  AS  ACCELERATIONS. 


00  lr- 

R E F 

1* 

LAST 

146  8 

21, 3077 

3 7747 

1 

GTS 

CAF 

NEGONE 

MAKE  THE  NEXT  PASS  THROUGH  THE  DAP  BE 

001  c 

3 E F 

LAST 

14-8? 

2 1 , 3 ICO 

5 « t /,  3 ] 

o 

T S 

COTROLER 

THROUGH  PCS  CONTROL , 

0020 

REF 

47 

LAST 

1469 

21,3101 

3 47  51 

0 

CAF 

FOUR 

AND  ENSURE  THAT  IT  IS  NOT  A SKIP. 

0021 

REF 

9 

LAST 

1455 

21, 3102 

55' 535 

1 

TS 

SKI  PU 

002  2 

REF 

3 

LAST 

1455 

21,3103 

55*  53:6 

1 

TS 

SKI  PV 

002  2 5 

REF 

1C  3 

LAST 

1*70 

21 , 3104 

3 *7  52 

c 

CAF 

TWO 

0023 

REF 

5 

L AST 

1 4 SO 

21,3105 

55 '633 

1 

TS 

INGTS 

SET  INDICATOR  OF  GTS  CONTROI  POSITIVE. 

0024 

REF 

7 

LAST 

142  9 

21  ,3106 

55 ' 632 

0 

TS 

QGIMTIMF 

SET  TIMERS  TO  200  MSEC  TO  AVOID  BOTH 

0025 

REF 

5 

LAST 

1429 

21,3107 

55' 634 

0 

TS 

RGIMTIMR 

RUNAWAY  AND  INT  EP  FERENCE  BY  NULLING. 

R0P2* 

THE 

DRIVE 

SETTING 

ALGORITHM 

POO?" 

DE! 

= S GN  (OMEGA  +* 

A!  PHA*A8S  ( Al  PHA  ) / ( 2*  K ) ) 

R002P 

2 

1/2 

2 3/2 

R 0030 

NEGUSUM  = 

ERROR*  K 

+ ALPHA* (DEL 

* DM  EGA 

+ 

ALPHA  / ( 3 

*K  ) ) + 

DEL*K  (DEL 

*CMEG A + ALPHA  /(2*K) ) 

R003? 

01  ! V E = - 

SON (NEGUSUM ) 

0033 

REF 

27 

LAST 

1305 

21,3110 

3 00  21 

1 

CA 

SR 

SAVE  THE  SR.  SHIFT  IT  LEFT  TO  CORRECT 

003* 

REF 

522 

LAST 

1 ■ 

21,3111 

6 00  00 

1 

AD 

A 

FOR  THE  RIGHT  SHIFT  DUE  TO  EDITING. 

0035 

ref 

1 

21,3112 

55 '505 

1 

TS 

SAVESR 

003  6 

REF 

104 

LAST 

147  2 

21 ,3113 

3 4752 

0 

GTSGO+llN 

CAF 

TwO 

SET  INDEXEf  FOR  R-AXI S CALCULATIONS. 

0037 

RFF 

1 

21,3114 

1 31  16 

0 

TCF 

IMG  +1 

0038 

REF 

304 

LAST 

1470 

21,3115 

3 47  5 5 

1 

GOQTR IMG 

CAF 

ZERO 

SET  INDEXFR  FOR  Q-AXI S CALCULATIONS 

003  9 

REF 

1 

21,3116 

55'  150 

0 

TS 

QRCNTR 

0040 

REF 

2 

LAST 

1472 

21,3117 

51*750 

1 

INDEX 

QRCNTR 

AOS  SCALED  AT  PI/2 

0041 

REF 

23 

LAST 

1441 

21,3120 

3 1537 

1 

CA 

AOSQ 

0042 

21,3121 

0 0006 

1 

EXTEND 

0043 

REF 

54 

LAST 

1444 

21,3122 

7 4752 

1 

MP 

BIT2 

RESCALE  ACS  TO  PI/* 
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0044 

0045 

004  f 
0047 
OOF  p 

004  9 

0050 

0051 

0052 

0053 

0054 

0055 

005 r 
005^ 

005  8 

005  9 

0060 

OOfc] 

0062 

006  3 

0064 

0065 

0066 

0067 

0068 

006  9 

0070 

0071 

007  2 
0(,7'J 

007  4 
G075 
0076 

0^77 

0078 

0079 

008  0 
0081 
008  2 
008  3 

0084 

0085 


Ti  I M GIMEAl  CONTROL  SYSTEM 


REE 

1 

RFF 

52  3 

LAST 

1672 

REF 

10 

LAST 

1457 

RFF 

2©o 

l AST 

1671 

REF 

3 

L AST 

147  2 

!>EF 

524 

LAST 

1473 

REF 

5. 

1 AST 

1 7 4 2 

REF 

I 

REF 

4 

LAST 

147  3 

REF 

3 

LAST 

132 

REF 

1 

REF 

1 

REF 

5 

LAST 

1473 

REF 

2 

LAST 

1472 

21,  112  3 

0 

CO  06 

1 

21, 3124 

1 

3130 

1 

2 L, 3 125 

50 

0 00 

1 

21,3126 

4 

47  34 

1 

ti  >i 97 

p f. 

© < • i 

n 

<L  1 | J U 1 

J c 

V Li  1 

U 

21 , 3130 

1 1 

• 750 

0 

21,3131 

50 

000 

1 

21,3132 

3 

1 4 3 6 

1 

2L ,3133 

53 

• 744 

0 

21, 3134 

51 

•7  50 

1 

21,3135 

3 

1504 

1 

21 , 3136 

56 

• 7^1 

0 

21,3137 

0 

0006 

1 

21,3140 

l 

3576 

1 

21, 314  1 

51 

’750 

1 

2 1 , 3142 

31 

'450 

1 

REF 

2 

LAST 

K73 

REF 

1 

REF 

50 

LAST 

146  1 

REF 

2 

LAST 

1 4 7 3 

RFF 

51 

3 

I KT 

1 473 
1473 

r\  r r 

REF 

L M- > I 

LAST 

21,  316-3  o 0006  1 

21.3144  7 1741  0 

21.3145  23 ' 7 37  0 

2 1,3146  0 CO 06  1 

21,3167  7 6,747  0 

21,315  0 53 ’740  1 

21.3151  C C( 0 5 1 

21.3152  7 6747  0 

21.3153  27 1 740  1 


REF 

1 

REF 

85 

LAST 

1465 

REF 

2 

LAST 

1473 

REF 

3 

LAST 

1473 

REF 

1 

REF 

525 

LAST 

1473 

REF 

4 

LAST 

1473 

REF 

5 

LAST 

147  3 

PEF 

1 

REF 

291 

LAST 

1473 

21 ,3154 

4 

1744 

0 

21,3155 

0 

0006 

1 

21,3156 

7 

4 73  6 

0 

21,3157 

0 

0006 

1 

21 ,3160 

7 

1 744 

0 

21,3161 

6 

1741 

1 

2 1 , 3162 

0 

0006 

1 

21,3163 

6 

3200 

0 

21,3164 

0 

0006 

1 

21 ,3165 

4 

COni 

1 

21,3166 

6 

1741 

1 

21 , 3167 

0 

QC06 

1 

21,3170 

1 1 

' 741 

0 

21,3171 

57 

•746 

0 

21 ,3172 

3 

r 001 

0 

21 ,3173 

22 

007 

0 

21,3174 

0 

C006 

1 

EXTEND 

BZF 

GTSQAXIS 

INDEX 

A 

CS 

LIMITS 

vru 

I 

a L n 

L 

CCS 

QRCNTR 

INDEX 

A 

CA 

E DOT  Q 

OXCH 

WCENTRAI. 

INDEX 

QRCNTR 

CA 

KQ 

TS 

KCENTFAI 

EXTEND 

BZF 

PCSOc'  I VE 

INDEX 

QRCNTR 

CAE 

QDIFF 

EXTEND 

MP 

KCENTRAL 

I.XCH 

K2THETA 

EXTEND 

MP 

BITS 

DXCH 

K2T  META 

EXTEND 

MP 

R TTF 

1 1 r 

D1  1 2 

ADS 

K2THETA 

CS 

ACENTRAL 

EXTEND 

MP 

B I TH 

EXTEND 

MP 

ACENTRAL 

AD 

KCENTRAL 

EXTEND 

8ZMF 

HUGEQUOT 

EXTEND 

DCS 

A 

AD 

KCENTRAL 

EXTEND 

DV 

KCENTRAL 

XCH 

A2CNTRA! 

CA 

1. 

LXCH 

7 

EXTEND 

+ 1 
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USE  FULL  SCALE  FOR  LARGER  AOS  ESTIMATES. 


LIMITS  +1  CONTAINS  NEGMAX. 

LIMITS  -1  CONTAINS  POSMAX. 

PICK  UP  RATE  FOR  THIS  AXIS.  RATE  CELLS 
ARE  ADJACENT,  NOT  SEPARATED.  AT  PI/4 


COLLECT  K FOR  THIS  AXIS 


CONTROL  AUTHORITY  ZFRO.  AVOID  DRIVING 
ENGINE  BEK.  TO  THE  STOPS. 

QQIFF,  PDIFF  ARE  STORED  IN  D.P. 


Q(P )D IFF  IS  THETA  (ERROR)  SCALED  AT  PI. 
FORM  K* ERROR  AT  PI  (2)  /?(8) , IN  D.P. 


' ESCALE  TO  4* P I (2 ) 


FIRST  TERM  OE  NEGUSUM  IN  K2THETA. 

NO  CAFPY  NEEDED  D.P.  AT  4*PI(2) 

FORM  AL  PHA ( 2 ) / ( 2*K ) AT  16*PI,  IN  D . D . , 
limiting  QUOTIENT  TO  AVOID  OVERFLOW. 
-ALPHA/2  IN  A,  SCALED  AT  PI/4 

— AL P H A ( 2 ) / 2 IN  A , L , SCALED  AT  PII2I/16 


K-ALPHA ( 2 ) / 2 SHnULO  BE  t>NZ  pp  DIVISION 


ALPHA ( 2) /2  - K 


HIGH  CP  DEF  OF  QUOTIENT. 

SHIFT  UP  THE  REMAINDER. 
ZERO  LOW-ORDER  DIVIDEND. 
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L TRIG  GIMBAL  CONTROL  SY5TFM 


0086 

REF 

6 

LAST 

1473 

21, 3175 

11 

• 741 

0 

0087 

REF 

2 

LAST 

147  3 

21 ,317  6 

57 

’747 

1 

no  o o 

DCF 

1 

? 1 .3177 

1 

3203 

y Up  l: 

f'  EL  1 

1 

4 1 » - i.  ' 1 

X 

00  8 c 

REF 

40 

LAST 

1422 

21 , 3200 

3 

4733 

1 

00°p 

REF 

202 

LAST 

1473 

21,3201 

54 

001 

1 

0091 

REF 

3 

LAST 

1474 

21 , 3202 

53 

’747 

0 

0092 

REF 

2 

LAST 

1473 

21,3203 

3 

1 743 

0 

009  3 

21,3204 

0 

0006 

l 

0094 

REF 

36 

LAST 

1446 

21 , 3295 

7 

4 743 

1 

00  9 c 

REF 

1 

21 , 3206 

53 

* 743 

1 

0096 

21 , 3207 

0 

0006 

1 

0097 

REF 

2 

LAST 

1474 

21 ,32  10 

3 

1743 

0 

0096 

REF 

1 

21,3211 

53 

’ 75  2 

1 

00°  c 

P.  FF 

LAST 

147  3 

21, 321? 

3 

1744 

J 

0100 

21,3213 

0 

0006 

1 

0101 

21,32  14 

6 

3220 

1 

DV 

XCH 

IGF 

HUGEQUOT  CA 
TS 

DXCH 

HAVEQ'JOT  CA 

EXTEND 

MP 

DXCH 

EXTEND 
DC  A 
DXCH 

CA 

EXTEND 

BZMF 


0102 

21,32) 5 

0 

0006 

1 

0103 

REF 

4 

LAST 

147* 

2 1 , 32  1 6 

3 

176  7 

1 

0104 

21  ,3217 

1 

3222 

1 

oi : 

21 , 3220 

0 

0006 

1 

0106 

REF 

5 

LAST 

1474 

21 , 3221 

4 

1747 

0 

0101 

OFF 

2 

LAST 

1474 

21,3222 

21 

'7  52 

1 

0108 

REF 

3 

LAST 

1474 

21,3223 

11 

' 75  1 

1 

01  lc 

REF 

1 

21,3224 

1 

3230 

1 

0110 

i 

•a  9 9 “7 

1 

c L f ~j  ci.  Z.  LI 

1 

-2  U-  C- 

1 

0111 

REF 

1 

21,322  4 

1 

32  32 

c 

0112 

REF 

4 

L A $T 

1 4 7 <• 

21,3227 

1 1 

1 752 

1 

0113 

REF 

63 

LAST 

146  1 

21,3230 

3 

47  53 

1 

0114 

21,3231 

1 

3233 

1 

0115 

RFF 

64 

LAST 

1474 

2 L,  3232 

4 

47  53 

0 

Oil: 

REF 

1 

2 1,3233 

55 

' 745 

1 

0117 

REF 

2 

LAST 

1474 

21,3234 

11 

« T45~ 

1 

one 

REF 

1 

21, 3235 

1 

3247 

1 

0119 

REF 

1 

21,3236 

1 

3240 

0 

0120 

REF 

1 

21 ,3237 

1 

3244 

1 

0121 

REF 

3 

LAST 

147* 

21 ,3260 

55 

'74  2 

0 

0122 

REF 

4 

LAST 

147  4 

21,3241 

55 

•763 

1 

0123 

REF 

2 

LAST 

1474 

21,3242 

1 

32  47 

1 

EXTEND 

DCA 

TCF 

EXTEND 

DCS 

DAS 

CCS 

TCF 

TCF 

TCF 

CCS 

P0SFNCT1  CAF 
TCF 

NEGFNCT1  CS 
TS 

CCS 

TCF 

TCF 

TCF 

DEFUNCT  TS 
TS 
TCF 


KCENTRAL 
A2CNTRAL  +1 
HAVEQUOT 

P OSMAX 
L 

A2CNTPAL 
WCENTRAL 
B I T 9 

K2CNTRAL 


K2CNTK Al 
FUNCTION 

ACENT!!  At 

+4 


A2CNTRAI 

+3 


A2CNTRAL 

FUNCTION 

FUNCTION 
POSFNC' 1 
+ 2 

NEGFNCT 1 

FUNCTinr  +1 
B I T 1 
+2 

BIT1 

DEL 

DEL 

FUNCT2 

DEFUNCT 

NEGFNCT2 

K2CNTRAL 
K2CNT'-’ AL  +1 
FUNCT2 


3:15  DEC.  2,1970  LMDAP  .019  PAGE  1474 
USER *S  PAGE  NO.  3 E6  S4 


QUOTIENT  STORED  AT  16*PI  , D.P. 


LIMITED  QUOTIENT  STORED  AT  16*PI,  D.P. 


RESCALE  OMEGA  AT  16*RI  IN  D.P. 

LOWER  WORD  OVERLAYS  OMEGA  IN  W-CeIiTRAL 


GET  ALPHA*  ABS ( ALPHA  !/ ( 2*K  ) 


OMEGA  + ALPHA* ABS ( ALPHA)/2*K  ) AT  16*PI 

DEL  = +1  FOR  FUNCT1  GREATER  THAN  ZERO. 
OTHERWISE  DEL  = -1 

USE  LOW  ORDER  WORD  SINCE  HIGH  IS  ZERO 


REPLACE  OMEGA  BY  DEL  *OMEG A 
POSITIVE  DEL  VALUE.  PROCEED. 


3 

3 


► 

* 

» 

> 

I 
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3:15  DEC.  2,1970  LMDAP 


.015  PAGE  1475 


L TRIM  GIMRAL  CONTROL  SYSTEM 


USER'S  PAGE  NO.  A 


E6  S A 


0124 


21,3243  65252  1 NE01/3  DEC  -.33333 


012  5 


0126 

REF 

5 

LAST 

1 474 

0127 

REF 

6 

LAST 

14  75 

0128 

0129 

013C 

RFF 

REF 

6 

7 

LAST 

LAST 

1474 
147  5 

X *4-  1 > 

0131 

0132 

REF 

7 

LAST 

1675 

RFF 

1 

013? 

0134 

REF 

8 

LAST 

1475 

0135  REF  293  LAST  1474 

013  ' 

0137  kEF  2 LAST  1475 

0138  REF  9 LAST  1^75 

01 3 c REF  294  LAST  1475 

0140 

0141  REF  10  LAST  1475 

0142 


0143 

REF 

8 

L A CT 

147  5 

0144 

REF 

1 1 

LAST 

1475 

014  6 

REF 

12 

LAS'S 

147  5 

0146 

01s  7 

REF 

4 

LAST 

147.4 

m a v 

o cf 

LAST 

3 473 

0149 

REF 

13 

LAST 

1475 

1 

0151 

REF- 

5 

LAST 

1475. 

0152 

REF 

5 

LAST 

14  7 5 

0153 

REF 

2®  5 

LAST 

14  75 

0154 

0155 

REF 

6 

LAST 

1475 

0156 

REF 

9 

last 

147  5 

0157 

0158 

REF- 

7 

LAST 

1474 

0 1 5 e 

REF 

5 

1 AST 

1 47  4 

0160 

REF 

10 

LAST 

1475 

0161 

0162 

REF 

3 

LAST 

1475 

0163 

REF 

6 

LAST 

1475 

0166 

REF 

296 

LAST 

1475 

0166 

0166 

REF 

7 

LAST 

14?5 

21.3244  0 0006 

21.3245  4 1743 

21 . 3246  5 3' 743 

21  , 3247  0 0006 

21  , 3250  3 1747 

21.3251  21*743 

21.3252  3 1746 

21,3  28  3 0 

2 1 . 3254  7 3243 

21.3255  53 ' 747 

21 .3256  3 0001 

21.3257  0 0006 

21.3260  7 3243 

21.3261  27' 747 

21.3262  54  001 

21.3263  1 3265 

21.3264  27*746 

21,326  5 0 f 006 

21,326%  3 1743 

21,3267  2 1 ' 747 

21.3270  3 1746 

21.3271  0 0006 

21.3272  7 1744 

21.3273  21*740 

21.3274  3 1747 

21.3275  0 0006 

21.3276  7 1744 

21.3277  27*740 

21.3300  54  001 

21.3301  1 3303 

21.3302  27 1 7 3 7 

21.3303  3 1742 

21.3304  0 <006 

21.3305  7 1741 

21.3306  53 ' 7 52 

21.3307  3 1743 

2 1 . 3310  0 0006 

21.3311  7 1741 

2 1,3312  2 7 ' 7 5 2 

21,3313  54  001 

2 1,3314  1 3316 

21,3315  27 ' 7 5 1 


1 

1 

1 

1 

1 

1 

0 

1 

0 

0 

0 

1 

0 

0 

1 

1 

1 

1 

0 

0 

0 

1 

0 

1 

1 

1 

0 

1 

1 

0 

1 

1 

1 

0 

1 

0 

1 

0 

1 

1 

1 

1 


NEGFNCT2  EXTEND 

DCS  K2GNTPAL 

DXCH  K2CNTPAL 

FUN  CT  2 EXTEND 

OCA  A2CNTRAL 

OAS  K2CNT!  AL  DEL*OMEGA  + ALPHA! 2)/ ( 2*K ) AT  16*PI,D.P. 

FUNC73  CA  A 2C  NT  R AL 

EXTEND 

MP  MEG  1/3 

DXCH  A2CNTRAL 

CA  L 

EXTEND 

MP  NEG1/3 

ADS  A2CNTRAL  +1 

TS  L 


TCF 

+ 2 

A2CNTRAL 

NOW  CONTAINS  -ALPHA ( 2 ) / ( 6*K } 

ADS 

A2CNT^AL 

SCALED  AT 

164PI  , IN  D. P. 

EXTEND 

CCA 

tllcNTRAL 

DELTDMFGA 

+ Al.  PH  A ( 2 1 / ( 3*K  ) IN  A2CNTPAL 

DAS 

A2CNTRAL 

SCALED  AT 

1 6*  P I , D.P. 

CA 

A2CNTRAL 

EXTEND 

MP 

acfntral 

DAS 

K2THFt  A 

CA 

A2CNTF  AL 

+ 1 

EXTEND 

MP 

AGENT RAl 

AGENT FAL 

NAY  NOW  BE  OVERLAID. 

ADS 

K2THETA 

+ 1 

TS  L 

TCF  +2  TWO  TEFMS  OF  NEGUSUM  ACCUMULATED,  SO  FAR 


ADS 

K2THETA 

SCALED  AT  4*F'I  (2  ) , IN  D.P. 

GETKOOT  CA 

K2CNTRAL 

K*(  DEL*OMEGA  + Al  dHA(  2 ) /{  2*K  ) 

) IS  THE 

EXTEND 

TERM  FOR  WHICH  A SQUARE  ROOT 

IS  NEEDED. 

MP 

KCENTPAL 

K AT  PI/2 (S) 

DXCH 

FUNCTION 

CA 

K2CNTRAL 

+ 1 

EXTEND 

MP 

KCENTPAL 

ADS 

FUNCTION 

+ 1 

TS 

L 

TCF 

+ 2 

ADS 

FUNCTION 

DESIRED  TERM  IN  FUNCTION,  AT 

PI ! 2) /16 

1 


GAP:  ASSEMBLE  REVISION  OOI 

OF  AGC  PROGRAM  AP11R0PE  BY  EYt.ES 

3:15  DEC.  2,1970  LMDAP  .015  PAGE 

1476 

L 

TRIM 

G1MBAL  CONTROL 

SYSTEM 

USER'S  PAGE  NO.  5 E6  S4 

0167 

REF 

3 

LAST 

1474 

21,3316 

11*745  1 

CCS 

DEL 

0168 

REF 

1 

21,3317 

1 3524  0 

TC.F 

R STOFGTS 

0169 

REF 

1 

2 1 ,3320 

1 3566  0 

rcF 

NEGUSUM 

0170 

REF 

1 

2 1,332  1 

1 9323  1 

TC  F 

NEGATE 

0171 

ref 

2 

LAST 

1 7 6 

21,3 322 

1 3566  0 

TCP 

NEGUS  UN 

0172 

21,3323 

0 0006  1 

NEGATE  EXTEND 

0173 

REF 

1 1 

LAST 

1475 

21,3324 

4 1743  1 

DCS 

K2CNTRAL 

0174 

REF- 

12 

LAST 

1476 

21, 3325 

53*743  1 

DXCH 

K2CNTRAL 

017- 

REF 

2 

LAST 

147  6 

21 , 33  26 

1 3524  0 

TC  F 

RSTOFGTS 

0176 

16,3735 

BANK 

16 

0177 

REF 

5 

LAST 

1428 

E6 , 1501 

EBANK= 

NEGUQ 

0178 

REF 

4 

LAST 

1470 

16,2000 

SETLOC 

DAPS  1 

0179 

16,3735 

BANK 

R 0180 

THE 

WPCHN12  SUBROUTINE  SETS  7 

ITS  4,io, 

11,12  OF  CHANNEL 

12  ON  THE  BASIS  OF  THE  CONTENTS  OF  NEGUQ, NEGUF  WHICH 

ARE 

R 0 1 8 2 

THE 

NEGAT IVES 

OF  THE  OES1RFO 

ACCFt  Ef  AT  ION  CHANGE  S . A C DT  + C 1 2 SETS  Q(r)ACCODT  TO  REFLECT  thf  NEW  QPTVFS. 

R 01 94 

WARNING: 

AC0T+C12 

ANO  Wr.CHNl 

2 MUST  BE 

CALLED  WITH  INTERRUPT  INHIBITED. 

0135 

16,3735 

07400  1 

B G 1 M OCTAL 

07400 

01  86 

REF 

8 

LAST 

1300 

006  6 

CHNL12  EQUALS 

IT6MP6 

013  7 

REF 

6 

LAST 

1476 

16,3736 

4 1501  0 

ACDT+C1 2 CS 

NEGUQ 

0188 

16,3737 

0 0006  1 

EXTEND 

GIMBAL  DPIVF  REQUESTS. 

018° 

PEF 

4 

LAST 

132 

16,3740 

7 1507  0 

MP 

ACCDOTQ 

0190 

REF 

4 

LAST 

1428 

16 ,3741 

23 ' 510  1 

LXCH 

QACCDOT 

01°1 

REF 

3 

LAST 

1429 

16,3742 

4 1503  1 

CS 

NEGUR 

019  2 

16,3743 

0 0006  1 

EXTEND 

0193 

REF 

1 

16,3744 

7 1511  1 

MP 

ACCDOTR 

0194 

REF 

4 

LAST 

1429 

16,3745 

23*512  0 

LXCH 

P ACCDOT 

0195 

REF- 

7 

L AST 

147  6 

16, 3746 

11*501  0 

CCS 

NEGUQ 

0196 

REF 

52 

l AST 

147  0 

1 6 , 374  7 

3 4742  1 

CAP 

BIT  10 

0197 

16,3750 

1 3752  0 

TCP 

+ 2 

0]  9 9 

REF 

37 

LAST 

1474 

1 6,8751 

3 4743  0 

CAE 

B I T° 

019° 

REF 

1 

16,3752 

54  066  0 

TS 

CHNL12 

0200 

REF 

4 

LAST 

1476 

16,3753 

11 '503  1 

CCS 

NEGUR 

0201 

REF 

42 

LAST 

1468 

16,3754 

3 4740  0 

CAE 

BIT12 

0202 

16,3755 

1 3757  0 

TC  F 

+ 2 

0293 

REF- 

33 

LAST 

14fQ 

16,3756 

3 4741  1 

CAE 

B I T 1 1 

0204 

REF 

2 

LAST 

1476 

16,3757 

25  066  0 

ADS 

CHNL12  (STORED  RESULT  NOT  USED  AT  PRESENT) 

0205 

REF 

1 

16,3760 

4 3735  1 

CS 

bgim 

0206 

16,376  1 

0 0006  1 

EXTEND 

0207 

REF 

71 

LAST 

1429 

16,3762 

02  012  0 

RAND 

CHAN12 

0208 

REF 

3 

LAST 

1476 

16, 3763 

6 0066  1 

AD 

CHNL12 

0209 

16 , 3764 

1 : i 

EXTEND 

0210 

REF 

72 

LAST 

1476 

16,3765 

01  012  0 

WRITE 

CHAN  1 2 

► 

GAP  : 

> L 


ASSEMBLE  nE  V IS  I ON  001  OF  AGC  PROGRAM  AP11R0PE  BY  EYLF3 

ip  i M g T '! b a l control  system 


R 02 1 1 
0212 

REF 

2 

LAST 

1428 

0213 

REF 

52 

LAST 

144  8 

0214 

REF 

53 

LAST 

1477 

02  1 c 

REF 

(>.  l o 

I A CT 

144  1 

16,3766  4 4 747  0 CS 

1<' , 376  7 7 12  73  1 MASK 

14.3770  65 '2 73  1 TS 

16.3771  0 CP02  0 TC 


0216 

0217 

0218 
02  lc 


21,3327 

K E F 3 LAST  1473  £6,1450 
REF  2 LAST  1A?2  21,2000 

21,3327 


BANK 

FBANK= 

SETLOC 

BANK 


CALLGMBL 
RCSFLAGS 
- CSFLAGS 

0 

21 

QDIFF 
DA  PSA 


15  DEC. 

2,1970 

LNOAP 

.015 

PAGE  1477 

..1 

USER 

•S  PAGE 

NO. 

6 

E 6 S4 

TURN  OFF 

P EQUEST 

FOR  ACDT+C12 

EXECUTION. 

,.z 


RETURN  TP  CALLER. 

..E 


4 

I 

« 

< 

i 


< 


GAP:  a:  ..E  ‘RLE  F V I : ID ! up  1 IF  AGC  P'UuAu  AP11R0PE  BY  EYLLS 


3:15  DEC 


2,1970  IKDAP 


015  PAGE  1478 


I.  TP  I:  GIMBAL  CONTROL  SYSTEM  USER'S  PAGE  NO.  7 E?  $4 

P0220  SUBROUTINE  TIMEGMBL:  MOD  0,  OCTOBER  1967,  CRAIG  WOP  K 

R 022 1 T I EG  ■‘•'•01  CU'-uJTt-S  THE  0 I V E TINE  NEEDED  F Or.  THE  T • i •'  GIK3AL  TO  POSITION  THE  DESCENT  ENGINE  NOZZLE  SO  AS  TO  NULL 

R0223  THE  OFFSET  ANGULAR  ACCELERATION  ABOUT  THE  Q (OR  R)  AXIS.  INSTEAD  OF  USING  AOSO(F),  T I MEG  MB  l USES  ,4*A0SQ  ( P.  ) , 

R022q  CCAL.  ED  AT  P 1 / Q . FOR  EACH  AXIC,  THE  DRIVE  TIME  IS  COMPUTED  AS  ABS  ( AL  P HA/ACCDOT ) . A ZERO 

R 0227  ALPHA  f , ACCDOT  OR  A ZF  • OUr'T  l Ef  T TURNS  OFF  THE  GIMBAL  DRIVE  IMMEDIATELY.  OTHERWISE,  THE  GIMBAL  IS  TURNED  ON 

*022°  DRIVING  IN  THE  CC  ECT  DIRECTION.  THE  Q ( r ) GI MT  IMP  IS  SE'’  TO  TERMINATE  THE  DRIVE  AND  Q(R)ACCDOT 

R 023 1 IS  CT!  ED  TC  REFLECT  THE  NEW  ACCELERATION  DERIVATIVE.  NEGUQ(R)  WILL  CONTAIN  +l,+0,-l  FOR  A Q(R)ACCDOT  VALUE 
R 0233  WHICH  IS  NEGATIVE,  ZERO,  OR  POSITIVE. 


R 0 2 3 ^ 

R 02  3 6 
R0238 

P 02 3 c 


T -i--;  A ’ 1 , A , SCALED  AT  PI/2,  AMD  ACCD  TQ,  ACCDC'1'  A'i  01/2(7).  PI/2(7)  . 

OUTPUTS:  NEW  GIMBAL  DP  IVF  BITS  IN  CHANNEL  12, NEGUQ, NEGUR, QACCDOT  AND  F ACCDOT,  THE  LAST  SCALED  AT  PI/2 (7). 

QIRIGIMTIMR  WILL  BE  SET  TO  TIME  AND  TERMINATE  GIMBAL  DRTVE(S) 

DEBRIS:  A , L 1 0 , ITFKPS  2,3,6,  RUPTREG2  AND  ACDT  + C12  DEBRIS. 


R 024W5  EXITS:  VIA  TC  0. 


P 024 1 ALARMS,  ABORTS,  : NONE 

P 0242  SUBROUTINES:  ACDT  + C12,  IfiNKCALL 

R 02^3  WARNING:  THIS  c • IBP  ORIt  j m f tt£c  INTO  CHANNEI  12  AMPtlSES  THE  I TEMPS.  THEREFORE  !T  MAY  ONLY  BE  CALLED  WITH 

R 0245  INTERRUPT  INHIBITED. 


R 0246 

ERASABLE 

STORAGE  CONFIGURATION 

(NEEDED 

BY  THE  INDEX 1NG  1 

METHODS ) : 

A 0247 

NEGUQ 

ERASE 

+ 2 

NEGATIVE  OF  O-AXIS  GIMBAL  DRIVE 

A ' 

( SPWOPD) 

EQUALS 

NEGUQ  +1 

ANY  S.P.  ERASABLE  NUMBER,  NOW  THRSTCMD 

A0249 

NEGUR 

EQUALS 

NEGUQ  +2 

NEGATIVE  OF  R-AXIS  GIMBAL  DRT  VF 

A 0251 

ACCDOTQ 

ERASE 

+ 2 

Qtr>  JERK  TERM  SCALED  AT  P I / 2 ( 7 ) RAD/SECI3) 

A0251 

( SPWORD ) 

EQUALS 

ACCDOTQ  +1 

ANY  S.P.  ERASABLE  NUMBER  NOW  QACCDOT 

A 02  5 2 

ACCDOT? 

EQUALS 

ACCDOTQ  +2 

,-JERK  TEF ' SCALED  AT  PI/217)  RAD/SEC(3) 

A0253 

ACC  DO TQ, ACCDOT^  APE  MAGNITUDES. 

A 02  54 

AOSQ 

ERASE 

+ 4 

Q-AXIS  ACC.  ,D.P.  AT  P I /2  R/SFC(2) 

A 0255 

AOSR 

EQUALS 

AOSQ  +2 

R-AXIS  ACCELERATION  SCALED  AT  PI/2  R/S2 

0256 

P EF 

9 

LAST 

1476 

0066 

QRNDXER 

EQUALS 

1 TEMP 6 

0257 

21  , 332  7 

23146 

0 

OCT 2 3 146 

OCTAL 

2 3146 

DECIMAL  .6 

0258 

°FF 

30 

LAST 

13  75 

006  3 

rz ACC  DOT 

EQUALS 

! TENP3 

0259 

REF 

174 

LAST 

146  8 

21 , 3330 

3 47  53 

1 

TIMFGMBL 

CAF 

ONE 

INITIALIZE  ALLOWGTS. 

0260 

REF 

3 

LAST 

1449 

21,2331 

55 ' 502 

0 

TS 

ALLUWGTS 

0261 

r-EF 

105 

LAST 

1472 

21,3332 

3 47  52 

0 

CAF 

TWO 

S FT  UP  LOOP  FOR  P AXIS. 

0262 

REF 

420 

LAST 

1477 

21 , 3333 

22  002 

0 

LXCH 

Q 

SAVE  RETURN  ADDRESS. 

0263 

REF 

25 

LAST 

1409 

21 , 3334 

22  071 

1 

LXCH 

RUPTREG2 

GAP: 

L 

0264 

0265 

0266 

0267 

0268 

026° 

0270 

0271 

0272 

0273 

Of?  7*. 

0275 

0276 

0277 

027  8 

0270 

0280 

028  1 

023? 

0263 

0284 

0285 

0236 

02  o'7 

0288 

0289 

0290 

0291 

0292 

028  3 

0294 

0295 

0296 

0297 

0298 

029Q 

0300 

0301 

0302 

030  3 

030<f 

0308 

0306 


ASSEMBLE  KEVISI.36  001  OF  AGO  PP  OG  A M API  1KOPE  BY  EYLES 
Til  M GIwpAL  CON  T !-  OL  SY  ST  PM 


3:15  DEC.  2,1^70  LMOAP 
USER'S  PAGE  NO. 


.015  PAGE  1479 
F6  S4 


REF  305 
R EE  1 
REE  2 
REF  5 

R EF  1 
REF  1 


LAST  1472 

l AST  1679 
LAST  1476 


21 .3335 

21.3336 

21.3337 
2 1,3360 
21,3341 
21,336? 

21 .3343 

2 1 . 3344 


1 3337  1 
3 4755  1 
54  066  0 
50  066  1 
3 1507  1 
1 

6 3413  1 
54  063  0 


TIMQGMBL 


TCF 

CAF 

TS 

INDEX 

CA 

EXTEND 

BZMF 

TS 


+2 

ZERO 

QRNDXER 

qrndxer 

ACCDQTQ 

T GOFF NOW 
NZACCDOT 


NOW  DC  THE  O-AXIS 


ACCDOT  IS  PF  ESUME  D TO  BE  AT  PI/2(7). 

IS  ACCDOT  LESS  THAN  OR  EQUAL  TO  0? 

NO.  STORE  NON-ZERO,  POSITIVF  ACCDOT. 


REF  3 LAST  1479  21,3345  50  066  1 ALPHA~PY  INDEX  QRNDXER 

REF  24  LAS7  147  2 2 1,3346  4 1537  0 CS  AOSQ 

•>1  ,?  3'  7 0 0006  1 EXTEND 

REF  2 LAST  1479  21,3350  1 3413  0 BZF  TGOEFNOW  IS  ALPHA  ZERO? 


FEE  421  LAST  1478 
REF  1 

REF  422  LAST  1479 
REF  297  LAST  1475 
REF  1 


21, 3351  54  002  1 

21,335?  0 0006  1 

21  , 3353  7 3327  0 

f 1,3 35 4 6 0 00?  0 

21  ,3355  54  001  1 

21,3356  1 3363  0 


TS  Q 

EXTEND 

MR  0CT231A6 

AD  Q 

TS  L 

TCF  SETNEGU 


SAVE  A COPY  OF  -Af  S. 

NO.  TESCALE  FOr  TIMEGMRL  USE. 

OCTAL  23146  IS  DECIMAL  .6 

-1.67  AOS  AT  PI/2  = 47  AO  S AT  PI/8. 

WAS  THERE  OVERFLOW? 

NO.  COMPUTE  DRIVE  TIME. 


■EF  526 
RTF 

REF  P 
REE  1 


LAST  16?3 
LAST  1479 
LAST  1 4 7 6 


21,3357 

21 . 3360 

21 . 3361 
2 1,336? 


4 0000  0 
50  066  1 
57*501  1 
1 3417  1 


CS  A RECOVER  -SGN(AOS)  IN  THF  A REGISTER. 

If  HEX  OIOXEF  YES.  START  DRIVE  WITHOUT  WAITLIST. 

XCH  NEGUO 

TCF  NOT  ALLOW  KNOCK  DOWN  THE  ALLOWGTS  FLAG. 


21,336  3 0 CC 06  1 SETNEGU  EXTEND 


P EF 

1 

21 . 3364 

21.3365 

21 . 3366 

6 3371 

4 0000 
54  062 

1 

0 

1 

BZMF 

Cl  M 

TS 

REF 

27 

LAST 

1376 

REF 

65 

LAST 

1474 

21,3367 

4 4753 

0 

CS 

RLE 

2 

LAST 

1479 

21 ,3370 

1 3373 

1 

TCF 

' EE 

23 

l AST 

1479 

21,3371 

54  062 

1 

PnSAfcPH 

TS 

REF 

6 6 

LAST 

1479 

21,3372 

3 47  53 

1 

CA 

REF 

5 

LAST 

147Q 

2 1 ,3373 

50  066 

1 

+ 2 

INDEX 

REF 

9 

LAST 

1479 

21 , 3374 

55 • 501 

0 

TS 

D C S A L PH 

I TEMP2 

B I T 1 

PCS AL  PH  +2 

STORE 

-ABS ( .47A0S ) 

SCALED 

AT 

PI/8. 

STORE 

-ABS  ( .67 AOS  ) 

SCALED 

AT 

PI  /8  . 

I TEMP2 

B I T 1 

QRNDXER 

SINIAPS)  INTO  NEGU 

NEGUQ 

STORE 

SGN(APLHA)  AS 

NEGU 

REF 

2 

LAST 

1479 

21,3375 

3 

0063 

1 

CA 

NZ ACCDOT  , 

21 , 3 3 76 

0 

0 006 

1 

EXTEND 

REF 

43 

LAST 

1476 

2)  , 3377 

7 

< 740 

I 

MP 

BIT12 

27ACC  DOT , SCALED  AT  PI/8. 

REF 

?Q 

LAST 

14  7° 

21 ,3400 

6 

0 062 

0 

AD 

ITEMP2 

-ABSIAIPHA)  + 27  ACC  DOT , AT  PI/8. 

21, 3401 

0 

0006 

1 

EXTEND 

REF 

2 

LAST 

1479 

21 ,3402 

6 

3417 

0 

BZMF 

notallow 

IS  DRIVE  TIME  MORE  THAN  TWO  SECONDS? 

REF 

30 

LAST 

1479 

2 l , 340  3 

4 

00  62 

1 

CS 

ITEMP2 

NO.  COMPUTE  DRIVE  TIME. 

>1 , 3404 

0 

< 006 

1 

EXTEND 

ABS (ALPHA)  AT  PI/8. 

REF 

1 

21,3405 

7 

3440 

0 

MP 

OCT 00 240 

DECIMAL  10/1024 

21 , 3406 

0 

(006 

1 

EXTEND 

QUOTIENT  IS  DRIVE  TIME  AT  WAIT!.  1ST. 

REF 

3 

LAST 

1479 

2 1 , 3407 

10 

063 

0 

DV 

NZACCDOT 

ABS(ALPHA) /ACCDOT  AT  2(141/100 
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TR  I M 

GIMBAL  CONTROL 

SYSTEM 

USE0 ' S CAGE  NO.  9 E6  S4 

0307 

21,3410 

0 0006 

1 

EXTEND 

0308 

REF 

3 

LAST 

1 A79 

21,3411 

1 3413 

0 

BZF 

TGOFFNOW 

DRIVE  TIME  MUST  BE  GP  E ATER  THAN  ZERO. 

0309 

7 EF 

1 

21,3412 

1 34  25 

0 

TCP 

DR  I V EON 

0310 

PFF 

306 

LAST 

1 A79 

21,3413 

3 4 7 55 

1 

T GOFF MOW 

CAF 

ZERO 

TURN  OFF  GIMBAL  NOW. 

0311 

REF 

6 

LAST 

1479 

21,3414 

50  066 

1 

INDEX 

QRNDXER 

0312 

RFF 

10 

' A ■ Y 

1A79 

21, 3415 

55 • 501 

0 

TS 

NEGUQ 

0313 

OFF 

1 

21,3416 

1 3427 

1 

TCP 

DONE  YET 

03 1 

REF 

A 

LAST 

8 29 

21, 341 7 

3 6010 

0 

NOTALLOW 

CAF 

OCT  31 

0315 

REF 

7 

LAST 

1 A 8 0 

21, 3420 

50  066 

1 

INDEX 

QRNDXER 

0316 

REF 

8 

LAST 

1A72 

21,3421 

55*632 

0 

TS 

QGIMTIMR 

0317 

REF 

307 

LAST 

1480 

21,3422 

3 ^7  55 

1 

CAF 

ZERO 

DRIVE  TIME  IS  AORE  THAN  2 SECONDS,  SO 

031C 

REF 

A 

LAST 

1 A7  8 

21 , 3423 

55*502 

0 

TS 

AU-OWGTS 

DO  NOT  PERMIT  FURTHER  GTS  ATTITUDE-RATE 

A 03 1 

CONTROL  UNTIL  AOStASK  AP°ROVES. 

0320 

PFF 

3 

LAST 

1480 

21 , 3424 

1 342  7 

1 

TCP 

DONE YET 

NO  WAITLIST  CALL  IS  MADE. 

0321 

REF 

8 

LAST 

1A80 

21 ,3425 

50  066 

1 

DR  IV  EON 

INDEX 

QRNDXER 

0322 

REF 

9 

LAST 

1480 

2 1,34  26 

55' 632 

0 

TS 

QGIMTIMK 

CHOOSE  Q OR  P AXIS. 

0323 

REF 

q 

LAST 

1 A 8 0 

21, 3427 

10  0 66 

0 

DONE YET 

CCS 

QRNDXER 

032  A 

REF 

1 

21 , 3*30 

1 3336 

0 

TCF 

TIMQGMBL 

0325 

REF 

18 

LAST 

1362 

21,3431 

52  073 

1 

DXCH 

P UPTP.EG3 

PROTECT  T BNKC  ALL  EPASABLES.  ACDT+C 12 

0326 

REF 

31 

LAST 

1479 

21 , 3432 

52  063 

0 

DXCH 

ITEMP2 

LEAVES  I T E M P S 2 , 3 ALONE. 

0327 

REF 

61 

LAST 

] A 5 3 

21,3433 

0 4 674 

c 

TC 

I BNKC ALL 

TURN  OF  CHANNEL  BITS,  SET  QIOACCDOTS. 

032  P 

FEE 

7 

LAST 

142  8 

2 1 , 34 3* 

3573  6 

0 

CAOR 

ACDT+C12 

032° 

REF 

32 

LAST 

l 

21,3435 

52  063 

0 

DXCH 

ITEMP2 

RESTORE  ERASABLES  FOR  I BNKC  Al.  L . 

0330 

REF 

19 

LAST 

1480 

21,3436 

52  0 73 

1 

DXCH 

RUPTR EG3 

03  31 

ft  E F 

26 

LAST 

1478 

21,3437 

0 Cu71 

1 

TC 

R UP  T KEG  2 

RETURN  TO  CALLER. 

0332 

2 1 , 3440 

0C240 

1 

0CT00240 

OCTAL 

00240 

DECIMAL  10/1024 

f 
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► L TRIM  GI  MB  AL  CONTROL  SYSTEM  USER'S  PAGE  NC-.  10  E6  S4 

P 033  3 THE  FOLLOWING  SECTION  IS  A CONTINUATION  OF  The  TRIM  GIMBAL  CONTROL  FROM  THE  LAST  GTS  ENTRY.  THE  QUANTITY  NEGUSUM 

► R 0335  I S COMPUTED  FTP  EACH  AX!1"  (Q,  ),  . 707*DEL*FUNCTI ON ( 3/ 2 ) + K2THETA  = NEGUSUM.  NEW  DFIVES  ARE  ENTERED  TO  CH  12. 


R 0337 

► S 0339 
R 034.  i 
R0343 

> R 0341 
R 0347 
R 03'  9 

I 


THE  SUBROUTINr  GTS  OR  T ACCEPTS  A DOUBLE  PRECISION  VALUE  IN  FUNCTION,  FUNCTION  +1  AND  RETURNS  A SI N GL F- PREC I S ION 
SQUARE  LOOT  IF  THE  FOURTEEN  MOST  SIGNIFICANT  BITS  OF  THE  ARGUMENT.  ALSO,  THE  CELL  SHFTFLAG  CONTAINS  A BINARY 

• E T S,  S JCH  THAT  THE  S QUA 0 E r OCT  ( P ETUI  NED  IN  THE  A REGISTER  MUST  BE  SHIFTED  c I GHT  (MULTIPLIED  BY  2 TO  THE 
; (-  ) ) IN  ORDER  TO  BE  THE  TRUE  SQUARE  ROOT  OF  THE  FOURTEEN  MOST  SIGNIFICANT  BITS  OF  FUNCTION,  FUNCTION  +1. 

SQ(JAr-E  ROOT  ERROR  IS  !0T  MORE  THAN  2 IN  THE  14TH  SIGNIFICANT  BIT.  CELLS  CLOBBERED  APE  A,  L , SljpTFLAG,  ININDEX, 
HAIFA  ,,SC-  ATCH,-S.  .FUNCTION,  FUNCTION  +1.  GTSQKT  IS  C A I LED  BY  TC  GTSQRT  AND  RETURNS  VIA  TC  Q OR  TC  FUNCTION  +1. 
ZERO  OR  NEGATIVE  ARGUMENTS  YIELD  ZERO  FOR  SQUARE  ROOTS. 


0350 

REF 

8 

LAST 

1475* 

21,3441 

11 

* 751. 

1 

C T SOP  T 

1'?'  1 

REF 

1 

21,3442 

1 

3460 

1 

0352 

21 , 3443 

I 

3445 

0 

0353 

REF 

1 

21 , 3444 

1 

34  51 

0 

0354 

REF 

. g 

LAST 

14  81 

21.,  3445 

3 

17  52 

0 

0355 

21 , 3446 

0 

0006 

1 

0356 

REF 

2 

LAST 

1481 

21,3447 

6 

3451 

1 

noco 

0 cc 

1 

31  2/ CO 

1 

a A R Ll. 

n 

L 1 D _>  f 

" L f 

i. 

£ 1 t -> ’ ' 

I 

u 

0358 

REF 

308 

LAST 

1480 

2 1 , 345 1 

3 

'7  55 

1 

ZEPL OT 

0359 

REF 

1 

2 1 , 345 2 

55 

• 741 

C 

0360 

t EF 

'•23 

L AST 

1479 

21 , 3453 

0 

0002 

0 

0361 

REF 

10 

LAST 

148  1 

21 , 3454 

57 

'751 

0 

ZEROHIGH 

0362 

REF 

1 1 

LAST. 

148  1 

21 ,3455 

57 

' 752 

0 

036  3 

REF 

24 

LAST 

I 3 74 

21,3456 

3 

6757 

0 

0364 

REF 

2 

LAST 

I4r  1 

21 , 3457 

1 

3461 

0 

0365 

REF 

309 

LAST 

1481 

21 , 3460 

3 

47  5 5 

1 

GOODARG 

0366 

REF 

2 

LAST 

148  1 

21 , 346  1 

55 

' 74  1 

0 

0367 

REF 

1 

? 1 . 3 Lh  ? 

2 

5751 

1 

1 

c.  L f - l C 

J 

1 

036  8 

R E F 

1 

21 , 3463 

55 

* 744 

0 

036  9 

PEE 

1 

21 , 3464 

1 

3473 

0 

CCS  function 

TCF  GOODARG  FUNCTION  IS  POSITIVE.  TAKE  SQUARE  ROOT. 

TCF  +2  HIGH  ORDER  WORD  ZERO.  TRY  THE  LOWER. 

TCF  ZEkGOT  NEGATIVE.  USE  ZERO  FOR  1/2  POWER. 

CA  FUNCTION  +1 

EXPEND 

BZMF  ZEROOT 

TCF  ZERO HIGH  PROCEED. 

CA  ZERO 

TS  SHFTFLAG 

TC  0 

XCH  FUNCTION  14  MOST  SIGNIFICANT  BITS  ARE  IN  THE 

XCH  FUNCTION  +1  LOWER  WORD.  EXCHANGE  THEM. 

CA  SEVEN 

TCF  GOODARG  +1 

CA  ZERO 

TS  SHFTFLAG 

CA  TWELVE  INITIALIZE  THE  SCALING  LOOP. 

TS  ININDEX 

TCF  SCALLOP^ 


0370 

REF 

12 

LAST 

1481 

21 ,3465 

3 

1751 

0 

SCALSTRT 

CA 

FUNCTION 

0371 

PEE 

1 

21,3466 

1 

3507 

1 

TCF 

SCALDONE 

0372 

REF 

1 

LAST 

1466 

21  , 3"  7 

3 

7746 

0 

MULBLJSH 

CA 

NEG2 

IF  ARG  IS  NOT  LESS  THAN!  1/4,  INDEX  IS 

0373 

REF 

2 

LAST 

149  x 

21 , 3470 

27 

' 744 

0 

ADS 

ININDEX 

Z E r-  n , INDICATING  NO  SHIFT  NEEDED. 

0374 

21,3471 

0 

0006 

1 

EXTEND 

BRANCH  IF  APG  IS  NOT  LESS  THAN  1/4. 

0375 

REF 

1 

21 , 3472 

6 

3465 

0 

BZMF 

SCALSTRT 

OTHERWISE  CHMPAPE  ARG  WITH  A REFERENCE 

A 03  7 6 

WHICH  IS  4 TIMES  LARGER  THAN  THE  LAST. 

0377 

REF 

13 

LAST 

148  1 

21 , 3473 

4 

1751 

1 

SC  ALU  0° 

CS 

FUNCTION 

037  8 

REF 

3 

LA  r-T 

143  1 

21 , 3474 

51 

' 744 

1 

INDEX 

ININ  DEX 

037  9 

REF 

^2 

L.  AST 

1 656 

21,3475 

6 

4 7 3 5 

1 

AD 

BIT1  5 

REFERENCE  MAGNITUDE  LESS  Qf  F QU AL.  TO  1/4 

0389 

21 , 3476 

0 

0006 

1 

EXTEND 

0381 

REF 

1 

21 ,3477 

6 

3467 

1 

BZMF 

MULBUSH 

IE  A5  G IS  NOT  LESS  THAN  REFERENCE,  GO 

A0382  AROUND  THE  MULBERRY  BUSH  ONCE  MORE. 
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L If  10  G l MB  AL  CONTROL  SYSTEM 


USER'S  PAGE  NO.  11  E6  S4 


0383 

REF 

4 

LAST 

1431 

21 , 3500 

51 

' 744 

1 

INDEX 

inindex 

03R4 

REF 

53 

LAST 

1481 

21 , 3501 

3 

473  5 

1 

CA 

BIT15 

THIS  IS  THE  SCALF  MAGNITUDE 

0385 

REF 

1 

21 , 3502 

57 

•747 

1 

X C H 

HALFARG 

?#*( - IN  INDEX ) IS  THE 

SHIFT  DIVT  SCF  . 

0386 

21 ,3503 

0 

0006 

1 

EXTEND 

RESCALE  ARGUMENT. 

0387 

PFF 

14 

LAST 

1481 

21,3504 

3 

1752 

0 

DC  A 

FUNCTION 

0388 

21,3^05 

0 

0006 

1 

EXTEND 

038° 

REF 

2 

LAST 

1482 

21 ,3506 

11 

' 747 

0 

DV 

HALFARG 

A 0390 

ININDEX  AND  SHFTFLAG 

PRESERVE  INFO  FOR 

A 03 c.  1 

RESCALING  AFTER  POET 

PROCESS. 

03°? 

21 , 3507 

0 

0006 

1 

SCAL  DONE  EXTEND 

0393 

REF 

15 

LAST 

148  2 

21  ,3510 

23 

'•75  2 

0 

QXCH 

FUNCTION  +1 

SAVE  0 FOP  PFTUPN 

0394 

21,3511 

0 

r 006 

1 

EXTEND 

0395 

REF 

86 

LAST 

1473 

21,3512 

7 

4736 

0 

MP 

BIT14 

0396 

RFF 

3 

LAST 

1482 

21,3513 

55 

' 747 

0 

TS 

HALFAPG 

0397 

REF 

5 8 

LAST 

1 46  2 

21,3814 

7 

4 737 

1 

MASK 

BIT13 

0398 

REF 

5 2 r 

LAST 

1479 

21,3515 

1C 

000 

0 

CCS 

A 

0390 

RFF 

? ] , 3 c;  ■[  <•. 

3 

3 63* 

0 

C A 

OCT  1 L 27  6 

0400 

REF 

1 

21,3517 

6 

3632 

0 

AD 

ROOTHALF 

INITIAL  GUESS  IS  ROOT 

1/2  OR  POSNAX 

0401 

REF 

1 

21,3520 

0 

3636 

1 

TC 

ROOTCYCL 

0402 

REF 

2 

LAST 

148  2 

21,352  1 

0 

3636 

1 

TC 

F OOTCYCL 

040  3 

REF 

3 

LAST 

14  8 2 

2 1 , 352? 

0 

36  36 

1 

TC 

ROOTCYCL 

0404 

REF 

16 

LAST 

1482 

21 ,3523 

0 

1752 

0 

TC 

FUNCTION  +1 

R 040  5 

* ^ * 

v ^ -v  ;c  -r 

* ** 

$ if  $ % : 

):*  * 

v V i-  r V v 'I'  *$»  '->9  v ijc  jJc  ijj  iji  iji  jJ;  t V v ^ 'p  -V 

sjc  5c  # % >\i  >c  ijc  sj:  if.  sjc  if  if  if  if  & # £ J^5}c  rJ; 

0407 

REF 

1 

21, 35?4 

0 3441 

0 

RSTOFGTS 

TC 

GTSQRT 

0408 

REF 

1 3 

LAST 

1476 

21 , 3525 

57’ 742 

1 

PRODUCT 

XCH 

K2CNTRAL 

0409 

2 1,  3526 

0 C 006 

1 

EXTEND 

0410 

REF 

14 

LAST 

1482 

21 , 3 527 

7 1742 

0 

MP 

K2CNTRAL 

0'  1 1 

PEF 

15 

LAST 

148  2 

21,3530 

63' 7-t3 

1 

DXCH 

K2CNTRAL 

0412 

21 ,3531 

0 0006 

1 

EXTEND 

THE 

PRODUCT  OF 

0413 

RFF 

24  8 

LAST 

1479 

21 , 3 c3 2 

7 C001 

1 

MP 

L 

1/2 

2 1/2 

0414 

REF 

16 

LAST 

1482 

21,3533 

27 ' 743 

1 

ADS 

K2CNTRAL  +1 

K * (DEL *0 MEGA 

+ ALPHA  / ( 2*K ) ) 

0415 

REF 

299 

LAST 

14°  2 

21 ,3534 

54  001 

1 

TS 

L 

AMD 

0416 

21,3535 

1 3537 

1 

TC  F 

+2 

2 

0417 

REF 

17 

LAST 

148  2 

21,3536 

27 ' 7^2 

0 

ADS 

K2CNTRAI 

DEL*  J DEL* OMEGA 

+ ALPHA  / (2*K) 1 NOW  IN 

A 041  3 

K2CNTRAL 

0419 

REF 

5 

LAST 

1482 

21 , 3537 

3 1744 

1 

DOSHI FT 

CA 

ININDEX 

042  0 

21, 3540 

0 0006 

1 

EXTEND 

MULTIPLY  IN  THE 

FACTOR  2 ( -S ) , RETURNED 

0421 

REF 

87 

LAST 

14  8 2 

21 ,3541 

7 4736 

0 

MP 

BIT  14 

BY  THE  GTSQRT  SUBROUTINE 

042  2 

REF 

3 

LAST 

148  1 

21, 3542 

27 ' 741 

0 

ADS 

SHFTFL AG 

042  3 

21,3543 

0 0006 

1 

EXTEND 

0^24 

RFF 

1 

2 1,3  544 

1 3563 

0 

BZF 

ADDITIN 

0425 

REF 

4 

LAST 

1482 

21, 3545 

51 '741 

1 

INDEX 

SHFTFL  AG 

042  6 

REF 

54 

LAST 

148  2 

21 , 3546 

3 4735 

1 

CA 

B IT  1 5 
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042  7 

RFF 

IB 

LAST 

148  2 

21 , 3547 

57  <742 

1 

XCH 

K2CNTRAL 

042  B 

21 ,3550 

0 0006 

1 

EXTEND 

0429 

REF 

19 

LAST 

148  3 

21 , 3551 

7 1742 

0 

MP 

K2CNTRAL 

04  3 C 

REF 

7 

LAST 

1475 

21 , 355  2 

21  * 740 

1 

DAS 

K2THETA 

0431 

REF 

20 

LAST 

148  3 

21,3553 

57*742 

1 

XCH 

K 2 C N T RAl 

? ] IK K/ 

<- * ( \ n f> 

1 

EXTEND 

VH  5 c 

6 1»  3 v H 

1 

0433 

REF 

21 

LAST 

148  3 

21,3555 

7 1743 

1 

MP 

K2CNTRAI 

0434 

PEF 

8 

LAST 

1483 

21,3556 

27*740 

1 

ADS 

K2THET  A 

0435 

REF 

300 

LAST 

148  2 

21 , 3557 

54  001 

1 

TS 

L 

04  36 

21,35  >0 

1 3562 

1 

TC  F 

+ 2 

043  7 

REF 

9 

LAST 

1 4 A 3 

21, 3561 

27*737 

1 

ADS 

K2THETA 

0438 

REF 

3 

LAST 

1476 

21 , 3562 

1 3566 

0 

TC  F 

NEGUSUM 

n a An  a 

1 

Ann!  t T hi 

C Y T P K1  n 

04-3  H 

Cl  t >PO  Si 

u k v / u o 

1 

ALMJ  A ' Isi 

tO  A • t ' U 

0440 

REF 

22 

LAST 

14  8 3 

21  , 3 564 

3 174  3 

0 

DC  A 

K2CNTRAL 

0441 

RFF 

10 

LAST 

1 48  3 

21 , ? 5 6 5 

21  * 740 

1 

DAS 

K2THETA 

ru  c ? 

o P p 

1 K'T 

1 /,  o -j 

? 1 

11  1717 

1 

N E GU  SUM 

rrc 

K ?T  upr  fl 

PL  r 

1 1 

L A O * 

1 ? ’ 

J 1 1 D t 

1 

G L/  D 

r\  c 1 n c !-\ 

0443 

REF 

1 

21, 3567 

1 3573 

1 

TC  F 

NEGDRI VF 

0444 

21 , 3570 

1 3572 

0 

TC  F 

+ 2 

0445 

REF 

2 

LAST 

1473 

21,3571 

1 3575 

1 

TC  F 

POSDRI VE 

0446 

REF 

12 

LAST 

14°  3 

21 , 3572 

11  * 740 

1 

CCS 

K2THETA 

0447 

&FF 

67 

LAST 

1479 

21 ,3573 

3 4753 

1 

N6GDRIVE 

CA 

BIT1 

044  8 

21 , 3574 

1 3576 

1 

TC  F 

-t-2 

044  0 

REF 

68 

LAST 

1483 

21,3575 

4 4753 

0 

PCS DRIVE 

CS 

BIT1 

0450 

REF 

301 

LAST 

14  33 

21, 3576 

54  G01 

1 

TS 

L 

045  2 

PEF 

6 

l AST 

14  7 3 

21 , 3577 

5] *750 

1 

INDEX 

QRCNTR 

045  2 

PEF 

1 I 

L AST 

14  BO 

21 , 3600 

57*501 

1 

XCH 

NEGUQ 

0453 

21 , 3601 

0 C 006 

1 

EXTEND 

0454 

REF 

302 

LAST 

1483 

21,3602 

7 0001 

1 

MP 

L 

045  5 

REF 

303 

LAST 

1483 

21 , 3oQ3 

IS  ).jl 

1 

CCS 

L 

045  6 

REF 

1 

21 , 3604 

1 8 5 21 

3 

TC  F 

LOUPE 

04  5 7 

REF 

I 

2 1 , 3605 

1 36  16 

1 

TC.F 

ZEROLOUP 

0458 

REF 

1 

21 , 3606 

1 3610 

1 

TC  F 

REVERSAL 

045  0 

REF 

2 

LAST 

1483 

21 , 3537 

1 3616 

1 

TC  F 

ZERQLOUP 

0460 

PEF 

7 

LACT 

14  3 

21, 3610 

51 *750 

1 

~ f vr  * sal 

INDEX 

QRCNTR 

0461 

REF 

5 

LAST 

1476 

21 ,36  1 1 

5 5 * 1 0 

0 

TS 

Q ACC DOT 

0462 

REF 

8 

LAST 

1483 

21,3612 

51 '750 

1 

INDEX 

QRCNTR 

0463 

REF 

1 

21, 3613 

4 3633 

0 

CS 

GMBLBITA 

0464 

21, 3614 

0 0006 

1 

EXTEND 

04  6C 

PEF 

73 

LAST 

1476 

21,3615 

03  012 

1 

WAND 

CHAN 12 

0466 

PEF 

54 

LAST 

147  7 

2 1 , 3616 

4 1273 

1 

ZE  P-0  LOUP 

CS 

PCSFL AGS 

0467 

REF 

3 

LAST 

1477 

21,3617 

7 4747 

0 

MASK 

CALLGMBL 

0468 

REF 

55 

LAST 

1483 

21  , 36  20 

27*273 

1 

ADS 

RCSFLAGS 

3:15  DEC.  2,1°70  LMDAP  .015  PAGE  1483 
USER'S  PAGE  NO.  12  E6  S4 


NOW  ADD  IN  THE  K2THETA  TERM. 
TEST  SIGN  OF  HIGH  ORDER  PART. 


SIGN  TEST  FOR  LOW  CdDER  OA^'T. 

STOP  GIMBAL  ORIVE  FOR  A ZERO  NEGUSUM. 
SAVE  FQF  DRIVE  REVERSAL  TEST. 


MULTIPLY  OLD  NEGU  AND  MEW  NEGU. 

NON-ZERO  GIMBAL  DRIVE  BEING  CONTINUED. 

NO  REVERSAL  PROBLEM  HERE. 

NON-ZFI  0 GIMBAL  DRIVE  BEING  FEVEPSED. 

NO  REVERSAL  PROBLEM  HERE. 

A ZERO-DRIVE  PAUSE  IS  NEEDED  HERE.  ZERO 
IS  P'  A REGISTER  FROM  CCS  ON  (-1). 


SET  UP  REQUEST  FOR  ACDT+C12  CALI 
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TP  T m 

G I 'IB  AL  C 1NTR  91 

SYSTEM 

USER'S  PAGE  NO. 

13  E6  S4 

04  49 

REF 

9 

LAST 

1483 

21,36  2 1 

11 ' 750 

0 

LOUPE 

CCS  QRCNTF 

HAVE  BOTH  AXES  BEEN  PROCESSED? 

0470 

REF 

2 

LAST 

1472 

21,3622 

1 3115 

0 

TCF  GOQTRIMG 

NO.  DO  Q AXIS  NEXT. 

047  1 

REF 

2 

LAST 

1472 

2 1 , 36  23 

3 ISO  5 

0 

CA  SAVE  SR 

RESTORE  THF  SR 

047  2 

REF 

2 8 

LAST 

16  72 

21,3/  24 

54  02  1 

0 

IS  SP 

0473 

21,3625 

0 00C6 

1 

GOCLOSE 

EXTEND 

TERMINATE  THE  JASK. 

0474 

REF 

1 

21,3626 

3 363  1 

0 

DC A CLOSEADR 

0475 

21 ,3627 

5 2 006 

0 

DTCB 

0476 

REF 

25 

LAST 

1479 

c , 1537 

EBANK.  = AOSO 

047  7 

REF 

Lx 

LAST 

1455 

21 ,3630 

03236 

0 

CL  OS  EADS 

2 CAD-  CLOSEOUT 

TERMINATE  THF  JASK. 

0477 

21,3631 

36106 

0 

R 047  8 

047  9 

REF 

6 

LAST 

1431 

575  1 

T WELVE 

EQUALS  OCT  14 

048  9 

2 1 , 36  3 2 

26501 

1 

ROOTHALF 

OCTAL  26501 

SQUARE  F JOT  OF  1/2 

0481 

21,363? 

01*00 

1 

GM3L  BIT  A 

OCtAL  014C0 

INDEXED  WF  T GNR[  B I TB 

DO  MOT  MOVE  ****** 

0482 

21  , 36  34 

11276 

1 

OCT11276 

OCTAL  11276 

POSMAX  - POOTHALF 

048  3 

2 1 , 3635 

06000 

1 

GMBLBITB 

OCTAL  06000 

INDEXED  WRT  GMBLBITA 

DO  NOT  MOVE****** 

R 048^ 

R 048  5 

SURF  OUT  I IE  KQCTCYCI. 

: BY  C AIG  WORK, 

3 

APRIL  68 

R 0 4 8 6 

ROOTCYCL 

IS  A 

SUBROUTINE  WHICH  EXECUTES  OFF  NEWTON  SQUARE  ROOT  ALGORITHM 

ITERATION.  THE  INITIAL  GUESS  AT  THE 

R048  6 

SOUAFF  R 

OQT  IS 

PE ESUMED  to  BE 

IN  THE 

A 

REG! STEF 

AND  ONE- HALF  THE  SQUAB  E 

IS  taken  FROM  MALFADG. 

THE  NEW  APPPOXI- 

R0^9O 

MAT  I ON  Tri  THE 

SQUARE  RnnT  IS 

RETURNED 

IN  THE  A R 

EG  I STEP.  DEBRIS:  A , L , 

SR, SCRATCH.  ROOTCYCL 

IS  CALI.  ED  FROM 

R 049  2 

LOCATION 

(LOC  ) 

BY  A 

TC  - CYCL,  AMD 

RETURNS  (TC 

Q)  TO  LCC  +1. 

R 049  3 

WARNING: 

IF  THE  INITIAL  GUESS  IS  NOT 

GREATEi  THAN  THE  SQUA  E,  DIVIDE  UR 

ADD  OVERFLOW  IS  A REAL  POSSIBILITY. 

04QC 

REF 

1 

21 , 3636 

55' 746 

1 

ROO T CYCL 

7 S SCRATCH 

STORE  X 

0496 

REF 

29 

LAST 

14^4 

21 , 3637 

54  C 2 1 

0 

TS  SR 

X / 2 NOW  IN  S' 

0497 

REF 

4 

LAST 

1492 

21, 3640 

3 1747 

1 

CA  HALFARG 

ARG/2  IN  THE  A REG 

0498 

21,3641 

22  007 

0 

ZL 

PREPARE  FOR  DIVISION 

0499 

9 1 . 1 A4 9 

0 0006 

1 

F Y T FMn 

- I j -*  •■*  c. 

I 

DA  1 D;  U 

0500 

REF 

? 

LAST 

I 4 5 4 

21,36 4 3 

11 ' 746 

1 

DV  SCRATCH 

( ARG/X ) / 2 

0501 

PEE 

30 

LAST 

1 48  4 

21,3644 

6 0021 

1 

AD  SR 

(X  + AFG/XI/2  IN  THE  A 

REG 

0502 

REF 

424 

LAST 

149  1 

21,3645 

0 000  2 

0 

TC  Q 

R 0503 
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L 

APS  TASK  A D A OS JOB  USER'S  PAGE  NO.  1 EO  S4 

R 000  1 

R 0002 

R 0003 

PROGRAM  NAME:  1/ACCS 

PROGRAM  WRITTEN  BY:  BOB  COVELII  AND  MIKE  HOUSTON 
*L  AST  MODI  F I CAT  IliN  : FEB  - 14,  1969  BY  G.KALAN 

R 0004 

PROGRAM  DESCRIPTION: 

R 000  R 

R 0007 
R 0009 

1/ACCS  PROVIDES  THE  INTERFACE  BETWEEN  THE  GUIDANCE  PROGRAMS  AND  THE  DIGITAL  AUTOPILOT.  WHENEVER  THERE  IS  A 
CHANGE  IN  THE  MASS  OF  ThE  VEHICLE,  IN  THE  DEADBAND  SELECTED,  IN  THE  VEHICLE  CONFIGURATION  (ASCENT-DESCENT- 
DjDCKED)  , AND  DURING  A FRESH  START  0'  A ESTART,  1/ACCS  IS  CALLED  TO  COMMUNICATE  THE  DATA  CHANGES  TO  THE  DAP. 

R 00  1 ] 

R 001  3 

R 001  5 

"HE  u;PUTS  r 1 /ACCS  A-  E MASS,  ACCELERATION  ( ABDEL  V ) » DEADBAND  (DB)  , OFFSET  ACCELERATIONS  ( AOSQ  AND  AC'SR), 
STAGE'  VF-MFY  BIT  ( CHAN30 ,P I T? ) , DOCKED  BIT  ( D AP BOOL S , 8 ITl 3 ) , DRIFT  BIT  ( DA  DB00l S , B I T8  ) , USEQRJTS  (OAPBOOIS, 

B I T 1 4 ) , AND  SURFACE  FLAG  ( F L AGWR D 8 , B I T 8 ) , AND  CH5MASK . 

ROCK 

R 001  ft 

R 0020 

R 002  ? 

1/ACCS  COMPUTFS  The  JET  ACCEL  FLAT  ICNS  (UACC,  1JACCQ,  1JACCR  ) AS  FUNCTIONS  OF  MASS.  1JACCU  AND  1JACCV  ARE 
FORMED  BY  RESOLVING  1JACC0  NAD  1JACCR.  IN  THE  DESCENT  CASE,  THE  DESCENT  ENGINE  MOMENT  ARM  <L,PVT-CG)  IS  ALSO 

CC  ‘ -JTID  AS  A FU"!C7  TON  F MASS.  THE  LATE  OF  CHANGE  F ACCEL  E' A"  ION  DUE  TO  POTATION  OF  THE  GIMBAL  (ACC  DO  TO, 
ftCCD'TR)  IS  AL  Sn  C0Mr>  j T E U IN  THF  DESCENT  CASE. 

R 002  3 
RCC25 

R 0027 

R 0 C 2 r 

R 003  1 

R 0 0 3 3 

AFTER  THE  ABOVE  COMPUTATIONS,  THE  PROGRAM  1/ACCONT  COMPUTES  THE  RECIPROCAL  NET  ACCELERATIONS  ABOUT  THE  P,  U, 
AND  V AXES  (2  JETS  FOP  P AXIS,  BETH  1 AND  2 JETS  FC  U AND  V AXES),  AND  THE  RECIPROCAL  COAST  ACCELERATIONS  ABOUT 
THE  P,  U,  AND  V AXES.  THF  ACCELERATION  FUNCTIONS  (ACCFCT/1  AMO  ACC  FC  TZ 5 ) ARE  ALSC  COMPUTED  FOP  THESE  AXES.  THF 

Fi  F AMD  CO  AS  ~ DEADBAND*'  AND  AXISDIST  ape  COMMUTED  FOP  EACH  AXIS.  FLAT  AND  ZDNE3L  I M,  THE  WIDTH  AND  HEIGHT  OF  THE 
•M  I ’ • ) •'  I "PULSE  20.  E,  A F CO'P  JTFD.  1/ ACCK'T  ALSO  SETS  ACCSWU  AND  ACCSWV,  WHICH  INDICATE  WHEN  1 JET  ACCELERATION 
IS  NOT  SUFFICIENT  TO  PRODUCE  MINIMUM  ACCELEI  ATI  ON.  AT  THE  COMPLETION  OF  1/ACCS,  THE  ACCSOKAY  BIT  IS  SET. 

ROC  3 5 

SUBROUTINES  CALLED: 

R 0036 

R 0037 

R 00  3 8 

TI-'EGMBL 

MAKECADR 

D0T45  DEG 

R 0030 

CAL ! ING  SEQUENCE: 

A 0040 

A 004] 

TC  BANKCALl  (1/ ACC'S  MUST  BE  CALL  BY  3 AN  KC  ALL 

CADR  1/ACCS 

ROC  42 

NORMAL  EXIT:  VIA  BANKJUMP  ALARM  AND  ABORT  EXIT  MODES:  NONE. 

R 0043 

IN PUT /OUT PUT:  SEE  PROGRAM  DESCRIPTION 

R 0044 

DEBRIS : 

R 004  5 

ALL  F THE  EXECUTIVE  TEMPO  ARY  REGISTERS,  EXCEPT  FJXLOC  AND  VFIND,  AND  THE  CORE  SET  AREA  FROM  MPAC  TO  BANKSET. 

R0C47 

RESTRICTIONS: 

R004P 

P 0040 

1/ACCS  MUST  BE  CALLEC  BY  BANKCALL 

EBANK  IS  SET  T0  6,  BUT  NOT  RESTORED. 
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0050 

20,2447 

BANK 

20 

0051 

REF 

5 

LAST 

1414 

20,2000 

SETLOC 

DAPS  3 

r\r\cz  o 

o a 744.7 

R AMK 

C.  v,  } 4 fT/T  1 

0053 

REF 

3 

LAST 

43  TO 

4 A : 

3 

4* 

COUNT  * 

$$/DAPAf 

005* 

REF 

26 

LAST 

1484 

E6,  1537 

E fl  A N K = 

AOSO 

ROD  5 5 

ENTRY  IS  THROUGH  1/ ACC  JOB  OR 

1/ACCSET 

WHEN  1/ACCS 

. IS  TO 

BE  DONE  AS  A 

SEPARATE  NOVAC  JOB. 

R 00c  7 

IT 

3 S OPSSTBLE 

pr,‘-  M 

ore  than 

ONF  OF  THESE  JOBS  TO 

1 BE  SET 

UP  CONCUR ENJ  L Y . HOWEVER,  SINCE  THERE  'S  NO  CHECK  OF 

ROCFo 

MEW  JOB , 

A SECOND  MAN 

IFESTATION  CANNOT 

' BE  STARTED 

UNTII  THE  FIRST  IS 

COMPLETED. 

0061 

REF 

310 

LAST 

148  1 

20 , 2447 

3 *7  55 

1 1/ACCSET 

CAF 

ZERO 

ENTRY  FROM  FRESH  ST AP T/R E STAR T CODING. 

0062 

REF 

27 

LAST 

1486 

20,2450 

55' 537 

0 

TS 

ACSO 

NULL  THE  OFFSET  ESTIMATES  FOP  1/ACCS. 

0063 

REF 

10 

LAST 

14  27 

20,2451 

55 ' 541 

1 

TS 

AOSR 

006  4 

R F F 

6 

LAST 

14  27 

20,2452 

55*424 

0 

TS 

ALPHAQ 

NULL  THE  OFFSET  ESTIMATES  FOR  DOWNLIST 

0065 

PEE 

5 

LAST 

1427 

20, 2*53 

55 ' *25 

1 

TS 

ALPHAS 

0066 

RFF 

323 

LAST 

1402 

20,2454 

0 46  1 6 

1 1/ ACC JOB 

TC 

BANK  CAL  1. 

1/ACCS  ASSUMES  ENTPY  VIA  BANKCALL. 

0067 

REF 

2 

LAST 

863 

20, 245 5 

4C461 

0 

CADR 

1/ACCS  +2 

SKIP  EBANK  SETTING. 

0068 

PEE 

1 59 

LAST 

1 3°  2 

20, 2456 

IT. 

ir» 

IT\ 

O 

0 

TC 

ENDOF JOB 

006Q 

REF 

10 

LAST 

1408 

20,2457 

3 5015 

0 1/ACCS 

CA 

EBANK6 

*****  EBANK  c ET  BUT  NOT  RESTORED  ***** 

0070 

PEE 

86 

LAST 

1409 

20,2460 

54  C 03 

0 

TS 

EBANK 

007  1 

RFF 

16 

LAST 

1377 

20,2461 

0 *64  5 

1 

TC 

MAKECADF 

SAVE  PETUf N SO  THAT  BUF2  MAY  BE  USED 

007  2 

REF 

1 

20 , 2462 

56  1 17 

1 

TS 

ACCF ETON 

R 007  3 
0076 

0075 

0076 

DETERMINE 
REF  65 

OFF  11 

MASS 

LAST 

LAST 

REF 

1 

0077 

PEE 

523 

LAST 

0078 

dee 

5 

LAST 

0079 

REF 

14 

LAST 

0080 

REF 

11 

LAST 

OF  THE 

L 

EM. 

1453 

20 

,246  3 

3 

OL  11 

0 

1452 

2 0 

,2464 

7 

4737 

1 

20 

, 246  5 

54 

157 

0 

1482 

20 

, 2466 

10 

000 

0 

314 

?0 

, 2467 

4 

1332 

0 

860 

20 

,2470 

6 

1244 

1 

314 

20 

, 247  1 

55 

'3  31 

0 

CA 

DAP800LS 

TS  CSM  DOCKED 

MASK 

TS 

C SMDQCKD 
DOCKTFMP 

STORE  FECUND  OF  STATE  IN  TEMP  (MPAC 

CCS 

C s 

A 

r s'-! m ass 

DOCKED:  LEMMASS  = MASS  - CSMMASS 

LEM  ALONE:  LEMMASS  = MASS 

AD 

V-'  O 1 .-A  D J 

MASS 

TS 

LEMMASS 

R 008  1 

ON 

THE 

BASIS  or  APS  F LAG : 

R 008  2 

SET 

THE  P-AXI  S I ATE  COM  MAP 

D LIMIT  FOP  2- 

R 0083 

SET 

MPAC,  WHICH  imdtcatfs 

THE  PROPER  SET 

R 008  5 

ENSURE  THAT  THE  LEM  MASS  V 

ALUE  IS  WITHIN 

00855 

20,2472 

0 C004  0 

0086 

REF 

24 

LAST  1453  20,2473 

30  106  0 

0087 

REF 

16 

LAST  1453  2 C, 247* 

7 4737  1 

008  P 

20,2475 

0 0006  1 

0089 

REF 

1 

20,2476 

1 2522  1 

ET/4-JE'  CONTROL 

0 F COEFFICIENTS  Fpr  THE  LEM-ALONE  F(MASS)  CALCULATIONS 
THE  ACCEPTABLE  RANGE 

INHINT 

CAE  FLGWRDLO  DETERMINE  WHETHER  STAGED. 

MASK  APSFL  BIT 

EXTEND 

BZF  DPSFLITE 
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0090 
009  1 
009  2 

0093 

0094 
009c 
0091s 
0097 

009  3 
009° 
010C 
0101 

C 102 
0103 

010  A 
010  9 
0106 

0107 

0108 

0109 

0110 
0111 
0112 

0113 

0114 

0119 
0116 

0117 

0118 
011° 

0120 
012  1 
0122 


REF  41 
REF  3 
REF  7 
KEF  875 
RFF  1? 
REF  3 

REF  1 
REF  13 
REF  1 


LAST  1474 
LAST  1435 
LAST  1484 
LAST  1402 
LAST  i486 
L Ar  T 21? 


LAST  1487 


REF  1 

REF  14  LAST  1487 

KEF  2 LAST  J4R6 
FF  6 LAST  14  8 6 
E-  15  LAST  14' 7 
REF  15  LAST  1486 
REF  2 LAST  1487 


REF  5 3 
REF  4 
RFF  36 
REF  876 
REF  16 
REF  1 

RFF  2 
RFF  17 
REF  1 
REF  4 


t EF 
REF 


LAST  1676 
LAST  HR? 
LAST  1440 
LAST  1487 
LAST  1467 


LAST  1447 

LAST  1487 

LAST  1487 

LA  ' 1467 

LAST  14-7 


20, 2 47  7 

20.2500 

20.2501 

20.2502 

20.2503 

20. 2504 
2C, 2505 

20. 2506 

20. 2507 
20,2510 

?o,  ? n i 

20.2512 

20.2513 

20.2514 

20.2515 
20,2616 
20, 2617 
20,2520 
20,252  1 

20.2522 

20.2523 
20, 252 A 

20.2525 

20.2526 

20.2527 
20,2630 
2 C, 2531 

20.2532 

20.2533 

20.2534 

20.2535 

20.2536 

20.2537 


4 ^733  0 
55 '475  1 

3 5751  1 

54  164  0 

4 1331  0 

5 1400  1 
0 0006  1 

6 2513  1 

4 1331  0 

5 20  0 1 1 

0 or  06  1 
s 2540  1 

27 ' 331  0 
22  007  0 
10  157  0 
31 '3  32  1 
4 1331  1 
1 

1 2540  0 

4 4742  0 

55  » /.  7 5 \ 

3 6242  0 
54  154  0 

4 

6 

0 (006 
6 2 513 

4 1331 
6 2003 
6 1400  1 

0 CO  06  1 

5 2540  1 

1 2'  13  0 


1331  0 
2002  1 
1 
1 
0 
0 


CS 

TS 

CAF 

TS 

CS 

AD 

EXTEND 

BZMF 

CS 

AD 

EXTEND 

BZMF 

MASSFIX  ADS 
ZL 
CCS 
CAC- 
AO 

OXCH 

TCF 

DP SF LITE  CS 
TS 
CAF 
TS 
CS 
AD 

EXTEND 

BZMF 

CS 

AD 

AD 

EXTEND 

BZMF 

TCF 


R 012  3 

COMPUTATION  OF  funct 

I C N c OF  M 

ASS 

0124 

20,2540 

0 0003 

1 

F(MASS) 

RELINT 

012  5 

KEF 

3 

LAST 

1487 

20,2541 

10  157 

0 

CCS 

912s 

P FF 

1 

20 , 254 2 

I 310  5 

1 

TCF 

0127 

REF 

lot 

LAST 

1478 

20, 2543 

3 47  52 

0 

CA 

0128 

RFF 

8 77 

LAST 

1487 

20,2544 

54  155 

1 

STCTR 

TS 

0129 

RFF 

107 

Last 

1487 

20,2545 

4 4752 

1 

CS 

0130 

R E F 

8 78 

LAST 

148  7 

20,2546 

26  154 

0 

ADS 

0131 

REF 

10 

LAST 

1 487 

20,256  7 

31  '331 

1 

ST  CT : ! 

CAE 

0 nil 

RFF 

87  0 

LAST 

1487 

20,2550 

50  154 

1 

T INDEX 

0132 

REF 

1 

20,255  1 

6 3060 

1 

AD 

0133 

REF 

880 

LAST 

1487 

20,2552 

54  156 

1 

TS 

POSMAX 
-2JETLTM 
OCT  14 
'■'PAC 
LEM MASS 
MT  ASCENT 

MASSFIX 

LEMMASS 

LOASCENT 

FI  MASS) 

L EMMASS 

DOCKTEMP 
C SMMASS 
LEMMASS 
MASS 
FI  IAS  5 ) 

B IT  1 J 

-2J:E;  lim- 
's  1 -x 

MPAC 
L EMMASS 
HIDE  SCOT 

MASSFIX 
LET-MASS 
LODESCNT 
H I ASC  ENT 

FIMAS ^ ) 
MASSFIX 


OQCKTEMP 
DOCKED 
T WO 

MPAC  +1 

TWO 

MPAC 


LEMMASS 

‘■'PAC 

INERCONC 
MPAC  +2 
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ASCENT  (OR  ON  LUNAR  SURFACE) 

ALWAYS  2 JETS  FOR  P-AXIS  RATE  COMMAND 
INITIALIZE  INDEX  AT  12. 

CHECK  IF  MASS  TOO  HIGH.  C ATC H STAGING. 


CHECK  IF  MASS  TOO  LOW.  THIS  LIMITS  THE 
DECREMENTING  BY  MASSMCN. 


STORE  THE  VIOL  ATE D LIMIT  AS  LEMMASS. 
ALSO  CORRECT  TOTAL  MASS,  ZEROING  THE 
LOW-ORDER  WORD. 

DOCKED:  MASS  = LEMMASS  + CS^MASS 

LEM  ALONE:  MASS  = LEMMASS 


FOUR  JETS  FOR  P-AXIS  RATE  COMMAND  ERRORS 
EXCEEDING  1.4  DEG/SEC  I SCALED  AT  45) 
INITIALIZE  INDEX  AT  6 . 

CHECK  IF  MASS  TOO  HTGH . SHOULD  NEVER 
OCCUR  EXCEPT  PERHAPS  BEFORE  THE  PAD 
LOAD  IS  DONE . 

CHECK  IF  MASS  TOO  LOW.  THIS  LIMITS  THE 
DECF EMENTING  BY  MASSMON. 


DOCKED:  USE  $ EP  Er-  AT  E COMMUTATION. 

J = 2 ,1,0  F!  ■ 1JACCP  ,LJACC0,1 JACC 

JX=10,e,6  OR  4,2,0  TO  INDEX  CQEFS . 


MASS  + C 


GAP:  ASSEMBLE  REVISION  001  GF  AGC  PROGRAM  API LRGPE  BY  EYLES 


L AC ST  ASK  AMD  ADS  JOB 


0134 

20,2553 

0 C 006 

1 

EXTEND 

0135 

REF 

881 

LAST 

1487 

20 , 2554 

5 0154 

1 

INDEX 

MP  AC 

r\  1 a l. 

ncc 

1 

y ft  _ y K K c 

tl  'xc'uy 

1 

nr  a 

IMP'  r n m a 

' J 1 J c 

K c r 

I 

J 7 e.  i •-  j 

->  .0  U rr  c. 

1 

LJ  v->  M 

1 1 N L_  ( 1 ..  .11  v fA 

0137 

20, 2556 

0 0006 

1 

EXTEND 

013 

REF 

8 8 2 

LAST 

1 45  8 

20,2557 

in  156 

1 

DV 

MP  AC  +2 

0139 

P EF 

a 0 3 

L AST 

1488 

20,286  0 

50  15/. 

1 

I NO  EX 

MPAC 

0140 

REF 

1 

20,2561 

6 3057 

0 

AD 

I NERCONB 

0141 

REF 

884 

LAST 

14Q8 

2C, 256  2 

50  155 

0 

INDEX 

MPAC  +1 

0142 

. REF 

. § 

LAST 

1423 

20,2563 

55' 530 

1 

IS 

1 J ACC 

0143 

R F F 

8 85 

LAST 

1 488 

20, 2 56  4 

10  155 

1 

CCS 

MPAC  +1 

0144 

c-EF 

l 

20,2565 

1 2544 

1 

TCF 

STCTL' 

0145 

REF 

1 

20,2566 

1 2570 

0 

TCF 

COMMEQS 

0146 

REF 

I 

20,2567 

1 2667 

0 

TCF 

LRESC 

ROI47 

COEFFQ 

AND 

COEFFP 

ARE  COMPUTED  IN 

THIS  SECTION 

. THEY 

AR E USED 

R0149 

U AND  V 

COMPONENTS 

(SEE  OT- 

T[  IV  SECTION)  . 

0150 

REF 

2 

LAST 

147  1 

20,2570 

4 

1 532 

0 

COMMEQS 

CS 

1 JACCP. 

0151 

REF 

2 

LAST 

147  1 

20,2571 

6 

1531 

1 

AD 

I JACCQ 

0152 

20,2572 

0 

CO  06 

1 

EXTEND 

0153 

P EF 

1 

20,2573 

6 

2 617 

0 

8 ZMF 

BIGIQ 

0154 

2n,?574 

0 

0006 

1 

extend 

1 

REF 

3 

LAST 

1 4 8 p 

20,2575 

1 1 

• 531 

0 

DV 

1 JACCQ 

0156 

REF 

1 

20,2576 

54 

155 

1 

TS 

EPSILON 

0157 

REF 

1 

20,2577 

6 

3104 

1 

AD 

- EPS  MAX 

0158 

20,2600 

0 

0006 

1 

EXTEND 

0159 

REF 

1 

20,260  1 

6 

2604 

1 

BZ.MF 

GOODEPS  1 

0 1 6 0 

D E F 

2 

LAST 

1488 

20,2602 

4 

3104 

0 

CS 

- E P S M A X 

0161 

RFF 

2 

LAST 

1488 

20, 2603 

54 

155 

l 

T 9 

F P S T 1 n N 

I O 

0162 

REF 

3 

LAST 

1488 

20,2604 

3 

0155 

0 

GOODE  PS  1 

CA 

EPSILON 

0163 

20,2605 

0 

0006 

1 

EXTEND 

0164 

REF 

1 

y n . y 6 f i h 

7 

3100 

1 

M P 

4.  > f r '■  > v./  0 

f 

I 

if  r 

V • .J  0 D -i  D 

0165 

P EF 

1 

20,2607 

6 

3 1 0 2 

1 

AD 

.7071 

0166 

FFF 

2 

LAST 

1457 

20,2610 

55 

' 0 3 0 

1 

TS 

COEFFP 

016  7 

RFF 

42 

LAST 

1487 

20,2611 

4 

4733 

0 

CS 

POSMAX 

0168 

REF 

4 

LAST 

148  8 

20,2612 

6 

0155 

0 

AD 

EPSILON 

0169 

20,2613 

0 

0006 

1 

EXTEND 

0170 

REF 

3 

LAST 

1488 

20,2614 

7 

1630 

1 

MP 

CCEFFR 

0171 

REF 

3 

LAS">- 

1457 

20,2615 

55 

'627 

1 

TS 

CCEFFO 

0172 

REF 

1 

20,26  16 

1 

26  4? 

1 

TCF 

JACCIJV 

0173 

20,2617 

0 

C006 

1 

BIGIQ 

p y r cm n 

i. 

LA  1 t U 

0174 

REF 

3 

LAST 

1488 

20, 2620 

1 1 

'532 

0 

DV 

1 JACCP 

0175 

REF 

1 

20,2621 

54 

155 

1 

TS 

-EPSILON 

0176 

REF 

2 

LAST 

1488 

20, 2622 

4 

C 155 

1 

CS 

-EPSILON 

0177 

REF 

3 

LAST 

1488 

20,2623 

6 

3104 

1 

AD 

-EPSMAX 

0178 

2 0,2624 

0 

C 006 

1 

EXTEND 

0179 

P E F 

1 

20,2625 

6 

2630 

0 

BZMF 

GC0DEPS2 

0180 

REF 

4 

LAST 

1488 

20, 2626 

3 

3104 

1 

CA 

-EPSMAX 

0181 

RFF 

3 

LAST 

1488 

20, 2627 

54 

155 

1 

TS 

-EPS ILOF 

3:15  DEC 


2 , IS  70 


l MDAP 


015  PAGE  1488 


USEF ' S PAGE  NO.  4 


E6  S4 


1JACC (J)=A(JX)/(MASS+CIJX)  + B ( J X > 
IJACC (-1 ) =1 , PVT-CG  SCALED  AT  6 FEET 


RESOLVE  Q-R  COMPONENTS  INTO  MON-ORTHOGONAL 


EPSILON  IS  A MEASURE  OF  COUPLING  AND  IS 
DEFINE D=l— I Q/IR  FCP  IP  GREATER  THAN  IQ. 
THE  COMPUTED  EXPRESSION  IS  EQUIVALENT 


EPSILON  IS  LIMITED  to  A MAX.  OF  .42265 


IN  THIS  CASE  WHEPF  IR  IS  GP  EA  T Fc  THAN 
IQ,  CPCFFQ=-.707( 1+.5EPSTL0N) ( I-FPSILON) 
AND  C0EFFP=.707( 1+.5EPSIL0N) 


EPSILON  Ic  DEFINED  AS  1-TR/IQ  FOF  IQ 
GREATER  THAN  IR.  -EPSILON  IS  COMPUTED 
RATHEF  THAN  EPSILON  FOR  CONVENIENCE 


EPSILON  IS  LIMITED  tq  a MAX.  OF  .42265 


GAP:  ASSEMBLE  REVISION  001  OF  AGC  PROGRAM  API IROPE  BY  FYLES 


3:15  DEC 


2,1970  IMDAP 


015 


P AG  F 1489 


I.  AO  ST  ASK  AND  A3S  JOB 


IJSEF'S  PAGE  NO.  5 E6  S4 


0182 

REF 

4 

LAST 

1488 

20,2630 

3 r 1 55 

0 

0183 

20,2631 

0 0006 

1 

0184 

REF 

2 

LAST 

148  8 

20 , 2632 

7 310u 

1 

01 8f 

REF 

1 

20 , 2633 

4 8 103 

0 

01  SC- 

REF 

4 

LAST 

14  8 8 

20,2634 

55 '6 27 

1 

RIP? 

P FF 

5 

LAST 

14  8° 

30 , 2635 

4 015  5 

1 

1 

REF 

12 

LAST 

14  6° 

20,2636 

6 4735 

1 

1 

20 , 2637 

0 0006 

1 

019  C 

REF 

.....  5 

LAST 

Ih-89 

20,2640 

7 1627 

1 

0151 

OFF 

4 

1 AST 

14  8 8 

2C  ,2641 

55 '63  0 

1 

0192 

EF 

6 

LAST 

1489 

20,2642 

4 1627 

1 

01  °3 

1A  7(17 

0 0006 

1 

C.V.J  f 21  O . J 

0194 

REF 

4 

LAST 

1488 

20,2644 

7 1531 

0 

0195 

REF 

1 

20, 2645 

55 '533 

1 

0196 

, REF 

5 

LAST 

1489 

20 , 2646 

3 1630 

0 

01^~ 

20,2647 

0 0006 

1 

019F 

REF 

4 ‘ 

LAST 

148  8 

20,2650 

7 1532 

0 

p i_  p 

7 

1 APT 

7.  . > - , c 1 

■ 1 ‘ 3 3 

o 

I 

r r r 

c. 

LAO’ 

C.  ' J J C.  -7  i 

0200 

20,2652 

0 OC  06 

1 

0201 

REF 

88 

LAST 

1482 

20,2653 

7 *736 

0 

0202 

RFF 

3 

LAST 

1489 

20,2654 

55 '533 

1 

020  3 

R FF 

1 

20,2655 

56 ' 534 

0 

620*- 

REF 

886 

LAST 

1 * 6 8 

20,2656 

10  ! '4 

0 

020  c 

OFF 

311 

LAST 

1486 

20, 26 5 i 

3 4755 

1 

0206 

REF 

5 

LAST 

1480 

20,2660 

55*502 

0 

0207 

REF 

1 

20,2661 

1 3230 

1 

G00DFPS2 


JACCOV 


CA  -EPSILON 

EXTEND 

MP  0.35356 

AD  -.7071 

TS  COEFFQ 

CS  -EPSILON 

AD  NEGMAX 

EXTEND 

MP  COEFFQ 

TS  CQEFF'T 

CS  COEFFQ 

EXTEND 

MP  1JACCQ 

TS  1JACCU 

CA  CGEFF! 

EXTEND 

MP  1JACCR 

AD  1 JACCU 

EXTEND 

MP  B IT  1 4 

1 JACCU 
TS  1JACCV 

CCS  MPAC 

CAF  ZEPd 

TS  ALLOWGT  S 

TCF  1 /AC CON T -1 


IN  THIS  CASE  WHERE  IQ  IS  GREATER  THAN 
IR,  COEFFQ=-.707( 1+.5FPSIL0N)  AND 
COFFFP  = . 707 ( 1 + .5EPSIL0N) ( 1-EPSILON) 


1JACCQ  IS  SCAL  ED  AT  PI/4 
1 J A CCU  USED  AS  TEMPORARY  STORAGE 


SCALING  CHANGED  FROM  P I /4  TO  PI/2 

SCALED  AT  PI/2  RADI ANS/SEC ( 2 ) 
COMPUTE  L , PVT-CG  IF  IN  DESCENT 
ZERO  SWITCHES  AMD  GO  TO  1/ACCOMT  IN 
ASCENT 


0206 
020° 
0210 
021  1 
0212 
R 0 2 1 3 
P 02]  5 
R 02 17 
R 02 1 K 
R 02 1 9 


! EF 

10 

LAST 

1487 

20, 

26  6 2 

4 4752 

1 

CS 

TWO 

REF 

887 

LAST 

1489 

20  , 

266  3 

54  15* 

0 

TS 

MPAC 

REF 

17  5 

LAST 

1 478 

20, 

26  64 

4 4753 

0 

CS 

CNF 

REF 

388 

LAST 

1489 

20, 

266  5 

54  165 

1 

TS 

MPAC  +1 

REF 

1 

20, 

26  6 6 

1 2547 

1 

TCF 

STCTI  1 

TMJS  SECTION,  COMPUTES  SHE  i AT  E OF  CHANGE  OF  ACCELERATION  DUL  TE  THE  ROTATION  OF  THE  GIMBALS. 

no  in  both  Tm-  y-\  plane  and  tie  z-x  p:  ANt  is  — di  alpha  )/dt  = tl/i*D(  delta)  /dt,  where 

t = ENGINE  THCLST  FORCE 

L = PIVOT  TO  CC  DISTANCE  OF  ENGINE 
I = MOMENT  OF  INERTIA 


THE  EQUATION  IMPLE 


0220 

REF 

o 

1 AST; 

861 

20,266? 

31 

' 2.4  6 

0 L R ESC 

CAE 

ABDELV 

0221 

20, 2670 

0 

0006 

1 

EXTEND 

0222 

RFF 

1 6 

LAST 

140  7 

20,267 1 

7 

1244 

0 

MP 

MASS 

022? 

P FF 

I 

70 , 2672 

0 

2776 

0 

TC 

DVOVSUB 

0224 

REF 

1 

20,2673 

03101 

1 

ADR  ES 

GFACTM 

SCALED  AT  2(13)  CM/SECI 2) 

SCALED  AT  B+16  KGS 

GET  QUOTIENT  WTTH  OVERFLOW  PROTECTION 


*0225  -IASS  IS  DIVIDED  BY  ACCELE-  AT  ION  OF  GRAVITY  IN  ODER  0 MATCH  THE  UNITS  OF  IXX,IYY,IZZ,  WHICH  ARE  SLUG-FT  ( 2 ) . 
c S 2 2 7 Tr’  RATIO  OF  ACC. FIE  P ATT*  ■ I ' f " IP  AS  Tf  ACC  |:  ATI  >F  GRAVITY  IS  THE  SAME  II'  MET  IC  OF  ENGINEERING  UNITS,  SO 
R02?  - THAT  IS  UNC  ONVF ' TED.  2 . 2 ■'  .7  CONVERTS  KG.  TO  LB.  ' f w T I IN  A SCALED  AT  2(  14)  . 


0231  20,2674  0 0006  1 EXTEND 

0232  REF  1 20,2675  7 1527  1 MP  L, PVT-CG 


SCALED  AT  8 FEET 


AP  : 


ASSEMBLE  !tVISIli  701  uF  AGC  PRtGKA'l  AP11RUPE 


BY  EYLLS 


AOSTASK  AND  A0SJ03 


0233 

20,2676 

0 0004 

0 

INHINT 

0234 

REE 

889 

LAST 

1489 

20,2677 

54  154 

0 

TS 

MPAC 

~ c 

op  o 7nn 

f ' ( All  A 

1 

p y T p M n 

OZ  i S> 

6 vv  } 6 / uu 

lUOO 

1 

LA  i U A U 

0236 

REF 

5 

LAST 

148c 

2 0, 2 70  1 

7 15  32 

0 

MP 

I JACCf 

0237 

REF 

5 

LAST 

I 4«9 

20,2702 

0 27  76 

0 

TC 

DVOVSUB 

0238 

REF 

1 

20,2703 

0 2 000 

0 

AD'  ES 

TOR  K JET  1 

0239 

REF 

2 

LAST 

I 476 

20,2704 

55' 511 

1 

TS 

ACCDOTR 

0240 

REF 

390 

LAST 

1490 

20,2705 

3 0154 

1 

CA 

MPAC 

0241 

2 0,2 7 C 6 

0 ( 006 

1 

EXTEND 

024  2 

REF 

5 

LAST 

1 484 

20,2707 

7 1531 

0 

MR 

1 JACCQ 

0243 

REF 

3 

LAST 

liQO 

79,2710 

0 2774 

0 

TC 

DVOVSUB 

0244 

REF 

2 

LAST 

1490 

20,2711 

02  COO 

0 

ADRES 

TCRKJET1 

0245 

RLE 

6 

LAST 

1479 

20,2712 

55 '507 

0 

SPSCONT 

TS 

ACCOUTQ 

0246 

20,2713 

0 GO  06 

1 

EXTEND 

0247 

REF 

I 

20, 2714 

7 3 07  7 

0 

MP 

DGBF 

024  R 

RFF 

z, 

LAST 

1473 

70,2716 

55*5  0 a 

p 

T5 

K Q 

0249 

REF 

3 

LAST 

1490 

20,2716 

3 1 ' 5 1 1 

0 

CAF 

ACC  )OTF 

0250 

20, 2717 

0 0006 

1 

EXTEND 

0251 

REF 

2 

LAST 

149  0 

20,2720 

7 3077 

0 

MP 

OGBF 

0252 

REF 

1 

20,2721 

55' 506 

1 

TS 

KRDAP 

025  3 

20,2722 

0 00  06 

1 

EXTEND 

0254 

REF 

74 

LAST 

1483 

20, 2723 

CO  012 

1 

READ 

CHAf'l  2 

02  5 5 

REF 

891 

LAST 

1490 

20,2724 

54  155 

1 

TS 

MPAC  +1 

0256 

REF 

55 

LAST 

147  2 

20,2725 

3 4752 

0 

CAF 

B IT  2 

0257 

REF 

1 

20,2726 

1 2730 

0 

TCF 

LOOP  3 

02  5 R 

REF 

312 

LAST 

1 ,■  gg 

20, 2727 

3 4 7 55 

1 

CAF 

ZERO 

025  9 

RFF 

892 

LAST 

1/  90 

20,2730 

54  154 

0 

L00P3 

TS 

MPAC 

026  0 

RFF 

893 

LAST 

1 4.0  0 

2Q  ,2731 

3 C 1 5 5 

0 

C A 

MPAC  +1 

0261 

REF 

894 

LAST 

1490 

20,2732 

50  154 

1 

INDEX 

MPAC 

0262 

REF 

1 

20,2733 

7 3073 

1 

MASK 

GIMBLBTS 

0263 

? n . 3 7 8 A 

0 CCC6 

1 

EXTEND 

i r-  1 r> 

i 

026  4 

REF- 

I 

20,2735 

1 275] 

1 

BZF 

Z ACC  DOT 

0265 

REF 

895 

LAST 

1490 

20,2736 

3 0155 

0 

CA 

MPAC  +L 

0266 

REF 

896 

LAST 

1490 

70 . 373"7 

5Q  1 54 

1 

r n<  n p y 

v,  da  r 

1 

1 1 . 1/  L /V 

1 r M v 

0267 

RFF 

2 

LAST 

1490 

20,2740 

7 3074 

0 

MASK 

GIMBl  BTS 

0268 

20,2741 

0 0006 

1 

E X TE  ('ID 

0269 

REF 

1 

20,2742 

1 2746 

1 

BZF 

FRSTZFRO 

0270 

REF 

397 

LAST 

1490 

2 0,274  3 

5C  154 

1 

INDEX 

MPAC 

0271 

R F F 

7 

LAST 

1490 

20, 2744 

4 1507 

0 

CS 

ACCDCTO 

0272 

REF 

1 

20,7745 

1 2752 

1 

TCF 

ST AC COOT 

0273 

REF 

898 

LAST 

1490 

20,2746 

50  154 

1 

ERST ZERO 

INDEX 

MPAC 

0274 

REF 

8 

LAST 

1490 

20,2747 

3 1507 

1 

CA 

ACCOOTQ 

0275 

REF 

2 

LAST 

1490 

2C.2750 

1 2752 

1 

TCF 

ST  ACCDOT 

0276 

P EF 

313 

LAST 

1490 

20, 275  1 

3 4755 

1 

ZACCDJT 

CAF 

ZERO 

0277 

REF 

39« 

L AST 

1 49C 

20,2752 

50  154 

1 

ST ACCDOT 

INDEX 

MPAC 

0278 

RFF 

A 

LAST 

14  83 

70,2753 

55 ' 510 

0 

TS 

QACCDOT 

0279 

REF 

900 

LAST 

1490 

20,2754 

10  154 

0 

CCS 

MPAC 

0280 

RFF 

2 

LAST 

1490 

20,2755 

1 2727 

0 

TCF 

LOOP 3 -1 

3:15  DEC.  2,1970  LMDAP  .015  PAGE  1490 


USER'S  PAGE  NO.  5 E6  S4 


GET  QUOTIENT  WITH  OVERFLOW  PROTECTION 

SCALED  AT  PI/2  (7) 


GET  QUOTIENT  WITH  OVFRFLOW 


PROTECTION 


SCALED  AT 
. 3 ACC  DC  T Q 
. 3 ACCDOTR 


P I / 2 ( 7 ) 

SCALED  AT  PI/2I8) 
AT  PT/2I8) 


NOW  COMPUTE  QACCDOT,  RACC  DOT , THt  S I GNE D 
JFR  K TERMS.  STORE  CHANNEL  12.  WITH  GIM 
BAI.  DRIVE  BITS  9 THROUGH  12.  SET  LOOP 
INDEX  TO  COMPUTE  R ACC  DOT , THEN  QACCDOT. 


ACC  DOT  Q AND  ACCDOTR  ARE  NOT  NEGATIVE, 
BECAUSE  THEY  ARE  MAGNITUDES 

MASK  CHANNEL  IMAGE  FOR  AMY  GIMBAl  MOTION 


IF  NONE,  Q (F ) ACC DOT  IS  ZERO. 

GIMBAl  IS  MOVING.  IS  ROTATION  POSITIVE. 

IF  NOT  POSITIVE,  BRANCH 


POSITIVE 

ROTATION, 

negati 

< 

m 

Q ( P 

> ACCDOT 

NEGATIVE 

rotation, 

POSITI 

< 

m 

Q(  P 

) ACCDOT 

STORE  Q (R ) ACCDOT. 


NOW  DO  QACCDOT 


GAP:  ASSEMBLE  PE VISIPL  001  CF  AGC  PROGRAM  AP11R0PE  BY  EYLES 


I.  Al'STASK  AMD  AOS  JOB 


0281 
0282 
0283 
028  A 
028  5 
0296 

0287 

0288 
0289 
02  PO 

0291 

0292 

0293 


PEF  66 
REF  6 

REF  1 
REF  5 
REF  1 


REF  2 
REF  6 
REF  1 
PEF  62 
REF  2 


LAST  I486 
LAST  14-52 


LAST  14-13 


LAST  149  1. 
LAST  1472 

LAST  1480 
LAST  1450 


20.2756 

20.2757 

20. 2760 

20.2761 

20.2762 
20,?7f 3 

20.2764 

20.2765 

20.2766 

29.2767 

20.2770 

29. 2771 

20.2772 


4 0111  1 
7 4736  0 

0 0006  l 

1 3706  1 
4 1274  0 
6 3765  0 
0 0006  1 
1 2767  1 
1 3706  1 
11 '6  33  1 
1 2773  1 
0 467*  o 

43330  0 


CS 

MASK 

EXTEND 

BZF 

CS 

AD 

EXTEND 

BZF 

TCF 

CCS 

TCF 

TC 

CADP 


0294  REF  4 

029 c *EF  i 

0?/''  REF  2 


LAST 

14a  7 

20 

20 

LAST 

1 48  9 

20 

2773  10  157  0 

2774  1 3671  0 

277.5  1 32  31  0 


DECK  TE  ST  CCS 
TCF 
TCF 


DAPBOOL  S 
USE  QRJTS 

DCWNGTS 
T 5 ADR 
PAX! SADT 

+2 

DOWNGTS 
INGTS 
DOCK TEST 
I3NKCAL I 
TIMEGMBL 

OOCKTEMp 
1/ACC RET 
1 /ACCOM! 


3:15  DEC 


2,1970  LMDAP 


015  PAGE  1491 


..i 


USER'S  PAGE  NO.  7 E6  S4 

IS  GIMBAL  USABLE? 


NO.  BE  SURE  THE  G1MBAL  SWITCHES  ARE  DOWN 
YES.  IS  THE  DAP  RUNNING? 


NO.  BE  SURE  THE  GIMBAL  SWITCHES  ARE  DOWN 
YES.  IS  GTS  IN  CONTROL? 

YES.  PROCEED  WITH  1/ACCS. 

NO.  NULL  OFFSET  AND  FIND  ALLOWGTS 


BYPASS  1/ ACCENT  WHEN  DOCKED. 


GAP: 

L 

P02°7 

R 0298 

R 02°n 
R 030 1 
R 0302 
R 0303 
R 030  5 
R 0307 
R030G 
R 03 1 1 
R 03 1 2 
A0313 
A 031^ 
A 03  l r 

R 031  6 
R 0316 

R0320 

R 032? 

R032* 

R 032  5 

R 0326 

0327 

0328 

0329 

0330 

0331 

0332 

0333 

0334 

0335 

0336 

0337 

0338 

0339 

0340 

0341 
0362 
0343 
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AOS  TASK  AND  AOS  JOB  USEP'S  PAGE  NO.  8 F5  S4 

SUBROUTINE:  DVOVSUB 

AUTHOR : C.  WORK,  MOD  0 12  JUNE  68 

PURPOSE:  THIS  JR  OUT!  IF  PROVIDES  A s IK  Cl  E-  EC1SI  • MACHINE  LANGUAGE  DIVISION  0 PEP  ATI  ON  WHICH  RETURNS 

(1)  THE  ©DOT I ENT,  IF  THE  DIVISION  WAS  NORMAL . 

(2)  NEGMAX,  IF  THE  QUOTIENT  WAS  IMPROPER  AND  NEGATIVE. 

(3)  POSMAX,  IF  THE  QUOTIENT  WAS  IMPROPER  AND  POSITIVE  OR  IF  THERE  WAS  A ZERO  DIVISOR. 

THE  CALI  ING  Pf  : :GI  AM  is  PRESUMED  TO  BE  A JOS  IN  THE  F BANK  WHICH  CONTAINS  DVOVSUB.  E BANK  MUST  BE  6. 

THE  DIVISOR  FOR  THIS  ROUTINE  MAY  BF  IN  E I TH E ! FIXED  Or  ERASABLE  STORAGE.  SIGN  AGREEMENT  IS 

ASSUMED  B fc  f E E: ' the  TWO  HALVES  OF  THE  DIVIDEND.  (THIS  IS  CERTAIN  IF  THE  A AND  L REGISTERS  ARE  THE  RE- 

SUL  T OF  A MUl TIPI  I CAT  I ON  OPE  RAT  I ON . ) 

CALI  SEQUENCE: 

L TC  DVOVSUB 

L +1  ADRES  (DIVISOR) 

L +2  RE  I UP  N HERE,  WITH  RESULT  IN  A , L 

INPUT:  0 IV 1 0 E !s!  a IN  A,!  (SIGN  AGREEMENT  ASSUME®),  DIVISfr  If  LOCATION  DESIGNATED  BY  "ADRES". 

DIVISOR  MAY  BE  IN  THE  DVOVSUB  FBANK  , F I X ED-F  I X E D FBAI'K  , FBANK  6,  0?  UNSWITCHED  ERASABLE. 

■ UJ  PUT  : QAJO II  E-  IT  AND  : b A I NOEL  , 0-.  POSMAX  (NEGMAX),  WHICHEVER  IS  APP.  3P-<  I ATE  • 

DEBRIS:  SCRATCHX , SCRATCHY , SCRATCHZ, A, L (NOTE:  SCRATCHX,Y,Z  ALE  EQUATED  to  MPAC  +4, +5, AND  +6.) 

ABORTS  OR  ALARMS:  NONE 


EXITS:  TU  THt  CALL  POINT  + 2. 


SUBROUTINES  CALLED: 

NONE. 

REF 

1 

20,2776 

54  161 

0 

DVOVSUB 

TS 

SCRATCHY 

SAVE  UPPEF  HALF  OF  DIVIDEND 

PEF 

1 

20,2777 

54  160 

1 

TS 

SCRATCHX 

REF 

42  5 

LAST 

1484 

20,3000 

50  002 

0 

INDEX 

Q 

OBTAIN  ADDRESS  OF  DIVISOR. 

2C  , 3 no  l 

3 0000 

1 

CA 

0 

P.FF 

426 

LAST 

149  2 

20,3002 

2 4 C 92 

0 

I NCR 

Q 

STEP  Q FOF  PROPER  RETURN  SEQUENCE. 

PEF 

52G 

l AST 

14«»6 

20,3003 

50  000 

1 

INDEX 

A 

20,3004 

3 GOOO 

1 

CA 

0 

PICK  UP  THE  DIVISOR. 

20,3005 

0 0006 

1 

EXTEND 

RETURN  POSMAX  FnR  A ZERO  DIVISOR. 

REF 

1 

20,  3006 

1 3035 

0 

BZF 

MAXPLUS 

REF 

1 

20,3007 

54  162 

0 

TS 

SCRATCHZ 

STORE  DIVISOR. 

REF 

530 

LAST 

1492 

20,3010 

10  000 

0 

CCS 

A 

GET  A-BS  ( DIVISOR ) IN  THE  A REGISTER. 

REF 

69 

LAST 

1483 

20,3011 

6 47  53 

1 

AD 

BIT1 

REF 

I 

20, 3012 

l 3014 

0 

TCP 

ZERCPLUS 

PEF 

70 

LAST 

1492 

20,3013 

6 4753 

1 

AD 

BIT1 

PEF 

2 

LAST 

1492 

20 , 3014 

56  161 

1 

zeroplus 

XCH 

SCRATCHY 

STORE  ABS< DIVISOR) . PICK  UP  TOP  HALF 

20,3015 

0 0006 

1 

EXTEND 

DIVIDEND. 

REF 

1 

20,3016 

6 3020 

0 

BZMF 

GOODNEG 

GET  -ABS I DIVIDEND) 

GAP  : 

L 

034* 

0345 
034  6 
0347 


assemble  revision  001 

OF  AGC  PROGRAM  APllRCiPE  BY 

EYLES 

AHSTASK  AND  AOSJOB 

REF  531  L AST  1492 

20,3017 

4 

cooo 

0 

CS 

REF  3 LAST  1492 

20, 3020 

6 

0161 

1 GOOPNEG 

AD 

?0, 3021 

0 

0006 

1 

EXTEND 

REF  1 

20 , 3J22 

6 

3027 

1 

BZMF 

3:15  DEC.  2,1970  LMDAP  .015  PAGE  1493 
USER'S  PAGE  NO.  9 E6  S4 

A 

SCRATCHY  ABS(DiVISOR)  - ABS ( DI V I DE ND ) 

MiVKEMAX  BRANCH  IF  DIVISION  IS  NOT  PROPER . 


0348 

► 034  9 

0350 
035  1 

I 

0352 

0353 

ft  0354 

035  5 

0354 

ft  035  7 

035  8 
035Q 

ft 

ROB  60 

R 036  1 

ft 

R 03*  2 


REF 

2 

LAST 

1492 

20,3023 

3 0160 

0 

C A 

20,3024 

0 0006 

1 

EXTE 

REF 

9 

LAST 

1492 

20, 3025 

10  162 

0 

DV 

tL 

REF 

t>27 

LAST 

14«2 

20, 3026 

0 ( 0 02 

0 

re 

SCRATCHX  RE-ESTABLISH  THE  DIVIDEND. 

SCRATCHZ  QUOTIENT  IN  THE  A,  REMAINDER  IN  L. 

Q RETURN  TO  CALLER. 


REF 

3 

LAST 

1 

20, 302^ 

10  160 

1 

makemax 

CCS 

REF 

3 

LAST 

1493 

20,3030 

10  1 62 

0 

CCS 

REF 

2 

LAST 

149  2 

20,3031 

1 3035 

0 

TCF 

REF 

4 

LAST 

14-3 

20,3032 

10  162 

0 

C 0 o> 

REF 

1 3 

LAST 

1430 

20*  30  3 3 

3 4735 

1 

CAF 

REF 

42  5 

L A 5 T 

149  3 

20,3034 

0 O' 002 

0 

TC 

DEC 

4 3 
429 

L A$T 
LAST 

1 ! 

1493 

20. 3035 

20.3036 

3 * 733 
0 CO 02 

1 

0 

MAXPLUS 

CAF 

TC 

■l  r 

REF 

S C" AT CHX  DETERMINE  THF  SIGN  OF  THE  QUOTIENT 

SCRATCHZ  SCRATCHX  AND  SCRATCHZ  ARE  NON-ZERO 

MAXPLUS 
SCRATCHZ 

NEGMAX  + ,-  OR  -,+ 

0 

POSMAX  -,-  OP  + ,+ 

Q 


COEFFICIENTS  FOE  THE  Jt  A C C F L E ;■  A T I 0 N CUiVE  FITS 
THE  CURVE  FITS  ARE  OF  TEE  FORM  - 


1JACC  = A / f M A S r + C ) + B 


ft  R 036  3 A I'  SCALED  AT  PI/*  AD/SEC**2  B+16KG,  B IS  SCALED  AT  PI/4  P AD/SEC**2  , AND  C IS  SCALED  AT  B +16  KG. 


R 0365 

R 0 36  7 

THF 

AND 

CU  VF  FIT  FOR  | 
C IS  SCALED  AT 

, PVT-CG  IS 
e+i6  kg. 

OF  THE 

SAME  FORM, 

EXCEPT 

THAT  A IS  SCALED 

AT  8 FT 

B+16  KG,  B 1 

0368 

20, 3037 

01240 

0 

2 DEC 

+.0410511917 

L 

A 

DESCENT 

0368 

n 

zv  f -J  'Jci  1 

C.C  V D 

u 

036  ° 

20,3041 

3 0141 

0 INEPCONA 

2 DEC 

+.00 59 347674 

l.J  ACCP 

A 

DESCENT 

036  ° 

20,3042 

07416 

0 

0370 

20,3043 

00030 

1 

2 DEC 

+.0014979264 

1JACCQ 

A 

DESCENT 

0370 

20,3044 

21261 

1 

0371 

20,3045 

00021 

1 

2DEC 

+.0010451689 

1 J ACCP 

A 

DESCENT 

0371 

20,3046 

03  766 

0 

0372 

20, 3047 

0 015  3 

0 

20EC 

+.006566 3852 

1 JACCP 

A 

ASCENT 

037? 

20,3050 

07111 

1 

0373 

2(  , 3051 

00072 

1 

2 DEC 

+.0035784354 

1 J ACC  Q 

A 

ASCENT 

0373 

20,3052 

2 * 10  3 

0 

037* 

20,3053 

00135 

0 

2 DEC 

+.0056946631 

1 JACCf 

A 

ASCENT 

0376 

20,3054 

11511 

1 

0375 

20,3055 

06  7 54 

0 

DEC 

+.155046 

L 

B 

DESCENT 

0376 

20,3056 

77142 

0 

DEC 

-.025233 

L 

C 

DESCENT 

..z 


gap:.  ASSEMBLE  E VISION  301  OF  AGC  PROGRAM  API  1 GPE  BY  EYLES 


L ACS':  ASK  AND  ADS  JOB 


0377 

20,3057 

00061 

0 

INERCONB 

DEC 

f. 002989 

0378 

20,3060 

00217 

0 

I NERCOMC 

DEC 

f. 008721 

r\si  “7  C 

n . 7i  ■ a 1 

nr,  u 4 

1 

DEC 

F . 0 1 8 7 Q 1 

Uj  i V 

AV  J DUC  l 

\J  \J  T IV  • 

JL 

1 • v y .'i7i 

0380 

20,3062 

75  642 

0 

DEC 

-.068163 

0381 

20, 306 3 

0 05  36 

1 

DEC 

f. 021345 

0382 

20,3064 

75705 

1 

DEC 

- .066027 

0383 

20,3065 

OCOOl 

0 

DEC 

f. 00003? 

0384 

20,3066 

77616 

0 

DEC 

-.006923 

03  SF 

20,3067 

05  154 

1 

DEC 

f. 162862 

0386 

20,3070 

PC  052 

0 

DEC 

+ .002588 

0387 

2 0,307  1 

00231 

1 

DEC 

F.OOQ312 

0388 

20,3072 

77174 

0 

DEC 

- .023608 

0389 

20,  307  3 

014  00 

1 

gimblbts 

OCTAL 

01400 

0390 

20 , 3074 

Cl  000 

0 

OCTAL 

01000 

03«  i 

20,3075 

06  000 

1 

OCTAL 

060  00 

0392 

20,3076 

0 4 C 0 0 

0 

OCTAL 

04000 

0393 

20,3077 

23146 

0 

DGBF 

DEC 

0.6 

0394 

2 C, 3100 

13241 

1 

0. 35356 

DEC 

0.35356 

0395 

2 0 , 3 1 C:  1 

00337 

0 

gfactm 

OCI 

337 

03«6 

20,310? 

2 6501 

1 

.7071 

DEC 

.70711 

0397 

20, 3103 

51276 

0 

-.7071 

DEC 

-.70711 

0398 

20,3104 

62  362 

1 

-FPSMAX 

DEC 

- .42265 

P 039° 

CSM 

-DOCKED  INERTIA 

COMPUTATIONS 

0400 

REF 

17  s 

LAST 

19  69 

20,3105 

3 4753 

1 

DOCKED 

C A 

ONE 

0401 

REF 

1 

20,3106 

c--  160 

1 

s PSLrnpi 

TS 

COEFCTi 

0402 

REF- 

177 

LAST 

14%4 

2-9, 3107 

3 4753 

1 

CA 

ONE 

0403 

REF 

1 

20,3110 

54  161 

0 

TS 

MASSCTR 

0404 

REF 

2 

LAST 

1494 

20,3111 

50  160 

0 

INDEX 

coefctr 

04  05 

REF 

1 

20 , 5 1 1 2 

3 3212 

0 

CA 

COEFF  -1 

0406 

20 , 2 1 1 3 

0 0006 

1 

EXTEND 

0407 

REF 

1 9 

LAST 

1 4 °7 

20,3114 

7 1331 

0 

MP 

LEMMASS 

0408 

20,3115 

0 OC 06 

1 

EXTEND 

0400 

REF 

7 

LAST 

1 ' ' 

20,3116 

7 1332 

0 

MP 

CSMMASS 

04  1 0 

REF 

3 

LAST 

1 494 

20,3117 

50  160 

0 

INDEX 

cqefctr 

041 1 

REF 

? 

LAST 

14  94 

20,3120 

6 32  13 

1 

AD 

COEFF 

0412 

PFF 

001 

LAST 

1490 

20,  ’12  1 

54  154 

0 

TS 

MP  AC 

0413 

20,3122 

1 3126 

0 

TCF 

FA 

04  1 4 

REF 

2 

LAST 

1494 

20,312  3 

54  161 

0 

spSi.noP2 

TS 

MASSCTR 

0415 

20,3124 

0 0006 

1 

EXTEND 

0416 

RFF 

4 

LAST 

149' 

20, 3125 

26  160 

1 

DIM 

COEFCTR 

0417 

REF 

5 

LAST 

14-94 

20,3126 

50  160 

0 

INDEX 

COEFCTR 

0418 

REF 

3 

LAST 

14  9/. 

20,3127 

3 3215 

1 

CA 

COEFF  f2 

04  19 

20,3130 

0 0006 

1 

EXTEND 

3:  15  DEC 


2,1970 


LMDAP 


015  PAGE  1494 


USER'S  PAGE  MO.  10  E6  S4 


1 J ACC  P 

B 

DESCENT 

1J ACCP 

c. 

DESCENT 

1 J ACC  Q 

B 

DESCENT 

1JACCQ 

C 

DESCENT 

1 JACCP 

B 

DESCENT 

1 JACCR 

C 

DESCENT 

1 JACCP 

B 

ASCENT 

1JACCP 

C. 

ASCENT 

1J ACCQ 

B 

ASCENT 

1J  ACCO 

C 

ASCENT 

1 JACCR 

B 

ASCENT 

1J ACCP 

C 

ASCENT 

.3  SCAL  ED  AT  1/2 
.70711  SCALED  AT  2 
97 - .24/2. 2 04 62  AT  B + 15 


COFFTR  = 
MASSCTP 


1 FOR  INERTIA  COEFFICIENTS 


7 

FOR 

CG  COEFFICIENTS 

1 

FOR 

CSM 

0 

FOR 

1 EM 

COEFF  -1  = C 


LET  X = CSMMASS  AND  Y = LEMMASS 


COEFF  = F 

MP  AC  = C X Y F F 


LOOP  TWICE  THROUGH  HERE  TO  OBTAIN 
MP  AC  = MR  AC  + (A  X +D ) X + (B  Y +E ) Y 
LOOP  41  LOOP  #2 


COEFF  +2 


A OR  B 


► 


< 


GAP;  ASSEMBLE  REVISION  001  UP  AGO  PRObnAM  APUROPE  BY  EYLFS 


L AO ST ASK 


0420 

REF 

3 

0421 

REF 

20 

042  2 

REF 

6 

0423 

REF 

4 

042  4 

0425 

R EE 

4 

0426 

REF 

21 

0427 

REF 

902 

042  n 

RLE 

5 

0429 

REF 

l 

043  0 

6 FF 

7 

" l r 

1 

0431 

043  2 

0432 

043  3 

REF 

903 

0434 

REF 

304 

043  6 

OFF 

7 6 

“LI 

C. 

0436 

REF 

1 

0437 

*F  E F 

1 

043  8 

* 

04  3 p 

4 REF 

4 

044  0 

*EEF 

1 7 

0441 

REF 

9 

0442 

REF 

44 

0449 

REF 

2 

0444 

Pf  F 

3 

0445 

REF 

4 

0446 

REF 

5 

044  7 

REF 

6 

0448 

044  0 

°EF 

1 

045  0 

04  6 1 

QEF 

905 

0452 

045  3 

REF 

6 

045  4 

REF 

6 

04  6 5 

REF 

2 

0456 

Ref 

7 

045  7 

REF 

2 

04  5 8 

REF 

6 

04  5 S 

REF 

18 

04  6 0 

0461 

' R F 

906 

0462 

0463 

REF 

7 

0464 

REF 

C 

AND  AOS  JOB 

LAST  1404  20,3131 

LAST  1494  20,3132 

LAST  1494  20,3133 

LAST  1494  20,3134 

20,3135 
LAST  1495  20,3136 

LAST  1495  20,3137 

LAST  1494  20,3140 

LAST  1495  2 C, 31 41 

20,3142 
LAST  1496  20,3143 

20.3144 

20.3145 

20.3146 
LAST  1495  20 , 314 7 

LAST  1495  20,3160 

LAST  l^Pl  90,3161 

20,3152 


20,3153 
20 » 3154 


LAST 

1 49  0 

2 C , 3 1 5 5 

l AST 

1 4 a - 

20,3154 

LAST 

1468 

20,3157 

LAST 

1493 

20, 3160 

LAST 

1435 

20, 3161 

LAST 

1464 

20,3162 

LAST 

1 4 3 6 

20,3163 

LAST 

1495 

20, 3164 

LAST 

149  5 

20.3165 

20.3166 

20,3167 

20,3170 

LAST 

149  5 

20,317) 

20,3172 

LAST 

1490 

2 C , 3 17  3 

LAST 

149  0 

20, 3174 

LAST 

1489 

20,3175 

LAST 

14  so 

2 0 ,317  6 

LAST 

14  £ a 

20, 3177 

LAST 

1489 

20,3200 

LAST 

1 

20,320  1 
20,3202 

LAST 

1 3 5 

20.3203 

20. 3204 

LAST 

1489 

20,3205 

LAST 

1495 

20,3206 

5 0161  1 
7 1331  0 
50160  0 

6 3217  0 
0 0006  1 
5 0161  1 

7 1331  0 
26  1 54  0 

10  161  0 
1 3123  0 
10  160  1 
1 3153  1 

COOOO  1 TORQCONS 
20354  1 
3 0156  1 
5'+  15  5 1 
3 6757  0 
1 3106  1 

3 3212  0 
22  007  0 
0 2776  0 
01244  1 
55 ' 5 30  1 

3 4733  1 
55*551  0 
95*571  1 
56*572  1 
5 5 ' .6  1 1 1 
5 5 ' 6 1 2 1 
0 0006  1 
3 3146  1 
0 0006  1 
10  155  1 
0 0004  0 
55*531  0 
55*532  0 

3 3103  0 
55*627  1 
3 3102  1 
55 '630  1 
3 1244  1 
0 0006  1 
7 0154  0 
0 0006  1 
7 1246  1 
0 2 77o  0 


INDEX  MASSCTE 

MP  LEMMASS 

INDEX  COEFCTR 

AD  COEFF  +6 

EXTEND 

I NDEX  N ASS  OTP 

MP  LEMMASS 

ADS  MP AC 

CCS  6’assctR 

TCP  SPSLQ0P2 

CCS  COEFCTR 

TCF  +7 

2DEC  0.51443  B-14 

CA  MPAC 

TS  MPAC  +1 

CA  SEVEN 

TCF  SPSL00P1 

CA  1 JACCCQN 

ZL 

TC  OVOVSUB 

A D 0 E S M AS  S 

TS  1 J ACC 

CA  POSMAX 

TS  1/ANETP 

TS  1/ANET2  +1 

TS  1 / A MET  2 +2 

TS  1/ANET2  + 17D 

TS  1/ANET2  +18D 

EXTEND 

CCA  T CROC ON S 

EXTEND 

DV  MPAC  +1 

INHINT 

TS  1JACC0 

TS  1JACC 

CA  -.7071 

T S COFFFQ 

CA  .7071 

TS  COEFFR 

CA  MASS 

EXTEND 
M P MPAC 

EXTEND 

MP  ABDEL  V 

TC  OVOVSUB 


3: 15  DEC.  2,1970  LMDAP  .015  PAGE  1495 
USER’S  PAGE  NO.  11  E6  S4 

COEFF  +4  = E OR  D 

T F COEFCTF  IS  POS  , EXIT  FROM  t OOP  WITH 
CG  X DELDOT  = MPAC  X 4 PI  PAD-CM/SEC 
CORRESPONDS  TO  500  LB-FT 

INERTIA  = (MPAC  +1)  X 2(33)  KG-CM(2) 

1 JACC=1 JACCCCN/MASS 

SCALED  AT  PI/4 

SET  INVERSE  JET  ACCELERATIONS  TO  POSMAX, 
WHICH  CORRESPONDS  TO  ACCEL.  OF  1.4  D/SS. 


SCALED  AT  PI/4 

COEFFQ  AND  C ( =f  ARE  CHOSEN  TO  MAKE  U- 
AND  V-AXES  ORTHOGONAL  FOR  DOCKED  CASE 

SCALED  AT  2(16)  KG 

SCALED  AT  4 PT  PAD-CM/SEC 

SCALED  AT  2(13)  CM/SEC ( 2 ) 

GET  QUOTIENT  WITH  OVERFLOW  PROTECTION 


gap:  ASSEMBLE  REVISION  0C1  OF  AGC  F:  OGI. AM  API  1 OPE  BY  LYLES 


3:15  DEC 


2,1570 


LMDAP 


015  PAGE  1496 


L 

AOSTASK 

AND  AOS JOB 

USER ’ S PAGE  NO.  12  E6  S4 

0465 

REF 

907 

LAST 

1495 

20,3207 

00155 

0 

ADPES  MPAC  +1 

0466 

REF 

4 

LAST 

1490 

20,3210 

55 '5 11 

1 

TS  ACCDOTR 

0467 

PEF 

1 

20,3211 

1 2712 

0 

TCF  SPSCQNT 

CONTINUE  K,  KSQ  CALCULATIONS 

046  A 

* 

?0, 3212 

00167 

1 

1JACCC0M 

OCT  00167 

SC 

ALED  AT  PI/4X2(lfc)  RAD/SEC ( 2 ) -KG 

A 046  9 

2 2 

A 0470 

COEFFIC I 

ENTS  FOR  CURVE  FIT 

OF  THE 

FORM  Z = A X +B  Y +C  X Y +0  X +F  Y +F 

047] 

29,3213 

06  176 

1 

CLEF  F 

DEC  .19518 

C 

COEFFICIENT  OF  INERTIA 

0472 

20,3214 

77650 

1 

DEC  -.00529 

F 

« 1 

0473 

20,3215 

72260 

0 

DEC  -.17670 

B 

1 f 

0474 

20, 3216 

76637 

1 

DEC  -.03709 

A 

« 1 

04  75 

20,3217 

02  1 E r 

0 

DEC  .06974 

E 

1 f 

0476 

20,3220 

00645 

0 

DEC  .02569 

D 

1 1 

04  77 

20,3221 

06335 

1 

DEC  .20096 

C 

COEFFICIENT  OF  CG 

04  78 

20, 3222 

042  56 

1 

DEC  .13564 

F 

« « 

047q 

20 , 3223 

30163 

0 

DEC  .75704 

B 

i « 

0480 

20, 3224 

64C72 

0 

DEC  -.37142 

A 

i i 

0481 

20,3225 

53632 

0 

DEC  -.63117 

E 

i i 

048  2 

2 0,3226 

1613  3 

1 

DEC  .41179 

D 

i i 

9 0483 

ASS 

T GM  MEN  T OF 

temporaries  FOR 

1/ ACCS 

( 

EXCLUDING  1 

/ACCONT ) 

A 04 14 

MPAC,  MP AC  +1,  MP AC  +2  USED 

EXPLICITLY 

0485 

REF 

908 

LAST 

14  96 

0 IpQ 

COEFCT1 

EQUALS  MPAC  +4 

0486 

REF 

909 

LAST 

14  96 

0 1 d 1 

MASS CTR 

EQUALS  MPAC 

0487 

RFF 

9 1 0 

LAST 

1-4 

016  0 

SCi'ATCHX 

EQUALS  MPAC  +4 

SCRATCH  AFEA  FOP  DVOVSUB  ROUTINE. 

0488 

REF 

4 

LAST 

1493 

0 1 61 

SCRATCHY 

EQUALS  SCR ATC  HX  +1 

048° 

REF 

5 

LAST 

1496 

C 1 6 2 

SCRATCHZ 

EQUALS  SCRATCHX  +2 

0490 

REF 

Sll 

LAST 

149  6 

01  5 7 

DUCKTEMP 

EQUALS  MPAC  +3 

RECnF  D OF  CSMDOCKED  BIT  OF  DAPBOCLS 

04  91 

REF 

912 

LAST 

1496 

0155 

EPS  I LON 

EQUALS  MPAC  +1 

049  2 

REF 

5 

LAST 

1488 

0155 

-EPSILON 

EQUALS  EPS  t L OF 

049  3 

20,3227 

71777 

0 

18  75 

DEC  -.18750 
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USER  * S 

PAGE 

NO.  13 
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P 0494 

0495 

0496 

046  7 

LAST 

1486 

20, 3230 
2 C, 2000 
20 , 3230 

REF 

6 

049P 

REF 

2B 

LAST 

14<?6 

F6,  1 c37 

BANK  20 
SETLOC  DAPS 3 
BANK 


EBAN]K=  AOSQ 


049  9 REF  A LAST  I486  T(  1497:  369  373*  COUNT*  $$/DAPAC 


0500 

0501 

nc  a 9 

REF 

PEF 

7 

4 

LAST 

LAST 

1491 

15  07 

20.3230 

20.3231 

■ja  •> 7 a •> 

55 ‘633 
3 1346 

n r nni 

1 

1 

1 

-1 

1/ACCONT 

TS 

CA 

F XTEND 

INGTS 

DB 

ZERO  INGTS  IN  ASCENT 

INITIALIZE  DBVAL 1,2,3 

U O ’ c. 

£ U , i L.  J C 

U 1 uuc 

1 

0503 

REF 

59 

LAST 

1482 

20,3233 

7 47  37 

1 

MP 

BIT13 

0504 

REF 

304 

LAST 

1483 

21, 3234 

54  001 

1 

TS 

L 

0.25  DB 

0505 

REF 

532 

LAST 

149  3 

20, 3235 

6 COOO 

1 

AD 

A 

050* 

REF 

1 

20,3236 

54  115 

0 

TS 

08V AL3 

0.50  DB 

0507 

REF 

1 

20,3237 

4 134  6 

0 

CS 

D6VAI  1 

0508 

PFF 

305 

LAST 

1/  ?7 

20, 3?'- 0 

6 0001 

0 

AD 

L 

0509 

REF 

1 

20,324  1 

54  114 

1 

TS 

DBVAL2 

-.75  DB 

nc  i n 

on  o o A 9 

n r HAA 

r;  r TAi  Q i i 

r lv.  W T ALT 

UD  L i 

U 

UL  1 A1,  o U V 

Ini',  l 

0511 

REF 

1 l 

LAST 

1*86 

20,3243 

3 1 1 6 4 1 

0 

CAE 

AOSR 

COMPUTE  AOSU  AND  Ar?V  BY  ROTATING 

051  2 

REF 

306 

L A 5 1 

IT  97 

20,3244 

5 4 001 

1 

TS 

L 

ALSO  AND  AOSR. 

0513 

REF 

2° 

1 AST 

14  67 

7-0, 3 f¥5 

81*537 

1 

CAE 

AOSO 

0514 

REF 

63 

LAST 

1491 

20,3246 

0 4 6 74 

0 

TC 

IBNKCALL 

0515 

REF 

4 

LAST 

1 A5  2 

20,3247 

37146 

0 

C ADR 

RCT-TOUV 

0516 

REF 

1 

20,3250 

53*544 

1 

DXCH 

AOSU 

051" 

20 , 325  1 

0 0 C 0 3 

1 

PEL  TNT 

051fi 

P E F 

6 7 

LAST 

1 4°  1 

9 n . a ? c o 

a o ii  i 

n 

r 4 

nspRiri  c 

C.  1 J C.  J A 

D 111 

U A 

U M *•  D JL-L  o 

0519 

REF 

6 

LAST 

145  3 

20 , 3253 

7 4744 

0 

MASK 

DRIFTBIT 

ZERO  DURING  ULLAGE  AND  POWERED  FLIGHT. 

0520 

REF- 

533 

LAST 

1497 

20,3254 

10  COO 

0 

CCS 

A 

IF  DRIFTING  FLIGHT, 

0521 

REF 

178 

LAST 

1494 

20, 3255 

3 47  53 

1 

CA 

ONE 

SET  DRIFTER  TO  1 

0522 

REF 

1 

20 , 3256 

54  116 

0 

TS 

DRIFTEF 

SAVE  TO  TEST  FOR  DRIFTING  FLIGHT  L A 'r E R 

0523 

REF 

6 

LAST 

1489 

20,3257 

6 1502 

1 

AD 

ALLOWGTS 

NON-ZERO  IF  DRIFT  OR  GTS  NEAP 

0524 

REF 

63/ 

LAST 

1467 

20,3260 

10  000 

0 

CCS 

A 

0525 

RFF 

1 

20,3261 

3 3763 

0 

CA 

FLATVAL 

DRIFTING  FLIGHT,  STORE  .8  IN  FLAT 

0526 

REF 

1 

20,3262 

54  151 

0 

TS 

FLATEMP 

IN  POWERED  FLIGHT,  STORE  ZERO  IN  FLAT 

052  7 

20, 3263 

0 0006 

1 

EXTEND 

0526 

REF 

1 

20 , 3264 

1 32  70 

0 

8ZP 

do^axis 

IF  POWERED  AMD  NO  GTS,  STAFT  P AXIS, 

052  9 

REF 

2 

LAST 

1497 

20,3265 

10  116 

0 

CC  S 

DRIFTER 

OTHERWISE  S FT  Z0NE3I  IM 

0530 

REF 

1 

20,326* 

3 3762 

1 

CA 

Z0NE3MAX 

17.5  MS  , SCALED  AT  4 SFCOMDS. 

05  31 

REF 

1 

20, 3267 

54  152 

0 

TS 

Z3TEM 

0532 

REF 

10 

LAST 

1 ' : 

20,3270 

3 1530 

0 

DQPAXIS 

CA 

1 JACC 

1 J ACC  AT  PI/4  = 2 JACC  AT  DI/2  = 

A 05  3 3 

ANET  AT  P I /2  = ANET/ACOAST  AT  2(6). 

0534 

REF 

38 

LAST 

1476 

20,3271 

6 4 743 

0 

ID 

B1T9 

1 + ANET/ACOAST  AT  2(6) 

.0535 

RFF 

1 

70, 327? 

54  1*7 

0 

TS 

F UNT  E M 

0536 

REF 

1 1 

LAST 

1497 

20, 3273 

3 1530 

0 

CA 

1 JACC 
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0537 

REF 

1 

20,3274 

0 3700 

0 

TC 

0538 

20,3275 

0 C.C04 

0 

INHINT 

0539 

REF 

3 

t AST 

1495 

20,3276 

55 ' 5 5 I 

0 

TS 

0540 

REF 

4 

LAST 

149  8 

20,3277 

55 '562 

0 

IS 

ORM 

REF 

39 

LAST 

1 A 4 7 

20, 3300 

4 '743 

1 

CS 

0542 

20,3301 

0 0006 

1 

EXTEND 

0543 

REF 

5 

LAST 

1493 

20,3302 

7 1551 

0 

MP 

0544 

20, 3303 

0 C006 

1 

EXTEND 

0545 

REF 

2 

LAST 

14  97 

20, 3304 

10  1 57 

0 

DV 

0546 

RFF 

1 

20 ,3305 

55 '557 

0 

TS 

05^7 

R FF 

2 

LAST 

1498 

20,3306 

66 ' 560 

1 

TS 

0548 

REF 

1 

20, 3307 

3 47  3 3 

1 

CA 

0549 

REF 

1 

20, 3310 

55.1553 

1 

TS 

055  0 

REF 

2 

LAST 

1 49  8 

20, 331  1 

5C ' 9 54 

0 

TS 

056  l 

20,3312 

0 C003 

I 

RE  I TNT 

0552 

20,3313 

22  007 

0 

ZL 

0553 

REF 

3 

LAST 

1497 

10  116 

0 

CCS 

c.  ' , > .J  X ' 

0554 

REF 

2 

LAST 

1497 

20,3315 

53' 544 

1 

DXCH 

0555 

OFF 

314 

LAST 

14-0 

20,3316 

3 '’755 

1 

UAXIS 

CA 

0556 

REF 

1 

20,3317 

54  154 

0 

TS 

0557 

REF 

1 

20,3320 

54  163 

1 

BOTH AXES 

TS 

055  8 

REF 

2 

LAST 

1498 

20, 3321 

50  154 

1 

INDEX 

055  c 

c EF 

3 

L AST 

I 4 - 3 

20,3322 

1 1 ' 543 

0 

CCS 

0560 

REF 

179 

LAST 

14  07 

20,3323 

6 '*7  5 3 

1 

AD 

055  1 

20,3324 

1 3327 

0 

TC  F 

0562 

REF 

180 

LAST 

1498 

20,3325 

6 4753 

1 

AD 

0563 

REF 

2 

LAST 

149  8 

20, 3326 

24  163 

0 

rwr  r 

J IN  V*  t\ 

0564 

REF 

1 

20, 3327 

54  162 

0 

TS 

0565 

REF 

3 

LAST 

1 4<  8 

20,3330 

4 0163 

1 

CS 

0566 

REF 

1 

?n,333i 

54  1 64 

0 

IS 

0567 

REF 

2 

LAST 

1407 

20,3332 

3 1346 

1 

CA 

0568 

REF 

1 

20,3333 

54  143 

0 

TS 

056  9 

REF 

1 

20,3334 

54  144 

1 

TS 

0570 

REF 

2 

LAST 

1498 

20, 3335 

3 0162 

1 

CA 

0671 

REF 

1 

20,3336 

6 3764 

1 

AD 

0572 

20 , 3337 

0 0006 

1 

EXTEND 

0573 

REF 

1 

20,3340 

6 3432 

1 

BZMF 

0574 

REF 

2 

LAST 

1497 

20,334 1 

10  151 

0 

BIGACS 

CCS 

0575 

REF 

1 

20,3342 

1 3372 

0 

TCP 

C5  76 

REF 

3 

LAST 

1498 

20, 3343 

3 13^6 

1 

CA 

0577 

REF 

2 

LAST 

1498 

20, 3344 

50  164 

1 

INDEX 

INVERT 

1/ANETP 
1/ANETP  +1 

B I T° 

1 /ANETP 

FUNTEM 
P ACC FUN 
PACCFUN  +1 

1/.03 
1 / A CD ST  P 
1/ACOSTP  +1 


DRIFTER 

AOSU 

ZERO 

uv 

s IGNAOS 
UV 

AOSU 
ONE 
+ 3 

ONE 

S IGNAOS 
ABSAOS 
SIGN A 0 S 
- ? IGNAOS 

DBVAL1 

DBB1 

DBB2 

ABSAOS 
- .03P./S? 

NQXMUCH 
FLAT  EMP 
SKI PDBL 

OBVAL 1 
-SIGNAOS 
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P AXIS  DATA  MUST  BE  CONSISTENT 
SCALED  AT  2 (7 ) /PI . 

-1  AT  2(6) 

-1/ANET  AT  2(13) /PI 

-1/  ( AN  EX  + ANEX**2/AC0AST ) AT  2!7)/PI 

NO  AOS  FOP.  P AXIS,  ACOAST  = AMIN 


ZERO  AOSU , V IF  IN  DRIFT,  JUST  TO  BE  SURE 

DO  U AXIS  COMPUTATIONS 

ZERO  FOR  U AXIS,  ONE  FOR  V AXIS. 

CODING  COMMON  TO  U, V AXES 

PICK  UP  ABSIAOSU  OP  AOS V) 

RESTORE  TO  PROPER  VALUE 
AND  LEAVE  SIGNAOS  AT  ZERO 
NEGATIVE,  RESTORE  TO  PROPER  VALUE 
AND  SET  SIGNAOS  TO  ONE  TO  SHOW  AOS  NEG 
SAVE  ABS(AOS) 

US  FD  AR  AN  INDEX 

SET  DB1,  DB2  TO  DBVAL 1 (=  DB) 


TEST  MAGNITUDE  OF  ABS(APS) 


ABS(AOS)  LESS  THAN  AMIN 
ABS(AOS)  GREATER  THAN  AMIN 
I DRIFT  OR  GTS,  DO  NOT  COMPUTE  DB 
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L AOS" ASK  AND  AOS  JOB 


0578  REF 

0579  REF 

0580  REF 

0581  REF 
C582  REF 
0588 

0584 

0585  REF 

0586  REF 

0587  REF 

0588 
05  8 c 

0590  REF 

0591 

0592 

0593  REF 

0594  REF 

0595  a ff 

0596  REF 

0597  REF 
0593  KEF 


2 LAST  1498 
4 LAST  1498 
1 

1 

3 LAST  1498 


2 LAST  1AQ7 
1 

4 LAST  1499 


c : i/i  JO-  ° 


5 LAST  1487 
5 LAST  1499 
2 LAS1"  1*98 

2 LAST  1497 

3 LAST  1498 
l 


20.3345 

20.3346 

20. 3347 

20.3350 

20.3351 
20,335? 

20.3353 

20. 3354 
2*3,335  8 

20.3356 

20.3357 
20  , 3360 
20, 336  1 

20.3362 

20.3363 

20.3364 

20.336 5 

20. 336  6 
20, 3367 
20,3370 

20. 337  1 


26  144 
50  163 
54  145 

3 3227 
6 016  2 
0 0006 
6 33  56 

4 C 1 1 5 
1 3365 
4 0162 
6 0000 
6 0000 

6 47  3 6 
6 0000 
0 0006, 

7 1346 
50  163 
54  143 
3 0114 
50  164 
54  146 


1 

0 

0 

0 

1 

1 

1 

0 

0 

0 

1 

1 

1 

1 

1 

0 

0 DBONE 
0 

0 

1 
0 


ADS  DBB2 

INDEX  SIGNACS 
TS  DBB4 

CA  -.1875 

AD  ABSAOS 

EXTEND 
BZMF  +3 

CS  DBVAL3 

TCP  DBONE 

Cc  ABSAOS 

DOUBLE 
DOUBLE 

AD  3 IT  14 

DOUBLE 
EXTEND 
MP  DB 

INDEX  SIGNAOS 
TS  DBB 1 

CA  DBVAL2 

INDEX  -SIGNAOS 
T?  QB03 


0599 

REF 

5 

LAST 

1490 

20, 3372 

3 0162 

1 

SKIPDB1  CA 

0600 

20, 3373 

0 0006 

1 

EXTEND 

0601 

REF 

44 

LAST 

1479 

20,3374 

7 6 740 

1 

MP 

0602 

REF 

6 

LAST 

1499 

20,3375 

6 0162 

1 

AD 

0603 

REF 

2 

LAST 

149  8 

20,3376 

0 3700 

0 

TC 

0604 

PEF 

4 

LAST 

1409 

20, 3377 

50  I 44 

1 

INDEX 

0605 

REF 

l 

20,2400 

54  130 

1 

TS 

0606 

D FF 

7 

LAST 

1 4 G 8 

T /.  7 1 7 

1 

r a 

C.\j  f -3*  I 

> ( D D 

1 

0607 

REF 

6 

LAST 

1499 

20,3402 

50  163 

0 

INDEX 

0608 

REF 

2 

LAST 

1499 

20,3403 

54  127 

1 

TS 

0609 

R E F 

7 

LAST 

1440 

20, 3404 

3 0162 

1 

CA 

0610 

REF 

4 

LAST 

1469 

20,3405 

6 15  3 3 

0 

AD 

061  I 

REF 

5 

LAST 

O 

2 0 f 340  6 

6 1 6 3 3 

0 

AD 

0612 

REF 

40 

LAST 

1498 

20,3407 

6 4743 

0 

AD 

0613 

REF 

535 

LAST 

1497 

20,3410 

3 4 000 

0 

TS 

06 1 4 

REF 

1 

20 , 341 1 

1 34  56 

1 

TCP 

06  1 5 

R E F 

8 

LAST 

1499 

20,341? 

3 0 1o2 

1 

C A 

0616 

20,3413 

0 0006 

1 

EXT  END 

0617 

REF 

90 

LAST 

1499 

20,3414 

7 4736 

0 

MP 

0618 

REF- 

6 

LAST 

1499 

20,3415 

6 1533 

0 

AD 

0619 

REF 

1 

2C  , 3416 

5 4 1.5  7 

0 

....  TS 

A 062  n 

0621 

REF 

43 

LAST 

1 443 

2 ! ' , 34  1 7 

6 6 7 44 

1 

At' 

062? 

RFF 

? 

LAST 

1 ..  o c 

2 o ,3420 

56  1 5 7 

1 

XCH 

06  2 3 

REF 

3 

LAST 

1 - 1 

20, 362  1 

0 3700 

0 

TC 

0624 

20,3422 

0 60  06 

1 

EXTEND 

ASSADS 

BIT12 
ABSAOS 
I NVERT 
-SIGNAOS 
I / A C 0 S T T 
I / . 0 3 
SIGNAOS 
1/ACCSTT 

ABSAOS 
1 JACC.U 
1 JACCU 
B I T9 

A 

SKIPQB2 

ABSAOS 

BIT14 
1 JACCU 
ANET 

BIT-* 

ANET 
INVER T 
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DB2 ( 1 ) = 2 DB 
DB4 ( 3 ) = I OB 

-.1875  FI/2  P AD/SECI 2 ) SCALED  AT  pi/2 
ABSAOS  TS  SCALED  AT  PI/2 

-.5  DB 


1-8  ABSAOS.  (8  IS  16/PI  SCALED  AT  2/PI) 

DB 1 ( 2 ) = ( 1-8  ABSAOS)  DB.  IF  ABSAOS  IS 
GREATER  THAN  .1875  ^HEN  DB 1 (?)=-. 5 DB 

DB3I4)  = -.75  DB 

ABS(AOS)  GREATER  THAN  AMIN,  SO  IT  IS 


(9/8)  ABSAOS. 

ALL  RIGHT  TO  DIVIDE 

1 / ACO AST PO $ ( L EG ) = 1 / AB S ( Ar*S  ) 


1/ACQASTNEG( POS ) = 1/AMIN 


2 J AC  C + ABS I AOS  > 

MAXIMUM  VALUE  IN  COMPUTATIONS 
TEST  FOR  OVERFLOW 

NO  OVERFLOW,  DO  NORMAL  COMPUTATION 
RESCALF  TO  PI  TO  PREVENT  OVERFLOW 


1 J ACC  AT  PI/2  = 2JACC  AT  PI 

ANETPf SON  EG)  MAX  SCALED  AT  PI 

ANET PCS (MEG ) M 4X/ ACO A STNiG (PCS ) AT  2(7) 

1 + AT  E 7P0S/AC0ASTNEG  AT  2(7) 

RAVE  IN  ANET,  WHILE  PICKING  UP  ANET 


r 
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06  7 

REF 

01 

LAST  149° 

2C , 3423 

7 4736 

0 

MP 

BIT14 

SCALE 

1/ANET 

AT  2(7)/P[ 

06  20 

REF 

1 

2r  ,3424 

54  160 

1 

TS 

1 /AMET 

06  27 

R FF 

1 

20 , 34  2 5 

3 3431 

1 

CA 

ACCHERE 

SET  UP 

P ETURN 

FRO  M CdM  PUT  ATI FN  ROUTINE 

062  3 

PEF 

l 

2 ■ , 342  6 

54  11 

0 

TS 

ARET 

062Q 

RFF 

44 

LAST  1AQO 

2 0 , 34 27 

4 4 744 

0 

CS 

RITR 

-1  AT 

2(7) 

063  0 

REF 

1 

20,3430 

1 3733 

1 

TCF 

DOACCFUN 

FINISH 

ACCFUN 

COMPUTATION 

06  31 

REF 

1 

20 ,3431 

1 34.-3 

1 

ACCHERE  TCF 

ACCTHEf.  r 

06  3 2 

REF 

307 

1 AST 

14G7 

20,3432 

54  00  1 

1 

NOTMUCH 

TS 

L 

ABS(APS)  LFSS  THAN  AMIN,  SAVE  T N l 

063  3 

REF 

3 

LAST 

1 499 

20, 3433 

3 47  33 

1 

C A 

1 /.  03 

ACQASTPOS  »NEG  = AMIN 

0634 

RFF 

3 

LAST 

149o 

20 , 3434 

54  127 

1 

TS 

1 / ACOSTT 

0635 

REF 

4 

LAST 

! 500 

20, 3435 

54  130 

1 

TS 

1/ACOSTT  +1 

0636 

RFF 

3 

LAST 

149  8 

20,3434 

19  1 1 

0 

CC  S 

FLAtEMP 

0637 

p EF 

7 

LAST 

1 400 

20,3437 

1 3456 

1 

TCF 

SKI PDB2 

DO  MOT  COMplJTE  DB  IF  DR  T F T OF  GTS 

0638 

REF 

1 

20,  36-40 

3 4 7 44 

1 

CA 

. 0125RS 

AMI N/2 

0639 

REF 

.30  8 

LAST 

1 5 0 C 

20, 344 1 

6 COP  1 

0 

AD 

L 

L HAS  ABS(AO.S)  - AMIN 

0640 

20, 3442 

0 00 (-6 

1 

EXTEND 

RESULT  IS  ABS ( AOS ) - AMIN/2 

0641 

REF 

1 

20 , 3463 

6 34  7 

0 

BZMF 

NOAOS 

ABS(AOS)  LESS  THAN  AMIN/2 

0642 

REF 

3 

LAST 

1499 

2 0 , 364 4 

3 0115 

1 

SOME AOS 

CA 

DBVAL3 

AMTN/2  LT  ABS(AOS)  LT  AMIN 

0643 

RFF 

5 

LAST 

1499 

20, 3445 

50  164 

1 

INDEX 

-SIGNAPS 

0644 

REF 

2 

LAST 

1499 

20, 3446 

54  1 + 6 

0 

TS 

DBB3 

DB 3 ( 4 ) = DB/2 

0645 

REF 

536 

LAST 

1499 

20,3647 

6 0000 

1 

AD 

A 

064  6 

REF 

7 

1.  AST 

1499 

20,3450 

50  163 

0 

INDEX 

SIGNAOS 

0647 

REF 

2 

LAST 

14Q0 

20,3451 

54  145 

0 

T S 

OB  84 

DB4 ( 3 ) = OB 

0648 

REF 

3 

LAST 

1500 

20, 3452 

1 3456 

1 

TCF 

SKIPDB2 

0649 

REF 

4 

LAST 

1498 

20,3453 

3 1346 

1 

NQAQS 

CA 

DBVAL1 

0650 

( EF 

3 

LAST 

1500 

20,3454 

54  146 

0 

TS 

DBB3 

DB3 , 4 = DB 

065  1 

P E F 

.3 

LAST 

1500 

20, 3455 

54  145 

0 

TS 

0BB4 

0652 

REF 

9 

last 

1499 

20,3456 

3 0162 

1 

SKTPDB2 

CA 

A8SAQS 

ANETPCS (NEG ) MAX  = 2 JACC  + ABS(APS) 

065  3 

REF 

7 

LAST 

1499 

20, 3457 

6 1 533 

0 

AD 

1 JACCU 

0654 

REF 

8 

LAST 

1 > 

20,3460 

6 1533 

0 

AD 

1 JACCU 

0655 

REF 

3 

LAST 

1495 

20,346  1 

56  157 

0 

TS 

AMET 

CON NOT  OVERFLOW  HERE 

0656 

R EF 

1 

20,3462 

0 3724 

0 

CL  1 /NET+ 

TC 

D01/NET  + 

COMPUTE  1 / AN  FT , ACCFUN 

065  7 

REF 

6 

LAST 

15  00 

20, 3463 

50  164 

1 

ACCTHERE 

INDEX 

-SIGNAPS 

0658 

REF 

1 

20 , 3464 

54  134 

0 

TS 

Z5TEM  +2 

STORE  ACCFUN  IN  TEMPORARY  BUFFER 

065  9 

REF 

2 

LAST 

1500 

20,3465 

3 0160 

0 

CA 

1/ANET 

0660 

REF 

7 

1 AST 

1500 

20,3466 

50  164 

1 

INDEX 

-SIGNAOS 

066  1 

REF 

1 

20,3467 

54  126 

0 

TS 

1/ATEM2  +2 

STORE  1/ANET  IN  TEMPORARY  BUFFER 

0662 

REF 

10 

last 

1500 

20,3470 

3 C 162 

1 

CA 

ABSAOS 

SEE  IF  OVERFLOW  IN  MIN  CASE 

0663 

REF 

9 

LAST 

1500 

20,3471 

6 1533 

0 

AD 

l JACCU 

GAP:  ASSE  MBLE  RFV1-I3!  -1  ' r-  AGE.  PROGRAM  AP11RLPE  BY  EYLES 


L 

Al'ST  ASK 

AND  A3 S JOB 

0666 

REF 

41 

LAST 

1499 

20,3*72 

6 4743 

0 

AD 

0665 

REF 

537 

LAST 

1500 

20,3473 

54  000 

0 

TS 

0666 

20, 3474 

1 34  7 o 

0 

TCP 

0667 

REF 

{.  c 

LAST 

1495 

20, 3475 

3 4733 

1 

CA 

066? 

R E F 

2 

LAST 

14'. 

20, 3476 

6 3764 

1 

AD 

0660 

nrc 

1 A Q T 

1 CAd 

ah 

54  157 

0 

T S 

R t r 

1 A o » 

1 ~U  \ ’ 

0670 

RFF 

2 

LAST 

1 500 

20,3500 

0 3724 

0 

TC 

0671 

...  KEF 

» 8 

LAST 

1-500 

20, 350 1 

50  164 

1 

INDEX 

067  2 

REF 

2 

LAST 

I c00 

20,350? 

56  132 

0 

TS 

0673 

REF 

3 

LAST 

15  00 

20,3903 

3 0160 

0 

CA 

r\  /„  7 1, 

Q 

1 asT 

LAST 

1 r A 1 

on.  -a c n i. 

50 164 

54  124 

1 

1 

INDEX 

Un  fc' 

0675 

K tr 

REF 

2 

J ■ 1 

1500 

r t 7 f D .J  v ' 

20,3505 

TS 

0676 

PEE 

11 

LAST 

1 5 Of; 

20,350c 

4 0162 

0 

C$ 

0677 

REF 

10 

LAST 

1500 

20,3507 

6 1533 

0 

AD 

AA  7 Q 

o pc 

1 I 

1 *CT 

1501 

20,3510 

6 153  3 

Q 

AD 

UC  l • 

L I 

l 1 

FA  1 

06  79 

REF 

1 

20,3511 

0 3712 

0 

TC 

0680 

REF 

8 

LAST 

1500 

20,3512 

50  163 

0 

INDEX 

0631 

REF 

1 

20,3  i 1 3 

54  133 

1 

TS 

0682 

f,  FF 

3G9 

LAST 

15  00 

20,  1514 

5 4 OC  1 

1 

TS 

0683 

REF 

4 

LAST 

l?oi 

26,3515 

3 0160 

0 

CA 

0684 

!.  FF 

9 

LAST 

1 50  1 

20 ,3516 

50  163 

0 

INDEX 

0689 

REF 

1 

20,3517 

54  125 

0 

TS 

0686 

PEF 

12 

LAST 

1501 

20, 3520 

4 0162 

0 

CS 

0687 

REF 

12 

LAST 

1501 

20,352  1 

5 15.33 

0 

AD 

0688 

REP 

5 

LAST 

] 5 0 1 

20,3522 

54  157 

0 

TS 

Ot  8 9 

REF 

3 

LAST 

15  01 

20,3523 

6 3764 

1 

AD 

0690 

70.3524 

0 6006 

1 

FXT  FNfi 

1 

0691 

REF 

1 

20,3525 

6 3743 

1 

BZMF 

0692 

REF 

1 

20,3526 

0 3720 

1 

TC 

069  3 

REF 

10 

l AST 

1 50 1 

20,3527 

50  163 

0 STMIN- 

INDEX 

0694 

r,  EF 

2 

LAST 

1501 

20, 3530 

54  131 

0 

TS 

069? 

PEF 

c 

LAST 

1501 

20, 3531 

3 0160 

0 

CA 

0696 

REF 

11 

LAST 

1501 

20,3532 

50  163 

0 

INDEX 

0697 

REF 

2 

LAST 

1501 

20, 3533 

54  123 

0 

TS 

06  9 P 

REF 

3 

LAST 

1498 

20,3534 

50  154 

1 

INDEX 

0699 

»FF 

1 

20 , 3535 

3 37  70 

1 

CA 

0700 

REF 

9 

LAST 

1458 

20,3536 

7 1262 

1 

mask 

0701 

20,3537 

0 0006 

1 

EXTEND 

0702 

REF 

1 

20, 3540 

1 3545 

1 

BZF 

070? 

REF 

3 

L AST 

15  01 

20,356  I 

3 0124 

0 

CA 

0704 

REF 

4 

LAST 

1 5 < 1 

20,354? 

56  126 

0 

TS 

0705 

PEF 

3 

LAST 

1501 

20,3  54  3 

3 0132 

1 

CA 

0706 

REF 

4 

LAST 

1501 

20, 3544 

54  136 

0 

TS 

0707 

REF 

4 

LAST 

1501 

20,3545 

50  154 

1 FAIL- 

INDEX 

B IT9 
A 

+ 2 

POSMAX 

-.03F/S2 

ANET 

001  / 'JET  + 

-SIG  -iAOS 
Z 5T  EM 
1/ANET 
-SIGNAOS 
1/ATEM2 


ABSAdS 
1 JACCU 
1 JACCU 
1 /ANET- 
S IGNAOS 
Z1TEM  +2 
L 

1/ANET 
SIGNAOS 
1/ATEM1  +2 
ABSAOS 
1 JACCU 
ANET 

-.03P/S2 

FIXMIN 

1 /NET MIN 

SIGNAOS 

Z1TEM 

1/ANET 

SIGNAOS 

1 / AT  EMI 


UV 

+ U MAS  K 
CH5MASK 

FAII  - 
1 /ATEM2 
1 /ATEM2  +2 
Z5TFM 
Z5TEM  <-2 
UV 
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MAXIMUM  POSSIBLE  VALUE 
OVERFLOW  POSSIBLE  BUT  REMOTE 

IF  OVERFLOW,  TRUNCATE  TO  PT/2 
RESTORE  TO  CORRECT  VALUE 

COMPUTE  1/ANET,  ACCFUN 

STORE  MIN  VALUES  JUST  AS  MAX  VALUES 


NOW  DO  N E G ( P 0 S ) CASES 
ANETN  EG ( PC  c ) M AX 

COMPUTE  1/ANET,  ACCFUN,  AND  ACCSW 
STORE  NEG(PnS)  VALUES  JUST  AS  POS(NEG) 

SAVE  IN  L FOR  POSSIBLE  FUTURE  USE 


1/ANETNEG! PQS ) MIN 


TEST  FOR  AMU 

IF  AN  FT  LESS  THAN  AMIN,  STORE  MAX  JET 
VALUES  FOP  MINI  JETS  AND  SET  ACCSW 

OTHERWISE  DO  MIN  JET  COMPUTATIONS 
STOP E VALUES 


TEST  FO!  +U  (+V)  JET  FAILURES 


REPLACE  FUNCTION  VALUES  DEPENDING  ON  THE 
FAILED  JET  PAIR  WITH  CORRESPONDING  ONE- 
JET  (OF  A! IN)  FUNCTION  VALUES 


GAP:  ASSEMBLE  EVISIDN  10 1 if  AGC  PROGRAM  AP11K0PE  BY  EYLES 


L AG  ST  ASK  AND  AOS JOB 


0708 

0709 

A7  1 A 

REF 

REF 

1 

10 

LAST 

1501 

20. 3546 

20.3547 

in.  k r Q 

3 3766 
7 1262 
n inn  a 

0 

1 

i 

CA 

MASK 

E X TEND 

-UMASK 

CHS MASK 

U ( l L 

' f JVU1' 

* J Uu uy 

X 

0711 

REF 

1 

20,3551 

1 3556 

0 

BZF 

DBFUN 

0712 

P EF 

3 

LAST 

1501 

20,355  2 

3 0123 

1 

CA 

1 /AT EMI 

07  1 3 

REF 

4 

t A ST 

150  2 

20 , 85  5 3 

54  125 

o 

T S 

1/ AT EMI  +2 

0714 

REF- 

3 

LAST 

1501 

20,3554 

3 0131 

1 

CA 

Z ITEM 

0715 

REF 

4 

LAST 

1502 

20,3555 

54  133 

1 

TS 

Z ITEM  +2 

0716 

REF 

4 

LAST 

1 5 00 

20, 35 5 4 

< 0 1 z 6 

0 DBFUN 

cs 

D3B3 

0717 

REF 

3 

l AST 

liOT 

20,3557 

6 0143 

1 

AO 

DBB 1 

0718 

REF 

4 

L AST 

1500 

20, 3560 

6 0151 

1 

AD 

FLATEMP 

0719 

REF 

1 

20,356  1 

54  147 

1 

TS 

AXDSTEM 

0720 

REF 

4 

LAST 

1500 

20,3562 

4 0145 

0 

CS 

DBB4 

0721 

REF 

3 

L AST 

1499 

20,3563 

6 0144 

0 

AO 

DRB2 

0722 

REF 

c; 

LAST 

150  2 

20,3564 

- 0151 

1 

AD 

FLATEMP 

0723 

REF 

2 

LAST 

150  2 

20 , 3 56  5 

5/  150 

1 

T S 

a x f)  S T F M + 1 

0724 

20,3566 

0 0004 

0 

INHIN7 

0725 

REF 

5 

L AST 

1501 

20 , 3567 

1C  154 

0 

CCS 

U V 

0726 

RFF 

1 

20, 3570 

1 3612 

0 

TC.F 

STORV 

0727 

REF 

1 

20,3571 

3 0122 

0 

CA 

ACCSW 

0728 

REF 

3 

L AST 

1464 

20, 3572 

55' 547 

1 

TS 

ACC  S WU 

0729 

REF 

1 

20,3573 

3 43  20 

1 

CA 

NINE 

0730 

RFF 

3 

LAST 

13  79 

20,3574 

0 5845 

0 

TC 

GENTRAN  +1 

073  1 

P F F 

5 

LAST 

1 c 0 2 

20,3575 

0012  3 

1 

A DP  ES 

1 /AT  EM  1 

073? 

REF 

1 2 

LA  ST 

146Q 

2 0 , 0 6 7- 

016  6 7 

1 

A D P E S 

1 / AG  PI  1 

I t 1 

0733 

20,3577 

0 0003 

1 

RELINT 

073  4 

REF 

4 

LAST 

1502 

20,3600 

52  144. 

1 

DXCH 

DBB  1 

0735 

RFF 

1 

20,3601 

5 2 1 3 0 

1 

DXCH 

UDB1 

0736 

R EF 

5 

LAST 

1502 

20,3602 

52  146 

0 

DXCH 

DBB4 

0737 

RFF 

1 

20,3603 

52  140 

0 

DXCH 

U DB4 

0738 

REF 

3 

LAST 

1502 

30,3604 

52  150 

1 

DXCH 

AXDSTEM 

07  3 

REF 

5 2 142 

1 

n yr  w 

1 1 a y n 1 ^ t 

z.  v j jy  ■' 

I 

u a u n 

U M A 1/  1 h 1 

0740 

REF 

1G  1 

L AST 

1498 

20,3606 

3 1 7 5 3 

1 

CA 

ONE 

0741 

REF 

4 

t AST 

1502 

20, 3607 

54  154 

0 

TS 

UV 

0742 

REF 

315 

LAST 

1498 

20,3610 

3 47  5 5 

1 

CA 

ZERO 

0743 

REF 

1 

20,3611 

1 33  20 

1 

TC  F 

BOTH AX  ES 

0744 

REF 

2 

l AST 

130  2 

20,  36  1.2 

3 0122 

0 STORV 

CA 

ACCSW 

074  5 

REF 

1 

29, 3613 

55*550 

1 

TS 

AC.CSWV 

0746 

REF 

2 

LAST 

1502 

20,3614 

3 4320 

1 

CA 

NINE 

0747 

REF 

4 

LAST 

1502 

20,3615 

0 5545 

0 

TC 

GENTRAN 
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TEST  FOR  -U  ( - V ) JET  FAILURES 


REPLACE  FUNCTION  VALUES  DEPENDING  ON  THE 
FAILED  JFT  PAIR  WITH  CORRESPONDING  ONE- 
JET  (OP  AMIN)  FUNCTION  VALUES 


COMPUTE  AX  I SOI  ST 


TEST  FOR  U OF  V AXIS 
V AXIS  STORE  V VALUES 

U AXIS  STHce  U VALUES 

TRANSFER  10  WORDS  VIA  GENTRAN 

TEMPORARY  BUFFER 
THE  RFAL  PLACE 


SAVE  U DBS  FOR  LATER  STORING 


NOW  DC  V AXIS 


AND  DO  7T  AGAIN 


STORE  V AXIS  VALUES 


GAP:  ASSEMBLE  REVISION  001  OF  AGC  PROGRAM  AP11RQPE  BY  EYLfc.S 


L 


AOSTASK  AMD  A-OSJOB 


0748  REF  6 LAST  1502 
074«  REF  13  LAST  1502 


2 0,36  16  00123  1 
20,3617  01607  1 


AURES 

ADKFS 


A0750 

0761  PEF  6 LAST  1502  20,3620  52  152  0 OXCH 

0762  REF  3 LAST  1*66  20,3621  53*566  1 OXCH 


0753  REF  5 

0756-  REF  1 

0755  REF  1 

0756  REF  4 

0767  REF  l 

0758  PEF  1 

0759  REF  316 

0760  REF  1 

0761  REF  2 


LAST 

1500 

20 
20 
20 
20 
T A 

LAST 

1503 

LAST 

1502 

C.  'J 

20 

20 

20 

20 

LAS  T 

1 5 0 3 

,3622  3 1346  1 
,362  3 5 5*541  0 
,3624  55' 562  0 
, 3fc25  6 1555  0 
,3626  55*564  0 
,3627  55*563  1 
,3630  3 4755  1 
,3631  55*565  1 
,3632  55 ' 566  1 


CA 

TS 

TS 

AD 

TS 

TS 

CA 

TS 

TS 


0762  REF  5 LAST  1503  20,3633  11*555  1 

0763  REF  1 20,3634  1 3652  1 


CCS 

TCF 


0764 

REF 

2 

L AST 

1502 

20,3635 

52  136 

1 

0765 

REF 

5 

LAST 

14  6 9 

20, 363 6 

53 1 602 

0 

0766 

REF 

2 

LAST 

15  02 

20,3637 

52  140 

0 

07*7 

see 

2 

1 ACT 

1 * 3 

CL  52  • U A /. 

n 

” c r 

1.  A j 1 

C.  1 ' f J ~ t " J 

u 

0768 

REF 

2 

L AST 

1^02 

20,3641 

5 2 142 

1 

0769 

REF 

3 

LAST 

1466 

20,3642 

53*606 

1 

0770 

REF 

5 

LAST 

1502 

20, 3643 

52  144 

1 

0771 

REF 

6 

l AST 

1543 

20, 3644 

53*622 

1 

0772 

REF 

6 

L AST 

1502 

29,3665 

5 2 146 

0 

0773 

R F F 

3 

1 ACT 

15  03 

C S>  I O /, 

_ 44  J 1 

C.  J f D O *•  ■ O 

7 7 D 4 T 

I 

0774 

REF 

4 

LAST 

1502 

20,3647 

52  150 

l 

0775 

RFF 

u 

LAST 

1503 

20,3650 

\ 53*626 

0 

0776 

R E F 

2 

LAST 

1491 

20,365 1 

I 3 672 

0 

0777 

PEF 

6 

LAST 

1 5 ' 3 

20, 3652 

3 1346 

1 

0778 

REF 

7 

f AST 

154  3 

20,3653 

55*601 

0 

0779 

REF 

8 

LAST 

1503 

20,3654 

55*602 

0 

0780 

REF 

9 

l AST 

150  3 

20,3655 

55*621 

1 

0781 

REF 

10 

LAST 

1503 

20,3656 

55*622 

1 

0782 

REF 

6 

LAST 

1503 

20,3657 

6 15  55 

0 

0783 

REF 

4 

LAST 

150  3 

20,3660 

55*603 

1 

0784 

r PF 

5 

LAST 

1543 

20,36  6 1 

5 5 '604 

0 

0785 

REF 

6 

LAST 

1503 

20,3662 

55*623 

0 

0786 

REF 

7 

LAST 

1503 

20, 3663 

55*624 

1 

0787 

REF 

317 

LAST 

1503 

20,36.64 

3 4755 

1 

073  f: 

REF 

er. 

LAST 

15'  3 

20,3665 

55*605 

1 

07  3 9 

REF 

6 

LAST 

1503 

20,3666 

55*606 

1 

0790 

PEF 

- 7 

LAST 

1 5 0 3 

20,3667 

55*626 

0 

0791 

REF 

8 

LAST 

1503 

20, 3o70 

55*626 

0 

DXCH 

OXCH 

DXCH 

die  h 

DXCH 

DXCH 

DXCH 

DXCH 

DXCH 

DXCH 

DXCH 

DXCH 

TCF 

DR  FDR  CA 
TS 
TS 
TS 
TS 
AD 
TS 
TS 
TS 
TS 
CA 
TS 
T $ 

TS 

TS 
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USER'S  PAGE  NO.  19  E6  S4  • 

1/ AT EMI 

1 /AN  ET  1 + 16D 

TEMPORARY  EUFFER 

THE  REAL  PLACE  # 

NOW  STORE  DEADBANDS  FOR  ALL  AXES 


FIATEMP 

FLAT 

FLAT  AND  Z0NE3LIM  0 

DBVAL1 

COMPUTE  P AXIS  DEADBANDS  • 

PDB1 

PDB2 

FLAT 

PDB3 

PCB4 

ZERO 

PAXDIST 

PAXDIST  +1 

fj  ■ ,.e 

FLAT 

DRFDB 

DRIFT  OR  GTS  - COMPUTE  DBS 

UDB 1 

F IRED8 

UD84 

COASTDB 

UAXDIST 

A XI  SOT  ST 

STORE  U DEADBANDS 

CANNOT  USE  CENTRAL!  BECAUSE  OF  RELINT 

DBB  1 

FIRE  OB  +16 D 

DBB* 

CO  AS  r DB  +160 
AXDSTEM 
AXISDIST  +16D 

STORE  V AXIS  DEADBANDS 

COULD  USE  GENTRAN  IF  DESIRED 

1/ACC  ET  +1 
DBVAL1 

F I RE  OB 

FIREDB  +1 

FIREDB  +16D 
FIREDB  + 1 7 D 

ALL  DONE 

DRIFT  DEADBANDS  ▼ 

FLAT 

COASTOB 

COASTDB  +1 
COASTDB  +16D 
COASTDB  +17D 
ZERO 

AXI SOI  ST 
AXISDIST  +1 
AXISDIST  + 1 6 D 
AXISDIST  + 17  D 

• 

0 


t 


t 


» 

G AP : ASSEMBLE  REVISION  001  OF  A GC  PROGRAM  AP1LR0PE  BY  EYLES 


L ACS’A'F  AND  A 1 S J 0 B 


0792 

20, 3671 

0 ( 004 

0 

1 /ACC  RET 

INHINT 

0793 

REF 

68 

L AST 

1497 

20,3672 

4 0111 

1 

CS 

H7Q  L. 

D CC 

3 

1 ACT 

141  1 

? n . 3 A 7 3 

7 4 7 5 1 

Y 

MASK 

“ cr 

L A v:  . 1 

i « i-  i 

c.  t -J  ■ ( 

0795 

REF 

6° 

LAST 

150  A 

20,367/ 

26  111 

1 

ADS 

079/ 

20,3675 

0 0003 

1 

RE LI  NT 

0797 

REF 

2 

LAST 

] / p f 

20,3676 

3 0117 

0 

CA 

079B 

REF 

22 

LAST 

1370 

20,3677 

0 4 640 

1 

TC 

0799 

REF 

1 

20, 3700 

5.4  165 

1 

INVERT 

TS 

060C 

REF 

A 2 

LAST 

1501 

20, 3701 

3 - 7-. 3 

0 

C.  A 

0801 

20, 370? 

22  007 

0 

ZL 

0802 

20,3703 

0 0006 

1 

EXTEND 

0803 

REF 

2 

LAST 

LK04 

20,3704 

10  165 

1 

DV 

080/ 

REF 

A 30 

LAST 

1A9  3 

20,3705 

0 0002 

0 

TC 

C80  5 

REF 

3 IS 

LAST 

1503 

2 0 , 3 7 C 6 

3 4755 

1 

DCWNGTS 

CAF 

0806 

REF 

7 

LAST 

1497 

20,3707 

6 5 * 5 02 

0 

TS 

0807 

REF 

8 

LAST 

14  97 

20,3710 

55 ' 633 

1 

TS 

0808 

REF 

2 

LAST 

1491 

20,3711 

1 2773 

1 

TC  F 

0809 

20, 3712 

22  CO  7 

0 

1 /anet- 

Zl 

08  If. 

»FF 

3 

LAST 

150  2 

20,3713 

22  122 

0 

LXCH 

081  1 

REF 

6 

LAST 

1 50  1 

20,3714 

54  157 

0 

TS 

0612 

REF 

4 

LAST 

1501 

20,3715 

6 3764 

1 

AO 

0813 

20,3716 

0 0006 

1 

EX  TEND 

0814 

REF 

1 

20,3717 

6 3740 

1 

8ZMF 

0815 

REF 

7 

LAST 

1604 

20,3720 

3 0167 

1 

1 /IE  TM  I M 

CA 

0816 

20,3721 

0 0006 

1 

EXTEND 

081  f 

REF 

10 

1 AST 

1501 

20,3722 

5 0 1 6 4 

1 

INDEX 

0818 

REF 

5 

LAST 

1500 

20,3723 

7 0130 

1 

MP 

A 0£  1 r 
A 08.20 


0821 

REF 

43 

LAST 

1504 

2.0, 

,3724 

S 

4743 

0 

DC  1/N 

FT  + 

AD 

0822 

REF 

8 

LAST 

1504 

20, 

,3725 

56 

157 

1 

XCH 

08  2 3 

20, 

,3726 

0 

CO  06 

1 

EXT 

END 

0824 

REF 

2 

LAST 

1500 

20, 

,37  27 

22 

161 

1 

QXC 

H 

0826 

RFF 

4 

LAST 

149° 

20, 

, 3730 

0 

3 700 

0 

TC 

0826 

REF 

6 

LAST 

1.501 

20, 

, 373  1 

54 

1 60 

1 

TS 

08  2T 

RFF 

4A 

LAST 

1504 

20. 

,373? 

4 

47  43 

1 

CS 

0828 

20, 

,3733 

0 . 

(006 

1 

DO  ACC 

FUN 

EXT 

END 

06  2 r 

REF 

7 

LAST 

I 504 

20, 

,3734 

7 

0160 

1 

MP 

0830 

20, 

, 3735 

0 

0006 

1 

EXT 

END 

0831 

PEF 

9 

1 AST 

1504 

20, 

,3736 

10 

157 

0 

DV 

0832 

REF 

3 

LAST 

1504 

20, 

, 3737 

0 

0161 

1 

TC 

0833 

REF 

5 

LAST 

1 5 04 

20, 

,3740 

4 

3764 

0 

NETNF 

G 

CS 

0834 

REF 

10 

LAST 

1 50/ 

20, 

, 374  1 

54 

157 

0 

TS 

DAPBOOLS 
ACCS  OK  AY 
DAPBOOLS 

ACC'  E T R N 
8ANKJUMP 

HOLD 

BITE 


HOLD 

0 


ZERO 

ALL OWGT  S 

INGTS 

DPCKTEST 


ACCSW 

ANET 

- .0  3R/S  2 

NETN.EG 

ANET 

-SIGN AOS 
1/ACOSTT 

THE 


BIT9 

ANET 

A RET 
I NVF  T 
1/ANET 
B I T9 

1/ANET 

ANET 

ARET 

- .03R/S2 
ANET 


1" 


USEE'S  PAGE  NO 


20 


F 6 S4 


SET  BIT  TO  INDICATE  DATA  GOOD. 


RETURN  TO  CALLER 

ROUTINE  TC  INVERT  -INPUT  AT  PI/2 
1 AT  2(6) 

ZERO  t FOP  ACCURACY  AND  T0  PREVENT  OVFLO 


RESULT  AT  2(7)  /P  T 


ZEC  • SWITCHES  WHEN  USFQFJTS  BIT  IS  UP 
OR  DAP  IS  OFF. 


ZERO  ACCSW 
SAVE  ANET 

TEST  FOR  MIN  VALUE 

ANET  LESS  THAN  AMIN,  SO  FAKE  IT 


1 ANETN  EG( PCS ) / ACOASTPO  S ( NEG)  AT  2(6) 

FOLLOWING  CODING  IS  VALID  FOR  BOTH  POS  OR  NEG 
VALUES  OF  AOS 

1 + ANET / ACOAST  AT  2(6) 

SAVF  AND  PICK  UP  ANET 

SAVE  RETUf N 

1/ANET  AT  2(7) /PI 
-1  AT  2(6) 

-1/ANET  AT  2 f 1 3 ) /P  I 

ACC FU N AT  2(7) /PI 
RETIJR  N 


ANET  LESS  THAN  AMIN 


SET  EQUAL  TO  AMIN 


GAP  : 

L 

083? 


083  £ 

0837 

0838 
0939 
08  AO 

0841 

0842 

0843 
084* 
084? 

0846 

0847 
064t 

084  * 
08*0 


A 06?  1 

0832 
08  S3 
08  54 
0855 
085b 

0857 

0858 
08*9 

0860 
A 086  1 
0862 

0863 

0864 

0865 

0866 

0867 

0868 

0869 

0870 

0871 

0872 
087  3 

0874 

0875 

0876 


ASSEMBLE  -F  VISION  001  OF-  AGO  PROGRAM  AP11RQPE  BY  EYLES 


AOS  TASK  AMD  AOS  JOS 


REF 

2 

LAST 

1501 

20,3742 

1 3721 

1 

TCF 

REF 

12 

L AST 

1501 

20, 37*3 

10  163 

1 F I XM I N 

CCS 

REF 

109 

LAST 

1489 

20, If 44 

3 4752 

U 

CA 

REF 

15 

LAST 

l*-72 

20,3745 

6 7747 

1 

AD 

REF 

4 

LAST 

1504 

20, 3746 

54  122 

1 

TS 

REF 

7 

LAST 

1502 

20,374  7 

6 Cl  54 

1 

AD 

REF 

538 

LAST 

1501 

20, 3750 

50  OCO 

1 

INDEX 

REF 

2 

LAST 

1502 

20,37?  1 

3 37  67 

1 

CA 

REE 

1 1 

LAST 

1502 

20,3752 

7 12  62 

1 

MASK 

7 n . 7 7 G 

0 R0O£, 

1 

F X T F N D 

1 

20,3754 

1 3760 

1 

BZF 

REF 

6 

LAST 

1504 

20,3755 

4 3764 

0 

CS 

REF 

1 i 

LAST 

1 504 

20, 3756 

54  157 

0 

TS 

REF 

1 

?0,3757 

1 35  26 

1 

TCF 

RFF 

3 1C 

LAST 

1 50  1 

20, 3760 

3 0001 

0 

CA 

REF 

7 

LAST 

150? 

20, 776  1 

1 35?7 

0 

TCF 

3:15  DEC.  2,1970  LMDAP  .015  PAGE  1505 
USER'S  PAGE  NO.  21  E6  S4 

1/NETMIN  +1  CONTINUE  AS  IF  NOTHING  HAPPENED 

SIGNAOS 


TWO 

IF 

AOS  NEG,  ACCSW  = 

+ 1 

N EG ONE 

IF 

AOS  POS,  ACCSW  = 

- 1 

ACC  SW 

UV 

I F 

ACCSW  = +1,  TEST 

FOR  +U  (+V) 

JET 

FAIL 

A 

IF 

ACCSW  = -1,  TEST 

FOR  -U  ( - V ) 

JET 

FAIL 

-UMASK  +1 
CH5  MASK 

+ 4 

— .03R/S2  JET  FAILURE  - CANNOT  USE  2-JET  VALUES 

ANET  ANET  = AMIN 

STM  IN-  -1  CALCULATE  FUNCTIONS  USING  AMIN 

L i.  HAS  ACC  FUN 

STMJN-  STORE  MAX  VALUES  FOR  MIN  JFTS 


ASAGLE  ASSIGNMENTS  EOF  I /ACCOM 


REF 

5 

LAST 

1 34 

E6, 155  1 

1/ANETP 

EQUALS 

BLOCKTOP 

+ 2 

RFF 

6 

LAST 

165  = 

F * , 1 * * 3 

1 / AC  0 ST  P 

EQUALS 

BLACKTOP 

+ 4 

REF 

7 

LAST 

1505 

E6  , 1557 

P ACC  F UN 

EQUALS 

BLOCKTOP 

+ 8D 

REF 

8 

LAST 

1505 

E6 , 156  1 

PDB1 

EQUALS 

BLOCKTOP 

+ 10D 

RFF 

9 

LAST 

1 7 05 

E 6 , 1562 

PDB2 

EQUALS 

BLOCKTOP 

+ 1 ID 

RFF 

10 

LAST 

1505 

E6 , 156  3 

PQB4 

EQUALS 

BLOCKTOP 

+ 12D 

REF 

1 1 

LAST 

15  )5 

E6 , 15c.  4 

PDB3 

EQUALS 

BLOCKTOP 

+ 13D 

REF 

12 

1 A 4 T 

150* 

E 6 , 15  6 5 

PAY  f • T C T 

EQUALS 

BLOCKTOP 

+ 140 

LHw  f 

r H A U 1 ' 1 

REF 

71 

LAST 

1264 

0122 

ACCSW 

EQUALS 

VBUF 

EXECUTIVE  TEMPORARIES 

CANNOT  DO  CCS 

NEW JOB  DURING  1/ACCS 

R EE 

5 

LAST 

1505 

0123 

1/ATE  1 

EQUALS 

ACCSW  +1 

TEMP  BUFFER  FOR 

U AND  V AXES 

REF 

7 

LAST 

150? 

0124 

1/ AT  EM  2 

EQUALS 

1 /AT  EMI 

+ 1 

RFF 

8 

LAST 

1505 

0127 

1 / ACCS?  T 

EQUALS 

1 /AT  EMI 

+4 

R E F 

9 

LAST 

1505 

0131 

Z ITEM 

EQUALS 

1/ATEM1 

+6 

RFF 

10 

LAST 

1505 

0132 

Z5TEM 

EQUALS 

1 /AT  EM  1 

+7 

REF 

1 1 

LAST 

15  05 

0135 

UDB1 

EQUALS 

1/ AT  EMI 

+ 10Q 

U AXIS  DEADBAND 

BUFFER 

REF 

12 

LAST 

150? 

0136 

UDB2 

EQUALS 

1/ATEM1 

+ 1 1 D 

PEF 

1 3 

LAST 

1505 

0137 

UDB4 

EQUALS 

1 /AT  EMI 

+ 1 2D 

REF 

14 

LAST 

1505 

0140 

UDB3 

EQUALS 

1/ATEM1 

+ 1 3D 

REF 

15 

LAST 

1505 

0141 

U AX  D I ST 

EQUALS 

1 /AT  EM  1 

+ 14D 

PFF 

16 

LAST 

1505 

0 1 4 3 

DBB1 

EQUALS 

1 /AT  EMI 

+1  60 

TEMP  DEADBAND  BUFFER,  ALSO  V AXIS 

REF 

17 

l AST 

15  0? 

C 144 

DBB  2 

EQUAL S 

1/ATEM1 

+ 17D 

RFF 

18 

l AST 

1 50* 

0145 

DBB4 

EQUALS 

1 /ATEM1 

+ 18D 

RFF 

19 

LAST 

1505 

014  6 

DBB3 

EQUALS 

1 /ATEM1 

+ 19D 

REF 

20 

LAST 

1505 

C14  7 

AXDSTEM 

EQUAl  S 

1/ATEM1 

+ 2 CD 

GAP: 

ASSEMBLE  • 

E VISION  001 

OF  AGC  PROGRAM  AP11R0PE  BY  E YL E S 

3:15  DEC.  2,1970  LMDAP 

L 

AOS  TASK 

AND  ADS JOB 

USER  * S PAGE  NO.  22 

0877 

REF 

21 

LAST 

1505 

015  1 

Fl.ATEMP 

EQUALS 

1/ATEM1  +22D 

0878 

REE 

22 

LAST 

1506 

C 15  2 

Z3TEM 

EQUALS 

1 /AT  EM  1 +2  3D 

MUST  FOLLOW  FLATFMP 

087<? 

IFF 

6 

LAST 

1 4 '*  9 

13*6 

DBVAL1 

EQUALS 

D6 

0830 

U F F 

c: 

LAST 

604 

r 1 1 4 

DBVAL 2 

EQUALS 

I NT B 15  + 

08 »:  1 

REF 

fy 

LAC’’ 

150  6 

p i 15 

0BVAL3 

TOTALS 

TMTR1  +1 

08  8 2 

REF 

“7 

LAST 

1506 

01  1ft 

DRIFTER 

EQUALS 

INTB15+  +2 

08  8 3 

REF 

9 1 3 

LAST 

1 •‘■-  9 6 

0154 

uv 

EQUALS 

MP  AC 

088* 

REF 

9 1* 

LAST 

1 5 -9  - 

0 1 5 7 

ANEl 

EQUALS 

MPAC  +3 

0885 

REF 

9 1 8 

LAST 

1506 

C 15  7 

J=UNT1  M 

EQUAL  S 

MP AC  +3 

0886 

REF 

916 

LAST 

1 506 

0160 

1/ANET 

EQUALS 

MPAC  +4 

0887 

REF 

917 

LAST 

1506 

0161 

ARET 

EQUALS 

MPAC  +5 

0838 

REF 

916 

LAST 

15  06 

0162 

A B SAGS 

EQUALS 

MPAC  +6 

0880 

r ef 

919 

LAST 

1500 

016  3 

SIGNACS 

EQUALS 

MPAC  +7 

0890 

q EF 

920 

L AS  T 

1506 

016  4 

-SIGNALS 

EQUALS 

MPAC  +8D 

08°  1 

RFE 

°2  1 

LAST 

1 5^6 

016*: 

HOL  D 

EQUALS 

r,i  o a r + q n 

1 I T h\  V,  ” “ L7 

0892 

REF 

63 

LAST 

1401 

0117 

ACCPFTRM 

EQUALS 

FIXLOC  -1 

0893 

20,3762 

00  1 10 

1 

ZONE 3 MAX 

DEC 

.004375 

17.5  MS  <35  MS  FOR  1 JET) 

0894 

20,3763 

0 04  43 

1 

FL  ATVAL 

DEC 

.01778 

.8  AT  PI/4  r AD 

0895 

20,3764 

77377 

1 

- . 03R / S2 

OCT 

77377 

-P I / 2 ( 7 1 AT  PT/2 

0896 

REF 

45 

LAST 

1500 

4744 

.0125RS 

EQUALS 

BITS 

P I / 2 < +8)  AT  PI /2 

0897 

REF 

46 

LAST 

1501 

473  3 

1/  .03 

EQUALS 

POSMAX 

2(7) /PI  AT  2 ( 7 ) / P I 

0898 

P.  E F 

2 

LAST 

1 *13 

20,3765 

02213 

0 

PAXISADF 

GENADP 

D A X I S 

A 089° 

THE  FOLLOWING  4 CONSTANTS 

AC90.0 

F A T 1 1 1 P F MACkQ  A M fl  A R F TMH! 

rMlLUi  C A o <\  o A 1 J U A ‘ C I • > 

0901 

20,3766 

00110 

1 

-UMASK 

OCT 

001 1C 

-u 

0902 

20,3767 

00022 

1 

OCT 

COO  2 2 

-V 

0903 

20, 3770 

0020* 

1 

+UMASK 

OC  T 

00204 

+u 

0904 

20,3771 

0 004 1 

1 

OCT 

00041 

+v 

.015 


AT  * 


PAGE  1506 
E 6 S4 


SFCONDS 


JET 
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GAP:  ASSEMBLE  REVISION  001  OF  AGC  PROGRAM  AP11R0PE  BY  EYLES 

L SPS  BACK-UP  RCC  CONTROL 

P0001  PROGRAM  NAME:  SPSPCS 

ROOD 2 AUTHOR:  EDGAR  N.  OSHIKA  (AC  ELECTRONICS) 

R 00021  MOD  I F I EO:  TC  RE  TUI  N TO  All  AXES  VIA  0 BY  P . S . WE  IS  §M  AN  , OCT  7,  1968 

R 0002  2 ^MODIFIED  TO  IMPROVE  BENDING  CTABIL I T Y BY  G.KALAN , FEB . 14, 1969 
R 0003  FUNCTIONAL  DESCRIPTION: 

R 0006  THIS  P OSPA-'  CONTROLS  TEE  oil  . OF  ALL  f- C S JETS  IN  THE  DOCKED  CONFIGURATION  ACCORDING  TO  THE  FOLLOWING  PHASE 
R 000 a PLANE  LOGIC. 

R 000 7 *1.  JET  SENSE  TEST  (SPSPCS) 

R 000  P.  -*IF  JETS  ARE  FIRING  NEGAT  I Vt  L Y,  SE T ULDSFNSE  NEGATIVE  AND  CONTINUE 
Rf)CO°  * J F JETT  ARE  FIRING  POSITIVELY, SET  OLDSENSE  POSITIVE  AND  CONTINUE 
R 001  f *IF  JETS  APE  TT  FUNG, SET  ’LUSENSE  TO  7h  ' AMD  GO  TO  OUTER  RATE  LIMIT  TEST 

R0C12  *2 . FATE  DEAD  BAND  TEST 

R0013  «F  J CIS  ARE  Fir  ING  NEGATIVELY  AND  ATE  IS  GREATER  THAN  TARGET  RATE, LEAVE 
R 00 1 1 *JETS  CN  AND  GO  TO  INHIBITION  LOGIC.  OT  HER.;  IS  E , COTsIT  INUE  . 

10015  *1  P JETS  ARE  FIMUG  f Oc- ! 1 1 VFL  Y AND  : ATE  IS  LESS  THAN  TARGET  RATE, LEAVE 

R 00 1 6 * J ETS  CM  AND  GO  TO  INHIBITION  LOGIC.  OTHERWISE , CONTINUE. 

R 0017  *3.  OUTER  RATE  LIMIT  TE  S T ISPSSTART) 

ROri-;  * J F MAGNITUDE  J F EumT  U G EATE  THAN  1.73  DEG/  SEC  SET  JET  FIRING  TIME 
R 001 c * To  REDUCE  RATE  ANC  GO  TO  INHIBITION  LOGIC.  OTHERW I S E , CONT I NUF  . 

R002C  *4.  COAST  ZONE  TEST 

R 002 1 IF  STATE  ( E , ED  <T ! IS  BE!  MW  Li  t E + 4 X FOOT  > -1.4  DEG  AND  EDOT  IS  LESS  THAN  1.30  DEG/SEC  SET  JET  TIME  POSI- 

R0O23  * T I V E AND  CONTINUE.  OvHEP W! S E , SET  JET  FIRING  TIME  TO  ZERO  AND  CONTINUE. 

P 002*  IF  STATE  f 5 ABOVE  IT  £ + r,*  t DC  T > +1.4  DEG  AND  EDOT  IS  C ’ EAT  Eft  THAN  -1.30  DEG/SEC,  SET  JET  TIME  NEGATIVE 
0 00?  *A  NO  CONTINUE.  OTHERWISE  , SET  JET  FIRING  TIME  TO  ZERO  AND  CONTINUE. 


R 0027 

P 0C2  h 
R 002  c 
P 003  0 * 

R0031  * 

R0032  * 


INHIBITION  IOGIC 


*IF  OLDSENSE  IS  Mor.'-zbK'S: 

* A)  RETURN  If  JET  THE  HAS  SAME  SIGN  AS  OLDSENSE 

8)  SEr  INHIBIT  tom  r/TlJNTE-  *AMD  RPhjLN  IF  JET  TIME  IS  ZERO 
C)  SET  INHIBITION  COUNTER, *SET  JET  TIME  TO  ZERO  AND  RETURN  IF  SIGN 
OF  JFT  TIME  IS  CPPOSITE  TO  THAT  OF  OLDSENSE 


R0G33  * I F OLDSENSE  IS  ZERO: 

RP034  * A)  RETURN  IF  INHIBITION  COUNTER  IS  NOT  POSITIVE 

R 00  35  * B)  SET  JE"  ’!»F  Tr  V ^ AND  RETURN  IF  INHIBITION  COUNTER  !S  POSITIVE 

INHIBIT!  COUNTERS  CAN  BE  SET  TO  4 OR  10  FOR  THF  P, AMO  UV  AXES. 

R 003  8 ^RESPECTIVELY, IN  SPSRCS.  HEY  ARE  DECREMENTED  BY  ONE  AT  THE  BEGINNING  OF 


f 


GAP:  ASSEMBLE  REVISION  OC1  OF  AGC  PROGRAM  AP11ROPE  BY  EYLES 

L SPS  BACK-UP  ' CS  CONT'  01 


3:15  DEC..  2,19  70  LMDAP 

USE' • S PAGE  NO.  2 


.(>15  PAGE  1508 
EG  S4 


R 0039 

) 

RQQ4C 
R004? 
i R 004-4 


*EACH  DAP  PASS. 

THE  INUMUM  i’ll  :,h  WIDTH  GF  THIS  CONT  ROLLER  lS  DETERMINED  RY  THE  REPETITION  RATE 
AND  IS  NOMINALLY  IOC  -;S  POL  ALL  AXES  IN  DRIFTING  FLIGHT.  DURING  POWERED  FLIGHT 
P AXIS  AND  209  MS  FOR  THF  CONTROL  OF  THE  U AND  V AXES. 


AT  WHICH  THIS  ROUTINE  IS  CALLED 
THE  MINIMUM  IS  100  MS  FDP  THE 


R 0045  CAl.l  ING  SEQUENCE: 

i 

R 0046  * INHINT 

RCC47 
I R 0048 


TC  I BN KC ALL 

CAD!  SPSRCS 


R 0049 

EXIT 

R00F9 

TC 

Q 

ROC  5 1 

A L Ar  ' / ABU  r T 1 i 3 D F : 

NONE 

R 0052 

SUBROUTINES  CALLED: 

NONE 

R0053 

INPUT : 

E, 

FDOT 

R 0054 

TJP,  TJV 

, TJU 

TJ  MUST  NOT 

BE  NEGATIVE 

ZERO 

R 005  5 

OUTPUT : 

TJP,  tjv 

, TJU 

R 0056 

* 

009  7 

* 

2 1 , 3646 

BANK 

21 

0058 

♦ R E F 

3 

LAST 

14T7 

21, 2000 

SET  LOC 

DAPS  4 

00*9 

21,3646 

BANK 

0060 

REF 

1 

count* 

$ $/DAPBU 

0061 

P.EF 

16 

LAST 

14c-  B 

E6 , 1525 

E B A N K = 

TJU 

0062 

£ 

21,3646 

00632 

0 

PATEL  I M2 

OCT 

00632 

1.125  DEG/SEC 

0063 

RFF 

28 

LAST 

I 3«7 

2 1,364  7 

3 4736 

1 

PCSTHRST 

CA 

HALF 

0064 

REF 

33 

LAST 

1464 

21 , 3650 

51 • 505 

0 

ndx 

A XI SCTR 

0065 

REF 

15 

LAST 

1508 

21 , 365  1 

55*525 

0 

TS 

TJU 

0066 

*REF 

1 

21,3652 

11 *745 

1 

CCS 

OLDSENSE 

0067 

*PEF 

1 

21 , 365  3 

I 3673 

1 

TCF 

PQSCHECK 

JETS 

FIRING  POSITIVELY 

006  8 

*REF 

1 

21  , 3654. 

1 36  76 

1 

TC  F 

CTRCHECK 

JETS 

OFF.  CHFCK  INHIBITION 

CTR 

0069 

*REF 

34 

LAST 

1508 

21  , 7655 

51 • 505 

0 

NEGCHECK 

INDEX 

A X I SCTR 

JETS 

FIRING  NEGATIVELY 

0070 

*REF 

16 

LAST 

1508 

21,3656 

4 1525 

0 

CS 

TJU 

0071 

YREF 

539 

LAST 

1505 

21 ,3657 

10  000 

0 

CCS 

A 

0C72 

*P  EF 

631 

LAST 

1 CQ4 

21 , 3660 

0 COO 2 

0 

TC 

Q 

RETURN 

007  3 

4 

21 , 3661 

I 3663 

0 

TCF 

+ 2 

0074 

* 

21  , 36 6? 

1 3663 

0 

TCF 

+ 1 

JETS 

COMMANDED  OFF. SET  CTR 

AND  RETURN 

0075 

*R  E F 

35 

LAST 

1508 

21 , 3663 

51 i 505 

0 

SETCTR 

INDEX 

AX  I SCTR 

JET 

FIRING  REVERSAL  COMMANDED.  SET  CTR, 

0076 

*REF 

1 

21 , 3664 

3 3705 

0 

CA 

UTIME 

SET 

JET  TIME  TO  ZERO, AND  RETURN 

1" 


P 


GAP: 


ASSEMBLE  REVISION  001  OF  A GC  PROGRAM  AP11R0PE  BY  EVL.ES 


L 

SPS 

BACK- 

-up  <•  ■: 

IS  CONTE GL 

007“ 

♦ £ F 

36 

LAST 

1508 

21, 3665 

51 ' 505 

0 

0078 

♦ REF 

3 

LAST 

1 

21 , 3666 

55*770 

1 

007  9 

♦ REF 

3 lc 

LAS! 

1 504 

2 1 , 366  1 

3 47  5 5 

1 

0080 

* RE  F 

37 

LAST 

1509 

21,3670 

51 ' 505 

0 

OOP  1 

♦ r E F 

17 

LAST 

150  8 

2 1 , 36 7 1 

55 ' 525 

0 

COR? 

♦ PFF 

432 

L AC  T 

1508 

2 1 , 36 7 2 

0 CC02 

0 

0083 

♦ RFF 

38 

LAST 

1509 

21,3673 

51 ' 505 

0 

0084 

♦REF 

18 

LAST 

1509 

21 , 3674 

3 1525 

1 

0085 

♦ REF 

1 

9 1. 

1 A A ^ 7 

1 

1 

i t -J  O / ..) 

JL 

0086 

♦ REF 

39 

LAST 

1509 

21,3676 

il ’ 505 

0 

0087 

♦REF 

4 

LAST 

150  9 

21,3677 

1 1 '^70 

1 

nnfl  p 

2 1 , noO 

1 3707 

0 

7* 

008c 

♦ REF 

4 33 

LAST 

1509 

21,3701 

0 0002 

0 

0090 

♦ REF 

1 

21, 3702 

1 3667 

1 

00'-  1 

♦ E F 

4 34 

LAS! 

1 00:9 

21,3703 

0 0002 

0 

00°  2 

* 

21,1 

COCO' 

c 

009  3 

* 

21,3705 

00012 

1 

00°4 

♦ 

21,3  706 

000 1 2 

1 

0095 

♦ REF 

3 

LAST 

133 

F 6 , 1745 

0096 

♦ REF 

182 

LAST 

1502 

21 , 3707 

4 4753 

0 

0097 

♦ REF 

2 

LAST 

1 ‘-•08 

21 ,3710 

55 '745 

1 

009  8 

♦ REF 

18 

LAST 

I r 9 

21,3711 

3 n>27 

1 

009° 

'r 

21,3712 

1 3716 

0 

0100 

♦ REF 

183 

LAST 

1 roq 

21  ,3713 

3 47  53 

1 

0101 

♦ REF 

3 

LAST 

1 509 

21,3714 

55*745 

1 

010? 

♦ REF 

19 

LAST 

1509 

21,3715 

4 14  27 

0 

0103 

i i.r 

540 

LAST 

1508 

2 1 ,3715 

22  000 

1 

0106 

REF 

70 

LAST 

1504 

2 1 , 3717 

4 C 1 11 

1 

0105 

REF 

7 

LAST 

149  7 

2 l , 3 72  0 

7 4 744 

0 

0106 

OFF 

541 

L A c T 

21.3771 

10  000 

r, 

t l T 9 f 4 J. 

0107 

REE 

1 

21,3722 

3 4767 

0 

0108 

REF 

311 

LAST 

1505 

21 ,3723 

6 C001 

0 

C1C9 

21,3724 

0 GC  06 

1 

one 

♦ RFF 

1 

21  » 3 7 2 c- 

6 3736 

0 

0111 

REF 

1 

21,3726 

1 3652 

1 

0112 

♦ REF 

40 

LAST 

1509 

21 , 3727 

51  ' 505 

0 

0113 

♦ REF 

19 

LAST 

1509 

21 , 3730 

11 ' 525 

0 

0114 

♦ REF 

I 

21,373  1 

1 3713 

0 

01 1 5 

♦ 

21,3732 

l 3734 

0 

OIL 

♦ R EF 

1 

21 ,3733 

1 3 70  7 

0 

0117 

♦ REF 

u 

LAST 

1 509 

2 1 ,3734 

55' 745 

0118 

♦ REE 

20 

LAST 

1 50c 

21 ,3735 

3 1427 

1 

0119 

* 

21 ,3736 

0 0006 

1 

0120 

♦ REF 

1 

21 , 3737 

7 4766 

0 

0121 

♦ RET 

542 

LAST 

1 509 

21,3  76 0 

10  COO 

0 

0122 

♦ REF 

1 

21,3 74 1 

1 3760 

1 

0123 

♦ 

21 ,37'.  2 

1 7744 

1 

0124 

♦ PEF 

2 

LAST 

1509 

21 ,3743 

1 3647 

0 

0125 

♦ REF 

21 

LAST 

1509 

21 , 3744 

3 1427 

1 

INDEX 

TS 

Z APT  J CA 

INDEX 

TS 

TC 

POSCHECK  INDEX 
CA 
TCP 

CTRCHECK  INDEX 
CCS 
TCP 
TC 
TC  F 
TC 
OCT 

UTIHE  OCT 
OCT 

OLDSENSE  EQUALS 
NEGFIRE  CS 
TS 
CA 
TCF 

PLUSFI^E  CA 
TS 
CS 

LXCH 

CS 

MASK 

CCS 

CA 

AD 

EXTEND 

RZMF 

TCP 


A XI SCTR 
U JET  CTR 
ZERO 
AXI SCTR 
T JU 
Q 

AXI SCTR 
T JU 

NEGCHECK  +2 
AX  I SCTR 
U J E T C T '< 

+ 2 
Q 

Z APT  J 
Q 

0 0004 
00012 
00012 
DAPTREG1 
ONE 

CLDSENSE 
ECOT 
+ 4 

OWE 

OLDSENSE 

EDOT 

A 

DAPBOOLS 
DR  I FT  BIT 
A 

RATEDB1 

L 


S PS  START 
P0STHRS1  +3 


SPSRCS  INDEX 
CCS 
TCF 
TCF 
TCF 
TS 

SPSSTART  CA 

EXTEND 

Mg 

CCS 

TCF 

TCF 

TCF 

CA 


AXI SCTR 
T JU 

PLUS PI  RE 

+ 2 

N§GF If  E 

OLDSENSE 

EDOT 


T ATE) INI 
A 

NEGTHRST 

+ 2 

PCSTHPST 

EDOT 


3:15  DEC.  2,1970  LMDAP  .01 5 PAGE  1509 
USER'S  PAGE  NC.  3 E6  S4 


CHECK  JET  INHIBITION  COUNTER 


CTR  IS  NOT  PrSITIVE.  RETURN 
CTR  IS  POSITIVE. INHIBIT  FIRINGS 
CTR  IS  NOT  POSITIVE. RETURN 


JETS  FIRING  NEGATIVELY 


RATE  DEAD  BAND  TEST 

IF  DRIPTBIT  = 1,  USE  ZERO  TARGET  RATE 
IF  DR  I FT  BIT  = 0 , USE  0.10  I-  ATE  TARGET 


JET  SENSE  TEST 

JETS  FIRING  POSITIVELY 

JETS  FIR ING  NEGATIVELY 
JETS  OFF 

OUTER  RATE  LIMIT  TEST 

OUTER  RATE  LIMIT  EXCEEDED 


OUTER  RATE  LIMIT  EXCEEDED 
COAST  ZONE  TEST 


GAP: 

ASSEMBLE  RE 

VISION  001 

OF  l 

L 

SPS 

BACK- 

UP  CS  CONTROL 

0126 

REF 

17 

LAST 

1 

21. 

0127 

21. 

oi  2 r 

REF 

2 

LAST 

213 

21 

0129 

21 

0130 

PEP 

l 

21 

0131 

21 

0132 

21 

0133 

REF 

22 

LAST 

L 

21 

0134 

0 E F 

1 

21 

0139 

21 

0136 

REF 

2 

LAST 

15  10 

21 

0137 

REF 

2° 

LAST 

1508 

21 

01 3 B 

REF 

3 

LAST 

1509 

21 

0139 

REF 

2 

LAST 

1510 

21 

0140 

r:  EF 

23 

LAST 

1510 

2 1 

0141 

2 1 

016-2 

l:  EF 

A 

l AS" 

1510 

21 

0143 

REF 

320 

LAST 

1509 

21 

0144 

RFF 

5 

LAST 

1510 

21 

0145 

OFF 

c 

L AST 

1427 

016-6 

REF 

1 

***  END  OF 

LMDAP 

.01 

5 *** 

AGC  PROGRAM  API  l ,.PC  BY  EYLES 


1752  0 


0006 

1 41  1 


0 0006 


i 3 76  3 


■ 3766 


4766 

476-7 


21,3751  1 37  46  1 


0 0006  1 
6 3762  1 
3 1427  1 
6 3646  0 


0 0006 


3766  0 
4736  0 
3650  0 
3--  1 

1427  1 
0 0006  1 
6 3647  1 
1 

1 3650  0 


NEGTHRST 


+ 7 


TJZEKO 


R AT  t L I M 1 
f ATE  031 


AD 

EXTEND 

MP: 

EXTEND 

BZF 

EXTEND 

BZMF 

CA 

AD 

EXTEND 

BZMF 

CS 

TCP 

CS 

AD 

EXTEND 

BZMF 

CA 

TCP 


E 

DKD6 

T JZE'  0 


+ 7 

EDOT 

"AT  El.  I M2 

T JZFRO 
HALF 

POSTHRST  +1 
I'-  AT  EL  I M2 
EDOT 

PGSTHPST 

ZERO 

POSTHR^I"  +1 


CALL CODE 
T BUI LDFX 


t 


3:15  DEC.  2,1970  L.MDAP 

USER’S  PAGE  NO.  4 


.015  PAGE  1510 
E6  S4 


PAD  LOADED  DEADBAND.  FRESHSTART;  i . /+  DEG 


= 00032,  COPT ESPONDING  TO  1.73  DEG/SEC 
= 0006  5 , CORRESPONDS  TO  0.101  DEG/SEC 


» 
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SYMBOL  TABLE  LISTING,  INCLUDING  DEFINITION,  HEALTH,  PAGE  OF  DEF,  # OF  REFS,  PAGE  OF  FIRST  REF,  PAGF  OF  LAST  REF. 


SYMBOL  DEF  H REFERENCES 

. 0037  5A8  17,3736  1469  1 1465 

. 0125RS  4744  = 1506  1 1500 

.0375AT4  17,3731  1469  1 1467 

. 1AT2  17,3730  146°  1 1467 

. 1AT4  17,3727  1469  1 14 65 

.166...  23,3535  1257  l 1253 

.30  12,3751  1246  1 1216 

. 5SEC  4774  10cf  3 c16  1335 

. 5SECE 17  33,2176  598  1 5-8 

.7071  20,3102  Hot  2 14  8°  14°5 


( AT ) A 27,2016 
(TBUFIA  27,2020 
(TGO)A  32,37  m) 
(1/DV1A  27,2012 


+ AZ 

+ AZB I T 

+ DEC  S GN 
+ DECC'  ° 

+ DOWN 
+ EL 

+ ELBI  T 
+ L I M I t 
+ MGA 
+ 0N 
+ QMI  f ! 

+ RMIN 
+ TJ  M I 
+UMASK 
+ XMIN 

+ xrrui  ge 

+ 155  " ST 6 


1 1 ,2356 
4747 
40,2303 
11 ,3750 
00,26 10 
1 1,2370 
475  2 
42,3337 
E4 , 165  2 
40,2413 
17,2252 
17,2262 
17,3107 
20 , 3770 
16,3064 
17,2 146 
16,3612 


39 

39 

836 

38 

821 

821 

401 
s 27 

1063 

8 ft 
821 
422 

1 17 

402 
1445 
146  4 
1455 
1506 
1431 
144  3 
1 6 4 1 


1 841 

1 841 

1 3 39 

1 841 


1 821 
1 400 

1 326 

1 1062 

1 821 
1 422 

5 314 

3 4 02 
l 144  4 
1 1^45 

4 1446  1654 
1 1501 

1 1431 

2 1442  1643 
1 16  37 


SYMBOL 

-. 1875 
-.7071 

-A  YU 
-AZ 

-AZBIT 

-BJ  T 10 

-BIT12 

-BI114 

-CCSPR 

-C^MMA X 

-COMMA  X- 

-CDSB 

-DEC  10  3 

-DEl.GMB 

-EL 

-ELBIT 

-ELR 

-ENDER AS 
-ENDVAC 
-EPSILON 
-EPSMAX 


DEF 

20,3227 
20,3103 
E3, 1713 
11,2351 
4 746 
C6 ,3004 
7741 
7736 
01,3132 

07.3745 

07. 3746 
E5, 1644 

31.3747 
E6, 1675 
11,2363 

4 75  3 
05,3361 
7 743 
6251 
0155 
2 0,315  4 


692 

6 41 


-F'U  l°D  EG  16,3530 
-FOURDT  27,2536 
-GY  1 1 07, 
-LOKONFG  23,2040 
-MAXADRS  6350 
- -HJDT  3 8,2031 
-MUDTMIJN  33,2035 
-MUDT1  33,2033 
-0CT10  6222 

-0CT630  16,2315 


-ON 

-PHASE  1 


40,2433 

0752 


1496 
14  94 
111 
821 
321 
181 
323 
1098 
1113 
1331 
1331 
123 
827 
136 
821 
821 
223 
1098 
1009 
1496 
1494 
1439 
772 
1323 
271 
1286 
44 
44 
44 

1008 
142  3 
403 
100 


-.011  2A8  17,  3724  lt-fi  1 1 • 4 

-.025AT2  17,3732  1469  1 1467 

- .02  5 AT4  17,3733  1469  1 1464 

-.03R/S2  20, 376  I 61  1 

- • 0 5 A T 2 17,3734  1 1 

-.15AT2  17,3735  14 69  1 14*4 


-P  ATEDB 
-RM  IN 


E6 , 1 4 76 
17,2264 


-RRLIMIT  25,2315 
-SIGNAOS  0164 
-UMAX  17,3740 
-TJMIN  17,3742 


HEALTH  KEY:  NORMALLY  DEFINED  UNLESS  FLAGGED  AS  FOLLOWS: 


REFERENCES 

1 1499 

2 U 89  1495 
1 1147 

1 821 
1 177 

1 528 

2 1623 

1 1115 

2 1313  1314 

2 1313  1314 
1 123 

1 626 

13  914  918 


130 

1445 
535 
15  06 
146° 
1469 


1 821 
1 218 

1 1005 

2 l G05  1023 

5 1488  1489 

6 14  88 
1 1438 

1 771 

2 1323  1326 


0754 

101 

8 

CENTER 

36,3044 

746 

1 

745 

-PHASE3 

0756 

101 

5 

*NBSM* 

23 , 3673 

1263 

6 

550 

96 R -PHASE4 

0760 

101 

9 

4 PROCEED 

36,3041 

74-6 

1 

745 

-PHASE  5 

0762 

101 

2 

*SMNB* 

23 , 3671 

12  63 

7 

487 

-PHASE  5 

0764 

17,2256 

101 

144-5 

6 

l 

1 1291 
1 8 30 

1 883 

1 1008 

1 1422 

2 / G2 

7 2 14 

214 
214 
214 
2 14 
214 
1444 
7 130 

1 1445 

2 536 
10  149| 

2 1465 
1 14  67 


SYMBOl  DEF  H REFERENCES 

-T  PER  £4 ,154*2  = 115  6 306  721 

-UMASK  20,3766  1506  2 1502  1505 

-UP  00,2620  1063  1 1062 

-XMIN  16,3062  1431  1 1431 

-XTRANS  17,2147  1463  1 1443 

-0 . 3D /S  01,2343  296  1 294 

-0.6D/S  01,2342  295  1 296 

-1/12  13,3713  1247  1 1237 

-1/2+2  00,2444  1059  1 1080 

-1/8  7741  1098  3 528  1468 

-1CHK  63,3273  1287  5 1288  12°3 

-100MS  16,3615  1441  2 1470 

-100MS16  16,3731  1471  3 1470 

-136MST6  16,3572  1440  2 1437  1440 

-15DEGS  06,2513  170  1 16° 

-150MS  17,3110  1456.  1 1453 

-160MST6  16,3527  1439  1 1439 

-2JETLIM  E6 , 1475  130  4 130  1437 

-2SEC  10,3570  1382  1 1369 

-30EG  17,3725  146°  2 146? 

-45DEGSR  7740  = 532  1 531 

-50DEGSR  25,2231  532  1 532 

-50SC  04,3052  1 185  1 1174- 

-70DEGS  06,2512  170  1 169 

-80DEGSR.  25,2232  532  1 532 


441 
1 301 
372 

865 
1 383 
859 
1395 

1447 


1504 

1466 


/AF/CMST 

/AFC/ 

3 1,2417 
E7 ,1463 

797 
= 140 

1 

6 

793 

140 

819 

/BUF  + 

00,2721 

1067 

2 

1066 

/BUF- 

CO, 2715 

1066 

2 

1066 

/LAND/ 

E4, 1732 

- i on 

10 

1 19 

883 

/ MP AC  + 

00, 27  67 

1068 

2 

106  8 

/MP AC- 

00,2763 

1068 

2 

1068 

/jyiOT'  ,4 

OC  , 2732 

1067 

1 

1067 

/NOR  M2 

00,2725 

1067 

1 

1067 

/R/MAG 

E4, 1700 

= 11° 

5 

1 19 

850 

? 

6001 

= 749 

7GUID  SUB 

31,2454 

79° 

1 

786 

A 

0000 

= 92 

542 

158 

1509 

A-PCHK 

13,3157 

1216 

4 

1213 

1225 

AAPFG 

E5,  1452 

= 121 

1 

121 

AA°FG* 

E 5 , 1462 

= 121 

1 

121 

ABCLQAD 

41,2616 

425 

1 

409 

UN  UNDEFINED 
BD  BADLY  DEFINED 


= DEFINED  BY  EQUALS  J DEFINED  BY  JOKER  Hi.  ERASE  ANYWHETE  MO  MULTIPLY  DEFINED 

CD  DEF  IN  I7  id  AUnciATEO  WITH  Cl  NFI.ICT  XX  MISCELLANEOUS  TROUBLE 
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SYMBOL  'ABIE  LISTING,  INCLUDING  DEFINITION,  HEALTH,  PAGE  GE  DEF , 4 CF  EPS,  PAGE  OF  FIFST  REF,  PAGE  OF  LAST  PEF. 


symbol 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

ABDEL  V 

1246 

= 

105 

7 

1G5 

1495 

ACC  there 

20,3463 

1500 

1 

1500 

ADUPTEMP 

04 ,3514 

1391 

1 

1390 

A BDVCOHV 

E7  ,1513 

= 

147 

5 

147 

860 

ACC  NO 

E 5 , 1512 

= 

128 

2 

386 

337 

AOVAN 

01,3214 

1 1 16 

2 

1 1 10 

1287 

ABLUAD 

41 ,2703 

42  6 

1 

4 09 

ACC-  -2FL 

0307 

= 

87 

2 

£33 

8 38 

ADVANCE 

34,3016 

642 

2 

622 

627 

ABORT 

5644 

= 

1384 

AC C 4 OP  2 X 

4741 

= 

87 

2 

293 

1443 

AFCCAL  Cl 

31 , 3204 

809 

1 

8 15 

ABORT ALM 

21,2124 

836 

2 

835 

836 

ACDT+C12 

16,3736 

1476 

2 

1428 

i 

AFCCALC  2 

31,3214 

809 

ABORTON 

21,3067 

907 

1 

9 07 

ACENTRAL 

E6, 1744 

= 

132 

5 

1473 

147  5 

AFCCALC3 

31,3230 

809 

1 

809 

A BOO  T S 

32  ,2.000 

= 

34 

2 

832 

836 

AC  ; 0 D8  IT 

4737 

= 

68 

AFCCL END 

31,3236 

810 

1 

810 

ABORTS! 

05 ,2000 

= 

29 

1 

8 30 

ACMODFLG 

0040 

- 

68 

3 

6 96 

498 

AFCSPPT 

32,3504 

81° 

2 

819 

ABORT YZ 

16,2771 

14  30 

1 

1 4 4 C; 

A C 0 $ =0 

00,3637 

1084 

L, 

1 C 8 4 

1086 

A F DUMP 

31,2223 

793 

ABCC  T 2 

56  54 

13  83 

1 

l * H » 

AC.  0 S AB  R T 

00, 3728 

1086 

AFTERTJ 

17,2727 

1453 

3 

144  6 

1452 

A BOUT  ONE 

15,2046 

251 

2 

250 

959 

ACOSOVF 

00,3721 

1086 

1 

1034 

AFTRFLTR 

30,3215 

913 

1 

912 

ABF  EG 

E5  , 1416 

= 

1 21 

2 

121 

826 

ACOSSHR 

00,3714 

1086 

1 

1C84 

AFTRGUI D 

31,2435 

798 

1 

310 

ABRFGv 

E5 , 1426 

= 

1 21 

2 

121 

8 26 

ACOSST 

00,3625 

1084 

1 

1C  34 

AGA IN MM 

04,2073 

228 

1 

228 

A BP  T ABL  E 

36,2112 

733 

1 

8 36 

ACCS  ST  2 

00, 3^42 

1084 

2 

1084 

AGS  BUFF 

F4 , 1600 

= 

117 

14 

1 17 

274 

ABRTI  G< 

^6,2531 

740 

1 

7 33 

ACCS ZERO 

00,3731 

10  86 

1 

1034 

AGSeUFFE 

E4, 1615 

= 

117 

ABRT J ADR 

05 ,3405 

8 8 31 

1 

8 30 

AC  OS  3 

CO, 3652 

1085 

1 

If  86 

AGSDI SPK 

32,2022 

2 07 

A BP TJ ASK 

05,3406 

831 

1 

831 

ACTCENT 

E3 , 1755 

111 

2 

314, 

673 

AGS  END 

32,2122 

208 

2 

208 

ABS 

GO ,3226 

1076 

4 

823 

1075 

ACT  I VE 

23, 2402 

697 

4 

627 

697 

AG  S I N I T 

32,2005 

206 

1 

274 

ABSAQS 

0162 

= 

1506 

12 

1498 

1501 

ADDG RA  V 

15,2740 

966 

1 

966 

AGS  K 

E4, 1420 

113 

6 

1 °6 

20  8 

ABSEDr  TP 

E6 ,1737 

= 

131 

2 

1'  35 

ADDI  TI  N 

21,3563 

1483 

1 

1432 

AGS  LI  ST 

05,2407 

= 

193 

ABSTJ 

£6,1737 

= 

131 

9 

14  36 

I 45  5 

ADDPQS 

30,2002 

610 

' 1 

610 

AGSRND1 

32,2203 

20c 

2 

2C9 

ABTCHF 

£6,1550 

= 

122 

5 

1 22 

834 

ADD-'  ESS 

6103 

1004 

AGSPND2 

32,2211 

209 

2 

20° 

A BTC 

12  ,3742 

1201 

3 

1 186 

1199 

A DDR.  WD 

0116 

96 

83 

921 

1267 

AGSUP  DAT 

0001 

= 

236 

ABTFL  GS 

13 ,2000 

= 

30 

1 

1384 

ADG 

E5 , 1416 

= 

826 

1 

809 

AGS  VC ALC 

32,2036 

207 

1 

207 

ABTF  l : QT 

E5 ,1574 

= 

122 

2 

1 22 

334 

A0C2TTF 

E 5 , 14  2 6 

= 

826 

1 

EC  7 

AGSWQF  D 

1324 

107 

4 

208 

229 

ABVAL  1 

00,3201 

1075 

A 0 I A X 

E3, 1463 

1 10 

1 

329 

AHEAD5 

6433 

1016 

1 

1016 

ABVAI  ABS 

00,3176 

10  75 

1 

101  i 

ADI  AY 

E 3 , 1 4 64 

1 10 

1 

329 

A I G 

E 7 , 1457 

139 

5 

19c 

893 

A BV  El 

E7 , 1471 

_ 

1 47 

3 

1 4 7 

889 

ADIAZ 

£3,1465 

1 10 

3 30 

ATGBANK 

26,333? 

585 

? 

579 

584 

A B V E L.  * 

0130 

= 

122 

3 

888 

ADRPCHN2 

5366 

1299 

1 

1 299 

AIMER 

30,2665 

849 

1 

849 

AC ADM  8 3 

36,3763 

763 

1 

758 

ADRPUPT 

17,3240 

1458 

1 

145  8 

AINGOTN 

37,2217 

376 

1 

376 

ACADN85 

36,2055 

= 

7 63 

1 

7 54 

ADRS+1 

43,3625 

1292 

A I NLA 

E5 , 1434 

= 

128 

33 

128 

ACCDOTQ 

E6 ,1507 

1 3? 

8 

132 

1490 

ADRSCAN 

27  ,221  A 

751 

1 

731 

AK 

F 6 , 1 761 

137 

21. 

137 

1419 

A CCD1'  TP 

E L ,1511 

= 

132 

4 

14  76 

14  96 

ADR SCHK 

43,3574 

1291 

2 

1291 

AK1 

E6, 1762 

= 

137 

I 

1418 

ACCEPTUP 

0^-  ,330? 

1338 

2 

13  39 

ADR  SOI  FI 

E6 , 1746 

= 

133 

12 

1461 

1469 

AK? 

E 6 , 176  3 

= 

137 

1 

1418 

ACCE  D TWD 

41,2027 

4 06 

2 

406 

ADR  SOI  F2 

E6, 1744 

= 

133 

1 1 

1461 

1463 

ALARM 

5567 

1381 

51 

164 

1458 

ACCFCTZ 1 

E6, 1575 

= 

134 

1 

14  66 

ADR  S 1 

43,3244 

1286 

1 

290 

ALARM/TB 

35,2423 

631 

1 

621 

ACCFCTZ5 

E6 , 1576 

= 

134 

1 

1,4.64 

ADR404  00 

5742 

13  84 

1 

1384 

ALARMIT 

27,2526 

771 

1 

771 

ACC  HE  - E 

20,3431 

1500 

1 

1 500 

ADR  77770 

574  i 

1384 

1 

1384 

AL  ARMMGA 

30,3756 

924 

1 

914 

A CCOKFLG 

0317 

= 

88 

ADS  ' AX 

E 3,  1466 

1 10 

1 

329 

ALAR Ml 

57  3 2 

1 384 

1 

1086 

ACCOMP 

11,2516 

12  30 

1 

1238 

AD SC  AY 

F 3 , 1467 

110 

1 

329 

ALAR  M2 

*571 

1381 

2 

1286 

1393 

ACC°  ETRN 

0117 

= 

15  06 

2 

1486 

1504 

AD  Sn  AZ 

E3 , 1470 

1 10 

I 

329 

ALCGKK 

37,2627 

385 

ACC.SCK  AY 

4751 

= 

88 

3 

219 

1504 

ADSUM 

43,3 

1291 

2 

1291 

ALDK 

E5 , 1532 

= 

128 

3 

385 

386 

ACC 

0122 

= 

15C5 

5 

15  02 

1505 

ADTIME 

35,3236 

670 

1 

670 

ALFDK 

E 4 , 14  2 2 

= 

117 

1 

385 

ACCSWU 

E6 , 1547 

= 

134 

3 

134 

1502 

ADUPBFML 

04, 3662 

13  94 

2 

1390 

1 391 

ALFLT 

37,2577 

385 

1 

384 

ACCSWV 

£6,1550 

= 

134 

l 

1502 

ADUPBU  FF 

04,3515 

1391 

1 

13  89 

ALFLT3 

37,2644 

385 

1 

385 
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SYMBOL 

ALGOR  I HM 

ALIGNCOA 

ALIGN  OPT 

ALTI  P 

A L I N E X 

AL INF  Z 

AUNT  I ME 

ALK 

ALKCG 

ALKCG2 

ALKLP 

A LL  C ' 

ALLDC/OC 

ALL  JETS 

ALLOPP 

AH'  - GTS 

ALLREAD 

ALLSET 

ALLIS 

ALL  3 DEC 

ALL  -PITS 

ALM/FND 

ALMCADR 

ALMCYCLE 

ALMNCAD'-- 

ALMXTT 

ALMXI TA 

ALOAD 

ALOADED 

ALPHA 

ALPHA! 

Al PHAQ 

ALPH 

AL  PHASB 

ALPH A TRY 

ALPHAV 

AL;  1503 

ALRM514 

A L R M 5 2 5 

ALP  M *526 

ALRM527 

ALRM530 

ALSIGNAG 

ALSK 

ALT 


DEF 

21,3143 
37,2311 
15,3331 
37,2667 
26,2067 
26,2113 
43,2401 
E5.1446 
37,2632 
37,2635 
37,2676 
20,2204 
41,3011 
17,3225 
37,2536 
E6 ,1502 
25,3074 
35,3507 
26,3703 
42 , 3573 
11 ,2373 
43,2120 
1363 
4 145 
5734 
35,2040 
35,2036 
41 , 2732 
13,3150 
0010 
E4, 1467 
E 6 , 1 4 2 4 
E6 , 1 42  5 
E4 , 1600 
21 ,3345 
E4 , 1431 

24.2775 
24,2307 
24,2663 
24,2305 

24.2776 
24,3114 

7544 
37,3103 
1 124 


H 


1473 
373 
975 
3 86 
3 39 
34  0 
275 
1 28 

385 
38* 

386 
1408 

427 
14  58 

3 84 
1 34 
553 
677 
593 

4 36 

3 22 
264 
1 08 
446 

13  84 
6 21 
6 21 

4 26 
1216 
1202 

1 14 
129 
) 29 
118 

14  79 
1 14 
5C9 

4 99 
507 

l+C  Q 

510 

5 11 
1043 

3 8° 
104 


REFERENCES 


3 378 

1 975 

1 386 

1 339 

1 2c2 

4 128 


1 385 

1 386 

4 230 

2 425 

2 1457 
2 383 

141? 
554 
677 
592 
434 
8 20 
2*2 
108 
407 


386 


7 

1 

1 

1 

1 

2 

24 

14 

14 


2 

1 

1 

2 

4 
14 

6 

5 

L 

33 

1 

1 

1 

1 

1 

5 
1 

6 


6 4 1 
6.38 
409 

1215 

1174 
1 14 
195 
14  00 
1 18 

1 14 
5 09 
90  7 
505 

4 96 

5 11 
8 85 
336 
1 04 


761 
426 
145  8 
3S4 
150  4 


281 

1384 

447 


1216 

1176 

1/236 

1486 

I486 

314 

1245 


1069 

1136 


SYMBOL 

ALTBITS 

ALTCALC 

ALTCHK 

ALT  TON  V 

ALTCRIT 

ALTDSP  LY 

A l TERYZ 

Al  TIM 

ALT! MS 

ALIM 

ALTOUT 

ALTRATE 

AL  TROUT 

ALTSAVE 

ALTSCALE 

At  TSCB  IT 

ALTSYST 

ALXXXZ 

ALX1S 

AM 

A MEMORY 
AMG 

AMOVED 

ANET 

ANGLTI ME 
ANGTER  M 
ANGX 
AM  GY 
AN  GZ 

ANG1CHEK 
ANT  E NB I T 
ANTE  NF LG 
AOG 

APR B SF  LG 
AORBSYST 
AORBTF  LG 
AO RB TRAN 
ALSO 

AOSQTERM 
A OS  R 

AOSRTERM 
AQSU 
AO  S V 
AOTAZ 
AOTCQDE 


DEF 

E7 ,1741 
22,2131 
33,2664 
33,2025 
33,2677 
20,2226 
16 , 3002 
E 5 , 1530 
E 5 , 1 5 3 1 
0060 
21,2240 
E7, 1711 
21, 2167 
E 7 ,1712 
0272 
4743 
16 , 3431 
37,3076 
E5 , 1464 
E6 , 1735 
E4, 1400 
£7,1460 
11,3627 
0157 
22,3001 
E4, 1 664 
E 5 , 1 50 0 
E5 , 1476 
E 5 , 1472 
27,3273 
4740 
0267 
E7 , 1461 
0315 
4747 
0310 
4742 
E6, 15  37 
E6, 1545 
E6 , 1641 
E6, 1546 
E6, 1543 
E6, 1544 
F7, 1404 
0735 


H 


REFERENCES 


151 
353 
878 
42 
878 
1414 
1430 
128 
128 
93 
899 
151 
898 
151 
85 
85 
1437 
389 
128 
135 
1 1 3 
139 
1243 
1506 
364 
1 19 
128 
128 
128 
851 
85 
85 
139 
88 
88 
87 
87 
133 
1 33 
133 
133 
133 
133 
138 
100 


151 

352 

873 

876 

878 


1 14  13 
1 1430 


384 

384 

899 

898 

151 


I - 151 

1 884 

2 1437 

1 383 

4 383 

3 352 

2 5 70 

1 1242 

II  1499 
1 

3 

2 
1 
1 
1 

12 


3 64 
1 19 
887 
388 
388 
850 
323 


2 
1 
2 
2 9 
7 
1 1 
6 
3 


899 
8 79 


38  3 

899 

900 


38  9 
364 

579 

1505 

810 

388 


596 


199  893 


1436 
743 
1443 
133 
133 
7 40 
1409 
1497 


5 154 

12  196 


1437 

1445 
14°7 
1427 
1497 
1427 
149  3 

953 

961 


SYM80L 

AOTEL 
AOTMARK 
AOTMARK 1 
A0TMAPK2 
AOTST ALL 
APOPE& I 
APSESB1T 
APSE  SI* 
APS  FL  AG 
APSFLBIT 
APSIDES 
APSTGO 
APSVEX 
A1?  ATE 
A r'C  CO  S 
ARCOMP 
ARCONV 
ARC0NV1 
ARC  SI N 
ARC TAN 
ARCTANYX 
APCTP  C-SP 
AP.CTR  IG 
ARE! 

A ,^G  + 

ARGHI 

ARGLO 

ARGZEPr 

ARGZET  02 

ARG90 

AR0UT1SF 

ARTHINSF 

AU  INI  C F 

A R T P A 

ART0A2 

ARTOUTS  F 

ARUPT 

ASCALE 

ASCENT 

ASCFIt  T 

ASCSPE7 

ASCTEf 

ASCTEF.M1 

ASCTEF M2 

ASCTERM3 


DEF 

E7, 1412 
07,2000 

07.2000 

04.2000 
07,3712 

23.2000 
4747 
0 2 02 
0 2 30 
4737 

12,3674 

27,2671 

33.2000 
22,2771 
00,3612 
2 1 ,2176 

21 . 2000 
33,2027 
00,3610 
13,2510 
13,2536 
30,3622 
23,3320 

0161 
9265 
00,3417 
00,3470 
7305 
7302 
50  67 
40,2704 
40,30  76 
40,3111 
21,2001 
21,2002 
40,2677 
GO  1C 
13,3707 
30,2321 
34,2000 
23,2503 
30,2721 
30,2731 
30,2746 
30  ,27^7 


H 


REFERENCES 


138 

244 

20 

28 

1329 

32 

79 

79 

82 

«2 

1 200 
775 
3° 

3 64 
1084 

898 
42 
42 
1 084 
1 137 
1137 
922 
1251 
1 506 
1036 
1080 
1081 
1036 
1036 
1102 
419 

4 32 
4 33 

42 
'*2 
419 
Q2 
1247 
8 45 
34 
867 
850 
850 
850 
850 


1 

3 

2 
2 
3 
1 

2 

3 

16 

1 

1 

3 


246 
9^2 
244 
249 
9*0 
695 

1 198 

773 
213 
6C  5 

774 
758 

3 3 64 

1 1013 


1 898 

1 877 

1 1013 
5 478 

? 1137 
3 920 

9 299 

3 1500 

1 1036 

2 1081 
1 1081 
1 1036 
1 1036 
1 1102 

417 


431 

431 

899 

899 

417 

153 


1 1232 
3 840 

1 843 


850 
850 
86  6 
850 
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1513 


960 

251 

983 

1330 


1199 

791 

I486 


860 


1134 


1254 

1504 


418 

1458 

844 


852 
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SYMBOL  TABLE  LISTING,  INCLUDING  QEFINIT 

LON  * HEALTH,  0 AGE 

OF 

OFF, 

ft  OF 

EPS, 

PAGE 

! OF  FTPS! 

REF,  PAGE 

CF  LAST  FEF. 

SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

00 

ASCTC  M4 

30  ,2750 

550 

1 

343 

ATTSCALE 

42, 2053 

282 

1 

282 

AXO 

E3, 1715 

Ill 

1 

1147 

ASLCXT 

F 5 , 1 5 7 3 

= 

1 28 

ATT  STEER 

17, 2661 

- 

1452 

1 

1444 

A XI 

01,2344 

1 087 

1 

1012 

* 

A SENT 

30,2000 

= 

34 

3 

39 

854 

AT  Y 

E4 , 1754 

= 

120 

5 

120 

851 

AZ 

13  47 

107 

A. 

108 

956 

?7.o  n r\r, 

_ 

7 0 

4 

, 3 R 

A J 1 G 2 

01 J SS77 

1 S 2^ 

l 

1 2 2 ‘4 

UFAfH 

1 1,237/=. 

822 

Q 9 1 

A SENT  2 

07,2000 

= 

29 

i 

851 

AUG  3 

07,3550 

1324 

1 

1325 

AZEL 

14,3  744 

956 

1 

956 

• 

ASENT3 

05 ,2000 

= 

29 

i 

852 

AURL KJN 1 

23, 2034 

271 

1 

271 

AZI DUMMY 

E7 , 1645 

= 

149 

1 

149 

ASENT  4 

14  ,2000 

= 

31 

i 

352 

AU.  LOKON 

23,2000 

2 71 

1 

269 

AZIMUTH 

E 5 , 1400 

= 

127 

5 

127 

337 

A SENT 5 

30,2000 

= 

34 

i 

8 54 

AUTO  MA N V 

26,2156 

474 

AZ I NC  P 

E?, 1556 

= 

14Q 

4 

149 

804 

4fr 

A SENT 6 

33,2000 

= 

34 

i 

3 55 

AU TOMB  IT 

47  52 

= 

86 

5 

132 

605 

AZ I NC  R 1 

1266 

= 

106 

6 

106 

321 

A SEN  1 7 

7 7 , 7 r oo 

_ 

32 

'MODE 

0301 

- 

86 

AZO 

F 3 , 17  1 1 

111 

1 

life 

ASINEX 

00,3707 

1085 

i 

1084 

AUT1-'  AT  El 

4753 

= 

88 

A2CNTRAL 

E6 , 1746 

= 

132 

13 

1473 

1475 

m 

A SKI FNRM 

10 ,2530 

13  59 

i 

1358 

AUTRATE2 

4752 

= 

88 

ASTA, 

15,3067 

970 

i 

970 

AUT'  IF  LG 

0321 

= 

88 

B AR  NiB*  B* 

36,2135 

733 

1 

756 

ASTNBIT 

4740 

= 

77 

i 

7 38 

AUT ' 2FLG 

0320 

= 

88 

BACKHAND 

IT, 2532 

1449 

1 

1449 

• 

ASTNCLOK 

32  , 52"''' 

7 88 

AUXFLAG 

0147 

= 

76 

BACKP 

16, 2316 

1423 

1 

147  1 

A ^ T M 0 F X 

4 3^2 

_ 

7 so 

l 

788 

AUXFLB  IT 

4752 

— 

76 

3 

06  1 

R6  > 

BADGES 

25,2623 

546 

l 

546 

A STN  FLAG 

0154 

= 

77 

4 

737 

759 

AVECTR 

0024 

= 

11^8 

7 

1 143 

1 145 

8ADEND 

07,3662 

1 328 

2 

563 

1327 

* 

ASTNRET 

32,3210 

788 

1 

746 

AVEGEXIT 

1252 

= 

105 

7 

105 

758 

BADPAD 

25,3206 

555 

6 

555 

558 

A STN:  ETN 

36,3030 

746 

1 

7 45 

AVEGFB IT 

4747 

= 

78 

6 

186 

858 

BADROOT 

31 , 3656 

825 

ASTOK 

26 ,34  31 

5 86 

1 

5 06 

AVEGFL  AG 

0163 

= 

73 

3 

223 

1 24  6 

B ADR  2 

12,3664 

1 199 

2 

1198 

• 

A S':  :•  END 

27,3170 

779 

1 

779 

AVEGOUT 

37,3517 

859 

1 

P 58 

BADX 

12,2302 

1 177 

3 

1175 

A SI  MSK 

1 0 , 3 r 1 7 

1372 

1 

1 3 . 

AVE  IT 

07,2276 

2^3 

1 

250 

RA  II  OUT 

5634 

1 38? 

1 

1421  . 

. ' 

astrotim 

04,2672 

70 1 

1 

7 02 

AVEMDB IT 

4753 

= 

81 

BAIL0UT1 

5716 

13  84 

7 

244  1 

1377 

AT 

E4 , 1 6 62 

= 

1 19 

7 

1 19 

849 

AVEMIDSW 

0225 

= 

61 

3 

320 

1222 

BALLANGS 

26,2266 

477 

4 

340  ' 

L-5-F5 

AT/RCS 

30,2000 

39 

1 

846 

AVERAGEG 

33, 2267 

861 

BALLE  XI7 

1342 

107 

2 

477 

478 

A TAN =90 

13,2543 

11  37 

1 

1137 

AVER'  TR  N 

22,3707 

364 

1 

3 64 

8ANKC ALL 

46  16 

998 

3 2? 

2C7 

1436 

• 

ATDEC.AY 

36,2012 

38 

1 

8 41 

AVESTAR 

07,2241 

252 

2 

252 

253 

BANK JUMP 

4 640 

90S 

22 

271 

1504 

A TIG  I NC 

E7 , 1 )0 

138 

4 

3 87 

723 

A VET  MIO 

l 3 1 4 7 

1 ? 2 1 

1 

0 64- 

RAWK M A K 

it.  350 

_ 

1 Q9Q 

3 

1010 

1023 

ATMAG 

34,3642 

843 

2 

749 

837 

AVFLAG 

0050 

= 

69 

7 

629 

776 

BANKRUPT 

0016 

= 

92 

13 

155 

1421 

m 

atmagad 

32  ,3765 

837 

1 

8 34 

AVFLAGA 

35,2347 

6 29 

6 

621 

728 

BANKSET 

0165 

99 

14 

1000 

1372 

atmagadr 

36,3140 

7 49 

1 

740 

AVFLAGP 

35,2354 

629 

6 

621 

72  3 

BASEOTP 

E 4 , 1537 

= 

115 

2 

7C4 

705 

atopcsm 

13,2661 

1 2 10 

5 

37 

124  3 

AVFLBI T 

4747 

= 

69 

BASEOTV 

E* , 1517 

= 

115 

2 

704 

7 05 

0 

A TOPLEM 

1 3,2  734 

1211 

4 

37 

124  3 

A V SEND 

22,3661 

363 

1 

8 59 

BASETEMP 

1061 

= 

232 

2 

232 

AT'  t.  TH 

13,2661 

= 

37 

1 

711 

AVGEXI T 

125? 

= 

105 

7 

739 

865 

BAS  ET HP 

E4, 156? 

= 

1 15 

2 

704 

ATOPTHIS 

13,2734 

= 

37 

AVOUTC AD 

37,3535 

859 

1 

8 59 

BASFTHV 

E4 , 1504 

= 

115 

2 

704 

• 

A TP 

E4 ,1760 

= 

1 20 

4 

120 

851 

AX4SR4T 

23,3675 

1263 

2 

601 

1262 

BASETIME 

E4, 1513 

= 

1 15 

3 

704 

705 

3" 

ATI 

E 4 , 1 7 5 6 

= 

120. , 

3 

12:0, 

849 

A XC 

01,2351 

108  7 

1 

1C  12 

8AWLANGS 

26,2000 

= 

33 

2 

339 

477 

ATTACHED 

43,3142 

297 

I 

2 62 

AXOSTE  M 

0147 

= 

15  05 

4 

1 602 

1 503 

BB 

0006 

= 

1 300 

F 

12  = 9 

1306 

• 

ATTAFHIT 

43,3  1 v 7 

297 

1 

2 97 

AXISCTR 

06 ,1505 

= 

132 

AC 

132 

1 50  q 

BBANK 

0006 

= 

92 

46 

153 

1331 

ATTCADR. 

1307 

106 

6 

106 

133  1 

AXISDIFF 

17,3722 

1469 

2 

1449 

1461 

BBSERVDL 

5743 

1 384 

i 

1383 

ATTCHK 

15,3553 

980 

1 

965 

AX  I SOI  ST 

Et> , 160  5 

= 

134 

8 

1463 

1503 

BCDU 

E 6 , 1676 

135 

13 

135 

1331 

0 

ATTCK2 

42,2035 

282 

2 

281 

282 

AXISGEN 

23 ,3441 

1255 

4 

942 

971 

BDDV 

7603 

1044 

2 

1011 

1044 

2" 

ATTFLAG 

0150 

.= 

7 6 

1 

979 

AXISGEN1 

23,3447 

1255 

1 

1255 

BDOT 

26,2010 

53 

1 

1143 

ATTFI  BIT 

4753 

= 

77 

3 

976 

980 

AX  I SGEN2 

2 3,36.76 

1255 

1 

1256 

BDSU 

7062 

1029 

1 

1011 

0 

A TT  P • TO 

13  1 1 

= 

1 f- 

2 

369 

1331 

AXISGEN3 

23,3521 

12  56 

l 

12  56 

8DT0K 

27,2461 

771 
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SYMBOL 

B EE  17 

BEE19 

BEE22 

BEGOES 

BEGDES29 

BEL0W1 

BEL0W2 

BELOW  3 

BE!  0W4 

BESTI 

BESTJ 

BETAM 

B ETAS  B 

BETAV 

B G I M 

BGIM23 

BHIZ 

BIASCALE 
BI ASFACT 
B IAS  H I 
B IASI  0 
BIAS  TEMP 
BIBIBIAS 
B IGAOS 
BIGIO 
B IGT I ME 
B INC ON 
B T'  ' f UND 
B I n 3 

bits  ft 

BITSOFF 
B I IS OF FI 
B ITS  15 +7 
BITS  2- TO 
BITS  3 £4 
B ITS 4+ 10 
BPS  4 £ 5 
8 ITF4 £6 
BITS  - 
8 I TS 4 -7 
B ITSC  +1 1 
B ITS  - ,8 
B ITS  6 £15 
B ITS'7  + '- 
B ITS7  £8 


DEF 

04,3027 

04,3041 

04,3045 

,2573 

24,3356 

10,2247 

11  ,22  ,4 
10,2300 
10,2303 
E5 ,1755 
E5 , 1756 
E4 , 1 47 1 
E4, U02 
E4 , 1437 
16,3735 
14,2203 
01 ,2452 
22,3167 
32,3536 
00 ,2566 
00,2270 
E6 , 17  11 
37,3416 
20,3341 
20  ,2617 

12  ,3437 

4363 
40 ,3  106 
6245 
5020 
41 ,26  74 
4 1 , 2701 

10.3522 
501  1 
5751 

10,3525 
4763 
4771 
07,3744 
33,3154 
10,3524 
25,3401 
06, 3003 

10.3523 
06  j 2777 


H 


1185 
118  5 

1186 
5 « 
599 

1301 
13.01 
13  01 
1301 
1 24 
1 2 
1 14 
1 15 
I 1 •• 
1476 
I-  13 
10c0 

3 6 7 
820 

10  61 
1 n<=4 
135 
857 
1498 
1488 
ll'M. 

4 6 1 
432 
563 
907 
4 26 
426 

I 3-2 
1 0 °7 
1331 
1372 
10  96 
13  31 
1331 
883 
1372 
558 
181 
13  72 
181 


REFERENCES 

1 1196 
1 119  3 

1 117c 

3 * TO 

2 598 

1 1302 

2 1301 

1 13;  1 

2 1301 
124 


13 

5 

3 

1 1 


1 4 6 8 
1 I 9 5 
44  1 
4 31 
556 
907 
426 
4 26 
1359 
37 
13  10 
1 L371 
3 165 

5 2 II 

I 1316 
875 
1364 
r 58 
1 80 
13  58 
164 


541 

599 


124 
1 14 
118 
I 14 

1 14  76 
I 14  13 

1 367 

1 

1 10  80 
1 1 C 5 1 

1 243 


962 

940 

1245 

314 

1232 


1099 

433 


1311 

281 

1316 


1371 


176 


SYMBOL 

BI TS8/7 
B I T S 8 , 9 
8 I T S°+  7 
BITS'1,  1 1 
BIT1 
BIT  1H 
BI  T 1 0 
B I T 1 '>  I 5 
B;  Til 
BIT11+1 
BIT12 
B I T 1 2 , 14 
W T 1 3 
BIT  13-  14 
PIT1  4 
R I T 1 4+  7 
BIT14C0M 
B I T1  5 
BIT  15+ 6 
B I T 15/ 14 
B I r 2 
B IT3 
B I T 3 H 
BIT4 
BIT  4H 
BITS 
B T T6 
B IT7 

BI  T7+9  PV 
BITS 
BITS, 9 
B I T9 

BLANKCHK 
BLANKCON 
BL.  ANKDEX 
BLANKOSP 
BLANKET 
BLANKS ET 
6L ANKSUB 
BL  N KBB  NK 
BLNKSUB1 
BLNKWA  IT 
BIOAD 
BI OCKTOP 
BNKCHK 


DEF 

21 ,3C 76 
16,3617 
43,3044 
5016 
4753 
32,3533 
4 742 
6021 
4741 
2R,2372 
4740 
7712 
4737 
4355 
47  36 
26,2252 
10,2276 
4735 
7734 
4 1,3237 
4-52 
4 751 

34.3715 
4750 

30,3030 
4 747 
4746 
4 745 
23,2273 
4 744 
17,3111 
474  3 
10,3132 
40,261 4 
47  5 2 
41,3516 
5464 
0114 
4286 
4302 
40, 3505 
36,3345 
41,2743 

E 6 , 1 54.7 

43.3716 


HEAL-H  KEY:  NORMALLY  DEFINED  UNLESS  FLAGGED  AS  FOLLOWS: 


907 
144  1 

287 
1433 
1095 
8 19 
109  5 
5 16 
1095 
537 
1095 
552 
1095 
1099 
1095 
475 
1301 
1095 
109  8 
4 37 
1095 
1 4 9C 
844 
1095 


REFERENCES 

1 90? 

1 14  34 
1 287 

1 14  32 
70  66 


SYMBOL 


DEF 


H 


REFERENCES 


BNKQPTN  43,3315 
BOOISMSK  20,2114 
BOr’LSTPT  05,3063 


1287 


1 

53 

1 

33 

1 

44 

1 

59 
6 
9 1 


818 
65 
516 
43 
c 37 
65 
551 
40 
231 
65 


1492 

1487 

1476 

1499 

1497 
141  0 
1 500 


1 1301 
54  67 

1360 
4 37 


1 

2 

56 
42 

1 

57 


66 

66 

843 

66 


43  9 
1 490 
1431 

1462 


37,2755 
5574 
c72  1 
20,3320 
19,2665 
25,3640 
22,3377 
32,3625 
40,2377 
22,3336 
01 ,2457 
01,2503 
01,24  74 
6723 
E6, 1725 
BPNCHCCN  40,2600 
8RNCHCTR  12,2267 


BOOP 
BOR TENT 
BOTHABPT 
B0THAXES 
BOTH JOBS 
BOTH!.  ITS 
BOTHPAD 
BOTHPOL Y 
BQTHSGN 
BQTBSKIP 
BOV ( B ) 
BPL 
BPl/BMN 
BRANCH 
1482  BRATE 


2 °3 

3 

292 

218 

1 

212 

387 

1 

387 

13  81 

2 

1383 

1 384 

1 

1384 

1498 

1 

150  2 

1361 

1 

13  61 

612 

1 

613 

715 

1 

715 

833 

1 

833 

402 

1 

402 

714 

1 

715 

1090 

1 

1012 

1 091 

1 

10cl 

1091 

1 

1012 

1025 

11 

8 78 

135 

3 

364 

405 

1 

405 

1177 

1 

1178 

293 


367 


BRSPOTl 
BF  SP0T2 
BRSP0T3 
BRSP0T4 


31, 2617 
31,2702 
31,3057 
31,3243 


802 

804 

807 

810 


UN  UNDEFINED 
BD  BADLY  DEFINED 


= DEFINED  BY  EQUALS  j DEF  IF 

CD  DEFINITION  ASSOCIATED  WITH  CONFLICT 


355 

BRUPT 

0017 

= 92 

4 

8 30 

145  8 

1095 

5 1 

6 6 

1473 

BSUBO 

26,2016 

53 

1 

1143 

1095 

64 

66 

146  6 

BUF 

C 130 

96 

16° 

97 

139  9 

10°5 

4 A 

66 

1 

8UF+ 

00,2422 

1058 

3 

1057 

1060 

5 19 

1 

519 

BUF- 

00,2416 

1057 

3 

1057 

1060 

1095 

45 

66 

1 506 

BUFNEG 

00,2531 

1060 

1 

1057 

14  56 

BUFNORM 

00,2500 

1 06C 

1 

1060 

109  5 

l\/j u 

66 

1 50  + 

BUFPOS 

00,2516 

10  60 

2 

1057 

1050 

1 366 

BUF ZERO 

00,2363 

105? 

1 

106  0 

405 

2 

9-65 

4 1 8 

BUF  2 

C 1 3 3 

97 

30 

24  4 

1382 

746 

1 

735 

BURNBABY 

36,2126 

733 

3 

754 

840 

453 

2 

453 

BUSYMASK 

10,35  27 

1 372 

1 3 54 

12 

271 

1 37  3 

BUTTONS 

05,2703 

215 

96 

BV  E CT  Of 

E7 , 1524 

= 145 

24 

145 

1150 

456 

2 

<39 

1366 

RVECTR 

0032 

= 1 148 

5 

1 144 

456 

1 

A.  CCA 

n \/  c | 1 

7 0 BA 

10  2ft 

1 

1011 

f J V7 

U V D U 

1 'J  _?o 

J. 

456 

2 

4 56 

BYLMATT 

15,3545 

9 80 

2 

976 

977 

756 

1 

757 

BZ E/GOTO 

01,2467 

1091 

1 

1012 

427 

1 

4 09 

B12-1 

4 3 56 

= 461 

136 

12 

134 

1 505 

B12T1 a 

7-22 

= 1 09C 

1 

1014 

12  93 

B14+B2 

25,2635 

546 

1 

546 

:D  BY 

JOKER 

OF 

ERASE 

A N Y W H E f E 

MQ 

MULTIPLY 

DEFINED 

XX  MISCELLANEOUS  TROUBLE 
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SYMBOL 

OEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

B2/A2 

13,2  504 

11  36 

1 

1 1 38 

C.  ALL  ACCS 

20,2133 

1407 

1 

1407 

CDUSPOTZ 

O7  70 

= 

101 

3 

872 

911 

B2F8 

15,3177 

972 

1 

972 

CALL CODE 

4766 

1096 

5 

279 

1510 

CDUT 

0035 

= 

92 

12 

1P7 

6 06 

B2XSC 

13,2502 

1 1 6 

1 

1 1 36 

CALLDGCH 

26,364 3 

59  2 

4 

516 

59  5 

CDUTMF 

0053 

= 

92 

2 

536 

907 

B3TPS4 

Cl , 2576 

10c4 

2 

1093 

1096 

CALLGMBL 

4 747 

= 

1412 

3 

1428 

1483 

CDUTEMPX 

1155 

104 

3 

970 

893 

B50FF 

5563 

1 3F0 

11 

299 

717 

CALLQERR 

17,2072 

1442 

1 

1441 

CDUTEMP Y 

1 1 56 

104 

3 

870 

893 

B5T0B8 

01 ,2465 

1090 

CALL°ECT 

11 , 3331 

1238 

4 

1237 

1238 

CDUTEMPZ 

1157 

104 

2 

870 

87  2 

CAL  LRPRT 

13,2454 

1135 

1 

1135 

CDUT I MEF 

E5  , 1436 

= 

127 

C*MM*M 

23,36^3 

126  2 

2 

1262 

1263 

CALL  RTRP 

13, 2364 

1133 

1 

1133 

CDUT I ME  I 

F 5 , 1434 

= 

127 

C*'  2 

23,3655 

12  62 

1 

1262 

CALLT-35 

36,2211 

734 

1 

734 

C DU  TO  DC M 

22,2410 

35^ 

3 

351 

481 

C *''*  -<*’,'3 

2 3,36  66 

126  2 

2 

I 242 

126  8 

CAL  POP 

14,3340 

947 

1 

C47 

C.DUTR  IG 

23,3537 

12  50 

11 

487 

9 31 

C A+ECE 

07,3140 

1314 

1 

170 

CALOOP 1 

14,3  1 

947 

2 

947 

CDUTR IGS 

23, 3547 

12  59 

3 

1259 

1262 

C AD1-' FLSH 

0372 

100 

6 

155 

1370 

CAL  SAM 

15,2540 

962 

CDIJWXFR 

30,3441 

918 

1 

918 

CAD:  MARK 

0373 

100 

CALS AMI 

15, 2537 

962 

1 

561 

C DUX 

0032 

= 

92 

29 

188 

1438 

C AO"  MASK 

10 , 3530 

1372 

1 

13fa3 

CAL53A 

14,3327 

94  7 

1 

9 3C 

CDUXCMD 

0050 

= 

92 

5 

174 

1419 

CAD  ST 

1042 

1C2 

13 

222 

1368 

CA  M 

E6 , 1733 

= 

13? 

4 

135 

353 

CDUXQ 

E6 , 1635 

1.34 

26 

134 

1450 

C ADRT  AB 

. 1 , ] 

_ 

2 2 o 

1 

IVVv 

c 4 N ~ an  n 

2 27 

x 

221 

C DU  Y 

00  ^3 

_ 

92 

14 

2r4 

1451 

C AGFSUB 

06,2735 

ISO 

1 

164 

CANV37 

04,2134 

228 

I 

228 

CDUYCMD 

C05  1 

= 

92 

2 

174 

1418 

C AGES  UB1 

06 ,2743 

18  0 

1 

174 

CATLOG 

14,2346 

51 

12 

9 38 

962 

CDUYD 

F6 , 1636 

= 

134 

8 

369 

1451 

C AGE SUB 2 

06 ,2746 

1 80 

1 

166 

C C A L L 

6626 

1023 

1 

1011 

CQUZ 

0034 

= 

92 

17 

169 

1451 

CAGET  EST 

07,3641 

1327 

7 

1311 

1324 

CCS HOLE 

5705 

1383 

22 

376 

1466 

COUZCMO 

00  5 2 

= 

92 

2 

175 

1418 

C AGFTSTJ 

07 ,3663 

1327 

5 

1310 

1319 

CCSL 

76  6 3 

1046 

1 

1099 

CDUZD 

E6 , 1637 

= 

134 

7 

369 

1451 

CAGET STO 

07 , 3646 

1327 

3 

1317 

1318 

CD* TR * 5 

23,3543 

1259 

1 

z7  8 

C D!J  Z D L I M 

30,3773 

925 

1 

0 14 

CALCDIR 

E5 ,1460 

= 

127 

CO*TR*GS 

23,3555 

1260 

3 

1259 

1262 

CEAPTH 

0016 

= 

936 

3 

935 

939 

C ALCGA 

23,3353 

12  53 

4 

374 

974 

CDELF/2 

0016 

= 

1268 

centang 

F 7 , 16  20 

141 

7 

198 

729 

C Al.  CGA1 

23,3413 

12  53 

1 

1264 

C )ESBI T 

47  3 5 

= 

85 

2 

590 

CG 

E5, 1602 

= 

122 

15 

122 

313 

CALCGRAV 

33,2730 

8 80 

2 

R 67 

881 

COE  SFL  AG 

0264 

= 

85 

2 

271 

510 

CGCALC 

31  ,3  245 

810 

3 

798 

C Al  CGPV1 

33,2765 

g°o 

1 

8 BO 

cohmvr 

34, 3133 

647 

2 

627 

63  7 

CGGTO 

6703 

1024 

1 

1011 

calcgta 

7 ^ T 3 7^7 

1 

L. 

Q,  L.L. 

o 7 1 

C q o y e 

r f-  , 2 A x 2 

1 

CH  a f" 

F F . 1 L 4 ^ 

_ 

127 

C Al.  CMAN2 

0053 

= 

70 

2 

364 

365 

CDU*NBSM 

23, 3661 

12  62 

5 

705 

982 

CHANDSP 

41,2504 

416 

1 

415 

C ALCMAN3 

0052 

= 

7 0 

1 

364 

CD  U*  SMNB 

23,3646 

1262 

3 

518 

957 

CHANG  EV  B 

07,2611 

260 

1 

260 

C ALCF83 

36,3462 

7 58 

1 

763 

CDUANG 

E5 , 1543 

_ 

1 27 

5122 

1103 

4 

378 

1292 

CAL CM 8 5 

36,3376 

7 57 

1 

7 32 

CDUDANG 

E6  , 1440 

= 

127 

CHAMG2 

5126 

1 103 

1 

1003 

CALC 'ERR 

16 , 3446 

14  37 

2 

1413 

14  38 

CDUFLAG 

E 5, 1461 

= 

127 

CHANJOB 

01,2706 

1108 

4 

1103 

1115 

C A|  CPHI 

22,2701 

36? 

1 

362 

C DU  INC 

10,3660 

1398 

CHANLOAP 

41,3161 

430 

1 

430 

CAL  CP  GVG 

31  , 30C3 

806 

2 

798 

799 

CDUIND 

E3 ,1474 

= 

110 

2 1 

166 

1324 

CHAN12 

0012 

= 

93 

74 

165 

1490 

C ALCRV'i 

33,2776 

8 BO 

1 

861 

CDULIMIT 

E 5 , 1 443 

- 

127 

CHAN1 3 

0013 

= 

93 

25 

212 

1456 

C Al  CSMSC 

10,2030 

12  65 

7 

937 

981 

CDJLOGIC 

10,3576 

1397 

15 

249 

1260 

CHAN  1 4 

0014 

= 

93 

23 

174 

1419 

C Al  CT  FF 

27,3470 

1277 

1 

721 

CDUNDX 

F5 , 1536 

= 

127 

CHAN3  C 

00  30 

= 

93 

9 

16  1 

1410 

C Al.  C T HET 

27  ,2255 

765 

C,  D! JP  EA  OF 

E 5 , 1441 

= 

1 27 

CHAN3 1 

0031 

= 

9 3 

21 

281 

1444 

C Al  CTPER 

27, 346c 

1277 

1 

7?] 

CDUREADI 

E5 , 1442 

= 

127 

CHAN32 

0032 

= 

93 

3 

158 

862 

CA!  CXY 

26 , 36  23 

5 92 

1 

590 

CDIJS 

00  36 

= 

92 

4 

196 

527 

CHAN33 

0033 

= 

93 

23 

167 

895 

C At  C2BIT 

4752 

= 

70 

CDUSCMD 

0054 

- 

92 

CHAN5 

COO  5 

= 

93 

6 

2 12 

1450 

CALC3BIT 

4751 

= 

70 

CDUSPOT 

07  6 6 

101 

33 

101 

1261 

CHANfc 

0006 

= 

93 

3 

212 

1413 

CALI 

6640 

1023 

1 

IC91 

CD US PD  TX 

0772 

= 

101 

3 

872 

91  1 

CHAP. 

Cl  17 

= 

96 

5 

398 

400 

C Al  l/ITA 

01,2507 

109 1 

1 

10  12 

CDUSPOTY 

0766 

= 

101 

3 

872 

911 

CHARALRM 

40,3434 

446 

17 

398 

446 
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SYMBOL 

CHAR  IN 
CHAP  U'2 

checkalt 

CHFCKB 
CHECKCTR 
CHECKG 
CHECK  G1 
CHECKIN 
CHECK  MAX 
C HEC 
CHECKNJ 
C HECK  p 
CHFCKP22 
CHECKRR 
CHECK  TAB 
CHECKUP 
CHECK  YAW 
CHEKAXIS 
CHFK6  I TS 
Ch  HC.  rc  E 
CHFKSTIK 
C HFXFPR 
C HI  BIT  10 
CHKB"  AG 
CHKCOTS 
C HK  DAT  A 1 
CHKFAIL1 
C HK  F A I L 2 
CHKI NGTS 
CHKL A STY 
C HK  L IF 'JS 
CHKL  1ST 
CHKT  riYTJ 
CHK1  'V  AC 
C HK  POOH 
C HK  P 1 1 
C HK  T I Hi 
C HK  S 0 
C HK  S B 
CHKSD 
CHKSDA 
CHKSD  AT  A 
CHKSKCH 
C HK  up 
CHKT E MX 


DEF 

40,2077 
•+0,2112 
30,2755 
77  50 
12 ,2644 
37  ,2332 
37,2335 
17,2  246 
22,2117 
5321 
43,3332 
16,3054 

43.2672 
43 ,26(02 
C 4,207? 
16 ,20*1 
07  ,2667 
27,2137 
1 0,2:0  00 

1 •'  , 2r  1 L 
17 ,2323 
32 ,2536 
17,2205 
30,2641 
07,3073 
20,2014 

56  03 
5 6 Y7 
17 , 2612 

2 1 ,2643 
26,2201 
05 , 3532 
17,3623 
01 ,3637 
43,2123 
10 ,2427 

16.2672 
14,3261 
14,3263 
16,3302 
14,3323 
14,3256 
26,3  A >4 
43,3646 
37,3641 


H 


398 

3 9 a 

850 

13  02 
118  3 

378 

378 

1445 
3C2 

1 ?°4 
1287 

14  31 
2 80 
2 80 
227 

14  11 

851 
482 

1410 
1 9 1 0 

1446 
571 

14  44 
848 
13  13 
292 

13  81 
138  1 
1450 

904 

4 7* 

? 9 7 

1 4 o 7 

13  06 
264 

1356 

14  28 
946 
94  6 

946 

9 46 
946 
588 
1 2°  2 
8 71 


’ EFEP ENCES 

1 1338 

2 39  8 

1 8 50 

1 1299 

2 1177 

2 375 

1 37  9 

1 14  44 
1 352 

c 7 35 

3 1287 

1 1431 
1 280 
1 2 8 9 

1 227 
t 14  1 1 

2 850 

1 482 

2 1411 

1 1 4 2 0 

1 14  44 
1 570 

1 847 

1 13  14 
1 2 92 

1 13  84 

1 13  41 

1 1450 

1 9C4 

2 474 

2 1*65 
1 13  08 

6 280 
1 13  55 

4 14  28 


1195 

376 


833 

1292 


851 

1421 


946 
946 
946 
9 45 
592 
1 l?  92 
1 871 


1668 
290 
142  9 

951 


SYMBOL 

CHKVISFZ 
CriNL 12 
CHRPR1  0 
CH31TE  MP 
CH5MASK 
CH6MASK 

cr  CL 
C I '■  C 'll  AT 
CKIMUS E 
C KM DMO RE 
CKMID2 
CK MO DC  AD 
CK  . j8  IT 
C K ' Al  L 
C K TV  32 
CLEANDS° 
CLEANEND 
CLEAR 
CLEARMRK 
CLEAR 1 
CL  'AD 
CL  OCKCON 
CLOCPL AY 
CLOG 2/  32 
C.  LLKJQB 
CLOKTASK 
CLOSEADR 
C LOSE  OUT 
CL  PA  SH  I 
CLPASS 
CLP  A DM CD 
C L MOON 
cl;  OVFLW 
CIO'XFLAG 
CLR5 

CL  UPDATE 
CLUPLOCK 
CL  1 / ME  T + 
CHNTOVFL 
r mol  n 
CMOONB IT 
CMOONF LG 
CM PONE  NT 
COOXl 
CNGL 


DEF 

1 6 . 2 740 
0066 

4 355 
F6 ,1443 

1262 
1263 
34,2372 
12, 3660 

5 244 
43, 3740 
13,3633 
43,2375 
43, 2666 
82,21 0 5 
04,3506 

10.2  ' 
10,3233 
40,2467 

5474 
40 ,2522 
4 1, 2760 

10,3543 

10,2473 
30,3102 
36,2737 
36,2717 
21,3630 
17,3236 
40,2505 
1015 
6011 
13, 2711 
13,2512 
30,2716 
40,2525 
35,3664 
04,  3 3fc  1 
20,34-62 
12,2315 
0022 
4740 
0173 
30,2612 
F 5 , 1 44 5 
22,2400 


H 


1429 
1476 
4 61 
130 
105 
10  6 
636 
1 1 9 9 
1121 
1 3 88 
1224 
274 
280 
203 
1391 
135  7 
1367 
404 
1354 
4 04 
427 
1373 
1358 
856 
744 
744 
1434 
1458 
404 
102 
516 
1211 
1137 
850 
4 04 
681 
13  39 
1 T 00 
1178 
936 
79 
79 
848 
128 
387 


HEALTH  KEY:  NURMALl.Y  DEFINED  UNLESS  FLAGGED  AS  FOLLOWS: 


UN  UNDEFINED 
BD  BADLY  DEFINED 


= DEFINED  BY  EQUALS  J DEF  IT 

CD  DEFINITION  ASSOCIATED  WITH  CONFi  ICT 


REFEREL  CES 

SYMBOL 

DEF 

H 

REFERENCES 

1 

1428 

CNTABTAD 

21,2104 

830 

1 

8 30 

3 

1476 

cntchk 

07,2235 

252 

7 

158 

1392 

CNTDNDE X 

4762 

= 

7*c 

5 

733 

747 

1 2 

14  32 

1446 

CNTP.DHK 

43,3466 

128° 

11 

190 

1505 

CNTP.CON 

4771 

= 

1286 

1 

1289 

6 

191 

14*0 

CNTRLOOP 

43,3467 

1289 

1 

12c0 

3 

6 35 

COAAL IGN 

37,2301 

378 

1 

376 

1 

1 198 

COARFINE 

14  ,3360 

947 

COATS 

07,3010 

1312 

1 

1312 

COATS  E 

14,3565 

952 

3 

947 

974 

1 

1242 

COARSERR 

07,3110 

1314 

2 

1313 

3 

265 

273 

CHAP  S P FT 

15,2161 

930 

1 

948 

- 

CQARSTOL 

07,3116 

1314 

1 

1314 

; 1 

208 

C(  ARSTYP 

15,2171 

931 

1 

9 30 

3 

13  90 

GOARS  1 

07,3015 

1312 

1 

1312 

’ 7 

7 7 -T. 

7/,  z. 

r n a q c 0 

A 7 o/U  A 

1 9 1 a 

9 

i t n 

r jD 

f O 

U U AK  0 C- 

1 .5  1 J 

C- 

nl.i 

1 D 1 ‘f 

1 

1 365 

CO A SCO  DE 

07, 2137 

247 

1 

246 

1 

399 

COAST  DB 

E6 , 1603 

= 

134 

7 

1463 

1503 

2 

225 

13  54 

COAST  SET 

36,3606 

761 

1 

760 

1 

404 

COAST! J 

17,3422 

146  3 

4 

1463 

1469 

1 

4 09 

CO A TP  IN 

15,3254 

°74 

1 

9-1 

1 

1358 

COB 

0040 

= 

1148 

4 

11*3 

1144 

2 

745 

CODE 

0124 

- = 

96 

15 

399 

453 

1 

856 

CODEI TC6 

07,2123 

246 

1 

246 

1 

744 

CODES 00 

32,3254 

789 

1 

789 

4 

243 

74 '+ 

CODE? 

07,2107 

? 46 

2 

2*6 

l 

14  84 

COE  FC  TK 

0 160 

= 

1 4 96 

7 

149* 

1495 

4 

V 54 

1484 

COEFF 

20,3213 

14  96 

4 

1494 

1495 

1 

404 

COEFFQ 

E6 , 1627 

134 

7 

134 

1495 

13 

222 

454 

COEFFR 

E 6 , 16  30 

= 

134 

6 

1457 

1495 

11 

2 29 

833 

COF 

E 6 , 1670 

= 

135 

45 

352 

483 

2 

12  12 

1239 

COFMAXGO 

22,2176 

3 53 

1 

1137 

COF SKEW 

E6, 1726 

= 

135 

9 

135 

355 

1 1 

851 

COGA 

E 5 , 1765 

= 

125 

16 

125 

1198 

1 

404 

COGAFBIT 

4750 

= 

80 

1 

680 

C(  ( 4 FLAG 

0203 

= 

79 

3 

1186 

1 

13  39 

COG AM AX 

0016 

= 

1203 

4 

1193 

1196 

1 

COG AM  IN 

0010 

= 

1203 

3 

1 ic4 

1196 

1 

1178 

COGAOVFL 

12,2764 

1 136 

2 

1186 

1198 

> 2 

«35 

936 

COGlOl  IM 

04 ,306  2 

1185 

1 

1 1 °7 

1 

213 

COGUP  L IM 

04,3060 

1185 

2 

1 1°4 

> 9 

37 

1211 

COL  I N EAR 

04,3160 

1188 

1 

1188 

L 

847 

COLREG 

1117 

= 

104 

7 

104 

1243 

2 

386 

COMAOF S 

4 3,3533 

12  90 

2 

12°2 

COM FA  1 1 

36,2571 

742 

2 

242 

862 

' JOKE' 

1 OR- 

ERASE 

ANYWHERE 

MD 

MULT  I PLY 

DEFINED 

XX 

MISCELLANEOUS 

TROUBLE 

<!> 
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SYMBOL  TABLE  LISTING,  INCLUDING  OF*- 

IN I T I ON  , HEAL* 

H,  PAGE 

OF 

DEF  » 

4 CF 

1 EFS, 

PAGE  OF  FIRST 

' DEF,  PAGF 

OF  LAST  PEF. 

SYMBOL 

DEF 

H 

' EFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

rnMCA t i i 

S3  L.  0 \ C 

7/,  o 

1 

7 / , CT 

r n M ? 

in.  jii  0 

1 S3  no 

1 

1 OQQ 

rn/R 

01  K 

A TJ  -2 

1 

L r A i L i 

1 O f c.  C J.  • 

1 

’ * - 

u y t c 

A U f C.D  L C. 

i 

6 Jl  / D 

O 1 y C 1 c.  J 

1 

0 H I 

COMFAH  2 

36,2623 

742 

1 

7 45 

f ' 2 AD ! 

r 422 

1299 

1 

1299 

CSI /B 1 

34 ,21 65 

6 33 

3 

636 

641 

C0MFAIL3 

36,26  12 

742 

3 

731 

733 

COPI ES 

10,2736 

1362 

1 

13  5 5 

CSI /92 

34,2176 

633 

1 

640 

COMF A JL4 

36,26  14 

742 

2 

731 

732 

COP  I FS2 

10,273* 

1362 

1 

13  60 

CSI /B22 

34,2216 

634 

1 

634 

COMF1  AG 

5511 

1375 

2 

743 

1375 

COPINDEX 

0164 

= 

1373 

23 

1356 

1370 

CSI /B23 

34,2224 

6 34 

1 

634 

COMMAND 

E3 , 147 1 

= 

1 10 

6 

1309 

1314 

COPMPAC 

0157 

= 

1 372 

3 

1368 

1371 

CSI /B23D 

34 ,2237 

6 34 

1 

634 

COMMECS 

20,2570 

1488 

1 

1488 

COPYCYC 

33,2423 

867 

3 

E 61 

■ 608 

CSI/B3 

34,2330 

635 

1 

635 

CO  1MFX 

43,3525 

1 2 >0 

2 

1 2 Q2 

COP  YCYCI. 

33, 2276 

861 

1 

677 

CSI /CDH 

35,2000 

= 

35 

3 

621 

661 

C FMf  p-  IT 

30 , 23  CC 

=*  4 ] 

2 

;J  1 3 

861 

C0PYCYC1 

33, 2546 

876 

1 

874 

CSI  /CDH1 

34,2000 

= 

34 

1 

632 

C ' 

12,2747 

1 1 

1 

11  9C 

CCPYCYC2 

33 ,2627 

877 

CSI /SOL 

34,2737 

641 

1 

6 40 

COMMON 

36,2400 

738 

1 

732 

COPYNORM 

10, 2734 

1362 

1 

13  59 

CSI ALRM 

E7  , 1613 

141 

5 

141 

641 

C OMMONLM 

12,3426 

1195 

1 

11  96 

COPYPACS 

10 ,2*17 

1356 

1 

1365 

CSI  STEP 

34,2732 

640 

1 

640 

CCMN.EC 

07,3117 

13  14 

1 

1313 

COPY TOGO 

10,2415 

1.356 

1 

1366 

CSM CONIC 

13,3066 

1214 

3 

339 

589 

COMP 

7670 

10  46 

4 

1013 

1076 

CO*  F INC 

01 ,303  3 

1 1 11 

2 

1107 

1111 

CSMDKFLG 

0305 

= 

87 

COMPCHK 

06,3553 

3 33 

1 

3 32 

CONFOUND 

01,2636 

1107 

CSM DOCK D 

473  7 

= 

37 

11 

2°  3 

14  36 

C< "POTSP 

37,3240 

7 05 

1 

707 

COR  SCHK2 

07,3105 

1314 

2 

1313 

1314 

CSM I NT 

24,3274 

565 

1 

565 

C ' I C K 

41,2513 

416 

1 

416 

CORSIT 

15,3303 

974 

1 

974 

CSMMA  SS 

1332 

107 

7 

293 

1494 

C 

13,2237 

710 

C.OSCDU 

0744 

= 

100 

5 

100 

1261 

CS^PR  FC 

13,3043 

1214 

6 

37 

734 

COM;i  'ATX 

27,2072 

481 

1 

433 

CO SC DUX 

0750 

= 

100 

6 

478 

1266 

CSMSTI  * E 

23,2406 

697 

1 

697 

COMPMFSN 

27,2151 

4 82 

1 

682 

COSCDUY 

0 744 

= 

100 

5 

1 78 

12  56 

CSMVEC 

43,3054 

289 

I 

263 

C CMP NUMB 

1 1 70 

= 

1 04 

1C 

1 06 

130/ 

CO  jCDUZ 

0746 

= 

100 

7 

478 

1265 

CSS 

CO  16 

= 

93° 

1 

939 

COMPOS 

07 , 3052 

1313 

1 

1313 

CO  S F 

0030 

= 

1204 

4 

1 198 

1199 

CSSUN 

14  ,2605 

936 

1 

936 

COMP^EST 

41,2424 

414 

6 

414 

427 

COSI 

26,2000 

52 

2 

1 1 44 

CSS33 

14,2764 

939 

2 

938 

COMPTGO 

35 ,24  32 

650 

1 

680 

COSINE 

00,3517 

1032 

2 

1 C 1 3 

1260 

CSS40 

14,2762 

939 

1 

938 

CQMPTSri 

41 ,2426 

414 

1 

415 

COS  M G 

0061 

= 

1413 

3 

188 

189 

CSS5 

14,2603 

936 

2 

935 

936 

CO  - 12 

22 , 22 1 1 

3 54 

1 

354 

CO  7 0 HI  / 2 

0022 

= 

1247 

6 

1234 

1248 

CSTH 

E5, 1731 

= 

125 

10 

125 

1199 

CO  TF?  A 

11 ,30^2 

1 2 34 

1 

12^7 

COSPHI E 

1 1, 3241 

1237 

1 

12  34 

CSTH-RHO 

E5 ,1735 

= 

125 

4 

125 

1194 

COMZER0 

O'*  , 3 1 27 

1314 

? 

13  13 

1315 

ms  51  1 

0000 

2 35 

B 

2 35 

r ci  nil  ay 

52 

985 

Ly  ^ * PR  l_  1 1 \ 

U J UI7  H T 

\J  J f C-  J C.  J 

C0NC+S1 

43,3241 

1286 

1 

1290 

COSTH 

0020 

- 

124 

18 

299 

1253 

CSUN 

0020 

= 

936 

1 

9 36 

CCNC+S2 

43,3242 

12  86 

1 

1290 

Cn  S THE  T 1 

E5,  1576 

= 

122 

2 

122 

851 

C S3  59  + 

35 ,2415 

631 

CONICS 

12,2000 

— 

29 

3 

1 1 73 

1189 

C0STHET2 

F 5 . 1 Ann 

_ 

122 

■p 

122 

85  1 

r -r  MFT  A 

0 3 2 2 

99 

3 

369 

1415 

L_  f A UU  C 

C ‘ OL 1 H 

C Of  C S i 

; , ? f*  v. 

= 

28 

4 

45 

1186 

COS  1/2  OG 

25,3067 

552 

1 

550 

C.TL  1ST 

C 3 34 

:: 

994 

6 

092 

CONST 

30,2572 

94  P 

1 

847 

C0S15DEG 

23,2274 

520 

1 

518 

CTRCHFCK 

21 , 3676 

1 

1 

1508 

CONTABPT 

05 ,3402 

8 30 

1 

830 

CO  S60DEG 

23,2*17 

= 

593 

? 

590 

cultb It 

47  45 

= 

71 

C0NTBL2 

01  ,3665 

13C6 

2 

1308 

COTROLER 

E6 , 1631 

134 

6 

1412 

1472 

CULTED 

14,2757 

9 39 

4 

939 

CONTDESG 

26,3567 

590 

1 

5 92 

COUNT 

0143 

= 

97 

12 

399 

445 

CULTFLAG 

0065 

= 

71 

4 

938 

939 

C0NTDES2 

26,3576 

590 

COUNT' EM 

1 1, 2341 

821 

i 

820 

CULTRIX 

E5 , 1706 

= 

124 

1 

939 

CONT  IF  U 

43 ,3616 

1292 

5 

1291 

1292 

COU.'iTPL 

E 5 , 1 542 

= 

127 

CURSOR 

12  36 

= 

960 

4 

261 

959 

CONTI*  ANU 

22,3170 

3 67 

1 

366 

COVCNV 

42,3677 

488 

1 

488 

curtains 

5711 

1383 

1 1 

942 

969 

CO*  '■  c I ' V 

33 ,2  540 

875 

7 

873 

889 

C^Z  Y4 

E7, 1666 

142 

4 

686 

689 

CUTOFF 

14,2424 

85? 

4 

747 

053 

CONUMNQR 

41  ,3071 

4 29 

1 

4 28 

CPU  I 

0321 

= 

99 

1 1 

3 40 

1416 

CUTOFF  1 

14,2436 

853 

1 

853 

C0NV3 

42,3625 

487 

CPS  I 

0323 

= 

99 

5 

351 

1415 

CUT  OF  F 2 

30,2777 

8 54 

2 

853 

854 

C ON  V 4 

42,3636 

4 87 

1 

4 87 

CF  EWMANU 

43,3015 

2 86 

1 

2 62 

CVECTR 

0010 

= 

1 148 

1 

1144 

CONVC 

42,3640 

487 

1 

487 

CR  IT CON 

40,2315 

401 

1 

4 00 

CYCLSHFT 

43,3475 

1290 

CONI 

5405 

12oo 

1 

1300 

CST  /A 

34,2113 

632 

1 

623 

CYL 

0022 

= 

92 

24 

400 

1290 
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symbol  off  H REFERENCES  SYMBOL  DEF  H REFERENCES  SYMBOL  DEF  H REFERENCES 


C YR 
C 1/2 
C IMP 
C 1PP 
C2MP 
C2PP 

c 2 so; 

C 2‘  QP 
C 3/  2 
C 33  JMP 

C 33TEST 
C 5/  2 


0020 
7717 
E6 , 1723 
E6 , 1721 
E6, 1717 
E6 , 17  15 
£6,1713 

F , 1 7 1 1 

7737 

06,2763 

06,2374 

5005 


92 
13c7 
136 
136 
1 35 
1 35 
1 35 
1 35 
1093 
1 PI 
167 
10' 


46  2 32 

1 1102 


1305 


1 1102 
1 1 
6 1 
1 1 102 


166 


D AC  I P IT 
D AC  t.  C r P 
DAD 

DAI  TP  ATE 
DAMPING 
DANZ IG 
DAPAR UPT 
DAPATT ER 
0 AP  B ! TS 
DAPBOOLS 
DAPBQP PT 
DAP DATA  1 
D APDATA2 
D APO  A'J  A3 
DAPOATR  1 
DAPDAT2 
DAPDISP 
DAPIDLER 
DAPLP UPT 
D APS  1 
DAPS2 
DAPS3 
DAPS4 
DAFT  EMP 1 
D A 0 r F M P 2 
DAPTEMP3 
D APT F MP4 
DAPTE  P 
DAPTEMP6 
D APT  REG1 
D APT p EG2 
D APT  7 EG3 


20 ,2432 
20,2374 
6775 
E7  ,1716 
17,2345 
6061 
E6 ,1753 
4 3,21  S3 
05,3601 
01 1 1 
E6, 1755 
20 , 20C4 
Cl ,2233 
0 1 , 2300 
1 34  3 
01  ,2250 
43,3135 
16,2024 
F6, 1754 
16  ,2000 

17.2000 

20.2000 
21 ,2000 
F6 ,1737 
E 6 , 1 740 
F 6 , 1 7 1 
E6 ,1742 
E6  , 1743 
E6 , 17  44 
£6,1745 
EC  ,1746 
E 6, 1747 


14  19 
14  19 
1026 
151 
1446 
10  03 
137 
2 66 
332 
86 

1 37 

2 9 2 
294 
2 °5 
107 
294 
202 

1411 
1 37 
31 
31 
31 
31 
1 36 
1 36 
136 
1 36 
1 36 
1 36 
136 
1 36 
1 36 


3 1419 
1 14  1® 
1 1011 
3 151 

1 1446 
64  548 


89  8 


5 

1 

1 

1C 

2 

1 

3 


137 
262 
831 
2 12 
1428 
2v2 

294 


1402 

1458 


1509 
145  8 


10  2°2 

1 294 
1 262 

2 222 


295 

314 


1413 


4 

4 

6 

3 
2 9 
1? 

8 

4 


1 1 
3 
1 
1 


14  10 
1404 
42 
1472 

130 

131 
131 
131 
131 

131 

132 

i • 3 

133 


1476 

14  60 
1497 
1508 

1470 

1471 
1471 
14-47 
142  5 
1470 
150  9 


DAPTREG4 
DARTRE  65 
DARTRE Gb 
DAPT4S 
D A P Z F UPT 
DAS AMP  L 
DAT  A FA  1L 
DAT AGO HD 
DATA OUT 
DAT APL 
DATGDCHK 
DA  XM AX 
DAY/2M AX 
DAZMAX 
DB 
DP  8 1 
DBB2 
DBB3 
DB84 
DB  FUN 
08  ODE 
QBSE! ECT 
DBSELFLG 
DSVAL1 
DBVAL2 
DBVAL 3 
DC  OH 
DC  MC  L 
DCMTOCDU 
DCOGA 
DCOiMP 
DC  PM PT ST 
DCTSTC YC 
DDUMCALC 
DDUMCR IT 
DDUMGOOD 
DO  V 

DDV/3DDV 
DDVCAL L 
DEAD 
DEB  IT 
DEC-12 
DEC-6 
DEC3RNCH 
DECCNTR 


fc6, 1760 
£6,1751 
E6 ,1752 
06,3132 
E6 , 1757 
25,3344 
25,3461 
E 7 , 1733 
21,2233 
F5 ,1472 
26,3654 
30,3767 
30,3771 
30,3767 
I 346 

0143 

0144 
0146 

0145 
20,3556 
20,3365 

4750 
0316 
1346 
0114 
0 1 1 5 
E6 , 1635 
39,3232 
22, 2654 
0014 
7705 
41,2437 
41, 2452 
32,3102 
32,326 1 
32,3163 
7577 
00,2353 
00,3004 
27,2230 
5522 
12,2016 
12,2015 
1 000 
33, 236fc. 


HEALTH  KEY:  NOPMALLY  DEFINED  UNLESS  FLAGGED  AS  FOLLOWS: 


137 

137 

137 

1 Bg 

137 

558 

560 

144 

999 

127 

592 

925 

925 

925 

107 

150* 

1505 

1505 

1505 
150  2 
14  99 

38 

88 

1506 
1506 
1506 

136 
913 
362 
12  03 
1046 
415 
415 

787 
789 

788 
1044 
1 057 
1068 

751 

1375 

1101 

1101 

101 

362 


10 

5 

7 

3 


1 

1 

5 
2 

1 3 
1 
2 
2 
1 

6 

5 

3 

4 

6 


131 
131 
133 
159 
14  12 
559 
556 


1426 
14  2 6 
1426 
18° 
1453 


DEC  OS  P 

DECDSP3 

DEC  END 

DECON 

DECOUNT 

DEC QT I MR 

DECRET 


41,2523 
41,2575 
40,2265 
4-0  ,2322 
0117 
16,2710 
Cl  15 


416 

417 

400 

401 
96 

1428 

96 


1 

2 

2 

1 

27 

1 


6 1497 

2 1497 

3 14-97 


1503 
149  9 
1503 


DEC  5 8 5 
DEC66 
0EC70 
DEFIJNC 
DEG.  5 


37,3055 

31,2501 

04,2400 

21,3240 

15,2467 


388 

800 

233 

1474 

960 


408 

417 

400 

400 

4-10 

1428 

429 


433 


430 


144 

E 99 

552 

900 

DECROUND 
DECT  T I MR 
n p r t f v 

40,3261 

16,2712 

0122 

41,2443 

442 
1428 
= 96 

415 

1 

1 

3 

2 

44  1 
1428 
416 
414 

■J  f — 

592 

D 1 7 

L/cU  I u r 

DECTEST 

415 

916 

92  5 

DECTOB IN 

4 0,2232 

600 

1 

400 

916 

925 

DEC TWO 

34, 3641 

730 

1 

724 

' It 

DEC  17 

4361 

= 331 

3 

373 

859 

212 

1506 

DEC  22 

43,2677 

280 

1 

280 

1498 

1503 

DFC227 

15,2561 

962 

2 

9*7 

961 

1498 

1502 

DEC  23 

42,2033 

275 

1 

275 

1499 

1499 

1502 

1502 

1503 

DEC27 

DEC  29 
DEC45 

4 7 66. 
4765 
4772 

= 1096 
= 1096 
1096 

2 

1016 

1089 

1499 

1 4-07 

DEC  51 
OEC58 

04,3253 

37,2476 

1332 

381 

1 

375 

376 

795 

227 


801 


1 1474 


1 958 


UN  UNDEFINED 
BO  BADLY  DEFINED 


= DEFINEO  BY  EQUALS  J DEFI1 

CD  DEFIM  ril'H  ASSOCIATED  WITH  CONFLICT 


1 

9 19 

DEGCOM 

40 , 26*3 

410 

1 

418 

2 

365 

483 

DEGCON  1 

40,3074 

632 

1 

431 

4 

1195 

1 196 

DEGINSF 

40,3010 

431 

2 

631 

2 

1C  46 

DEGINSF2 

40,3021 

431 

2 

414 

DEGCIJTSF 

40,2615 

418 

2 

417 

418 

2 

429 

430 

DFGREE1 

14,3411 

948 

1 

° 47 

1 

8 12 

DECT A B 

40,2673 

419 

2 

418 

419 

1 

7 87 

DEG30 

15,2465 

960 

2 

251 

953 

1 

787 

DEG359 

14 ,3*12 

948 

I 

947 

1 

1011 

DEG60 

15,2471 

960 

2 

8 24 

1044 

DEL 

E6, 1745 

= 1 32 

3 

1474 

1476 

1 

1068 

DELATE  X 

5235 

1120 

1 

1119 

2 

7 51 

DEL  AY  JOB 

00.3T35 

1377 

15 

208 

151 

3 

743 

1375 

DELAYLOC 

1326 

107 

6 

222 

1377 

DEL AYNUM 

47  5 2 

= 37 

1 

1377 

DELCQUX 

E6, 1640 

134 

6 

134 

1421 

18 

399 

447 

DELCDUY 

E 6 , 1 6 4 1 

= 136 

3 

136 

14  21 

1 

862 

DELCDUZ 

E6 , 1642 

= 134 

3 

136 

1421 

KE  R 

OR  1 

F P ASE 

ANYWHERE 

MD 

MULTIPLY 

DEFINED 

XX 

MTSCEt LAN ECUS 

TROUBLE 

3 

• 

t 

t 

• 

i 

« 


* 
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SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

DEL  CC'MP 

22,2527 

3 59 

3 

364 

482 

DEIVGV 

E4 ,.  1622 

116 

5 

316 

710 

OFF  NT 

40,3364 

445 

DEI  DC  DU 

E6 ,1640 

= 

136 

2 

365 

369 

DEL VR E F 

F7 , 1526 

- 

1*7 

5 

147 

880 

DGBF 

20,3077 

1494 

2 

1490 

D EL  DC  DU  1 

E ~ , 1 64  l 

= 

136 

1 

3 69 

DEL  VROD 

E7 ,1766 

= 

151 

j 

151 

81  8 

OGB ITS 

25,3147 

554 

2 

5 54 

558 

DEL  DC  DU 2 

E6 ,1642 

= 

136 

1 

3*9 

DEL  Vc 

E7, 1733 

= 

151 

9 

151 

«02 

DGCHECK 

25,3442 

560 

2 

556 

558 

DELDEP 

E5, 1757 

= 

1 25 

C 

125 

1183 

DELVSA8 

E7 , 1663 

= 

142 

4 

142 

76  5 

DGCHECK2 

25,3345 

558 

2 

5 59 

D EL  DV 

E7 , 1611 

141 

15 

141 

640 

DELV  SI  N 

E7.1655 

= 

142 

16 

142 

76  5 

OGOCD? 

32,2741 

60* 

DELEL 

E7 ,1575 

= 

I I 

4 

667 

670 

DEL VSL  V 

E7 , 1433 

= 

139 

2 

198 

617 

DGOODCHK 

25,3000 

551 

1 

551 

DELEI.O 

CO  32 

= 

fc  6 1 

3 

667 

670 

DELVTbST 

27, 2252 

765 

DIDFLAG 

0020 

= 

67 

D E L E r'  l IM 

30,3771 

= 

°25 

1 

913 

DELVTPF 

E4,  1747 

HR 

4 

198 

727 

D I DEL  B I 7 

4736 

= 

67 

4 

217 

907 

DElGf'BLP 

30,3300 

6 14 

1 

914 

DEL V TP  I 

E 7 , 1575 

1*1 

7 

141 

727 

DIFEQ+O 

11  ,3466 

1241 

1 

1237 

DEL INDEP 

0014 

= 

12  04 

2 

1182 

1183 

DELVX 

0324 

= 

99 

12 

326 

671 

DIFEQ+1 

11,3472 

1241 

1 

1237 

DELLOOP 

00,3740 

1377 

1 

1377 

DEL  VY 

0326 

= 

99 

10 

329 

871 

DIFEQ+2 

1 1,3503 

1241 

1 

1237 

DELLT4 

E7 , 14  31 

1 39 

• 8 

154 

766 

DELVZ 

0330 

= 

99 

9 

329 

871 

D IFEQCNT 

E3, 1500 

110 

25 

110 

1243 

DEL  M 

E 5, 1 550 

= 

123 

5 

386 

DELX 

E 5 , 1642 

= 

125 

6 

125 

1178 

DI FEQCOM 

11,3646 

1243 

2 

1241 

DELMAX1 

34,2105 

6 32 

2 

640 

DEP 

0036 

= 

12  04 

l 

1182 

DIFEQTAB 

1 1,3247 

1237 

1 

1237 

DELHI  P 

3 7 ( 2 64  0 

385 

A 

DFPRre  tT 

22,3657 

827 

2 

805 

DI  FEQO 

1 1 , 3342 

1238 

12^  2 

L>  I — 1 T\  O IN  1 1 

DEI  < 

12,2632 

1183 

1 

1182 

DEPP  EV 

E 5 , 1761 

= 

125 

3 

125 

1182 

DIFFAl T 

E 7 , 1577 

141 

5 

194 

648 

D E l D r- ' OF 

1277 

106 

5 

367 

1438 

DERC  LOOP 

31 , 3605 

824 

1 

824 

DIMOB  IT 

*7  53 

= 

71 

DELQEROR 

1340 

106 

3 

3 69. 

1451 

DERCOF +1 

0153 

= 

98 

DIMOFLAG 

0073 

= 

71 

23 

236 

1243 

DEL  OF  IX 

F 5 ,15.20 

= 

121 

2 

121 

885 

DEL  COF- 1 

0151 

= 

98 

DIMDX 

0063 

= 

137 

6 

14  19 

DEL  n 

1301 

106 

3 

3 69 

1453 

DERCOF -2 

IT 

= 

98 

DIRADRES 

6106 

100* 

2 

1018 

DEL  l'  - PL 

22,3541 

= 

37 

OF’  COF-3 

0147 

= 

98 

DI S DV 1 VC 

35,2370 

630 

2 

623 

6 45 

DELT 

E5 ,1644 

= 

125 

3 

125 

1176 

DERCOF-4 

0146 

= 

98 

DISGRVER 

15,2771 

967 

1 

965 

DELTACSM 

F3 ,1572 

1 1 1 

1 

585 

DERCOF-5 

0145 

= 

98 

DISINDAT 

21,2324 

900 

2 

898 

899 

DELTAH 

E 7 ,1664 

= 

150 

6 

150 

8 3 5 

DEL  COF  —6 

0144 

= 

98 

DISPCHNG 

36,2376 

737 

4 

731 

737 

DEL  TALEN 

E 3 , 1 644 

1 11 

1 

585 

DEL COF-7 

014  3 

= 

98 

DI  SPCOMN 

31 ,3*74 

81* 

2 

815 

DELTAQ 

E7 ,1546 

= 

1 4 5 

8 

145 

1 1 51 

0 1 4:2 

= 

98 

OISPDEX 

1163 

104 

24 

148 

831 

D ELD  AP 

E4 , 1 702 

1 17 

6 

1 17 

726 

DERCOF  N 

0152 

_ 

98 

1 

82  5 

DISPEXI T 

3 I . 34  SO 

8 14 

3 

813 

819 

J L J J 1 U U 

DELTATM 

E7 ,1426 

- 

139 

2 

511 

DERPTR 

0141 

= 

98 

3 

823 

824 

DISPGYRO 

15,3313 

97* 

1 

971 

DEL  TATUK 

04,3622 

1393 

1 

1393 

DEP.  TAB  LL 

31, 3676 

825 

1 

823 

DISPLACE 

41,3066 

428 

2 

428 

DELT  AX 

E5 , 1664 

= 

126 

12 

126 

1156 

DESASCNT 

0CG4 

= 

236 

3 

235 

DISPL AYE 

35,3674 

682 

2 

661 

662 

DELTEE 

E7 ,1611 

= 

141 

D E c C 3 1 TS 

20, 2115 

322 

1 

255 

DISPLAYS 

1 0,2000 

= 

2° 

3 

13  54 

1382 

DEI  T E EG 

E 7 , 1 6 C 5 

= 

141 

t 

6 70 

r,F  .c  iui!  i 

1114 

103 

4 

509 

546 

DISPNCT 

36,3012 

746 

1 

7*5 

DELT  I WE 

12,2421 

1 1 8 0 

3 

1176 

1 1 95 

DESGLOS 

26 ,36  36 

592 

1 

590 

DI  SPN5X 

37,3113 

703 

2 

703 

DELTTFAP 

E 7, 142 5 

138 

1 

802 

DESIGI3  IT 

4742 

= 

85 

10 

530 

876 

DISPP  SET 

21,3053 

907 

2 

898 

900 

delttime 

E4 , 1704 

= 

1 17 

3 

1 17 

726 

DES1GFLG 

0271 

= 

85 

DISTEM 

0122 

= 

96 

3 

414 

DELV 

0324 

99 

9 

99 

966 

DESLOOP 

25,2600 

546 

5: 

546 

593 

DIVIDER 

16,2304 

1422 

2 

1422 

D EL  VC  S I 

E7 , 1573 

1 41 

16 

141 

640 

DESP  FT 

1113 

103 

10 

103 

54  3 

DK  ALT 

16,3441 

1437 

1 

1438 

DEI  VCTL 

E7 , 1501 

= 

147 

3 

758 

759 

DESRETRN 

25,2446 

541 

1 

540 

DKDB 

E 6 , 1 4 1 1 

129 

2 

213 

1510 

DEI  VEFT1 

E* , 1666 

1 16 

8 

194 

*3* 

desrtrn 

25,2452 

541 

2 

541 

DKKAOSN 

F6 , 1405 

129 

1 

213 

DELVEET2 

E 4, 1674 

1 16 

6 

194 

649 

DETENTCK 

16,3071 

1432 

2 

16  30 

1431 

DKOMEGAN 

E6 , 1404 

129 

2 

213 

142  5 

DELVEET3 

E4 , 1765 

= 

1 19 

18 

194 

780 

DEXDEX 

0142 

= 

98 

7 

1259 

1264 

DKTRAP 

E6 ,1403 

129 

2 

213 

1425 

DELV  I N U 

E 7 , 1622 

142 

7 

316 

763 

dexi 

0143 

= 

98 

1 

1263 

DLAYJOB 

OG, 2000 

= 

28 

1 

1377 

DELVLVC 

E7 ,1433 

139 

20 

139 

709 

DE  XI 

014  3 

= 

98 

5 

98 

126  + 

DLOAO 

6052 

1002 

1 

1011 

DEI  VM  I D 

E 7 , 1 5 75 

= 

141 

DEX2 

0144 

= 

98 

DLOAD* 

7733 

1 098 

1 

1006 
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SYMBOL 

□LOAPCOD 

DLY2 

0 MEN F BIT 
D MEN  F I G 
DMQDE 
DMP 

DMPNS.UB 

DMPNTEMP 

0 MPR 

DMPSUR 

0MPSUB2 

DMP1 


DEF 

7732 

5212 

4743 

0121 

7332 

7103 

7316 

0135 

7574 

7107 

7126 

7572 


H 


DNADRDCF  0 2,3531 


DNDUMP 
DNDUMP I 
D'vDMMPi 

DNDUMP 2 
DNEC  ADR 
ONE DUMP 
DM  '10F.X 


C " ,3722 
05 , 3 7C7 
05,3735 
05,3737 
0336 
43,3045 
1335 


109a 

1119 

74 

7 /j 

1038 
1031 
1037 
97 
1 44 
1031 
1031 
1 044 
992 
9 96 
996 

int 

996 
994 
283 
1 09 


’EFERENCES 

1 1018 
2 1119 

7 5 35 

1 1077 
21  400 

1 82.4 

2 1037 
1 1011 

25  1033 
1 10  36 
1 1011 
994 


137  7 
1157 
1 266 


1 

1 

2 
1 
1 

15 

2 

4 


996 

2 68 
996 
996 
991 
262 
1 )7 


SYMBOL 

DOCKTEST 
OOC«RA  SE 
DOC  SM 
DF'CSMl 
DODAT 
DODELV  Z 
DGDES 
DC DE SEND 
DO D LOAD 
1266  DODLOAD* 
DQDNADR 
DODNCHAN 
OUDMPTf 
DODOWNTM 
996  Of' F START 
DO?  STR T 1 
DO  I NT 

994  DO  I NT2 
288  DO  IT 
5 59  DOS.  EM 


DN1  ADI  11 

04,2500 

235 

1 

231 

DONBRD 

DNLADPOO 

4755 

= 

235 

1 

229 

DONE  ADR 

D NLP ALT 

1 34  1 

= 

107 

DONE  YET 

DNLRVELX 

13  36 

= 

1 0? 

4 

107 

196 

OOP  A XI S 

DNLRVFLY 

13  37 

= 

107 

1 

107 

OO  P I F 

DNL'VELZ 

1340 

= 

107 

2 

1C  7 

1 94 

DOPE  OC 

DNLSTACP 

03  32 

= 

90 

DOROTAT 

n Ml  crron 

0 3 32 

96 

1 0 

QQ 

1 

DPP R epos 

U • V L G'-'U 

1 v 

I D 7D 

DNPWASE1 

05,3515 

991 

2 

222 

996 

DORI  HJT 

DNPHASE2 

05,3523 

991 

1 

993 

DOR  SAMP 

ONQ 

0337 

■= 

99 

2 

99 

994 

DON SAMP 2 

ONE  ■’  ANGE 

1333 

107 

6 

107 

606 

DO'  START 

D NRRDPT 

1334 

= 

107 

1 

107 

DU  SH IF  T 

DNTAB1  E 

05 , 2441 

2 04 

1 

992 

DDSKTP 

DNTMBUFF 

0340 

= 

99 

22 

154 

996 

DOS  SHF  T 

DNTMEX IT 

05,3701 

994 

6 

9 c2 

997 

DPS  TORE 

DNTMf 

06,2671 

178 

1 

181 

DQSJBLST 

DNTMGPTG 

0335 

= 

99 

9 

99 

997 

DOSr  ITCH 

D NT  1 1 

0 034 

= 

93 

1 

994 

DOT 

D NT  M 2 

0035 

= 

G3 

1 

eg  4. 

DOTERM 

D0ACCFUN 

20,3733 

1504 

1 

1500 

DOTICK 

DOAL  ARM 

5155 

= 

1384 

DOT  INC 

DOAL IGN 

13,3121 

9-M 

DOTIXBR 

DOCK  FD 

20,3105 

1 494 

1 

148? 

DOT PER 

DOCKTEMP 

0157 

= 

14  Of. 

A 

1.4  3 6 

14  91 

ddtret 

DEF 

20,2773 
37,3144 
23,  3234 
23, 3237 
07,2074 
37, 3570 
25,2636 
25,3064 
6460 
6144 
05,3524 
05,3572 
05,3611 
05,3506 
05,2474 
05,2501 
13,2036 
13,2060 
31,2312 
26, 2454 
25,2661 
37, 365^ 
21,3427 
20,3270 
31,2302 
40,3601 
17,2743 
25,2127 
25,3017 
25,2023 
25,2027 
05 , 27  30 
21 ,3537 
17,3010 
00,2322 
6362 
05, 3665 
11, 3376 
7331 
40,3577 
22 ,3*41 

0136 
01,2424 
22,3622 

0137 


H 


1491 

704 

1157 

1157 

246 

870 
548 
552 

1018 

1006 

991 

992 

993 

991 
211 
211 
236 
236 
795 
5 75 
548 

871 
1480 
1497 

794 
459 
14-53 
529 
551 
490 
490 
215 
1482 
1454 
1055 
1014 
9 94 
1239 
1033 
4 5q 
716 
97 

1088 

721 

97 


REFERENCES 

2 1491 
1 707 

1 1156 
1 1156 
1 246 

1 871 

1 546 

1 552 

1 1C  15 

2 IMS 


SYMBOL 


DEF 


REFERENCES 


1504  DOTSUB  7156 

DOT  SW  F MX  30,3766 
DUT6RUPT  17,2065 
DOURt K 40,2575 
DOVLOAD  6463 

DOVIOAD*  6466 
DOW..  11,3705 
DOW..  1 1 1 ,3733 

D0WNENT2  10,3554 
1019  DOWNFLAG  5516 
DOWNGTS  20,3706 


DOWNTFLM  05,2000  = 


992 
153 
218 
217 
236 
236 
796 
575 
6 43 
87  1 
1480 
1 1497 

1 794 

2 -+58 
2 1453 

1 187 

2 551 

1 490 


1 2 15 

1 1453 
1 1055 
1 1003 

1 993 

2 1237 

1 1011 
1 458 

1 716 

7 97 


154 

218 


DOW NT  OR K 
D01/NET+ 
DP  (—22) 
DP-.O] 
DPAGREE 
DPB-14 
DPBIT  14 
DPOAT  1 
DPDAT3 
DPHALF 
DPINCOM 
DP  I NORM 
DP  INS F 
MO  DPI  NS F 2 


E6, 1513 
20,3724 
27,3760 
35 ,3741 
7255 
26,2410 
0 1 , 3477 
20,2037 
01,2315 
23,2517 
40,3131 
40,3137 
40,3114 
40,3141 


1033 
925 
1405 
405 
1018 
1018 
1245 
1245 
1374 
1 375 
1 504 
29 
132 
1 504 
1283 
684- 
1036 
484 
1131 
292 
295 
1100 
43  3 
433 
433 
433 


2 

3 

96 

2 

2 

7 

2 

1 

7 


3 1039 
1 919 

1 154 

2 404 
1 1015 

1 1015 

2 1238 
1245 

1364 

208 
1491 
193 
132 
1500 
1278 
680 


2 481 

1 1131 
1 292 


1 

12 

1 

1 

4 

1 


721 

97 


DPINSF4 

HD  T O A V 

40,3146 

E 5, 1522 

433 

= 128 

1 

2 

D r I r-  A T 

DPI  PA  Z 

DPI.  1 

DPL3 

F 5 , 1526 

30.3722 

30.3723 

= 128 
923 
923 

1 

1 

1 

DPI  5 

30,3724 

923 

1 

DPI? 

3C  ,3725 

923 

1 

D°L9 

30,3726 

923 

1 

DPMODE 

10, 3716 

1 401 

1 

DPOSMAX 

47  3 2 

1095 

3 

PPGUT 

40,2723 

420 

3 

123  3 

DP P OS  MA  X 

23,2527 

1100 

9 

DPS  BU  c N 

E 6 , 1750 

= 131 

DPSFL ITE 

20,2522 

1487 

1 

DPSTHRSH 

32,2000 

40 

1 

1039 

DPSVE  X 

33,2001 

39 

2 

DPTEST 

41,2261 

410 

4 

DPTEST1 

41,2301 

411 

4 

1 073 

DP  ZERO 

12,2006 

= 1246 

3 

2G5 
353 
433 
433 
431 
431 
431 
385 
385 
923 
923 
5 23 
923 
923 
701 
441 
419 
2oq 


785 
7 54 

410 

41 1 
938 
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405 

1243 

1369 

1366 

991 

1470 

1501 

483 

771 

433 


1401 

706 

833 

430 

1238 
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SYMBOL 

DEF 

H 

R EFERENCES 

symbol 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

DPO 

0036 

940 

DSPCADR 

16, 2211 

1413 

1 

1413 

DSP  TAB 

1023 

102 

48 

156 

1382 

DPI 

0 0 40 

: 

940 

DSPC NT 

07  76 

101 

7 

157 

222 

DSPTEMX 

1051 

= 

102 

8 

102 

702 

DPI/ 12 

15,2465 

= 

251 

1 

250 

DSPC0M1 

41,2371 

414 

3 

6 14 

415 

DSPTE V1 

10  45 

102 

31 

102 

976 

DPI/? 

1? , 20U4 

= 

1136 

5 

1 136 

l 16  8 

DS  PC0M2 

41,2405 

414 

2 

6 14 

DSPTEM  2 

1050 

10? 

12 

102 

381 

DPI/20 

33,3026 

881 

1 

880 

DS  PC0M3 

41,2413 

414 

1 

814 

DSPV6N79 

07,2627 

261 

3 

256 

261 

DPI/-' 

12,3755 

12  46 

3 

1 199 

1246 

DSPCGUNT 

0777 

101 

66 

158 

1 338 

DSPWDF  FT 

0144 

= 

97 

3 

441 

DP1/4TH 

23  ,2511 

1100 

6 

37 

1151 

DSPDCEND 

4 1 , 2 5 6 fc 

417 

6 

417 

423 

DSP2BIT 

41,3416 

444 

1 

447 

DP1/B 

07,2622 

260 

1 

253 

DSPDCGET 

41,2527 

416 

1 

416 

DSP2CADn 

36,3136 

749 

1 

739 

DPI  MIN 

2 -'  ,2121 

341 

1 

3 39 

DSPOCP  UT 

41,2537 

416 

1 

417 

DSP2DEC. 

40,3273 

442 

1 

4?4 

o p i o i n s f 

40,2710 

419 

1 

417 

DSPDCWD1 

40 , 3233 

44  t 

4 

442 

DSQ 

00,3174 

1075 

1 

1013 

DP21-3) 

27 ,3762 

1283 

1 

1280 

DSP DC 2 NR 

40,3266 

442 

3 

422 

443 

DSQSUB 

00,3300 

1078 

5 

1075 

1083 

DP2I-4) 

27 ,3764 

1283 

1 

1274 

DSPDECNR 

40,3262 

442 

DSREL 

0141 

= 

97 

6+ 

444 

445 

DP2/3 

12,3773 

1246 

3 

1227 

1246 

DS  P D EC  Vi  ! 

40,3306 

44  3 

4 : 

420 

45  3 

DShUPTEM 

007  3 

= 

95 

5 

157 

DP20UTSF 

40,2716 

4 10 

2 

417 

DSP  DEC  WD 

40,3226 

4 4 1 

4 

6,  17 

421 

DSL  UPTSW 

13  13 

106 

10 

156 

221 

DP30UTSF 

40,271  / 

419 

1 

4 17 

DSPDEL AY 

40,3700 

703 

1 

703 

DSU 

70  05 

1028 

1 

1011 

0 pc / i ( 

04,3050 

1136 

L 

1 1 77 

1 1 

OS PO PD EC 

40 ,2771 

4 24 

L 

1 08 

DT 

E7 , 1716 

161 

7 

1 r 1 

602 

D QUA  T 1 

12,3755 

= 

1246 

2 

1232 

DSPFI  G 

1070 

= 

1372 

3 

1365 

1 366 

DT/DELT 

30,3774 

9 25 

1 

918 

DRDOT 

E4 , 1736 

= 

120 

lx 

120 

848 

DSPFMEM 

41 ,3353 

440 

1 

409 

DT/TAU 

22,3121 

366 

1 

365 

DPFDB 

20,3652 

1503 

1 

1503 

DSPIN 

40,3322 

444 

- a 

399 

6+45 

DT/  2 

E4 , 1475 

= 

1 14 

11 

114 

1243 

DRFT8IT 

4735 

= 

6« 

3 

165 

) 315 

DSP  INI 

40,3347 

445 

2 

6;  44 

44  5 

DT/2C0MP 

13,3320 

1218 

1 

1219 

DPFTr-UB2 

06,3474 

332 

1 

3 36 

DSP  LAY 

06,2047 

157 

1 

157 

DT/2MAX 

13,341? 

121° 

2 

12  18 

1219 

D -t/  : 

17,3414 

1463 

1 

1463 

DSPL1ST 

1043 

102 

6 

222 

46  6 

DT/2M  IN 

13,3410 

1219 

1 

1219 

DRIFTBIT 

4744 

= 

87 

7 

740 

16  09 

DSPLOCK 

1012 

102 

12 

222 

1370 

DTDEC AY 

36,2004 

38 

1 

833 

DRIFTDFL 

0312 

= 

87 

1 

742 

DSPLV 

41,36  13 

443 

DTHET  ASM 

12  64 

105 

1 

1C5 

DPI  FT  FR 

0116 

= 

1506 

3 

1 6 97 

149  8 

DSP  LYALT 

4750 

- 

1419 

2 

1414 

DUMMYAD 

04,216+6 

229 

1 

232 

DRIF 

0036 

= 

68 

3 

«63 

952 

DSPLYMSK 

20,2113 

293 

1 

292 

OfM  MY  JOB 

C 1,3206 

1 116 

2 

213 

1115 

DPI F"  I 

E6, 1 504 

= 

1 28 

1 

375 

DSPLYTOT 

20,2252 

1415 

1 

1 4 1 5 

DUMPCNIC 

27, 3476 

1272 

DRIFTO 

E q , 1 502 

_ 

1 28 

377 

DSP'  Y5  8 

34,3502 

727 

1 

727 

0 1 1 M P C N T 

08  3 3 

go 

2 

211 

996 

UU!  T G M J 

DRIETSUB 

06 , 3454 

332 

3 

328 

1 PLY81 

34  ,3505 

727 

1 

727 

D'J  M PL  DC 

0336 

= 

99 

C 

996 

DRIFTT 

E5 , 1442 

= 

128 

1 

376 

DSPMM 

04,2636 

457 

1 

468 

DUMPP.  PRA 

27,3464 

1274 

D R I V E UN 

21 ,3425 

14  80 

1 

1480 

DSPHMJB 

40,3534 

458 

2 

457 

129-V 

DUMPTFF1 

27, 3547 

1278 

D SAL N OUT 

0011 

= 

93 

36 

17] 

1396 

D : PM  1J OB 

40 ,3536 

= 

12  94 

1 

12  94 

DUMPTFF2 

27,3644 

127° 

0 SEX  I T 

01  14 

= 

96 

3 

4 4 4 

445 

DSPMMTEM 

014Q 

= 

97 

2 

6 58 

DUNFVl  IM 

30 , 37  64 

025 

1 

919 

DSKYFBIT 

4735 

= 

7? 

1 

1338 

DSPMSK 

4757 

= 

444 

1 

443 

DV/SC 

76  36 

1 045 

2 

1045 

DSKYFLAG 

0113 

= 

73 

DSPOCT IN 

40,3412 

445 

1 

443 

DVBYCCSM 

30,3600 

921 

4 

920 

DSL  V 

40  ,3376 

445 

2 

445 

DSPOCTWD 

41 , 3363 

463 

3 

406 

440 

DVCMTR 

E 7 , 1 5 15 

= 

149 

54 

147 

1384 

DSMAG 

01  ,2 

= 

97 

2 

445, 

DSPCiFF 

05,3274 

221 

1 

221 

DVCNTR1 

E7 , 1 570 

= 

864 

2 

862 

DSMSP 

40,3400 

445 

2 

6 4 5 

DSPOPTN 

15 , 3430 

976 

3 

976 

977 

DVCNTSET 

33,2323 

861 

D SPA 

41,2365 

414 

1 

4 0f 

DSP PUT 

06,2063 

157 

2 

1 56 

DVFCTR 

00  1C 

= 

1 148 

1 

11/5 

DSPAB 

41 , 2360 

414 

6-0  8 

DS PnUTSB 

06,2024 

1 57 

? 

I 67 

160 

DVLOS 

F4, 1702 

_ 

117 

c 

117 

675 

DSPABC 

41,2353 

414 

1 

408 

DSPRND 

40,3215 

441 

1 

441 

DVMAX 1 

34,20 63 

632 

1 

634 

D SPA 

4227 

455 

3 

455 

DSP'  RL  OS 

40,2000 

299 

1 

299 

DVMAX2 

34,2065 

632 

1 

634 

DSPALA' 

40,3420 

446 

6 

4C8 

431 

DSP SCAN 

06,2032 

157 

2 

1 57 

DVMON 

33,2314 

861 

DSPB 

41  ,2  373 

4 14 

1 

408 

DS  PSFNQR 

41,2562 

417 

1 

617 

DVMONCON 

36,2550 

740 

DSPC 

41  ,2400 

414 

1 

408 

DSPSIGN 

40,3200 

441 

4 

6' 41 

442 

DVNDRM 

00,2505 

1060 

3 

1059 
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SYMBOL 

DVNOPMCT 
DVOVF 
D VCVC  UB 
DVPREV 
DVSIGN 
DVTHRU  H 
DVTDT AL 
DVXSC 
DWNRPTBB 
#XCOMP 
DXCP  TT 
D X C IT+1 
DXCRROR 
0 Y DO  T 
D Y E R P f P 
DYNMD ISP 
DZDQT 
DZE 


DEF 

0137 
00,2405 
20,2776 
E7, 1575 

0136 
1251 
E7 ,1507 
74  30 
4062 
12,21*55 
0126 
0125 
Et> , 1446 
E4, 1740 
E6 ,1450 
36,3361 
E4 , 1742 
E6 , 1.452 


97 
10  57 
1492 
1 '-l 

97 
105 
147 

1041 
1 64 
1175 

98 
98 

1 30 
1 20 
1 3 E 
757 
120 
1 30 


REFERENCES 

fc  10  5 7 
11  1059 
5 1489 
f.  ja 

10  67 
1 05 
14/ 

1 040 
1 53 

1 1175 

2 6 23 


SYMBOL 


DEF 


REFERENCES 


SYMBOL 


DEF 


& 

10 

7 

6 

2 

1 


1068 
107  0 
1495 
639 
1074 
861 
861 


1 30 
1 20 
1 10 
756 

1 20 
130 


14  3 5 
343 
1448 
757 
849 
1448 


EAFTHPAD  22,3367 
37,2420 
37,2447 
0003 
1070 
1072 
5007 
4741 

5014 

5015 

5016 
1 167 

ECC  E.5,1751 

ECDUW  E6 , 1 646 

ECDUWL  30,376  1 

FCDUWUSP  E6, 184.6 

0023 
E6 , 1427 


FA  RTHR 
FAT  THR* 
FBANK 
FRANKS  AV 
EBANKTEM 
EBANK3 
E BA’  <4 
FBANK5 
E8ANK6 
825  FBANK7 
EBUF2 


EDOP 

FOOT 


715 

380 

380 

92 

103 

103 
1099 
1099 
1 097 
10c? 
1097 

104 
125 
136 
925 
136 

92 

133 


1 
1 
4 
8 6 
3 
6 
3 

3 

13 
10 
15 
10 

3 

3 

1 

3 

14 
23 


714 
330 
375 
212 
1356 
211 
223 
276 
388 
2 12 
337 
370 
1 25 
136 
910 
136 
439 
130 


ELVDUMMY  E7,1647 
ELVIRA  1265 
FNASLETfc  17,2052 
ENO-ALIG  ET,1630 
END-E3  E 3 , 17  77 
END-E4  E4 , 17  57 
END-E5  E 5 , 1 7 7 4 
FND-E6  E 6 , 17  71 
END-E7  E7,  1777 
END-E7.0  FT, 1745 
END-E7.1  E7 , 1747 
EN0-E7.2  4000 
END-E7.3  E7 , 1630 
END-E7.4  E 7, 1777 
END-E7.5  £7,1656 
END- IN/M  E7 , 1672 


38  S 
14  86 
1372 
1 372 
890 
892 
143  3 
I486 
°57 
371 
12  00 
925 

913 
1290  END-UE 
1510  ENDALL 


1357 
40,2263 


149 
106 
1404 
148 
112 
119 
128 
1 37 
162 
152 
152 
152 
152 
152 
152 
142 
108 
400 


REFERENCES 

3 149  150 

5 106  820 

1 1404 
3 148  152 


400  6Q1 


D 1/1 024 

06,3044 

1165 

1 

1194 

EDO  T P 

E6, 1427 

= 

130 

4 

1434 

143  3 

ENDALM 

4153 

646 

1 

452 

Dl/128 

04,3032 

113  5 

3 

1178 

1189 

EDOTQ 

F 6 , 1 4 3 6 

130 

5 

130 

1673 

ENDBALL 

26,2346 

478 

D 1 / 1 6 

04 ,3040 

11C5 

? 

1 1 1 

1198 

eqotr 

E6 , 1437 

= 

1 30 

2 

130 

1641 

ENDBLFF 

43  03 

= 456 

1 

460 

D 1/256 

04,3046 

11  «5 

3 

1179 

1 l ° 5 

F DOT  SQ 

E6 , 1737 

= 

133 

3 

1 462 

1463 

ENDBSUB1 

40,3  534- 

= 457 

1 

45  8 

D 1/32 

04 , 3042 

1185 

7 

1185 

1236 

ED’  IVEX 

E6,  1764 

137 

5 

137 

1419 

FNDCHKG 

37,2366 

379 

D 1/4 

04,3036 

1185 

4 

37 

1198 

EDM  VE  Y 

E , 1765 

=• 

1 37 

1 

14  18 

END DA  PT4 

5270 

= 189 

Dl/64 

04,3034 

1185 

5 

1174 

1200 

EDI  I VE  Z 

E6 , 1766 

= 

137 

1 

1418 

END DOT 

7205 

1033 

1 

1078 

D 1/8 

04,3030 

113  6 

1 

12  CO 

FE 

13,2506 

1 136 

1 

1136 

ENDDP  DEC 

40,3007 

424 

1 

431 

D 21 

E6 ,1705 

= 1 35 

EGC  ESS 

£5,1772 

= 

126 

fc 

126 

1221 

ENOOPUSH 

6550 

1020 

1 

1020 

D 2t:  . ■-  S EC 

36 ,3142 

749 

2 

7 34 

F IGHT 

4750 

= 

1099 

ENDEC VK 

60,3322 

= 443 

1 

444 

D 60RC B I T 
DC: i '''rtG 


4752 

0072 


71 

71 


EIGHTEEN  33,2437 


10  236 


1243  EJSCAN 
==  = ==  EJ1 


01,3120 
01, 3171 


868 

1113 

1115 


867 
1 1 10 
1113 


1113 

1114 


END  EXT 
ENDEXTVB 
ENDFI NO 


5472 

5472 

5160 


1 372 
264 
1 105 


44 

5 


207  1396 
266  273 

4 1107  1111 


E 

E 6 , 1 752  = 

1 33 

17 

1435 

1 5 1 0 

EJ2 

01 , 3201 

1115 

1 

1115 

ENDHMSS 

42,3606 

= 436 

E/BKCALL 

04,2576 

370 

El 

1350  = 

108 

1 

316 

END  I D 1 E 

4207 

455 

1 

1368 

E /C  A 1 L 

04,261 5 

371 

EL CALC 

3C , 3004 

667 

1 

670 

END IMU 

07,3631 

1327 

3 

1311 

1316 

E /JOBWAK 

D6, 2631 

3 72 

ELEACH 

1 1,2375 

822 

2 

821 

ENDINST 

4217 

455 

6 

402 

1367 

E / P R C G 

04,2000  = 

28 

2 

370 

372 

FLEPS 

35,3737 

684 

1 

667 

ENDINT 

13,2632 

1 2 10 

1 

236 

E/SW.I  T CH 

04,2613 

370 

ELEV 

E4, 1656 

116 

10 

194 

670 

ENDIT 

10,3353 

1369 

1 

1366 

E ARSPH 

11,3355 

12  38 

1 

1237 

ELEVEN 

4760 

1095 

4 

‘ 67 

1671 

ENDJASK 

17 , 3241 

1658 

1 

1458 

E v 1 c 1 T 

14,2522 

935 

FLEX 

35,3261 

6 70 

1 

6 67 

ENDJBCAD 

37  ,3  5 37 

859 

1 

8 57 

EAr  THGQN 

22,3527 

717 

1 

717 

FI  I DUN  MY 

£7,1644  = 

169 

2 

149 

150 

END JOB  1 

01,3103 

1113 

1 

1105 

E AFTHL 

06,3753 

1147 

2 

1140 

1142 

EL  I NCR 

E 7 , 1554  = 

149 

4 

149 

804 

ENDLL JCB 

31,3476 

8 16 

2 

814 

815 

F ARTHLOC 

06,2000  = 

29 

1 

1147 

FL I NCR  1 

1267  = 

106 

5 

804 

821 

ENDLRH 

34,3744 

893 

E Ar 

27,2022 

4-4 

1 

7 80 

CLUOPF IN 

43,3437 

1289 

2 

128.9 

ENDLRV 

33,3660 

.893 

1 

863 

EAf.THVX 

26 ,374  3 

114(5 

2 

1 140 

1142 

El  ’ CODE 

04,3377 

1340 

1 

13  39 

ENDMANUV 

26,2174 

474 

E ARTHMXX 

0051  = 

1148 

4 

1143 

1146 

ELRCHDE1 

40,2156 

399 

1 

398 

ENDMANU 1 

26,2175 

474 

2 

473 

475 
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= DEFINED 

BY  EQUALS 

J DEFINED  BY 

JOKER 

OR 

ERASE 

ANYWHERE 

MD  i 

MULTI  PLY 

DEFINED 

BD  BADLY 

DEFINED 
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SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

endmalk 

5472 

1354 

2 

2 53 

137  2 

END  T NO N 

06, 2266 

164 

1 

1 64 

EPS  1 

27,2*05 

766 

2 

766 

776 

ENDMAPKS 

07, 2317 

2 53 

END TOON 2 

06,2306 

165 

1 

164 

EPS  2 

27,2407 

767 

2 

76  6 

776 

ENOMAXDV 

00,262* 

1 063 

2 

106  3 

106  5 

FNDTPUSH 

6 552 

1020 

2 

1020 

1077 

ERAD 

04,2000 

45 

1 

1135 

C MHM  : : IT  IL 

07,3706 

i tj  -y  o 

2 

1328 

ENOTSLC 

n n . 9 ? 1 * 

10*2 

i 

FRAnFRTT 

4737 

_ 

67 

r !\J  u ■ 1 1 ET 

L “ c.  o 

c. 

VJ  ’ 1 f c.  c.  1 c. 

1 

L ' 8 ur  D i ' 

ENDMONDO 

41 ,3346 

439 

i 

*39 

ENDVOAT 

33, 3514 

= 

889 

3 

8 88 

891 

ERA  DEL  AG 

0021 

= 

67 

5 

657 

1139 

ENDNMTST 

40,2247 

400 

2 

400 

FLDVLOAD 

6511 

1019 

2 

1021 

ER  ADM 

E7 , 1672 

= 

14* 

5 

144 

1139 

ENDNUM 

40,2  257. 

400 

1. 

400 

END V3USH 

654C 

1020 

LRASCHK 

43,3337 

1288 

1 

1287 

ENDNVPSY 

04,2*55 

4 64 

FNDVXV 

7000 

10  26 

4 

1026 

1043 

ERA  SC  ONI 

43,3232 

12  86 

1 

1288 

ENDMVSB1 

41,3612 

V 54 

1 

467 

END  W 

F 5 , 1642 

= 

121 

3 

122 

126 

ERASC0N2 

43,3233 

1 286 

1 

1288 

ENDOF JOB 

5155 

1106 

15C 

2 28 

1*86 

EN  02 DEC 

40,3305 

442 

ERASC0N3 

43,3234 

1 286 

1 

12«8 

ENDOUT 

10,3312 

1369 

2 

1370 

END29DOD 

32,2770 

604 

1 

604 

ERASC0N4 

*3,3235 

1 286 

1 

1288 

ENDPA  ste 

4143 

439 

ENEMA 

05,2765 

216 

2 

832 

1 33  3 

ERASCCN5 

43,3243 

1286 

1 

1289 

ENDPINBF 

4512 

4 65 

ENGIUOF.F 

36, 3546 

760 

1 

7 60 

ERASC0N6 

5007 

= 

12*6 

3 

1288 

1289 

ENDPINS1 

*0,367* 

- 

471 

ENG  I NO  FI 

36 , 3f 55 

760 

1 

2 29 

FRA  SEP 

10,3471 

1372 

1 

1365 

ENDPIMS2 

41 , 3731 

= 

469 

ENG! NO F 2 

36,3551 

760 

1 

853 

ERASI D 

5011 

= 

37 

1 

996 

ENDPL chg 

01 ,2765 

1 1 09 

? 

1108 

1115 

F N G I NO  F 3 

36,35*4 

760 

1 

733 

ERA  cLOOP 

43,  3367 

1288 

4 

1288 

1289 

FNDP76 

13,2333 

7 11 

2 

709 

FNGIN0F4 

36,3561 

760 

1 

742 

ERASZERO 

0007 

= 

1 93 

2 

lc3 

END  - A 0 AR 

25,3546 

563 

2 

537 

546 

ENGOFF 

14,2355 

85  2 

1 

846 

EPCNT 

0117 

= 

96 

7 

467 

471 

EMDRULO 

40,2770 

421 

1 

4 24 

ENGOFFDT 

E 7 , 1644 

= 

152 

3 

152 

85  3 

ERCQM 

40,3655 

471 

1 

*71 

END'  FLOS 

40,3506 

4 50 

1. 

*56 

ENGOFF  1 

14,2410 

85  3 

2 

853 

ERCOMP 

E5, 1563 

= 

128 

8 

376 

380 

ENDRET 

1*  , T335 

13'? 

& 

1364 

1371 

ENG* FT  SK 

36,3542 

76  0 

3 

2*1 

762 

ERCON 

*0,3670 

471 

1 

*70 

ENDPMODF 

4616 

= 

‘3  25 

ENibNBTT 

4745 

= 

74 

6 

174 

<?1  6 

ERCOUNT 

1365 

= 

108 

3 

108 

1286 

ENDROLL 

22,3224 

3 69 

ENGONFLG 

0123 

= 

74 

ERESTORE 

1360 

= 

108 

1 1 

108 

1239 

E NOR Q DAT 

41,2316 

411 

ENTER 

41,2002 

406 

2 

399 

446 

EREXI  T1 

32,2542 

571 

1 

569 

END..QWT 

41,3513 

448 

1 

45  2 

ENTERDAT 

07,2073 

246 

ER MINUS 

40,36*7 

470 

ENDR>  D29 

24,3475 

6 06 

/: 

6C5 

606 

i TEL J MP 

40,2157 

39* 

1 

399 

ERPLUS 

40,3652 

471 

1 

470 

ENDRSTRT 

05,264 1 

213 

2 

2 1 7 

ENTERQR 

17 , 2*1  C 

1*4  7 

ERROR 

*0,3603 

470 

1 

398 

END'  i 

41,2616 

= 

417 

1 

4 25 

E’-P  FL  IV 

17,2451 

1448 

3 

1*47 

ERROR  S 

*3,3257 

1286 

1 

1286 

ENDRUT  IL 

41,3230 

= 

431 

1 

4 37 

ENTEXI  T 

0136 

= 

406 

10 

407 

447 

ERR  TE  ST 

17,3327 

1462 

ENDR03 

01,224* 

2 94 

1 

294 

ENTMID1 

13,3576 

1223 

1 

1223 

ERTHP 

37,2431 

380 

1 

380 

ENDS  A1 

14,2570 

936 

1 

9 35 

ENT  1 110-2 

13,3572 

1223 

1 

1223 

ERTHPVSE 

37,2*01 

380 

2 

383 

388 

ENDSCA1  E 

40,304:3 

432 

3 

4 31 

4 32 

ENTP  ASHI 

41,2012 

406 

ERVEC  TOR 

E 5 , 1 4 04 

= 

127 

K 

127 

380 

ENDS  CALI 

40 , 3056 

432 

2 

4 32 

*33 

EMTPASO 

41,2035 

*07 

3 

*06 

454 

ESCAPE 

0136 

= 

97 

L. 

108* 

1085 

ENDSPE 

41 ,3362 

4 40 

1 

/ A3 

f.*-  ropy 

0 1 36 

_ 

97 

e*. 

*02 

453 

ESCAPE2 

0137 

_ 

97 

2 

108* 

1085 

ENDSPMIN 

42,3451 

424 

1 

4 34 

ENTSET 

41,3570 

453 

2 

453 

EST TC ADR 

37,2116 

374 

2 

374 

ENDSPMM 

04,2646 

457 

1 

4 64 

ENTTIM2 

04,3005 

702 

1 

702 

ESTIMS 

37 ,2500 

383 

2 

374 

377 

E NDSPCCT 

40,3415 

445 

EOUN  PE  RM 

E 7 , 1670 

= 

150 

1 

150 

ETP  IB  IT 

4745 

= 

69 

ENDS'  ATE 

11 ,3577 

1242 

1 

12  4 1 

EPHEM 

lr  , 2000 

= 

31 

1 

985 

ETPIFLAG 

0046 

= 

69 

6 

69 

670 

ENiSTEEP 

36 ,3646 

761 

EPHEM1 

05,2000 

= 

29 

2 

51 

987 

EXBRAK 

31 , 3352 

812 

1 

799 

ENOSUMS 

*3,3131 

291 

1 

1292 

EPS  FOUR 

35,37*3 

684 

1 

673 

EXOSPRET 

10,2620 

13  60 

5 

2 07 

281 

ENDS  40*9 

27,2725 

776 

EP  SILN1 

34,2075 

632 

1 

640 

EX  EC BANK 

5163 

1 105 

8 

1103 

1105 

ENDT ( X ) 

27,3753 

1282 

1 

1282 

F i S ILON 

0155 

= 

1496 

5 

1*88 

1496 

E XECTEM1 

0061 

= 

95 

6 

1 1C  3 

1111 

ENDTASK 

5236 

1121 

6 

220 

1128 

EP5IL0NL 

E5, 1763 

125 

3 

125 

11*’ 

EXECTEM2 

0062 

= 

95 

4 

1 106 

1111 

ENDTEST1 

37  ,2270 

377 

3 

373 

388 

EPSILONT 

E4, 1576 

115 

2 

1176 

EXGSUB 

31,3331 

811 

1 

799 

E NOT  F F 

27, 36*  1 

1 2 7Q 

3 

1279 

1281 

EPSSMALL 

27,2723 

776 

1 

776 

EXIT 

6743 

1 025 

1 

IOC  3 
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SYMBOL 

E XI TEM 
E XI  TVS 
E X I TVE  1 
F XMO  R M 
EXPVFLOW 
EXSP0T1 
E XT  LOGIC 
EXTVBACT 
F XTVBCHK 
E XT  VB  1 
EXTVERBS 
E XVFRT 
EO 
E01 
E 02 
El 

E 1 3 4 5 6 7 B 
E 2 

E2DPS 
E 3 

E 3J22F 29 
E32C31  ■ M 
E70VEPL  A 


DEF 

0114 
30,2763 
30 ,277A 
31 ,3340 
31 ,3441 
31,3316 
31,3313 
1044 
07,2006 
23 , 2000 
43  ,2010 
31  ,3436 
£7 , 1 o 76 
E4 ,1630 
E-  , 1 <■  3 
E7 ,1700 
43,3350 
E7, 1702 
E7 , 1621 
E7 , 1704 
13  62 
1 3 53 
E7 , 1471 


9o 
851 
351 
812 
813 
811 
311 
102 
2 44 
32 
36 
813 
145 
1 14 
1 1' 
145 
1288 
145 

149, 
145 
108 
1 DP 
140 


REFERENCES 

7 423 

1 351 

1 8 5? 

1 7 9° 


2 

18 

l 

1 

7 


GIG 
222 
2 44 
271 

262 


116 


1 1289 
1 145 

3 7 8 5 

1 1248 
1 12  36 
3 L40 


F ! A 5 ) 
FACER  EG 
FAIL- 


E7 , 1734 
20 ,2r40 
0 1 5 4 
20,3545 


143 
1487 
13  73 
1501 


143 
14  37 
1 3 6 3 


1 15  01 


SYMBOL 

429  FAZB1 
FAZB2 
FAZB5 
FAZC 
FBANK 
F 8 A NKMSK 
FBI  ASS UB 
1380  F BR 3 
FC 

FCA0RMM1 
1388  FCDUW 
FCODD 
FCOLD 
FCOMPSET 
FDA!  X 
p D A I Y 
F D A I Z 
F DOT 
326  FOPS 

FEEDBACK 
FETCHZNB 
FETCH2  WD 
FEXTRA 
FFT AG1 
FFTAG10 
FFTAG1 1 
FFTAG12 
FFTAG1 3 


147 
77  4 
1364 


F AILOOP 

F AI Lr EG 
FAIL  3 

17,3205 

03  75 

56  1 3 

1458 

100 

13  81 

2 

15 

j 

1458 

211 

13-1 

1382 

FFTAG2 

FFTAG3 

F F VAG4 

FAKEPr ET 

5 1 >4 

1105 

2 

1103 

1111 

FFTAG5 

F ALTOF 

4 370 

461 

FFTAG6 

F Al  vi  ! 

4 3 64 

6 61 

1 I 

2 31 

1396  : 

f FTAG7 

F APS 

36,2006 

38 

2 

753 

775 

FF  TAGS 

FASTCHNG 

31 ,3740 

826 

9 

794 

811 

FFTAG9 

F AZA 

23,2771 

1153 

1 

1155 

FHNM 

F A Z A B 

23,3146 

116b 

I 

1 1 6 7 

M FPSDP 

F AZAB1 

2 3 , 3 1 74 

1156 

I 

1 1 5 6 

F T F 7 YF  P S 

F AZAB2 

23,3200 

1156 

1 

1156 

FIGT IMF 

F AZ  A63 

23 , 3 2C7 

1156 

1 

1 166 

F I LDEL V 

F AZAB4 

23,3217 

1 1 c 6 

1 

1157 

FILLED 

FAZAB5 

23 , 3226 

1 157 

2 

1 157 

1222 

F ILLER 

FAZA1 

23,2775 

11  54 

FIMA LB  IT 

F AZB 

23 , 3070 

1165 

1 

! 154 

FI:  ALOV 

DEF 

23, 3073 

23,3121 

23,3126 
23,3134 
0004 
4350 
06,3644 
1 1,2476 
67, 1615 
04,2403 

30. 2000 
E 7 , 1465 
E7, 1620 
31 , 2267 
E 4, 1744 
E 4 , 174  5 
E4 , 1746 
26,2006 

36.2000 
17 , 3 0 c 1 
30, 3223 
05,3653 

4737 
4000 
4000 
4000 
40  00 
4000 
4000 
4000 
4000 
6000 
6000 
4000 
4000 
4000 
25,3577 
34,2101 
34,2663 
35,3046 
E5, 1460 
Cl , 3371 
E7 , 1622 
4746 
00,2625 


REFERENCES 


SYMBOL 


DEF 


REFERENCES 


1155 

1155 

1155 

1155 

92 

1010 
336 
1229 
149 
233 
34 
140 
149 
794 
118 
1 18 
1 18 
52 
33 
1455 
913 
994 
797 
28 
28 
28 
23 
28 
28 
28 
28 
28 
28 
2 3 
28 
28 
567 
6 32 
64  0 
668 
128 
1 126 
149 
69 
1 064 


1 1155 

1 1155 

2 1155 

30  455 

2 1 111 

3 3 34 

1 1243 

149 
232 
910 
140 
149 

7Q4 

305 


1 1143 
1 7 54 

1 1.4-54 

1 913 

2 °91 

1 794 

3 12  94 


FINALFLG  0047 
FINDCDUW  30,3113 
FINDGIMB  27,2160 
FINDKFY  07,2365 
1377  FINDTIME  01,3601 
FINDVAC  5105 

335  FINDVAC2  01,2601 
FINE  01,2340 

793  FINEK2  4 3,2347 
FINEONLY  14,3370 
FINFT1ME  4102 

794  FINIMUDD  37,2320 
803  FIREDB  E6,1601 

FIREFCT  E 6 , 1741 
473  FI  REP  16,3041 
F I R EQP  17,2225 
FIRSTIMF  12,2606 
FIPSTTME  27,3171 
FIVE  4756 

FIXCLPAS  40,2402 
FIXDELAY  5221 
992  FIXIOC  0120 

FIXMIN  20,3743 
1375  FIXRANGE  40,2652 


69 
910 
483 
254 
1304 
1103 
1 106 
295 
273 
947 
381 
378 
134 
1 33 
1431 
1444 
1182 
779 
1095 
402 
1119 
96 
1505 
418 


9 

5 

2 

1 

2 

45 

2 

1 


623 
771 
481 
2 54 
1304 
211 
1 103 
294 


1 947 

3 379 

1 374 

10  1462 
7 1438 


1 118  2 

26  223 

16  499 

63  246 

1 15C 1 
1 418 


1 

155 

FIXR001 

FIXY 

FLAGGON 

p 1 A co  p p 

00,3453 

27,2441 

22,3310 

Q K . T CL  7 A 

1080 

769 

714 

670 

3 

1 

1 

1079 

769 

714 

678 

r L M Uu  i i 

JU  f “ J ■ O 

i 

2 

1304 

1306 

FLAGON 

35,3531 

678 

2 

678 

1 

1309 

flagoodw 

E 6 , 1 6 5 1 

= 

136 

6 

136 

2 

1354 

1379 

FL  AGC 

32,3017 

785 

3 

40 

593 

FLAGS 

13,3758 

13fl6 

1 

1383 

4 

6 15 

145  9 

FLAGWRDO 

0074 

= 

65 

33 

165 

2 

1 38  1 

1 382 

FL  AGWP  D1 

00  75 

= 

6 6 

33 

217 

1 

4 39 

FL4GWRD2 

0076 

= 

68 

32 

165 

1 

1404 

FL  AGWP  D3 

0077 

= 

70 

22 

206 

1 

566 

FLAGWPD4 

0100 

= 

71 

34 

222 

1 

640 

FLAGWPD5 

0101 

= 

73 

30 

157 

1 

6 39 

FLAGWPD6 

0102 

= 

75 

15 

186 

FLAGWRD7 

0103 

= 

77 

33 

186 

1 

128 

FL  A GW  R Dig 

C 104 

= 

78 

15 

258 

1 

1 125 

FLAGWRDO 

0105 

= 

80 

6 

739 

1 

149 

FLAP 

0216 

= 

81 

3 

833 

F L A P B I T 

4744 

= 

81 

3 

1 0 57 

1 06  3 

FLASHH? 

21,2025 

8 29 

HEALTH  KEY:  NORMALLY  3 EF  IN  ED  UNL ES S FLAGGED  AS  FOLLOWS: 


UN  UNDEFINED 
BD  BADLY  DEFINED 


DEFINED  BY : EQUALS 


J DEFINED  BY  JOKE R QR  ERASE  ANYWHERE 


M 13  MULTIPLY  DEFINED 


CD  DEFINITION  ASSOCIATED  WITH  CONFLICT 


XX  MISCELLANEOUS  TROUBLE 


727 

910 

482 


1392 

1105 


1336 

1503 

1469 


1430 

1313 
15  06 


919 


1414 
1315 
1335 
1385 
1374 
1453 
9 30 
1391 
972 
85  0 
841 
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SYMBOL 

DEF 

H 

R 

EFERENCE5 

SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFFRENCES 

F LAS  or  or 

4433 

462 

6 

274 

1366 

Ft  ANDRES 

0^,2000 

= 29 

2 

43 

211 

GCOMP SR 

E3 , 1477 

no 

10 

326 

333 

F LAS HON 

4427 

462 

4 

407 

136  3 

F-’CS? 

36,2016 

38 

2 

756 

773 

GCOMP 7 FT 

06,3701 

336 

1 

966 

FLAG  MS  LIB 

10,3260 

13 

3 

13  64 

1367 

FPCS4 

36,2014 

38 

1 

755 

GCOMP 1 

06,3540 

333 

1 

333 

F LASHV? 

21  ,2033 

ft  ?o 

1 

8 29 

FRFEFBIT 

4751 

= 66 

1 

GCTR 

E 5 , 1 736 

= 

123 

10 

123 

966 

FLAT 

E6 , 1555 

= 

1 34 

6 

l ' . 3 

1503 

f y EEFL AG 

0014 

= 66 

12 

942 

986 

GDERELCT 

07,3626 

1326 

1 

1321 

F L AT  r 

0151 

= 

1506 

6 

1497 

1503 

FREERET 

0144 

= 97 

GDT/2 

1236 

105 

19 

105 

973 

FLATOUT 

31  ,2370 

796 

1 

7 4 1 

FRSTPAS 

34,264,4 

639 

1 

6 39 

GOT  1/ 2 

E 7 , 1 562 

= 

147 

5 

147 

833 

FLAT  UT1 

31 ,2277 

704 

1 

794 

FF ST  ZERO 

20 ,2746 

14^0 

1 

1490 

GDUMP 1 

31,3453 

813 

F l ATf  UT2 

31  ,2301 

794 

1 

794 

F SPA  SB  IT 

474  2 

= 65 

GEADDP 

61  36 

1005 

1 

IOC  5 

PI  A T \/  A 1 

? r , . ^ 7 i a 

1 Vy  Q 

l 

} /,  0 7 

F5PASFLG 

000  * 

6F 

} 

c 10 

QFF  F 

E4 , 1714 

_ 

120 

l> 

120 

849 

F! t HLOC 

10,2000 

= 

29 

1 

1265 

FSUBO 

26, 2014 

53 

1 

1143 

GENDDV 

00,2570 

1062 

2 

1061 

1^65 

FLESHPOT 

10,2037 

l 2 

2 

861 

1265 

FTHROT 

31,2000 

= 34 

2 

40 

793 

GENMARK 

10,302 1 

1364 

F L G W , DIO 

0106 

= 

82 

24 

81 

14  86 

F T 9999  9 

30, 2057 

611 

2 

6 10 

GENMASK 

0162 

= 

1373 

4 

13  56 

13  69 

FI  GW-  Dll 

0107 

- 

83 

38 

2 29 

89  3 

FUEL  NEED 

E7, 1666 

= 150 

GEE, 'PL 

E5 , 1434 

= 

127 

27 

127 

128 

FLGWRD12 

0110 

= 

85 

2 

85 

8S4 

FULLAPS 

05, 2C CC 

43 

1 

2 12 

GENRET 

1143 

104 

L 

5 13 

519 

FLGWf  013 

0111 

_ 

97 

1 

P ^ 

p U ! ! DSP 

4 ] , -a  f , 5 A 

L 

] 

L £,7 

OF  v1  ! 

on . ?ft4n 

1056 

2 

1056 

FLIP 

4606 

525 

2 

829 

FULL  DS  P 1 

41 ,3655 

467 

1 

4 67 

GEN  SC  R 

00,2277 

1055 

4 

1054 

1076 

FLOGSUB 

30,2000 

= 

34 

1 

856 

FULLTI ME 

17,3465 

1465 

6 

1465 

1469 

GENSHFT2 

00,2224 

1 053 

1 

1053 

F L PAS  SO 

E7 ,1623 

- 

149  . 

14.9. 

811 

FUNCTION 

E6 , 1751 

- 132 

16 

1474 

1482 

GENSHIFT 

00,2214 

1053 

1 

1044 

FLPAUTNO 

E6 , 16 52 

= 

136 

4 

5 36 

915 

FUNCT2 

21, 3247 

! *+75 

2 

1-74 

GENtRAN 

5544 

1379 

4 

207 

1502 

FLPC 

0212 

= 

80 

2 

847 

FUNC  13 

21 , 3252 

1475 

GEC COMPS 

E5, 1562 

= 

1 28 

3 

384 

385 

flpcbtt 

47^0 

= 

80 

fijn:  ydsp 

EG  1666 

= 150 

5 

150 

315 

GEO  I MUTT 

37, 2004 

373 

FL  PI 

0213 

= 

80 

3 

838 

849 

F IJNTEM 

0157 

= 1506 

2 

1497 

1^98 

GEOM 

04,3130 

1188 

2 

1186 

1193 

F 

7 '■  1 

= 

80 

FV 

E4, 1461 

= 114 

15 

114 

124  5 

GEQMSGN 

E5, 1672 

= 

125 

n 

125 

1194 

FLRCS 

0214 

= 

80 

/ 

832 

353 

FVACCADk 

Cl, 3773 

1308 

1 

1305 

GEQRGFJ 

37,3107 

389 

2 

387 

338 

FLRCSBIT 

''74  2 

= 

80 

2 

8 50 

fwcoWp 

31  ,2335 

7 0 5 

2 

795 

GEORG FK 

37,3111 

389 

FI  T TUB 

30,3503 

919 

2 

912 

FWEIGHT 

E 7, 1610 

= 149 

7 

149 

813 

GEOSTF T4 

37,3025 

388 

FLUNDBIT 

4742 

— 

79 

3 

739 

850 

F X A 0 R S 

h .p  t 3 ~ F -f 

12°  1 

p 

12^2 

GET . L VC 

0 n , ft  7 3 ft 

692 

3 

653 

766 

FLUNDISP 

0175 

= 

79 

4 

74  2 

833 

FXFX 

43,3543 

1291 

1 

1292 

GET+MGA 

06,3717 

692 

1 

680 

FLVR 

0210 

= 

80 

4 

834 

«51 

F2DPS*  11 

11,2000 

= 29 

1 

820 

GETAB VAL 

33 ,22  17 

860 

1 

860 

FLVRBIT 

47  36 

= 

80 

F 2 D P J * 3 1 

31,2000 

= 3:4: 

3 

39 

82  2 

GET  AO  SUV 

20,3242 

1497 

FMAXODD 

31 ,2002 

40 

1 

7 94 

F 2 0 P S#  32 

32,2000 

= 34 

3 

40 

785 

GETAZEL 

14,3734 

956 

.3 

955 

086 

F AX PCS 

31 ,2003 

40 

1 

794 

= ==  = = — - 

GFTC3DR 

01,3516 

1 132 

1 

1132 

FQRCFONE 

20,2034 

292 

1 

292 

( (CSM) 

E4  , 1 716 

= 120 

4 

120 

882 

GETCOMP 

41,2516 

416 

5 

414 

416 

F0RCEV25 

42  ,3603 

4 36 

2 

436 

G+N, AUTO 

26,2255 

475 

3 

474 

748 

GETDAT 

07,2063 

246 

4 

244 

252 

FOP  MULAl 

17,3503 

1465 

1 

1464 

GACC 

E5 , 1706 

= 1 23 

4 

965 

966 

GETDT 

36,3735 

763 

2 

759 

762 

FLT  MUl  A 2 

17,3513 

1465 

1 

1464 

GA I N AP  PR 

£5,1466 

= 121 

1 

121 

GETECC. 

12,3710 

1200 

1 

1200 

Fi  ’ ULA3 

17,3416 

1467 

1 

1466 

GA  IN  BE  AK 

£5,1432 

= 121 

2 

121 

810 

GETERAD 

13,2466 

1 1 36 

1 

1139 

FORTY  ONE 

13,3452 

12  20 

1 

1213 

GA INFL  TR 

30,3762 

925 

1 

9 19 

GET  GOBI 

27,31 77 

780 

1 

779 

For  VEl 

E7 , 1701 

= 

1 50 

2 

1 50 

904 

GAMCOMP 

1 1 ,2650 

123  1 

3 

1230 

12^1 

GET  IMF FL 

40,2324 

401 

4 

399 

^>04 

FORVMETR 

E7 ,1677 

= 

150 

2 

150 

900 

GAMMA 

E 7, 1477 

= 145 

5 

145 

1153 

GETLMATT 

15,3541 

980 

1 

976 

FOUR 

4751 

= 

1 1 

47 

2 11 

1.47  2 

GAMPREV 

E7, 1607 

141 

7 

142 

640 

GETMAXDT 

1 3,3345 

121° 

1 

1218 

FOURS  ECS 

27 , 253fc: 

7 72 

1 

771 

GA  MRP 

0010 

= 1138 

3 

1134 

1 138 

GETMKS 

07,2202 

252 

3 

248 

261 

FOUR  TEEN 

4 317 

= 

10  7 3 

2 

56  2 

1070 

GCOMP 

E3, 1471 

110 

24 

1 10 

952 

GETNE WNM 

5427 

1300 

1 

1299 

FP 

E7, 1467 

= 

140 

5 

7C  3 

795 

GCOMP  SUB 

06,3425 

331 

6 

329 

330 

GETPAf  T2 

01,3541 

1303 

1 

1308 

HEALTH  KEY:  NORMALLY  DEFINED  I 

UNLESS  FLAGGED  AS  FOLLOWS: 

UN  UNLEF  INED 

= DEFINED  BY 

EQUAL 

c 

J DEFINED  BY 

JOKER 

OR  El  ASE 

ANYWHEf,  E 

MD  MULTIPLY 

DEFINED 

BD  BADLY 

DEF  INED 

CD  DEF  IN I TICK 
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SYMBOL 

GET  Pi- 10 
GFTRAF S 
GETROOT 

GETFPSV 
GETRVN 
GETRVN2 
GETUL  C 
G FT VR  VG  1 
5 ETVr  VG2 
GET  X 

GET22/32 
GET45 
GFACTM 
GIMB!  RTS 
G IML0CK1 
GL  +MOATT 
GLAMPTST 
GL  INVERT 
GLM 

G LOCKCHK 
CLOCK  MON 
GLPCXf  K 
GLOKFAIL 
GLOKFRIT 
GMBDE BIT 
GMBD!  VSW 
GMBl BITA 
GMBLBITB 
GMERGE 
G MODE 
G L/C! 

G LI.  FAZE  5 
GNUR 
G MUR VST 
GNUTFAZ5 
GMUV 
GOAGORT 
GOAGIN 
GOAL  MCYC 
GOAN IDLE 
SOBAC 
GOBACK 
GOB AGUE 
G 030 

GOBI  TIME 


DEF 

5923 
36,3656 
21 , 3303 
11,2622 
37  ,3326 
37,3363 
26,3333 
27, 3113 
27,3115 
1 ? ,2767 
21 ,2552 
35,3634 
,3101 
20 ,3073 
23,3431 
40, 3--  72 
06,2507 
06 ,2500 
35,2000 

06,2441 
06 , 2434 
5270 
0056 
4736 
4742 
0137 
21 , 3633 
21  ,3635 
07,3500 
F 4, 1501 
5001 
37,3631 
E7 , 166,; 
33  ,3534 
37,3525 
E7 , 1656 
32,3540 
10, 3050 
41,2350 
1 n , 3 1 4 1 
13,3463 
35,3773 
11 ,27  74 
4054 
E 7 , 1 5 I 1 


12  99 
761 
14  76 
1231 

7 06 
707 
585 

779 

770 

11  BO 
903 
680 

14  94 
1 4 9- 
12^4 
471 
170 
170 
35 
169 
169 
1 PI 
70 
70 
76 
76 
1 4 84 
1484 
1323 
1 14 
1096 
859 
1 60  : 
a pg 

859 
1 50 
8 32  , 
1372 

412 

1366 

1220 

748 

12  33 
154 
147 


REFERENCES 

2 129  9 
1 7 61 


1 1231 

2 704 
706 
576 
779 
7 79 

1 1 °ft 


1302 

707 

536 

1199 


3 6 80 

1 14  89, 

2 14  6 0 
1 12*3 

470 
1 70 
170 
652 
1 69* 
1 67 
170 
374 


1 761 

2 781 
1 14  23 

1 1326 
1 114 


857 

885 

886 

857 
839 
2 4 1. 


12  54 


782 


858 
6-30 
609 

859 


1 4 31 

1 1366 

2 1220 

2 748 

3 1235 

1 153 

3 147 


1242 

780 


SYMBOL 

GOCH56 
G OC  LOSE 
OOCUTOFF 
GPDSP 
GODS  PA  l.  M 
GODSPR 
GOOSPRET 
GODSPRS 
GODSPR SI 
GODSPR 1 
GODSPR  2 
G0DSP2 
GQESTI MS 
GOEXTVB 
G FLASH 
0 NFL  AS  HR 
G0FLASH2 
GOGOMARK 
GOG  0 PRQG 
Gu  I N T 
GCLOADLV 
GOLOC 
GO'1  AMUR 
GO  MARK 
GQMARKF 
GO-MARK  FK 
GOMARKR 
fin MARK  2 
GOM ARK  2R 
GQM ARK  3 
G0MARK3R 
GO  MA 9K 4 
GO MARS 
GOM  IDA  V 
GO  MUD 
GCMOVE 
GONXTBNK 
GGODAR G 
GOODEND 
r-n  0E°  S 1 
GOODEP S2 
GOODMANU 
COO ONE G 
GO  0 DR  AD 
GOPERFRS 


DEF 

17,2063 
21,3625 
36,3062 
10,2463 
41 , 2351 

10.2451 
10,2446 
10,2637 
10,2 64 1 

10. 2452 

10. 2453 
10,2444 
37,2113 
6 3,200 0 
10,2476 
10 ,2634 
10,2500 
10,2405 
04,2224 
35, 3462 

43.2361 
070  6 

07,3750 

10.2330 
10,2334 
10,2353 
10,2350 
10,2337 
10,2356 
10,2342 

10.2361 
10,2345 

10.2331 
36,2200 
04,2220 
23,2111 
43,3662 
21,3460 
07, 3665 
20,2604 
20,2630 
22,3234 
20,3020 
25,3253 
1 0, 2705 


1404 
I486 
747 
13  57 
412 
1357 
1357 
136  1 
.1361 
1357 
1357 

1357 
374 
262 

13  6 8 
1 36  1 

1358 
1356 

230 
677 
274 
1308 
1331 
13  54 
1355 
1366 
135  5 
1 3 5r- 
1355 
1355 
13  55 
1355 
13  55 
734 
230 
485 
1292 
148  1 
13?c' 
1498 
1489 
369 
1493 
556 
1362 


FERENCES 

SYMBOL 

GOPERFS 
GOP  ERF  1 

DEF 

10,2625 

10,2623 

c 

1 

2 

7 31 

733 

gopepfip 

GOPEP  F2 

10,2703 

10,2630 

20 

406 

453 

G0PE9F2R 

10,2710 

3 

474 

944 

G0PERF4 

10,2633 

4 

7 5© 

950 

G0PERF4R 

10,2713 

8 

I 

1355 

1357 

1362 

GOP  IN 
GOPLAY 

43,2121 
1 0,3070 

REFER  FNCES 


GOPOODOO  5665 

2 1355  1358  GOPOOFIX  04,2024 

GOPOST  36,3047 

1 374  GO PRD G 05,2667 

1 408  G0PR0G2  05,2770 

4-  225  977  G0PR0G2 A 05,2771 

5 774  759  GQPR0G3  C5,?775 

15  1355  1361  GOQ  41,3025 

GOQTRIMG  21,3115 

GOREADAX  37,3436 

GOSERV  33,2276 

26  3 GFlSHOSUM  4 3,3100 

1308  GOSLEEFS  10,2754 

GOT  AN  GL  S 32,2627 

GOTO  6646 

1372  GOTOERS  6662 

1372  GOTOGE  6675 

GOTOGTS  17,2607 

GOTOPOOH  6001 

G0T0V56  6022 

GOUT  E5 , 1714 

GOVNUPDT  40,3317 

277  GOXDSP  10,2330 

GOxdfPF  10,2334 

1 7 34  GOXDS  PFR  10,2353 

1 231  GOXDS  PR  10,2350 

1 485  GPMATRIX  06,3132 

3 1292  GR.ABGTAV  15,2731 

2 1431  GRAVEL  15,2603 

4 245  1328  GREED  15,2724 

l 1488  GRP20FF  21,2150 

1 1488  GRP2PC  04,3244 

1 363  GRP2SV0  E5,1711 

1 1492  GRP40FF  32,3704 

1 558  GSAV  F 4 ,16  30 

GSCALE  22,3651 


1 231 

2 6 7C 
6 262 

30  1303 
1 474 

1 1372 
12  207 

5 271 

1 1372 


1 208 

1 295 

2 2 52 


1 360 

10 

497 

1335 

1362 

1 360 

13  62 

2 

473 

511 

1361 

2 

403 

655 

1362 

2 

928 

975 

264 

23 

26  5 

298 

1372 

1 

1360 

1383 

1 

2*2 

224 

2 

2 24 

242 

746 

2 

731 

732 

215 

2 

153 

154 

216 

? 

230 

288 

216 

1 

216 

216 

2 

216 

428 

1 

4 28 

1472 

2 

1472 

1494 

857 

1 

8 59 

861 

290 

1 

263 

1363 

3 

1360 

1371 

601 

1 

601 

1023 

13 

1024 

1091 

1023 

1 

102^ 

1024 

1 

102  3 

1450 

1 

14*2 

224 

68 

217 

1337 

593 

14 

475 

515 

123 

3 

9 64 

966 

443 

1 

412 

1372 

1 372 

13 

268 

1390 

1372 

3 

2C  2 

295 

1 372 

188 

1 

188 

966 

1 

966 

964 

1 

964 

966 

1 

966 

872 

3 

872 

1226 

26 

493 

1242 

126 

3 

126 

1226 

835 

116 

10 

1 16 

982 

827 

2 

309 

818 

HEA1TH  KEY:  NORMALLY  DEFINED  UNLESS  FLAGGED  AS  FOLLOWS: 


UN  UNDEFINED 
BD  BADLY  DEFINED 
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SYMBOL 

DEF 

H 

9. 

EFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DCF 

H 

REFERENCES 

G SELECT 

07,3433 

1322 

3 

132  1 

HANG  2,0 

0 ’■  f 2 0 1 1 

157 

1 

156 

HEIGHT 

25,3630 

612 

2 

612 

G SHI  FT 

7 621 

1 0 <■  4 

1 

10  1) 

HAP!' 

£4,1716 

= 

117 

^ -;i 

1 17 

653 

HL  I T E 

4747 

= 

6 13 

2 

612 

829 

b 

GTMP 

0026 

= 

987 

5 

<3  35 

9g,7 

HAPOX 

E^, 1517 

= 

114 

4 

1 14 

720 

HMEAS 

E 7, 1654 

= 

149 

7 

149 

893 

CTC 

'>  1 T 3 f 7 7 

\Ll  2 

1 

1 L.  «.  0 

M A VP  Cl  1 P A 

13  j 2 n n 2 

6 Pf 

t 

776 

HMS  IN 

4?  T 3 4 s ? 

4 34 

l 

431 

GTSCADi 

17 ,2624 

14  50 

1 

14  50 

HAVEMORM 

04,3162 

1188 

1 

1188 

HMSOUT 

42,3230 

421 

1 

417 

0 

GTSF IN 

47,2147 

305 

1 

430 

HAVEQUOT 

21 , 3203 

1474 

1 

1474 

HOL  D 

0165 

= 

1506 

2 

1 5C4 

gtsf inlc 

41,3157 

430 

1 

4 30 

HB  AD 

34, 3745 

894 

1 

893 

HQLDQ 

E6, 1745 

= 

133 

2 

1461 

1465 

GTSF  CUT 

42 ,2 14  1 

304 

1 

417 

hbeamant 

33,2002 

41 

1 

896 

HU  LOW 

E 5 , 1 7 3 4 

= 

126 

7 

126 

1155 

0 

GTSFOUTL 

I ,2  564 

4 1 7 

1 

‘17 

hbeamnb 

E 4, 167  2 

= 

119 

2 

8 84 

896 

HPER 

E4, 1720 

= 

U7 

3 

314 

653 

GTSGO+OM 

21,3113 

1472 

HCAIC 

E7, 1534 

= 

147 

9 

147 

885 

HPERMIN 

E4 , 1600 

= 

115 

6 

115 

721 

GTSOAXIS 

21,3133 

1473 

1 

1473 

HCALC1  . 

E7 , 1774 

= 

151 

3 

315 

876 

HPERX 

E4, 1521 

= 

114 

2 

314 

721 

a 

GTSQRT 

21  ,3441 

1481 

1 

1482 

HDOTDI sp 

E7 ,1473 

= 

147 

ii 

120 

883 

HR  CON 

42,3536 

435 

2 

434 

G TSTEMPS 

06,1737 

= 

1 32 

13 

132 

HEADTJET 

16,3505 

1438 

i 

1438 

HRC0N1 

42,3277 

422 

1 

421 

GUESS 

37 , 20  20 

373 

HFA  IL 

33,3560 

890 

2 

885 

HSCAL 

33,2010 

41 

1 

884 

i 

GUESS  BIT 

4 752 

= 

6 8 

HFLSHB IT 

4753 

85 

2 

612 

613 

hsttlbad 

34,3755 

894 

2 

893 

894 

Q ; if-S  S W 

OnVr 

_ 

. ..  % 

f,  A A 

1 1 Q 4 

HP)  A HP)  C 

026  7 

— : 

pq 

2 

P a q 

A 9 n 

ii  JGFQUOT 

2 1 » 7 2 0 n 

1 *-74 

l 

147  3 

GUESS  1 

37,2255 

377 

HH 

E6 , 1747 

= 

133 

15 

1464 

1467 

0 

GUIODURN 

32,3257 

789 

1 

7 86 

HI  ASCENT 

E6 , 140 C 

129 

4 

2 12 

1437 

IBNKC ALL 

46  74 

1000 

63 

165 

1497 

GUI  DIN  IT 

? 5 y 24 32 

R L.  1 

2 

786 

A 3 3 

H I D ESC  NT 

? n . ? n n 2 

43 

1 

1 437 

I c 

E7  > 16  55 

_ 

143 

4 

7 76 

779 

GUIDSUB 

31,24 60 

799 

1 

812 

HI  DP  HALF 

23 ,251 7 

= 

37 

6 

9 83 

1251 

ICDUFAIL 

06,2703 

= 

1 80 

i 

181 

0 

GUI L DEN 

3 1 , 2467 

8 00 

HIUP  1/4 

23,2511 

= 

37 

1 

1 2 8 3 

IC0RK2 

43,22 14 

268 

GUILDRF7 

3 1 ,2  f l 1 

P 0 1 

3 

7 99 

8 01 

HIENER GY 

12 ,3-622 

1 1 Q P. 

j 

1 1 ° 6 

I daddtab 

sn 

314 

2 

304 

GVDETFR 

19,2563 

963 

2 

965 

980 

H IGA TASK 

33,2447 

873 

1 

875 

IDAODTEM 

0142 

= 

97 

0 

GWAKE 

0 7 ,3374 

1320 

1 

1320 

HI  GATCHK 

33, 2515 

874 

1 

874 

IDA01TEM 

0150 

97 

4 

304 

429 

G WAKE 2 

’ sr  , ’ 2 T 

1319 

1 

1320 

f iGATJjB 

33,3670 

895 

1 

873 

IDAD2TEM 

0151 

97 

2 

304 

GY CHARS 

14,3154 

944 

1 

931 

HIGHCR IT 

E 5, 1507 

= 

121 

1 

121 

IDAD3TEM 

015  2 

98 

0 

G YRCDR 

15,3 044 

9 69  ^ 

1 

969 

H I SHFS  T F 

22,3647 

8 27 

1 

809 

IDLEADR 

05,3346 

222 

1 

219 

GY!  n A GR  E 

07,3346 

13  19 

1 

1319 

HIGH4 

7742 

1098 

3 

1006 

1023 

IDLEFBIT 

47  45 

= 

78 

4 

760 

865 

GYRflBUSY 

07 ,3367 

1320 

1 

13  19 

HIGH9 

7744 

1098 

8 

246 

1006 

IDLEFLAG 

0161 

= 

78 

7 

740 

053 

0 

GYROCMD 

004-7 

= 

°2 

6 

175 

1325 

H I M I NC  ON 

42,3376 

423 

1 

423 

IDLEMASK 

10, 3010 

1364 

1 

1368 

GY  n F X I T 

07 ,3537 

1 3 24 

l 

1 32  4 

HiuJECT 

7 2 t 3756 

836 

1 

P A.  1 

T 'll  pp  a no 

i a . ? i q q 

1413 

3 

1413 

GYP  IFF  AC 

07,3677 

13  26 

2 

13  23 

132  6 

HI  PR  10 

10,2522 

1358 

1 

1358 

IDLERET1 

10,3301 

1 36  8 

0 

G Y r 0 T R I M 

15,2774 

96  8 

1 

974 

HI!-  THRQT 

473  7 

= 

40 

1 

760 

IDLESLEP 

10,3534 

1 373 

i 

1363 

GYTOBFTO 

F 5 ,1462 

•=": 

1 27 

HI SCAL  AR 

0 003 

= 

93 

2 

381 

1026 

FERASTST 

6]  25 

1005 

i 

1005 

G 2 1 

E6 , 1707 

= 

1 35 

HISCAL  IM 

25,3441 

559 

1 

559 

If  All.  INH 

05,3350 

222 

i 

216 

0 

HI SEC3N 

42,3375 

423 

1 

422 

IFAILJMP 

06,2755 

181 

i 

162 

3" 

H 

£4,1477 

1 14 

8 

114 

1243 

HITEMIN 

0123 

= 

96 

3 

434 

h35 

I FA  I L OK 

07,3234 

1317 

i 

1316 

H*GHCR*T 

0131 

- 

122 

2 

7 94 

HIT  cun  fJT 

1007 

= : 

101 

4 

421 

42  4 

I FL AGC 

13,3074 

1214 

i 

1215 

a 

H AFD  A 1 

£7,1603 

141 

3 

6 34 

6 36 

HI  TEST 

33,2476 

874 

2 

878 

I FLAGP 

13,3051 

1214 

i 

1214 

H ALF 

4736 

- 

1099 

24 

33/ 

1510 

H I ; j l\)  I J X 

?3  T ?^17 

37 

1 

2.,  P Q 

TP)  pc  A I 

1 0 y 2 * 6 1 

l 3 qg 

i 

135o 

HAL  F Af  G 

E6, 1747 

132 

4 

1482 

1484 

.TTY 

23,2515 

- 

37 

2 

4 8 8 

IG 

E6 , 1725 

= 

135 

0 

H ALF  DP 

12,2004 

= 

1101 

3 

938 

1232 

H I UN  1 1 Z 

23,2513 

= 

37 

* 

438 

513 

IGC 

E5 , 1741 

= 

123 

3 

123 

1254 

2"  ■ 

HALFREV 

06,3715 

5 92 

2 

692 

HI  10 

04,3374 

1340 

1 

1339 

IGNALG 

32,3031 

786 

HAL  F«EC 

24,3117 

5 11 

1 

5 09 

HI  5 

4 350 

461 

10 

157 

129  2 

lower  r 

32,3202 

788 

a 

H ANOADR 

17 ,2573 

1 9 49 

1 

1*  4 3 

H 1 0 ZEROS 

23,252 1 

= 

37 

16 

2 99 

1283 

IGNALOOP 

32,8070 

786 

1 

788 
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S YMBOt 


DEF 


F EFERENCES 


SYMBOL 


DEF 


I G A SQ  Ct  ,1512 
IGNAPSR  E 6 , 1 4 1 3 
IGNFLAG  0153 

I GNFL  BIT  4737 
IGNITE  36,3102 
I G(  IT  El  36 , 3 1 16 
IGNITION  36,2426 
IGNYET?  36,2421 
IGrET  E7.1675 
I GS AMEX  27,2125 
IMEDIATE  01,3620 
IMMEDRET  10,3367 
I MOOES 30  1302 

I MODES 33  13  03 

I MPL  BURN  36,3  522 
IMPULBIT  4743 
I MPULSW 

I MUATTCK  43.27C7 


I MUBACK 
I MHBAD 
I MUCADF 
I ML'CAGE 
I MUCHK 


37, 2C 05 
07,3637 
1304 
0 6 , 2 5 < 5 
15,3652 


IMUCPARK  43,2205 
IMUCOARS  l ',3 <00 
I MUCOAkV  43,2226 


129 

1 29 

77 

77 

747 
747 
7 38 
738 

17  6 

A 82 
1305 
1370 
106 
1 06 
7 c o 
6:Q 
69 
281 
373 
1327 
1 

174 

983 

268 

1312 

2 6 3 


1 

1 

3 
2 
1 
1 
2 
1 
2 
1 

4 

67 

51 

1 

2 

5 
1 

5 

4 
1 
2 
1 

5 
2 


740 

740 

737 

733 

746 

747 
241 
7 38 
584 
4fl? 

13  04 

161 

158 

7^0 

7 40 
759 
262 

165 
208 
181 
9 50 

267 

268  : 
268 


1 MU  ZERO  07,2714 
IMUZEROA  07,2724 
I MUZ ER OK  43,2133 
IMUZER02  07,2757 
I MUZER03  07,2766 
IMUZERR  37,2325 
IMU2  37,2000 
1MU4  37,2000 
IM30IN  IF  05,3362 
TM3  0IMT  P 05,3363 
I 33  IN  IT 

INBOUND  27,3550 
INCAZ  18,2310 
INCORPEX  E 7 , 1674 
TNCORP  1 23,2531 


759 
74  7 


747 


1332 

1410 


762 

774 


1327 

1327 

975 

965 
?6  = 


TNCORP 2 
INC0R1 
INC0R1 A 
IN COR  IB 
IN COR 1C 
J NCOS  2 
INC0R2AB 
IIMCPR3 
! NCR 

IN  CROC  DU 
I NDE  P 


23,2743 
23,2565 
23,2574 
23, 2o23 
23,2631 
23,2672 
23 , 2722 
23,2726 
01,2406 
22,3035 
E 8 , 1 765 


1311 

1310 
265 

1311 
1311 

378 

36 

36 

223 

223 

223 

1270 

957 

144 

1 149 
1153 

1150 
1150 
1150 

1150 

1151 
1182 

1152 
1088 

3 65 
125 


REFERENCES 

3 208 
1 1310 
1 265 
1 1310 


378 


SYMBOL 

IN  I TAB  IT 
7 NITALGN 
INI TB Y 
INI TCDUW 
INTTDSP 


DEF 

47  52 
0205 
15, 3126 
30,3104 
10,3037 


REFERENCES 


373 
44 
383 
212 
216 
213 
1277 
959 

1 -,4  1136 

5 86 


373 


22? 


INI  TREAD  25,3114 
INITST  34,2061 


I N I TV 
INITVEt 
INTTVFLX 
INI TVEL 1 
INITVEL  2 


12,3506 
1 1,2000 
1 1,2255 
1 1 ,2026 
1 1,2062 


INITVEL3  11,2105 
INITVEL  4 11,2137 


36 
l 1150 
1 1150 

1 1150 

2 1150 
2 1151 
1 1 lc2 

1 1152 
1 1012 

2 366 

4 1182 


115  3 


367 
1 133 


INITVEL 5 
INITVEt  6. 
INITVEL7 
INITWNX6 

jnjtarg 

I X'L  INK 

INLUNCHK 

INREL 


11,2163 
11,2225 
11,2230 
26 , 3231 
32  ,3623 
C045 
1 1 ,3276 
0 137 


INRELTAB  40,2330 
INT-ARFT  11,3017 
INT/W  13,3536 
I NT  BANK  13,3042 


I MUC  0 M P 

I MUF  A 1 1 

06,2000  = 
06,2703  = 

29 

1 80 

1 

I 

3 26 

191 

INOE^ASE 

T OF  X 

6 206 

A 1 L A, 

1006 

1 A’  A 4 

1 

1 

1006 
1 ( 0 1 

IMTBI TAB 

T mT  R T t 1 e 

13 t 3466 

one 

lUvu 

1 v,  VJ  S' 

I 'M  ! D I ’ 1 u 

U A 1 J 

I MUF INE 

07,3210 

13  16 

6 

27  3 

1331 

INDEXES 

17, 3105 

1455 

3 

1454 

INTB15+ 

01  14 

I MUF I N E D 

07,3232 

13  16 

2 

13  16 

1321 

INDEXI 

23,3763 

1264 

1 

1263 

INTEGRV 

13,3134 

IMUFI  El 

43,2330 

273 

1 

2 62 

I NDE XL QC 

0130  = 

97 

12 

10  06 

1C8  9 

INTEGP VS 

13,3107 

IMUF1NEV 

43,2360 

27  3 

L 

213 

TNDEX2 

6164 

1006 

1 

1006 

I MTEGRV1 

13,3136 

I MUFIN20 

07,3210  = 

13  31 

1 NO  JUMP 

6274 

1011 

6 

1005 

1003 

INTEGP V2 

1 3,3141 

T MUGOf-D 

07,3636 

1327 

TNDWOR  K 

6204 

1006 

1 

1006 

IMTEXIT 

13 , 3225 

T MU MON 

06,2172 

lfcl 

2 

1 59 

INDXYZ 

16,3572  = 

1440 

1 

1429 

INTFLAG 

0227 

I MUOP 

06,2622 

176 

I 

181 

INERCDNA 

20,3041 

149  3 

1 

1488 

INTFLBIT 

67  36 

I MUOP 2 

06,2643 

176 

1 

176 

INERCONB 

20,3057 

1494 

1 

1488 

INTGR ATE 

11,3333 

I MUF'UI  SE 

07 , 3323 

1 3 1 c* 

7 

273 

14  0 0 

1NE-C0NC 

2:0 , 3060 

1494 

1 

14  37 

I NTGRCAL 

26,3242 

I MUSE 

■'007  = 

66 

7 

231 

1 3 3 '0 

INF1MAP0 

12,3737 

1200 

2 

1200 

TNT  I ME 

E7, 1607 

IMUSEBIT 

4744  = 

fs  (y 

3 

16  5 

208 

INF  I MB  IT 

/.74c;  — 

70 

INTI  NIT 

13,2000 

f V 

I MUSEFLG 

4744  = 

1331 

1 

176 

INF  INFLG 

0200  = 

79 

4 

I 186 

1 195 

intint 

35,3466 

I MUSLL  LG 

37,2315 

378 

3 

374 

338 

INF  INI TY 

12,3205 

1192 

5 

1189 

1192 

I NT INT2C 

34, 3062 

I MUSTALL 

07,3716 

13  30 

15 

2C8 

96? 

I NFL IGHT 

23,2000  = 

32 

2 

324 

1249 

INTINT3P 

34,3071 

I MUSUPER 

37,2000  = 

36 

I 

2 60 

INGTS 

E6 ,1633  = 

134 

8 

14  12 

1504 

INTLOCP 

35,2604 

I MUVAF 

26,3435 

5 86 

2 

5 31 

582 

IN  INDEX 

E 6 , 1 74  4 = 

132 

5 

14  31 

1482 

IMTLZE 

21 ,2365 

HEALTH  KEY:  NORMALLY 

DEFINED  UNLESS 

FLAGGED  AS  FOLLOWS: 

UN  UNDEFINED 

= DEFINED 

BY  EQUALS 

J DEFINED  BY 

JOKER 

OR 

ERASE 

ANYWHFF E 

MO  ! 

BD  BADLY 

DEFINED 

CO  DEF  INI TI 

n ASSOCIATED  WITH 

CL  NFL ICT 

XX 

M I SCit LANEOUS 

TROUBLE 

80 

2 

971 

972 

80 

4 

971 

9 80 

971 

1 

971 

910 

2 

734 

832 

1 364 

1 

13C3 

554 

fc 

553 

632 

2 

633 

639 

1 197 

3 

1195 

1196 

686 

3 

652 

766 

690 

1 

690 

686 

1 

686 

687 

1 

689 

687 

2 

667 

688 

1 

688 

689 

1 

688 

68° 

1 

689 

689 

1 

638 

583 

1 

503 

833 

1 

835 

92 

2 

222 

1339 

1 2 37 

1 

1238 

97 

23 

4C0 

4 05 

401 

2 

401 

404 

1233 

1 

1233 

1222 

2 

1221 

1213 

1 

1213 

1220 

2 

1219 

1220 

Of. 

•7 

c 

1 nn  t. 

96 

7 

96 

1506 

1216 

13 

236 

12  24 

1215 

7 

656 

788 

1216 

2 

1214 

1216 

1 

1243 

1217 

3 

1218 

1219 

82 

82 

2 

215 

1220 

1238 

584 

142 

30 

677 

644 

644 

662 

900 


1238  1239 
575  593 

663  726 

46  1221 
622  675 

636  637 

627 
66  2 
9C0 


2,1970 
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SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

I NTMCT8S 

41,2116 

40  8 

2 

ACT 

I SSWQN 

06,2726 

180 

1 

179 

JAMIE  R N. 

42  31 

455 

1 

1367 

I NTOTHIS 

13 ,2300 

7 10 

ISSZERO 

06, 2361 

166 

1 

174 

JARFG* 

E 5, 1464 

= 

121 

1 

121 

I NTPf FT 

6037 

1 

242 

2 07 

1392 

i SWCALL 

4 700 

TOGO 

JBRFG* 

E5 , 1430 

= 

121 

2 

121 

826 

I NTPR FT  X 

31  ,3677 

a 2 5 

? 

307 

n io 

I SWRET°N 

6?07 

1000 

3 

612 

76  0 

JDG2TTF 

E5 , 14  30 

= 

826 

1 

807 

INTPRETi 

23,2000 

= 

32 

1 

11  >0 

ITCTR 

E7 , 1616 

= 

142 

4 

686 

689 

JETRATE 

E 6 , 1745 

= 

132 

5 

132 

1425 

I NTPR  ET  2 

12,2000 

= 

30 

1 

1101 

ITEMP1 

0061 

95 

71 

95 

1416 

JETRATEQ 

E6 , 1746 

= 

132 

3 

1423 

1471 

I NTRPVP 

34 ,36C5 

7 30 

2 

726 

I TEMP2 

0062 

95 

32 

95 

1480 

JETRATER 

E6, 1747 

= 

132 

3 

1423 

1471 

INTPSM 

6050 

1002 

1 

1 1 10 

ITEMP3 

0063 

95 

30 

95 

1478 

JET  SAL L 

16,3554 

1440 

1 

1440 

I NTST  ALL 

13,341' 

121° 

30 

229 

1392 

ITEM P4 

0064 

95 

17 

95 

1326 

JET  SQFF 

16 , 3442 

1437 

7 

1431 

1440 

I NTVAI 

37 ,306 5 

389 

2 

3 83 

385 

1 TEMP5 

on  is 

95 

50 

q5 

1 300 

J F T SON 

17,9402 

1 463 

INTVFC 

E 5 , 1462 

= 

128 

ITEMP6 

0066 

95 

9 

180 

147  8 

JOBSLEEP 

5133 

1105 

8 

374 

1377 

I NT  V r l 

11  ,2000 

= 

29 

1 

686 

ITERATOR 

12 , 2r36 

1182 

1 

1195 

J0BSLP1 

01,2776 

1110 

1 

1105 

I NT  WAKE 

13,3425 

1220 

4 

2 97 

1217 

I TEkGJJU 

0026 

= 

1204 

5 

1 174 

1 

J0BSLP2 

01, 3007 

1 110 

1 

11  12 

TNTWAKEC 

04,3216 

12  26 

i 

12  26 

i T T S NA  SK 

10,3266 

1368 

1 

1361 

JOBWAKE 

^137 

1105 

13 

37  2 

1378 

I NT  WAK  EM 

04,3213 

12  26 

i 

1225 

1TRPNT  1 

32, 3354 

8 17 

J0BWAKE2 

Cl,  3023 

1111 

1 

11C5 

1 NTWAK  FU 

12  2^ 

i 

13  04 

1 T0PMT2 

32 ,3510 

819 

J0BWAKE3 

01,3035 

1 1 11 

2 

1111 

I NTWAK  EX 

04,3230 

1226 

i 

1226 

ITRO 

6370 

1014 

JOBWAK  E4 

01, 3027 

1 11  1 

1 

1111 

I NT 

13,3423 

12  20 

2 

495 

1226 

ITR  1 

6357 

1014 

JOBXCHS 

10,  77  7A 

1 363 

2 

13  59 

I NTWAK El 

13 , 3445 

12  20 

4 

7 1 1 

1220 

I TRIO 

614  2 

1005 

JOIN 

10,3552 

1374 

1 

1374 

I NT  W A K L. < 

04,3226 

1226 

i 

1226 

ITR  1 l 

6202 

1006 

JSWCHBIT 

4736 

= 

65 

I RTWAKUP 

04  ,3  232 

1226 

i 

12  25 

ITS  12 

6134 

1005 

J SWITCH 

0001 

= 

65 

5 

1238 

1243 

I NTWAK UO 

1 167 

= 

12  25 

3 

1226 

1226 

ITR  13 

6213 

1007 

1 

1P06 

JTLST 

17,3114 

1456 

2 

1437 

1455 

I NTWAK IQ 

1 167 

= 

1 04 

i 

1225 

I TR14 

6 2 37 

1008 

JUMPDSP 

16,2206 

1413 

1 

1410 

INTY 

E5 , 1470 

= 

128 

6 

335 

386 

I TP  15 

6123 

1005 

JUNCTN1 

34,3375 

725 

1 

725 

I NTYPBIT 

4750 

= 

71 

I TR7 

6261 

1009 

JUNCIN2 

34,3430 

726 

1 

726 

I NTYPELG 

0070 

= 

71 

19 

493 

1224 

ITSAJOB 

01  ,3635 

1305 

1 

1304 

J IJ  S T 0 A 

15,2042 

25  0 

1 

25  1 

INTZ 

E5 , 1474 

= 

1 23 

I T 5 A J 0 B 2 

01 ,3746 

1308 

1 

1 306 

JUSTOUT 

16,3157 

1433 

1 

14  34 

I NVEP T 

?0 , 3700 

1 5 04 

::  4 ' 

1 «. . ) 3 

] c 04 

T T S A TR  I 

O ] T A q ^ 

1 ^ 0 c 

l 

1 Q 03 

1 i | <;  T T P I M 

15,3027 

968 

l 

972 

I NVFI.AS 

36,2645 

74  3 

1 

7 43 

ITSAVAP. 

01,3551 

1303 

1 

1303 

JUSTZY 

15,2011 

250 

1 

251 

INVRSEQN 

12,3127 

1191 

1 

1191 

ITSAWA 1 T 

01,3570 

1304 

1 

1304 

J2REQSQ 

13,2022 

46 

1 

1235 

I RETURN 

E4 ,1502 

, = 

1 14 

8 

114 

1217 

ITSEVEN 

01,3752 

13C8 

1 

1305 

J4REQ/J3 

1 3, 2012 

46 

2 

1235 

I RETURN  1 

E7 , 1764 

143 

6 

152 

1225 

JTSINDIP. 

5436 

13  04 

1 

1 3 94 

I RIGCf MP 

06,3330 

328 

ITSLGCL1 

5^45 

1 306 

2 

13  06 

1 307 

K.01 

24,3666 

657 

1 

657 

I RIGX 

06,3356 

3 2Q 

2 

328 

334 

IT SLGCL2 

01 ,3707 

1307 

1 

1307 

K ( AT  ) 

32 , 3762 

836 

1 

833 

IRIGY 

06,3373 

3 29 

2 

328 

334 

ITS  LIKES 

01,3622 

1305 

1 

1303 

K ( 1/DV) 

27,2014 

39 

l 

833 

I RIGZ 

06,3410 

3 29 

2 

328 

335 

ITSLNGCL 

01,3734 

1307 

1 

1303 

KALCMAN3 

22,2004 

351 

1 

1331 

IRIGI 

06,3353 

3 20 

3 

326 

337 

ITSNOVAC 

01,3645 

L H 

1 

1305 

KALCMON 1 

22,2000 

= 

32 

4 

35  1 

365 

T SCADS  +o 

4220 

455 

2 

4 55 

46  A 

1 TSWBI  T 

473  5 

= 

77 

KALCMQN2 

22,2000 

= 

32 

1 

3C6 

I SITAIJTO 

26  ,2262 

4 76 

1 

365 

IT  SW  IC  H 

0151 

= 

77 

5 

6 27 

667 

KALEBCON 

07,3772 

1331 

1 

1331 

T SITS  co 

10,3155 

13  66 

1 

13  66 

ITSWTLST 

01,3741 

1307 

1 

1306 

KAOS 

16,2623 

1427 

I SITPF  10 

10  ,3240 

1367 

2 

1368 

ITU  IC 

06,2533 

172 

1 

181 

KCENTRAI 

E6 ,1741 

= 

132 

8 

1473 

1475 

I SI  I ST+O 

4224 

455 

2 

455 

464 

I TURN0N2 

06 ,2C56 

173 

2 

172 

176 

KDPNDX 

E6 , 1702 

= 

135 

3 

135 

367 

I SSESVCM 

04  ,2107 

2 28 

1 

2 27 

KEEP-2 

E7, 1560 

= 

149 

1 

149 

I SSUP 

06,2321 

1 6 5 

J ACC  UV 

20,2642 

1489 

l 

1 4 B 8 

KEFPPPIO 

10,2544 

1359 

2 

136  5 

1369 

i sswoff 

06  ,27  16 

1 79 

JAMPRQC 

4243 

4 56 

KEE  PV R 

1 4,2347 

852 

2 

852 
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SYMBOL 


DEF 


KEEPVR1  14,2351 
K El  E^,1630 

KEPCONVG  12,2333 
KEPC1  004? 

KEPC2  0044 

KEPLERN  12,2023 
KEPI. OOP  12 ,2  l j6 
KFPPPEP  11,2376 
KEPRTN  F 4 , 1 5 1 2 
KEP?Ppn  1 ? , 2004 
KEYCOM  04,3303 
K EYi  PTBB 
KEYRUPT 

K EYRUPTl  ' , 3274 
KEYTEMP1  0073 
KEYTFMP2  0734 
K IGNV/B4  E5 , 1 504 
K I G , 1 

KIGMY/B3  E 5, 15  )2 
KILC1CCK  35,3651 
KIILACT  07 , 2ChO 


852 
1 16 
1 1 78 
1202 
12C2 
1174 
1176 
1227 
1 14 
lies 
1338 
1 54 
26 
13  35 
95 

} rn 
121 
121 
121 
6 BO 
246 


REFERENCES 

1 851 

12  360 

3 1176 
3 1 174 
3 1174 

2 1228 

1 1177 

3 12  17 
3 11.78 
3 1175 


482 
1177 
1 196 
1150 


2 153 

1 1 3 38 
1 53 
154 
1339 
121 
121 
121 
6 80 
246 


1233 
1228 
1 199 

164 

164 
133  9 

787 
787 
787 
6 3 1 
261 


SYMBOL 

RIVAL 

K2 

12. 

* 2CNTR  AL 
K2THET A 
K2VAL 
K3 

K 3 S 1 

K3VAL 

K4 

K4SQ 


DEF 

27,2000 
Efe , 17  11 
34,2561 
E6 , 1742 
£6,1737 
27,2002 
E 6 , 1 717 
22,2370 
27,2004 
22,2372 
22,2374 


REFERENCES 


SYMBCt 


DEF 


P.EFERFNC  ES 


38 
135 
638 
132 
1 32 
38 
135 
357 
38 
357 
357 


1 773 


1 

22 

12 

1 


6 38 

1474  1483 
1473  1483 
774 


774 


l 

L *WCP*T 
I , PVT-CG 
l ADQSAVE 
t AG/TAU 
LAGSLI ST 
LALOTQkV 
LA  -18  ER  T 
l A MB LOOP 


0001 
0130 
E6 , 1527 
E7, 1714 
E5 ,1542 
4753 
13,2422 
12,321? 
12, 3330 
12,2701 
06,2766 
E7 ,1634 
E5 ,1712 
22,2000 
21  ,2  154 
31,21 44 
E5 , 1706 
£5,1710 
E7 , 1544 
00,3065 
00,3112 
00,3074 
5601 
00,3631 
16,332-5 
C 6, 3663 
17,3142 
E7 ,174-5 
25,3535 
21,2712 
21 ,2662 
21 ,2  674 
07, 3530 


HEALTH  KEY:  NORMALLY  D EE INE#  UNLESS  FLAGGED  AS  FOLLOWS: 


K ILL  BB 
KILLCLOK 
K ILL  DEAD 
KILL  Of 
Kit  LTASK 
K Il.LTSK2 
K ILI  2 

6036 

36,2733 

27,2242 

4 1 ,3314 

60  27 
27,2200 

04 , 2 254 

760 

744 

751 

4 38 
750 
750 

2 31 

1 

1 

1 

2 

1 1 

2 

3 

750 
744 

751 
438 

5 1 0 
750 

2 31 

746 

! AMENTER 
I.AMPTE  ST 
L AND 
LANOAL  T 

L ANDCN ST 
LANDIS  P 

1 AM  1 11  ( m,  K 

1 M 1 Lf  vj  LU  1 1 I \ 

KILMONON 

4 2 04 

4 54 

4 

446 

468 

L ANDLAT 

KLEENEX 

10, 2333 

13  55 

LAN OLD NG 

KOI-.  4 AT 

05,2001 

51 

5 

585 

987 

! E - 

KPIP 

33 , 2020 

41 

1 

860 

LARGE 

K P I P 1 

33 , 2021 

41 

5 

917 

88  7 

l ARGE2 

KP1P1 (') 

21 , 2004 

42 

3 

QOl 

902 

LA'-  GE3 

K PI  R2 

33,2023 

41 

1 

882 

l ARMFNT 

k g 

E6 ,1504 

1 32 

4 

132 

1490 

l ASINE  X 

KRDAP 

E 6 , 1 5 G 6 

= 1 32 

1 

1460 

L AST 

K SPNDX 

E6 , 1 7 C 1 

= 1 35 

6 

135 

367 

1 A. ST  31  AS 

KT 

£7,1575 

= 1 4 1 

5 5, 

666 

729 

L ASTCHG 

KT1 

33 ,2200 

899 

1 

846 

! ASTLADW 

K VI 

E6  » 1 7 n3 

= 1 35 

4 

135 

LASTLRDT 

K V2 

E6 , 1 7 1 1 

= 1 35 

4 

135 

LASTNE  GY 

K V3 

E6 ,1717 

= 1 35 

.4 

1 35 

LASTOK 

K 1 

E6 , 17C3  = 

= 135 

l A STPO  S Y 

K 10RK2 

34,2542 

6 38 

1 

6 38 

t AST  SE  G 

52 
1 22 

1 33 
151 
122 

2 09V 

I 135 

I I c3 
1104 

1184 
18  1 
149 
123 
32 
398 
7°  1 
123 
123 
149 
1070 
1072 
1072 
138  1 
10  84 
1435 
336 
14  57 
151 
562 
905 

904 

905 
1324 


311 

2 

1 

K- 

2 

1 

■"HU 

2 

3 

1 

2 

19 

3 
1 

4 
1 
4 
4 
9 
1 
2 
1 
1 
1 
2 
1 
1 

1 

2 

2 

2 

1 


LASTTIME  01,3501 
LASTTPIP  E7 ,17  57 
L ASTXCMD  Cl  13 
LASTYCMD  0112 
LAT  1120 

LAT-LONG  13,2351 
lATAZCHK  37,2021 
LATFWDV  21,2562 
LATITUDE  £5,1402 
LATLONG  13,2000 
LATVEL  E 7 , 17Q0 
= ========  LATVMETR  E7 , 16  76 

93  1509  l AT VN EG  21,2766 
7R4  IATVPPS  21,2761 

14«9^  LAXIS  E 4, , 17  02 

T51  90  7 L BUF?  On, 24 70 

122  81  9 L CHAN  \ 0001 

208  LDANZIG  00,3713 

S 33  L9ATALST  0334 

1246  LDLQ0P72  04,3673 

1 195  1 197  L ON DUMP  05,^720 
1197  I.  DM  DUMP  T 43,3050 

170  171  LDNDUMPL  05,3721 

149  812  LDNPHAS1  05,3351 

317  533  LQNPHAS2  05,3640 

827  LOPOSMAX  12,2017 

829  830  LEADTIME  E7,1426 

233  LEFT  00,2342 

123  933  L EFT-  00,2336 

123  933  L EFTNCOM  40,3156 

149  805  LEFT5  4331 


1132 
151 

96 
96 
1 04 

1133 
373 
903 
127 

30 
150 
150 
906 
906 
1 19 
1 059 
93 
1085 
99 
1 394 
996 
298 
996 
222 
993 
1202 
138 
1056 
1 056 
433 
460 


818 


151 
530 

96  5 35 

104  1135 
657  933 


18 

13 

1 

1 

5 

2 

19 


6 127 

1 1133 

150 


150 
905 
°06 
120 
1083 
158 

1 1084 

2 99 

1 1 3C4 

oc  6 


380 

906 

907 


851 

1085 

1437 

994 


288 

996 

219 

991 


1 1200 
1 898 

1 1053 
1 1053 
1 433 


414  1292 


UN  UNDEFINED 
BD  BADLY  DEFINED 


= DEFINED  BY  EQUALS  J DEFIf 

CO  OFF  I N I T I f ! ■ ASSOCIATED  WITH  CONFLICT 


1070 

LEGAL? 

21,2110 

835 

2 

8 30 

1 0 70 

1071 

LEGALTST 

40,2527 

404 

2 

404 

1070 

LEMAL  ONE 

n 1 ,2271 

2 95 

1 

294 

1384 

LEMCONIC 

13,3100 

1214 

5 

339 

954 

1084 

LEMGEOM 

13,2000 

= 30 

1 

320 

1435 

LEMMASS 

1331 

107 

21 

194 

1495 

857 

L EMONM 

00  56 

= 93 

14  57 

LEMPR  EC 

13,3057 

1214- 

13 

37 

976 

LEMSTOTE 

23,2376 

697 

1 

697 

561 

LEMVEC 

'■3,30  51 

288 

1 

263 

9 04 

LENGTHOT 

£5,1412 

= 127 

Q 

127 

338 

904 

LESCHK 

05,3352 

222 

1 

222 

904 

LET  AB  B I T 

'743 

= 81 

3 

73° 

835 

13  24 

LET  ABPt-  T 

C215 

= 81 

3 

791 

854 

OR 

ERASE 

ANYWHERE 

MO 

MULTI  PLY 

DEFINED 

XX 

MISCELLANEOUS 

TROUBLE 
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SYMBOL 

DEF 

H 

REFERENCES 

symbol 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

LETI'  LI  V 

27,2221 

751 

wmmkm 

751 

IT L SAL  01 

05,2127 

= 

202 

1 

202 

LOC  SK  IF  T 

22,2744 

= 

364 

7 

353 

355 

LGCI.CAO'- 

0)  ,377  2 

1308 

l 

1307 

1 MLS  AL  02 

05,2136 

= 

202 

1 

2 02 

LODES  CRT 

20,2003 

43 

1 

1487 

LGCL2CDR 

5 307 

1131 

l 

I 131 

L.MLSALC3 

05,2145 

= 

202 

1 

2 02 

LOOM! XNN 

42,2121 

3 04 

1 

304 

L GCOMP 

06,3531 

333 

3 

326 

336 

L MLS  AL  04 

05,2154 

= 

202 

1 

202 

LODNLV 

42,2137 

304 

1 

304 

L GCUPDTE 

26,3401 

586 

4 

577 

582 

L ML  SAL  05 

05,2157 

= 

202 

1 

202 

LODNNl OC 

41,2113 

408 

8 

407 

427 

LGRET 

E7 ,16  75 

= 

145 

4 

145 

586 

LMLSAL06 

05,2170 

= 

202 

1 

202 

lodnntab 

42,2103 

304 

1 

408 

LGWAKE 

07 , 3404 

13  20 

2 

1320 

1321 

LMLS.AL07 

05,2276 

= 

202 

1 

202 

LODPHALF 

12,2004 

= 

37 

3 

322 

1199 

L GYRO 

1 3 1 4 

1 06 

9 

22? 

1324 

L M I,  SAL  OB 

05, 2224 

= 

202 

1 

202 

LOD  PM  AX 

12,2017 

1 101 

3 

37 

1202 

LGYROBI N 

43,2356 

273 

1 

273 

LM  L SAL  09 

05,2226 

= 

202 

1 

202 

L0DPMAX1 

12,2021 

1 101 

1 

37 

L IGHTSFT 

06,3070 

2 18 

2 

215 

216 

t MOMEGAN 

£6,1407 

129 

2 

213 

1425 

l.CDPl/4 

04,3036 

= 

37 

1 

1137 

El  (-22) 

27,3756 

1283 

1 

1278 

l MONLY 

16,2462 

1425 

1 

1425 

LODSAMPT 

4400 

462 

3 

438 

1339 

LIMAl  ARM 

26,3675 

593 

2 

591 

LMOONBIT 

474] 

= 

79 

1 

213 

LOENEP.GY 

12,3442 

1 196 

1 

1195 

L IMITCOM 

42,3334 

4 22 

1 

4 22 

L MO ONE  LG 

0174 

= 

79 

5 

37 

1212 

LOG  SUB 

30,3036 

856 

1 

847 

L I M I T S 

47  34 

= 

13  95 

10 

9 23 

1473 

LMORBMDL 

05,2046 

= 

194 

1 

204 

LOKONBIT 

4747 

= 

66 

1 

5 5 1 

L IU  SUB 

30,3727 

9 24 

7 

014 

519 

t M 0 1 BM01 

05,2127 

194 

4 

194 

202 

LOKONSW 

0012 

= 

66 

5 

2^1 

510 

L IT  C 

17,2344 

1446 

2 

l '546 

1447 

t MORBM02 

05, 2136 

194 

6 

194 

204 

LOL  IM 

12,3503 

1 19T 

2 

1 194 

L INR ATP 

16,31 35 

1433 

1 

1434 

l M0RBM03 

05,2145 

195 

6 

194 

204 

LOMAT 

35, 3447 

677 

2 

674 

675 

1.  ITU  ? 

5464 

= 

1373 

2 

474 

511 

l.MO-  3M04 

05,2154 

195 

6 

194 

204 

LONG 

1122 

= 

104 

7 

104 

1135 

L INUSCHR 

10 ,3374 

1370 

2 

13  58 

I 359 

LMORBM05 

05, 2157 

195 

6 

194 

204 

L0NG8ASE 

1151 

104 

2 

13  C 1 

13  07 

L IT  I T 

25,3650 

6 1 3 

1 

613 

l 1,v  8M06 

05,2170 

195 

3 

194 

20  2 

LON GCA DR 

1147 

10' 

2 

1131 

1132 

L MAGS IDL 

05,2407 

= 

2 04 

3 

193 

204 

LMPOS 

E 4 , 1751 

= 

119 

4 

119 

565 

LONGCALL 

5277 

1 1 30 

5 

374 

13  08 

L MAGS  I 02 

05 ,3 136 

_ 

2 04 

] 

2 06 

I MRENUDL 

05,2232 

_ 

198 

204 

i in! or  i r i 

01,3727 

1307 

2 

1 307 

L.  1 v'vC  L C 1. 

L MAGS  I 03 

05,2145 

= 

204 

1 

2 04 

END  01 

05,2127 

= 

198 

1 

198 

LONGC YCL 

01,3466 

1131 

2 

1131 

1132 

L MAGS  104 

05,2  154 

= 

204 

1 

2 04 

L MR  END  02 

05,2136 

= 

198 

1 

198 

LONGEX  IT 

E3 ,1434 

109 

4 

1 131 

1132 

L MAGS  I 05 

05,2157 

= 

2 04 

1 

2 04 

L MR END 03 

05,2145 

= 

198, 

1 

198 

LQNGGYF 0 

07,3543 

1324 

1 

1323 

lmcstaol 

06,2172 

= 

196 

2 

193 

204 

L MR  END  04 

05,2154 

= 

199 

1 

1 9 >3 

LONGPOCH 

01,3521 

1 132 

2 

1131 

LMCSTA"! 

05,2127 

= 

1 9 6 

1 

196 

LMREND05 

05,2157 

= 

199 

1 

198 

LONGRTRN 

01 ,3506 

1 132 

1 

1132 

L MC  S T AO  ? 

('6,2136 

_ 

1 06 

1 

1 56 

i FMD06 

Oc  i 2 2 24 

1 99 

193 

I i ’MRT  T 6 F 

104 

13 

1130 

1307 

l I1  . L ''‘LI  UU 

l.  u IN  T I i :C 

1 1 MJ 

LMCSTA03 

05,2145 

= 

196 

1 

196 

L MR  END  0 7 

05 , 2276 

199 

2 

198 

202 

LOOK ANGL 

E7 ,1667 

= 

150 

1 

807 

LMCSTA04 

05,2154 

= 

1 96 

1 

196 

LMTR  AP 

E6 , 1406 

129 

2 

2 13 

1425 

LOOPCT 

E 7, 1605 

= 

141 

r 

633 

641 

LMCSTA05 

05,21  7 

= 

196 

1 

196 

l MVEL 

E4, 1757 

= 

119 

4 

119 

565 

L 00  PER 

17,3005 

1454 

3 

1449 

1455 

LMCSTA06 

03,2224 

196 

4 

196 

202 

LNCHTM 

E7 , 1660 

= 

148 

3 

148 

495 

LOOPMX 

34,2057 

632 

I 

633 

LMCSf  AO 7 

06,2226 

1 96 

2 

196 

202 

LNGCALL2 

01 ,3452 

1131 

1 

1 1 31 

LOO PR  ATE 

16,3670 

1470 

2 

1470 

1471 

LMDSASOL 

05,2303 

= 

200 

1 

2C4 

LOADDAP 

20, 2000 

= 

31 

1 

292 

l HOPS  IN 

22,2417 

357 

1 

3C8 

L MDSAS02 

05,2136 

= 

2 00 

1 

200 

L0ADDAP1 

01 , 2000 

= 

28 

2 

43 

293 

PI 

23,3716 

1264 

1 

1263 

LMDSAS03 

05,2145 

= 

200 

1 

200 

LOADIT IS 

10,3461 

137  1 

1 

1368 

L00P2 

23,3715 

1263 

1 

1264 

LMDS AS 04 

05,2154 

= 

200 

1 

200. 

LOADLV 

41,2775 

427 

10 

406 

435 

L00P3 

20,2730 

1490 

2 

1490 

LMDSAS05 

15,2137 

= 

200 

1 

2 00 

UiADLV  1 

41 , 2001 

4 06 

1 

274 

LOOSE 

37, 2730 

386 

1 

387 

LMDS  AS  06 

05,2170 

= 

2 00 

1 

200 

LOADS! AT 

1014 

102 

4 

427 

45  8 

LOSCAl AP 

0004 

= 

93 

4 

361 

1454 

L MDS  AS  07 

05,2341 

200 

1 

.200 

I.OADTI  ME 

10,3573 

1397 

35 

207 

122  4 

LOSCMBI T 

4740 

= 

68 

4 

5C2 

604 

L M D r S ( 

05  ,2355 

201 

1 

200 

I.OASCE  NT 

20,2001 

43. 

1 

1487 

LOSCMFLG 

0041 

= 

68 

10 

4C  6 

598 

L MDS  A S 09 

05,2224 

= 

201 

1 

200 

LOC 

0164 

99 

46 

371 

1373 

LOSCOUNT 

E7 , 1456 

139 

39 

183 

612 

LMINT 

24,3264 

5 65 

1 

565 

LOCCTR 

0064 

= 

95 

31 

372 

136  7 

LOSDESF.D 

E 7 , 1711 

= 

144 

6 

144 

592 

LMK AOSN 

E6, 1410 

1 29 

1 

213 

I.OCKANGL 

22,2402 

357 

1 

351 

l.OSSM 

1101 

= 

604 

3 

598 

600 

LMLSALDL 

05,2357 

= 

2 02 

1 

205 

LOC SAM 

14,2506 

935 

3 

935 

9b2 

LOSVDT/4 

E3 , 1760 

= 

604 

8 

59  8 

600 
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S YMbOL 


DEF 


H 


REFERENCES 


SYMBOL 


DEF 


LOSVFC 
LPSVEl 
L 0S1 
L0S2 
LOTEMIN 
L OTEMC'UT 
LOTHRUST 
1 

LOUR  I TY 
L0UN1TZ 
LOUPE 
LOWCRIT 


E5, 1413 
E 3 , 1 7 60 
E5, 1444 
F*t  ,14  52 
0124 
1010 
33 ,2352 
12,2004 
12,2002 
12,2000 
21,3621 
E5 ,1506 


LOWFCCLD  31,2272 
L.  LW I DC  00  0 3,20:' 4 


LOWLQAD 
L 0 > c )PFC 
L OWVER.R 
L0W10 
LOW!  1 
L 0W2 
L0W3 
LOW  4 
L 0W5 
LOW? 

U W7+2K 


10,3526 
30,20  JO 
41,2034 
12 
4356 
6245 
4757 
4 76  2 
4 346 
6074 
5013 


127 
112 
127 
1 77 
96 
101 
G 62 
37 
37 
3T 
1484 
1 21 
7 94 
1»3 
1372 
34 
407 
1097 
461 
1C  •-  - 
1 19  9 
1 jOF 
461 
1003 
1097 


127 
1 1 2 


3 87 
60  4 


4?4 
8 61 


21 

7 


3 

14 

14 


1 1483 
3 121 

1 7 94 

1 0Q7 

1 1 3 i-  8 
8 2 10 
1 407 

232 
156 

1 10  53 

2 2 .3  2 
745 
3 cq 
228 


t RHMAX 
L HT  AS  K 
LRINH 
t.R  I NHB  IT 
LRLCTR 
LRMCTR 
l R OFF 
L RON 

I RPUSALM 
l RPOSBIT 
L R PO  SC  AL 
L R PO  SC  AN 
LRPOSCHK 
LF  PO SF  LG 
t F POSNXT 
'•  ‘ 3 iPPOSOUT 
LRP0S2 

1291  LRP0S2K 
1014  LR.  P2  AL  M 
LRRCTR 


794 


105  0 
1375 
1339 
1371 


1 10C9 


L R SC  K 
t p.  SC  TR 
LRS22 

! ( j22.  1 

LRS22.  IX 


L OWP 

4 3 57 

4 6 1 

21 

1 ‘‘I 

1394 

1.  k S 2 2 . 2 

L GW  9 

5004 

1096 

12 

2 45 

1113 

L-  S24.  l 

L 06  ZEROS 

12,2006 

= 

37 

C 

248 

1165 

t R S 2 4 . 11 

L PS  20 . 1 

24,3255 

565 

C 

4 96 

570 

LRUPT 

L PS2r  .2 

25,3565 

5 66 

1 

496 

LRVEL 

L RADRET 

E7 ,1650 

= 

1 4 9 

4 

14P 

897 

Lx  VELBIT 

L - ADR  Ell 

ET  , 1 6 56 

= 

1 50 

2 

895 

896 

! R VE  LF  LG 

L ALPHA 

E5 ,1522 

= 

1 21 

3 

122 

896 

LRVELX 

L '■  AL  °HA2 

E5 ,1524 

= 

12? 

1 

122 

1 VELY 

LRAt  T 

25,3073 

553 

2 

491 

893 

LR VELZ 

LRALTBI  T 

4747 

= 

86 

1 

612 

LR  VF 

LRALTFLG 

02  76 

= 

86 

LR  V JOB 

1 ;•  BETA1 

E5 ,15  23 

= 

1 72 

1 

1 22 

LP VM AX 

LF BETA  2 

E 5 , 1 52  5 

= 

1 22 

1 

12? 

ITVTIMDL 

L 0 P Y B T T 

4735 

83 

...  f 

229 

874 

[ P \/  7 T V,  £ 

LRBYPASS 

0245 

= 

83 

1 

785 

l.  R W H 

LPEGCHK 

04,3000 

7 02 

1 

701 

L RWVFF 

LRESC 

20,2667 

14  39 

1 

I486 

L K W 7 F X 

LRHF  IGHT 

25,3272 

c k 7 

1 

5 56 

LRWVFY 

LRHJOB 

34,3716 

893 

1 

87? 

LRWVFZ 

E7 , 1620 
21,2130 
02  54 
A 74  4 
E7 , 1670 
E 7 , 1672 
43,2325 
43,2322 
33,2536 
4 746 
43,2641 
25, 3543 
25 ,3220 
0275 
25 , 3C 1 2 
40,2635 

25. 3471 
43,2151 
43,2160 
E7, 1671 
25,3417 
E7 , 1673 
32,2000 
32,2366 
E7,  17  37 
24,3333 
26, 3462 

26 .3471 
0011 

25,3107 
4 7 44 
0273 
25,3101 
25,3077 
25,3075 
E5 ,1527 
33, 3616 
£5,152.6 
F;4, 1737 
E4, 1652 
E7, 1421 
E5 ,1536 
E 5 , 1 35 
E 5, 1334 
E5, 1533 
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REFERENCES 


SYMBOL 


DEF 


136 
372 
84 
84 
150 
150 
272 
271 
875 
86 
279 
562 
556 
86 
561 
418 
561 
265 
265 
150 
559 
150 
34 
569 
146 
57  2 
8 88 
589 
92 
553 
86 
86 
553 
553 
553 
122 
892 
122 
ir- 
116 
138 
122 
122 
122 
122 


UN  UNDEFINED 
BD  BADLY  OFF  INEO 


= DEFINED  BY  EQUALS  J DEFINED  BY  JOKE : 

CD  DEFIRJTTr,.  ASSOCIATE©  WITH  CONFLICT 


885 
829 
272 
8 85 
150 
150 
262 
262 
874 
561 
276 
561 


88  3 
896 
896 


561 
417 
265 
262 
265 
1 50 
559 
150 
41 
505 
146 
505 
5 16 


562 

895 


896 


896 

569 


573 

592 


1 892 


4 PI 
491 
491 
122 
889 
122 
2 CO 
1 16 
885 
1 22 
122 
122 
122 


553 

888 


888 

892 

894 


889 


LRWVX 

LRWVY 

LRWVZ 

LR  XCDU 

LRXCDUDL 

LRYCDU 

LRYCDUDL 

Lp  ZCDU 

LRZCDUDL 

LSDTSP 

LSORI ENT 

LSPQS 

LSR22.3 

LSR22.4 

LSTBNKCH 

L ST  I I M 

LSTPTR 

L ST  1 

LST2 

LST2CCN 

LST2FAN 

1 S21X 

LTHVACA 

LUNAB  IT 

LUNA FI  AG 

LUNDESCH 

l UNG 

LUNLANAD 
L UNLAND 
l.UNPOS 
L JNRSAl  N 
LUNSFCHK 
LUNSPH 
LUNVEL 
LV 

LVBUF 
L VELBIAS 
LVLIMITS 
LVMINLM 
LVSQUAPE 
L VlsITL  I ST 
L X A 
LXC 

LI  A /OUT 


H 


E5 ,1532 
E5 ,1531 
E5,  1530 
F4 , 1654 
E4, 1734 
E4 ,1655 
E4, 1735 
E4 , 1656 
E4, 1736 

14.2462 
04,3013 
15,3664 
26,2412 
26,3200 
43,3723 

4747 
C 144 
E3, 1400 
E3 ,1410 
41,2 145 
43,2002 
F3 ,17  57 
05,3355 
47  40 
0060 
25,2421 
15  ,2670 
17,2025 

31 .2462 
15,3664 

0005 
24,2667 
11,3360 
15,3775 
0 044 
6273 
25,2000 
21,2730 
21,3020 
0042 
52  15 
01,2354 
01,2360 
40,27  ! 1 


REFERENCES 


122 
122 
122 
116 
119 
1 14 
1 19 
116 
n< 

933 
983 
985 
575 
583 
1273 
751 
97 
109 
109 
408 
262 
1 12 
222 
70 
70 
539 
965 
741 
700 

985 
236 
TQ7 
1238 
987 
93 
1010 
41 
906 
906 
93 
1 1 19 
1087 
1087 
419 


122 
122 
122 
1 I 6 
119 
116 
1 19 
116 
119 
933 
932 
935 
5C6 
575 


888 

894 

892 

886 


894 

892 


976 

1237 

585 


ft 


I 1292 
1 75 1 


48 

41 

1 

2 

4 

4 


154  1303 
220  1128 


40  8 
262 
409 

221 


466 

565 


656  1139 
322 


964 


96  3 
741 
741 

487  1238 


516 


235 
49  2 
1 1237 

1 1239 

2 1070  1072 
1 1034 

1 556 

4 9C4 

6 905  906 

2 1070  1075 
1 1123 

1 1012 
1 1012 
1 419 


88  8 


OR  ERASE  ANYWHERE  MQ  MULTIPLY  DEFINED 
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SYMBOL 

DEF 

H 

P E F E c ENCES 

SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

A /SCC • l 

42,3377 

423 

1 

422 

MARK PE RF 

10,2440 

1357 

1 

1367 

MOOT DPS 

36,2002 

38 

1 

333 

M/SC0N2 

42,3400 

423 

1 

622 

MARK  PL  AY 

10,2377 

1356 

4 

13  56 

1 37? 

MD  1 

4362 

461 

4 

45  8 

13  91 

M /SCON 3 

42,3402 

4 23 

4 

422 

MAT KRET 

10,3413 

1370 

1 

13  69 

ME AS  INC 

23,2000 

= 

32 

1 

114  9 

M/SL  r IT 

l 2 ,3326 

4 2? 

2 

4?? 

MAT KRU  0 T 

07, 233? 

254 

2 

1 53 

1 54 

MF A ST  Nf  1 

23,2000 

_ 

32 

1 

1 >L  H Ol  1 > V.  1 

1 I 0 

M /SNORM 

42,3342 

422 

7 

422 

42  3 

MARKSTAT 

1312 

106 

34 

222 

261 

METHDD1 

22,224? 

354 

1 

354 

M /SHUT 

42,3303 

422 

1 

417 

MAF  KTEST 

26,2504 

576 

1 

575 

METH0D2 

22,2216 

354 

MAG SUP 

4512 

, 521 

9 

523 

544 

MARKTYPE 

07,2514 

2 58 

5 

255 

260 

METH0D3 

22,2266 

355 

2 

354 

MAGVEC2 

E c , 1 7 1 7 

= 

1 2C. 

fe 

1 2r' 

1197 

M AK K WAKE 

10, 3023 

1 3 64 

1 

1371 

mfi 

£4 , 16  30 

= 

1 16 

12 

35  1 

353 

M AINF.t'G 

30,2425 

846 

1 

846 

M A1-  K2PAC 

1073 

1 03 

2 

1364 

1 365 

MF I SYN 

£6,1703 

= 

135 

12 

3C  3 

3 55 

M A I Nl  INE 

30,2704 

B 50 

? 

8 51 

MARK3MSK 

1 0 ,380  ‘j 

137? 

2 

13  55 

mfr  ef 

15, 3462 

978 

y 

9 8 1 

982 

C 

MAINFTNE 

34,3434 

726 

l 

729 

MARK4MSK 

10,3506 

1372 

1 

1355 

MF  S 

E4, 1630 

= 

116 

5 

116 

351 

MAINRTN1 

34,3460 

727 

1 

727 

MAR SLE  EP 

10, 3454 

137  1 

1 

1356 

MGARET 

30,3275 

914 

1 

924 

M A J + 

07,3467 

1323 

1 

1322 

.VASKREG 

E5 ,1534 

= 

127 

MGC 

E 5 , 1743 

= 

123 

3 

123 

1253 

M AJ- 

C 7, 3 6 07 

13  26 

1 

13  2? 

MASS 

1244 

= 

10K 

1? 

105 

1495 

MGLVFB IT 

4752 

= 

75 

M AK E ACC  S 

37,3515 

8 54 

2 

8 59 

MASSCTR 

0 161 

= 

1496 

5 

18  94 

149  5 

MGL VFL  AG 

0130 

= 

75 

2 

6C? 

M AK  F C AD" 

4^45 

990 

] £ 

271 

I486 

MASS#! X 

20,2513 

14  87 

3 

1^87 

MG? 

07 ,37  26 

1 3 30 

1 

1330 

-L 

MAKEGEN 

10 , 3537 

1373 

1 

1361 

MASSMON 

33, 2233 

860 

MIDAVBIT 

*7  52 

= 

81 

M AKEMARK 

10,2364 

1 3C  5 

1 

1359 

MASSMULT 

31,2400 

7°6 

2 

793 

MI DAVFLG 

0224 

= 

81 

3 

1224 

1242 

MAP  EM  AX 

20,3027 

14  5 3 

1 

1.4  9 3 

MASS1 

£7,1570 

= 

147 

5 

147 

864 

MI  DDGI.M 

06,2000 

= 

29 

1 

692 

MAKER l AY 

10  ,2  54  6 

13  ^9 

3 

13  58 

1373 

MAT  INC 

0 140 

97 

9 

97 

1039 

MIDFLAG 

000  2 

= 

65 

p 

1218 

1245 

MAKE  PR  10 

10,2512 

13 

1 

135' 

N;  AT  MOVE 

14,3377 

948 

7 

944 

c75 

v I D F L B I T 

47  37 

= 

6^ 

M AK  ERUPT 

7754 

14  55 

2 

1458 

1459 

MA  X 

0016 

= 

12  04 

4 

1132 

1183 

MI0OPLST 

17,3131 

1457 

1 

1456 

MANE  LAG 

16,2202 

1413 

1 

14  12 

MAXANG 

22,2364 

357 

1 

352 

M I DID A V 1 

13,3557 

1223 

1 

734 

M ANMODF 

16,3027 

14  30 

1 

1430 

t'AXCHECK 

12,2625 

1 183 

1 

1183 

MIDT0AV2 

13,3553 

1223 

1 

758 

M ANUCALL 

22,3177 

367 

1 

367 

!'AXCHK 

22,3636 

721 

6 

617 

720 

MID1FBIT 

47  51 

81 

MAN  If  i-  I T 

47.3  6 

= 

77 

MAXCOGA 

12,3302 

1194 

2 

1 1 T4 

MI01FI AG 

0223 

= 

81 

4 

1223 

1225 

M A N U F 1 AG 

0 1 5 2 

= 

77 

MAX  OB 

05,3067 

2 1 e 

1 

212 

MI  02 

13,3652 

1224 

1 

1224 

M ANUOFF 

22,3113 

366 

] 

3 66 

M A X D T 

13.3 3 A 1 

17  10 

0 

1 7 A ft 

M I 

/,  7 /,  7 

4 6 1 

1 

428 

X D 9 D 1 

C. 

1C  lu 

1 

MANUSTAL 

22,3067 

3 66 

MAXDV 

00, 2642 

1065 

1 

1C  61 

MID7 

4 144 

439 

4 

439 

1372 

M AN US TAT 

22,3122 

366 

1 

365 

MAXDVSW 

016-0 

= 

97 

6 

1057 

1072 

MIMRET 

17,2307 

1445 

1 

1445 

MAN US TOP 

22,3213 

369 

1 

3 66 

MAXFORCE 

£5 , 154b 

= 

122 

2 

122 

819 

MIN 

0010 

= 

1204 

4 

1182 

11  83 

M ANUVEL 

26,2 C 0 0 

= 

33 

1 

473 

MAX  JETS 

17,3340 

146  2 

1 

1462 

M IN  + 

07 , 3464 

1323 

1 

1322 

MANUVEkI 

26 ,2000 

= 

33 

1 

4 83 

MA  XNM 

22,3645 

721 

3 

721 

M [M- 

07,3604 

1326 

i 

1322 

M ARKCHEX 

07, 2217 

2 52 

2 

2 5? 

261 

MAXPLUS 

20,3035 

1493 

2 

149  2 

1493 

MINA8DV 

33 , 2204 

855 

1 

84  3 

markcntr 

E7, 1550 

= 

145 

13 

145 

261 

MAXRA 

27 , 3461 

1274 

2 

1274 

MIMADF 

17,2317 

1^46 

1 

1445 

MAPKCOP 

in , 2413 

1356 

I 

1356 

MAXTFST 

00,2565 

1061. 

4 

1060 

1074 

MINANG 

22,2362 

357 

1 

352 

MAFKCTr 

E7 ,1462 

1 39: 

K 

496 

711 

MAXTFF 

27,3651 

1280 

1 

1279 

MINB12 

7741 

= 

994 

1 

992 

M AFKEBAN 

1 C 7 1 

103 

1 

1372 

MAXTFF 1 

27,3650 

1230 

1 

1277 

MINB1314 

0*1,3560 

9Q2 

1 

992 

MAPKFND 

10,2326 

13  54 

1 

13  5 4 

MAXTRIE-S 

24,  231.' 

495 

2 

509 

510 

M INCHECK 

12,2571 

1182 

1 

1182 

M AFKFL  AG 

1071 

= 

1.37  2 

i 

13  56 

maStpys 

25 ,2674 

2 

1 

5 43 

MINCPOA 

12,3320 

1194 

1 

1 197 

MAI  KFMSK 

10,3031 

13  64 

2 

1355 

MAXVBITS 

21, 2005 

42 

8 

904 

906 

MINCON 

42,3540 

435 

1 

434 

M ARKFORM 

10,2340 

1355 

MAX  2 50 

35,3733 

684 

1 

6 67 

M INCONI 

42,3275 

422 

1 

424 

MARKOV 

0370 

1 CO 

C 

1356 

1365 

MCTOMS 

25,3071 

55  2 

2 

548 

551 

MIMC0N2 

42 ,3273 

421 

2 

421 

MARK OCT 

10,353? 

1373 

1 

136  3 

MOOT 

E7 , 1736 

143 

2 

143 

774 

MINC.SM 

4741 

= 

43 

1 

2C4 

MARK  OVER 

10,3421 

137  1 

1 

13  54 

MD C TAPS 

36,2010 

39 

M INDEX 

07  7'.- 

101 

4 

228 

232 
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SYMBOL 

DEE 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

M INF0f.CE 

E5, 1544 

= 1 22 

2 

122 

819 

MNKEYI  N 

0015 

= 

93 

2 

218 

1338 

MORE I DIE 

16,2157 

1413 

3 

16  10 

1411 

M INIMP 

43,3001 

284 

1 

263 

MODABORT 

07,  374  1 

1330 

2 

1330 

MORNUM 

40,2312 

401 

2 

600 

M INI RECT 

11 ,3 A 55 

1240 

3 

4 95 

1222 

MODDONE 

12,2124 

1175 

0 

1 17* 

MO VAT  HIS 

13,2747 

= 37 

1 

1222 

M I NL  M D 

01 , 20  90 

/•i 

1 

204 

MODE 

0163 

09 

37 

3 26 

1373 

MOVEACSM 

13,2674 

1211 

3 

1 1 c 7 

1211 

M IN  MI  Nl  M 

i 01,2001 

43 

1 

294 

MOQEA 

11C7 

= 

103 

4 

323 

539 

MOVEALEM 

1 3,2747 

1212 

4 

37 

1212 

M INPERE 

22,3365 

7 16 

2 

7 14 

717 

MODEB 

1111 

103 

4 

103 

542 

MOVEPCSM 

13,2723 

1211 

3 

1157 

1211 

M I NP tf M 

22,3363 

7 15 

1 

717 

NO  DECADE 

1304 

106 

10 

106 

1330 

MGVEPLEM 

13,2770 

1212 

3 

1156 

1212 

M TNQR 

17,2266 

1*  4 5 

2 

14  45 

MODE  EX  IT 

07, 2755 

13  11 

8 

1310 

133  0 

MP  AC 

0154 

99 

921 

98 

1506 

M INRTL 

17,2273 

144-5 

1 

14  4 fe 

NOOEGOOD 

07 ,3731 

13  30 

1 

13  30 

MPAC  + 

00,2437 

1059 

2 

1058 

SA  TI  T!  M r C 

1 L Ol  91 

1 A A 1 

1 

1/07 

Mfinp  81  d 

07 ,3705 

1 330 

x 

13  30 

M p A C 4- 1 

0 1 4 7 

= 420 

7 

420 

46  2 

oil  f l "’r  b 

L O f ^ O < 1 

L T 1 

1 

Lot 

Lj  JL  jL  ^ 

\J  I O A. 

1 

MIN  ! 

05,3525 

9 c i 

1 

992 

MODE  SW 

07,2000 

= 

29 

1 

1310 

MP  AC- 

00,2433 

1058 

2 

1058 

MINUS  1 

7747 

= 1 0 °9 

2 

1323 

1371 

MODE  2C  HK 

4550 

523 

2 

522 

544 

MPACSHP 

00,2033 

1047 

2 

1055 

1076 

M I N J S 2 

7746 

= 13:08 

3 

2 1 0 

130  3 

MODE 70 

05,3476 

832 

1 

.8  31 

MPACSRND 

00,2050 

1048 

1 

1047 

M IS 

1 ,16 4 6 

1 3 4 

1 C; 

135 

483 

NODE  71 

05,3500 

832 

MO ACT ST 

42,3554 

635 

1 

4 34 

MI  SC JUMP 

6 334 

1012 

1 

10  09 

MODNGD'EL 

12,2600 

1182 

2 

1182 

MPACVBUF 

753? 

1043 

5 

601 

1262 

M T Y A h 

/,  1 OO-.o, 

Ain 

1 

t,  1 r. 

m n n p c n pi 

19  0 A,  0 A 

118  3 

2 

118  3 

MP  A f 7 c A V 

r 1 48 

— 10  7 7 

0 

1 0 c 4 

1 048 

1.  f c c O 

V I V 

luUr  -•  IJ  LL 

16  f 4 O J U 

’ 1 “ H L/  d J M J 

vi  Q J 

— 1 D l C. 

C. 

I jD" 

M IXBACK 

40,3047 

43? 

1 

A 32 

MOOR EG 

1011 

1C  1 

25 

212 

1388 

MPERFMSK 

10,3520 

137? 

2 

1355 

M IXBR 

0140 

= 97 

13 

304 

433 

- )!  OUTB 

04, 2040 

= 

447 

1 

4 47 

MPTEMP 

0135 

97 

64 

97 

1036 

M T Yf  HA' 

A 7T  1 

- 3 04 

1 

3flA 

MriMAni! 

4.0 . 0440 

44A 

x 

4 4.4 

MO  K | p AM 

08. 7440 

? l a 

O 

7 1 O 

1 a Q Q 

rl  1 AU  UJ\ 

*4-  t i L 

— .0  ■ H 

i 

-J  U -r 

1 1 Lj  t v 

*7  > f J1  *-r  4-r  v 

• tO 

T t,: 

6 1 J 

C. 

4 I <1 

1 JO  J 

MIXON  1 

41,2234 

4 10 

1 

4 10 

Nl  1M8AC  K 

41, 3350 

439 

1 

439 

MRKT  OBIT 

4 735 

= 72 

MIXNN2 

41 ,2246 

410 

1 

410 

MONBIJSY 

41,3351 

43p 

1 

438 

MR  K I D F L G 

0074 

= T2 

M IXNnuN 

41 ,2221 

10 

1 

407 

MOM DEL 

41 , 3320 

438 

1 

4 38 

Mr  K MV  B I T 

4743 

= 72 

1 

13*5 

MIXTEMP 

0125 

= 96 

3 

4C4 

410 

MONDO 

41,3321 

438 

1 

438 

MRKNVFLG 

0102 

= 72 

1 

1366 

MKABOPT 

07,2044 

245 

1 

244 

MON  I TOR 

41,3230 

437 

7 

4 08 

409 

MRU  PT  BIT 

4 747 

= 73 

MKALARM 

07,2325 

253 

1 

2 52 

ML- NJ  T1 

41,323 2 

437 

MRUPTFLG 

0106 

= 73 

MKDEX 

£7,1552 

= 145 

9 

146 

261 

MON  I T2 

41,3245 

437 

2 

437 

MSKDATR1 

20,2021 

292 

1 

202 

MKGVB  I T 

4 751 

= 73 

2 

13  5 7 

1364 

MON REF 

4] ,3347 

4 39 

1 

439 

MS TOR  El 

01,2367 

I 087 

2 

1088 

1091 

MKOVF!  AG 

0110 

- 73 

MOMPFpOS 

06.0115 

1 P7 

x 

1 97 

m c i fin 

0777 

— 14  10 

7 

1412 

1421 

UO  f J 1 1 J 

1 C f 

1 O f 

1 Ol  \JU 

’ f c.  1 

1 j 

C. 

MKf  EJ 

07,2461 

257 

1 

254 

MONREQ 

41,3275 

438 

2 

438 

MU(  P) 

0032 

= 1247 

MKREL EAS 

07,2047 

245 

1 

253 

MONSAVE 

102  0 

102 

7 

222 

439 

MU /A 

E7 ,1720 

= 163 

4 

143 

777 

M 1 IF  T Rfl 

406 1 

1 84 

1 

153 

MO  N 8 A V C| 

1 n?  i 

1 

1 0 

465 

Ml |A  QTTFP 

F 7 17  14 

- 14  0 

s 

143 

778 

1 l.  'J  r i d 

L 

, < J .1  O HV  <_  I 

I J c.  1 

1 \JC 

J.  fc 

c C C 

C .■  j 1 1 10 

— 1 ‘T  J 

MKT IME 

E7 ,17  64 

= 1 46 

g 

146 

893 

MGNSAVE2 

1022 

10  2 

4 

4 37 

452 

MUCHT IME 

0 1 , 3 c 1 1 

1 132 

2 

1131 

MKVAC 

07,2014 

2 4-4 

MOONBI T 

4 740 

= 

65 

M.UEAR  TH 

13,2006 

46 

8 

687 

1265 

M KV  AC  END 

07 ,2031 

244 

5 

24  4 

MPONCNTP 

14,2543 

9 3c' 

1 

035 

MULBUSH 

21  ,3467 

148  1 

1 

1481 

MKVB5? 

07,2620 

2 60 

MOONFL AG 

0003 

= 

65 

31 

656 

1247 

MULTEXIT 

5624 

1382 

3 

1381 

1332 

MKV353 

07 , 2617 

2 60 

MOONGON 

22,3516 

717 

1 

717 

MULTE AIL 

5630 

1382 

1 

1381 

MKVB54 

07,2616 

260 

1 

2 60 

MOONMX 

24,3720 

1143 

2 

1 140 

1 142 

MUM 

13,2004 

66 

MKVB-54* 

07,2621 

2 60 

1 

252 

MOON MX  A 

25,3671 

114  4 

1 

1144 

WUM ( -37 ) 

27,2024 

44 

MLC  SV 

E3, 1766 

112 

6 

5 46 

604 

MOONOTH 

0173 

= 

37 

2 

2 97 

M UN FLAG 

0141 

= 76 

8 

229 

867 

MMADREF 

41 , 20  33 

4 06 

1 

A06 

MOONPAD 

22 , 3373 

715 

1 

714 

MUM EL  B IT 

4744 

= 76 

4 

1P6 

865 

mmatpix 

0024 

= 1148 

8 

1140 

1234 

MOONRATE 

27,2026 

44 

1 

8 42 

MUNG? 

37,3377 

707 

1 

703 

MMCHANG 

41 , 3430 

447 

2 

4 06 

409 

MOONSPOT 

33, 2254 

860 

1 

860 

MUNGRAV 

33 ,3130 

883 

7 

734 

885 

MMDS  PLAY 

5315 

12  94 

1 

217 

MOONTH I S 

0174 

= 

37 

6 

2 97 

1221 

MUM  RE  TEN 

33,2461 

874 

1 

883 

MMNUMBE'- 

0775 

101 

10 

227 

835 

• DR  EC  A Oi- 

20,2445 

14.20 

1 

14  20 

MUNRVG 

33,3066 

882 

MMTEMP 

1060 

= 232 

3 

232 

MOREOES 

2r , 2627 

546 

2 

546 

MU SCALE 

E 7 , 1 066 

= 147 

2 

777 
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SYMBOL  TABLE  LIS" 

IMG 

, INCLUDING  DEFINITION,  HEALTH,  PAGE 

OF 

DEF  , 

a cf 

REFS, 

PAGE  IF  FIRS' 

T REF,  RAGE 

OF  LAST  F EF  . 

SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFER ENCES 

SYMBOL 

DEF 

H 

REFERENCFS 

mutable 

Oh ,2004 

45 

6 

690 

1193 

negate 

21  ,3323 

I47u 

1 

1476 

NEW DEL 

12,2634 

1 183 

2 

1 182 

11  83 

MWATTBTT 

<+  7 1 

= 

7 2 

NEGCHECK 

21 , 3655 

15  08 

1 

1509 

NEWDELHI 

22,3003 

365 

1 

368 

MWAITFLG 

01  DO 

= 

72 

NFGCOS 

13,2532 

1137 

1 

1 137 

NEWDEt  X 

12,2260 

1 177 

3 

1177 

MX 

T 7 , 1 676 

= 

1 45 

6 

145 

580 

NEGDT  I VE 

21,3573 

1483 

1 

1 4Q  3 

NEWIBIT 

4737 

= 

76 

MXMYMZ 

26,2757 

579 

NEG  EDO  T 

17,3266 

1 4o  1 

1 

14  61 

NEW  IF  LG 

0172 

= 

79 

3 

1215 

1219 

MXM3 

22,2312 

356 

4 

351 

482 

NEGFIRE 

21 , 3707 

1509 

1 

1509 

NEW JOB 

0067 

95 

22 

22  1 

1293 

M XV 

7334 

1038 

1 

1011 

FFGFNCT1 

21,3232 

1474 

1 

1474 

NEWL 1ST 

05,3536 

992 

2 

981 

992 

MY 

£7,1704 

= 

145 

5 

145 

586 

NEGFNCT2 

21, 3244 

1475 

1 

147-6 

NEWLOAD 

30,2160 

839 

1 

839 

MZ 

FT  ,1712 

= 

1 * 5 

3 

] ' 

580 

NEGl ML  V 

21 ,2775 

906 

1 

r05 

NEWLOC 

00  65 

95 

9 

1 10  3 

1111 

Mil 

E6 , 1414 

1 26 

q 

156 

1 & 3 R 

NEGMAX 

473  5 

= 

1099 

13 

3fc7 

14Q3 

NEW MODE 

6060 

1003 

A 

1019 

1398 

M21 

E6  , 1415 

129 

4 

189 

145  1 

NEGONE 

7747 

1098 

15 

219 

1505 

NEWMODEA 

5314 

12  94 

2 

23  2 

377 

M 22 

F6 , 14  17 

1 29 

7 

188 

1.45  1 

NEGOUT 

13,2540 

1137 

1 

1 1 37 

NEWMODEX 

5311 

1294 

7 

37  3 

1394 

M31 

E6 , 1416 

129 

4 

189 

1451 

NEGP 

12 , 3417 

1 195 

3 

1194 

1195 

NEWOP  S 

6070 

1003 

1 

1002 

M 32 

F 6 , 1 420 

1 2? 

5 

1 8° 

145  1 

NEGPROD 

27,3146 

779 

1 

779 

NFWPAR 

14,2733 

93° 

1 

939 

NEGSGN 

40,2374 

402 

l 

399 

NEW PHASE 

31,2421 

798 

1 

802 

N APR  nwO'B 

20  •»  ? 1 ^ > 

1 407 

\ 

] .5  ) 7 

M pn SHAFT 

2r-  ,2  570 

5 L.  4 

l 

F V- 

MFWPD  S 

FT  t 1 A 52 

_ 

148 

L 

1 *-8 

495 

NAVKF YIN 

0016 

= 

93 

t 

219 

255 

F tGTFF 

27,3645 

1280 

2 

1279 

NEWPR  10 

00  63 

= 

95 

12 

232 

1361 

NBDONl  Y 

06, 3555 

3 34 

1 

1121 

N EGTHR ST 

21 ,3760 

1510 

1 

1509 

NEWSTATE 

12,2653 

1 184 

1 

1 186 

N BOX 

£3,1460 

109 

6 

3 26 

1121 

NEGTORK 

16,3732 

1471 

1 

14  70 

NEWTN 

34,2702 

640 

2 

64  0 

N BOY 

E3, 1461 

109 

2 

328 

335 

NEGTUR KU 

E 6 ,1516 

= 

133 

NEWVEL 

F7 ,1644 

= 

148 

3 

148 

495 

YBDZ 

f 3 , 14  62 

106 

2 

328 

335 

MEG TOR KV 

E 6 , 15  2 C 

= 

133 

NEWZCOMP 

22,3711 

1157 

1 

1151 

NBD2 

06 ,3602 

334 

I 

736 

NEGTOTKP 

E6,1514 

a 

132 

NFXTCDU 

07,3060 

1313 

L 

1313 

1314 

MBD3 

06,3606 

334 

NEGTOVFL 

12,2330 

1178 

1 

1178 

NEXTCOL 

11,3 5 =>2 

1242 

2 

1243 

NBPOSFL 

37,20  12 

373 

NEGUQ 

E6, 1501 

132 

11 

132 

1483 

NEXTC  ORE 

01  ,2674 

1107 

2 

1106 

N BRANCH 

11 ,3232 

1237 

W 4: 

12,34 

1247 

NEGUR  , 

E6 ,1503 

= 

132 

4 

1411 

1476 

NEXTES 

35,3213 

670 

i 

66° 

N BUS M ASK 

10,3513 

1372 

1 

1 3 ?'  0 

MEGUSUM 

21,3566 

1483 

3 

1476 

1483 

NEXT I ME 

E 6 , 1706 

= 

135 

3 

367 

368 

N81N32 

23,251.3 

= 

3 7 

NFGVMAXY 

21,2720 

905 

2 

R05 

NEXT  INCl. 

05 , 9543 

992 

1 

992 

N B2CDUSP 

30 , 3533 

Q ?0 

] 

Q 14 

fM  p so 

/.  75^ 

1 : C 5 

HP 

1 57 

1 4 5 7 

M p X ’r  T p ‘ c i 

0 ^ » 3 5 5 f 

964 

1 

9«1 

NCDU 

E6 ,1703 

= 

135 

3 

365 

366 

NEGl 

7747 

= 

1099 

5 

326 

1C99 

NEXTLINE 

22  ,3507 

717 

1 

717 

NCOARSE 

1 4 , 3 6 C2 

952 

4 

944 

974 

NEG  1/2 

4734 

1095 

6 

220 

1 128 

NEXTP 

E6 , 1472 

130 

7 

130 

1430 

NCSMVEL 

E 7 ,16  64 

= 

148 

2 

49  5 

KEG  1/3 

21,3243 

1475 : 

2 

1 475 

NEXTU 

E6, 147? 

= 

1 30 

*5 

1405 

1443 

NDCMPTST 

4 1 , 24 36 

415 

NEG 1 00 

5172 

1 1 16 

NEXTV 

E6 , 1474 

= 

1 30 

5 

1405 

1444 

NDXCDUW 

E 6 , 1 6 5 C 

136 

6 

136 

9 1 9 

NEG  12 

00,3733 

1086 

3 

1 0 54 

1076 

NGU ID  SUB 

E7, 1647 

= 

150 

3 

7C  9 

312 

NDXC  GE 

12,2240 

1177 

2 

I 1 76 

NEG 1 80 

40,3066 

432 

1 

432 

! 1 LKFl  DP 

34,2077 

632 

1 

635 

NDXC  TR 

E 5 ,1414 

= 

1 27 

7 

127 

376 

NEG2 

7746 

1098 

10 

2 30 

1481 

NIGNLOCP 

E7 , 1646 

= 

150 

3 

786 

812 

ND1 

4361 

461 

6 

381 

892 

NEG  3 

7745 

1098 

7 

890 

1443 

NINE 

4320 

= 

1099 

2 

1502 

NEARONE 

27,3770 

12  83 

4 

846 

1280 

NEG4 

6112 

1004 

2 

1C  08 

1286 

NJETSBI  T 

47  35 

= 

67 

NEED! e IT 

4750 

= 

66 

1 

16  15 

NEG5 

41,2115 

408 

N JETS  FL  G 

0017 

= 

67 

1 

755 

NEEDIER 

20,2322 

1*18 

1 

14  14 

NEG  7 

5660 

= 

232 

2 

246 

955 

NN 

E 7 , 1466 

140 

8 

198 

724 

NEED!  FR2 

20,2353 

1415 

1 

14  If! 

NFTNEG 

20,3740 

1 5 04 

1 

1504 

NNADTAR 

42,2154 

305 

1 

3C4 

M EE DL  ES 

20,2373 

1419 

1 

1419 

METZERO 

6121 

1005 

NNADTEM 

0146 

97 

8 

304 

430 

N EEDl  ES  3 

20 ,2362 

14  18 

1 

14  18 

NEWAGS 

32,2014 

2 07 

1 

207 

NNTYPTAB 

42, 2320 

308 

1 

3C4 

NEEOLE1  1 

20,2334 

14  13 

NEW ANGL 

22,31  ; 

365 

1 

364 

NNTYPTEM 

0147 

97 

C 

3 04 

429 

NEED'  Ft  G 

0013 

= 

66 

2 

266 

NEW ANGLE 

25,3743 

1145 

4 

1 143 

1 146 

R Q. CORES 

01,2634 

1 106 

2 

1 106 

1111 

NEG 

6 741 

1025 

4 

1025 

' E W DATA 

2 1 , 2313 

900 

1 

899 

NO. PJETS 

66,1521 

133 

3 

133 

147  0 
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SYMBOL 

NO.IJJ  FTS 
VO. VJETS 
NO.WDS 
NO.  9 
NO-ATP 
NO-INT 
NOADJUST 
NO  ADS 
NOATTCNT 
N OATT  F FF 
NOB! TS 
NOCHG 
NODDOT 
NODES LB 
N ODE  ^ SM 
NODTO 
N(  D i 1 
NODOFL  AG 
NODSPCUT 
NODSPY 
N0DVM0N1 
NODVwT N2 
NOEBANK 
NOEND 
NOG  I ML DC 
N OG I K'  I IJN 
NOGO 
NOGOBl 

MOGULS 5 
NOIBNKSW 
NOINT 
N OK  I U 
NOL  ITE 
MOL  OK  ON 

r 

NOLRR  FAD 
NOMDNl.ST 
NOVI N IMP 
NOMOPE 
N OF  T P I 
NONA VKF  Y 
NOPI  F 
NQ.QBRSM 
N 00 R S M 
NOPATF? 


DEF 

E6 , 1 522 

EA , 1 523 

6 2 44 
36 , B 663 
30,2657 
13,2063 
42,3723 
20,3453 
30 ,3750 
07 ,3266 
E5 ,1442 
3C , 3572 
26,2004 
25,2533 
29 ,2471 
2* ,2012 
4753 
0054 
! 1 3< 
06,2152 
33,2342 
33,2346 
43,3362 
25,3262 
22,2744 
06,2462 
22,2732 
27,3212 
12  j 3467 
6063 
13,2653 
43,3115 
33,3607 
23,2026 
4742 
02  52 
05,2172 
43,3006 
25 , 31  14 
F4 , 1716 
05,3102 
35,3350 
5274 
5272 
30,2502 


REFERENCES 


133 

1 33 

1000 

762 
849 
236 
488 
15  00 
924 
13  l '7 
127 
679 

52 
54  3 
542 

53 
70 
70 

160 
I A ■; 
8 62 
8 6? 
1288 
556 
364 
170 
363 
7 80 
1196 
1003 
12  10 
290 
391 
271 
84 
84 
193 
285 
5 55 
1 17 
218 
673 
11  29 
1 129 
347 


133 

10  C8 
761 

849 
236 
488 
1 1500 

3 012 

4 165 

1 

1 1143 

1 5 43 

2 539 

1 1143 

3 227 
6 

2 
1 
1 
1 

1 1289 
1 556 


207 
1 57 
160 
e si 
3 Ai 


263 
5 55 
427 
215 
673 
1 14  28 
1 14! 

1 8 47 


1470 

1077 


c i 5 
1316 


54  2 

1385 

1337 


1 364 

2 1 69 

3 363 
I 780 
1 1194 
1 1044 
1 12  09 

291 
0 90 
271 
872 
895 


36  5 


8 84 


560 

677 

218 


SYMBOL 

NO  R 6 AC  K 
NO  ROST  AL 
N r FASON 
NORFSET 
N 1RFINAL 
f 1 LITE 
NORM ADR 
MCJO  'ML 
NORMBNCH 
NOR  ME X 
NORM EX  IT 
NORM  GAM 
NOR ML I Z 
MO r MLIZE 
NO!  ' ML  I Z1 
NORMLI 12 
NORMLOP 
NO  IRE  T 
M -MSB  IT 
NORM  SC  L 
NORMSW 
Nr  rr  M! 
N DRMTEST 
M0RMT4 
NORMUNIT 
N 0 R M UN  X 1 
nor 7 WAke 

NORM  if 
N0ROTAT 
NORR GMON 
NLi  1'  . MB  IT 
MIR.  L MON 
NO  R2°F  L G 
N0R§9N0W 
NO  SHIFT 
NOTALLOW 
NOV  BIT  12 
N 0 T H B I T 
NOTHRQTL 
N'f , t T ME 
NOT  MIN 
NOTMUCH 
N OTP LAN 
NO T P 20 
N OT SHI  FT 


DEF 

0 , 305  I 
25, 2456 
33,3243 
07, 3430 
13,3300 
33,3572 
42,3401 
01,2337 
10 , 3061 
E7 , 1463 
32 , 2531 
E4, 1503 
2 3,21  DO 
23,2461 

33,2416 

33,2420 
37,2604 
10,3427 
4742 
16,361- 
0156 
1045 
00,3512 
C6, 2007 
10,3726 
10,3724 
10,3333 
0044 
17,2777 
06,3132 
4750 
0126 
0061 
33,2570 
10, 3770 
21  ,3417 
40 , 3673 
4740 
0119 
13,3662 
17 , 3032 
20,3432 
15,2523 
24 ,3041 
24,3321 


H 


432 
5 4 1 

885 
1321 
1218 
890 
42  3 
295 
1365 
140 
571 
1 14 
32 
867 
067 
867 
385 
1371 
77 
1 ' 4 1 
77 
102 
1081 
155 
1401 

1401 
1 369 
1158 
1454 

1 89 
75 
75 
70 
876 

1402 
1480 

471 
74 
74 
1225 
1454 
1500 
96 1 
552 
565 


REFERENCES 

1 432 

3 539 

1 8 84 


2 890 

1 422 

1 294 

1 1371 
19  1-0 


542 


571 
1 14 
860 
242 
8 67 
867 
385 
1 3 . 


697 
1 158 
857 


8 6 37 

3 94-6 

2 155 

11  339 

3 5 85 
1 1371 

12  1157 
3 1453 

183 


186 
270 
8 50 
596 
1401 
1479 
470 
739 
7 54 
1223 
1454 
1498 
961 
c 5 1 
565 


1 180 
136  2 


1^01 

776 

1 I 8 
1450 
187 
22  0 
514 
663 
976 


471 

78  5 
1224 


SYMBOL 

NOTWCSM 
NOTWL EN 
NOULL ACE 
NOUN 
NOUNADD 
NOUNCADR 
NOUNREG 
MOUNT  EM 
NO'JNTEST 
NOUPDOWN 
NOUPF  BIT 
NOUPFLAG 
NOUT 
NOUTCON 
NOUVEAU 
NOV  AC 
NOV AC  ADR 
N0VAC2 
N0VAC3 
NGVRWRT 
N0V37MN 
NOWMATX 
NP TRAPS 
NQTRAPS 
NRMAG 
N.RMIDBIT 
NRM  IDFLG 
NFMNVBIT 
INVFLG 
NRTERM 
NR TP APS 
NRUPT  BIT 
NRUPTFLG 
NR296PDP 
NR29F BIT 
NS  AMP 
NSR CHPNT 
NSTEER 
NT  ARGB I T 
NT  A - GC  HK 
NTARGFLG 
NTP/2 
NUCHANG2 
N'JDIRFCT 
NULLCLOK 


DEF 

26,2444 

26.2476 
36,2653 
40,2370 

0145 
1017 
1002 
0122 

41 , 2460 
4 3,3056 
4746 
0030 
1016 
4760 
04,2310 
5072 
01,9775 
01,2625 
01,2630 
35,3424 

04.2477 
32  ,2257 
E 6 , 1433 
E6 , 1434 

0040 
4737 
0076 
4 744 
0103 
0020 
E6 , 1435 
4750 
0107 
5014 
4741 
1111 
E7 , 17  36 
36,3672 
47  51 
35,3550 

0146 
34,2376 
01,3011 
01, 3225 
36,3019 


H 


REFERENCES 


575 

576 
743 
402 

97 
102 
101 
96 
415 
289 
67 
67 
102 
1099 
231 
1 103 
1 308 
1 106 
1106 
67  9 
235 
4<16 
12° 
130 
1268 
72 
72 
72 

72 

1268 

130 

73 
73 

995 
70 
103 
144 
762 
76 
678 
76 
636 
1 1 10 
1 116 
746 


1 

575 

1 

576 

4 

740 

760 

1 

399 

29 

410 

460 

q 

407 

46  0 

15 

222 

458 

3 

410 

2 

425 

426 

1 

230 

I 

505 

2 

209 

9 

157 

467 

1 

222 

1 

229 

32 

158 

1411 

1 

1305 

1 

1103 

1 

1107 

1 

676 

1 

227 

1 

494 

4 

1412 

1425 

4 

1412 

1426 

4 

1271 
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6523 

1020 

1 

1011 

PHSNA  ME4 

F3, 1444 

1 09 

OUTO 

C010 

= 

93 

5 

156 

160 

PDSPFB IT 

4740 

- 

72 

2 

474 

475 

PHSNAME5 

E3 , 1446 

109 

2 

390 

0UT22.  1 

32  ,2534 

571 

2 

571 

PDSPFL  AG 

0077 

= 

72 

3 

47  5 

51  9 

PH  SNA  ME  6 

E 3, 1450 

109 

0 UT  2 2 . 2 

24,3352 

573 

1 

572 

PD  VL 

6557 

1021 

1 

lull 

PHSPAFT2 

01,3763 

1 308 

1 

1308 

0 V F < F F I X 

37 , 2 27c 

378 

2 

376 

3 80 

PDXCHNGE 

12, 2274 

LI  77 

2 

1 177 

PHSPRDT1 

1054 

102 

5 

1299 

1307 

OVERFLOW 

7017 

1028 

3 

1027 

1051 

PEG  I 

16,3300 

1435 

2 

1435 

PHSPRDT2 

1C  56 

102 

3 

229 

329 

n VET  F l WY 

7014 

1028 

4 

10  26 

1051 

PEKFCHEK 

10,3135 

1 3 66 

PHSPP  DT3 

1060 

102 

1 

232 

0 VERFLWZ 

7011 

1028 

4 

1026 

1051 

PERFDL  AY 

E 5 , 1574 

= 

128 

1 

374 

PHSPRDT4 

1062 

102 

1 

232 

OVERSUB 

16,2310 

1422 

12 

1424 

1441 

P ERF  ERAS 

37, 2772 

387 

1 

385 

PHSPRDT5 

1064 

102 

0 VE" SUB2 

20,2435 

1 4 19 

3 

1415 

1416 

P ERF  MASK 

10,3475 

1372 

2 

1360 

1362 

PHSPRDT  t 

1066 

102 

0 VF  + 

00,2414 

1057 

2 

10  57 

PERF.2MSK 

10,3501 

1372 

2 

1360 

136  2 

PHS2CAD" 

01,3770 

1 308 

1 

1303 

o v F T r D 

0121 

06 

13 

813 

1 109 

PE, F4MSK 

1G, 3503 

1372 

1 

1 362 

PI/ 16 

27 ,3754 

1283 

2 

1279 

1231 

OVFL  CL  < 

12,3210 

1192 

I 

1192 

PF'  I APO 

23,2326 

695 

1 

6 34 

PICAPAR 

14,2611 

937 

1 

9 37 

OVFIOWCK 

E5 ,1576 

= 

128 

3 

373 

388 

PE'  IAP01 

23,2316 

695 

5 

617 

727 

P ICBXT 

14, 3013 

940 

1 

940 

= ==  ==-==: 

PERIODCH 

12,2112 

117.5 

i 

1175 

PICEND 

14,2766 

939 

1 

938 

P 

£5,1737 

= 

125. 

14 

1-25 

1200 

PERROR 

E6 , 1464 

130 

s 

154 

143  8 

PICGXT 

14,2772 

940 

1 

940 

P-RATF 

16,2510 

1425 

P F AI LOK 

07,3254 

1317 

1 

166 

P I CKANG 1 

27,2147 

482 

1 

4 82 

P-PHCCtp 

C 04 3 

= 

92 

4 

14  34 

PF  A 1 LOK 2 

07,3247 

1317 

1 

1317 

PICKAXIS 

27,2170 

483 

2 

481 

P ACCFUN 

F6 ,1557 

= 

1505 

? 

1498 

PFl  ITEDB 

20,214? 

1407 

3 

7 54 

840 

PICKX 

26,2372 

483 

2 

483 

P ACKOPTN 

15,3411 

976 

2 

975 

PFRATBIT 

4750 

= 

69 

1 

927 

PICNSWP 

14,3011 

940 

1 

940 

P ACTIVE 

05 ,3036 

2 17 

1 

2 17 

PFr  ATFLG 

0051 

= 

69 

4 

769 

944 

PIC1 

14,2646 

938 

3 

938 

P ARAM 

l 4, 306.4 

1186 

3 

1186 

1 2UC 

PGUIDE 

1247 

= 

105 

6 

105 

882 

P I C 2 

14,2651 

938 

1 

938 

P Af  AM  30 

35,2017 

6 14 

PHASCHNG 

53  53 

1298 

120 

228 

1395 

PIC  3 

14,2661 

938 

5 

°38 

939 

PASSIVE 

2 3,2'- 12 

6 97 

4 

6 22 

697 

PHASET  AB 

10,2000 

= 

29 

2 

1294 

1300 

PIC4 

14,2664 

938 

1 

938 

P ASTEPPT 

M L 3 2 

4 3 Q 

] 

A C 

PHASE1 

0753 

101 

? 1 i 

1 0 ? 

P T F 

F7, 16  12 

_ 

149 

1 1 

149 

813 

P AST  EVB 

4124 

439 

3 

439 

446 

PHASE2 

0755 

101 

2 

761 

858 

PIFPSCT 

E 7, 1606 

= 

149 

5 

149 

796 

P ASTI  T 

07,2211 

252 

1 

2 60 

PHASE3 

0757 

101 

1 

737 

PINACT 

05,3043 

217 

i 

217 

P AUT.NO 

30,3164 

9 12 

2 

911 

PHASE4 

0761 

101 

1 

862 

PINBALL  1 

40,2000 

= 

36 

2 

299 

398 

PAXADIDL 

16  ,2  20m- 

1413 

l 

1412 

PHASES 

076  3 

101 

1 

737 

PI  NBA l L2 

41  ,?OiPP 

= 

36 

i 

406 

P AXD I ST 

£6,156^ 

= 

1505 

2 

15  03 

PHASE6 

07  6 c 

101 

1 

742 

P INBAL  L 3 

42,2000 

= 

36 

3 

281 

421 

P AX  FI  1 T 

16  ,?<  i 7 

1428 

1 

1422 

PHAS JUMP 

5363 

1299 

1 

1298 

PTNBALL4 

04,2000 

= 

28 

1 

457 

d AX I S 

16,22 13 

1421 

2 

14  13 

1506 

PHEXIT 

13,3176 

1216 

1 

1216 

PINBRBIT 

4746 

= 

73 

P AX I SADR 

20,3765 

1506 

1 

14  91 

PHI 

0024 

= 

520 

PINBRFLG 

0105 

= 

73 

1 

1365 

P BI ASX 

E3, 1452 

1 09 

2 

109 

800 

PHI  V 

£4,1445 

==, 

114 

6 

114 

1241 

PINBPNCH 

10,3050 

1364 

7 

227 

1372 

P BI ASY 

E3 ,1454 

I 09 

1 

8 00 

PHSBB1 

E 3 , 1437 

109 

P I N I OMSK 

10,3347 

1369 

1 

1 3 6° 

P 81 ASZ 

E3, 14  56 

1 09 

1 

800 

PHSB82 

E 3, 1*41 

109 

P INMASK 

7740 

= 

1372 

1 

1365 

PBIT 

4742 

= 

131 

4 

14  32 

1435 

PHSBB3 

E 3 , 1643 

109 

P INSUPBT 

4201 

= 

452 

5 

274 

456 

P BODY 

E4 ,1430 

113 

18 

114 

1245 

PHSBB4 

E3 , 14  45 

109 

P INSUPER 

40,2000 

= 

36 

1 

274 

PCLOOP 

05,2776 

2 16 

1 

217 

PHS8B5 

E 3, 1447 

109 

PINTEST 

43,2002 

= 

466 

PCCNS 

E4 ,1744 

= 

120 

3 

120 

849 

PHSBB6 

C 3, 1451 

109 

P IPAB I AS 

E 3 , 1452 

= 

109 

1 

326 

P DA 

0026 

- 

1 26 

r HSCHMGA 

5357 

1298 

1 

228 

PIPACHK 

37,2126 

378 

1 

374 

P DBI 

E6 , 1561 

= 

15  05 

1 

140  3 

F HSCHNG2 

10,2224 

13  00 

1 

1299 

PIPAGE 

1257 

= 

105 

6 

105 

871 
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SYMBOL 


DEF 


H 


PIPASC  37,3077 
PIPASCF  E3,l+53 
PIPACCFX  £3,1453 
PIPASCFY  F 3 , T 4 5 * 
PIPASCFZ  E3.1457 
PI  PAST  37,3  541 
P IPATASK  37,2151 


P I PA7MPX 
P I PAT N PY 
P IPATMPZ 
P IPAX 
P I PAY 
P IPAZ 
° IPCTF 
P IPCTR1 
P IP F A T I- 
P IPFREE 


1160 
Ilf  1 
1 162 
0037 

0040 

0041 
10  56 

E 7 , 17  14 
06,2690 
07,3310 


P IPFTEE2  C7, 3305 
PIPINDEX  E5, 19 15 
P IPJOBB  37,2  146 
P IPSDCNE  37,34  51 
P IPS0 INF  37 ,3544 


P IPTFM 
P I P T E 
P IPT I ME  1 
P IPUSF 
P T PUS  E 1 
PITCH 
P TTCHANG 


E 4 , 1657 
1234 
£7,1560 

07,32 n 

07,3277 
E4 ,1764 
E4, 1600 


PIT CHPFE  27,3260 
PITFALL  11 ,2275 


P ITT  I ME 
P JETCT-: 


E‘  ,1402 
F6, 1767 


369 

1 09 

1 09 
109 
1 09 
869 
375 
104 

104 
1 04 

92 
92 
52 
829 
829 
I77 
13  13 
1318 
127 
375 
858 
962 
1 16 

105 
147 

1313 
1 3 1 ' 
1 20 
1 18 
782 
820 
1 29 
137 


references 

1 385 

1 326 

1 109 


4 

2 

4 

4 

4 

15 

6 

9 

4 

2 

1 

1 


334 
3 75 
817 
917 
817 
3C5 
383 
383 
598 
829 
1 °1 
863 


962 

901 

901 

902 
1318 
1318 
1318 

858 

898 


SYMBOL 

DEF 

plenty 

PL  US F I RE 
PL  USX 

PM  IMF 

25,3211 

21,3713 

27,2423 

34,2073 

34,2103 

r n 1 I'JiI 

p M I N M 

PM  MASK 

10,3514 

POINTER 


POL  I SH 
POL  LEY 
POLY 
POLYCNT 

PoL ycoef 
POLYCOM 
POLY  LOOP 
F -M  Y2FT 


1 1318 
6 127 


1 

1 

2 

7 

26 

11 

1 

2 

7 

2 

2 

2 

i 


375 
87  1 
966 
119 

155 

147 

3 36 
3 16 
I 18 
791 
154 
3 1 4 
137 


POINTVSM  E 7, 1772 
0117 
5051 
7222 
0140 
12,3031 
7232 
7242 

016  i 

POLYTEMP  E 6 , 1741 
7245 
37,2251 
37, 224C 
37,2245 
565? 
5726 
04,2257 
04,2163 


POL  Y 2 
379  PON 
P0N2 
PUM4 
POnono 
894  P00DQG1 
1222  POOFIZZ 
122+  POOH 

POQKLEAN  05,2647 
POS ALARM  33,3703 
R*0  POSALPH  71,3371 
438  POSCHECK  21,3673 
POSCODE  1242 

PQSDEL  12,2620: 
76  1 POS DEL  X 12,2246 
142°  POSDRIVE  21,3575 
POS EC  42,3414 
P0SFNCT1  21,3230 
P0SGM6L  37,2064 
PQSGN  40,2407 
POS GOOD  33,3675 
POS I TA  15,3700 
PESITB  15,3703 
POSITO  15,3722 
POSITE  15,3770 
P0S1TF  15,3743 
POS I TON  E 5, 1416 
POS MAX  4733 


HEALTH  KEY:  NORMALLY  DEFINED  UNLESS  FLAGGED  AS  FOLLOWS: 


P JETS L EC 

If ,3356 

14  36 

r 

1 4 3 1 

1439 

PI.  ANET 

15,2472 

961 

7 

94  2 

970 

PLANTIN 

24,2000 

= 

32 

1 

1141 

PLANT  TNI 

26,2000 

= 

33 

2 

1 140 

1 146 

PLANTING 

26,2000 

= 

3 3 

1 

5 2 

PLAN7 I N 3 

25,2000 

= 

32 

1 

1 1 44 

P L AN'/  EC 

E 7 ,15  53 

145 

5 

145 

951 

PLAST 

E6 , 1454 

1 30 

5 

14  24 

1434 

PL AYJUM1 

10 ,2615 

1360 

3 

1365 

1372 

P L AYT  EM 1 

0155 

= 

13  73 

28 

1354 

1363 

P L AY  T t M3 

01  57 

= 

1373 

3 

136? 

1 3 70 

PLAY  T EM 4 

1 

= 

1373 

1 1 

1 3r'4 

1370 

H 


0156  = 


555 

150'- 

769 

63? 

632 

1372 

1308 

146 

96 

1102 

1034 

97 
1 1 85 

1034 

1035 
97 

131 

1035 

376 

376 

376 

1383 

1384 
231 
229 
214 
895 

1479 
1509 
960 
1183 
1 111 
148  3 
423 
1474 
374 
402 
895 
985 

985 

986 

987 
986 
127 

1095 


REFERENCES 

l 555 
1 15  09 


2 641 

1 1360 
7 1306 
iK2 
56 
1102 
856 
1034 
1 191 
1 1034 
1 1035 


SYMBOL 


DEF 


H 


REFERENCES 


7 

39 

2 

7 

4 

1 


130  8 
956 
1 C94 

1282 

1035 


POSNV  £5,1520 
POSTAND  37,3734 
POSTBURN  36,3223 
POSTCDH  E7 , 1603 
POSTCOM  37,3763 
POSTCSI  E7 ,1601 
POST  HP  ST  2 1,36  47 
POST JUMP  ^635 
POSTORKP  F 6 ,1513 
PncTOPKU  E6 , 15 15 
POS  TO  R KV  E6 , 15 17 
POSTTP  I E 7 , 1 605 
POS UP  DAT  3 3,3165 
POSVMAXY  2 1 , 2703 
POS  1/2 


1 C 34  103  5 PPS1/4 


47  3 6 
12,3755 


128 

1336 
754 
141 

1337 
141 

1508 

998 

132 

132 

133 
141 
884 
905 

1099 
1 246 


10 

1 

1 

1430 

1035 

376 

1458 

POS 1C  HK 
P0S2CHK 
POWERDB 

33 ,25  31 
33,2502 
20,2152 

875 

874 

1408 

POWFL ITE 

23,2000 

= 32 

1 

37o 

POWFL IT  1 

23,2000 

= 32 

8 

244 

1360 

P'7WR  SERS 

7?  15 

1034 

1079 

230 


1 230 

2 895 

2 1479 
1 1503 
6 316 


1132  PQRBIT 
PRATE 
PRDTTAB 
PRES JUMP 
P ■ tC/TT 
PPECIBI T 
PRECIFLG 
960  PRECSET 


If , 31 3* 
£4,1750 
0 1,2000 
5316 
34, 3554 
f 744 
00  64 
23,2360 


1433 
120 
239 
1 2 °4 
729 
71 
71 
697 


1 

1 

1 

1 

1 

1 

6 

46 


2 

2 

4 
3 
2 
2 

5 

61 

1 

K 


366 
1335 
241 
141 
1337 
634 
1509 
165 
1°5 
1 94 

141 


2 905 

2 1122 

1 874 

1 1407 

1 1259 

2 8 24 

1 1433 
7 120 

3 1306 


7 25 

236 

622 


UN  UNDEFINED 
BD  BADLY  DEFINED 


- DEFINED  BY  EQUALS  J DE FIT 

CD  DEF  !'■  T PC  ASSOCIATED  WITH  CONFLICT 


1162 

P RE DOT 

7154 

1033 

2 

1038 

ll7fc 

PREDSPAl 

AO, 34 16 

446 

1 

417 

1473 

14  63 

PREGUT  DE 

31,2425 

798 

1 

804 

*23 

PREMM1 

04,2*41 

234 

2 

223 

1'  74 

RREM0N1 

1 1,2316 

820 

1 

821 

PREM0N2 

11,2317 

820 

1 

820 

398 

PTENVBSY 

44  37 

464 

1 

464 

895 

PREP0S29 

25,3601 

597 

1 

596 

986 

PREREAD 

37,3*10 

857 

1 

737 

986 

PREPROF S 

43,3246 

1286 

3 

12P7 

987 

prftine 

00,3526 

1082 

2 

1082 

986 

PRESTAND 

37,3657 

1 335 

1 

1335 

PRESTORE 

6421 

1016 

1 

1016 

127 

331 

PRETIMCK 

16,2667 

1428 

2 

1427 

171 

1506 

PRIOBORT 

10, 2575 

1 360 

2 

1358 

, OR 

ERASE 

ANYWHERE 

MD  MUL 

TI  PLY 

DEFINED 

XX 

MISCELLANEOUS 

TROUBLE 

1541 


387 

1336 

760 

641 

641 

1510 

1402 

2 04 

727 


848 

1308 

726 

1219 

729 

1041 


232 


1368 
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SYMBOL 

DEF 

H 

REFER 

ENCES 

SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

PK1QCHNG 

5 1 46 

1105 

16 

275 

136  9 

PROCEEDE 

06,2075 

158 

PUT  SF NOR 

41,3206 

430 

1 

430 

PRI0CH2 

01 ,3072 

1112 

1 

1 1 C 5 

PROCKEY 

40,3452 

449 

1 

158 

putxy 

41,2714 

426 

PR 10 OBIT 

4 7 36 

= 

72 

1 

1365 

PR  OCT NON 

06,2242 

166 

1 

1 64 

PUTXYZ 

41,2632 

425 

obi  nil  pi  r. 

_ 

7? 

P C : . |f  I 

21,3525 

1482 

o u A 1 V F S T 

1 276 

106 

1 

1 c I 

r*  “ I '''ll  !_ 

VV  f V 

1 C. 

r . vj  ' j i 

l i 

C.  I C. 

PRIODSP 

10,2507 

1353 

2 

505 

507 

PROGLARM 

562  1 

1382 

1 

1381 

PWRCNT 

0 1 40 

= 

98 

2 

824 

PRIODSPR 

10,2504 

1353 

2 

5 15 

1302 

PROGRAV 

15,2654 

965 

1 

965 

PWRPTR 

0117 

= 

98 

4 

823 

824 

P R I GENT 

5575 

1381 

2 

13  82 

13  84 

P'  0G2C 

24, 20  DO 

492 

2 

234 

492 

POOHCHK 

13,3351 

1219 

2 

1218 

1219 

PR  I j!  ARM 

10,3562 

1 3 a2 

7 

/ 96 

8 95 

r ' 0 G 20  A 

24,2040 

495 

3 

4 93 

495 

P05P06 

37,2000 

= 

36 

1 

1335 

PRIOCCT 

10,3531 

1373 

2 

13  56 

136  3 

ft-  1 G 21 

24,3505 

655 

1 

234 

P06 

37,3655 

1 335 

1 

234 

PRIOPL AY 

10,2616 

1360 

2 

1356 

1359 

PROG? 2 

24,2000 

= 

492 

1 

2 34 

P 1 2 

30,2000 

= 

34 

1 

838 

PRIOR  I Ty 

0167 

09 

34 

221 

1361. 

PR0G25 

24,2404 

502 

1 

234 

P 1 2 A 

23,2000 

= 

32 

1 

841 

PRIOTIME 

1 165 

104 

2 

1359 

1369 

PPOG52 

15, 2050 

927 

1 

233 

P12ADRES 

30,2320 

841 

1 

839 

PRIOl 

4 7 A 2 

= 

1099 

PF  OJ 

0022 

= 

150 

P 12  IGF 

36,2521 

740 

1 

731 

P R I n 1 0 

47  37 

= 

1 0 9° 

5 

2 84 

78  1 

PPOJMAX 

31 ,3754 

827 

1 

812 

P12INTT 

30,2254 

840 

3 

835 

838 

PRO  11 

5 022 

1097 

PRO  J Ml  N 

31 , 3755 

8 27 

1 

8 12 

P12LM 

30,2061 

838 

1 

234 

P R I n 1 2 

4644 

9 PR 

3 

? 1 1 

760 

PR  OK 

30,2553 

848 

2 

6 48 

P l 2 L M B 

30,21 22 

83° 

PRIOl 3 

5023 

10  97 

2 

746 

966 

PRONVBI T 

4745 

= 

73 

P12RET 

30,2220 

840 

1 

849 

PRI01 4 

5024 

1097 

3 

5 03 

1303 

PRONVFLG 

0104 

= 

72 

1 

1366 

P 12  SPOT 

36,2146 

= 

733 

1 

731 

P R 1 0 1 5 

5025 

1097 

5 

181 

1371 

PRSHRTMP 

4415 

462 

4 

419 

421 

P12 TABLE 

36,2022 

731 

1 

841 

PR  I Me 

5026 

10  97 

6 

IF  1 

741 

PRT2CADR 

01,  377  1 

1308 

I 

1.305 

P20FLG0N 

35,2361 

629 

7 

621 

728 

PRIOl 7 

c027 

10  °7 

4 

735 

853 
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661 

1 

233 

OUADGU ID 

31,3121 

808 

R APO 

0020 

= 

1274 

1 

1274 

P 75 

35,2721 

6 66 

1 

233 

I T Y 1 

13,3725 

1247 

1 

1235 

; APREC 

£7,1477 

= 

141 

2 

667 

670 

P 76 

13,2207 

7C9 

1 

2 33 

QUALITY2 

13, 3732 

1247 

R ASFLAG 

0106 

= 

81 

6 

12  19 

12  20 

P76L  nc 

13,2000 

= 

30 

1 

709 

OUALIT Y3 

11,3160 

1235 

R ASTEEF 1 

27,2731 

776 

1 

771 

P 76 SUR  I 

13,2340 

711 

1 

7 10 

QUARTER 

4737 

= 

109° 

4 

1081 

1086 

GATES  IAS 

22,31 33 

367 

1 

3 67 

P78 

34,3274 

7 24 

1 

233 

QU  ICTR  IG 

23,3615 

1261 

C 

601 

1261 

RATEDAMP 

16,3220 

1434 

4 

1432 

1433 

P 7° 

34,3526 

728 

1 

233 

OUTKDSP 

06,2134 

160 

1 

155 

R ATEDB1 

*-767 

= 

1510 

1 

1509 

0U1KFAZ5 

33,3552 

390 

1 1 

861 

889 

MATED ONE 

16,3136 

1433 

1 

1433 

Q 

0002 

= 

92 

43* 

Q3 

1509 

QUI KOF F 

0 6,  2165 

160 

1 

160 

RATEINDX 

1325 

1 07 

3 

212 

364 

9 + 1 

6 7 37 

1025 

6 

157 

1374 

OUT  KPUPT 

06 ,2144 

160 

1 

160 

0 AT  EL  I M 1 

47  66 

= 

1510 

1 

1509 

Q+lonoo 

46*3 

9 98 

1 

1000 

OUI  TRI  T 

474  7 

= 

«1 

RATEL I M2 

2 1 ,3646 

1508 

2 

1510 

Q+2 

6741 

= 

1025 

5 

521 

13  79 

OUI TFL  AG 

0221 

= 

81 

4 

298 

1218 

RATE  LOO!# 

16,3641 

1470 

2 

1428 

1470 

3-RATE 

16,2544 

1426 

2 

14  26 

R ATERROR 

16,3227 

1434 

1 

1434 

Q-r HCCI 

004  2 

= 

92 

3 

14  33 

1434 

P 

E7 , 1520 

= 

147 

23 

147 

882 

RATES 

30,2510 

847 

1 

847 

Q,  GTS 

17,2104 

1442 

i 

1442 

r ( CSM) 

F3, 1717 

= 

120 

6 

598 

882 

RATESP 

05,2027 

52 

2 

986 

Q ACC Dr t 

E6  , 16 10 

= 

132 

6 

14  11. 

1490 

p * T L P 

23,3700 

12  63 

2 

1264 

F A T ES  TC  0 

31 , 3443 

813 

2 

813 

826 
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SYMBOL 


DEF 


REFERENCES 


SYMBOL 


DEF 


REFERENCES 


SYMBOL 


DEF 


REFERENCES 


RATES  T:T 
R ATEVAR 
R AT  T 
R ATT  1 

R BR  FG 
R CP—  1 3 
RCDUFAIL 
R CDUFR  IT 
RCDUO BIT 
R CDUOFLG 
R CNOPM 
R CO 
PCS 

R C S F I AGS 
RCSMON 
RGSMONEX 
RCSMOf  I r 
RCSM0NT 


05*3061 
E3 , 1772 
0000 

0016 
E5 ,1402 
05,2025 
02  74 
4745 
47  37 
0266 
0042 
E7 , 1630 
17 ,2 1 C 7 
1273 
■ 6 ,3156 
52  70 
06,3156 
06,2000 


2 18 
112 
1247 
1247 
121 
52 
86 
86 
8C 
?5 
125 
152 
14  42 
105 
' 1 p;1 
-1^0 
1 9 1 
29 


1 

1 

36 
1 1 
2 
1 


2 12 
578 
339 
20° 
121 
986 


7 184 

5 497 


3 

4 
4 

5 5 
1 
2 
2 
1 


1173 
152 
1'  49 
211 
1 91 
1 ?1 
159 
190 


1224 

787 

826 


56  3 
537 

1179 

854 

1450 

1*83 

192 


FtAOACCS  37,3441 
FEADCDUD  23,2277 
FEADCOUK  22,2403 


°E  ADLB I T 
READLG 
RE ADLO 1 
RE ADLR 
5 EADRBIT 
R EADRDOT 
F EADDFLG 
P 6ADV 
RF AOVB  IT 
R EADVEL 


4746 
40,2747 
40,2760 

02  56 
4743 
32,2404 
006  3 
33, 3527 

4747 
0257 


(ECALTST  40,3547 


RFCAL1 
P EC  Al 2 
P ECAL3 
1 EC  RAT  10 


40,3552 
40 ,3563 
40,3575 
13,3715 


RCV 

E 3 , 1 534 

= 

110 

28 

1 10 

1240 

R EC  TEST 

11,3303 

PCVCSM 

E 3 , 1-06 

1 1 1 

1 

535 

RECTIFY 

11,3441 

RCVLEM 

E 3 , 1 660 

1 1 1 

2 

5 00 

585 

r.  EC  tout 

1 3,3200 

P DBADFND 

25,3562 

563 

4 

5 4 g 

56  3 

P ECYCL  E 

34, 3400 

RDCDUS 

14,3413 

948 

1 

947 

RED-OVER 

31,3523 

R DE 

13,3723 

1247 

1 

1234 

f EDES-OK 

31,3525 

ROES 

1316 

= 

106 

4 

1C6 

53  4 

REDESIG 

31 ,2704 

ROES GAIN 

25,3066 

55? 

2 

5 50 

PEDESMON 

11,2321 

R D E S I R ED 

E 5,1755 

= 

125 

3 

125 

119  8 

PEDES1 

31,2755 

R DG 

F 6 , 1 402 

3 26 

8^7 

P09 

R F 0 F 1 A f T 

0 1 6+  3 

C. 

r\  L jri.HU 

R DG I M S 

34,3757 

894 

1 

892 

P EOFLB IT 

4746 

R DIFF 

E6 , 1452 

= 

132 

REDO 

37,2002 

RDLONGR 

40,2767 

421 

1 

4 2 0; 

REDOC) R 

0320 

RDM 

13,3721 

124? 

re  DO HANC 

26,21 50 

R DOT 

E 7 ,1473 

= 

120 

4 

840 

852 

' EDO  MANN 

26,2126 

R On  T B I A ; 

2 5 ,?om 

6,1 

1 

c68 

PE DO MASK 

10,3504 

R DOT  CCNV 

32,2001 

41 

1 

5 70 

P EDO PR  1 0 

10,2542 

R DOT D 

E4 , 1672 

= 

1 19 

6 

l 19 

845 

RED02. 17 

36,2337 

ROQTDNQM 

23,2457 

842 

1 

839 

F EDO 6,.  2 

36,2342 

R Dt  T M 

E7 ,1750 

= 

1 46 

3 

16,6 

578 

F EDO 5. 5 

37,3453 

RDOTMSAV 

E7, 1746 

= 

I 46 

L. 

1 45 

570 

RE 006. 7 

36,3350 

R dot  V 

E?  ,16  16 

141 

4 

14? 

636 

REDSPTEM 

32,2017 

R DP  FT 

E7, 1675 

= 

145 

3 

145 

586 

F EFLASH 

10,2457 

R DPI  DCS 

25,2054 

491 

1 

491 

PEFLASHP 

10,246? 

R DR  P T B B 

406  3 

154 

1 

153 

F EF MF 

1 5,35  06 

R DR US  EC  K 

43  ,26+2 

280 

5 

265 

276 

PE  PS  MB  i r 

6 73  7 

R DSP 

E 5 , 14  34 

= 

127 

T EFSMFLG 

005  7 

358 

520 

357 

84 

420 

420 

84 

71 

569 

71 

889 

84 

84 

458 

458 

458 

458 

1247 


871 
518 
351 

872 

420 

421 
879 
219 
571 
606 
889 
889 
889 
4 27 
458 
4 59 


REFSMMAT  E3,1733 
REGCOARS  15,2156 
481  REGODSP  10,2465 
874  REGODSPR  10,2470 
422  REGSLEEP  07,3372 


1 1238 


REGUP 
RE  INTBIT 
605  R E I NT  FI  G 
RFJAL  M 
REJECT 
REJECT2 
RELDSP 
R ELDS POL 
443  RELDSP1 
R ELDSP2 
P EL  INTO 
RELINUS 
PELOADSV 


6233 
*745 
0236 
07,2467 
07,2472 
07 ,2505 
4457 
4374 
6502 
4473 
10,3231 
26,2217 
1 1, 3642 


111 

930 

1358 

1358 

1320 

1008 

82 

82 

257 

257 

257 

464 
461 

465 
*65 

1367 

475 

1243 


53 

1 

2 

1 

1 

3 


194 
931 
736 
814 
13  20 
1008 
3 1220 
5 711 


1 

1 

1 

10 

3 

2 

2 

2 

1 


257 
257 
257 
227 
398 
438 
46  5 
1363 
240 


979 

745 


1385 

1392 


836 
464 
6,5  0 

1367 


1 1242 


1237 

3 

1237 

1233 

F ELRET 

0144 

= 

97 

4 

464 

465 

1240 

3 

1 1 56 

1239 

RELTAB 

406  6 

155 

4 

1 c7 

443 

12  16 

2 

1216 

1217 

REI.TAB1  1 

4101 

155 

2 

156 

1099 

726 

1 

727 

REMAP K 

07,2577 

260 

3 

25? 

259 

815 

1 

814 

' EM D I ST 

42,2000 

46 

1 

487 

815 

1 

814 

REMODBI T 

47  36 

= 

85 

6 

532 

596 

804 

I 

798 

REMODE 

25  ,2171 

531 

2 

546 

597 

.3  20 

I 

820 

P EMODFLG 

0265 

= 

85 

805 

1 

805 

RENDEND 

26,3176 

582 

1 

579 

76 

785 

815 

RENDEZ 

22 , 2000 

= 

32 

1 

1157 

76 

2 

804 

814 

RENOEZVU 

0002 

= 

236 

18 

235 

373 

1 

290 

R ENDNOO 

04,2262 

231 

2 

230 

99 

3 

194 

215 

■,  EM  DR  AD 

25,3276 

557 

1 

556 

474 

1 

473 

RENDVOQ 

04,2226 

230 

1 

230 

473 

RENDWBIT 

4753 

= 

75 

1 

290 

1372 

2 

13  57 

° END# LG 

0131 

= 

75 

13 

236 

1243 

1359 

1 

1372 

PENEWMK 

07,2502 

257 

1 

257 

736 

1 

240 

REPETE 

35,3177 

669 

1 

669 

737 

2 

241 

75  8 

REP  I P 1 

37,3557 

870 

1 

371 

858 

1 

242 

REP  IP3 

37,3565 

870 

1 

371 

756 

1 

243 

REPIP4 

37,3571 

870 

4 

871 

207 

2 

207 

REPOSBI T 

4741 

= 

85 

8 

187 

597 

1357 

l 

745 

R EPOSCNT 

E7 , 1423 

= 

139 

A 

139 

510 

1357 

2 

755 

814 

REPOSMON 

0270 

= 

85 

979 

3 

792 

980 

R EPOS  RPT 

25,2144 

530 

1 

534 

70 

7 

206 

133? 

REPO STM 

E7 , 16-24 

= 

139 

5 

1 39 

511 

70 

7 

630 

97  2 

EP40ALM 

36,3123 

748 

2 

732 

748 
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SYMBOL 

DEF 

H 

references 

SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

REOADD 

41  ,2064 

407 

1 

407 

F GOODE  NO 

25,3555 

563 

6 

532 

56  3 

R0DSCAL1 

E 7 , 1756 

= 

151 

3 

151 

816 

REQC9  v 

61,2310 

411 

2 

411 

P.GU 

E5  , 1636 

= 

122 

7 

2 00 

809 

ROQTASK 

32,3263 

816 

1 

816 

P EQDATX 

6 1 , 2 3 C3 

411 

3 

425 

426 

r GVGCALC 

31,3013 

806 

5 

798 

805 

RODTRAP 

20  ,2000 

= 

31 

1 

822 

o Fnn A~ v 

■^I  , 2705 

4 11 

3 

4 R5 

427 

i HC  ACT  I V 

17,2350 

1446 

1 

I : 

P OE 

14 , 2006 

45 

1 

935 

(_  'a1  U H ■ T 

R EQDATZ 

41 ,2307 

4 11 

3 

A07 

427 

PHCMOVED 

16,3223 

1434 

1 

1432 

ROLLOVER 

27,3247 

781 

1 

782 

REQFXLOC 

41 , 22C7 

409 

FHCSCALE 

4745 

= 

87 

1 

294 

ROLLTIME 

E6, 1401 

129 

4 

295 

781 

REQEX  1 

41,3473 

443 

1 

443 

F HCSCFLG 

.0313 

= 

87 

RONE 

E4 , 1606 

= 

115 

16 

115 

1277 

REQMM 

41,3*  12 

4^7 

1 

447 

r ight 

00 ,2236 

1054 

1 

1C  56 

Run 

04,2143 

229 

REQRET 

1C  13 

102 

17 

222 

456 

F I GHT- 

00,2332 

1056 

1 

1 C 53 

POO  AD 

0 a, 2 3 65 

232 

1 

228 

REQIJE  STC 

41 ,3477 

448 

I 

448 

R IGHTR 

00,2031 

104  7 

1 

1055 

ROOTCYCl. 

21,3636 

1484 

3 

1482 

P ERE ADAC 

37,3614 

871 

3 

242 

P IGHT 5 

43  2 2 

460 

2 

428 

429 

RQOTHALF 

21,3632 

1 4S4 

1 

1482 

R ERR  CAL  C 

17,2646 

14  51 

P IGNX 

E5 ,1474 

= 

121 

2 

12  1 

787 

ROOT LOOP 

31,3624 

8 24 

2 

825 

RERROR 

E6 , 1 52 

= 

1 30 

5 

132 

1 4 52 

R IGNZ 

E5, 1476 

= 

121 

2 

121 

787 

ROOT MU 

0020 

= 

12  02 

3 

1179 

1197 

R ER  60 

26,2237 

475 

1 

475 

r INIT 

E4 , 1 722 

1 18 

1 1 

652 

766 

f OOTPS 

0126 

= 

98 

5 

323 

825 

R ESAMPLE 

25  ,3  263 

556 

1 

5 1 0 

'LAST 

E 6 , 1 ,66 

130 

5 

1425 

1447 

ROOTPS+1 

n 27 

= 

98 

R ESETRPT 

11,2335 

P?1 

2 

821 

ELM 

F* ,1604 

= 

11? 

16 

487 

48  8 

ROOTPSFS 

31,3553 

823 

1 

807 

R ESETX2 

12,3120 

11  °1 

1 

1189 

FLMSRCH 

E 7 , 1675 

= 

144 

6 

144 

592 

ROOTS TOR 

31 ,3670 

825 

3 

825 

R ESET22 

04,2250 

230 

2 

230 

RL. MUNI  T 

0014 

= 

5 93 

ROPECHK 

43,3520 

1290 

1 

1287 

RES IGN 

35,3223 

670 

1 

670 

F.LS 

E4 , 1422 

113 

15 

196 

1212 

RQT-IQUV 

17,3146 

1 A57 

4 

1 44  2 

1497 

P.  ESQ 

33,2037 

44 

1 

8 BO 

PM 

E7, 1756 

= 

146 

6 

1 46 

606 

P OT  AT  E 

34,3052 

643 

2 

642 

R EST 

10  ,3245 

13«'8 

1 

13  65 

PM  AG 

E 7 , 1714 

= 

143 

5 

143 

77  7 

ROT  EM  PI 

E6, 1737 

= 

131 

3 

1457 

R ESTART 

01 ,2000 

= 

2 a 

4 

2 39 

1307 

P AG1 

0014 

= 

1268 

4 

12  71 

1280 

5 OT  EM  P 2 

E6 , 1740 

= 

131 

4 

1457 

RESTART? 

31  ,2  574 

ooi 

1 

801 

RMAX 

F 4 , 1404 

113 

1 

586 

ROTFL AG 

0220 

= 

81 

5 

834 

8 51 

RESTARTS 

0 1,3!  1 

1303 

1 

218 

R ME 

12,2021 

= 

37 

1 

1218 

RUT  FI.  BIT 

4746 

= 

81 

RESTORDB 

20,2123 

1 6 07 

8 

288 

1409 

RMM 

12,2017 

= 

37 

ROT  INDEX 

£6,1744 

= 

1 31 

10 

1429 

1458 

RESTFFG 

0366 

me 

4 

211 

1364 

RrlODIN  IT 

05,3365 

223 

1 

219 

RO TORQUE 

16,3716 

1471 

1 

1470 

R ESTSLEP 

10,3251 

1368 

1 

1 360 

r MOD IN  V 

25,2233 

532 

7 

532 

543 

POTSENSE 

E6 , 1740 

= 

133 

9 

1461 

1469 

otSHI  TCT 

F;  5 ,1537 

t; 

375 

379 

P N 

1 220 

105 

16 

195 

1221 

P0T180 

26,2350 

483 

1 

48  3 

R ESUME 

5270 

11  29 

y 26 

160 

1413 

RND/TST 

42,3543 

435 

3 

4 34 

43  5 

ROUND 

00,2116 

10A9 

1 

10  13 

RETJADR 

E 6 , 1X77 

4 

1445 

1454 

? NDCON 

42,3302 

422 

2 

423 

POUND  SUB 

7136 

1032 

4 

1044 

1055 

RET  NMC P E 

20 , 24  4 2 

1420 

6 

14  15 

14  19 

F N DR  EF  DR 

07,3175 

3 

174 

133  5 

RP-TO-R 

26,3716 

1140 

9 

786 

1236 

retn  r 

06,2264 

1 64 

1 

1 65 

P N D V ZB  IT 

4745 

= 

66 

10 

1 85 

65  2 

PPAD 

23,2314 

695 

4 

696 

12  33 

R ET  on 

0 132 

= 

98 

3 

823 

82  5 

r-  NDVZFLG 

001  0 

= 

66 

6 

2 87 

1335 

FPADTEM 

E4, 1602 

= 

115 

6 

115 

721 

0 ETURNTJ 

1 7,3466 

1464 

7 

1 a 6 3 

1467 

PNGEDAT  A 

0260 

= 

84 

RPA01 

23,2314 

= 

1 2 83 

REVCNT 

6242 

1008 

c 

292 

1099 

PNGEDB IT 

4750 

= 

84 

2 

884 

893 

P PASS  1 

E7, 1A77 

141 

4 

14  1 

642 

REVERS 

35 ,3226 

670 

1 

670 

RNGSCB IT 

4742 

= 

74 

2 

571 

894 

RPASS2 

E7, 15  21 

141 

7 

141 

647 

REVERSAL 

21 ,3610 

14  83 

1 

14  8 3 

PNGSCELG 

0120 

= 

74 

4 

558 

894 

FLPASS3 

E7, 1551 

141 

12 

633 

729 

R F VN 1645 

35,2540 

6 53 

2 

615 

66  3 

F NR  AD 

0046 

= 

92 

5 

r 55 

557 

R PASS  36 

E4, 1606 

= 

118 

e; 

118 

701 

R EVP  3 

37,3155 

7 04 

I 

706 

F Ml 

E7, 1544 

= 

147 

7 

147 

1224 

RPCRT I ME 

E7 ,1427 

138 

1 

874 

PFAII  C NT 

Em  756 

119 

? 

276 

4Q0 

> 0 AD BACK 

25,236a 

537 

4 

537 

562 

r.  PCRTOSW 

E7, 1430 

138 

1 

874 

R FAT',  c 

40,3671 

471 

1 

470 

F ODCOMP 

32 , 3275 

816 

1 

816 

RPER 

0016 

= 

1274 

3 

7 20 

1274 

RFAI LS2 

41  ,3727 

469 

I 

468 

RODCOUNT 

E7, 1746 

151 

5 

801 

822 

RPPREC 

E7, 1521 

= 

141 

2 

667 

670 

RGEXIT 

E7, 1665 

f 

142 

fvOOFLAG 

0022 

= 

67 

1 

800 

RPQFL AG 

0170 

= 

78 

6 

1215 

1233 

R gimbtts 

50  20 

= 

m2  9 

1 

14  2C 

FOOFLB  IT 

4740 

= 

67 

2 

217 

801 

RPQFLBI T 

4735 

= 

78 

RGIMTIMR 

E 6 , 1 634 

= 

1 3 A 

C 

1412 

14  72 

P HQ SCALE 

E5 ,1537 

= 

1 22 

2 

122 

800 

PPQV 

m 

4s 

n 

o 

4^ 

= 

1 14 

8 

114 

1239 
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SYMBOt 


DEF 


H 


SYMBOL 


DEF 


F £ ,1121 
26,3773 
2 6 ,3725 
E 4 , 1 5 1 3 
E4 , 1 6 Q 0 
FA ,1602 
13,2133 
E4 , 1 602 
E6 ,1*37 


RPREXlT  GOTO 

RPF.PXXXX  2-0,37  O'. 
R PS  V 
P DTHP  A 
RPTPRB 
ROW 
RR-AZ 
RP-ELFV 
R P ANGLE S 
RPATF 
R RATE  DI F 
RRAUTCHK  06,3006 
RRBlJi  SIT  E~  ,1740 
R RCDUC HK  06,3037 
PP CHECK  45  76 

R°DATABT  ''>"50 

RP  DATA  Ft.  0 2 77 

RPDESDUN  25,3005 
RRDESEND  43,2302 
R RDESK  2 43,2261 

RPDESNB  25,2475 
RPDESNBK  ^3,2227 
RRDESSM  25,2373 
RRECT  E3 , 1 502 
RRECTCSM  53,1554 
RPFCTH1S  F 3 , 16  26 
R R ECTI  FM  F3,l626 


13  46. 

11  42 

1 14 
1 1 40 
1140 

1 14 
1 16 
1 1 S 
322 

115 
1 30 
182 
1 

1 

5 24 
96 
86 
551 
270 

2 6 9 
5 43 
269 
5 38 
1 10 
1 10 
1 11 
1 11 


REFERENCES 

3 1140  1142  PAGUT2  25,2310 

1 1140  PF  RANGE  26,3105 

5 114  1231  RRRDOT  25,3103 

111^0  PRO  FT  1315 

1 1141  FP.P.S6IT  4751 

7 114  1231  RRRSFLAG  0300 

§:  118  315  RP SHAFT  £7,1735 

2 3 CO  31^  PRSONLY  25,2244 

1 5 36  I R S PGA  I M 2 5,2  305 

>-  115  7^5  f c T A!JG  ET  1 101 

1 1447  RRTONLY  25,2241 

2 159  FRTRKF  4570 

5 1.46  572  R RTF  UN  E7,1733 

2 182  FR TURNON  25,2062 

PP  ZERO  25,2-343 

1 524  RRZERDK  43,2142 

PRZEROSB  25,2071 

RP  Z 2 25,2370 

RR1AXI S 25,2246 

F D 1 AX2  25,2  254 

C11  FP29GAIN  32,2775 

FSAMPDT  E 4 , 17  5 5 

591  F SBBO  E 3 , 1432 
1240  F SCALE  32,2177 

1213  FSFLGBTS  05,3066 

1210  PSPHERE  13,3717 

1212  P.  ST  ACK  £4,1600 


REFERENCES 


1 

1 

1 

3 

I 

3 
15 
1 1 

4 
3 


551 
2 62 
269 
269 
267 
509 
110 

1 LO 

2 S 7 
111 


5 35 
5 53 
553 
106 
86 
86 
146 

533 

534 
103 
533 
5 24 
146 

526 
537 
265 

527 
537 

533 

534 
604 
119 
109 
209 
218 

1247 
1 1 8 


3 

3 

1 

1 4 

5 

3 

3 

1 

1 

1 

2 

1 

1 

1 

2 

7 

2 

1 

1 


536 
491 
A 91 
106 

569 

146 
530 
534 
I 93 

5 30 

6 12 
146 
183 
265 
245 
526 
5 37 
533 
533 
603 
276 
195 
209 
216 

2 1237 
12  276 


SYMBOL 

DEF 

H 

REFERENCES 

RTNHOLD 

E7, 1607 

149 

796 

= 

4 

1 49 

606 

RTMLAMB 

£5,1710 

= 

125 

8 

125 

1197 

605 

RTNPRM 

E5, 1753 

= 

125 

.3 

125 

1187 

534 

FT N SAVER 

0145 

= 

98 

3 

1263 

1264 

RTNTR 

£5,1710 

= 

125 

1 

1198 

RTNTT 

E5 , 1710 

= 

125 

3 

11  P6 

580 

RTORPA 

24,3712 

1142 

1 

1142 

532 

RTORPB 

24,3701 

1142 

1 

1142 

RTRN 

E? , 1465 

140 

14 

65  0 

730 

604 

PTP.MC  ADP 

01 ,3565 

1303 

5 

1303 

1308 

597 

RTRNMU 

10,2022 

693 

1 

693 

613 

R TSP  1 / •'  U 

E4, 1716 

117 

4 

117 

693 

582 

RTSTBASE 

E4.1753 

119 

3 

277 

490 

PTSTDEX 

F4, 1751 

119 

7 

119 

491 

RTSTLOC 

E4 ,17  54 

119 

8 

119 

491 

RTSTMAX 

F4, 1752 

1 1 Q 

2 

277 

490 

1 1 

437 

PTX1 

E5, 1776 

= 

124 

14 

124 

1224 

RTX2 

1*  U F l A W 1 

E5, 1777 
17,3630 

= 

124 

1 /.AO 

18 

1 

617 
146  1 

1224 

It  ^ ' 

5 U F L A W 1 2 

17,3636 

1468 

2 

1468 

RUFLAW2 

17,3664 

1468 

1 

1461 

490 

RUFL  AW3 

17,3672 

1469 

1 

14  6 2 

215 

RUFP.ATE 

17,3743 

1469 

2 

1468 

RUFSETUP 

17,3712 

1469 

4 

1468 

1469 

RUN  IT 

E7, 1743 

= 

151 

8 

161 

898 

1238 

490 


PUP  DA TFD 
RUPTAGN 


33,3307 

0734 


886 

100 


ICO  1129 


OUECTpth 

E3,lc54 

= 1 10 

I 

2C  7 

PSTKLOC 

i-4 , 1754 

= 

119 

0 UP  TP  EG  1 

0070 

95 

62 

155 

14  07 

RRGIMON 

06,3071 

186 

1 

1 84 

P STOFGTS 

21,3524 

1482 

2 

1476 

RUPTREG2 

0071 

95 

26 

162 

1430 

RR I MUD  IF 

43,2204 

268 

1 

268 

RSUBC 

1101 

= 

103 

3 

494 

PUPTREG3 

0072 

95 

19 

37  2 

1480 

D £ T M 

1 317 

p 

r,  oo 

534 

r c ; |Li  p 

i /,  .90 ha 

A CL 

1 

c a ^ 

Ci  | D T R FPA 

95 

7 

95 

1338 

I U I 1 

— J.  V o 

3 

.•>  CfD 

r oUol 

I -•  felt 

*T  .1 

1 

r U r 1 I\Ewt 

J 1 D 

t 

R R I N I T 

06  , 25  54 

1 73 

1 

173 

RSUBEM 

14 , 2000 

45 

2 

935 

RUPTSTCR 

0063 

= 95 

Rf-l  EADIN 

25,2000 

= 3? 

1 

4 90 

p SUBL 

£7,1630 

= 

14  3 

4 

148 

495 

RUPT10BB 

4065 

154 

1 

154 

R P L T VC  HK 

45  23 

522 

4 

187 

542 

P SUBM 

14,2002 

4 5 

1 

935 

RUTH 

16,3120 

1432 

1 

1432 

RRLIMNB 

25 ,2540 

543 

2 

543 

PTARG 

E7,1443 

139 

8 

194 

776 

RUTMXTAB 

42,3134 

317 

1 

304 

RRLIMOK 

4560 

523 

2 

523 

544 

PTARG1 

E7 , 1471 

= 

144 

11 

686 

690 

PUTMXTEM 

0153 

98 

2 

304 

428 

R CL  OS  DSP 

40,2017 

299 

2 

299 

300 

FIB 

01,2450 

1090 

1 

1090 

RVARM  IN 

E 3 , 1 7 7 4 

112 

1 

576 

RRLOSVEC 

1101 

= 5 71 

FT  B/BHIZ 

01,2447 

1090 

1 

1012 

• VBOTH 

33  ,3032 

882 

1 

861 

RRNB 

23,204 1 

3 24 

3 

543 

591 

F TBCODES 

10,2000 

= 

29 

1 

1397 

RVCON 

13,3243 

1217 

1 

1216 

R r NBBI T 

4746 

~ A A 

ptfrm 

0022 

= 

1 968 

3 

1277 

1 279 

PVEC 

E5,  1654 

= 125 

11 

494 

12  00 

P W P AC 

23, 2065 

3 24 

1 

299 

p theta 

E4, 1604 

= 

1 lc 

10 

115 

706 

RVQ 

00,3274 

1077 

1 

1013 

R RNBSW 

non 

= 66 

5 

539 

p65 

RT  IG 

E7 , 1641 

142 

1 1 

142 

769 

P.  V S W 

0157 

= 77 

8 

494 

1136 

RRNB1 

23,2054 

324 

1 

324 

RTMAG 

E7, 1722 

= 

143 

5 

143 

777 

RVSWB IT 

4743 

= 77 

R ROUT 

25,2306 

535 

3 

534 

6 04 

r TMIJ 

r ' , 1720 

117 

4 

633 

693 

R W A T T K 

43,2145 

265 

R P.OtJT  l 1“ 

25 ,2  335 

536 

1 

.5  3 5 

PTNAPSE 

E 5, 1710 

= 

1 25 

3 

12  00 

RXZ 

E7 ,1721 

= 145 

10 

145 

586 

HEALTH  KEY:  NORMALLY  DEFINED  UNLESS  FLAGGED  AS  FOLLOWS: 


UN  UNDEFINED 
BD  BADLY  DEFINED 


= DEFINfig  3 Y EQUAL S J DEFINED  BY  JOKER  OR  ERASE  ANYWHERE  MD  MULTIPLY  DEFINED 

CD  DEFINITION  ASSOCIATED  WITH  CONFLICT  XX  MISCELLANEOUS  TROUBLE 


3 AP  : ASSHOLE  REVISION  001  GF  AGC  PROGRAM  AP11R0PE  BY  EYLES  3:15  DEC.  2,1970  PAGE  1548 

SYMBOL  TABLE  LISTING,  INCLUDING  DEF  I N IT  If N , HEALTH,  DAGE  OF  DEF,  $ OF  FEES,  PAGE  OF  FIRST  REF  , PAGE  OF  LAST  PEF. 


SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF  H 

REFERENCES 

SYMBOL 

DEF 

H 

REFFRENCES 

R02 

04  ,2000 

.. 

23 

1 

1332 

R21LEM3 

24,2742 

509 

!-  29L0KCN 

32,2752 

604 

1 

604 

8 02B0TH 

04,32 54 

1332 

11 

339 

927 

r 2 1LEM4 

24,2777 

510 

1 

509 

R29N0DES 

33,2564 

876 

2 

876 

R 02 ZERO 

04  ,3270 

13  32 

1 

1332 

P 2 1).  EM  5 

24, ?70c 

508 

1 

508 

R29RANGE 

24,3443 

606 

1 

606 

R 0^. 

L X , ?4  1 4 

? 76 

2 62 

i 2 1 L EM  6 

24,2715 

509 

X 

508 

p 2°P  D JOB 

24,3413 

605 

j 

605 

R 04  A 

43,2446 

276 

1 

277 

F 2 1 LEM  7 

24, 3036 

510 

2 

510 

R29READ 

24,3400 

605 

2 

604 

605 

P 04B 

43,2470 

277 

1 

277 

R21LEM8 

24, 3043 

510 

l 

510 

R29REMDJ 

33,2113 

5 97 

1 

596 

R 04 C 

43,2505 

277 

2 

2 77 

279 

! 2 1LEM9 

24, 3075 

511 

1 

511 

1 2 9 R R R ? 

24,3466 

606 

1 

606 

R 04 END 

4352603 

279 

6 

277 

278 

F 21  S RC  H 

24,2772 

5 09 

1 

509 

SI 

25,2000 

= 

32 

1 

597 

R 04 FI  AG 

0063 

= 

70 

5 

71 

4 96 

R22DISP 

0314  = 

99 

6 

314 

586 

r 3D  1 

4321 

4 60 

5 

403 

457 

R04F-I  BIT 

4743 

= 

71 

4 

276 

696 

P 2 2 LEM 

24,2451 

504 

3 

c 07 

P3OL0C 

22,2000 

= 

32 

2 

44 

713 

R 04-K 

43,2575 

279 

1 

276 

K22LEM1 

24, 2521 

505 

1 

505 

R300K 

27,3766 

1283 

R04L 

43,2577 

279 

1 

277 

R22LEM  12 

24,2463 

504 

R31 

37,2000 

= 

36 

1 

703 

R04LR 

43,2.5  42 

2 78 

3 

278.. 

P 2 2L  EM.  2 

24,2531 

5 05 

2 

505 

R31CALL 

40,3674 

703 

1 

283 

R 048  F 

43,2524 

273 

2 

278 

R22LEM3 

26 ,2551 

5 0 5 

2 

50  5 

R31L0C 

40,2000 

= 

36 

1 

703 

R 04  X 

43,2463 

2 77 

1 

279 

! 2 2 L EM  42 

24,2627 

506 

4 

499 

506 

K31SUFF 

37,3370 

707 

1 

704 

P 04Y 

43 ,2556 

278 

2 

2 78 

P 22  L EM  44 

24,2622 

5 06 

506 

R33 

42 , 2002 

275 

1 

275 

R 04  Z 

43,2420 

276 

1 

2 76 

R22LEM45 

24,2632 

506 

2 

506 

R 36 

04,2656 

701 

2 

7 0 2 

R 1 

0040 

= 

1202 

19 

635 

1200 

R22LEM46 

24,2640 

507 

2 

506 

P 36  IN  T 

04,2676 

701 

1 

702 

R 1A 

E5 ,1741 

= 

125 

15 

1 2 5 

1200 

R 22LEM7 

24,2616 

506 

1 

506 

R36LM 

04,2000 

= 

28 

1 

700 

R 1C 

F 7 , 1 72*i 

= 

143 

4 

143 

77  8 

3 22  LEM 93 

24,2566 

506 

1 

5 82 

P 36  TAG? 

04, 2765 

702 

1 

702 

P 101 

4317 

460 

13 

6 03 

107  3 

p 2 2 LEM 96 

24,2572 

5 06 

2 

586 

R4  7 

32,2000 

= 

34 

1 

206 

R IS 

E7 , 1 572 

= 

147 

14 

147 

390 

R22RSTRT 

24,2653 

507 

1 

240 

R 5 1 

14,3015 

941 

1 

930 

R 1SAVE 

1074 

103 

4 

222 

1370 

R 22WAI T 

24,2636 

507 

4 

504 

506 

R51 .1 

14,3017 

941 

1 

26  1 

R 1VEC 

E5 , 1654 

= 

1 25 

6 

125 

1193 

R23LEM 

24,3135 

5 13 

1 

497 

851. 2 

14,3055 

941 

R 10 

2 1,2000 

= 

31 

42 

898 

R 2 3 L EM  1 

24,3143 

513 

1 

I 14 

R51  .3 

14,3056 

941 

1 

943 

R 10  ,11 

21 ,2f  J 6 

3 29 

3 

240 

859 

r-  23!  EX  11 

24,3154 

513 

1 

513 

8 51.4 

14,3145 

942 

1 

96  2 

RIO,'  11  A 

21 , 2021 

32  9 

1 

37? 

P2  3.LEM2 

24,3176 

514 

2 

513 

514 

85  1C 

14,3022 

941 

2 

941 

942 

R 1 OF  1 AG 

00  l 5 

_ 

6 4. 

8 38 

? 3 ! F M •* 

24,3201 

516 

2 

6 1 3 

6 1 4 

r s 1 E 

14,3053 

°4 1 

96  1 

f C DLL'  1 J 

R 10FL BIT 

4752 

= 

66 

4 

831 

907 

F 24END 

2 4 * 3 2 3 C 

516 

1 

515 

R51F 

14,3042 

941 

R 11 

21  ,2000 

= 

31 

2 

829 

835 

R 24  LEM 

24,3206 

515 

1 

50  9 

R 5 1 1 

14,3043 

941 

1 

941 

R 12LITES 

25 , 3607 

6 1 2 

1 

£ 75 

F 2 4 LEM  1 

24,3212 

515 

p.5  i k 

14,31 34 

942 

2 

942 

944 

R12STUFF 

34 ,2000 

= 

34 

1 

5 7 3 

R24LEM2 

24 , 3 2 If 

5 15 

1 

516 

F 5 1 P 6 3 

14,3135 

942 

1 

788 

R 2 

F " ,17  17 

= 

125 

3 

1 1 84 

R24LEM3 

24,3234 

5 16 

1 

515 

F 52 

14,3670 

955 

1 

96  1 

R2D1 

4320 

460 

7 

4 03 

10Q9 

F 2 4 LEM 4 

24,3251 

516 

1 

516 

0 52  A 

14, 3700 

955 

2 

855 

956 

R 2VEC 

E5 , 1 662 

= 

125 

10 

125 

1193 

P 29 

33,2045 

596 

2 

597 

876 

R52B 

14,3706 

955 

I 

955 

R 21-503 

24,2760 

509 

1 

509 

f 29. LOS 

33,2123 

597 

1 

596 

954 

14,3256 

= 

945 

2 

942 

971 

R210ISP 

24,3121 

511 

1 

5:09 

f 29/SERV 

33,2000  = 

34 

1 

595 

R55 

14,3224 

945 

1 

942 

P 21 END 

24 ,27  67 

509 

1 

509 

R 29  ? 

33,2547 

876 

R55 . 1 

16,3231 

945 

R 21LFM 

24,26  74 

5 08 

1 

4 9g 

T 2 90 LOOP 

24,3362 

599 

1 

599 

R55.2 

14,3237 

945 

1 

945 

o 2 ILF  M I 

24,2733 

509 

F’  2 9D0D  E S 

32, 2647 

600 

599 

9 5 5 C D P 

14,3255 

845 

2 

944 

86,5 

R21LFM10 

24,2725 

509 

2 

5 08 

511 

R290PAS1 

32 ,2563 

600 

1 

600 

R55RET 

14,3251 

945 

1 

945 

R 21LEM1 

24,3105 

5 11 

1 

5 10 

P29DPAS2 

32,2702 

603 

1 

601 

R56 

14,2611 

= 

937 

1 

941 

R 2 HEN  12 

24 ,3006 

5 10 

! 

5 m 

F;  29  DVB  EG 

32,2552 

600 

2 

600 

602 

R59 

15,2245 

957 

4 

957 

870 

R21LEM13 

24,3033 

5 10 

1 

5 10 

f 29DVEND 

32,2577 

600 

1 

600 

P58A 

15,2257 

957 

1 

957 

R 2 ILF  M2 

24,2731 

5 09 

1 

5 52 

^ 29FXL0C 

32,2774 

6 04 

1 

601 

P59ALM 

15,2427 

959 

1 

959 
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R59D 

15,2375 

959 

1 

9 59 

S-2 

774o 

R 5<5E 

15,2445 

9 60 

1 

960 

S-3 

7745 

R59DUT 

15,2455 

960 

4 

957 

959 

S— 4 

6112 

1 K -Q  . 

o ”7 

c t n 

S_7 

56  6 0 

R60INI7 

32,3174 

7 88 

S A M E TY  p 

1 5 , 3 1 

P60LEM 

26,2123 

473 

6 

340 

956 

SAMPLI  M 

1100 

R60VSAVE 

E5 ,1630 

= 122 

4 

122 

783 

SAMPLSUM 

1101 

R 6 1 

23,2000 

32 

I 

4 17 

SAMPTI ME 

0013 

R61C+L01 

23,2127 

5 17 

2 

: 17 

51° 

SAVE 

E 5 , 1464 

R610+L03 

2?, 2133 

517 

SAVFCDUT 

F3, 1766 

R61C+L04 

23,2257 

5 19 

1 

518 

SAVEDEN 

27,3535 

R61C+L05 

23,2213 

4 18 

1 

5 18 

SAVEFL  AG 

1072 

R61C+L06 

23,2236 

5 19 

3 

518 

519 

SAVE HAND 

E 6,1462 

R61C  + I 1 

23,2264 

5 19 

SAVELOGR 

10,2727 

R 610  + 1.  2 

23,2252 

5 19 

1 

4 19 

SAVELOCS 

10,2722 

9 9 Q OA? 

r.  i q 

? 

C 1 c 

C A\/PO 

p „ 1 q n c. 

R 61  FLAG 

0024 

= 67 

2 

517 

SAVET-30 

E7, 1477 

R61FL  BIT 

4742 

= 6? 

1 

519 

SAVLEMV 

E7, 1737 

R61LEM 

23,21  16 

517 

4 

4 96 

516 

SAVORS 2 

E7, 1665 

R61LFM1 

23,2137 

4 1 8 

SAX 

E5 , 1730 

R61LEM2 

23,2175 

513 

SB  AND 

42,2000 

R 61  TEST 

26,224? 

^7r' 

1 

4 73 

SB  AN DA NT 

42,3606 

R 62 

23  ,2000 

= 32 

1 

48  5 

SBANDEX 

42,3745 

R62DISP 

23,2  103 

= 485 

1 

286 

SB  I T 1 

4753 

R 62 F LASH 

23,2 loi 

485 

2 

. 485 

SBIT10 

4742 

R 65CNTR 

E7, 1745 

= I 4 

6 

14  f 

576 

S B I 7 1 1 

474  1 

R65LEM 

23,2123 

517 

3 

503 

576 

SB  I "12 

4740 

R 65 W A I T 

23  ,2271 

519 

2 

517 

518 

S B I T 1 3 

4737 

R 77 

43,2404 

276 

1 

2 63 

■ 1 

4736 

R.77CHFCK 

2 5,?  3 

558 

1 

556 

SBIT15 

4735 

R77END 

43,2617 

279 

1 

263 

SB  1 12 

4752 

R 77 FL A G 

0117 

= 74 

2 

2 76 

279 

SB  I T3 

4751 

R77FI  BIT 

4741 

= 7 < 

4 

220 

558 

SBIT4 

47  50 

O D 1 ’ 9 

4747 

S (XI) 

0032 

= 1202 

6 

1178 

1184 

SB  I T6 

4 74  fc 

S+Z  f 

4755 

= 1285 

9 

290 

129  1 

SB  I T7 

4-745 

S+l 

4 7 53 

= 12  85 

9 

290 

1293 

SBIT8 

4744 

S+2 

4752 

= 1285 

SB  I T9 

4 743 

S+3 

6245 

= 1285 

SBNK03 

5020 

S+4 

47  51 

= 1285 

SC ABBTT 

4751 

S+5 

4756 

= 1285 

SCAL AD J 

25,3402 

S +6 

6242 

= 1285 

SCAL8AD 

0 26  1 

S +7 

4757 

= 1286 

1 

1287 

SCALCHNG 

25,3350 

s-ze'  r 

4754 

= 1286 

1 

1290 

SCAL DONE 

21,3507 

S-l 

7 747 

= 12  86 

2 

1291 

1293 

SCALECHK 

2 5,3  321. 

HEALTH  KEY 

1 : NORMALLY  DEFINED 

UN!  ESS 

FLAGGED  AS  FOLLOWS: 

= 

1 2 8o 

SCALE  DOT 

17,3320 

1462 

1 

1462 

= 

1286 

SCALFE 

17, 3306 

1461 

1 

1461 

= 

12  86 

SCAL  E FAC 

31,2005 

40 

2 

796 

= 

i2eo 

1 

1287 

SCALE  VEC 

32,2132 

208 

2 

207 

981 

1 

981 

SCALLPOP 

21,3473 

1481 

1 

1481 

103 

9 

222 

56  1 

SCALPREP 

37,3714 

1336 

2 

1335 

103 

9 

103 

893 

SCALSAVE 

0316 

99 

3 

1335 

92 

5 

207 

462 

SCALSHFT 

E 7 , 1 7 2 0 

= 

145 

4 

145 

= 

127 

SCALSTRT 

21  ,3465 

14?  1 

1 

1461 

604 

1 1 

601 

603 

SCAXIS 

E7, 1764 

= 

146 

27 

14  3 

1278 

1 

1278 

SCHZEROS 

37,3056 

388 

4 

380 

= 

1372 

SC L NORM 

17,3112 

1456 

i 9 n 

*7 

1 /,  1A 

1 AA7 

c r Ain  Cr l 

AA  1 

"7 

A 9 9 

1 D 'J 

( 

1'“  JH 

O i 1 / 9 L-  L 

-J  i f t r I t 

O4!*  1 

/ 

O 

1362 

1 

1362 

SCOUNT 

1 366 

= 

108 

4 

108 

1362 

2 

1358 

1 361 

SCOUTEND 

40,2702 

41  q 

C 

419 

= 

132 

2 

1 z 7 2 

1484 

SCRATCH 

E6 , 1746 

= 

132 

2 

1484 

= 

147 

8 

147 

736 

SCRATCHX 

0160 

= 

1496 

5 

149  2 

= 

144 

4 

589 

590 

SCRATCHY 

0161 

= 

1496 

3 

1492 

= 

142 

2 

955 

956 

SCRATCHZ 

C 162 

= 

1496 

4 

14°2 

= 

1 23 

5 

938 

940 

SO 

22,2366 

3 57 

= 

36 

4 

46 

486 

SDI SPI AY 

43,3113 

290 

1 

1293 

* 86 

2 

280 

4-89 

SEC  AD 

22,2027 

351 

488 

1 

488 

SEC  MA  X 

E 7 , 1 5 73 

= 

141 

5 

667 

= 

1285 

SEC0N1 

42,3267 

421 

1 

423 

= 

12:85 

SEC  ON  2 

42,3271 

421 

1 

421 

= 

12  85 

2 

1291 

1 292 

S ECO  1 

4777 

= 

763 

= 

12  85 

1 

1291 

SEC15 

36,3750 

763 

- 

1285 

SEC 15DP 

36,3747 

763 

= 

1285 

SEC30DP 

36,3751 

763 

= 

1285 

1 

1292 

SEC45 

36,3754 

763 

= 

1285 

SEC45DP 

36,3753 

763 

= 

1235 

SELCTSUB 

17,3173 

1457 

3 

1443 

= 

1285 

1 

12  89 

SELECTMU 

10,2000 

693 

6 

622 

= 

1285 

S EL  FC  TP 

14,3531 

1440 

2 

1436 

= 

1285 

S El  ECTYZ 

16,3551 

1 440 

1 

1429 

= 

1285 

1 

1 292 

SELFADRS 

43,3245 

1286 

2 

290 

= 

1285 

SELFBANK 

0 1, 3224 

1 1 16 

1 

1116 

= 

128  5 

1 

1289 

SELFCHFC 

4 3,200° 

= 

36 

1 

1285 

= 

1286 

1 

1291 

S EL  FC  HK 

43,3336 

1287 

5 

222 

= 

84 

3 

559 

612 

SELFERAS 

1357 

108 

1 

108 

559 

1 

558 

SELFRET 

1361 

= 

108 

7 

108 

= 

84 

SELFSUPR 

40,2000 

= 

36 

553 

1 

557 

SENDI D 

05,3753 

996 

2 

992 

1482 

1 

14  81 

SENDPULS 

07,3133 

13  14 

1 

1313 

557 

1 

557 

SENSEGET 

17,2114 

1442 

UN  UNDEFINED  = DEFINED  by  equals  J DEFINED  BY  JOKE'  OR  ERASE  ANYWHERE  MO  MULTIPLY  DEFINED 
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918 


1336 

1336 

586 

958 

383 

641 

1290 


1496 

1493 

1493 


669 


1454 

729 

1440 

291 


1287 

1287 

996 
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SYMBOL  TABLE  LISTING,  DCLUCp-G  DEFINITION,  HEALTH,  PAGE  OF  OEF, 


SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

sensetyp 

Efc, 1500 

131 

5 

14  33 

1 4©  2 

SEFPD 

7613 

1044 

SENSOR 

17,3724 

1469 

2 

146  1 

SETPOS 

33,3740 

896 

SEN  ST ESI 

IT  ,3  34a- 

146  2 

1 

t A 6 2 

5ET°n$l 

33,3721 

895 

c pp:>  T tv 

k ? p c.  3^ 

4?4 

p 

L PI 

423 

SETPOS 2 

33,3737 

896 

> C f ••  .1  r 

SEPMNRET 

0144 

= 

97 

2 

4 24 

SETPRI 0 

10,2510 

1358 

SEPSCF  ET 

0144 

= 

97 

2 

423 

424 

SETPRPQS 

33,2104 

596 

S EPS  FC 

42,3404 

423 

1 

422 

SETA  AD 

23,2344 

696 

SEPSECNR 

42  ,34.17 

42  3 

3 

421 

42  3 

CH  "V  AD  X 

23,2357 

696 

SEPSFC1 

42 ,3412 

423 

1 

423 

r E ' 1 E 

13,2560 

1139 

S EP  V 

32 ,2000 

_ 

34 

1 

p 66 

SE 7R£X 

005  1 

= 

1139 

SERVCADR 

36,2105 

= 

749 

1 

755 

SETROUND 

00,2272 

1054 

S El  VEX  IT 

32 ,3770 

866 

8 

731 

866 

SE  TR RC TP 

25,2317 

535 

SERVICER 

33  ,22C6 

360 

2 

242 

8 56 

SET  RRE.CR 

25,2156 

5 30 

SERVI CES 

33,2000 

= 

34 

8 

39 

8 94 

SET..  XX 

13,2573 

1 1 39 

S El  V I DL  E 

27,3321 

R 65 

2 

1383 

13  34 

SET  SEN SE 

17, 3276 

146  1 

SERVPUT 

3 3,2^  no 

•3 

3 

s 62 

v p r r j nj  £ 

17,2566 

1 4 4 9 

SERV1 

37,20  )( 

= 

36 

2 

8 57 

869 

SETTIME4 

06,2074 

157 

SEPV2 

22  ,2000 

= 

32 

1 

863 

SETTIME5 

16,2152 

1412 

S FI  V3 

27,2000 

= 

33 

1 

865 

settrkf 

4 5 6 4 

524 

S EP  V- 

34,20 00 

= 

34 

1 

894 

SETUPDSP 

10,2213 

12  94 

SFTAUG 

40  ,26  45 

418 

1 

4 1 A 

S ETUPERl 

37,3005 

388 

S ETBAMK 

13,3030 

12  13 

4 

1211 

121? 

SETNR29D 

33 , 2.152 

5 98 

SETCf ARS 

C 7,31 44 

1315 

2 

169 

1312 

SETUP70 

04,2373 

233 

SFTCTR 

21  ,3663 

15  03 

SETIJP7  1 

04,2372 

233 

S ET E BANK 

4313 

4 60 

2 

410 

420 

/AC 

41, 3510 

44  8 

S ET GAMMA 

13,2550 

1 1 33 

2 

1 1 33 

1135 

SET  WO 

05,3562 

992 

SETGt  cck 

06,2465 

1 70 

4 

169 

1 7 0 

SETXFL AG 

07,2667 

= 

8 5 1 

S ET 'V  EX 

13,2556 

1 1 3B 

113  3 

SF  T XTA r T 

43,2105 

H3 

O u_  1 A 1 4 \y  1 

c-  J 

SETIFI GS 

13,2  644 

12  10 

8 

236 

122  1 

SETX2 

26,2526 

576 

S ET I NFL 

05 ,2731 

2 15 

SEUDHPOO 

04,2202 

229 

SETISSW 

06 ,2703 

179 

7 

1 6 5 

1 3 18 

SEVEN 

4 75  7 

1095 

SETT  TCTR 

1 1 , 37^6 

1246 

1 

6R« 

SF  A I L 

13  57 

= 

1 C 3 

SETL  C'C 

01,2661 

11  07 

3 

110  7 

111  l 

SFCny) 

42,2145 

305 

SCT 

10,2r  26 

1359 

SFCONST 1 

E 5, 1467 

= 

127 

SETMAXDB 

20 ,2 127 

14  07 

2 

791 

1407 

SFCONUM 

41,3047 

428 

SET  MG  A 

06,3730 

692 

1 

692 

SF  INTAB 

42 , 2464 

3 1 1 

SETMINOB 

20  ,2  140 

1407 

6 

1 

1407 

SF INTABR 

41,3212 

431 

setmooh 

13,27].-, 

12  11 

3 

12  11 

1239 

SF  M I XC  AL 

40 , 3060 

4 32 

SETMUEf 

10,2011 

693 

1 

69  3 

SFNORCAL 

40, 3063 

432 

S E TNI  ADD 

4 3 1 1 

460 

2 

407 

/,  2 o 

c F ft  II T A R 

42 , 2556 

312 

S ETNCADR 

4303 

460 

7 

4C7 

460 

<_  I KjJ  Kj  ? fi  1/ 

SFQUTABR 

41 ,2600 

417 

SETNEGU 

21 ,3363 

1479 

1 

14  7° 

SF  RE  T 

41,3064 

428 

SETNUFM. 

10,2534 

1 3 59 

1 

13  57 

S FRET  I 

41,3046 

428 

S ETOVF 

7003 

1027 

1 

10  30 

SFr UTMI X 

41 , 3034 

42  8 

SET0VF2 

715  2 

1032 

1 

1028 

SFRUTNOR 

41 , 3026 

4 28 
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1 

101 1 

SFTEMP1 

€12  3 

= 

96 

20 

304 

433 

1 

8 96 

SFTFMP2 

0124 

= 

96 

2 

433 

434 

1 

7 89 

S(5N AGP  EE 

10,3612 

1397 

6 

376 

1218 

1 

895 

SGNCHECK 

12, 2C62 

1182 

2 

1 182 

1183 

SGNCOM 

40, 2422 

402 

1 

403 

1 

596 

SGNDVOV  F 

C 0 , 2402 

1057 

1 

1057 

1 

695 

SGNOFF 

012  3 

= 

96 

3 

402 

403 

1 

69  6 

SGNON 

0122 

= 

96 

3 

402 

4 03 

2 

1 1 33 

1 13S 

SG'HR  DOT 

E 5, 1754 

= 

125 

2 

125 

1198 

2 

1139 

SGNTAB 

40 ,2443 

403 

2 

402 

403 

3 

10  54 

SGNTD1 

7, 0 ,3070 

432 

1 

7+31 

1 

536 

SGNTST1 

40,2462 

403 

3 

403 

3 

529 

596 

shaftbq 

26,3011 

580 

3 

1139 

S HA  FT  L I M 

25,2564 

544 

1 

544 

1 

17  61 

SHAFT  VAR 

E4 ,1410 

113 

1 

58  1 

I 

1449 

S HF'r  F A C T 

32,3534 

81Q 

1 

818 

1 

160 

SHFTF  LAG 

E6, 1741 

= 

132 

4 

1481 

1482 

1 

14  13 

SHIFTR1 

23,2426 

699 

11 

617 

727 

2 

185 

523 

. HI  Fill 

33,3030 

881 

3 

862 

883 

1 

12  94 

SH^LT  S 

7.  1,3661 

463 

1 

467 

1 

3 3 7 

SHORT  MP 

7307 

1 036 

11 

400 

1337 

1 

5 o-3 

SHORT  MR 2 

7313 

1035 

1 

885 

1 

227 

SHORT  T 

00,2017 

1047 

2 

1010 

l 

227 

T V 

00,2121 

1050 

1 

1010 

1 

448 

SHOW 

37,2457 

380 

3 

375 

377 

3 

992 

994 

SHOWS UM 

43,3100 

290 

1 

290 

SH0W1 

37,2461 

381 

1 

381 

1 

264 

SHOTDPL 

16,2163 

1M3 

1 

17-10 

1 

576 

. ID  LOOP 

43,3267 

1286 

1 

1287 

1 

231 

SIGN 

7655 

1046 

1 

1011 

25 

155 

1495 

SIGNAOS 

0163 

= 

1506 

12 

1498 

1505 

4 

108 

1287 

SIGNF  IX 

40,3031 

7-31 

2 

431 

1 

305 

SIGNLCHK 

25,2767 

551 

2 

551 

SIGNMPAC 

10,3712 

17-01 

14 

353 

1280 

2 

416 

430 

SIGNRET 

0125 

= 

96 

1 

305 

SIGNTEST 

40 , 2446 

403 

2 

402 

1 

430 

S I M 2 C A D R 

05,2454 

211 

1 

4 32 

S INB 

E c , 16 46 

= 

123 

1 

4 32 

SINBLANK 

40,2572 

405 

1 

405 

1 

30  5 

SINCOU 

07  36 

= 

100 

6 

100 

1264 

1 

417 

S INC DUX 

0742 

= 

100 

6 

478 

1266 

SINCDUY 

0736 

= 

100 

5 

478 

1266 

SINCDUZ 

0740 

= 

100 

7 

478 

1266 

5 

410 

432 

SINE 

00,3530 

1032 

2 

1013 

1260 

5 

416 

7 32 

SI  ME  SI.  DC 

23, 3762 

1264 

1 

1264 

JOKER 

, OR 

bRASE 

ANYWHERE 

MD 

MULT  I PLY 

DEFINED 

XX 
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SYMBOL  TABLE  LISTING,  INCLUDING  DEFINITION,  HEALTH,  PAGE 

OF 

OFF  , 

* OF 

REFS, 

P A 3 

E OF  FIPST 

REF,  PAGE 

OF  LAST  PFF. 

SYMbhi 

DEF 

H 

PEFF 

RENCES 

SYMBOL 

DEF 

II 

REFERENCES 

SYMBOL 

DEF 

H 

RFFERENCES 

S ING I MIC 

26,2375 

4 1 3 

L 

4 81 

SMALRATE 

17,3654 

1468 

1 

1468 

SPSIN 

5033 

1102 

5 

188 

1261 

S INI 

26,2002 

52 

2 

1 144 

SMODE 

1362 

= 

108 

7 

103 

1287 

SPSL0CP1 

20,3106 

1496 

1 

14°  5 

S IV  ooi 

00  1C 

= 1148 

I 

1144 

SMODECHK 

43,3301 

1287 

3 

1237 

1290 

SPSl OOP  2 

20,3123 

1494 

1 

1 4C  5 

S I NTH 

0022 

= 1 ?4 

2 1 

2QO 

12  56 

$ M P AC+ 

00,3405 

1080 

3 

1 079 

5PSRC  S 

21,3727 

1509 

2 

1438 

1452 

S INTHETA 

E7, 1731 

= 145 

3 

146 

586 

SNAP AGN 

05,3633 

993 

S PS  ST  AF  T 

21,3735 

1509 

1 

1509 

S INVEC1 

26,2377 

483 

I 

482 

SNAPEND 

05,3652 

994 

SPT 

5036 

1 102 

1 

11C2 

S INVEC2 

26,2401 

483 

1 

482. 

SNAP LOOP 

05,3622 

993 

1 

993 

SPVAC 

5116 

1 103 

3 

232 

1361 

S I N ZERO 

30,3665 

322 

1 

922 

SNGLCD 

22,2376 

357 

SPVACI N 

3112 

1 10? 

1 

1103 

S IN5DEG 

OF , 3 5C2 

852 

1 

852 

SNTH 

E5 ,1727 

= 

125 

15 

125 

1 199 

SQ 

10  77 

103 

2 

1102 

C T T • t-  C'  i -I  C' 

c r>  2 

? 

e;  oci 

a IP  PR  T T 

473  7 

74 

X 

14  53 

S QR  T 

, n . -j  ? n 7 

] D7A 

i n i 'a 

o i o b U L b 

dOl  t/UH- 

C. 

I ' i r D 1 1 

V L/f  Jcu  I 

1 U I D 

1 

1 1 J 

S I X 

6242 

= 1099 

36 

169 

1487 

SNUFFER 

0115 

= 

74 

2 

298 

SQRTABRT 

00,3402 

1079 

2 

1079 

S I XT  Y 

43,3236 

1286 

1 

1292 

SNUFFOUT 

43 ,3221 

298 

1 

262 

SQ7TNFG 

00,3373 

1079 

1 

1079 

SIZETAB 

01  ,2002 

239 

2 

1306 

130  3 

SNi 

00,3553 

1083 

1 

1C  32 

SQP TNM2 

00, 3475 

1081 

1 

1081 

S IZFTST 

42  ,3541 

435 

2 

4 34 

6 3 3 

SN  3594- 

35,2413 

631 

1 

6 36 

SQRTNOF M 

00,3502 

1091 

1 

1081 

skaukal 

1 3 56 

108 

1 

384 

SOB 

0042 

= 

1148 

<+ 

1 143 

1144 

SQRTSHF  T 

00,3221 

1076 

1 

1076 

SKFEP1 

1371 

= 1 

20 

I 08 

1293 

SOU': SB  IT 

6 75  1 

= 

75 

SQRTSUB 

00  ,33  43 

1079 

3 

1070 

1084 

SKEEP2 

1372 

= 1 08 

10 

1 C 8 

1291 

SrLNSW 

0127 

= 

75 

C 

1 193 

1199 

SR 

0021 

= 

92 

30 

405 

1484 

SKEEP3 

1373 

= 108 

14 

108 

1292 

SC  ME AO  S 

20,3444 

1500 

SPCHO  B 1 T 

4736 

= 

68 

1 

589 

S KEF  P A 

1 3 74 

= 103 

14 

1GB 

1293 

SOMFERRR 

37,3040 

388 

SRCHOPTN 

CO  37 

= 

68 

4 

2F7 

515 

SKEEP5 

1375 

= 1 08 

10 

108 

12?  2 

SOMEKE  Y 

07,2404 

255 

1 

256 

SRODV 

00,2024 

1 047 

1 

1070 

S KFEPF 

1 3 76 

= 108 

C 

1(  8 

1293 

SUMERR2 

37,3047 

388 

1 

378 

SR TEST 

00,3456 

1081 

1 

108  0 

SKEFP7 

13  77 

= 1 ’’8 

22 

215 

1 ?°2 

SOPT 

43,3705 

1293 

1 

1293 

SR 30. 1 

22,3551 

7 20 

2 

715 

717 

SKIPADD 

10,2750 

1363 

1 

1363 

S OPT I ON 

43,3670 

1292 

2 

1291 

SS 

E7 ,1732 

= 

143 

9 

111 

778 

SKIPDB1 

20 ,3372 

1499 

1 

1498 

SOP  T 1 3 NS 

43 , 3312 

12  87 

2 

1287 

SSP 

6620 

1021 

1 

1011 

SKIPDB2 

20,3456 

15  CO 

3 

14. -9 

1500 

SOP TI ONI 

43,3322 

1 2 a 7 

L 

1287 

STABL ? 

31,2557 

801 

1 

800 

SKIPPAXS 

16,2734 

29 

2 

1428 

1641 

SOP  TI0N2 

43,3323 

12  87 

ST  ACC  DOT 

20,2752 

1690 

2 

1490 

S K I P S I M 

05  ,2  5< 

21  L 

I 

211 

S0PTI0N3 

43,3324 

I 2 8 7 

STADR 

fi  3 54 

1 014 

1 

1013 

S K I P T p E P 

22 , 3626 

721 

1 

721 

c 0 P T 1 0 N4 

43,3325 

1287 

STALL 

07,3717 

1330 

2 

1329 

S K I P U 

E6 , 1535 

133 

9 

133 

1472 

SOPTION5 

43, 3326 

1287 

STAR 

E5 ,1730 

= 

123 

o 

123 

966 

SKIPV 

E6 , 1 5 36 

= 1 33 

3 

1412 

U72 

S0PTI0N6 

43,3327 

1287 

STAPAD 

E5  , l-7 06 

= 

123 

45 

123 

1256 

S LAP  1 

OS , 2447 

2 1 1 

SOP  T T fl N7 

4 ■s  . -x  7 a n 

1267 

c T A D A 1 r Ki 

H7  'A  A 

i nn 

? 

i nn 

6-  J.  I. 

■ ^ V7 

; J f JJO  L 

1 i-\  At- L ‘ ! 

U 1 jO 

iUU 

c. 

1 v.  u 

St  CTMU 

10,2000 

= 29 

1 

5 9 3 

SnPTONiO 

43,3331 

1287 

STARCODE 

07  3 5 

100 

4 

100 

9 56 

SLEEP  IE 

37,3034 

388 

2 

3 83 

387 

1 p - IP  |.Y 

37,3071 

389 

STAR  IN  D 

E5, 1757 

= 

124 

16 

124 

970 

St.  EFT  5 

4340 

461 

1 

444 

SOIJTHDR 

E5  , 1421 

= 

127 

3 

127 

376 

STAPM 

0040 

= 

124 

SLOAD 

6501 

10  19 

1 

1011 

SPARCS  IN 

30,3673 

923 

3 

807 

922 

STARS A V 1 

E5, 1760 

= 

124 

12 

124 

982 

S LOAD 2 

6C55 

1002 

5 

1019 

1401 

SPARE 

0007 

= 

193 

1 1 

194 

204 

ST  APS  AV 2 

E5, 1766 

= 

124 

8 

124 

981 

SLf  PFBIT 

4751 

= 68 

SPCOS 

.5032 

1102 

5 

188 

1261 

STARTAB 

14,2000 

= 

31 

1 

47 

SLOPFHI 

00,2314 

1055 

I 

1080  , 

SPECSTS 

37,2572 

3 84 

STAR  tdap 

16,2046 

14U 

S L OPE  10 

00 , 30C7 

106  9 

1 

10  31 

SPECTESl 

01,2651 

1 1C7 

1 

1111 

STAr  T DE  S 

25,2432 

540 

2 

539 

543 

S LOPESW 

0033 

= 68 

2 

1182 

1193 

SPEEDP  UN 

21 , 2374 

C01 

1 

900 

STARTED 

5007 

= 

223 

1 

220 

SMALL 

00,3133 

1073 

1 

1070 

SPIRAL 

1240 

= 

960 

4 

261 

959 

ST  ART  MN V 

26,2172 

474 

S MALL  EPS 

27,2366 

7 66 

1 

7b6 

SPLRET 

22,3541 

= 

718 

1 

37 

STARTP  IP 

37 ,216  1 

375 

1 

37  5 

SMALLTJU 

16,3707 

14  70 

1 

1470 

SPNDX 

1272 

105 

8 

365 

36  6 

STARTP47 

36,3447 

758 

1 

758 

S MAI  l 2 

00 , 3062 

10  70 

1 

1073 

CP  SCOD E 

4743 

= 

1309 

STARTP64 

31,2630 

802 

1 

7°8 

S MAI  PDIF 

16,2507 

1425 

2 

14  25 

S 9 SC  ON  T 

20,2712 

1490 

1 

1496 

STARTP66 

31 ,2477 

POO 

1 

3<  1 
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H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

S TART  F o7 

31,2551 

3C1 

1 

800 

STUREMIN 

1 2 , 2 1 5:  2 

1175 

1 

1175 

SURFS  TOR 

(7,2521 

253 

1 

255 

S TAFT  SB  1 

05,3116 

219 

1 

2 16 

Sr'JRETGO 

27,2666 

77  5 

2 

775 

SURFS  UP 

15,3151 

971 

1 

971 

STA'  TSB2 

05,3146 

219 

1 

216 

STOP  El 

6623 

1021 

1 

105  2 

SVCT3 

5240 

1121 

2 

1121 

STARTSIM 

05,2452 

211 

ST0RE1S 

26,3667 

SQ2 

1 

592 

SVCT3X 

5256 

1 121 

3 

1121 

ST ARTS TO 

64  34 

1017 

; LHAPO 

22 , 3600 

720 

SVDWN 1 

13,2114 

321 

3 

297 

1210 

STARTSUB 

05 ,31C7 

2 19 

4 

211 

218 

STORHPER 

22,3612 

721 

SVDWN2 

13,2070 

320 

2 

1156 

1212 

STARTS* 

0 5,2  ■ 1 

211 

ST  JUMP 

6 37  2 

1015 

1 

1014 

SVEXITAD 

05, 3474 

832 

1 

831 

SfAT  e 

0074 

95 

44 

65 

100.5 

STOP LP  71 

04,3647 

139  3 

2 

1393 

1394 

SVEXTADP 

27,3356 

866 

1 

865 

STA TEE  IT 

4747 

= 

71 

1 

13  3 5 

STORTORK 

16,3702 

1 +70 

I 

1471 

SW/ 

01,2516 

- 

1 094 

1 

1012 

STATEFLG 

0067 

= 

71 

9 

*7  5 

124  3 

STO  P V 

20, 361? 

150  2 

1 

1 502 

SWANDRTT 

4741 

= 

77 

3 

739 

898 

stateint 

13,2604 

1209 

3 

239 

1210 

STORY 

27,2431 

769 

1 

7 69 

SWANDI SP 

0155 

= 

77 

1 

863 

STATEUP 

13,2026 

2 36 

1 

1210 

STRAT 

14,2722 

939 

I 

939 

SWBIT 

0131 

= 

97 

5 

1092 

1094 

STATEXIT 

E4 , 1 5 16 

= 

1 15 

STRATGY 

14,2714 

939 

SW BRANCH 

6 715 

1024 

1 

10  94 

STATIC-  T1 

13  ,2613 

1209 

2 

240 

1209 

S T TGYPO 

C7, 3405 

1321 

2 

1319 

1324 

SWCALL 

4622 

998 

c. 

217 

10  90 

S TAT QUO 

04  ,2304 

231 

2 

2 31 

I ,;Y  1 2 

07 , 34  1 1 

1321 

4 

1322 

1 32  5 

SWCHCIk 

35 , 2625 

662 

1 

662 

STBL  eorb 

34,2000 

= 

34 

1 

7 24 

ST  < TTQLE 

* 701 

1383 

1 

13  83 

SWCHSET 

35 , 2603 

662 

I 

662 

STCL0K1 

36,2663 

743 

1 

742 

STRTP6  6A 

31 , 2505 

800 

1 

801 

SWINI  T 

05,3366 

223 

9 

213 

STCL0K2 

36,2664 

743 

2 

7 34 

788 

STSHOSUM 

43,3522 

1290 

2 

290 

291 

SWITCHES 

01,2516 

1092 

1 

1094 

STCL0K3 

36,2665 

7 43 

SU8DIVDE 

16,2263 

1422 

3 

1424 

SW RE  TURN 

4631 

998 

10 

244 

1333 

STCTR 

20 ,2544 

14  37 

1 

1483 

SUBEXIT 

E 7, 1470 

140 

25 

621 

726 

SWSKIP 

01,257? 

1094 

2 

1094 

S TCTr  I 

20,2547 

16  27 

1 

1489 

SUBLIST 

0337 

= 

994 

12 

991 

994 

SWSTOPE 

01,2553 

1093 

2 

1093 

STOPS  IG 

25 , 260  2 

546 

3 

511 

546 

SUB  TR 

00,3702 

1085 

1 

1086 

SWWORD 

013  0 

= 

97 

2 

1 0C2 

10°3 

SIDES  I G 1 

25,2616 

546 

SUFFCHEK 

12, 3450 

1196 

3 

1 195 

1 196 

SXA 

01,2364 

1037 

1 

1012 

STEEF  ? 

31,3432 

8 13 

2 

798 

812 

SUHALFA 

22,2677 

362 

1 

362 

SYI  'CT4 

06,2154 

160 

1 

160 

STFERBI T 

4741 

= 

69 

3 

813 

861 

SUHALF AP 

22,2717 

362 

1 

362 

SYSTEST 

43,3064 

2 90 

1 

263 

STEF  F I MG 

36 ,3666 

762 

2 

7 32 

SUP  0 AC  A L 

4 551 

999 

2 

440 

129  1 

SI 

0050 

= 

93 

30 

357 

1255 

STEER  SW 

00  42 

= 

69 

2 

771 

SUPDXC HZ 

3165 

1116 

6 

283 

1116 

SI  OBI TS 

p.C  12 

= 

1286 

2 

1288 

STERN 

31  , ?4  70 

BOO 

SUPERAOR 

16,2665 

1428 

1 

1428 

S138ITS 

43,3240 

1286 

1 

1292 

STIKLOAD 

01,2206 

203 

1 

293 

SURERBNK 

0007 

= 

93 

27 

215 

1381 

S2 

0051 

= 

93 

45 

322 

1255 

STIKSENS 

E6 ,14  44 

130 

e 

2 12 

1447 

SUPERJOB 

16 , 2666 

142  8 

2 

1428 

S24.9SEC 

36,3144 

749 

1 

736 

3TIKSTRT 

0 5 ,3060 

2 ia 

l 

212 

SUPERSW 

4727 

1:001 

3 

13  64 

1383 

S30. 1 

34,2000 

616 

1 

614 

S T I L BAOH 

E7, 1674 

= 

IPO 

t 

1 50 

895 

SUPERO 11 

4773 

1096 

3 

857 

1311 

S32.1F1 

(132 

= 

75 

4 

632 

641 

S TI  LBADV 

E 7 , 1675 

= 

150 

4 

1 50 

P95 

SU  PERI  DO 

4/45 

= 

10  96 

S 3 2 . 1 F 2 

0133 

= 

75 

t 

632 

641 

STTI  1 RCS 

17,2661 

14  52 

3 

1446 

1452 

CUPER101 

4775 

1 096 

1 

1099 

S 32 .1 E3A 

0134 

= 

75 

8 
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641 

S TMIN- 

20,3527 

1501 

2 

1505 

SUPER1  10 

4776 

1096 

3 

598 

1099 

S32. 1 F3B 

0135 

= 

75 

8 

633 

641 

STMP 
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= 

9 87 

7 

986 

SUPRCOM 

43,3237 

1286 

l 

1292 

S 32 /33.X 

34,3120 

6 46 

2 

630 

645 

STCPCLGK 

36,3013 

746 

3 

74  5 

SU:  FAGAN 

07,2645 

261 

1 

261 

S32/3 3. 1 

34,3100 

645 

2 

623 

628 

STOP;  ATE 

20,2 165 

14  08 

o 

2 38 

16  09 

SUP FDI SP 

15,3161 

972 

2 

071 

974 

S32BI Tl 

47  35 
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75 

STOP ANG 

27,2046 

4 81 

1 

451 

SU  FEND 

07, 264  1 

261 

1 

261 

S32BIT2 

4736 

= 

75 

STOP  BROS 

i 2 , 2 1 4C 

1175 

1 

1 178 

SURF EBIT 

4744 

= 

79 

B 

213 

860 

S32BIT3A 

4737 

= 

7 6 

STORDELT 

35  ,3235 

6 7 0 

2 

669 

670 

SUREFl AG 

0177 
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79 

16 

236 

1212 

S32BI T3R 

47  40 
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75 

S TO  F 

6422 

1016 

fc 

1015 

SURF  JOB 

07,2604 

260 

1 

258 

S33/34 . 1 

35,2764 

667 

2 

627 

662 

STORE,  1 

6414 

1016 

1 

1015 

SURFLINE 

13, 3101 

971 

2 

970 

981 

S34/35.  1 

35,3274 

672 

4 

666 

729 

S TORE,  2 

6417 

1016 

1 

1015 

SU'FRE J 

07,2507 

257 

I 

257 

S3 4/35. 2 

35,3306 

673 

2 

663 

666 

STOP EM AX 

12,2077 

1175 

3 

1174 

1 1 75 

SUT FSTAR 

1 5, 200C 

250 

1 

253 

S34/35.3 

35,3377 

675 

1 

679 
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S 34/3  5.4  ..35,3442 
S 34/ 35. 5 35,3522 
S 3435.23  35,3325 
S 343  c . 2 5 3C  ,3  327 
S4C.I  27,2246 
S40.1B  27,2336 

S4Q. 13  27,2540 

S40.13D  27,2626 

S4P.130V  27,2653 
S 40 . 1 31  27,26  10 


S40. 1 32 
S 40.  1 32: 
S 40. 133 
S 40 . 1 34 
S 40. 136 
S 40 . 1 3 6. 
S40. 137 
S 40 . 138 
S 40 . 2 , 3 
S40.P 
S 40.  « 

S 4 1 . 1 
S 50 
S 5 2 . ? 

S 52.2. 1 
S 62 . 2 A 
S 52 .3 
S8BI TS 


27,2616 
27,2620 
27,2647 
27,2650 
27,2006 
2 7,2010 
27,2641 
27,2661 
27 ,2413 
27,2447 
27,2707 
27,3267 
14,2506 
14,3617 
14,3637 
14,3630 
14,3650 


6 7 fe 
S78 
673 
673 
765 

7 66 

773 

774 

775 
774 
774 

774 

775 
775 

38 

38 

775 
7 75 
769 
771 

776 

7R4 

935 
953 
9 53 
9 53 
9 54 


6 79 
6 63 

6 73 
727 

7 54 
765 
7.40 
773 
776 
7 74 
7 74 
775 


2 7 74 

1 77'- 

1 776 


775 
7 54 
7 6 1 
-’61 
7 46 


2 930 


666 


756 

737 

774 


775 

775 

756 

759 

947 


953 

430 


T 

TLX) 

T -f  TH E R 
T/2SEC 
TABL  NTH 
TABLTTF 
T ABLTTFL 
TAD 

T AG SUB 
T A I IGN 
TANG 
TANGA'S 
T ARGETDB 
T AT  GET  V 
TARGTDEX 
TARGTIME 


4357 

= 1286 

1 

129  3 

0 0 36 
27,3735 

= 1202 
128? 

13 

2 

494 

1279 

E3 , 1 570 

= 111 

1 

194 

15,2770 

9 6 6 

1 

96  5 

06 ,2037 

1 57 

1 

1 57 

E7 ,1562 

= 149 

7 

149 

31 ,3746 

827 

1 

807 

7071 

1030 

1 

1011 

01  ,26  41 

1089 

4. 

10  87 

E5 ,1774 

= 124 

9 

124 

1107 

103 

34 

103 

E7 ,1752 

= 146 

9 

146 

E6 ,1476 

= 1 30 

4 

14  35 

12,3541 

1197 

i 

i r:  7 

31  ,2452 

799 

2 

810 

£4 ,1706 

= 117 

2 

726 

1196 

1280 


827 


108  8 
9 76 
603 
606 
1448 

8 2 5 
729 


TASKOVER 

TAT 

TAU. 

T AURnD 

TAUVERT 

TBASE1 

T8ASE2 

TBASF3 

T8ASE4 

TBASE5 

TBASE6 

TBUILDFX 

TBUP 

TC 

TC ALAR M2 
t C C S M 
TCDANZ  IG 
TC  DH 
TCFIND VC 
TCGETCAD 
TCGF  APPR 
TCGFBR AK 
TC  G I AP  PR 
TCGIBR  AK 
TC  L EM 
TCNUVAC 
TCP 
TCP  IN 
TCPINAD 
TC  0 

TCQBNK 00 
TCQCDUW 
TC  QR 
T C SI 
TCSLEEP 
TCSUBTR 
TCTSKQVR 
TC  WA  I T 
T DEC 
T DECAY 
TDECAYFX 
TOECl 
TDEC2 
TO  EL  TA  V 
7 DES IR  ED 


5261 
0014 
£4 ,1473 
F5, 1540 
E5 ,1516 
1053 
1055 
1057 
106  1 
1063 
1065 
4767 
E 4 , 1670 
E3, 1450 
4 3 , 3266 
E 3 ,1622 
27,3753 
E3 ,1776 
4354 
00,3761 
E5 ,1470 

§§,1434 

E5 , 1471 
E5 , 1435 
£3,1674 

4351 
£6 , 1445 
43,3202 
43,3205 

6742 
00,3455 
30,3475 
E6,l-:-47 
E7 ,1633 
00,3772 
00,3734 
43  53 

4352 
1115 

E 7, 1740 
4770 
004  0 
E7, 1573 
£3,1520 
E5  , 1670 


1129 
= 1247 
= 114 

= 122 
= 121 
102 
102 
10? 
102 
102 
102 
1096 
= 119 

= no 
1 286 
1 1 1 

= 1282 
1 12 
46  1 

1377 
= 121 
= 121 
= 121 
= 121 

111 
46  1 
130 
298 
298 
= 1294 
1080 
9 18 
13C 
14  2 

1378 
1086 

46 1 
46  1 
106 
= 143 

1096 
= 1247 
= 141 

= 1 1 0 
= 125 
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81 

165 

1378 

TDI  SP 

15,3350 

975 

1 

975 

16 

207 

1224 

TDISPSE7 

31 ,3704 

825 

2 

804 

808 

13 

114 

1233 

TOPOS 

E 5 , 1756 

= 

126 

1 

126 

2 

122 

813 

TDVFL 

E 5 , 3 764 

= 

126 

1 

126 

2 

121 

815 

TEMK 

1076 

103 

10 

1102 

4 

7 36 

1304 

TEMP 

E5 , 1441 

= 

127 

6 

474 

122  0 

TEMPADD 

E5, 1440 

= 

127 

TEMPBB 

0064 

= 

1300 

1 

1296 

4 

232 

744 

T EMPBBCN 

0-0  73 

= 

1300 

6 

1299 

1302 

1 

859 

TEMPFL  SH 

03  76, 

100 

3 

2 28 

1364 

1 

744 

TEMPG 

00  61 

= 

1300 

8 

1299 

1302 

1 

1510 

TEMPG2 

0071 

= 

1 300 

3 

1298 

1301 

14- 

119 

84  9 

TEMPNM 

0063 

= 

1 300 

3 

1299 

130? 

10 

1 10 

1240 

TEMPO UM 

E6, 1742 

■= 

131 

2 

16,40 

TEMPO K 

06,2525 

171 

2 

171 

TEMPOR? 

0160 

= 

1 372 

1C 

1356 

1366 

5 

565 

1277 

TEMPP 

0062 

= 

1 300 

6 

1299 

1302 

11 

194 

644 

TEMPPHS 

0154 

= 

1 308 

q 

130  3 

1308 

1 

448 

TEMPP  R 

0070 

= 

1300 

2 

1299 

1302 

1 

me 

TEMPP2 

C 07  2 

= 

1 300 

c 

12CS 

1301 

3 

121 

825 

TEN  RR  6 0 

1 164 
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1430 

TXO 

E7, 1653 

= 

152 

4 

L 52 

851 

TRAKFKDV 

E7, 17C3 

= . 150 

2 

150 

900 

TSNEXTS 

17,2174 

1443 

TX789 

E7 , 1471 

= 

145 

3 

145 

1157 

TPAKL A T V 

E7, 17C2 

= 190 

5 

l^O 

906 

TSNUMBRT 

17,2166 

144  3 

1 

1446 

TYPEP 

16,3563 

144  0 

1 

1460 

TRANS Ml 

E4 , 1400 

= 117 

2 

1 17 

386 

TSSL 

00,2101 

1049 

3 

1047 

1 C56 

TYPEPOLY 

17,3231 

1458 

2 

1457 

1658 
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T 1TQT  2 

E4  » 16 52 

1 lo 

4 6 

117 

641 

UNFVLIM 

30,3765 

925 

1 

919 

UPEND7G 

04,3723 

1395 

1 

1 3C  2 

T2A 

30,30 22 

= 

355 

1 

8'.  7 

UNFVX/2 

66, 1667 

= 

136 

UP  END 71 

04, 3632 

1393 

1 

1 3°? 

T2TEST 

30,2451 

846 

2 

' 346 

3 53 

UNFVY/2 

F 5, 1671 

= 

136 

3 

5 12 

913 

UPEND72 

04,3664 

1394 

1 

1392 

T 2TDT7 

E4,  M54 

1 16 

: : '■  5 

3 16 

641 

UNF  VZ/2 

66, 1673 

= 

1 36 

3 

012 

913 

UDEND  73 

04,3536 

139? 

T 3 

30,3024 

855 

1 

847 

UNIT 

00,3023 

1070 

3 

601 

1402 

UPENT2 

10,3544 

1374 

4 

1363 

1368 

T 3RPTBB 

4057 

1 54 

1 

153 

UNI T/R  / 

E7 ,1536 

= 

147 

39 

147 

903 

UPEPROP 

43,3740 

1388 

1 

1388 

T3RUPT 

01  ,3407 

1126 

2 

153 

154 

UNI  TOY 

00,3151 

1074 

3 

1072 

UPERRCUT 

04,3760 

1396 

4 

1388 

1395 

T 3R UPT 2 

01 ,341- 

1128 

1 

1 1 ?Q 

UNITGQBL 

E7 ,1520 

= 

147 

2 

780 

88  0 

UP  EL AG 

c594 

1375 

73 

266 

1392 

T 4 JUMP 

06 ,2116 

159 

2 

158 

UN  I TNORM 

04,3  154 

USB 

1 

1 1 88 

UPF  NO  VAC 

04 ,3544 

1 392 

1 

13®1 

T4RPTBB 

4064 

1 54 

1 

1 c3 

UN  ITX 

23,2517 

1 ICO 

13 

37 

1 100 

UD  JOB 

04,3551 

1392 

1 

1392 

T4RUP 

06,2000 

= 

29 

2 

155 

156 

UNITY 

23, 2 c 1 5 

1 100 

5 

37 

896 

UPLI  M 

12,3277 

1 194 

1 

1193 

T4RUPT 

06,2000 

15  5 

2 

1 63 

154 

UNITZ 

23 ,2513 

1100 

10 

37 

880 

UPLOADNV 

04,3516 

1391 

2 

1369 

1390 

T5ADI 

1 2 74 

105 

5 

153 

1491 

UNKNOWN 

0007 

= 

193 

UPLOCBIT 

4750 

= 

78 

3 

1339 

T 5TE  -t 

0061 

= 

137 

1 

14  19 

UNL  H 

0024 

= 

150 

UPLOCKFL 

0164 

= 

78 

T'  ADP 

4055 

154 

1 

153 

UNLRB/2 

0024 

= 

1 5 0 

UPMNSVCO 

04,3242 

1226 

1 

1225 

Y 6FUP  THA 

F s . I 6. 7 n 

130 

1 1 

1404 

1457 

1 IP,.  D 5*  £ 

, 1 - 1 . 

_ 

1 18 

3 

7 rs  ^ 

1 1 p j e G 

75  61 

1043 

1 

1043 

T ^ J 

17,2033 

14  04 

UNRM 

E4 , 1660 

= 

117 

7 

6 68 

677 

UPOK 

04,3350 

1339 

T 6J0BCHK 

17,2027 

1404 

2 

1 4 C4 

1405 

UNSETR 1 

10,3360 

1369 

1 

1368 

UPOL  DMOD 

1171 

= 

104 

3 

104 

1394 

T6NEXT 

E6 , 1 46o 

130 

12 

2 19 

1457 

UN  SUSP EN 

40,3477 

450 

1 

450 

U POUT 

04,3711 

= 

1 394 

7 

1389 

1396 

UNVEC 

E7 , 1543 

- 

l4l 

5 

047 

643 

IJ POUT  4 

04,3712 

= 

1391 

3 

139C 

J=SGAX IS 

27,2134 

432 

1 

6 82 

UNWC/2 

F 6, 1661 

= 

136 

10 

136 

cl? 

UP  PART  2 

04,3401 

= 

1389 

1 

1389 

J A X D I ST 

0141 

= 

1505 

2 

150? 

1503 

UN WC LOOP 

31,3410 

8 13 

1 

813 

UPP AR  T3 

04,3562 

= 

1392 

UAXI  S 

20  ,3316 

14°  8 

UN  WC  TE  ST 

30 ,3523 

919 

2 

913 

UPPOS 

7551 

1043 

1 

1043 

UCSM 

E7, 1636 

= 

148 

3 

148 

494 

UNX/2 

0000 

= 

136 

7 

912 

919 

UPPSV 

24,2316 

499 

2 

498 

510 

UDBI 

0135 

= 

l 

2 

1502 

1503 

UN  Y/  2 

0006 

= 

136 

1 

913 

UPPSV1 

24,2336 

500 

1 

500 

UDB2 

0 1.36 

= 

1505 

UNZ/2 

0014 

= 

136 

9 

912 

913 

UPPSV3 

24,2370 

500 

1 

500 

UDB3 

0 1 40 

= 

1^05 

UNZ2 

06,2313 

It  5 

1 

166 

UPPSV4 

24,2351 

500 

1 

*01 

U DB*+ 

0 1 37 

= 

1 5 Oc 

2 

1 502 

1503 

UPACTDFF 

04,3765 

13Q6 

2 

13^5 

1396 

UPPSV 5 

24,2333 

500 

1 

500 

UERROP 

E6 , 1751 

= 

131 

3 

1 31 

1452 

UPBUFF 

1174 

= 

104 

29 

204 

1395 

UPP ATE 

32,3647 

834 

1 

834 

UHYP 

E7 , 1717 

= 

151 

7 

151 

902 

UPCOUNT 

1 173 

= 

104 

5 

1 04 

1390 

UPRPTBB 

4060 

= 

154 

1 

153 

UHZP 

E7 , 1725 

= 

1 51 

6 

120 

903 

updatb it 

4745 

= 

67 

1 

5C6 

UPRPT1 

04,3331 

1 339 

UJETC 

E b , 1 7 70 

= 

1 37 

4 

14  12 

1509 

UPDATCHK 

33,3155 

8 84 

2 

874 

875 

UPmUPT 

04,3317 

1339 

1 

153 

ULC 

E7 , 1 723 

= 

145 

8 

145 

585 

UPDATE VG 

36,3611 

76.  1 

2 

7 57 

762 

UP  STORE 

04 ,35  20 

= 

1391 

1 

1390 

ULL AGE& 

4746 

= 

88 

3 

743 

1443 

UPDATE2 

04,2000 

= 

28 

2 

1225 

1389 

UPSVFl AG 

E 3, 1501 

= 

110 

6 

1 in 

1226 

UL  LAGFLG 

0 314 

= 

88 

2 

224 

743 

UPDATF  LG 

0027 

= 

67 

15 

237 

727 

UPTEMP 

1167 

104 

12 

104 

1394 

ULLAGOFF 

36,2562 

740 

i 

241 

UPDATI ME 

42,2016 

275 

1 

275 

UPTEST 

04,3371 

1 339 

2 

1339 

ULL GROT 

36,232s 

736 

6 

1 31 

736 

UP  D A IN  N 

41,2320 

411 

3 

439 

454 

UPTHROT 

32,3667 

834 

JLLGTASK 

36 ,2  346. 

737 

3 

2 39 

746 

UPDATDFF 

43,306 1 

289 

1 

263 

UPTHROtl 

32 ,3701 

8 34 

1 

835 

ULOS 

E 4 , 1710 

= 

117 

6 

667 

67  5 

UPDATRET 

0117 

= 

96 

3 

411 

4 1 2 

UPTMFAST 

06,2676 

17° 

1 

181 

JMPAC+ 

00,3170 

10  74 

2 

IP  74 

UP  6 A TV B 

41 , 2340 

411 

10 

404 

454 

UPVFo  b 

1172 

= 

104 

5 

104 

1392 

JMPAC- 

00,3162 

1074 

2 

1074 

UPDATI 

41,2345 

412 

2 

411 

443 

UPVERBS V 

1166 

104 

2 

1388 

1389 

UN 

E5 ,1673 

= 

125 

9 

125 

1199 

UPDNLI ST 

05,2407 

= 

193 

UP  V ER IFY 

04,3463 

1390 

3 

13c0 

1391 

UNAJUMP 

00,2000 

1013 

1 

1010 

UPDTCALL 

22,3206 

3 6 5 

1 

367 

UP VP  FYNV 

04, 3517 

1391 

1 

1390 

UNFC/2 

L 6, 16 33 

= 

1 36 

19 

136 

-10 

UPDTMEND 

42,2032 

275 

UPWAKF 

04 ,35  54 

139? 

UNFV/2 

E 6, 1667 

= 

1 36 

5 

136 

G1Q 

UP OT PH  AS 

4756 

= 

1391 

1 

1392 

UP1 

E 4 , 1660 

116 

11 

117 

648 
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AA  9 

\J  RTP0  to 

AA  _ L.  a n 

A ,AQ 

r> 

409 

455 

U P2  1 

4 3 6 2 

= 1 3 - 1 

1 

1 :>90 

VAl  i I 

UP70 

4755 

= 13  89 

I 

1388 

V ACT  2 

E7 , 15  13 

141 

3 

6 36 

648 

VBTSTLTS 

41,3613 

467 

i 

409 

UP?L 

4753 

= 13  89 

1 

13  88 

VACT3 

E 7, 1543 

141 

13 

141 

69  7 

VBUF 

0122 

96 

71 

56 

1505 

U P 7 2 
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= 13  99 

1 

13«P 
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E7.1565 

141 

6 
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VBZERO 
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1 
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UP73 
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= 1389 

1 

1388 

V ACX 

E4 , 1537 

= 
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114 
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26,2117 
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1 

339 
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= 4 89 

1 

488 
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E4 , 1541 
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114 

1 

114 
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15,3651 

982 

1 

976 

1447 

1449 

VACZ 

1 1 6-F 

V805N09 

5006 

_ 
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3 

9*.  1 

977 

U r • Ahull  LA  t I > f. 

I 3\) 

URP 

0006 

= 489 

? 

488 

VAC  1 

0401 

100 

VB06N  18 

26,2120 

340 

i 

340 

JRPV 

0016 

= 1247 

11 

1234 

1248 
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05,3353 

222 

1 

221 
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38  L 

i 

381 
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E5 , l 646 
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6 

125 

1176 

VACl'JSE 

0400 
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4 

221 

1106 
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5 93 

i 
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= 125 
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V B6N5 

14,3326 
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i 
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41 ,2 105 

407 

i 

407 

VAC2USE 

0454 
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3 

221 

1 106 
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43,2700 
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i 
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U SECOS 

30 ,3654 

1/AA7 

'I  C.&  :: 

J 

7 

U SECTS 

33,2336 

1 62 

VAC3USE 

0530 

ICO 

3 

221 

1106 

VB67A 

30, 2000 

= 

34 

i 
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33,2375 

963 

4 
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VAC4 

0605 

100 

VB97DEX 

4765 

= 

745 

i 

742 

U SFMAXDT  13,333*': 

1218 

1 

1219 

VAC 4 US  E 

0604 

100 

3 

221 

1 106 

VB99DEX 

4760 

- 

745 

i 

737 

USEPIOS 

13,3001 

12  12 

1 

1212 

VAC  5 

0661 

100 

1 

1308 

VC  V 

E3, 1542 

= 

1 10 

21 

110 

1240 

USEQRFLG  0304 

= 87 

VAC5US E 

0660 

100 

3 

221 

1106 
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E 3 , 1614 
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1 
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A 

7 A.n 

1 O.C  1 
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l 
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2 
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578 

USE  R PRIG  0163 

= 1373 

3 

13  59 
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VAL  M I S 

37,2263 

377 

1 

388 

VDR 

17,2504 

1448 

i 

1448 

USEVF 

33,3466 
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I 

888 

VALTCHK 
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889 

3 

886 
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VDEF 

00,323? 

1077 

i 

1013 

USPRCADP 

4 713 

10  00 

7 

601 

1260 

VAl. 67 

05,2043 

52 

3 

c 85 

986 

VDG 

E5 ,1410 

= 

826 

i 

809 

UT 

E7, 1672 

143 

10 

143 

769 

VAPFG 

E5 , 1444 

= 

121 

1 

121 

VDGVERT 

E7 ,1644 

= 

150 

3 

800 

818 

UTIME 

21 ,3705 

1609 

I 

15  08 

VAPFG* 

E5 ,1460 

= 

121 

1 

121 

VDG2TTF 

E 5 , 1424 

= 

826 

1 

807 

UV 

0154 

= 1506 

■ 7 

1498 

1505 

VAPKEC 

E7 ,1505 

= 

141 

2 

667 

670 

VD1 

4360 

461 

15 

222 

1099 

UXVECT 

E 7 ,1717 

= 144 

7 

1 4 4 

592 

VARADAR 

25,2047 

49  1 

1 

490 

VE 

£4,1664 

= 

11° 

6 

1 19 

846 

UXVECT  PR 

OC  14 

= 5 93 

3 

590 

VARALARM 

5744 

13  84 

4 

I8C 

1332 

V E A r T H 

E5 , 1706 

= 

123 

6 

123 

562 

UYVECT 

E7 , 1 725 

= 144 

6 

144. 

592 

VAR  DELAY 

5224 

1119 

11 

164 

1312 

VECAGP  EF 

00,3010 

1069 

4 

1066 

140  2 

U YVEC TPR 

0022 

= 5 93 

2 

590 

VAR  I ANCE 

E 5 , 1 706 

= 

126 

12 

126 

1150 

VECANG1 

26,2403 

483 

i 

482 

UZ 

0024 

= 1247 

2 

12  34 

1235 

VATT 

0006 

= 

1247 

25 

565 

1224 

VECANG2 

26,2405 

484 

i 

482 

U 1 POS 

? ? . ? ? An 

1 

^ *\L. 

VATT1 

nn  9 a 

1 9A7 

1 A 

AHA 

v/pn  PAD 

4.Q  1 

1 

481 

U 2 

fcr  , 1711 

= 125 

5 

125 

1 1 f-'  J 

VB  AD 

33,3665 

893 

i 

892 

VECOF AMG 

22,2723 

362 

2 

36  2 

U2P0S 

22,2224 

3 54 

1 

354 

vbchark 

43,2171 

267 

i 

262 

VFCPNT1 

27,2032 

431 

1 

518 

U 3 POS 

22,2274 

3 55 

1 

355 

V R F AND  IR 

4 1 , 2146 

408 

i 

'•0  8 

VFC  PN  T2 

27,2035 

481 

1 

481 

VBI  AS 

E 5 , 1630 

= 

122 

3 

600 

813 

VECPOIMT 

27 ,2040 

481 

3 

340 

474 

V 

E 7 , 1526 

= 147 

21 

147 

q02 

VBPROC 

40,3442 

44  8 

5 

4 09 

456 

VECPT 

27 ,2000 

= 

33 

1 

480 

V (CSM) 

E 3 ,1725 

= 1 20 

7 

5 98 

832 

VBRELDSP 

40,3461 

450 

1 

398 

VECQTFMP 

E 6 , 1725 

= 

136 

4 

481 

433 

V-OTHF ■ 

E 3 , 17  25 

1 I 1 

6 

I 20 

321 

VBRESEQ 

40,3457 

449 

1 

409 

VECSGNAG 

10,3772 

1402 

2 

209 

V/SC 

76  24 

1045 

i 

U 1 ! 

VRO  FG 

F 5 , 1410 

= 

121 

2 

121 

82  6 

VECSHIFT 

23,2416 

698 

3 

634 

647 

V/SCDV 

00,2760 

106  8 

3 

i 

VBPFG* 

E 5 , 1424 

= 

121 

2 

121 

826 

VECT  AB 

F4, 1531 

_ 

1 14 

10 

114 

1245 

V/SC1 

7632 

1045 

1 

1045 

VBP.QEXEC 

41 , 3466 

447 

1 

409 

VECTABND 

E4  , 1874 

= 

1 14 

V/SC2 

00,2654 

1066 

1 

1045 

VBRQWA  IT 

41,3512 

44  8 

1 

409 

VEC  1 

E5 , 1722 

= 

124 

7 

970 

982 

V ACDSP 

10 , 2657 

1361 

1 

1361 

VBSP1LD 

41 , 3006 

427 

2 

425 

426 

VEC2 

E5  , 17  30 

= 

124 

6 

970 

582 

V ACFGIJND 

0 1,26  20 

11  f 6 

5 

1106 

V8SP2LD 

41,3007 

427 

2 

4 25 

426 

VEHUP BIT 

4 744 

= 

67 

VACS  TOR 

07,?5?6 

2 68 

1 

255 

V8SP3LD 

41,3010 

427 

1 

425 

VEHUPFLG 

00  26 

67 

13 

2«o 
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V El  CHK 

25,3231 

556 

1 

55o 

VINJNCM 

23,2455 

842 

1 

839 

VPD 

0000 

= 

940 

V EL  CON  V 

21 ,2003 

4 2 

2 

903 

904 

VINTFBIT 

4751 

= 

71 

VPDVL 

6573 

1021 

VELQABIT 

4745 

= 

P 4 

? 

836 

892 

VINTFL AG 

0071 

= 

71 

27 

2 36 

1242 

VPPREC 

E 7 , 1527 

= 

141 

2 

667 

670 

V EL  DAT  A 

025c 

= 

84 

VI  PR  THE 

F4, 1736 

118 

0 

653 

779 

VPr;  nJ 

74  25 

1041 

1 

101  1 

VELSC 

37,3101 

3 89 

1 

385 

V JETCTR 

Eft , 1771 

= 

137 

3 

137 

1428 

VRATEDIF 

F6 , 1427 

= 

130 

3 

1448 

V ELUPDAT 

33,3315 

8 86 

VLAUN 

E5 ,1510 

= 

128 

5 

386 

387 

VRECT 

E3 , 1510 

= 

1 10 

11 

110 

1240 

V Er  B 

40,2354 

40? 

1 

373 

VLAUNS 

E 5, 1462 

= 

128 

VRECTCSM 

E 3 , 1 5 6 2 

1 10 

2 

841 

983 

V f BF  AN 

41,2133 

4 08 

7 

407 

410 

VL IGHT 

25 , 3664 

6 1 3 

1 

6 1 2 

VRECTLFM 

E 3, 1634 

111 

VET  B'--  ASK 

4 1 44 

= 

137? 

I 

13  57 

VL  ITE 

4751 

= 

6 1 3 

2 

6 13 

82  9 

V7IGHT2 

00,2242 

1054 

1 

inc4 

V EPBNCIJN 

E7 ,1615 

141 

6 

6 30 

730 

VL.OAU 

6505 

1019 

I 

1011 

VROTATFX 

7420 

1040 

3 

10r0 

1072 

VERBREG 

1001 

101 

20 

222 

458 

VLOAD* 

6107 

= 

1099 

1 

1018 

VROUND 

7140 

1032 

6 

10*0 

104  1 

VET  Br  AVE 

1041 

1 02 

3 

407 

446 

VL  0 ADC  OD 

473  5 

= 

1099 

1 

1018 

VRTSTAPT 

31 ,2536 

800 

I 

801 

verbtab 

41  ,2151 

408 

1 

408 

VMAX 

E 4 , 1405 

113 

1 

586 

VSCALE 

32 ,2201 

209 

1 

208 

VFRS37 

04 , 2 

= 

23 

1 

2 26 

vmfas 

E7, 1652 

= 

149 

4 

149 

892 

VSELFCT 

E7 ,1651 

= 

149 

1 1 

149 

896 

VERB 69 

43,20 37 

26  2 

1 

2 62 

VMEASCHK 

33,3310 

986 

5 

884 

890 

V SELECT* 

(131 

= 

122 

3 

888 

VERBor 

43,3227 

203 

1 

267 

VM  I N 

E5 , 1670 

= 

122 

3 

122 

834 

VSHRRND 

00,2073 

1048 

4 

1050 

108  6 

VEF  B 6 

43,3206 

298 

1 

263 

VMODE 

6521 

1019 

2 

1041 

107  7 

VSHR2 

00,2060 

1048 

1 

1048 

VI  If 

4751 

= 

78 

1 

1391 

VMONI TOR 

21,2620 

904 

1 

907 

VSO 

00 , 3245 

1077 

1 

1013 

VFRI FLAG 

0165 

= 

78 

VMGQN 

E 5 , 1722 

= 

123 

8 

123 

9 86 

VSQSUB 

00,3317 

1078 

3 

1070 

1077 

V Er'  I F Y MK 

C 7, 2444 

2 55 

I 

2 55 

VN 

1226 

1 05 

10 

195 

1221 

VSSL 

00,2145 

1051 

3 

10  50 

1056 

VEF  Tl 

E6 , 17  52 

= 

1 31 

VNCON 

43,3130 

2°  l 

I 

290 

VSSR 

00  ,2127 

1050 

1 

1054 

VERTDISP 

31 ,3527 

8 15 

1 

7qc 

VND SPOON 

40,3316 

443 

1 

443 

VST  ILBAD 

33,3666 

893 

1 

89  2 

VERTO^FT 

37 ,2231 

376 

VNDSPLY 

34 , 3621 

730 

4 

724 

727 

V S T OP.  E 

64  43 

1017 

VERTGUID 

31  ,3531 

815 

3 

798 

801 

VNLDRCDU 

43,2260 

269 

I 

2 69 

VSU 

6747 

1026 

1 

1011 

VF:  TSKIP 

37  ,2534 

383 

1 

3 83 

VNLODCOU 

43,2225 

268 

2 

268 

281 

VSUBC 

E3, 1760 

= 

112 

3 

49  4 

V EX 

E7, 1742 

14  3 

3 

7 54 

772 

VNLUDOT 

6 2 , 2034 

275 

I 

275 

VSUN 

E5, 1714 

= 

123 

7 

123 

9 86 

V FA  1 1 

33,3575 

3 90 

2 

887 

VNLODGYR 

43,2357 

273 

1 

273 

VTARGET 

E5, 1702 

= 

125 

L 

125 

1197 

V Ft  AG 

0062 

= 

70 

4 

937 

940 

VNPLANV 

15,2562 

96  2 

1 

961 

VT  AP  GT  AG 

F5 , 1701 

= 

125 

5 

125 

1197 

VFLAGBIT 

47  42 

= 

70 

VNPOOH 

35,3712 

683 

16 

614 

679 

VTIG 

E7 , 1647 

= 

142 

8 

142 

769 

VFLSHRIT 

4752 

= 

84 

1 

829 

VN0611 

35,2060 

621 

1 

622 

VTPRIME 

E7 , 1565 

= 

142 

5 

66  3 

727 

VFLSHFLG 

02  62 

= 

84 

2 

837 

890 

VN  064 1 

37,2473 

381 

1 

373 

VUPDAT 

33,3435 

888 

1 

887 

VG 

E7, 1706 

143 

6 

1 4 3 

771 

V N 0 6 5 5 

35,2113 

622 

1 

621 

VUPDATED 

33 ,3613 

8 89 

VGA!'  * 

27 ,2455 

771 

1 

780 

VN  1 

E7 ,1552 

= 

147 

7 

147 

1224 

VV/SC 

7627 

1 045 

VGBODY 

F7 ,1501 

= 

147 

10 

1 47 

846 

VM  1 645 

35,3606 

680 

7 

623 

727 

WARM  IN 

E3, 1775 

112 

1 

578 

V GDI S P 

E7 ,1663 

= 

142 

5 

314 

771 

VN2 

E7 ,1656 

= 

149 

4 

150 

V V E C 

E 5, 1743 

= 

125 

16 

125 

1200 

V GPP EV 

E7 , 17  00 

= 

143 

8 

240 

776 

VOK 

26,2662 

578 

1 

578 

VVECT 

E7 , 1706 

= 

151 

16 

151 

902 

VGTIG 

E 7 , 1 7 00 

= 

143 

0 

143 

773 

V 0 K 1 

26,2723 

579 

1 

579 

vvxsc 

7404 

1040 

VGU 

E7 , 16 26 

= 

149 

9 

1'  9 

815 

V0K2 

26,2725 

579 

1 

579 

VXBEAMKB 

E4 , 16  44 

= 

116 

2 

116 

896 

VGVECT 

E7  , L 

= 

152 

6 

152 

846 

VONE 

FT,  1614 

= 

115 

9 

705 

1271 

VXINH 

02  50 

= 

83 

2 

888 

891 

V HE  CT  F 

32,3517 

8 19 

1 

816 

VONE  ' 

E4, 1567 

= 

114 

3 

1271 

1277 

VX  I NHB I T 

47  40 

= 

83 

1 

887 

V HO : I Z 

E4 ,1662 

= 

1 19 

4 

119 

819 

VOPENED 

06,3223 

192 

1 

191 

VXM 

7337 

1038 

1 

1011 

VHY 

E7 , 1704 

= 

1 50 

4 

151 

903 

VPASS1 

E7, 1505 

14  1 

6 

141 

642 

VXM/MXV 

7342 

1039 

1 

1038 

V HZ 

E 7 , 1705 

= 

151 

4 

151 

903 

VPASS2 

E7 , 1527 

141 

5 

141 

647 

vxrcm 

E 7, 1703 

= 

144 

3 

144 

592 

V IG  1 

E5 , 1472 

= 

1 21 

2 

121 

787 

VP AS S3 

E7 , 1557 

141 

9 

638 

729 

vxsc 

7401 

1040 

1 

1011 

V INTT 

E 4 , 1 7 3 0 

1 IP 

10 

6 52 

766 

VF  ASS4 

F7, 1505 

= 

144 

3 

663 

727 

VXSC.AL 

33,2016 

41 
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SYMBOL 


DEF 


H 


VXV  7460 

V YBEAMNB  E4,1636 
VYSCAL  33,2014 
VZBFAMNB  E4  , l';  30 


VZSCAL 

VO 

V DON 2 5 
V00N3-J 

V 0 IN  1 4 

vopipp 

V 01N 

v : i 

V 01N7C * 
V01N71 
V04NOC 
V04N0F $F 
V04N12X 

V 1272 

V 05 N O' 0 Ml 
V05N09 


33,2012 
0006 
6010 
4 242 
32 , 2170 
10,3476 
20,2112 
14,3772 
15,2463 
0 7 , 2 3 3 0 
10,3502 
34 ,3634 
43,2635 
23,2037 
10,3515 
5006 


10  42 
1 16 
41 
1 16 
41 
940 
2 09 
2 09 
2 09 
1372 
293 
956 
960 
25  3 
137? 
7 30 
279 
271 
1372 
10  96 


P EFFRET CES 

2 1011 
3 116 


SYMBOL 


DEF 


H 


REFERENCES 


1 t 6 

9 86 


1267 

896 

896 


2 1360  1362 
1 292 

1 9 55 

1 9 57 

1 246 

1 l 3 6 2 
1 7 25 

1 277 

1 271 

1 1365 
6 621  1382 


VC6N58SR  34,3637 

35.3726 
31,3760 
36,3146 
31,3756 

30.3033 
31  ,3757 

07.2625 
24,3134 
35,2-1? 

30. 3034 
15,2464 

07.2626 

35. 3727 
34,3640 
13,2336 
14, 3773 
07,2331 
14,2505 
04,391? 


V06N59 

V06M6G 

VG6N61 

V06N63 

V06N63* 

V06N64 

V06N71 

VC  6 NT 2 PV 

V06N75 

V06N76 

V06N79 

V 0 6 N 7 9 4 

V06N81 

Vi.  6 MB 1 S-‘ 

V06N84 

V06N87 

V06NS74 

VC6N89* 

VO  6 NOON 


7 30 
6 34 
827 
749 
827 
855 
827 
260 
c 1 2 

6 31 
855 
960 
260 
684 

7 30 
711 
956 
253 
93  3 
702 


72  7 
679 
815 
745 
814 
350 
814 

5 11 
623 
8 39 
959 
261 
( 14 
727 
70o 
c56 
2 46 
933 
70  2 


SYMBOL 

V 3 
V37 

V37BAD 
V37FL AG 
V37FL  BIT 
V37KLEAN 
V37NQNC 
V37N99 
V37QCAD 
623  V 3 7 c E T 


815 


678 


V )6NC5 

24 ,26ft/ 

507 

1 

5C5 

VO 6 N 93 

14,3254 

945 

1 

e45 

V 76':  07 

1C  ,3477 

137? 

V06N9Q 

31,21/3 

610 

1 

608 

V06N1  1 

35,2410 

631 

1 

621 

VC6N99DS 

31,2024 

608 

1 

608 

V06N1  3 

35,2411 

6 31 

1 

627 

V06N99  33 

31,2051 

608 

1 

608 

VGA  16 

32  ,21  72 

2 09 

2 

207 

VG6  47 

01,2334 

295 

1 

294 

V06N16N 

04  ,3<  11 

702 

1 

7 0 1 

VI 

00  1 4 

= 940 

V 06  M 18 

26,2254 

474 

2 

4 7 3 

474 

VIS 

E7, 1600 

= 147 

14 

1 47 

'/  DA  M ft  9 

IS  A 1 f I 

J Q C A 

4 

4 85 

974 

VI S 702  S 

10 , 3 4 2 Ct 

13  9 7 

4 

3 6.5 

V ’ I y L.  c 

” v..  J U 

V06N33 

35,2025 

6 15 

2 

614 

652 

V16N20 

14,3223 

9 44 

1 

944 

V 06N33* 

24,2315 

499 

1 

493 

V16N40 

36,3760 

763 

1 

754 

V06N33A 

30,3035 

8 55. 

1 

838 

V16N44 

22,3317 

714 

2 

714 

V 06 N 3 3 S; 

34 ,3632 

730 

1 

724 

V16N45 

35,3730 

684 

1 

6 30 

V 06 M 34* 

1 ,2 170 

9 39 

2 

°2« 

978 

V16N54 

37,3 '0  7 

707 

1 

703 

V06M34S! 

34 , 36 36 

7 30 

1 

725 

V16N56 

40,2076 

300 

l 

209 

V06N37 

35 ,3723 

6 84 

3 

622 

662 

V16N63 

14, 2445 

854 

1 

853 

V 06N4  2 

35,2026 

615 

2 

6 14 

653 

V16N66 

43,2633 

279 

1 

278 

V06N43 

ft  4 . 36  6 4 

i 

6, 4 7 

\i  1 AM  47 

43  ?A34 

?7Q 

i 

ft  7 ft 

1 

V _•*  t 

J 

V iOiwl 

I 

eft  f U 

V06N43* 

3.1 ,2215 

7 °2 

1 

791 

V 16N72 

43,2631 

279 

l 

278 

V 0 f 8 

01 ,2  335 

2 9 5 

1 

295 

V16N78 

43,2632 

2 79 

1 

278 

V06N49MB 

24,2665 

5 07 

1 

507 

V16N80 

24 , 3 254 

516 

1 

515 

V06N5 1 

42,3767 

489 

1 

48  9 

V16N85B 

36, 3761 

763 

4 

736 

V06N5  5 

35,3724 

5 84 

2 

622 

682 

V16N85C 

30,3017 

854 

1 

854 

V 

34 ,3633 

730 

I 

7 24 

V 1683 

36, 3762 

763 

1 

759 

V 0feNc7SR 

34,3435 

730 

1 

725 

V? 

0022 

= C4Q 

V 06  J 5 8 

36,3725 

6 A6 

1 

6 ft  3 

V2FG 

E 5,  1510 

= 121 

2 

121 

DEF 

0030 
04,2040 
04,2067 
0162 
4746 
05 ,2652 
04,2322 
04,2037 
04,2364 
04,2120 
V37RETAD  04,2366 
V37XEQ  04,2330 
V37XEQC  04,2357 
V41K  14,3564 

V43K  43,2745 

V47TX  ACT  4 3,2367 
V50N0C 
V50N00A 
V5GN16 
V50M25X 
V50N48 
V50PASTE 


REFFPENCES 


10,3500 
32,2171 
32,2173 
43,2636 
01 , 2336 
10,3203 


940 

227 
2 27 

73 

78 

214 

231 
225 

232 

228 

233 
232 
232 
952 
282 
2 74 

1372 

209 

209 

279 

295 

136^ 


8 89 
1 2 54 


717 


757 


815 


298 
2 32 
864 
228 

230 
228 
225 

231 
233 
228 

232 


1 950 

1 281 
1 262 
1 1367 

1 208 
1 277 

1 2C  5 
1 13  67 


V6N34 

24,3665 

657 

1 

655 

V6N99PP0 

3 1,2032 

608 

1 

608 

V 6 7 

43,3213 

2 98 

1 

262 

V67CAI 1 

31,2007 

608 

1 

2C8 

V67CL.RF 

3 1,21  10 

60° 

1 

6C9 

fi  1 in 

— 77 

ft 

608 

VO  l r L A v? 

UlOU 

D 

V67FLBIT 

47  44 

= 77 

V67SURF 

31  ,2102 

609 

1 

609 

V67WW 

31,2120 

609 

1 

608 

V67XXX 

30,2042 

610 

1 

610 

V70UPDAT 

43,3724 

I 388 

1 

262 

V7 1 UP  DAT 

6 3,37  26 

1388 

1 

262 

V72UP  DAT 

43,3730 

1388 

1 

262 

V73UP  DAT 

43,3732 

1388 

4 

262 

V7  4 

43,3045 

= 288 

V82CAI.  1. 

22,3242 

713 

1 

283 

V32C0N 

43,2754 

233 

1 

2 83 

V82EMBIT 

47  52 

= 78 

V82EMFLG 

0166 

= 78 

7 

715 

V82 FLAGS 

E 4 , 1537 

= 115 

fc 

115 

V82G0FF 

22,3247 

713 

1 

713 

V 82  GO  F F 1 

22, 3321 

714 

1 

713 

V32G0FLP 

22,3267 

713 

1 

714 
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15  59 

447 

1333 

1383 


609 

1338 

720 

716 
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SYMBOL 

DEF 

H 

REFE> 

;hnces 

SYMBOL 

DEF 

H 

\/  9.  oar  ; 

7 1 7 

l 

7 1 ^ 

E 7 1 1 64  7 

i r n 

V F 2G0N ] 

22,3503 

7 17 

2 

717 

718 

v 0 AGAIN 

41,3371 

44  3 

V 82G0N2 

22,3536 

717 

1 

717 

WDCNT 

0137 

= 

97 

V82G0N3 

22  ,3541 

718 

1 

718 

wdrEt 

'■>115 

=s 

96 

V82PERF 

43,2746 

283 

1 

263 

WE  Ar-  TH 

26,2020 

53 

V82REDSP 

22 , 3475 

717 

1 

7 17 

WEIGHT /G 

1244 

= 

105 

V82STALL 

22,3300 

7 13 

1 

714 

WMATALM 

31,2447 

799 

\/  ’ 3 C A ! L 

37,3121 

7 03 

1 

703 

WHATDI  SP 

31,2443 

799 

V83PERF 

43,27 3 ' 

2 83 

1 

26  3 

WHAT  EX  IT 

31,2441 

799 

V ROC  Al  L 

74,202? 

33O 

1 

WHATfv  I T n 

31  , 2431 

798 

V89CALL1 

26,2072 

340 

1 

340 

WHATOUT 

31  , 2371 

796 

V89PEP F 

43,2764 

284 

1 

2 6 3 

WHCHREAD 

E7 , 1745 

= 

146 

V89RECL 

26,2036 

339 

1 

340 

WHERETO 

31,2244 

793 

\l  90°  EF  F 

43,2773 

2 84 

1 

2-3 

WH  I CH 

F"7,  1 4 55 

139 

V 97NO0 

1 0 ,3‘T  1 

13  73 

1 

1367 

WHICHADR 

32,3764 

8 36 

V 9 1 F C Y C 

36,2 7 7 7 

- 

7/5 

1 

mo 

WHTMPFP 

Rfi.  44 

1 3 83 

140 

V'l  n 1 1 L AK  t b 

t l f in  f 1 

“ 

W 

E5 , 1400 

121 

34 

121 

1242 

WHOLECON 

42,3534 

435 

W .IND 

1257 

= 

1C7 

4 

1 0 7 

584 

WI DEDB 

20,2151 

14  08 

W .TMD1 

12  60 

107 

WITCHONE 

10,3205 

136  7 

WAITABIT 

36,2563 

740 

p; 

7 31 

733 

W I X A 

1320 

106 

WAIT  A DR 

006  3 

= 

95 

3 

1 1 1° 

1 123 

wixb 

1321 

106 

W AIT  BANK 

006  2 

= 

95 

1 

1122 

WL INIT 

26,3251 

584 

W AITBB 

5220 

1119 

2 

1 119 

11  29 

WLQOP 

12,3013 

1189 

WAITE X IT 

0061 

= : 

95 

7 

< 

1119 

1377 

WLS4FP0S 

26,3274 

584 

W A3 TL  I ST 

5 203 

1 L 1 9 

4 6 

164 

1324 

WL  S REV  EL 

26,3311 

584 

W A I T MASK 

1 9 , 27  60 

1 3 6 < 

1 

13  63 

WM 

E4 ,1724 

= 

120 

WAIT  POOH 

0 1 , 3 c > 3 

1132 

1 

1 ] 7? 

V MAT  F\1  n 

1 ] . 9 A 7 1 

i 7 & a 

WAITTEMP 

0064 

= 

95 

3 

1127 

WMATRXNG 

43,3073 

290 

W AIT2 

01,3231 

1122 

2 

1119 

WORKTI  ME 

16,2624 

1427 

W AKECAD 

00,3773 

13  78 

1 

] 377 

WOT  E ST 

OA. ?7A^ 

CQ7 

W AKECAD' 

13  , 3rl 6 

1372 

3 

13  6 3 

1364 

W Lj  Z E RO 

05 , 3 6 C 5 

9 92 

W AKEPL  AY 

10 , 3024 

1364 

1 

13  69 

WOl 

0 5,  3 512 

991 

W AKER 

no  ,37:.F 

1377 

1 

1 3 78 

WP  1 ATT 

F c;  *1^6  0 

1 

W AKESTAL 

13,3465 

1220 

2 

1220 

WPLATO 

E 5 , 1 464 

— 

128 

W AKETEST 

01 ,3044 

11  11 

1 

1111 

WPG STD  RE 

26,3276 

584 

WANG  I 

E 5, 1436 

= , 

1 23 

1 

3 74 

WRQRET 

0115 

=A  : 

96 

WAN  GO 

E5 , 14  34 

= 

128 

1 

374 

WREN  DP  OS 

E , 1400 

113 

W Af'GT 

E 5 , 1 440 

== 

128 

1 

128 

WRENDV  EL 

E4 , 140 1 

113 

WALT  APS 

34,7372 

73  6 

1 

7 3? 

WP  UFp 

s 7R  6. 

] 4 r a 

W 3ANK 

26,3331 

585 

1 

584 

WR  I TEU 

5760 

1405 

W CALC 

22 , 2746 

364 

WR ITEV 

5771 

1405 

W CENTRAL 

E6 ,1743 

= : 

132 

2 

14  73 

1474 

WR IDES  I R 

15 ,3105 

971 

WCH PHASE 

1351 

1 08 

14 

7 39 

82  5 

1-  SHAFT 

E 4 , 1402 

113 

WCHPHOL D 

E7 ,1621 

1 4 9 

7 

1 49 

814 

WS  I l E 

26,3437 

586 
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REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

3 

800 

815 

WSTGR 

33,3472 

888 

3 

8 88 

2 

'43 

444 

W S U R F PDS 

E4, 1406 

113 

2 

584 

609 

t£ 

441 

444 

WSUP FVEL 

E4, 1407 

113 

2 

584 

609 

O 

441 

: L L.  4 • 

WT ABORT 

01,3363 

1 1 25 

I 

1123 

1 

1 146 

WTLST2 

01, 3374 

1127 

8 

1 124 

1125 

6 

765 

774 

WTLST4 

01,3260 

1123 

1 

1127 

1 

807 

WTL ST  5 

01,3310 

1124 

1 

1122 

1 

814 

WTLTCADF 

01,3774 

1308 

3 

1304 

13  07 

2 

811 

WT-UN 

E4, 1 AQ3 

113 

2 

565 

6 09 

1 

807 

WVEL  STOP 

26,3313 

5 84 

1 

584 

WWBI AS 

E4, 1604 

= 

115 

n 

317 

610 

314 

581 

W W P 0 s 

E4 ,1600 

= 

1 15 

15 

298 

6 10 

1 

3 A 

793 

WWVEL 

F 4 , 160  2 

= 

115 

9 

317 

610 

1 

8 32 

X 

0024 

- 

1202 

22 

1175 

1190 

3 

865 

13  84 

XACTA1 N 

43, 21 14 

263 

1 

269 

4 

4-86 

136  1 

XACTO 

43,2116 

264 

3 

4 34 

435 

XAD 

01 , 2400 

1088 

1 

1012 

1 

1407 

XAD2 

01,2403 

1088 

2 

1088 

3 

1359 

1363 

XCHNYLOC 

19,3223 

1367 

1 

1363 

5 

1153 

1155 

XCHQADD 

10,3015 

1364 

1 

1363 

3 

1 1 p3 

1 155 

XCHSLEE  P 

10,2764 

1363 

1 

1364 

3 

576 

585 

XCH  TO  END 

10,3222 

1367 

3 

1359 

1363 

1 

1189 

XCHX 

01  ,2372 

1088 

1 

1012 

i 

5 84 

XCOMMCN 

12,3066 

1190 

1 

1192 

1 

584 

XDC 

E 5, 16 64 

= 

122 

12 

122 

1256 

• ^ 5 

120 

833 

XDELVBIT 

4744 

= 

69 

1 

1241 

XDELVFLG 

0045 

= 

f~.  O 

8 

615 

771 

1 

263 

XDIFF 

12,2163 

1 176 

1 

142  7 

XDSPB  IT 

4753 

= 

73 

2 

1340 

1354 

1 

991 

XDSPF  LAG 

0112 

= 

73 

1 

207 

2 

992 

997 

XI 

00  30 

= 

1202 

7 

1 176 

119  5 

1 

997 

XKEP 

E3, 1552 

= 

110 

3 

125 

1240 

XKFPCSM 

E3, 1624 

11  1 

XKEPL  EM 

E3, 1676 

111 

1 

5 84 

XKEPNEW 

E4 , 1 527 

= 

1 14 

3 

114 

1228 

XMAX 

0012 

= 

1202 

9 

1 175 

1178 

3 

117 

609 

XMIM 

0014 

= 

1202 

6 

1175 

1178 

2 

584 

609 

XMKRUPT 

07,2416 

255 

1 

255 

6 

1404 

1455 

XNB 

E5, 1664 

= 

123 

12 

373 

1397 

1 

1455 

XNBADR 

37,2476 

381 

1 

373 

1 

1455 

XNBEC ADR 

10,2035 

1265 

1 

126  5 

1 

971 

XNBP! P 

E4, 1545 

= 

1 14 

11 

1 14 

913 

2 

5 35 

609 

XNB  PI  PAD 

33,2414 

863 

1 

86  1 

1 

5 84 

X'-'RCHK 

33,2710 

878 

1 

974 
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SYMBOL 

XOPFLBIT 
X IP  F I G 
XOVINFLG 
X OV I N HI  B 
X PR  E V 
X RANGE 
X REG 
XRFGLP 
XPf  '• 

XSCI 
X SCR  EF 
XSM 
X SHADE 
XSMD 

X SOC ( X I ) 


DEF 

<+743 
0 2-3 
0311 
A 7 43 
E3 ,1552 
E7 , 1642 
1003 
] 0 06 
26  ,2  366 
EK , 170A 
E7.1606 
E5 , 1642 
37,2477 
E 7 , l 6 C 6 
00  34 


H 


REFERENCES 


X STORE 

01  ,2346 

xsu 

01 ,2411 

X TRANS 

17,3063 

v 1 JM  T T 

1 2 . 2 0 G 6 

A ‘JIM  1 

X XX Al  T 

E 7 , 1670 

X Y-"A  K 

E 7 , 1 5 5 1 

X 1 

0046 

X 1INPUT 

E7 , 16 1 1 

X 2 

0047 

X 7 8 9 

E3, 17.00 

Y 

£4,17  36 

YAW 

E4 ,1762 

YAWANG 

E4 , 1602 

YAWDUN 

30,2232 

Y CD 

E7, 1632 

YCOMP 

27,3312 

VCC  ' 

E4 , 1 746 

Y DC 

E5 , 16  ?2 

Y DOT 

E6 ,1710 

Y DOT  D 

E4, 1674 

Y L I M 

E5 ,1572 

YMK'HIPT 

07,2422 

Y NB 

Ec  , 1672 

YNBPIP 

E6 , 1 r s 3 

YNBSAV 

E4 ,1636 

YOK 

32,3661 

Y RAT  F 

E 4, 17 52 

Y REG 

IOC  4 

YREGl P 

1007 

84 
84 
87 
87 
125 
152 
101 
1 0 1 
483 
1 2? 
147 
122 
381 
147 
12  02 
10  8? 
1088 
14  55 
1101 
142 
145 
93 
142 
93 
1 11 

120 
1 20 
1 18 
840 
1 5 2 
854 
120 
122 
120 

119 
1 2? 
255 
123 
1 14 
116 
3 34 

120 
I G ! 
101 


8 74 
878 
224 
° 10 


1 176 

1 52 

1179 

839 

Y S Z E RO 
YUtIT 

YV 

YZCHK 

07,2177 
12,200? 
1126  = 
07,2171 

251 

1101 

1 

2 

1 1 

1 

251 

37 

104 

250 

968 

1 DL.TL 

3C5 
40  1 

42  9 
42  9 

1 OH 

2 5 1 

1 > % 

7 

r n r r = 

42 

24 

304 

1400 

1509 

1383 

769 

12  2 

12  53 

ZACCOOT 

ZAPTJ 

20,2751 

21 , 3667 

1490 
15  09 

i 

i 

1 
1 

T* 

24 

r 147 

5 1 1 7 P 
? 10  87 
1 1012 

3 1445 

6 37 

4 142 

18  14? 

70  2 52 

2 9 4 87 

5 196 


120 
1 2C 
487 
840 
152 
834 
120 
122 
120 

1 19 
122 
2 54 
37  4 
1 14 
1 16 
834 

120 
4 26 
101 


SYMBOL 

YSC  I 
YSCF  FF 
878  YSM 
1430  VS  MO 


OFF 

E5 , 1714 
E7, 1614 
F 5 , 16? 0 
E7, 1 FIX- 


REFERENCES 


123 
147 
122 
14  7 


124 

769 

122 

147 


1253 

983 


983 
1 1 8 4 


14  53 
1 136 
695 
95  7 
14  00 

1272 

1157 


ZATTEROR 

ZAXI  SI 

ZDATA2 

Z DC 

ZDOT 

ZDOTD 

Z EL DUMMY 

ZELL  IN A 

ZERO 

ZFon/SP 

ZEROANS 


20,2.153 
E 7 , 1725 
21  ,2270 
Ec , 1 7 OC 
E4 ,1712 
E4, 1676 
E7 ,1646 
12  64 
4755 
23,2521 
00,3376 


ZERODATA  21 ,3050 


2 

1 

6 

7 

3 

b 

5 
3 
2 
1 

6 
L 
i. 

1 

3 

2 


ZERO OP 

= = = ze-t  enbl 

6':-.  ZEF  HIGH 
340  Z EG  QIC  DU 
488  ZEROING 
ZER0ING1 


12,2006 
16, 32C5 
21,3454 
5457 
37 , 2367 
37,2371 


848 
845 

849 
1256 

84  8 
845 
834 

12  53 
862 
981 


434 

434 


ZE'GLUUP  21,3616 
ZEROLSTY  21,3024 
ZEKJNDX  C r,l571 
ZE°  00  23,2521 
ZEF  OOT  21,3451 
ZERCIPLUS  20,3014 
ZERQTJ  17,2571 
ZFxCVEC  12,2006 


Zr • OVECS 
ZI 

Z I XA 
Z IXB 
ZNB 
ZN3P  rp 
ZNRSAV 


23,2521 
F5 ,164-2 

1322 

1323 
E 5 , 1700 

P 4,1  - 1 

F4 , 14 44 


1408 

120 

goo 

122 
120 
1 19 
149 

105 
1095 

593 
1079 
90  7 
1 101 
1634 
1481 
1309 
379 
379 
1483 
906 
126 
1157 
148  1 
1492 
1449 
1 1 0 1 
1100 
126 

106 
106 
123 
114 
116 


13 

6 

1 

r, 

3 
6 
2 

4 

324 

1 

2 

1 

2 

I. 

4 

2 

1 

2 

7 

11 

2 

1 

14 

1 

?c 

4 

4 

6 

1 

3 


28  5 
840 
oq7 
123 
120 
119 
149 
106 
157 
566 
1079 
900 

1434 

1481 

165 

373 
379 

1483 
905 
37  3 

1481 
1 4 92 

37 
37 
126 
1 153 
1153 

374 
9 13 

079 
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1.448 
85  l 

1256 
845 
845 
150 
821 
1 510 


1311 

383 


SYMBOL 

Z0NE1 
Z0NE2 
ZONE 2 , 3 
ZONE  3 
Z0NE3L  IM 
Z0NE3MAX 
Z0NE4 
ZOO  E4 , 5 
ZONES 
ZON  1,2,3 
I ( 

ZOO MT I ME 

Z P RIME 

Z*5  EG 

ZREGLP 

ZRUPT 

ZSCI 

ZSCREF 

ZSM 

ZSMD 

ZSPCR 

ZUN7T 

Z V 

Z IT  EM 
Z 1 2 3 

Z123C0MP 

Z3TEM 

Z5TFM 


DEF 

17,3562 
l7 ,3553 
17,3547 
17,3555 
E6, 1556 
20,3762 
17,3374 
17,3363 
17,3426 
17,3542 
1 7 , 20  22 
F7 ,1422 
0026 
1005 
1010 
00  15 
E5, 1714 
E7 , 1622 
E5, 1656 
E7 ,1622 
15,2413 
12,2000 
1134 

0131 
23,2543 
17,3526 

0152 

0132 


H 


1466 

1466 

1466 

1466 

134 

1506 

1463 

1462 

1663 

1465 

742 

138 

124 

101 

101 

92 

124 

148 

122 

167 

950 
1 101 
104 

1505 
1 149 
1465 

1506 
1505 


REFERENCES 

2 1463  1466 

1 146  3 
1 1466 
1 1466 
1 1497 


1463 

146  2 

240 

742 

240 

812 

1249 

1250 

4 07 

435 

101 

4 35 

14  28 

1458 

7 69 

122 

1253 

14  8 

983 

958 

37 

1237 

1238 

1243 

1501 

1502 

11C0 

146  3 

1465 

1497 

15  PC 

150  1 

906 

383 


1 24  6 
1157 
1 158 
1155 
1155 
125  3 

981 


0.35356 

20,3100 

1494 

2 

1488 

1489 

0E8ANK 

43,3341 

1288 

003140CT 

5 7 74 

1405 

4 

1405 

1444 

06  SEC 

23,2276 

520 

1 

519 

07400 OCT 

16 , 35  13 

1441 

1 

1429 

1.2SPCT 

01,20  16 

239 

u 

239 

243 

1 . 3SP.QT 

01,2024 

239 

1 

23« 

1 . 5 SECS 

26,3714 

593 

1 

589 

1.95SECS 

33,3143 

883 

1-CSTH 

E5 , 1733 

= 1 25 

4 

125 

1194 

1/.03 

47  3 3 

= 1506 

3 

1498 

1500 

1 /ACC  F I X 

06,3236 

192 

1 

191 

1 /ACC JC B 

20,2454 

1486 

2 

192 

1407 

l/ACCOT 

20,3231 

149  7 

2 

1489 

149  1 

1 / A C C R E T 

20,36  71 

I 504 

2 

1491 

1503 
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SYMBOL 

DEF 

H 

FEEL1 

ENCES 

SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

1 /ACCS 

20,2437 

I486 

2 

863 

I486 

1 0VSQRT2 

42,3770 

469 

2 

487 

2.17SPCT 

01 , 2051 

240 

1 /ACCS ET 

20,2447 

I4  86 

1 

I'll 

IF  EV 

12,2073 

1 174 

1 

1174 

2 . 2 SPOT 

01,2016 

= 

239 

1 

239 

L /AGHAST 

E6 ,1573 

= 

134 

1 

l ' 62 

IS  EC 

4777 

1096 

17 

270 

901 

2. 21  SPOT 

01,2054 

240 

1 /AC.nSTP 

F 6 ,1553 

= 

1505 

2 

IX- 98 

1SEC+1 

47,2640 

279 

2 

276 

273 

2. 3 SPOT 

01,2027 

239 

1 

2 39 

1 /ACC 

0127 

= 

1505 

C 

1499 

1504 

IS  EC  X 

4777 

= 

381 

2.5SP0T 

01,2032 

240 

1 /ANET 

0160 

= 

1506 

7 

15  00 

1504 

1SECXT 

E5 ,1572 

= 

128 

2 

333 

384 

2.7SPOT 

01,2035 

240 

1ZANET- 

2C  ,3712 

1504 

1 

1501 

IS EC  2D 

27,2675 

775 

1 

774 

2.7SPT 

04,2132 

228 

1 

228 

1 /ANETP 

E6  ,1561 

= 

15  05 

5 

ix  35 

149  8 

1STA9 

15,3047 

970 

2 

c 70 

982 

2/3 

12 ,3773 

= 

1246 

1 

12  34 

1 /ANFT1 

E 6, 1567 

- 

134 

1 3 

134 

1503 

1 ST0R2ND 

10,3163 

1366 

1 

1366 

2 BLANK 

40,2601 

405 

6 

402 

458 

1 / AN  FT  2 

E6 ,1570 

= 

1 34 

6 

14  49 

1495 

1STOTWOS 

1 fc , 22  c6 

1422 

3 

1X21 

1422 

2DZER0 

12,2006 

= 

1137 

1 / AT r ' i 

0123 

= 

1505 

22 

1.501 

1506 

1ST02S 

10,3614 

1397 

3 

373 

959 

2EBANK 

43,3355 

1288 

1 

1289 

1 /AT  ! . 

0124 

= 

15  05 

4 

1500 

1501 

I T02&TCQ 

30,3652 

922 

2 

922 

2 INTOUT 

40  ,2732 

420 

1 

417 

1 /DVC 

E7, 15.7.0 

= 

.3  55 

2 

8 43 

1 TO 2 SUB 

10,3644 

1 398 

6 

1397 

1398 

2 J 

33,2043 

45 

1 

880 

1 /DV1 

E7 ,1634 

= 

152 

is 

152 

843 

10, 11 

21,2042 

829 

2 

829 

2J3RE/J2 

13,2016 

46 

2 

1235 

1 /DV2 

F7, 1636 

= 

1 c 2 

5 

152 

843 

10SFCS 

32,3754 

836 

1 

851 

2 K 

4741 

= 

109° 

3 

1006 

1111 

i / 

P7  t [A/.n 

_ 

1 C ? 

Cv  ; 

i k 2 

lOPP  9 

33,3146 

_ 

8 5 5 

p 

F48 

P.4  9 

? K + 3 

4x44 

A.  A,  4 

1 

464 

L L;  U V>  O 

1 /GYRO 

06,3507 

333 

3 

328 

335 

100MRUPT 

7727 

= 

155 

2KET/SEC 

33,2707 

878 

1 

389 

1 / 

0016 

= 

1202 

4 

1174 

1 193 

1 1DSPI N 

40,3404 

445 

4 

403 

442 

2NDRETRN 

22,3117 

366 

2 

366 

1 /[  E 0-  I : 

20,3720 

1504 

2 

1501 

1505 

12DD 

23,3246 

1157 

1 

1155 

2PHSCHNG 

5327 

1298 

10 

492 

863 

1 /P  ) A 

06,3263 

326 

3 

33  5 

966 

120MRUPT 

06,2041 

157 

1 

160 

2 P I +3 

27,3215 

78C 

2 

778 

1 /PIPADT 

1075 

103 

10 

165 

96  5 

I 2 CMS 

5751 

= 

131 

2PI/3 

26,3440 

587 

2 

580 

582 

1 /P  T PAT 

06,3272 

3 2 A 

I 

3 26 

13-11,  1 

41 ,3726 

469 

1 

468 

2PI  SC 

04,3054 

1185 

2 

1175 

1 192 

1 /FOOT MU 

0022 

= 

1202 

5 

1174 

1184 

13,14,15 

7740 

1098 

5 

282 

141° 

2 R NOE NO 

40,3173 

434 

1 /rT  l 

27 ,2030 

46 

13,7,2 

4615 

525 

1 

c24 

2 ROUND 

40 ,3163 

434 

3 

431 

X 33 

1 /RTMUE 

22  ,2002 

44 

2 

7 1 

717 

130DEG 

35,3745 

684 

1 

661 

2SECI  17) 

30, 3022 

855 

1 

855 

i r ~ nj  -'i 

22,2000 

44 

1 

717 

14,11,9 

06,2171 

160 

1 

1 57 

2SEC ( 18) 

33,3146 

883 

2 

8X5 

855 

1 /WL 

12,3151 

1191 

1 

119  1 

14  MS 

17,3107 

= 

1446 

6 

1445 

2SEC ( 26) 

33,31 50 

883 

1 

887 

1 / 1 

0 1 , 2741 

7 QR 

1 

? 9 4 

140AAI  M 

31,3735 

£ ? (, 

2 

70  Q 

2 S ( c ) 

p 0 , **  n ^ 1 

856 

1 

8X3 

1 /10S 

17 ,2343 

1446 

1406P30 

31,3733 

826 

i 

799 

2SECS 

5000 

1096 

8 

278 

1316 

1 /10SEC 

16 ,3132 

1433 

15/16 

12,3761 

1246 

i 

12  34 

2STARS 

15,3045 

97C 

1 

982 

1 /2DEG 

31  ,3753 

3 27 

1 

807 

15ADRERS 

01,2427 

1089 

7 

1037 

1091 

2VEXHUST 

E7, 1742 

= 

772 

I MO 

16 ,3620 

1441 

4 

1X2  3 

1425 

15BITADR 

625? 

1009 

1 

1015 

2 VI ST02  S 

10,3635 

1 398 

2 

323 

1 / 6 T H 

14,3771 

9 56 

i 

955 

1500DEC 

24,26  66 

507 

2 

499 

507 

20. 5DEGS 

25,2572 

544 

1 

544 

1 BITDF 

26 , 2*0? 

6 o 6. 

160CT 

30,3*77 

920 

1 

920 

20  J 

33,2041 

45 

1 

880 

IB] 

12,2004 

= 

1148 

i 

1138 

17T020 

43,3643 

1292 

20MRUPT 

7731 

= 

159 

3 

157 

160 

1 DEC  70 

21 ,2 106 

830 

i 

8 30 

170MS 

4361 

= 

892 

1 

892 

20SEC 

32,2176 

209 

1 

208 

I DEC71 

21 ,2107 

830 

i 

830 

18QDEGS 

31,3752 

827 

1 

807 

20Q.MS 

16,36  16 

1441 

2 

1427 

l DP8? 

34 ,2067 

6 32 

2 

4 33 

635 

1 HOMES S 

27,3123 

779 

1 

776 

20  1 F 04 

43,2637 

279 

1 

277 

1 DPB28 

34,2071 

4 32 

2 

6 33 

638 

180  SET  UP 

36 , 3fa33 

761 

1 

7 61 

21/22REG 

0115 

= 

96 

3 

398 

470 

1 JACC 

E6 , 1 c30 

137 

1 l 

133 

149? 

25/32 

7716 

= 

1441 

1 

1435 

1 JACC  CON 

20,3212 

14  96 

1 

1495 

2,-dSPT 

04,2130 

228 

25KFT 

33,2677 

878 

2 

850 

878 

1 JACCO 

Efc  , 1 531 

= 

133 

fc 

147  1 

1495 

2.  1 1 SPOT 

01,2040 

240 

250DEC 

24,2304 

49° 

2 

49  8 

1 J AC  C T 

E6 , 1532 

= 

1 33 

6 

1471 

1495 

2. 1 ISP  T 

04,2131 

228 

250MS+  1 

4 766 

= 

279 

1 

279 

1 JACCU 

E 6 , 1 5 33 

= 

1 33 

12 

14  59 

1501 

2. 13SP0T 

01 ,2043 

240 

26SECS 

36 , 3757 

763 

1 J ACC  V 

E6 ,1534 

= 

133 

1 

1*  9 

2.15SP0T 

01 , 2046 

240 

27T03C 

43,3651 

1 292 
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S YMBPL 


3.2SPPT 
3 .3SPCT 
3.5SHC 
3.5SP0T 
3/32 
3/4 
3/4DP 
3/5 
3 / 64 
3/aop 
3 AX  I SB  I T 
3 AX  IS  FIG 
3CSECS 
3J22R2MU 
3 SECONDS 
3 SECS 
3 ODE  G 
3 0DEGCHK 
3 OK  FT 
3 OP  D v,  3 K 
3 3DEC 
33RDMSK 
34DEC 
3 5DEG 
3 5KCHK 
36C-CDU 
360-CDUE 
3 6C-C  DUO 
3 6 OC HECK 
36CLAMB 
3 60S  U 
3 60S WB IT 
3 - 0 1 ■ 0 E C 


DEF 


01,2016 
01,2057 
27,2677 
01 , 2062 
12,3757 
12,3763 
22,3665 
12,3  745 
12,3753 
22,3653 
4746 
0124 
1 3 ,3o71 
13,2024 
'26,3711 
5002 
24,3354 
24,3336 
33,2705 
06,2761 
6 2 54 
5026 
424  2 
15,2773 
33,2721 
40,2625 
40 , 2 634 
40,2623 
12,3122 
12,3463 
0206 
47  53 
37,2471. 


?'  0 
240 
775 
240 
1246 

I 2 4 

8 27 
1 > 

12  46 
827 
74 
74 
1225 
46 
c;  03 

1096 
573 
5.72 
378 
181 
4^6 
181 
455 
9 67 
878 
4 1 3 
4 1 3 
418 
1191 

II  96 
80 
80 

3d 


references 


1 2 39 

1 2 3? 

1 774 

1 1234 

5 956,: 

2 8 C 7 

1 12  34 
1 12  3* 

1 807 

2 473 

7 229 

1 1224 

1 : 1 

1 793 

1 572 


11  SPOT 
13  SPOT 
15SP0T 
17SP0T 
2SP0Y 
2 IS  POT 
23  SPOT 


4 . 25  S POT 


01 ,2104 
01,2107 
01 ,21 12 
01,2115 
01 , 2065 
01,2120 
01,2123 
01 ,2126 


24  1 
241 
261. 
241 
260 
241 
241 
241 


809 


Id 
456 
lo7 
2 09 
, 963 
8 74 
4 18 

4 17 
1189 
1193 

114 


1 3 ?6 


? 3 - 


SYMBOL 

DEF 

4 . 27  SP  OT 

01,2131 

4. 3 SPOT 

01 , 2073 

d 3 1 SP QT 

01 ,2134 

t .33  SPOT 

01,2137 

6. 35SP0T 

01,2142 

4 . 3 7 SPOT 

01,2145 

4. 5SP0T 

01,2076 

6 . 7 SPOT 

01,2101 

4 . 9 S EC 

36,3145 

4 SEC ( 1 7) 

30,3020 

4SECI28) 

33,3152 

4 sics 

500  3 

40C  YC 

16 ,3133 

40CYCL 

17,2342 

40FPS 

05,3504 

'■?  DEG 

IB , 2772 

4 9 FP  S 

23,2453 

5.2SP0T 

01,2150 

5 . 3SP0T 

01,21 64 

5. 4 SPOT 

01 , 2! : 

d 5DEGS 

456  2 

5 . 5 SPOT 

01,2167 

5. 7SP0T 

01 , 2172 

5/128 

12,3771 

5/8 

1 3 , 37  1 1 

5BLANK 

40,2536 

p 8L  ANK 1 

40,2557 

5BI0 

01 ,247b 

5DEGPEES 

14,2607 

5DEGTE  ST 

15,3145 

5FAILT AB 

06 , 3242 

5MKALARM 

07,2454 

c s EC 

36,3756 

5SECDP 

36,3755 

5 S ECS 

27,2701 

50  FT 

33,2703 

c 0 K F r 

33,2701 

504  A Z 

0022 

504F 

0006 

504L  M 

E 4 , 1412 

504LPL 

0016 

241 

241 

242 
242 
242 
242 
241 
241 
749 
855 
883 

1096 
1433 
1 4 4t 
852 
967 
842 


REFERENCES 


1 239 


242 
242 
262 
523 
242 
242 
124  6 
1247 

404 

405 
1091 

936 
971 
192 
2 5c 
763 
763 
775 
878 
878 
116  8 
1148 
113 
1148 


1 7 35 

2 773 

1 817 

2 16  5 

1 1435 
1 1447 
1 852 

1 °63 

1 840 


846 
79  5 


239 
2 39 

523  544 


1 12  34 
7 1212 
6 4 04 


936 
971 
191 
2 55 
735 
7 34 
774 


1247 

457 


971 

192 

261 

737 


3 1 146 
5 1164 

3 1140 

4 1147 
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PEF. 

SYMBOL 

OFF  H 

REFERENCES 

50+RM 

04  ,2002 

45 

1 

1139 

504P.PP 

cooo 

1148 

4 

1140 

1142 

526ALAPM 

24,2102 

496 

1 

565 

54DD 

23,3244 

1 157 

1 

1153 

59 . 99  SEC 

42 , 3542 

435 

1 

435 

5 9MIN 

42,3541 

436 

1 

4 34 

6.2SP0T 

01,2016  = 

243 

1 

239 

6.3SP0T 

01  ,2  175 

243 

1 

239 

6.5  SPOT 

01,2200 

243 

6 . 7 SPOT 

01,2203 

243 

6DD 

23,3245 

1 157 

1 

1155 

6 FAIL  TAB 

06,3252  = 

192 

2 

191 

192 

6 SEC 

27,2703 

775 

2 

776 

6 $ E C ( ] 8 ) 

30,3026 

855 

1 

843 

6 SECONDS 

26,3713 

593 

1 

589 

6 SEC  S 

25  ,3545 

562 

1 

561 

60DEC 

05,3065 

218 

1 

213 

60MIN 

35,2421 

631 

6 

623 

628 

60MS 

17,2316 

1446 

2 

1445 

60SCNDS 

24,2450 

503 

1 

503 

60  CMS 

07,3747 

1331 

1 

1314 

600  SEC 

24,3662 

657 

1 

657 

600SECS 

13,2630 

1210 

2 

239 

1210 

63/64+1 

7726 

1098 

7.5 

33,3144 

883 

1 

887 

7/12 

12,3765 

1246 

1 

1234 

70DEC 

32,3561 

833 

77DECML 

37,3076 

389 

1 

383 

77001 OCT 

05,3064 

218 

1 

212 

79DISP 

15,2437 

95c 

2 

959 

8192AUG 

07,3557 

13  24 

1 

13  24 

82DEGS 

4563 

523 

1 

523 

89SEC  S 

27,2705 

775 

1 

775 

89 TEST 

40,2161 

399 

2 

398 

9/16 

12,3767 

1246 

1 

12  34 

9,6,4 

05,3364 

223 

1 

216 

90SECS 

06,3005 

181 

2 

164 

99999  C ON 

32,3255 

789 

1 

786 
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UNREFERENCED  SYMBOL 

LI  STING, 

INCLUDING 

DEE  IN  IT 

ION, 

HEAL  T H, 

G PAGE  OF 

DEFINITION. 

S YMBOl 

oef 

H 

PAGE 

SYMBOL 

DEF 

H 

PAGE 

SYMBOL 

DEF 

H 

PAGE 

SYMBOL 

DEF 

H 

PAGE 

+ AZ 

11,2356 

o 2 1 

AUTRATE1 

47  53 

= 

88 

C 1) UR  EADI 

E 5 , 1442 

= 

127 

DEG60 

15  , 247 1 

96  0 

+ EI 

1 l ,23  70 

321 

AUTR AT  E2 

4752 

= 

88 

CDUSCMD 

00  56- 

= 

92 

DELR SPL 

92 , 3541 

- 

37 

AUT R IF!  G 

0321 

= 

89 

CDUTIMEf 

E 5 , 1436 

= 

127 

DEI  TEE 

E7 , 1*  1 1 

= 

1*  1 

- AZ 

11  ,?3M 

e 21 

AUTR2FL G 

03?0 

= 

0 0 

C OUT  IME  I 

E 5 , 1434 

127 

DEI  VMID 

E 7 , 15  7 5 

= 

141 

-EL 

11 ,2353 

8 21 

AIJXFL  AG 

0147 

= 

76 

CHAN 

E5 , 14*3 

= 

127 

DEI  VTEST 

27, 2252 

76  5 

23,2040 

271 

avemi  b t t 

4753 

= 

81 

CHKBI T10 

17,2205 

1444 

DEECOF+1 

0153 

= 

98 

- MUD  T I 

33,2033 

44 

AVERAGEG 

33,2267 

861 

CHKL 1ST 

• , 3632 

992 

DEPCOF-1 

015  1 

= 

98 

AVE!  BIT 

4 747 

= 

69 

CHKSAB 

14,3261 

946 

DERCOF-2 

0150 

= 

98 

? 

6 C ' ? 1 

= 

7 49 

-- ====== : 

CK IMUSE 

52  44 

1121 

DERCOF-^ 

01*7 

= 

98 

H i\  n-;  nriT 

c p 

r k m n m n f 

_ 

1 H F P 

f) pr  r nr  / 

0145 

_ 

C q 

ABORT 

5 6 44 

— 

1384 

bdtok 

27 ,2461 

771 

CKRNDBIT 

43,2666 

280 

DELCOF-5 

0145 

= 

98 

ABVAL 

00,3201 

1075 

BHI  Z 

01,2452 

1090 

CL 1/NET+ 

20,3462 

1500 

DERCOF-6 

0144 

= 

98 

ACCOKFLG 

0317 

= 

6 3 

81  AS TEMP 

Efc,  1711 

= 

135 

cngl 

22,2400 

357 

DERC.OF-7 

0143 

= 

98 

AC MO DB I T 

4737 

= 

('  8 

BTGAOS 

20,3341 

149  8 

CNTCHK 

C 7, 22 35 

252 

DEE  COF-8 

0142 

= 

98 

ACQSABR  T 

00 ,3723 

10  36 

BI T14t7 

26,2252 

475 

CNTf  CHK 

43,3466 

1299 

DEC I GFI  G 

0271 

= 

85 

A DOR E S S 

i n 

1 ) O/v 

T T4H 

Xo  * q 0 ‘HO 

P ^5 

rn af f f F 

1 4 T H H (S  0 

-4-7 

OEY  ? 

01*4 

_ 

98 

ADPS  + 1 

43,3625 

1292 

BITS, 9 

17, 3111 

1456 

COFMAXGO 

22,2176 

353 

DFRNT 

40,3364 

*45 

AFCCALC2 

31,3214 

909 

BL  ANKCHK 

IP ,3132 

1366 

COGAFBIT 

47  50 

= 

80 

DGOOD? 

32,2741 

604 

A F DU  M P 

3 1,2223 

7 93 

BLANKS.  ET 

0114 

= 

96 

COM.PMAT 

13,2237 

710 

D I DEL  AG 

0020 

= 

67 

agSbuffe 

E 4 , 1 6 1 5 

= 

1 17 

3NKCHK 

43 , 3716 

1 2 °3 

C0NTDES2 

26,3576 

590 

D IM08 1 T 

475  3 

= 

71 

A GS3 ' . P K 

32,2022 

207 

BNKOPTN 

43,3313 

12  87 

CPNV3 

42, 3625 

487 

DMENFBIT 

4743 

= 

74 

A GSL  1ST 

05,2407 

= 

I03 

8RSPCT1 

31,2617 

802 

Cr'°YC  YC  2 

33,2627 

977 

DNLRALT 

1341 

= 

107 

AGSUPDAT 

0001 

= 

236 

BRSP0T2 

31 , 2702 

804 

CORFOUND 

01,2636 

1107 

DNLSTADR 

0392 

= 

99 

Al CGKK 

37,2627 

385 

BP  SPrT3 

31 ,3057 

807 

COUNT PL 

E5 , 1542 

= 

127 

DGAL ARM 

5155 

= 

1384 

ALGORTH.M 

21 ,3 1 A3 

1473 

8P.SPC  T4 

31,3243 

810 

CSMDKFI.G 

03  05 

= 

87 

DOAL IGN 

15  , 9121 

971 

ALINEX 

26,2067 

330 

BUSY MASK 

1G ,3527 

137  2 

CS359+ 

35,2415 

631 

DOOM ADR 

05,3524 

991 

ALKCG 

37,2632 

3 85 

BUTTONS 

05 ,2703 

215 

CULTBJ T 

4745 

= 

71 

DODNCHAM 

05,3572 

QC.  ? 

ALMNCADR 

6734 

1 384 

#12-1 

4356 

= 

461 

CYCLSHFT 

43,3475 

1290 

DORS. AMD  2 

25,2027 

490 

ALPHATRY 

21, 3345 

14  79 

B 5 TO  B 8 

01 ,2465 

1090 

Cl  MP 

E6 , 172  8 

= 

135 

DOSHIFT 

21,3537 

1462 

ALRMS27 

24,2776 

5 10 

C1PP 

E6  , 1721 

135 

DOT  I XBR 

01 ,2424 

1088 

Al  TRDlJT 

21,21  67 

8 9^ 

f AHRM  AD  V. 

0373 

i o,n 

r?MP 

FA  - 1 7 1 7 

_ 

1 "H  F 

HP  AftR  F F 

7255 

1036 

ALT  SCALE 

0272 

= 

85 

CAL COTR 

E5 , 1460 

= 

127 

C2PP 

E6,  17  15 

= 

135 

DP SB URN 

E6 , 1750 

= 

131 

A MEM Of  Y 

E4, 1400 

= 

1 13 

C At  C TIBET 

27, 2255 

7 65 

C2SQM 

E6 , 17 1 3 

= 

135 

DPO 

0036 

= 

9*0 

ANTEMFLG 

0 2 67 

= 

PR 

C A!  C2  BIT 

4762 

= 

7n 

C2  SOP 

E6, 1711 

= 

135 

DPI 

0040 

= 

9*0 

adpbselg 

0315 

= 

88 

CALC3BIT 

4751 

= 

70 

CSKYFLAG 

0113 

= 

73 

A OS  V 

E6 ,1544 

= 

133 

CALS  AM 

15 , 2540 

962 

DAPDATA3 

01,2396 

295 

DECNR 

40,3262 

442 

APSESBIT 

4 747 

= 

79 

CDELF/2 

0016 

= 

1268 

DAPLRUPT 

E6 ,1754 

= 

137 

DSPL  V 

41,3413 

4*3 

ARCOMF 

21 ,2 176 

3 9« 

CC!:  V E 

06,2012 

156 

DBSELFLG 

0316 

= 

88 

DUMPCNIC 

27,3426 

1272 

A SC  SPOT 

2 3,25)3 

•367 

COUANG 

E 5 ,1543 

= 

127 

DCDU 

E6 ,16  3 5 

= 

136 

DUMP!5  PGA 

27 , 3464 

127* 

A SEC  XT 

E5 ,1573 

1 28 

CDUOANG 

E5 , 1440 

= 

1 27 

DEC-  12 

12,2016 

1101 

DUMPTEF  l 

27 , 3547 

1278 

ASF!  T7 

23,2000 

= 

32 

CDUFL  AG 

E 5 , 1461 

= 

127 

DEC-6 

12,2015 

1 101 

DUMPTT  F 2 

27 , 3644 

1279 

A 

32 ,3204 

788 

CDUINC 

10  ,3660 

1 398 

DEC?7 

47  64 

= 

1 096 

DVCNTSET 

33,2323 

861 

ATOPTHIS 

13,2734 

- 

37 

CflUL I MIT 

C 5, 1443 

= 

127 

DEC29 

4765 

= 

1096 

DVMON 

33,2314 

861 

AUTOMANV 

2 6 ,2166 

474 

CDUNDX 

E5  , l 5 36 

= 

127 

DEC  5 1 

04, 3253 

1332 

DVMOMCON 

36,2550 

740 

A UT  ° ''  U D E 

n 30 1 

= 

86 

CD  UP  FADE 

£5  ,1441 

= 

127 

DEGINSF2 

40,8021 

431 

DXCR  IT  + 1 

0125 

= 

98 
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SYMBOL 

DEF 

H 

PAGE 

SYMBOL 

DEF 

H 

PAGE 

D 2 1 

Eb, 1705 

= 

1 35 

ENTPASH1 

41*  20L2 

4 06 

D60R9BIT 

4752 

= 

71 

E<  AOFBIT 

47  37 

= 

67 

ERNINUS 

40 , 3647 

470 

E /RKCALL 

04  * 2 576 

370 

$5° ‘ TEST 

17,3327 

146  2 

E / C A 1 1. 

04,2615 

371 

ETPI BIT 

4745 

= 

69 

E/ JOBWAK 

04, 2631 

372 

EXOVFLOW 

31 ,3441 

813 

E/SWITCH 

04,2613 

370 

EX  SPOT  1 

31 , 3 3 lo 

811 

E ARTCNTR 

14,2522 

936 

6 X V E r • T 

31,3436 

813 

E IGHT 

4750 

= 

1 0 c 9 

EO 

E7, 1676 

= 

1 4 5 

c o 17  7 7 

1 1 9 

pop 

F 6 » 16  3 h 

— 

116 

END-FA 

E4,17  57 

= 

1 19 

E 1 

E 7 , 1700 

= 

145 

END-E5 

E5 , 1 774 

= 

128 

E3 

E 7 , 1704 

— 

145 

END-Ft 

to  , 1 / I 

~ 

1 - f 

END-F7 

F 7 , 1 7 7 7 

= 

152 

FALTPF 

4370 

461 

END-E7.0 

E7.1745 

= 

1 52 

FAZAl 

23, 2775 

1154 

p A 7 o 1 

9 n 7 ^ 

1 1 FF 

t M J t f • 1 

END-E7.2 

4000 

= 

1 c 2 

FDA  I Y 

E4, 1745 

118 

END-E7.3 

E7 , 1 6 TO 

= 

15? 

FD  A I Z 

E4, 1746 

1 18 

!Z  7 1777 

1 q 2 

F F T A C.  1 1 

40  OQ 

_ 

28 

END-E7.5 

E 7 ,1655 

= 

1 c2 

FF  TAG  1? 

4000 

= 

2 8 

END-IN/M 

FT, p? 

= 

I 4 2 

FF  T AG  13 

40  00 

= 

28 

EMD-UF 

13  57 

= 

1 08 

FTRTfMF 

3 5 ,3  046 

668 

EMDBALL 

26,2346 

478 

F INAL  BIT 

4746 

= 

69 

ENDCHKG 

37,2366 

379 

F INFK2 

43,2367 

2 73 

ENDDAPTA 

5270 

= 

189 

FT'  EP 

16 , 304 1 

1431 

ENDH'*  SS 

42 , 3 606 

= 

436 

F I 'QR 

17,2225 

1444 

EMDL  : H 

34,3744 

8 93 

firsttmf 

27, 3171 

77  9 

E 0 Af  UV 

26,2174 

4 74 

FT  xCt.PAS 

40,2402 

402 

ENDMARKS 

07,2317 

253 

FL AGORGY 

32,3017 

785 

ENDNVBSY 

04,2655 

464 

FI  APB  IT 

4744 

= 

81 

ENDPASTE 

4143 

439 

FL  ASHH? 

21,2025 

829 

ENDPINBF 

4512 

= 

465 

FL  PCBIT 

4740 

= 

80 

ENDPINS  1 

40,3674 

= 

471 

F L P I BIT 

4741 

= 

80 

E NOP  I NS 2 

41,3771 

= 

46  9 

FL  VRBTT 

6?3  6 

= 

00 

E N DR  t'  PDF 

4616 

= 

525 

FREER ET 

0144 

= 

97 

ENDRPLL 

22,3226 

369 

FSPAS8JT 

4742 

= 

65 

ENDRODAT 

41 ,2  316 

411 

FUELNEED 

E7 , 1666 

= 

1 50 

ENDSPPCT 

40,3415 

445 

FLJNCT3 

21,3252 

1 4 75 

E ' I E E 

3 - » 3 6 fc 

761 

ENDS 4 0.9 

27,2725 

776 

G D L m P l 

31  ,3453 

813 

ENDVPUS  H 

6 540 

1020 

GENMARK 

10, 3021 

1364 

END2DEC 

40,3305 

442 

GEO  I MUT T 

37 , 2004 

373 

ENGUNFLG 

0123 

= 

74 

, GFORGEK 

37,3111 

389 

E NT  Ec DAT 

07,2073 

246 

GT  ST  TC 

37 , 3025 

388 

ENTERQR 

17,24  16 

1467 

GETAOSUV 

20, 3242 

1497 
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SYMBOL 

DEF 

H 

PAGE 

SYMBOL 

DEF 

H 

RAGE 

GETRPCI 

21 ,3303 

1475 

IMTVEC 

E5 ,1462 

= 

128 

GET  2 2/32 

21,2652 

903 

INTYPBIT 

475  0 

= 

71 

Gl OK  FBI T 

47  36 

= 

70 

INTZ 

E5 , 1474 

= 

128 

GMBl B ITB 

21,3635 

1484 

IPIGCOMP 

06,3330 

328 

GN/CCODE 

5001 

1096 

I SSUP 

06,2321 

165 

GO AG  IN 

10,3050 

= 

1 37  2 

ISSWOFF 

06 , 2T16 

179 

GOCLOSE 

2 1 , 36  2 5 

1484 

ISWCALL 

4700 

1000 

C-0  DSP 

10 , 2443 

1357 

ITRPNT 1 

32,3354 

817 

GODSPP 1 

10,2452 

1357 

I TPPNT2 

32 ,3510 

819 

1 3R7 

t T P 0 

6370 

1 n 1 

uUUjr  c. 

GOGOMARK 

10,2405 

1356 

itp  1 

6357 

1014 

G0MARK2 

10,2337 

1355 

ITR10 

6142 

1005 

GQMARK2R 

10,2356 

1355 

I tt  1 1 

6202 

1006 

GOMAF 5 

10,2331 

1355 

ITF  12 

6134 

1005 

GOPERFRS 

10,2705 

1 3b  2 

ITR14 

6237 

10C8 

r , pro  r r 

1 UP' 

T Tt  i c: 

A.  1 -)  a 

1 

GC  F ERF1R 

10,2703 

1362 

ITR7 

626  1 

1009 

G0PERF2 

10, 26  30 

1360 

ITSWBIT 

473  5 

= 

77 

O1  '.'C:  V 

9 3 r c dL  4 H 

O 0 1 

GO  XD  S n 

10,2330 

= 

1372 

J AMP ROC 

4243 

456 

GUXDSPR 

10,2350 

= 

1372 

JETS ON 

17,3402 

1463 

; GPP 4 OFF 

32, 3704 

835 

JSWCHRf j 

4736 

= 

65 

GTSGO+OM 

21,3113 

1472 

GUESS 

37 , 20  20 

373 

KAOS 

16 ,2623 

1427 

SUES SB I T 

47  52 

= 

68 

KEYCOM 

04,3303 

1338 

CUES  SI 

37, 2255 

3 77 

KLEENEX 

10,2333 

1355 

GUI L DEN 

31,2467 

800 

K 1 

E6 , 1703 

= 

135 

GYTOBETQ 

E5 , 14  62 

= 

127 

K2 

E6  , 171  1 

= 

13c 

G21 

E6 , 1707 

= 

135 

K3 

E6 , 1717 

135 

K3S1 

22 , 2370 

357 

A 9 * 9 9 1 

P 

K4. 

99.9979 

357 

IOA0DTEM 

01*2 

= 

97 

K4SQ 

22,2374 

357 

TDAD3TEM 

0152 

98 

IDL  ER  ET 1 

10,330  1 

1368 

L A S T L A D W 

E7 , IT45 

= 

1C1 

IG 

E6 , 1725 

= 

135 

LASTTIME 

01,3501 

1132 

IGNALG 

32,3031 

785 

LATAZCHK 

37  ,2021 

373 

IGMALGRT 

32,3202 

788 

LATFWDV 

21  ,2562 

903 

IMMEDRET 

10 , 3367 

13  70 

LEMONM 

0056 

= 

c 3 

IMUSACK 

37,2005 

37  3 

L0S1 

E5  , 1444 

= 

127 

IMUFIN20 

07,3210 

= 

1 331 

LOS  2 

F5, 1452 

= 

127 

IMUGOOD 

07,3636 

1327 

LOT  EM  IN 

0124 

= 

96 

IMUZER03 

07 , 2766 

1311 

LOUNITX 

12 ,2004 

= 

37 

INF  INBIT 

4745 

= 

79 

LOUNITY 

12 , 2002 

= 

37 

INTEL AG 

0227 

= 

82 

LOUNITZ 

12  , 2000 

= 

37 

I NTOTH I S 

13,2300 

710 

LRALTFIG 

0276 

= 

86 
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SYMBOL 

DEE 

H 

PAGE 

SYMBOL 

DEF 

H 

PAGE 

SYMBOL 

DEF 

H 

PAGE 

SYMBOL 

DEF 

H 

PAGE 

LRPQSCHK 

25 ,3220 

556 

NEC TURKU 

E 6 , 1 5 1 6 

= 

133 

DUEGCALC 

2b, 36 10 

591 

PCWFLIT1 

23,2000 

= 

32 

Li-‘  Ft  G 

0275 

= 

86 

NEGTOPKV 

E 6 , 1 5 20 

= 

133 

npTAXIS 

07,2142 

248 

PR  EB JUMP 

5316 

1294 

LRS24. 11 

20,3471 

cFv 

NEGTOTKP 

E6 ,1514 

= 

13? 

OPT  I0N3 

1146 

104- 

PRECIBIT 

4744 

= 

71 

l PIJOT 

001  1 

= 

02 

MF  G100 

5172 

1116 

OPTNBIT 

4745 

= 

69 

PR  10  DFLG 

0075 

= 

72 

L RVEL  BIT 

47^4 

= 

36 

NEG5 

41,2115 

408 

QPTNREG 

E 5 , 1463 

= 

127 

PF.  101 

4742 

= 

10c9 

LRVELFLG 

0273 

= 

86 

NETZERO 

6121 

1005 

OF  BM AN AC 

32,3767 

837 

PR  1 0 1 1 

50  2 2 

1057 

L ‘ 

0144 

= 

ST 

NEW! BIT 

4737 

= 

79 

ORBWE El T 

47  46 

= 

7) 

PKI02 

4741 

= 

1099 

LUNAR  IT 

4740 

= 

70 

NJ  ET  SB  IT 

47  35 

= 

67 

ORDERBI T 

4746 

= 

70 

PP 1036 

7724 

1058 

= ===  = ===- 

fin.  v JETS 

E6 , 1523 

= 

133 

ORIG 

E4 , 1515 

= 

115 

PPCCEEDE 

06 , 2075 

158 

M ANUFBIT 

4736 

= 

77 

MO  BITS 

E 5 , 1442 

= 

127 

PR  l-G  I N 

E5 , 1773 

= 

126 

PRODUCT 

21 ,3525 

148  2 

MANUFLAG 

0152 

= 

77 

NCMDNLST 

05,2172 

= 

193 

OTHSHIP 

22,3333 

714 

PRO  J 

0022 

= 

150 

M ANUST AL 

22,3067 

366 

NOP ESET 

07 , 3430 

1321 

OUPRCFLG 

0306 

= 

87 

PRONVBIT 

4745 

= 

73 

MARKED ■ 

10,23*0 

13  55 

NO  FINAL 

13,3300 

12  18 

OUTGO AVE 

22,3707 

= 

864 

PSKI PADR 

16 ,3623 

1441 

MASKREG 

E 5 , 1 5 34 

= 

127 

NORMSBIT 

4742 

= 

77 

OUT  L INK 

0057 

= 

93 

PSTHIGAT 

0251 

= 

83 

MASS ^CN 

33,2233 

360 

NORMS  Cl 

16 ,36  14 

1441 

PUL  SEEL G 

0303 

= 

87 

M DOT  APS 

■ ,2  i - 

33 

Mn PM  TEST 

00 , 35  12 

10  81 

P-RATE 

16 , 25 10 

1 4?  r' 

PUL  SEM 

14,3230 

Q4  5 

METHOD  2 

22,2216 

354 

NPMID8IT 

4737 

= 

72 

PAR AM30 

35,2017 

614 

PUTXY 

41 , 2714 

426 

MGLVFBIT 

4752 

= 

75 

NRMI DEL G 

0076 

= 

72 

PDA 

0C26 

= 

124 

PUTXYZ 

41 , 2632 

425 

M IDAVB  IT 

47  52 

= 

81 

NRMNVBIT 

4744 

- 

72 

PEREC HEK 

10,3135 

1366 

P12LMB 

30,2122 

83  9 

M I DEL R IT 

47  37 

= 

65 

MF  UPTBI  T 

47  50 

= 

73 

PHI 

00  24 

= 

520 

P20LEMB7 

24,2130 

496 

MTD1FB1T 

4751 

= 

81 

M PUP  TFLG 

0107 

= 

73 

PHS3B1 

E 3 , 14  37 

1 09 

P2CI  EMF 

24,2271 

498 

MKOVEI  AG 

0110 

= 

73 

Nc-TFER 

36 ,3672 

762 

PHSBB2 

El,  14  41 

10° 

P20LMWT  1 

24,2241 

493 

MKVAC 

07,2014 

2 44 

ntargbit 

4751 

= 

76 

PH  SB  B 3 

E3 , 1443 

109 

P20S2 

25 , 2000 

= 

32 

MKVB52 

07,2620 

260 

NVSBWAIT 

4445 

464 

PHSBB4 

E3,  1445 

109 

P?1 

E6 , 1703 

= 

135 

MKVB5  3 

07,2617 

2 60 

NV:  UBCf  ••• 

4170 

452 

PHSBB5 

E3 , 1447 

109 

P25LEMWT 

24,2435 

5C3 

M0DE7 I 

05,3500 

8 32 

MWAI TBI T 

4 742 

= 

72 

PHSBB6 

E3 ,1451 

109 

P30N33 

36 , 2004 

614 

M ON  I T 1 

41  ,3232 

437 

NWAITFL G 

101 

= 

72 

PHSNAME4 

E 3 , 1444 

109 

P39SWBI T 

4743 

= 

79 

MOONBTT 

4740 

= 

65 

PHSNAME6 

E3 , 1450 

109 

P41FJET 

36 , 3303 

755 

M R K I D B I T 

4735 

= 

72 

0CT0C010 

4750 

= 

2 32 

PHSPP.DT5 

1064 

102 

P4 1MANU 

36,3215 

754 

MRKI DFLG 

0074 

= 

72 

OC  TO? 1 00 

06,3131 

187 

PHSPMDT6 

1066 

102 

P41N0PM 

36,3312 

756 

MRUPTBIT 

4747 

= 

73 

OCT  10000 

4737 

= 

218 

PINBR8I T 

47  46 

= 

73 

P52E 

lc ,2102 

928 

MRIJPTFLG 

0106 

= 

73 

OCTl  1 

4 320 

= 

1 C 9 5 

P INTEST 

43,2002 

= 

46  6 

P52V 

15 ,2130 

928 

M 11  ( P ) 

00  32 

= 

1247 

OC  T 1 1 03 

5710 

1333 

°l PASCFY 

63 , 14 55 

109 

P5  7 A 

15,3353 

975 

MUM 

13,2004 

, /<.£> 

OCT  20 

4747 

= 

749 

PIPASCFZ 

E3 , 1457 

109 

P63IGN1 

36,2514 

739 

MUM (-37) 

27,2024 

44 

0CT203 

26 , 2253 

475 

PIPUSE 

07,3273 

1318 

P6  5VEP.T 

31 ,3534 

815 

MUNRVG 

33,3066 

8 82 

0CT21 7 

5714 

13  83 

PL  USX 

27,2423 

769 

P66N0W? 

31 ,2564 

801 

MWA.IT  BIT 

474  1 

= 

72 

0CT25 

4362 

= 

1C  99 

PMINM 

34 , 21  0.3 

632 

P67N0W? 

31,2474 

8C0 

MWAI  TFLG 

0100 

= 

7 2 

■OCT  30000 

4355 

= 

218 

P0N2 

37 , 2240 

376 

P70INTT 

32 , 3563 

833 

MXMY'  Z 

26,2757 

57° 

OC  T3CQ02 

6471 

= 

10  99 

POOH 

04 ,2163 

229 

P70NQW? 

21  ,2061 

830 

0CT40200 

7735 

1093 

POSGMBL 

37,2064 

374 

P71 

21 ,2075 

830 

NBD3 

06,3606 

334 

OCT40420 

10, 3536 

1373 

PQSITF 

15,374-3 

986 

P71N0W? 

21,2046 

829 

NBPOSPL 

37,2012 

373 

0CT67777 

10,3535 

1373 

POSTORKV 

E ,1517 

= 

133 

NB1MB2 

23,2513 

= 

37 

0CT7777 

05, 3057 

218 

PO SUP  DAT 

33,3165 

884 

QUADGUI  D 

31  ,3121 

«08 

N DC'"  P ' ST 

41 ,24  36 

415 

OGF 

E 6 ,1717 

= 

135 

POS 1/4 

12,3755 

= 

1246 

QUALITY2 

13, 3732 

1247 

N E EDI  Ell 

20,2334 

1418 

01  DES  FI.  G 

0016 

= 

66 

PCS2CHK 

33,2502 

874 

QUALITY3 

11 ,3160 

1235 
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S YMBC'L 


DEF 


H PAGE 


OUITBI  T 

4747 

8 1 

RCDUFAIL 

RCDUOFLG 

0274 

0266 

= 

86 

85 

RDIFF 

E6 , 1452 

= 

1 32 

R DM 

13,3721 

1247 

R DSP 

E5 ,1434 

= 

127 

R EC AL  3 

40,3575 

<•  5 a 

R EDPMANN 

26,2125 

473 

R EMODFl  G 

0265 

= 

PS 

R EPOS  MON 

0270 

= 

85 

R EQEXLOC 

41,2207 

409 

R ERF  CALC 

17,26^6 

1451 

R GEX  I T 

E 7, 1665 

= 

142 

SYMBOL 

R61LE-M1 
: 6 H E M2 


DEF 

23 ,2137 
23,2175 


H PAGE 

513 

518 


SYMBOL 


DEF 


RHCSCFLG 

rlMuwit 

R MM 

RNGE DATA 
Ror 

ROOTPS+l 
ROTFLBIT 
R PAD  1 


0313 
00  1A 
12,2017 
0260 
04,2143 
0127 
47  A 6 
23,2314 


67 
593 
37 
84 
2 29 
93 
91 
i 283 


S+2 

S+3 

S+4 

S+5 

S+6 

S-? 

S — 3 
S— 4 
SAVE 

SAVLFL AG 
SBIT1 
SB T TIG 
sS  T T 1 3 
SB  I T 1 4 
SBIT2 
SBIT3 
SB  IT 5 
SB  IT  6 
SB  IT8 


<,7  52 
6245 

4751 
4 7 56 
6242 
7746 
7745 
61 12 

E5, 1464 
1072 
,753 
4742 
4737 
47  36 

4752 
4751 
4747 
4746 
4744 


1285 

1285 

1285 

1285 

1285 

1286 
1 286 
1286 

127 

1372 

12F5 

1295 

1235 

1285 

1285 

1285 

1285 

1285 

1285 


E5, 1646 
4751 
05,3633 
05,3652 
22,2376 
47  51 
20 , 3444 
37,3040 


SINB 

SLOPEBIT 
SNAPAGN 
SNAPEND 
SNGL  CD 
SOLNSBI T 
SOME  AOS 
SCMEERRP 
SOPT ION 2 43, 3323 
S0PTT0N3  43,3324 
S0PTI0N4  43,3325 
S(  PTI0N5  43 , 3326 
S0PTICM6  43,3327 
S0PTI0N7  43,3330 
S'.'PTONiC  43,3331 
SOUP i Y 37,3071 
SPECSTS  37,2572 
SPSCODE  4743 

STARM  0040 

STAKTDAP  16,2046 
STAR t MN  V 26,2172 
STARTSIM  05,2452 


HEALTH  KEY:  NORMALLY  DEFINED  UNLESS  FLAGGED  AS  FOLLOWS: 


H PAGE 

= 123 

= 68 

903 

904 
357 

= 75 

1500 
38  8 
1287 
1287 
1287 
1287 
1287 
1287 
1287 
389 
384 
= 1309 
= 124 

1411 
474 
21  1 


RPQFLBIT 

473  5 

= 

78 

SC ALBAD 

0261 

= 84 

STARTSTQ 

6434 

1017 

RRCHFCK 

4576 

524 

SC  L NORM 

17,3112 

1456 

STARTSW 

05,2451 

21 1 

RRDATAFL 

0 277 

= 

86 

SD 

22 ,2366 

357 

STATEXIT 

E4, 1516 

= 

115 

RRI  Or  VEC 

1 101 

= 

5 71 

SECAD 

22,2027 

351 

ST  Cl.  OK  3 

36,2665 

743 

RRN88IT 

4746 

- 

66 

SEC01 

4777 

= 763 

STDESIG1 

25,2616 

56  6 

RRRSFl  AG 

0 300 

PA 

c.  f=  r 1 p 

**A  . 3,  7 RH 

763 

CTppK! 

3 1 .947  n 

SQn 

R STKLOC 

E4 , 1 754 

= 

1 1 9 

SEC15DP 

36,3747 

763 

STORHAPO 

22 , 3600 

720 

RUPDATED 

33,3307 

8 86 

SEC30DP 

36 , 3751 

763 

STORHPER 

22,3612 

721 

R IP  ‘ 

.00  63 

- 

55 

SEC45 

36 ,3754 

763 

ST  N AT  GY 

14,2714 

939 

R VSWBTT 

4743 

= 

77 

SF.C45DP 

36 ,3753 

7 63 

SUPF.f  100 

4745 

= 

1096 

R WA I T K 

43,214 5 

265 

SELF  SUPR 

40,2000 

= 36 

S32B1T1 

473  5 

= 

75 

R 21L  EMI 

24,2733 

5 

SFNiSFGET 

17,2114 

1442 

S32BTT2 

4736 

= 

7 5 

R 2 1 L E ' 3 

24,2742 

5 09 

SETCTR 

21 ,3663 

1508 

S32BIT3A 

4737 

= 

75 

R22LEM12 

24,2463 

5 04 

setinfl 

05  ,2731 

215 

S32BIT3B 

4740 

= 

75 

R24LEM  1 

24,3212 

515 

SETMARK 

10 ,2526 

1359 

S40. 133 

27,2647 

775 

R 29? 

33,2547 

376 

SETPF 10 

10 ,2510 

1358 

S 4 0 . 1 3 7 

27,2641 

775 

R300K 

27,3766 

1283 

SETXFLAG 

07,26  67 

= 851 

S50 

14,2506 

= 

935 

R51.2 

14, 3055 

94-1 

SF  CON  ST  1 

E 5 , 1467 

= 127 

S52. 2. 1 

14,3637 

953 

R 51F 

14,3042 

941 

SFRET 

4 1 , 3064 

428 

R 55 . 1 

14,3231 

945 

SF  R E T 1 

41 ,3046 

428 

TBASE3 

1057 

102 

R 601 N I T 

32,3176 

7 38 

SHAFT B.Q 

26,3011 

580 

TCALARM2 

43,3264 

1286 

R61C+L03 

23,2133 

5 I 7 

SIGN RET 

0125 

= 96 

TCCSM 

E 3 , 1 6 2 2 

11  1 

R61C  + 1 1 

23,2254 

5 19 

ST M2  C ADR 

05,2454 

21  1 

TCL  EM 

E 3 , 1 6 7 4 

111 

SYMBOL 

DEF 

H 

PAGE 

TDECAYFX 

4770 

1096 

TEMP 

E5  , 1441 

= 

127 

TEMP ADD 

E5 , 1440 

= 

127 

TENDAPPR 

E7 ,1624 

138 

TESTCOS 

32,2672 

602 

TESTVB 

41 ,2041 

407 

TETOTHER 

E3 , 1570 

= 

111 

TFFCONIC 

27 , 3360 

1271 

TFFSWBIT 

4753 

= 

78 

TFFTICK 

22,3453 

716 

TFI 

E7  , 1453 

= 

139 

TGOCALC 

27,2464 

771 

THDUMP 

31 ,2367 

796 

TICKTPER 

22,3610 

715 

TIMER 

E5 , 1670 

= 

127 

ICHK 

22 ,3066 

366 

TMEX I TL 

05,3704 

994 

TMRESUM  E 

05,3706 

994 

TRAC El 

40 ,3236 

461 

TRAC  El S 

40 ,3247 

441 

TRUNBO 

26 ,3107 

581 

TSNEXTS 

17 ,2174 

1 44.3 

TSSR. 

00 , 2025 

1047 

TSTPOINT 

23,3755 

1264 

TTFSCAl  E 

6740 

= 

827 

TURNON 

17,3125 

1456 

TIB  NO  NFL 

0302 

= 

86 

T A IDR 

17 . 9 r.  9 9, 

1404 

U AX  I S 

20 ,3316 

1499 

UDB2. 

0136 

= 

1505 

UDB3 

0140 

= 

1505 

UNFVX/2 

E6 , 1667 

= 

136 

UNKNOWN 

0007 

= 

1 93 

UNLR/2 

0024 

= 

150 

UNLP  B/2 

0024 

= 

150 

UPDNLI ST 

05,2407 

= 

193 

UPDT  TEND 

42  ,2032 

275 

UPEND73 

04,3536 

1 3C2 

UPLOCKFL 

0164 

= 

78 

UPOK 

04,3350 

1339 

UPPART3 

06,3562 

= 

1 3°2 

UPRPT1 

04,333 1 

1339 

UPTHROT 

32,3667 

834 

UPWAKE 

06,3654 

1392 

UN  UNDEFINED 
BD  BA DLY  DEFINED 
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SYMBOL 

DEF 

H 

PAGE 

SYMBOL 

DEF 

H 

PAGE 

SYMBOL 

DEF 

H 

PAGE 

SYMBOL 

DEF 

H PAGE 

USEGTS 

33,2336 

862 

VG6N7 1 

07,2625 

260 

30KFT 

33,2705 

878 

USEQPFLG 

0306 

= 

87 

VI 

0016 

= 

960 

OE  BANK 

43, 3341 

1288 

360SWSIT 

4753 

= 80 

VAC  7 

£4,1563 

- 

1 16 

V c 

V 3 

0030 

= 

940 

1. 9 5 SEC  S 

33 , 3143 

883 

6. 11  SPOT 

01 ,2104 

241 

V AC  1 

0401 

1 00 

V37XEQC 

04,2357 

232 

1/FTMU 

27 , 20  30 

46 

4.  1 3 SPOT 

01 , 2107 

26  1 

V AC  2 

0455 

100 

V5ONO0A 

32 , 21 71 

209 

L/10S 

17 ,2343 

1446 

4. 15SP0T 

01,2112 

241 

VAC  3 

0531 

1 00 

V67FLBIT 

4744 

77 

1/10SEC 

16,3132 

1433 

4. 17SP0T 

01,2115 

241 

V AC*- 

0 605 

1 00 

V7  4 

43 , 3045 

= 

283 

1BTTDP 

26,2407 

484 

4.21SPPT 

01,2120 

241 

VECTABND 

E4 , 1 574 

= 

1 14 

V 8 2 F M B I T 

4 752 

= 

78 

1SECX 

4777 

= 

381 

4. 23  SPOT 

01 ,2123 

2<  1 

1 fl  0 M Q IIPT 

77  27 

_ 

iy  2 5 $ P P T 

m .91 

VELDATA 

02  55 

= 

84 

W.  IND1 

1260 

= 

107 

120MS 

5751 

1 

181 

6 . 27  SPG  T 

01,2131 

241 

V ELUPDAT 

33 ,3315 

886 

WCAL  C 

22, 2746 

36  4 

17T020 

43,3643 

1292 

4.31  SPOT 

01  ,2134 

242 

VERI FLAG 

016  5 

= 

78 

WHAT.  UT 

3 1 ,2371 

796 

-~  = 

4.33SP0T 

01,21 37 

242 

VERROP 

E6 , 175? 

= 

131 

WPLATI 

E 5 , 1560 

= 

128 

■ 2. CSPT 

04,2130 

228 

4.35  SPOT 

01,2142 

242 

VERTDP  FT 

37,2231 

3 76 

WPL ATO 

F 5 , 1 466 

= 

128 

2.  1 1 SPOT 

01,20  40 

240 

4. 3 7 SPOT 

01,2145 

242 

VFL  AGBIT 

it  7 4 9 

_ 

7 0 

-a{k  QD  P T 

01  1 A 

_ 

96 

9,l|ipT 

n s.  f 9 1 ^ i 

228 

U . s 6 DOT 

n 1 . ?n? A 

241 

VINTFBIT 

47  51 

= 

71 

2. 1 3 S POT 

01 , 2043 

240 

4.7SPPT 

01,2101 

241 

VLAUNS 

E5 ,1462 

= 

128 

XACTO 

43 ,2116 

264 

2 . 1 5 S POT 

01,2046 

26-0 

V PD 

0000 

= 

540 

XDELVBIT 

4744 

= 

69 

2. 17 SPOT 

01,2051 

240 

5.4SP0T 

01,2156 

26  2 

VPDVL 

6 573 

1021 

XDIFF 

12,2163 

1176 

2. 21  SPOT 

01,2054 

240 

5.5SPOT 

01,2167 

26  2 

VREC T L E : 

E3, 1634 

1 11 

XKFPCSM 

E3 ,1624 

111 

2.5SPOT 

01,2032 

240 

5. 7 SPOT 

01 , 2172 

262 

V STORE 

*,463 

LU7 

xk  EPL  EM 

E3 , 1676 

1 1 l 

2.7  SPOT 

01 ,2035 

240 

5 BL ANK1 

40,2557 

4C5 

VUPOATED 

33  ,3  513 

889 

XSMADR 

37 ,2477 

381 

2DZER0 

12,2006 

= 

1137 

5 B 10 

01 ,2476 

1091 

VV/Sf 

7627 

1045 

XI  INPUT 

7,1611 

= 

142 

2RNDEND 

40,3173 

43  4 

50FT 

33,2703 

878 

VVXSC 

7404 

1040 

2VEXHUST 

E 7 , 1742 

= 

772 

5 OK  FT 

33,2701 

878 

V X SC  A L 

33,2016 

41 

ZERO DP 

1 2 ,2006 

= 

1101 

26SECS 

36,3757 

763 

V YSCAL 

33 ,2C  14 

41 

ZERPP 

23,2521 

= 

1157 

27T030 

43,3651 

12Q2 

6.5SPOT 

01 , 2200 

243 

VO 

c OCifr 

__ 

9 40 

7 P n T 1 

1 7 9 p 7 1 

243 

O • r o rU  I 

V00N25 

6010 

= 

2 09 

Z0NE2 

17,3553 

1466 

3. 5SP0T 

01,2062 

240 

63/64+1 

7726 

1098 

V00N34 

4242 

= 

209 

ZONE  4 

17,3374 

1 463 

3J22R2MU 

13,2024 

46 

VO  IN  1 6 

32 ,21 70 

209 

ZCNE4  ,5 

17 ,3  363 

1462 

30DEGCHK 

24,3336 

572 

70DEC 

32  ,3561 

833 

V 06  N 0 7 

10 , 3677 

1372 

ZSCI 

E5 , 1714 

= 

124 
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DEF  PAGE  SYMBOL 


0000  92 
0000  131 
0000  235 
0000  48° 
0000  940 
0000  1146 

0000  1247 

0001  65 
0001  92 
0001  93 

0001  236 

0002  65 
0002  92 
0002  93 


A 

UNX/2 
COS  TALI'! 
UR 
VPD 

504  RPR 
PATT 
JSW  ITCH 
L 

LCHAN 
AGS  UP  DAT 
MIDFLAG 
Q 

OCHAN 


0010  1148 
CO  10  11*8 
COK  1148 
0010  1202 
C01C  1203 

0010  1204 
COll  66 

00 11  92 

cell  93 

0012  4 6 
CO  12  9 2 
00 12  '3 
0012  1202 
1012  1263 


0002  236 

9003  65 

0003  92 


0003 

93 

0003 

2 36 

0004 

65 

0004 

92 

000 A 

0 3 

0 004 

236 

0005 

65 

0005 

92 

0005 

9 3 

0005 

236 

0006 

66 

0006 

92 

0006 

03 

0006 

136 

0006 

489 

0006 

940 

0006 

116  3 

0006 

1247 

0006 

1300 

0 007 

66 

0007 

93 

0007 

193 

0007 

1 0 3 

0007 

193 

0010 

66 

0010 

92 

0010 

93 

0010 

113  8 

f’ENDEZVJ 
MOO NFL AG 
FRANK 
HI  SCALAR 
ORB MANUV 
P2I  FLAG 
FBANK 
LOSC  ALAR 
DESASCNT 
FSP ASFLG 
Z 

CHANS 
LUMP.  SAIN 
=>25  FLAG 
B8ANK 
CHAN6 
UN  Y / 2 
OPP 
VO 

SO'-  f 
VATT 
BB 

I :JSE 

SUP E R B N < 

ERAS ZERO 

SPATE 

UNKNOWN 

RNDVZFLG 

ARUPT 

O-'JTO 

GAMRP 


0013  66 

0013  9? 

0013  93 

0014  66 

0014  93 

00 14  136 

0014  S93 

0014  593 

0014  940 

0014  1202 
0014  1203 
0014  1204 
0014  124 7 

0014  1269 

0015  66 

0015  92 

00 15  93 

0016  66 

0016  92 

0016  93 

0016  936 

0016  939 

0016  1148 
0016  IKS 
0016  1202 
0016  1203 
0016  1204 
0016  1247 
0016  1247 
0016  1268 
OC  I 6 I 24.3 


CVECTP 
DVECTR 
SINNOQI 
41  RHA 
COGAM  IN 
MI  N 

RRNBSW 
L R UP  T 
USA!  Mr  MT 
LGKONSW 
QRUPT 
CHAN  1 2 
XM  AX 
TPFDELQ 
NEEDLFI.  G 
SAMpf I ME 
CHAN  13 
FREE  FI.  AG 
CHANIb- 
UNZ/2 
PL  1UN.TT 
UXVECTPP 
VI 

XMIN 
D.COGA 
DEL INDEP 
T AT 
» AG  1 
R10FLAG 
ZRUPT 
MNKEY  IN 
OLDE SFLG 
BALK  I UPT 
NAVKEYIN 
CEAPTH 
CSS 

T3 MSUBM 
504 L P L 
1/MU 
COGAM AX 
MAX 
R ATT  1 
UR  PV 
CDF  L f / 2 
TFFQ1 


0016  12  7 ■ , 

C->17  67 

0017  92 

0020  67 

0020  92 

0020  124 

0020  93b 

0020  987 

>020  1202 
>r  12'  ' 

0020  1274 

0021  67 

C 0 2 1 92 

0022  67 

0022  92 

3022  12R 

0022  150 

0022  593 

0022  936 

0022  940 

0 C 2 2 IS  - 
0022  1202 

0022  1247 
0022  1268 

0023  92 

0024  67 

0024  92 

(>0  24  124 

0024  150 

0024  150 

0024  520 

0024  1148 
0024  1148 
OR  24  1202 
0024  1247 
0024  1247 

0024  1268 

0025  92 

0026  47 

0026  92 

0026  124 

0026  124 

0026  987 

0 0 26  120 

0 026  12  f 8 


K PER 

NJETSFLG 
BRUPT 
DIDFLAG 
CYR 
COSTH 
C.SUN 
STMP 
00  T MU 
NR  T ERM 
RAPO 

ER ADFLAG 
SR 

FODFL AG 
CYL 
S I NTH 
PPOJ 

UYVECTPR 

CMOQN 

V2 

504  A Z 

1 /ROOTMU 

COSPHI/2 

RTERM 

EDUP 

R61FLAG 

TJ  ME 2 

THETA 

UNLR/2 

UNLRB/2 

PHI 

AVECTF 

HMATRIX 

X 

UZ 

VATT1 

TFFVSQ 

TIME1 

VEHUPFLG 

T I M E 3 

PDA 

ZPRIME 
GTMP 
I TERCTR 
TFF1/ALF 


0027  67 

0027  92 

0C30  67 

0030  92 

0030  93 

0030  940 

0030  987 

C 0 3 0 1202 
0030  1204 

0030  126« 

0031  63 
0C3 1 92 

0031  93 

0032  92 

0032  93 

0032  661 

0032  1148 
0032  1202 
0032  1247 

0032  1247 
C032  1268 

0033  68 

0033  92 

0033  93 

0034  68 

0034  92 

0034  93 

C 034  1202 

0034  1268 

0035  92 

0035  93 

0036  63 

0036  92 

003  4,  940 

0036  1202 
0036  1204 

0036  1268 

0037  68 

0037  92 

0040  68 

0040  92 

0040  124 

0040  940 

0040  1148 
0040  1202 


UPOATFLG 
TIME4 
NOUPFL  AG 
T I ME  5 
CHAN 30 
V3 

T I MEP 
XI 

CCS  F 

TFFRTAI.  F 

TRACKFLG 

TIME6 

CHAN31 

CDUX 

CHAN 32 

DELELO 

BVECTR 

SI  XI  ) 

MU  I P ) 

TVEC 

TFFALFA 

SLOPESW 

CDUY 

CHAN33 

GUESSW 

CD  U Z 

DNTM1 

XSQC (XI) 

TFFNP 

CDUT 

DNTM2 

DR  I FTFLG 

ecus 

DPO 

T 

DEP 

TFF/RTMU 

SRCHOPTN 

P I P A X 

ACMCDFLG 

PIPAY 

STARM 

DPI 

COB 

F 1 
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0040 

0040 

0041 

0041 

0042 
0042 
0042 
0042 

0042 
004  2 
004  2 

0043 

0044 
0044 
0044 
0044 
0044 

0044 

0045 
004.5 

0046 
00*6 
0046 

0046 

0047 
0047 
0047 
0050 
0050 
00  50 
0050 

0050 

0051 
0051 
00  51 
0051 

0051 

0052 
0052 

0052 

0053 

0053 
00  54 

0054 

0055 


1247 

TDEC1 

1268 

NR  MAG 

68 

L9SCMFLG 

92 

PI  PAZ 

69 

STEER  SW 

92 

Q-RHCCTR 

93 

LV SQUARE 

125 

PC NORM 

1 148 

SOB 

120? 

KEPC1 

1268 

TFFX 

92 

P-RHCCTR 

69 

I Mp  UL  SW 

92 

R-PHCCTR 

93 

LV 

1 1 CO 

M n P M 7 T 

1 I JO 

IN ‘ J r 1!  L.  i 

1202 

KEPC2 

1268 

TFFTEM 

69 

XDELVFLG 

92 

INLINK 

69 

ETPI FLAG 

69 

OPTNSW 

92 

RNR  AD 

93 

XI 

69 

FI NALFLG 

92 

GYPOCMD 

93 

X 2 

69 

AV FLAG 

92 

CDUXCMD 

93 

SI 

1 148 

RPREXIT 

12  04 

TWEEKIT 

69 

PFRATFLG 

92 

CDUYCMD 

93 

S2 

1 139 

SETREX 

1 148 

eafthmxx 

70 

CAL  CM AC  3 

Q2 

CDUZCMD 

93 

QPC  ET 

70 

CALCMAN2 

92 

CDUT  C MD 

70 

NODQFLAG 

92 

CDUSCMD 

93 

THP.  UST 
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DEF 

P AG  F 

SYMBOL 

DEF 

0056 

70 

GLOKFAI. 

CO  70 

05-56 

513 

LEMCNM 

0-071 

0057 

70 

REF  SMFLG 

007  1 

0057 

93 

OUT  LINK 

0571 

0060 

70 

LUNAFL AG 

0072 

0060 

93 

altm 

007  2 

0061 

70 

- jsOR  29  FLG 

0072 

0-rtl 

05 

FXECTF'-l 

CC73 

0061 

95 

ITEMP1 

0C7  3 

00  61 

96 

WAI TEX! T 

0073 

0061 

137 

T5TEMP 

0073 

0061 

1300 

TEMPG 

0C73 

0061 

1413 

COS  MG 

0074 

0C62 

70 

VFl  AG 

0074 

0062 

95 

EXECTEf-2 

GG74 

0062 

95 

1 TF  MP2 

GO  7 5 

0062 

95 

WAI TBANK 

0075 

0062 

1300 

TEMPP 

0076 

Q063 

70 

R04  FLAG 

0076 

0063 

7 1 

LEA  DP  EL  G 

CC77 

C06  3 

95 

I T E M P 3 

007  7 

0063 

9 5 

NEWPR  10 

r 1 00 

0063 

95 

RUPTSTOR 

0100 

0063 

95 

WAI TADR 

0101 

0063 

137 

OINDX 

0 1 0 1 

0063 

1300 

TF'!  P’  '• 

0102 

0063 

147° 

NZACCDOT 

CIO? 

0066 

71 

R6ECIFLS 

0103 

0066 

95 

ITEMP4 

0103 

0064 

95 

LOCCTR 

0104 

0064 

95 

WAITTEMP 

010-5 

00  64 

1300 

TEMPER 

0105 

0065 

71 

CULTFL  A3 

0 1 c r 

0065 

95 

TTEMP5 

0106 

0065 

95 

NEWLOC 

0106 

0065 

1300 

TEM PS W 

0106 

0066 

71 

ORBWFLAG 

010  7 

0066 

95 

ITEMP  6 

0107 

0066 

1 300 

TEMPSW2 

0 1 1 0 

0066 

1676 

CHNLL2 

0110 

00  66 

147  8 

QRNDXER. 

01 1 0 

0067 

71 

STATEFL3 

0111 

0067 

95 

NEW  JOB 

0111 

00  70 

71 

INTYPFL3 

LI  12 

0070 

95 

- 'JP  Tr  EG1 

9 1 1 2 

SYMBOL 

DEF 

PAGE 

TEMPPR 

0113 

73 

Vr-TF  LAG 

0113 

96 

RUPTREG2 

0114 

96 

TEMDQ2 

0114 

96 

D60R9FLG 

0 1 14 

96 

RUPTREG3 

0114 

96 

TEMPP 2 

0114 

1 5Co 

DI MOFLAG 

0115 

74 

DSPUPTEM 

0 115 

96 

KEYTEMP1 

0116 

9 6 

RUPTREG4 

0115 

96 

tempbrcn 

0115 

96 

FLAGWRDO 

0115 

96 

M- KIOFLG 

0115 

1506 

STATE 

0116 

74 

FLAGWRD1 

0 1 1 6 

96 

PR  IODFLG 

0116 

1506 

FLAGWRD2 

0117 

74 

NRMIUFLG 

0117 

96 

FL AG  WP  03 

0117 

96 

PDSPFL AG 

0117 

96 

FL  AGW'  04 

0117 

96 

MWAITFLG 

0117 

96 

NWAI TFLG 

0117 

98 

FL AGWRD5 

0 117 

15  06 

mrknvflg 

0120 

7t 

FLAGWRD6 

0120 

96 

Nji  ^nvflg 

0121 

74 

FL  AGWRD7 

0121 

96 

PRCNVFLG 

0122 

96 

FI  AGWR  D8 

0122 

96 

PINBRFLG 

0122 

96 

FL  AGWR 09 

0122 

96 

MR UP TFLG 

0122 

96 

RASFL AG 

0122 

1 505 

FLCWRD10 

0123 

74 

NRUPTFLG 

0123 

9 6 

Ft.  DVR  Oil 

C 123 

96 

•IKE  VFL  AG 

0123 

96 

FL6WR012 

0 1 2 3 

96 

RADMODES 

0 123 

1505 

DAPBOOLS 

0124 

74 

FLGWRD13 

0124 

96 

XDSPF1.  AG 

0124 

96 

LASTYCMD 

0124 

96 

PAGE 

1 BOO 

71 

9 5 

1100 

71 

95 

1300 

71 

95 

05 

95 

1300 

6 5 

7 2 

95 

66 

72 

6 8 

72 

70 

7 2 

71 

72 

72 

73 

72 

75 

72 

77 

72 

73 

73 

80 

73 

81 

32 

73 

8 3 

73 

35 

85 

86 

87 

7 3 

96 
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SYMBOL 

DEF 

PAGE 

SYMBOL 

DEF 

PAGE 

SYMBOL 

dskyflag 

0124 

98 

DXCP  IT 

0140 

97 

MAT  INC 

1 ASTXCMD 

C 124 

1505 

1/ATEM2 

0140 

97 

MA  XDV  SW 

BLANKRET 

0125 

96 

MI XTEMP 

0140 

97 

MIX8R 

DSEXIT 

0125 

96 

SIGNRET 

0140 

97 

POI  YCNT 

EXI  TEN 

0125 

98 

DXCR IT+1 

0140 

98 

PWRCNT 

I NT  B1 5 + 

0126 

75 

NOPRMON 

0140 

1505 

UDB3 

0 6 V A L 2 

0126 

98 

ROOT  DS 

0141 

76 

MUNFL AG 

SNUFFER 

0 1 2 7 

75 

SOLNSW 

0141 

97 

DSP  E L 

DECKET 

0127 

98 

ROOT  PS+ 1 

0141 

97 

POI  Y-'ET 

I '■  TB  1 T 1 5 

0127 

1505 

1/ACOSTT 

0141 

07 

TEM  1 

WDRET 

0 130 

75 

NGLVFLAG 

0141 

98 

DERPTR 

WPDRET 

0130 

96 

BUF 

0141 

1505 

UAXDI ST 

21/22REG 

0130 

97 

INDEXLOC 

0142 

97 

DS  MAG 

DRV  AL  3 

Cl  30 

97 

S W W OR  D 

0142 

97 

I DADDTEM 

NOTHKCTL 

0130 

122 

A B V E L * 

0142 

Q7 

TEM2 

ADDRWD 

0130 

12  2 

l *WCR*T 

0142 

98 

DFRCOF-8 

DRIFTER 

0 131 

75 

R ENDWFLG 

0142 

98 

DFXDEX 

R 77 FLAG 

0131 

97 

SWBIT 

0143 

76 

REDFL AG 

CHAR 

013  1 

122 

H*GHC'-  *T 

0143 

97 

COUNT 

DECOUNT 

013  1 

122 

VS ELECT* 

0143 

97 

TEM  3 

FRONT 

0131 

1505 

Z1  TEM 

0143 

98 

DERCOF— 7 

POLISH 

0132 

75 

S 32  . IF  1 

0143 

98 

DEXI 

UPDATPET 

0132 

98 

RET ROOT 

0143 

98 

DEX1 

PWRPTR 

0 132 

150  5 

Z.5TFM 

0143 

1505 

DBB1 

ACCRETLN 

0133 

75 

S3  2 . 1 F 2 

0144 

97 

DSPWDRET 

TNG  SC  FI  G 

013  3 

97 

BUF2 

0144 

97 

FPEERET 

FIXLOC 

0 1 3 4 

75 

S32.  I F 3 A 

0144 

97 

lstptr 

D-ENFLG 

0135 

75 

S3  2 . IF  3R 

0144 

97 

R E L R E T 

OVF I NO 

0135 

97 

DMPNTEMP 

0144 

97 

SEPMNRET 

DECTEM 

0135 

97 

MP  TEMP 

0144 

97 

SEPSCRET 

Dl STEM 

0135 

1505 

UDB1 

0144 

97 

TEM4 

NOUNTEM 

0 1 36 

97 

DOT  I NC. 

0144 

98 

DERCGF-6 

SGNQN 

C 136 

97 

DVS IGN 

0144 

98 

DEX2 

VBUF 

0136 

97 

ENTRET 

0144 

1505 

DBR  2 

ACC  SW 

0 136 

97 

ESCAPE 

0145 

97 

NOUNADD 

ENGCNFLG 

0136 

406 

ENTEXIT 

0145 

97 

TEN5 

HI TEMIN 

0136 

1505 

UDB2 

0145 

98 

DERCOF-5 

MV TEMP 

0137 

76 

GMBDRVSW 

0145 

98 

RTNSAVER 

SFTEMP1 

0137 

9 7 

DOTRET 

0145 

15  05 

DBB4 

SGNOFF 

0137 

97 

DVNORMCT 

0146 

76 

NT  ARGFl.G 

1 /ATEMI 

0137 

97 

ESCAPE2 

0146 

97 

NNADTEM 

3AX  ISFLG 

0137 

97 

INTEL 

0146 

98 

DERCOF-4 

CODE 

0 137 

97 

WDCNT 

0146 

1505 

DBB3 

LOT EM  IN 

0137 

1505 

UDB4 

0147 

76 

AIJXFL  AG 

SFTEMP2 

0140 

97 

DSPMMTEM 

0H7 

97 

NNTYPTEM 
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014-7  98 

0147  1505 
0150  7c 
0150  97 

0150  98 

0151  77 

0151  97 

0 1 c 1 9 8 

0151  1506 

01  c2  7 7 

0152  98 

0152  98 
C 1 52  150c 

0153  77 

0153  98 
0 1 c 3 

0154  77 

0154  99 

0154  1308 
0.154  1373 
"154  1506 

0155  77 
0155  1308 
0155  1373 
0155  1496 

0155  1496 

0156  77 

0156  1308 

0157  77 


0157 

98 

0 1 5 7 

1306 

915  7 

1372 

0 1 5 7 

1373 

0157 

1496 

0157 

1506 

01  57 

15  06 

0160 

7 7 

0160 

1372 

0160 

1373 

9 160 

1406 

0160 

1496 

0160 

1 506 

0161 

78 

016  1 

1373 

0 16  1 

149fc 

OERCOF-3 
AXO STEM 
ATT  FLAG 
IDAD1  TF« 
OERCOF-2 
ITSWT  CH 
IDAD2TEM 
DERCCF-1 
FLA  TEMP 
MANUFLA3 
DER  COFN 
IDAD3TFM 
Z3TEM 
I GM FL  AG 
DERCOF+1 
PUT -'XTFM 
AST N FLAG 
MPAC 
TEMPPHS 
FACEREG 
uv 

SWA  NO  IS3 
TEMP2G 
PL  A YTEM1 
-EPSILON 
EPS  I LON 
NOP  m S W 
POI NTFR 
RVSW 
TERM1TMP 
7EMPSWCH 
CP1 MPAC 
PLAYTEM3 
0OC  k TEMP 
ANET 
FUNTEM 
V67  FLAG 
T ErM  POP 2 
PL A YTEM4 
CPF  FCTR 
SCR  ATCHX 
1/ANET 
IDL  EFLA3 
OUT  HERE 
■MAS  SCI  c- 


0161  1496 

0161  1506 

0162  78 

0162  420 

0162  1373 
0162  1496 

0162  1506 

0163  78 

0163  99 

0163  1373 

0163  1506 

0164  78 

0164  59 

0 164  1373 

Cl  4-  16  0 6 

9165  78 

0165  99 

0165  1372 
016  6 1306 

0166  77 

01(  6 9" 

016  7 7 8 

0167 

0170  78 

0172  79 

0173  37 

0173  79 

017*  37 

0174  79 

0175  79 

G 1 76  79 

Cl  77  79 

0 2 00  79 

0201  79 

0202  79 

0203  79 

0205  8C 

0206  80 

0210  80 
02  ffe  8 0 

0213  80 

021*- 

0215  61 

C216  81 

C220  31 


SCr  ATCHY 

AkET 

V37FLAG 

MPAC  46 

GENMASK 

SCR ATCHZ 

ABSAUS 

AVEGFLAG 

MODE 

USE? °P  IP 
S I G N AOS 
UPLOCKFL 
LUC 

COP  INDEX 
-SIGNAUS 
VEP IFLAG 
BANKSET 
MP AC2SAV 
HOLD 

V82EMFLG 
PUSHL  OC 
TFFSW 
PRIORITY 
RPQFLAG 
NEW IFLG 
v 10N0TH 
C MfPNF  LG 
MOON THIS 
LMOONFLG 
FLUNDI SP 
P3C /79SW 
SUP F FLAG 
INF INFLG 
OR  DE  R SW 
APSE  SW 
COGAFL AG 
I NITALGN 
3 6 0 S W 
FL  Vi 
FL  pC 
FLPI 
FLRCS 
LETABORT 
FL  AP 
ROTFLAG 


0221  81 

0223  81 

0224  81 

0225  81 

0227  82 

0230  82 

0236  82 

0245  83 

0250  83 

0251  63 

0252  84 

0253  84 

0254  84 

0255  84 

9256  84 

0267  84 

0260  84 

0261  84 

0262  34 

0263  85 

0264  85 

0265  85 

0266  85 

0267  85 

0270  85 

0271  85 

0272  85 

0273  86 

0274  86 

0275  86 

0276  86 

0277  66 

0300  86 

0301  86 

0302  86 

0303  87 

0304  87 

0305  87 

0306  87 

0307  87 

0310  87 

031  1 87 

C 3 1 2 87 

0313  87 

0314  88 
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QUI TFLAG 

0314 

99 

R22DISP 

0660 

100 

VAC5USE 

MIDIFLAG 

0314 

99 

TIME2SAV 

0661 

100 

VAC5 

MT DAVFLG 

0315 

88 

AORBSFLG 

0705 

1 308 

GOLOC 

AVEMIDSW 

0316 

88 

DBSELFLG 

0734 

100 

KEYTEMP2 

INTFLAG 

0316 

99 

SCALSAVE 

0734 

100 

RUPTAGN 

APSFLAG 

0317 

88 

ACCOKFLG 

0735 

100 

AOT  CODE 

kEINTFLG 

0320 

88 

AUTP 2FLG 

0735 

100 

STARCODE 

1 P BYPASS 

0320 

99 

P EDOCTP 

0736 

100 

S I NC  DU 

VX  INH 

0321 

88 

AUTR1FLG 

0736 

100 

SINCDUY 

P c T H T r,  A T 

03  7 1 

99 

r ph  T 

0736 

100 

CTftO A | CM 

r - i n i u n i 

c*  > n l 

NOLRREAD 

0321 

99 

THETAD 

0740 

100 

SINCDUZ 

XORFLG 

0322 

99 

CTHFTA 

0742 

100 

S INC DUX 

LRINH 

0323 

95 

CPS  I 

0744 

100 

COSCDU 

VEL  DATA 

0 324 

99 

DEL  V 

07  44 

100 

COSCD'JY 

READER 

0324 

99 

DEL  VX 

0746 

100 

COSCDUZ 

OP  P A 

99 

fYp  J \/ v 

n7cn 

i on 

oner n 1 1 y 

l A U V l L 

^ D c.  O 

L/C  L V T 

U f D X) 

1 uu 

u'J  jt  UU  A 

RNGEDAT  A 

0330 

99 

DELVZ 

0752 

100 

-PHASEl 

SCALBAD 

0332 

99 

DNLSTADR 

0753 

101 

PHASE  1 

VFLSHFLG 

0332 

99 

DNLSTCCD 

0754 

1G1 

-PHASE2 

HFL  SHFLG 

C 33  3 

99 

DUMPCNT 

0755 

101 

PHASE2 

CDESFL AG 

0334 

99 

L DAT Al  ST 

075  6 

101 

-PHASE3 

R FMODFLG 

0334 

994 

CTLIST 

0757 

101 

PH AS  E 3 

RCOUOFLG 

0335 

99 

DNTMGOTO 

0760 

101 

-PHASE4 

ANTENFLG 

0336 

99 

DUMPLOC 

0761 

101 

PHASE4 

REPGSMON 

033  6 

99 

TMINDEX 

076  2 

101 

-PHASES 

DES  IGFLG 

0336 

994 

ONE C ADR 

0763 

101 

PHASE  5 

AIT  SCAT  F 

0 33  7 

99 

DNQ 

0764 

101 

-PHASE6 

i d \/ p | pi  r 

OP  P 7 

9V4 

c ! id  I KT 

n 7 a ^ 

i m 

pu  A C C A 

crs  VpLrLo 

v D 1 

u i n j 

1 Vi 

r n H j L C 

RCQUFAU 

0340 

99 

DNTMBUFF 

0766 

101 

C D U S P ° T 

LRPQSFLG 

0366 

100 

RESTREG 

0766 

101 

CDUSPOTY 

LRALTFLG 

0 36  7 

100 

NVWOPD 

0770 

101 

CDUSPOTZ 

»R DATAFL 

0370 

100 

MAPKNV 

0772 

101 

C DUS  POT  X 

RRR  SFL AG 

0371 

100 

NVSAVE 

0774 

101 

M INDEX 

AUTOMODE 

0372 

100 

CADPFL  SH 

0775 

101 

MM  NUMBER. 

TURNONFL 

0 37  3 

100 

CADPMAPK 

07  76 

101 

DSPCNT 

pulseflg 

0374 

100 

TEMPFLSH 

0777 

101 

DSPCOUNT 

USE  QKFLG 

G 37  5 

100 

FAIL  REG 

1000 

101 

DEC  BRNC  H 

CSMDKFLG 

040  0 

100 

VAC  1 USE 

1001 

101 

VFRBREG 

OUR P CEL G 

0401 

100 

VAC  1 

1002 

101 

NOUNREG 

ACC4-2FL 

0454 

100 

VAC2USE 

1003 

101 

XPEG 

AORBTFLG 

045  5 

100 

VAC  2 

1004 

101 

YRFG 

XOVINFLG 

0530 

100 

VAC3USE 

1005 

101 

ZREG 

DR  I FTQFL 

053  1 

100 

V AC  3 

1006 

101 

XREGLP 

RHCSCFLG 

0604 

100 

VAC4USE 

1007 

101 

HI TE  MOUT 

ULLAGFLG 

0605 

100 

V AC  4 

1007 

101 

YP.EGLP 
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1010 

101 

LUTE MOOT 

1072 

13  7 2 

3AVEFLAG 

1 0 1 0 

101 

ZP  E GL  P 

10  73 

103 

MAr  K2PAC 

1P11 

101 

'"00850 

1074 

103 

nSAVE 

1 n j 2 

i r\7 

DSP  LOCK 

1 0 7 5 

1 03 

1/p  TPADT 

1013 

102 

REQRET 

1076 

103 

TEMK 

1014 

102 

loadstat 

1077 

103 

SQ 

1015 

L02 

CLP  AS  S 

1 100 

103 

S A f r L I M 

1 016 

102 

MOOT 

1 101 

103 

RRTARGET 

mi7 

102 

HOUNCAD? 

1101 

103 

RSUBC 

10  20 

1 0 ? 

MON  SAVE 

1101 

103 

SAMP L SUM 

1021 

102 

M0NSAVE1 

1101 

571 

F-  R LOS VEC 

1022 

102 

MON  SAVE 2 

1101 

604 

l ss 

1C23 

102 

.DSP  TAB 

110  5 

103 

TIMEHOLO 

If  37 

10  2 

N VOTE  M 

1 1 C 7 

103 

MODE  A 

104C 

102 

MVBNKTE'-' 

11C7 

103 

TANG 

1 H41 

1 0 2 

VER  8S AVF 

1111 

1 °3 

modes 

1042 

102 

CADRSTOR 

111  l 

103 

NSAMP 

1043 

102 

DSP  L 1ST 

11  13 

103 

DESRET 

1 Q44 

1 02 

FXT  vract 

1113 

103 

OL DAT AGP 

.L  J_  1 D 

1C  45 

102 

DSP T EMI 

1 1 I 

103 

DE SCOUNT 

1045 

102 

NOR  MTEM1 

1115 

104 

TO  EC 

IF  50 

in2 

0 S P T E M 2 

1117 

1 04 

C01 p EG 

1051 

102 

DSP  TEMX 

1120 

104 

LAT 

' 

102 

OPT IONX 

112? 

104 

LONG 

1053 

102 

TBASE  1 

1124 

104 

ALT 

10*4 

10? 

PHSPP-DT1 

1 1 2 6 

104 

YV 

10  55 

1 02 

TBASE  2 

1134 

104 

ZV 

1056 

10  ? 

dhS  PC  0T2 

1 1 \2 

104 

p 4 f / 'FT 

1056 

82  9 

PI PCTR 

1143 

104 

GENRET 

1057 

102 

TBASE3 

1144 

104 

0PTI0N1 

1060 

102 

PHSP  ;)T3 

1145 

104 

DPT  I HM  ? 

i c e o 

232 

YMT  EMP 

114- 

1C* 

0PT  I0N3 

106  1 

102 

TBA SEA 

1147 

1C4 

LONG C ADR 

10  61 

23? 

3 AS  ETEMP 

1151 

104 

LONG BASE 

1062 

1 2 

PHSPP.DT4 

1153 

104 

LONGTIME 

1063 

102 

T3ASE5 

1155 

1 04 

CDUTEMPX 

1064 

102 

PHSPRDT5 

1156 

104 

CDUTEMPY 

10  65 

102 

TBASE 6 

1 1 11  7 

1 04 

COUTFMOZ 

10  66 

10  2 

PHSPRDT6 

1 1 6 0 

1C  4 

PI  PAT'YPX 

1 06  7 

103 

NVW0RD1 

1 1 i 

1 04 

p I p ft  : M p Y 

1070 

103 

EBANKSAV 

1162 

1 

r 1 rM  1 Hr  I 

PI PATMPZ 

1070 

1 37  2 

DSPFLG 

1163 

104 

DI SPOEX 

1071 

103 

MAR KE BAM 

1163 

148 

P21CRIG 

1071 

1 37  2 

MARK  FLAG 

1 1 6 4 

104 

TEMP- 60 

1072 

103 

EBANKTEM 

1165 

106 

PR ICT  IMF 

1166 

1167 

1 167 
1167 

1 167 

1170 

1171 

1172 

1173 

1174 

104 
104 
104 
104 
1225 
104 
104 
104 
1 0 L- 
1 GA 

1220 

105 

1226 

105 

1234 

1C  5 

12  36 

105 

1236 

960 

1240 

960 

1242 

960 

1244 

105 

1244 

105 

1 246 

106 

1247 

105 

1251 

105 

1252 

1 C 5 

12  52 

105 

1254 

105 

12c5 

1 0 5 

1256 

105 

1257 

105 

1257 

107 

12  60 

105 

1 26  ( 

107 

1262 

106 

1263 

105 

1264 

105 

1264 

105 

1265 

106 

1266 

106 

12  6 7 

106 

1272 

10  5 

1273 

10  5 

1274 

105 

1276 

106 

1277 

106 

13  00 

106 

1 301 

106 

UP-VERBS  V 

EBUF2 

INTWAK IQ 

UPTEMP 

INTWAKUQ 

COMPNUMB 

UP OLD MOO 

UPVEPB 

UPC CUNT 

UPBUFF 

RN 

VN 

P IPT  I, ME 
GD  ! /2 
f.Uc  SOL 
SPIRAL 
POSCODE 
MASS 

WEJ  GHT/G 
ABDEL  V 
P GUIDE 
DV THRUSH 
AVEGEXIT 
AVGEXIT 
TEMX 
TEMY 
TEMZ 
PI  PAGE 
W.IND 
OUTROUTE 
W.  IiND  L 
CHS  MASK 
CH6MAGK 
D THE T ASM 
ZERLINA 
ELVIRA 
AZ INCR  1 
EL  INC  PI 
S P N 0 X 
PCS  FLAGS 
T5ADR 
PVALVEST 
DEL  PEL  UR 
DEL  CEP  OP 
DELREROR 
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1302 

106 

I M0DES30 

1360 

1303 

106 

I MODE  S3  3 

1361 

1304 

106 

IMUCADP 

1362 

1304 

106 

MO DEC A DP 

1363 

1305 

106 

OPTCADR 

1365 

1306 

106 

F ADCADR 

1366 

1307 

106 

ATT CADE 

1371 

1311 

106 

ATTP1  10 

1372 

1312 

106 

MARK  SEAT 

1373 

1313 

106 

DSRUPTSW 

1374 

1314 

106 

LGYRO 

1375 

1315 

106 

RPRET 

1376 

1316 

106 

ROE  S 

10  7 7 

1 -t  1 f 

1317 

106 

RP INDEX 

E3, 1400 

1320 

106 

WI  XA 

E3 ,1410 

1321 

106 

WIXP 

E 3, 1432 

1322 

106 

Z IXA 

E 3, 1434 

1323 

106 

Z IXB 

E 3 , 1436 

1324 

107 

AGS WORD 

E 3,1437 

132  5 

107 

CATEINDX 

E 3 1 1440 

1326 

107 

DELAYLOC 

E 3 ,1441 

1331 

107 

LEMMASS 

E 3 » 144  2 

1332 

107 

CSMMASS 

E3 ,1443 

1333 

107 

DNR RANGE 

E 3 ,1444 

1334 

107 

D NR ROOT 

E 3 , 1445 

1335 

107 

DN INDEX 

F 3 ,1446 

1336 

107 

DNLP VFLX 

E3, 1447 

1337 

107 

DNLRVELY 

E3 , 1450 

1340 

107 

DNLRVELZ 

E3 ,1451 

1341 

107 

DNLRALT 

E3 ,1452 

1342 

107 

8ALLEXIT 

E3 , 14  52 

1343 

107 

DAPDATF 1 

E3 ,1453 

1344 

107 

TEVEMT 

E 3 , 14  5 3 

1346 

1 07 

DB 

E 3 , L a 5 4 

1 346 

1506 

DBVAL 1 

E 3 , 1455 

134  7 

107 

AZ 

E 3 , 1456 

1350 

108 

EL 

E 3 » 1 6 57 

1351 

108 

WCHPHASE 

E 3 , l4-  60 

1 352 

108 

E3J22E2M 

E3 , 1*61 

135  3 

108 

E 3 2 C 3 1 f ! M 

E3, 1462 

1354 

108 

R.ADSKAL 

E 3 , 1463 

1356 

108 

SKALSKAL 

E 3, 1464 

1357 

108 

END-UE 

E3 , 1465 

1357 

108 

SFLFERAS 

E 3 , 16  66 

1357 

108 

SFAIL 

E3 ,1467 
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SYMBOL 

EF  E STORE 

SELFRET 

S MODE 

ALMCADR 

ERCOUNT 

SCOUNT 

SKEEP1 

SKEFP2 

SKEEP3 

SKEEP4 

SKEFP5 

SKEEP6 

SKEEP7 

L ST  1 

LST2 

P RRBO 

LONGEXI T 

PHSNAME1 

PHSBB1 

PHSNAME2 

PH SB B 2 

PHSNAME3 

PHSBB3 

PHSNAME4 

PHSBB4 

PHSNAME5 

PHSB35 

PHSNAME6 

PHSB86 

PBIASX 

PIPABIAS 

PIPASCF 

PI  PASCFX 

PBI ASY 

PI PASCFY 

PB I A S Z 

PI  PASCFZ 

N BOX 

NBDY 
MRDZ 
ADI  AX 
ADI  AY 
ADIAZ 
AQSF AX 
ADSL  AY 


PAGE 

1C8 

108 

108 

108 

108 

108 

108 

108 

108 

108 

108 

108 

108 

109 

109 

10° 

109 

10° 

109 

109 

109 

109 

109 

109 

109 

109 

109 

109 

109 

109 

109 

109 

10° 

109 

109 

109 

109 

109 

109 

109 

1 10 

1 10 

110 

no 

1 10 
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E 3,1470 
E 3, 1471 
E 3 ,1471 
r.  7 l 7 i 

no 

110 

110 

1 1 A 

ADSRAZ 
COMMAND 
GCOMP 
r mmin 

1 t J i-  ' 1 * AX  ^ V*  1 

E 3,1477 

lie 

GCOMPSW 

E 3, 1 500 

110 

DIF  E9CNT 

E 3 , 1 5C  1 

lie 

UPS VFLAG 

E 3 , 1 c 0 2 

no 

U ECT 

E 3 , 1 r 1 0 

no 

VRECT 

E 3,  1 516 
E 3, 1520 

t i r 

TFT 

1 x v_ 

no 

I C 1 

TDELTAV 

E 3, 1526 

1 10 

TNU  V 

E 3, 1634 

llC- 

KCV 

E 6, 1 66  2 

ll  0 

VC  V 

E 3, 1550 

no 

TC 

P . 1 

1 1 r 

VI/CD 

l_  _/  7 i t-  X i ^ ^ 4.  f 

E 3, 1552 

125 

XPR  EV 

E 3, 1554 

110 

RRECTCSM 

£3,1654 

11C 

RRE CTOTH 

E 3, 1 662 

lie 

VRECTCSM 

E 3 , 1 t:  70 

1 1 1 

-r-  THE: 

E 3, 1570 

1 1 1 

TETCSM 

E 3 , 1 570 

111 

TET OTHER 

E 3 , 1572 

1 1 1 

DEL  TACSM 

E 3,16  0 .0 

1 1 1 

NUVCSM 

E 3 , 1 (:  06 

111 

- CVC 

E 3 , 1 6 14 

111 

VCVCSM 

C } . 1 7 7 

1 1 1 

rrr  c m 

l-  -6  7 i ’ C.  X 4 X ! 

£3,1624 

1 1 1 

XKEPCSM 

E 3 , 1626 

11 1 

RRECTHIS 

E 3 » 1 6 2 6 

111 

rrectlem 

E 1,1-34 

1 1 1 

VRECTLEM 

E 3, 1642 

1 1 1 

TET LEM 

E 3,16  42 

1 1 1 

tetthts 

E 3 , 1 644 

1 1 1 

DEL  TALEM 

E 3, 16  52 

111 

NUVLEM 

P » 1 r-  t 

1 1 1 

r \i  i cm 

E 3 , 1 6 6 6 

1 1 1 

VC  V LEM 

E 3, 16  74 

11 1 

TCL  EM 

E 3 , 1 6 7 6 

111 

XK F P|  EM 

E 3, 1700 

111 

X789 

E 3 , 1 706 

111 

TEPHEM 

E 3,1706 

112 

1 I 1 sub; 

£3,1711 

111 

AZO 

E 3 , 1 7 1 3 

111 

-AY  f 

E3 ,17  15 

E3,  17  17 

EG,  1 7 I7 
cft,l725 
E 3 , 1725 
F 3,  173  3 
£3,1755 
E 3 , 1757 
£3,175 0 
£3,1760 
E3, 1760 
E3 , 1766 
£ 3 , 1766 
E 3, 1770 
F 3 , 1772 
E 7 , 1774 
F3 ,1775 
E 3 , 1 776 
£3,1777 
£4 , 14  0 0 
F4 , 1600 
F4 , 1 400 
FO  , IS  ' 1 
E4, 1402 
E4, 1403 
E / , 1 40  4 
FA  , 1 5 6 
F •-  , 14  06 
E4,  1 
E4 , 14 1 0 
E 4 , 1 4 H 
Ea , is  12 
E 4, 14 20 
F4 ,1622 
E4, 1422 
£4,1430 
E4,  1431 
Co , 1437 
E4, 1 6 6 

F 4 , 1453 
E4 , 1461 
E4 , 1467 
E 4 , 1471 
EG , 1473 
E4, 1475 


111 
111 
120 
1 11 
120 
1 1 1 
111 
112 
1 1 2 
11? 
604 
112 
604 
112 
1 12 
112 
112 
112 
112 
1 1 3 
I 13 

I 17 
113 

I I 3 
113 
113 
113 
113 
113 
1 13 
11  3 
113 
11? 
113 
117 

113 

114 
1 14 
1 14 
116 
114 
114 
114 
114 
116 


AXG 

; - ( THE  ^ 

PICS  * 

V- nrHE  R 

V ( C ’ ) 

QEFSMMAT 

ACTCENT 

LS21X 

LOSVGL 

VSUBC 

LOSVDT/4 

NiLOS  V 

5 A V EC  OUT 

RANGE  VAR 

RATEV4P 

P V AR  Ml N 

VVARMIN 

TCDH 

ENP-E3 

A ME  MG ? Y 

WP  f NOP  OS 

TRANS'U 

WR  ENOVEL 

WS  HAP  T 

WTPUN 

R MAX 

VY  AX 

WS UP  EPOS 

WSURFVEL 

SHAFT VAR 

TR UN  VAR 

504  L M 

AG  $K 

PL  S 

ALFDK 

P80DY 

ALFHAV 

BF.TAV 

PHI  V 

PSIV 

FV 

ALPHAM 
BE  TAM 
TAU. 

DT/2 


E4 , 1477 
£4,1501 
E4, 1502 
F 4 , lc03 

E 4 , 1 
E4, 1504 
£4,1512 
E4, 1512 
16  ,1513 
E4 , 1 5 1 3 
E4, 15  15 
E4 ,1516 
E4, 1517 
E4,1517 
£4,1521 
E4, 1521 
E4, 1527 
E4 , 1 53 1 
£4,1537 
E 4,1537 
£4,1537 
£6 ,1540 
E4, 1541 
E4, 1542 
E4, 1543 
£4, 1545 
£4,1553 
£4,1561 
E 4 , 1 567 
£4,1567 
E 4 , 1 5 7 4 
£4,1 576 
E4,16D0 
£6,1600 
E4, 1600 
E4 , 1600 
£4,1600 
E4.160C 
E4 ,1600 
F4, 1600 
£4 , 1602 
£4,1602 
E4, 1602 
£4,1602 
£4,1 602 


PAGE 

114 
1 14 
114 
1 1 4 

114 

115 
1 14 
114 

1 14 

115 

115 

116 
114 
116 
llv 
1 14 

114 
1 14 
1 14 
11? 
1 1 5 

115 

114 

115 
1 14 
1 U 
1 14 
114 

1 14 

115 

114 

115 

I 15 
115 
115 

1 17 

118 
113 

I I 8 
UP 
115 
115 
115 
1 1 b 
lift 
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2,1070 
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OF  DEFINITION,  AND  SYMBOL 


SYMBOL 

DEF 

C 1 x.  A O 

PAGE 

1 1 £2 

SYMBOL 

V A 1.1  A MO 

DEF 

PAGE 

H 

tHf  1 t J C. 

1 J O 

YAW  Am? 

E 4 , 17  00 

119 

GMODE 

E4 , 1604 

115 

rtheta 

E4, 1702 

116 

I!  ETU'R N 

E4, 1604 

115 

T START82 

E4,1702 

117 

NOP  MG AM 

£4 , 1 60  4 

115 

WWBIAS 

E4,  170  2 

117 

r PQV 

E4 , 1 604 

118 

RLM 

E4 , 1?02 

117 

BASETHV 

E4 ,1606 

115 

RONE 

E4, 1702 

119 

K E P 1 N 

£4,1606 

118 

RPASS36 

E4, 1704 

117 

Of  IGEX 

£4,1614 

115 

VONE 

F4 , 1706 

117 

ROW 

E4, 1614 

118 

UNP3  6 

F 6 , 1710 

116 

BASETIME 

E4 ,1615 

1 17 

AGSBUFFE 

E 4 , 1 7 10 

117 

□ RIG 

E4 ,1622 

116 

DELVOV 

E4 ,17  10 

120 

STATEXIT 

E4 , 1630 

116 

E01 

E 4 , 1712 

120 

HAPCX 

E4 , 1 63  0 

116 

GSA  V 

E4, 1714 

120 

BASEOTV 

E4, 1630 

116 

KEl 

F4, 1716 

117 

HPERX 

E4 , 1 630 

1 16 

MF  I 

£4,1716 

1 17 

N P S V 

. 1 AT  r. 

(wee 

p /.  1 7 1 A 

11"? 

1 io 

H i o 

11/ 

XKEPNEW 

E4, 1630 

116 

VZBEAMNB 

E 4 , 1 7 1 6 

120 

VECTAB 

E4 ,1636 

116 

EO  2 

E4, 1720 

117 

VAC  X 

E4 ,1636 

116 

VYBEAMNB 

E4 ,1720 

117 

BAS  EOT P 

E4,1636 

116 

YNBSAV 

E4 ,1722 

118 

V 82  FLAGS 

E4 , 1 644 

116 

VXBEAMNB 

E4 , 1724 

120 

TFF 

E4 , 1644 

116 

ZNBSAV 

E4 , 1730 

118 

VACY 

E4 , 1652 

116 

LRVTIME 

E4, 1732 

120 

-TPER 

E4,1652 

116 

T 1 T0T2 

E4, 17  34 

119 

VACZ 

£4,1652 

117 

+ MGA 

E4, 1734 

120 

XNBPI P 

E4 ,1654 

116 

LR  XC.DU 

E4 , 1735 

119 

YNBPI  P 

E4, 1654 

116 

T2T0T3 

£4,1736 

118 

ZNBPIP 

£4,1655 

116 

LR YCDU 

E4,1736 

119 

VONE' 

E4 ,1656 

116 

ELFV 

EA, 1736 

120 

BASETHP 

E4 , 1 656 

116 

LRZCDU 

E 4 , 1 737 

119 

VECTABND 

E4 ,1657 

116 

PIPTEM 

E 4 , 1 / 4 0 

120 

EPSILONT 

E4 ,1660 

116 

UP1 

E4 ,1742 

120 

HPERMI1' 

£4,1660 

117 

UNRM 

E4 , 1744 

118 

p anqe 

££•  f J fcA,  2 

1 1 A 

AT 

i ?n 

X 1 

n f x ; 

i c.  yj 

WWPOS 

E4, 1662 

119 

VHORIZ 

EA  ,1745 

118 

AGS  BUFF 

E4, 1664 

119 

AN G TERM 

E4, 1746 

118 

ALPHA SB 

E4 , 1664 

119 

V E 

E4, 1746 

120 

PITCHANG 

E4 , 1666 

116 

DEL  VEET  1 

£4,1747 

118 

ft'  - AZ 

E4 , 1 666 

l'T« 

TTO 

E4,  1750 

120 

R STACK 

£4,1670 

119 

TBUP 

E4 ,17  51 

119 

RP  ADTEM 

E4 , 1672 

119 

HBEAMNB 

E4,  175  1 

119 

RR  ATE 

E4 ,1672 

119 

RDOTD 

E4 , 1752 

119 

WWVEL 

E4, 1674 

116 

DEL VEET2 

E4, 1752 

120 

BET  AS 8 

E4 , 1 674 

119 

YU  TO 

E 4 , 1 7 53 

119 

F -ELFV 

£4,1676 

119 

ZDOTD 

E4, 1754 

1 19 

SYMBOL 

/R/MAG 
P ACT  1 
DEI  TAR 
DVLOS 
T I NT  SO  I 
LAX  IS 
DELTTIME 
TARGT  IME 
FACT  2 
UL0S 
YDOT 
ZDOT 
GEFF 
HAPO 
NO FTP  I 
RTSR1/MU 
G( CSM ) 
HPER 
RT  MU 
PI  NIT 
WM 

VI  MT 
/LAND/ 
LRXCDUDL 
Y 

l RYCDUOl 

VIPRIME 

LP  ZCDUDL 

□ ROOT 

LRVTIMDL 

DYDOT 

DZDOT 

FDA!  X 

PC  DNS 

FDAIY 

FDA!  Z 

YCONS 

DELVTPF 

PRATE 

LMPOS 

RTSTDEX 

RTSTMAX 

YRATE 

RT  SYBASE 

RSTKLOC 
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DEF 

PAGE 

SYMBOL 

DEF 

PAGE 

SYMBOL 

DEF 

PAGE 

SYMBOL 

DEF 

PAGE 

SYMBOL 

DEF 

PAGE 

E 4, 1754 

1 1 S 

TSTLUC 

E 5 , 1 -» 3 5 

121 

TCGi  8!\  AK 

£5,1474 

128 

LMJZ 

E5 , 1550 

122 

ABTCOF 

E5, 1700 

123 

E 4, 1754 

120 

ATY 

E 5 , 1436 

121 

RAPFG* 

£5,1476 

121 

RIGNZ 

E5 , 1 550 

128 

DELM 

E5 ,1701 

125 

E 4 , 1 7 5 5 

llc- 

:•  SAMPDT 

E 5 , 14  36 

127 

GOUT  I MFF 

£5,1476 

128 

ANGY 

E5 ,1560 

128 

W P L A T ! 

F5, 1702 

125 

E 4 , 1 7 ^4 

11° 

p FAIL  CM T 

F ,1436 

128 

WANG  1 

F 5 , 1 500 

121 

K IGNX/B4 

E8 ,166? 

128 

GEOCOMPS 

F5  , 1706 

123 

E 4, 1 756 

120 

ATR 

E 5 , 144C 

127 

CDIJDANG 

E5 ,1500 

128 

ANGX 

E5 , 1563 

128 

ERCOMP 

E5, 1706 

123 

E 4 , 1 757 

11° 

END- E4 

E5  , 1' 4C 

127 

TEN  P ADO 

E5 , 1502 

121 

KIG NY/ 68 

E5 ,1570 

122 

VMIM 

F5  , 1706 

123 

E 4 , 1757 

119 

LMVEL 

£5,14  4 ( 

128 

TORQNDX 

E5 , 1502 

128 

DRIFTO 

E 5 , 1 c7  1 

128 

ZEPONDX 

E 5 , 17  06 

123 

E 4 ,1760 

120 

ATo 

F 5 , 14  GO 

12? 

WAMGT 

E 5 , 1 5 04 

121 

KIGNV/B4 

E5 ,1572 

122 

YL  IM 

E 5 , 1708 

123 

E4, 1762 

120 

YAW 

FS  14  41 

12? 

COM  t.EAOF 

E5, 1504 

128 

DRIFT  I 

E5 , 1 572 

128 

1 SEC  XT 

E5 , 1706 

124 

E 4 . 1 7 64 

120 

PITCH 

£6,1441 

127 

TEMP 

E5, 1 606 

121 

L OWCR I T 

E5 , lc73 

128 

AS  EC  XT 

E5 ,1706 

126 

E 4 , 1765 

119 

DEL  VEET3 

E5, 1442 

127 

CDUREADI 

E5 , 1507 

121 

HIGHCR IT 

E5 ,1574 

122 

ABTP  DOT 

E5 ,17 10 

123 

E 5 , 1 4 00 

121 

TL  AND 

E5 , 1442 

127 

NOBITS 

E5 , 15  10 

121 

V 2FG 

E5 ,1574 

128 

PERFDLAY 

E5 ,17 10 

125 

E 5, 1400 

12  1 

W 

E 5,  1442 

128 

DRIFTT 

E5 ,1510 

12S 

VLAUN 

E5, 1576 

122 

COST  HE T 1 

E5 ,1710 

125 

E 5, 1400 

127 

AZ T MU7 H 

E5  , U 43 

127 

C D U L I M T T 

E5, 1512 

128 

ACCWD 

E 5 ,1576 

128 

CVFl CWCK 

E*  ,17  10 

125 

F 5,  14  02 

121 

k BR  FG 

85,1443 

127 

CHAN 

E5, 15  16 

121 

TAUVERT 

E 5 , 1 600 

122 

CO  ST  HE  T 2 

E 5 , 1 7 1 0 

125 

E 5 , 1 4 0 2 

127 

1 AT ITUDE 

£ r'  , 1 44  4 

121 

VAPFG 

E5 , 1 520 

12  I 

DELOFI X 

E5 ,1602 

122 

CG 

E5 , 17  1 1 

125 

E 5, 1402 

826 

RDG 

E 5 , 144 4 

127 

L0S1 

E5 ,1520 

128 

POS  MV 

E5 , 1 624 

122 

PANGEDSP 

E5 , 17  1 1 

126 

E 5 , 1 4 04 

127 

ER V FC  TOR 

E 5 , 1444 

128 

ALX1S 

E5 ,1522 

12  1 

LR ALPHA 

E5 ,1626 

122 

OUT  QFPLN 

E5 , 17 12 

123 

E 5 , 1410 

121 

VBR  FG 

E5 , 1445 

12  9 

CMPX1 

E5, 1522 

128 

DPIPAY 

E5 , 1630 

122 

F60VSAVE 

£5,1712 

126 

E 5 , 1 4 10 

82  o 

VDG 

EG,  1 4 4 6 

128 

ALK 

E 5 , 1 r-  23 

122 

LRBETA1 

£5,1630 

122 

VBI  AS 

E5 ,17 14 

123 

E5,  14  12 

127 

LEM GT HOT 

E 5 , 1 4 5 2 

121 

AALFG 

E5.1524 

12? 

LR  A L P H A 2 

F 5, 163  6 

122 

RGU 

£5,1714 

123 

E 5 , 1 4 1 3 

127 

l 09 VEC 

£6,  14  4 2 

127 

L0S2 

E 5 , 1 52 17 

12  2 

LRBETA2 

E5 ,1642 

121 

ENDW 

E5 , 17  14 

123 

E 5, 14  14 

127 

NDXCTR 

E 5 , 1452 

128 

THFTAN 

E5.1526 

122 

LRVMAX 

£5,1642 

122 

XSM 

E5 , 1714 

124 

E 5,  14  15 

127 

PIP  INDEX 

E 5 , 1460 

121 

VAPFG* 

E5 , 1 526 

128 

DPI  PAZ 

E5 ,1642 

125 

DEL  X 

E5 , 1717 

125 

E5, 1'-  16 

121 

ABRFG 

E5 , 1460 

127 

CALCDIR 

E5, 1527 

122 

LRVF 

E 5 , 1 642 

126 

Z I 

E5 ,1717 

125 

E 5 , 1 4- 1 o 

127 

POS I TQM 

E r , I 4 < 3 

1 2 9 

FI!  DEL  V 

E5,1530 

122 

l f * W V z 

E5 , 1 644 

123 

-ensB 

F5 ,1720 

126 

E 5 , 1 • 1 fc 

3 2 6 

ADG 

0 6,1  4,  4,  i 

127 

CDUFLAG 

£5,1530 

128 

A L T I M 

E6 , 1644 

125 

DFLT 

£5,1721 

125 

E 5 , 1 4 17 

127 

QPL  ACE 

£6, 14' ? 

121 

AAPFG* 

E5, 1531 

122 

t RWVY 

E5 , 1 646 

123 

SINB 

F5  ,1722 

123 

E 5,  l 

127 

QPL  ACES 

£6,1462 

127 

GYTOBET  Q 

F5 , 1 53  1 

128 

ALTIMS 

E 5 , 1646 

125 

URRECT 

E5,  1722 

124 

E 5, 1421 

127 

SOUTHDF 

E 5 , 1462 

128 

INTVEC 

E 5 , 1 532 

122 

LRWVX 

£5,1650 

122 

YSM 

E5,  1726 

126 

E 5 , 1*24 

121 

VBR  FG* 

£5,1462 

128 

VL AUNS 

£5,1532 

128 

ALDK 

£5,1654 

125 

R VEC 

£5,1727 

125 

E 5 , 1 4,  2 ■ 

826 

VDG2TTF 

E 5 , 1 4 6 3 

127 

OPTNREG 

E5 , 153  3 

122 

L R W V F Z 

E5 ,1654 

125 

r iv ec 

E5,  1730 

123 

E 5 , 1 4 2 6 

121 

ARR  FG* 

E 5 , 146 4 

121 

JAPFG* 

E5 , 1 r 34 

122 

LPWVF Y 

E5, 1656 

122 

ZSM 

E5 ,17  30 

123 

E 5 , 1 426 

826 

ADG2TTF 

F 5 , 1 464, 

127 

SAVE 

£6,1434 

127 

MASKREG 

£5 ,1662 

125 

R2VEC 

F 5 , 1730 

124 

E 5 , 1430 

121 

JBP FG* 

E 5 , 1464 

128 

WPL  A TO 

E5 , 1535 

122 

LRWVFX 

E5 ,1664 

122 

XDC 

E 5 , 1731 

125 

£5,1430 

127 

TEM PTIME 

E5, 1466 

121 

GA INAPPR 

E5 ,1536 

122 

LRWVFF 

E5 , 1664 

123 

XNB 

E5 , 1733 

125 

E 5,14  30 

826 

JDG2T7F 

E 5 , 1467 

127 

SFC0N5T 1 

E6 , i 536 

127 

CDUNDX 

E5 , 1 664 

126 

DELTAX 

£5,1734 

126 

E 5 , 1 4 3 2 

121 

GAI  MR  \< 

E 5 , 1470 

121 

TCGFAPPP 

E5, 1537 

122 

RODSCALE 

E5 ,1664 

126 

TRIPA 

E5 , 1735 

125 

E5, 14  32 

127 

TMARK 

E 5 , 14  70 

127 

TIMER 

E5 , 1 537 

127 

RFSULTCT 

E5 ,1667 

126 

TEMP VAf 

E 5 ,1736 

123 

E 5, 1474 

12  1 

TCGFBF  \K 

£5,  1.4  70 

123 

INTY 

E5 ,1540 

122 

T AUROD 

E5 , 1670 

125 

TOES  lr'  FD 

E5 , 17  37 

123 

E 5, 1434 

127 

CDUTIMEI 

£5,1471 

121 

TCGI APPR 

E 5 , 1542 

122 

LAG/TAU 

E5 ,1672 

122 

YOC 

£5,17^7 

125 

E 5, 1434 

127 

GEN  PL 

E 5 , 1472 

12  1 

VIGN 

E 5 ,1542 

127 

COUNT  PL 

E5 , 1672 

123 

YNB 

E 5 , 1741 

123 

E 5 , 1434 

127 

RDSP 

E 5 , 1 4 7 2 

127 

DAT  APL 

E 5 , 1543 

127 

CDUANG 

E5 , 1672 

125 

GEOMSGN 

E5 , 1741 

125 

E 5, 1434 

12  6 

AIN  LA 

E5, 1472 

128 

ANGZ 

E 5 , 1544 

122 

M INFORCE 

£5,1673 

125 

UN 

F5, 1743 

123 

E 5, 1434 

12  6 

WAN  GO 

£5,14?^ 

121 

P IGNX 

E 5 , 1546 

122 

MAX FORCE 

E5 ,1700 

1 2 2 

Z DC 

E 5 , 1743 

125 

PAGE  1574 


SYMBOL 

ZNB 

VTARGTAG 

VTARGET 

G ACC 

LANDLAT 

STARAD 

VEARTH 

XSCI 

CULTRIX 

VAP I ANCE 

LANDLONG 

RTNAPSE 

RTNLAMB 

RTNTR 

RTNTT 

U2 

GRP2SVQ 

LANDALT 

OMEGA Ml 

GOUT 

VSUN 

YSC  I 

ZSCI 

MAGVEC2 

R2 

QMFGAM2 
UP  1 
V M no  N 

VEC1 

0MEGAM3 

SNTH 

SAX 

STAR 

VEC  2 

CSTH 

1 -CSTH 

HOLDW 

CSTH-RHO 

GCTr 

one 

p 

IGC 
R 1 A 
MGC 
VVFC 
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DEF 

PAGE 

SYMBOL 

DEF 

PAGE 

SYMBOL 

DEF 

E 5, 1745 

E 6 ,- 1421 

129 

i i M p /O  A Q 

ca  . 1 4-  7? 

12  3 

QM I N : 

L'PiLuAr 

L v.  f 1 <4- 

E 5 , 1 7 £-6 

123 

QMA  J 

E6, 1422 

129 

OMfSAQ 

Efc, 1473 

F 5, 1747 

124 

OGCT 

E6 , 14  33 

1 2 r- 

OMFGAR 

E6 , 1 4"f4 

E 5, 1 751 

125 

ECO 

E 6 , 1424 

12° 

ALPHAQ 

E6 , 1 fc  75 

E 5 , 1 7 53 

125 

RTNPRM 

E6, 1425 

129 

ALPHAR 

E6, 1476 

E 5,1754 

125 

SGNRDOT 

E6 ,1426 

129 

OMEGAU 

E6 , 1476 

E 5, 1755 

124 

BEST  I 

Efc, 1426 

130 

uratedif 

Efc,  1477 

E 5, 1755 

125 

''DESIRED 

E 6 , 1 -+  2 7 

129 

CMFGAV 

Efc , 1500 

E 5 , 1 7 5 L 

1 2 4 

fiESTJ 

Efc  , 1427 

130 

EDLYP 

Efc, 1 501 

pc  i 7 c;  a 

f I’JDpJ 

F6 , 1 4 27 

1 30 

V° A TED IF 

Efc  , 1 50  2 

L c.  O 

E 5, 17c7 

124 

STAR IND 

E6 , 1427 

133 

EDOT 

Efc , 1 503 

E 5,1757 

125 

DEL  DE  P 

E 6 , 1430 

129 

TRAPEDP 

Efc  ,1504 

E 5, 175 7 

12  5:, 

TER  R I AN  3 

£6 ,1431 

129 

Ti.APEDQ 

Efc,  1505 

E 5 , 1760 

124 

STARS  AVI 

F f ,14  3 2 

12° 

7 RAPE  DP 

Efc,  150  5 

E5, 1761 

12  5 

DEPREV 

E6 , 1433 

129 

V P T i;  AP  S 

E6 , 1 506 

p S'  . 17  t 1 

TP1?  £V 

PA  , 1 ■ - 7 4 

130 

NOT RAPS 

Efc  , 1 c 07 

l_  o f 1 i 

J . C 

E5, 1763 

125 

EPS ILONL 

E6 , 143  5 

1 i 

NP  TRAPS 

E6, 15  10 

E 5 , 1 764 

126 

TDVEL 

Efc, 1436 

1 3 C 

EDOTQ 

E6 , 1 5 1 1 

F r « i 7 a r 

125 

COG  A 

FA.  1436. 

130 

QRATEDIF 

Efc.  1 5 1 2 

E 5, 1765 

125 

IWDEP 

F-  , 1<  37 

130 

ED  DIR 

Efc,  1413 

E 5 , 1 76  L 

124 

STARS AV2 

E6 , 1437 

130 

R FATE  D I F 

Efc,  15  13 

E 5, 1772 

126 

EGP  ESS 

F 6 , 1 A 4 0 

130 

0LDXF9>’P 

Efc  ,1^14 

E5, 1773 

126 

ORIGIN 

E6 , 1441 

I 3 C 

OLDYFORP 

Efc  , 15  15 

E 5, 1 77  3 

126 

P30EXI  T 

E6 ,1442 

130 

OLD  ZFORQ 

E6 , 15  16 

E 5, 1774 

124 

TAL IGN 

E6 , 1 4 9 3 

130 

CH31TEMP 

Efc, 1517 

E 5, 1 7 74 

128 

E!  D-E5 

EE  , 1 ' 4 

1 3 C 

ST IKSENS 

Efc , 1 520 

E 5 , ] 776 

124 

RTX  1 

E6 , 16  4 5 

130 

TCP 

Efc  ,1521 

F 5 , 17  77 

1 24 

: TX  2 

p A . 1 A A 

1 3 0 

ny'rt  c i q 

u 1 K 7 3 

17  1 f L 

1 D V 

L-O  > I “ 21  C. 

E 6 , ] 

129 

HI A SCENT 

E6  , 1 A 5 0 

130 

DYERROR 

Efc, 1523 

E 6 , 1401 

12< 

ROLLTIME 

E6, 1450 

130 

QEF ROR 

Efc  ,1594 

E6, 1402 

129 

PITTIME 

7 6,1 

132 

QD  I FF 

£6,1525 

£6,1''  03 

1 2 c 

DKTRAP 

E6 ,1452 

1 30 

OZERROR 

Efc , 1 525 

E 6 , 1 A 0 4 

12  9 

OKU  MEG AN 

E 6 , 14  52 

130 

RFRf?  GP 

Efc.  ,1526 

E 6 » 1 4 0 5 

1 2 r' 

DKKAOSN 

E6, 1452 

132 

RDIFF 

Efc , 1527 

E 6 , 1406 

129 

l MT  RAP 

E 6 » 1 A 

130 

PLAST 

Efc  ,1530 

E 6 , I A 7 

129 

LMO MEGAN 

E 6, 145  5 

130 

QLAST 

E 6 , 1 5 3 1 

E 6 , 1 A 10 

129 

LUKAQSN 

E t , 14 

130 

RL  AST 

Efc  , 1 5 3 2 

E 6, 1'  11 

12  9 

OKDB 

£6,1497 

1 3 0 

TCOR 

EL  ,1533 

E 6 » 1 12 

129 

IGN AOS g 

Efc,  1460 

130 

OLDPHIN 

Efc  , 1434 

E 6 , 1 4 1 3 

12° 

IGNAOSR 

F fc  , 1 A ' 1 

130 

01  DORM  IN 

Efc:,  1 C-  3 5 

E 6 , 14 14 

129 

Mil 

Efc,  1462 

1 30 

SAVEHAND 

Efc,  1536 

E 6 , 1 4 1 5 

129 

M2I 

E6, 14fc  4 

1 30 

PERROR 

Efc,  15  37 

E 6 , 1 A If 

129 

M3 1 

5 6,1 

130 

NXTfcADR 

E6 , 1561 

Efc,  U 17 

129 

«22 

E 6 • 14  64 

130 

T6L EXT 

Efc,  1543 

E 6, 1420 

129 

M32 

Efc , 14  7 0 

130 

TfcFUP THA 

Efc  , 1 544 

PAGE 
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130 

130 

130 

130 

130 

131 

131 

132 
134 
132 
132 
132 
132 
132 
132 
132 
132 
132 
132 
132 
132 

132 

133 
133 
133 
133 
133 
133 
133 

133 

134 
133 
133 
133 
133 
133 
133 
133 
13  3 
133 
13  3 
133 
133 
133 


3:15  DEC.  2,1970  PAGE  1575 

CF  definition,  and  symbol 


SYMBOL 

DEF 

PAGE 

SYMBOL 

DEF 

PAGE 

SYMBOL 

NEXTP 

Efc ,1545 

133 

aosqtefm 

E6 , 1647 

136 

QCDUWUSR 

NEXT  U 

Efc  ,1546 

133 

AOSRTERM 

F6 , 1650 

136 

NDXCDUW 

NEXTV 

Efc , 1547 

134 

ACC.SKU 

E6 , 1651 

136 

FLAGOODW 

-2  JET!.  TM 

Efc  , 1547 

134 

BLOCKTP 

Efc, 1652 

1 3fc 

FLP AUTNQ 

-RATEDB 

E6 ,1550 

134 

ACCSWV 

F6 ,1653 

136 

UNFCZ2 

TARGETDB 

Efc , 1551 

1505 

1/ANETP 

Efc, 1661 

136 

UNWC/2 

RE T J A D ! 

Efc ,1553 

1505 

1/ACCSTP 

Efc  , 1667 

136 

UNFV/2 

SENSETYP 

Efc::  ,1555 

136 

FLAT 

E6, 1667 

136 

UNFVX/2 

NFG'JQ 

Efc  ,1556 

134 

ZCME3L IM 

Efc  , 1670 

135 

COF 

ALLCNGTS 

Efc , 1557 

1505 

PACCFUM 

E6 , 1671 

136 

ONFVY/2 

NEGIJR 

E6 ,1561 

1505 

PDB1 

Efc  ,1673 

136 

UNFVZ/2 

KQ 

Efc  ,1562 

1505 

POB  2 

Efc, 1675 

136 

-DELGMB 

AX  I SC  T R 

Efc, 1563 

1505 

PDB4 

Efc, 1676 

135 

BCDU 

SAVESR 

Efc,  1564 

] 505 

PDB3 

F6 , 170 l 

135 

KSPNDX 

KP  DAP 

Efc  ,1565 

1506 

PAXDIST 

Efc, 1702 

135 

KDPNDX 

at  r nn  ro 

E fc , 1 567 

136 

1 / A MPT  1 

pt.nni 

l 

h IS  L<  LJ  LJ  i W 

JL  / h In  C " 1 

C O , I f D 

IN  V I 

OACCDOT 

E6 ,1570 

134 

1/ANET2 

Efc,  1703 

135 

K 1 

ACC  DOTc 

Efc,  1573 

134 

1 /ACOAST 

Efc  , 1703 

135 

MF  I SYM 

RACCDt  T 

Efc  ,1575 

1 34 

ACCFCTZ1 

Efc, 1703 

135 

NCDU 

pr  k L.T  K 

Efc  ,1576 

134 

ACCFCTZ5 

Efc  , 1703 

135 

P21 

POSTORKP 

E6 , 16C1 

134 

FIREDB 

Efc, 1703 

135 

TMF  I 

>;FGTOTKP 

Efc , 1603 

134 

CO A STD  B 

Efc , 1703 

135 

TMI  S 

POSTORKU 

Efc ,1605 

134 

AX  I SDI ST 

E6 , 1705 

135 

D21 

NEGTORKU 

Efc , 1627 

134 

COEFFQ 

Efc, 1706 

135 

NEXTI ME 

POSTORK V 

Efc  , 16  30 

134 

CGEFFO 

E6 , 1707 

135 

G21 

NEGTOPKV 

Efc  ,1631 

134 

CCTROL EL 

Efc  , 1707 

135 

TTEMP 

NO. 9 JETS 

F fc  ,1632 

134 

QGIMTIMF 

E6 , 17  1 1 

135 

BI  ASTEMP 

NO. U JETS 

Efc  , 1633 

134 

IN  GTS 

Efc ,1711 

135 

C2SQP 

NO. VJETS 

Fb,  1634 

134 

RGI MTI MR 

Efc  ,171  1 

135 

KV  2 

TJP 

E6 , 1635 

134 

CDUXD 

Efc, 1711 

135 

K2 

TJ!J 

£6,1635 

136 

DC  DU 

Efc, 1713 

135 

C2SQM 

T JETU 

Efc ,1636 

134 

CDUYD 

Efc  ,1715 

135 

C2PP 

TJV 

Efc  , 1637 

134 

CDUZD 

Efc, 1717 

135 

C2MP 

L , PVT-CG 

§6,1640 

134 

OFLCOUX 

Efc , 17  17 

135 

KV3 

1 JACC 

Efc , 1640 

136 

DFLDCDU 

E6, 1717 

135 

K3 

1 JACCC 

Efc , 1641 

134 

DELCDUY 

Efc,  1717 

135 

OGF 

1 JACCR 

Efc , 1641 

136 

DELDCDU1 

Efc, 1721 

135 

C1PP 

iJACCU 

Efc  ,1642 

134 

DELCDUZ 

Efc, 1723 

135 

C IMP 

1 JACCV 

Efc  , 1642 

136 

DEI DCDU2 

Efc,  17  2 5 

135 

BR,  ATE 

SK  I PU 

Efc , 1643 

134 

OMEGAPD 

£6,1725 

135 

COFSKEW 

SKI  PV 

Efc , 1644 

134 

OMEGAQD 

Efc,  17  2 5 

135 

IG 

AOSO 

E6 , 1645 

134 

OMEGAPD 

E6 , 1725 

136 

VFCQTEMP 

A OS.R. 

Efc , 1646 

134 

MIS 

Efc, 1733 

135 

CAM 

AOSU 

E fc , 1 646 

136 

EC  QUO 

Ffc,  1733 

135 

TM 

AOS  V 

Efc.  , 1 646 

136 

ECDUWLSR 

Efc  , 1735 

135 

AM 

I 
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DEF 
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SYMBOL 

DEE 

PACE 

SYMBOL 

DEF 

PAGE 

SYMBOL 

DEF 

PAGE 

SYMBOL 

E6, 1737 

130 

TF.MP31 

Eft, 1751 

131 

JCP.RQR 

E7, 1456 

139 

M3  SCO UN T 

E 7 ,1526 

147 

DEL  VREF 

E7 , 1601 

141 

gfl.STCS I 

F 6,1737 

131 

ABS  EDO! 3 

Eft  ,1751 

132 

FUNCTION 

E7 , 1 4 57 

139 

A I G 

E 7 , 1526 

147 

V 

F7, 1603 

141 

HAFPA1 

E 6 , 17  37 

131 

ABSTJ 

Eft, 1741 

137 

DAPTREG5 

E7, 1ft  60 

139 

A MG 

E7 ,1527 

141 

VPASS2 

E7 ,1603 

141 

POST  C DH 

E6, 1737 

131 

ROT  EM PI 

Eft, }742 

131 

VEPROR 

E7 ,1461 

139 

AOG 

E7 , 1527 

141 

VP  PR  EC 

F 7, 1605 

141 

DEL  TEEO 

E 6 , 1737 

132 

GTS  TEMP  S 

Eft, 1752 

133 

E 

E7 ,1462 

139 

MAP KCTR 

E7 ,1534 

147 

HC  AL  C 

E7, 1605 

141 

LOOPCT 

E 6 , 1737 

13  2 

K2THETA 

Eft,  1752 

137 

D A P T *•  EG6 

E7, 1462 

139 

TRKMKCNT 

E7 ,1535 

141 

P ACT3 

F7 , 1605 

141 

POSTTPI 

E 6, 1737 

133 

EDO  TSQ 

Eft, 1753 

137 

DAPAEUPT 

£7,1463 

140 

/AFC/ 

E7 , 1536 

147 

UNIT/R/ 

E7, 1606 

147 

XSCREF 

E 6, 1737 

13ft 

DAP  TEMPI 

t ( ,1794 

1 37 

DAPLRUPT 

E7, 1463 

lft-0 

NOP ME  X 

E7 ,1543 

141 

UNVEC 

E 7 , 16  06 

147 

XSMD 

E 6,  1 

131 

ROT  EM P 2 

Eft  , 175 

137 

DA  PB  OR  PT 

E 7 , 1*6  4 

140 

©SAVED 

E7 , 1 543 

141 

V ACT  3 

E7, 1606 

149 

P I FP  SET 

E 6 , I 

133 

C OT  SENSE 

Eft  , 175- 

137 

rDAPZPiPT 

E7 , 1465 

140 

FCCDD 

67,1544 

147 

F7, 1607 

141 

GAMPF  FV 

E • 

136 

DAP  TEMP2 

Eft  , 1761 

137 

AK 

E7, 1465 

140 

RTP.  N 

E7 ,1544 

149 

L ANDTEHP 

E7 , 1607 

142 

INTIME 

E 6, 1741 

131 

POL  YTEMP 

Eft  ,1762 

137 

AK1 

E7, 1466 

140 

NN 

E 7 , 1 544 

149 

OURTEMPS 

67,1607 

149 

7TNH0LD 

E 6 » 1 7 4 1 

132 

•SCENT  AL 

Eft,  17.6  3 

137 

AK2 

E7  , 1467 

14  0 

FP 

E7 , 1 546 

145 

DEL  T AQ 

E7 , 16  1 0 

149 

FW EIGHT 

E 6, 1741 

132 

SHF T FI  AG 

Eft  , 1764 

137 

EDO  I VEX 

E7, 1470 

1 4 0 

SUB  EX  I T 

E7 ,1550 

145 

MAP  KCNTR 

E7.1611 

141 

DEL  DV 

E6, 17*  1 

133 

F1REFCT 

Eft, 17ft  5 

137 

EOF  IVEY 

E7, 1471 

140 

F7QVERL A 

E7, 1 551 

141 

R P A S S 3 

E7, 1611 

141 

DELTEE 

F6, 174  1 

1 36 

0APTEMP3 

Eft  , 17.4ft 

137 

EDRIVEZ 

F 7 , 1 ft'  7 1 

140 

whccapes 

E7 , 1 55  1 

145 

X Y M A R K 

El,  1611 

141 

TSTRT 

E6, 1742 

1 31 

TEMPNUM 

E6 , 1767 

137 

PJETCTR 

E7 , 147  1 

141 

VACT1 

E7 , 1 55  2 

145 

MKDEX 

67,1611 

142 

XI  INPUT 

E 6, 1742 

132 

K2CNTRAL 

Eft ,1770 

137 

UJETCTR 

E7,lft 71 

144 

RTARG1 

E7 ,1552 

147 

VN1 

E7, 1612 

149 

DIF 

Efc, 1742 

133 

T10AXIS 

Eft , 1771 

137 

EN D - E 6 

E 7 , 1471 

145 

TX789 

E7 ,1552 

149 

TTF/8TMP 

67, 16  13 

141 

CSIALRM 

E 6, 1742 

136 

DAP TE MPA 

Eft,  1771 

137 

VJFTCTR 

E7, 1 ' 71 

1 7 

ABVEL 

E7.1553 

145 

PLAN  VEC 

E7 , 1613 

141 

TITER 

Eft, 174 3 

131 

HUMBERT 

E 7, 1400 

1 3 ft 

A Tier NC 

E7, 1473 

120 

R DOT 

E7 ,1554 

149 

EL INCP 

E7, 16 14 

147 

YSCREF 

E 6 , 1 "'A  3 

132 

WCENTPAL 

E7, 140  2 

13  7 

PT 1 G IMG 

E7, 1 473 

147 

HOC  TO  I SP 

67,1556 

149 

AZ I NCR 

E7 ,16 14 

147 

YSMD 

E 6 , 1743 

136 

DAP  TEMP5 

E 7, 1404 

138 

ADTAZ 

E7 , 1475 

147 

TTFDISP 

E7 , 1557 

141 

VP AS S3 

E 7 , 16 14 

149 

pSEUDn55 

E 6, 1744 

131 

ROTINDEX 

E7, 1412 

138 

AOTEL 

E7 , 1ft  77 

141 

P.APREC 

E7 ,1560 

147 

PI PTIME1 

E7 , 16  1 5 

1^1 

VEPBNOUM 

E 6 , 1 

1 32 

ACENTRAL 

E 7 , 1 ft;  2 0 

138 

LRHMAX 

£7,1477 

141 

RPASS1 

E7, 1560 

149 

KEEP-2 

E7, 1615 

149 

FC 

E 6 , 1 ~ L 

132 

INI NOEX 

E7,  1' 21 

13  3 

LP  WH 

E7, 1477 

14  5 

GAMMA 

F7 ,1561 

145 

TSTGHT 

E7, 16  16 

141 

ROOT  V 

E 6 , 1744 

133 

ADR SDTF2 

F 7 , 1 2 2 

13  8 

ZOOMTI ME 

67,1477 

147 

SA VET-30 

E7 , 1 56  2 

147 

GOT  1/2 

67,1616 

142 

ITCTR 

E 6 , 1 7 44 

136 

DAP TE MPA 

E7 , 142  3 

138 

TENDBRAK 

E7, 1 '01 

147 

DELVCn 

F7 ,1562 

149 

TABLTTF 

E7 ,1617 

149 

TTHROT 

Eft, 1745 

132 

DEL 

E7 ,1423 

139 

P E POSC NT 

E7, 1501 

147 

VGBCDY 

E7 ,1565 

141 

VACT4 

E7 , 1620 

141 

CENTANG 

Eft, 1745 

132 

JETRATF 

E7 , 1424 

138 

TEND APPR 

E7 , 1501 

835 

TG01 

E7 ,1565 

142 

VT  PR  I ME 

E7 , 1620 

149 

FCOL  D 

Eft,  1745 

133 

HOLOQ 

E7 , 1 'V  2.4 

139 

.iEPOSTM 

E7 , 1 502 

145 

OMEGA 

E 7 , 1570 

147 

MASS  1 

E7, 1621 

149 

E2DPS 

Eft, 1745 

13-4 

CAP  T7 EG1 

E / ,142 5 

138 

DEI  TTFAP 

67,1505 

141 

VAPREC 

E7 ,1570 

855 

1/DVC 

E7 , 1621 

149 

OURPER^S 

E 6,1745 

1.509 

OLD  SENSE 

FT  ,1-26 

13  8 

LEADTIME 

E7, 1505 

14  1. 

VPASS  1 

E7 , 1570 

864 

DVCNTR1 

E 7 , 162 1 

149 

WC HP HOLD 

E 6 , 174ft 

132 

A2CNTR  AL 

E 7 , 1426 

1 3Q 

OF!  TATM 

E7 ,1505 

144 

VPASS4 

E7 ,1877 

147 

LIS 

E7 , 1622 

142 

DEI  V I MU 

E6,174b 

132 

JET  RAT  EQ 

E7 , 1427 

138 

RPCRT I ME 

E7, 1507 

147 

OVTOTAL 

E7 ,1573 

141 

DEL  VC  S I 

F7 , 1622 

147 

ZSMD 

E 6, 1746 

132 

SCR  ATCH 

E7 , 1430 

138 

RPCRTQSW 

E 7 , 1 5 1 1 

147 

GOB LT I ME 

E 7 , 1 573 

141 

SEC  MAX 

E7 , 1622 

148 

ZSCREF 

Eft, 1746 

133 

ADR  SDIF1 

E 7 , 1 ft,  3 1 

138 

TNEWA 

E7 ,1513 

141 

VACT2 

E7, 1573 

141 

T DEC  2 

E7 , 1622 

149 

FILLER 

E 6 , 1 7 46 

136 

DAPTREG2 

El, 1433 

139 

DEL  VL VC 

67,1513 

147 

ABDVCONV 

E7 , 1 573 

149 

TPIPQL.D 

E7 ,1623 

149 

FLPASSO 

Eft, 1^47 

132 

HAL  FAR.G 

F 7 ,143  3 

1 39 

DEL  VOL  V 

£7,1515 

147 

DVCNTR 

E7 , 1 575 

141 

DEL  EL 

67,1624 

149 

T P I P 

Eft, 1747 

132 

JET  RATER 

E7 , 14ft  L 

139 

TTG 

£7,1516 

147 

TGO 

E7 ,1575 

141 

DEL  V ft  I D 

E7 , 1 6 26 

149 

VGU 

E 6, 1747 

133 

HH 

E7 ,1443 

139 

RTARG 

E7, 1520 

147 

R 

E7 , 1 575 

14  1 

DEL  VTP I 

E7 ,1630 

142 

TPASS4 

E6, 1747 

136 

DAP  TREG3 

E7 , 1451 

139 

DELLT4 

E7 , 1 520 

147 

UNITGOBL 

E7 ,1 575 

141 

DVPPEV 

E7 , 1630 

144 

TINT 

E6, 1750 

131 

OPS  BURL. 

E7 , 145  3 

139 

TF  I 

E7, 1521 

14  1 

RPASS2 

E7 ,1575 

141 

KT 

E7 ,1630 

148 

END-ALIG 

Eft, 1750 

132 

QRCMTR 

E 7 ,14  5 3 

1 3 ° 

'r  FOGG 

67,1521 

14  1 

RPPREC 

E7 , 1 57  7 

141 

DIFFAl.T 

E7 , 16  30 

148 

RSUBL 

E 6, 17  50 

137 

DAPTREG4 

E7, 1455 

139 

WHICH 

E7 , 15  24 

145 

BV ECTOR 

E7 , 1 600 

147 

VIS 

E7 , 1630 

152 

END-E7. 3 
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E 7 , 1630 

152 

RCO 

E7 , 1665 

142 

QTEMP  1 

E7 ,1711 

144 

LOSUES.RD 

E7 ,1745 

146 

R65CNTR 

4201 

452 

° I N SUPBT 

E7 , 1632 

142 

QTEMP 

E7 , 1 66  ^ 

142 

RGFXIT 

E7 ,1711 

148 

P21  VEt 

E7 ,1745 

146 

WHCHREAD 

4242 

209 

V00N34 

E 7, 1632 

152 

YCO 

F7, 1665 

142 

SAVOR 5 2 

E7, 1711 

151 

ALTRATE 

E7, 1745 

151 

LASTLADW 

4303 

456 

ENDBLFF 

p 7 1 /,  -2  7. 

1 a ? 

Tf  5 T 

P7  . Uii, 

1 4 ? 

r 7 Y '■ 

C7 . 1 71 9 

1 4 5 

M7 

F7 . 1 74  6 

152 

Pf^n_p7  n 

A -a  1 7 

1073 

FOURTEEN 

C I y 1 r D D 

I U J 

l ♦ lrou 

1 c. 

L 1 f 1 1 C. 

■L  “ 

LINU  C • VJ 

‘r  D 1 f 

E 7 , 1 634 

149 

LAND 

E7 , 1666 

150 

PU  EL NEED 

F7 , 1712 

151 

ALTSAVE 

E7 , 1746 

145 

N49FLAG 

4317 

1073 

0CT16 

E7,  1634 

152 

1/D  VI 

£7,1666 

150 

FUNNYDSP 

E7 ,1713 

148 

P21GAM 

E7, 1746 

146 

RDOTMSAV 

4320 

1095 

OCT  1 1 

P 7 1 A 7 c; 

1 L.  9 

TTP  I 

P 7 1 AAA 

] CD 

T ft  POP  Q 

P7  17  14. 

1 A 

D A P 

P7  . i 7Zi. A 

IS! 

RODCOUNT 

a o o n 

1 GOO 

MINE 

L ' y iOOJ 

L / y 1 OOU 

1 lUl  o 

t-  ' f 1 > 1 V 

JL  S> 

r 1 ! A L? 

C r f r (‘to 

1 U 7 7 

E7,lt>3r- 

148 

UCSM 

E7 , 1667 

150 

LODKANGL 

£7,1714 

151 

LADQSAVE 

E7 , 1747 

152 

END-E7. 1 

4350 

1010 

FBANKMSK 

E 7, 1636 

15? 

1/DV2 

E7, 1670 

142 

XXXALT 

£7,1714 

829 

PIPCTPa 

E7 ,1750 

146 

RDOTM 

4350 

1099 

RANKMASK 

E 7,  1637 

142 

T T d 10 

f-r  , ] ft  70 

150 

FOUR  PERM 

F7 , 1715 

148 

P?  1 ALT 

E7 , 1 75  2 

146 

T ANGNR 

4350 

12  86 

— M A Y A HD  x 

' 1 M A A UK  o 

E 7,  l 

152 

1/DV3 

E7, 1670 

150 

LRLCTR 

E7 , 1715 

1 - 1 

DT 

E7 ,1754 

146 

MKT  I ME 

4355 

218 

OCT  30000 

E 7, 1641 

142 

RT!  G 

E7 , 1671 

150 

LRRC  TR 

E7, 1716 

143 

MUASTEER 

E7 ,1756 

146 

RM 

43  5 5 

1099 

8IT13-14 

E 7, 1642 

149 

TTF/8 

E7, 1672 

1+2 

ENU-1N/M 

E7, 1716 

151 

DALTRATE 

E7 , 1 75o 

151 

R0DSCAL1 

4355 

1 099 

PR  I 030 

E 7,  1642 

152 

XRANGE 

E7, 1672 

143 

UT 

E7 , 1717 

144 

UXVECT 

E7 ,1757 

151 

LASTTPIP 

43  5 6 

461 

812-1 

E 7 , 1 644 

148 

NEW VEL 

E7  , 167? 

144 

ER  ADM 

E7 , 1717 

151 

QAXIS 

E7 ,1760 

146 

RANGRDOT 

4357 

1286 

S88 ITS 

E 7 , 1 6 4 4 

149 

EL  I DUMMY 

E 7 , 1 6 7 2 

150 

lrmctr 

F7 ,1717 

151 

UHYP 

E7 , 1761 

151 

THISTPIP 

^360 

1099 

DCT2  3 

E7» 1644 

150 

VDGVERT 

E7 , 1673 

150 

LRSCTR 

E7, 1720 

143 

MU/A 

E7 ,1762 

143 

TI GS  AVF 

4361 

381 

DEC  17 

E 7, 1644 

152 

ENGOFFDT 

E7 , 1674 

144 

I NCORPEX 

F7 ,1720 

145 

SC A L SHF  T 

E7 , 1762 

146 

P21TIME 

43  61 

892 

17CMS 

E 7 , 1 645 

149 

AZI DUMMY 

E7, 1674 

150 

ST! LBADH 

E7, 1721 

145 

RXZ 

F7 ,1763 

151 

GLDPIPAX 

4362 

789 

ASTNDEX 

E 7 , 1 6 4 5 

152 

VGVECT 

E 7 , 1675 

144 

R 1 IS YCH 

E7, 1722 

143 

RTMAG 

E7 ,1764 

143 

T IGSAVEP 

436  2 

1099 

0CT25 

E 7 , 1 6 

149 

ZER DUMMY 

E7 , 16  7 5 

1 4 5 

1GRET 

E7, 1723 

U 5 

ULC 

E 7 , 1764 

146 

SC  A X I S 

4362 

1391 

UP  2 1 

E 7 , 1 646 

1 5 C 

NIG  n L on P 

E7 , 1 6 7 5 

145 

LGR  FT 

E7 , 1724 

143 

PIC 

E7 ,1764 

151 

r LDP  I PAY 

<^363 

1099 

TEN 

F 7 , 1 

142 

VTI  G 

E7, 1675 

145 

RDF  ET 

E7  , 1725 

120 

ZAX1S1 

E7, 1765 

151 

OLDP  IPAZ 

4512 

465 

ENDPINBF 

F 7, 1647 

149 

ELVDUMMY 

E7, 1675 

148 

P2  1 BASER 

E7, 1725 

144 

UYVECT 

E7 , 1 76  6 

143 

MUSCALF 

46  16 

525 

ENDR  MOD  F 

E 7, 1647 

150 

NGUIDSU8 

§7 ,1675 

150 

STILBADV 

E7, 1725 

151 

UHZP 

E7 ,1766 

151 

DELVROD 

4733 

1506 

1/  .03 

E7 , 1647 

150 

WCHVEP  T 

F7 ,1676 

145 

E0 

E7 , 1731 

145 

S INTHETA 

E7, 1772 

146 

POINTVSM 

4734 

1095 

LIMITS 

E 7",  165  0 

149 

L RADR  ET 

E7, 1676 

14  5 

MX 

E7 , 1732 

143 

SS 

E7 , 1 774 

151 

HCALC  1 

4735 

67 

NJETSBIT 

E 7 , 1651 

I40 

VSELECT 

E 7 , 1676 

150 

LATVMETR 

E7 , 1733 

144 

DATAGOOO 

E7 ,1777 

152 

END— E7 

4735 

68 

DR  FTR  IT 

E 7, 1652 

14p 

NEWPOS 

E7 ,1677 

150 

FORVMETR 

E7.1733 

146 

RRTRUN 

E7, 1777 

152 

END-F7.4 

47  3 5 

72 

MRKIDBIT 

F 7 , 1 

149 

VME  AS 

E 7 , 1700 

143 

VGPREV 

E7 ,1733 

151 

DEL  VS 

4000 

28 

FFTAG1 

4735 

73 

DSK YFBIT 

E7, 1653 

152 

TXO 

E 7, 1700 

14  3 

VGTIG 

E? , 1734 

143 

F 

4000 

28 

FFT  AGIO 

47  35 

75 

S32BIT1 

F 7 , 1 

149 

HME  AS 

E 7 , 1 7C0 

14  5 

El 

E7 , 1734 

144 

OMEGAD 

4 000 

28 

FFTAG11 

47  3 5 

77 

ITSWBIT 

E 7 , 1 ( c 5 

I 2 

DEL  VS  IN 

F7, 1700 

1 50 

LATVEL 

E 7, 1734 

144 

0MEGD1 SP 

4000 

28 

F F TAG  1 ? 

47  35 

78 

c °cflbit 

E 7 , 1455 

143 

rc 

E7 , 1701 

150 

FOE  VEL 

E7, 1735 

146 

RP  SHAFT 

4000 

28 

FFT  AG  1 3 

473  5 

83 

I.RBYB  IT 

E7, 1655 

152 

I-E7.5 

E7, 1702 

145 

E 2 

E7 ,1736 

143 

MOOT 

4000 

28 

FFTAG2 

47  3 5 

85 

CDESBIT 

E 7 , 1656 

149 

VN2 

E7, 1702 

150 

TRAKLATV 

E7 , 1736 

144 

N SRCHPNT 

4000 

28 

FFTAG3 

47  3 5 

87 

PULSES 

F 7 , 1 656 

150 

GNUR 

E 7 ,170  3 

144 

VXRCM 

E7 , 1737 

144 

SAVLEMV 

4 COO 

28 

FFTAG4 

4735 

1099 

negmax 

E 7 , 1656 

150 

GNU  V 

E7, 1703 

148 

P21BASEV 

E 7 ,1737 

1 

LFS22.  IX 

4000 

28 

FFTAG7 

4735 

1099 

VLCADCOD 

E 7 , 1656 

15C 

L.  A DR  ET 1 

F7, 1703 

150 

TR AKFWDV 

E7 , 1740 

14  3 

TDECA  Y 

4 000 

28 

FFT AGP 

47  3 5 

1285 

SBIT15 

E 7 , 1 6 6 0 

14  R 

LNC HTM 

E 7, 1704 

1 4 5 

E 3 

E 7 , 1 740 

146 

RP  BORS  IT 

4000 

28 

FFT  AG9 

4736 

65 

J SWCHRI T 

E 7, 1662 

148 

TRANSTM 

E7, 1704 

145 

MY 

E7, 1741 

151 

ALTAI TS 

4000 

28 

FADARFF 

4736 

67 

DIDFLBTT 

E 7 , 1663 

142 

DEL  VSAB 

E7 , 1 704 

150 

VHY 

E7, 1742 

143 

VEX 

4000 

152 

END— F 7 . 2 

4736 

6 8 

SRCHO BIT 

E 7 , 16  6 3 

142 

VGD  ISP 

E7 , 17 

15  1 

VHZ 

E7  , 1742 

772 

2VEXHUST 

4060 

154 

UPRPTBB 

47  36 

70 

GLOKFBI T 

E 7 , i 6 6 4 

148 

NCSMVEl 

E7, 1706 

14  3 

VG 

E7 , 1 743 

151 

RUN  IT 

4 101 

1099 

OCT 60000 

4736 

72 

PR IOOBIT 

E 7 , 1 664 

150 

DEL  TAH 

F7 , 1706 

15  1 

VVECT 

E7 , 1744 

143 

I RE  TURN  1 

414  4 

1372 

VERBMASK 

4736 

75 

S32BIT2 
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4736 

77 

MAN UF BIT 

4741 

69 

STEERBIT 

4744 

6 7 

VEHUPBIT 

4747 

68 

TRACK  B J T 

4751 

1285 

S+4 

4736 

80 

FLVRBIT 

474  1 

70 

NR  29  F Bf  T 

4744 

69 

XDELVBIT 

4747 

69 

AVFL  BIT 

4751 

1 28c 

SBIT3 

4736 

82 

INTFLB1T 

4741 

72 

MW A I TBIT 

4744 

7 1 

PPEC1 B I T 

4747 

71 

STATEBIT 

47  5? 

37 

DEI  AY MUM 

4736 

85 

PEM0D3T  T 

4 74  1 

74 

RT7FLBTT 

474  4 

72 

nrmnvbit 

4747 

73 

MF  UPTBTT 

4752 

66 

R 1 0 F L 3 1 T 

4736 

87 

USEQRJTS 

4741 

77 

SWAMDBIT 

4744 

76 

MUNFLBI T 

4747 

78 

AVEGFBIT 

4752 

66 

GUESSBI T 

4736 

1099 

HALF 

4741 

79 

LMOONBIT 

4744 

77 

V67FLBI T 

4 74  7 

79 

APSESBIT 

4752 

70 

CAL  C2BIT 

4736 

1C  9.9 

PGS1/2 

4741 

80 

FLPI 81 T 

4 744 

79 

SURFFBIT 

474  7 

8 l 

QUIT BIT 

4752 

71 

D6GR9BI T 

4736 

1099 

PRI 020 

4 74  1 

83 

PSTHIBIT 

4 744 

81 

FL APBIT 

4747 

84 

P EADVRIT 

4752 

75 

MGLVF9IT 

4 736 

1285 

SOI T14 

4 741 

8 5 

REPOS BIT 

4 744 

04 

LRINHBIT 

4747 

86 

LRALTBIT 

47  c 2 

76 

AUXFLBIT 

47  37 

40 

H 1°  THRDT 

4 74  1 

87 

ACC4DR 2X 

4 744 

86 

L P VEL  B I T 

474  7 

8 8 

AOP  BSYST 

4752 

78 

V52EMBTT 

4737 

65 

MIDFL KIT 

4741 

131 

QRBIT 

4744 

87 

DRIFTBI T 

4747 

613 

HL  I TE 

47  5 2 

80 

INHABIT 

4737 

67 

ERA  OF  B I T 

4741 

109Q 

EBANK4 

4744 

1285 

SBIT8 

4747 

749 

OCT  20 

4752 

81 

MIDAVBIT 

4737 

68 

ACMCDBIT 

4741 

1099: 

PR  I 02 

4744 

13  31 

IMUSEFLG 

4747 

75  1 

L STL  1M 

47  5 2 

34 

VFLSHBI T 

4737 

70 

REF  SMB I T 

4741 

1099 

2K 

4744 

150  6 

. 0 1 2 5 R S 

4747 

821 

+AZBIT 

4752 

86 

AUT0M8IT 

4737 

72 

NP  M I D B I T 

4741 

12  8 5 

S B I T 1 1 

4745 

66 

RNDVZBIT 

4747 

128  5 

SBIT5 

4752 

88 

AUTP  ATE  2 

4737 

7 4 

SNU  F F B I T 

474  2 

6 5 

F SPA  SB  IT 

4745 

6 7 

l Jp  DATB I T 

4747 

1^12 

CALLGMBl 

4752 

746 

BLANKDEX 

4737 

75 

S32BIT3A 

4742 

67 

R6  1 F L B I T 

4745 

69 

ETP  IBIS 

4750 

66 

NEEDLBIT 

4752 

821 

+ELBIT 

4737 

77 

IGNFLBIT 

4742 

70 

VFI  AGBIT 

4745 

69 

OPTNBIT 

4750 

69 

PFRATBIT 

4752 

1099 

TWO 

4737 

79 

NEW IBIT 

474  2 

7? 

MW  A I T B I T 

4 745 

71 

cultbi t 

4750 

71 

I NT  Y PB I T 

4752 

1235 

S + 2 

4737 

8 2 

APSFLBI ■ 

4 742 

74 

PtiGSCBIT 

47  45 

73 

PPONVBIT 

4750 

73 

NPUPTBJT 

4752 

1235 

SBIT2 

4737 

85 

' CD  IJOB  Ir 

4742 

74 

GMBDRBIT 

4745 

74 

ENGONB  .<  T 

4750 

75 

NOR  f 'kit 

4752 

13  89 

IJP72 

4737 

87 

GSM  DOCK  D 

4 74  ? 

77 

NORMSBIT 

4 745 

78 

IDI.EF6  I T 

4 75  0 

78 

UPLOCBIT 

4753 

66 

OL DESK IT 

47  37 

218 

OCT  10000 

4 74  2 

79 

FLUNDBIT 

4745 

79 

INF  I NR  IT 

4750 

80 

COGAFB  TT 

4753 

70 

NODOBIT 

4737 

797 

FEXTRA 

474? 

80 

FLRCSB  IT 

4745 

82 

RE  INTBIT 

4750 

84 

RNGEDBIT 

4753 

71 

DIMOB  IT 

4737 

1099 

PRI 010 

4 742 

84 

NOLRRB IT 

4745 

84 

VELDABIT 

4750 

86 

kP.DATABT 

47  5 3 

73 

XDSPB  IT 

4737 

l.oo 

QUARTER 

4 74  3 

05 

DE SI  GBIT 

4 745 

86 

RCDUFBIT 

4750 

88 

DBSEI.ECT 

47  5 3 

75 

D END  MB  T T 

4737 

128  5 

SB! T13 

4 74? 

87 

A f i B I ■ AN 

4745' 

87 

PHCSCAI  E 

4750 

232 

OCTCOOl 0 

4753 

77 

ATTFLBIT 

4740 

617 

Monwe  l T 

474? 

1 3 1 

PB  I T 

4.745 

1 09  6 

qipfi.  1 ■ip 

4750 

827 

TC,r  A|  T fv \/ 

47  5^ 

7 Q 

TCCCURIT 

4740 

6 7 

ROD  FL  B IT 

4742 

1099 

PRI  01 

4745 

1285 

SRI  T7 

475  0 

1099 

1 j v W L 11  V 

EIGHT 

“ f J D 

4753 

f O 

80 

' I 1 O ™ D i I 

360SWBIT 

4740 

68 

LDSCMBI t 

4742 

1285 

SBIT  10 

4746 

66 

RRNB8IT 

4750 

1285 

SBIT4 

4753 

81 

AVEMD8I T 

4740 

7 0 

L UN ABIT 

4 74  3 

66 

P25FLBIT 

4 746 

6 7 

NUUPFBIT 

4 750 

1419 

DSPLYALT 

47  5 3 

85 

HFLSHBIT 

4740 

72 

PDSPFBIT 

4-743 

4 0 

I '■  PUL  BIT 

4746 

6 9 

FINALBI T 

a- 751 

66 

FREEFBIT 

4753 

86 

TURNON  BT 

4740 

74 

NOT  HR  B I T 

4743 

71 

READRBIT 

4 746 

71 

ORBWFB IT 

475  1 

68 

SLOPEBIT 

47  5 3 

88 

AUTRATE 1 

4740 

7 5 

S32BIT3B 

4743 

71 

R04  F L 3 1 T 

4746 

73 

PI NBRBT  T 

475  1 

70 

CALC3R  TT 

47  5 3 

209 

LAGS!.  1ST 

4740 

77 

ASTNBIT 

4743 

72 

MRKNVBIT 

4746 

74 

3AXI SBI T 

475  1 

71 

VINTFBIT 

47  5 3 

821 

-EL  BIT 

4740 

79 

CM0ONBI  T 

4743 

74 

DMENFBIT 

a 746 

76 

REDFL  BIT 

4 751 

73 

MKOVBIT 

4753 

1099 

ONF 

4740 

80 

FLPCBIT 

4743 

77 

RVSWBI  T 

47  46 

78 

V37FLB! T 

4751 

75 

SCLNSBIT 

47  53 

12  85 

S + l 

4 74Q 

8 3 

VXINHBIT 

4743 

79 

P 3 0 S W BIT 

4746 

79 

ORDERB  IT 

4751 

76 

NTARGBIT 

4753 

1 2 P5 

SBI  T1 

4740 

88 

AMTENBIT 

4743 

31 

LETABBIT 

4 746 

81 

RDTFLBIT 

4751 

78 

VER  I F B I T 

47  5 3 

1 3 89 

UP?  1 

4740 

87 

OUR  RCB1T 

4 74  3 

34 

XDPFLBIT 

4746 

84 

READLB IT 

475  1 

81 

MID1FBIT 

47  54 

1286 

S-ZERO 

4740 

827 

TTF SCALE 

4743 

85 

ALTSCBIT 

4 746 

86 

LRPOSBIT 

4751 

84 

SCABBIT 

4755 

235 

DNLADPOO 

4 740 

10Q9 

OR  I 04 

4743 

87 

XDVINHIB 

4746 

88 

ULLAGER 

4 751 

86 

RRRSBIT 

47  5 5 

1285 

S+ZERO 

4740 

1285 

SBI T 1 2 

4743 

1285 

SBI  T9 

4746 

321 

-AZBI T 

4751 

88 

ACC  SDK  AY 

47  5 5 

1 389 

UP70 

4741 

43 

MTNCSM 

4 743 

1309 

SPSCODE 

4 746 

1285 

SBIT6 

4751 

613 

VL  ITE 

4756 

223 

NUMGRPS 

4741 

6 5 

P2 1FLBIT 

4 744 

66 

IMUSEBIT 

4747 

66 

LOKONBT  T 

4751 

1099 

FOUR 

4756 

1285 

S + 5 
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4756 

1391 

U PD TP HAS 

5472 

263 

TEF  ME  XT V 

01,2000 

26 

RESTART 

05,2  154 

199 

LMREND04 

10,2000 

29 

RTBCODES 

4757 

444 

DSPMSK 

5472 

264 

ENDEXTVB 

01 ,2000 

239 

PPDTTAB 

05,2154 

200 

L M0SAS04 

1 0,2000 

29 

SLCTMU 

4757 

1099 

LOW  3 

5472 

1372 

ENDEXT 

01  ,2001 

2 39 

cadptab 

05,2154 

202 

1 MLSAL04 

10,2330 

1 372 

GOXDSo 

/,  7 tc  7 

i ■;  r<  a 

Pa-7 

* 644 

I304 

ABPR  T 

01  . 20  1 fa 

239 

2 . 2 SPOT 

05,2154 

2 QA 

1 MAGSI04 

10,2334 

1372 

r.  n x n ft  p f 

tl-  f D / 

4757 

1374 

0CT7 

5660 

2 32 

NEG7 

V2  i.  1C.'-  1 

01  ,201b 

240 

3. 2SP0T 

05,2157 

196 

LMCSTA05 

1 0,2350 

1372 

\/U  a l/  j r 1 

GOXDSPR 

4760 

74  5 

VB99DEX 

5660 

1286 

S-7 

01  ,2016 

243 

6,2  SPOT 

05,2157 

199 

LMPEND05 

10,2353 

1372 

GOXDSPFR 

4760 

109  9 

NCUTCON 

5751 

131 

12  CMS 

01,2516 

1094 

Sw/ 

04  ,2157 

200 

LMDSAS05 

10,3050 

1372 

GO AG  IN 

4761 

1073 

TH I RTEEM 

575  1 

1331 

BITS3&4 

04,2000 

28 

A0TMAPK2 

05,2157 

202 

LML SAL  05 

10,3070 

1372 

GOFLAY 

4762 

745 

CNTDNDEX 

5751 

1484 

TWELVE 

04,2000 

28 

CONICS  1 

05,2157 

204 

LM AGS  105 

11  ,2000 

29 

F2DPS*1 1 

1 0°6 

p pr  y 7 

6 000 

? ft 

F F T A G 5 

04 . 2 000 

28 

E / PROG 

05,2170 

200 

1 M 0 ft  a c 0 6 

1 1 .2000 

29 

I NTVE  L 

*+  f O *T 

4765 

74  5 

U 61  r 

VB97DEX 

6000 

e O 

28 

FFTAG6 

04,2000 

28 

KEYPUPT 

05  ,2170 

202 

t—  1 1 U J H 1 

L ML  S AL  06 

J.  1 1 c.  yj  w 

1 1,2000 

29 

ORBITAL 

4765 

1096 

DEC  29 

6001 

74Q 

? 

04,2000 

28 

PINBALL4 

05,2172 

193 

NOMDNLST 

12,2000 

29 

CONICS 

4766 

279 

250MS+1 

601  C 

20c 

V0CN25 

04,2000 

28 

R02 

05,2172 

196 

L 1C ST  ADL 

12,2000 

29 

0RBITAL1 

4766 

1 5 1 0 

0 AT  EL  T'-'! 

6074 

130  3 

0CT177 

04,2000 

28 

R36LM 

05,2224 

199 

LMPEND06 

12,2000 

30 

INTPP.ET2 

4767 

1510 

' AT  EDB1 

61C7 

1099 

V L 0 A D * 

04 , 2000 

28 

UPDATE2 

05 ,2224 

201 

LM0SASC9 

12,2000 

37 

LOUNITZ 

a — 7 i 

'A  (74 

v t x r r w 

1 ? O A, 

c -1 

A 4 . in OO 

2 8 

V Ep  B37 

05 ,2224 

202 

1 11  ft  A i 08 

1 ? . ?nn ? 

8 7 

1 mtMT  TV 

H f 1 

1 1 A V/UrN 

“ 1 I £ 

I c • O 

L • L J H L.  O 

1 6 1 C.\J  C. 

D 1 

L U U ! V 1 IT 

4771 

1286 

CNTRCON 

6242 

1099 

SI  X 

04,2040 

447 

MODROUTB 

05  ,2226 

202 

LML  S AL09 

12,2004 

37 

LODPHAL  F 

4771 

1331 

BITS4S6 

624  2 

1285 

S + f 

04,303b 

37 

L0DP1/4 

05,2232 

198 

LMRENDDL 

12,2004 

37 

LOUNITX 

47  7 a 

] A A q 

n r t a ? 

6 74.  5 

5 4 3 

R 1 N3 

04.3041 

1 1 ft  6 

B E E 1 9 

1 Ml  ft  a 1 r, 7 

1 ? . ?nn4. 

1 ini 

HAl FDP 

O SD 

O 1 1 • D 

1 L a . 

— • 1 C-  C-  1 

c-'JC. 

l.  1 i~.  14  L \J  < 

i-  c.  t c.  y.>  \j  ^ 

I IL  1 

4775 

1 05  9 

0CT1 20 

6 2 4 6 

1C99 

LOW  2 

04,3045 

1 1 J5 

REE  22 

05 ,2  303 

200 

L MDSASDL 

12,2004 

1 136 

DP  1 / 2 

4776 

1 09  c 

OCT  14C 

624  5 

1099 

THREE 

04,3401 

1389 

UPPAPT2 

05,2357 

202 

lnlsaldl 

12,2004 

1148 

IB  1 

477  7 

■1  p l 

i c c r y 

474  c 

1 y pc 

s + 3 

04 ,3520 

1 39 1 

UP  S Tn0  F 

06  . ? £.07 

193 

AGSL  T ST 

12, 2006 

37 

| 06  7 ft  QP  ft 

lOCUA 

n 6T  2 

1 e O " 

O ‘-2 

.J  f c.  1 

L-  UC  £_  E_  “I.  0 

4777 

763 

SEC  0 1 

6245 

1389 

JP7  3 

04,3562 

1392 

UP  PAR  T 3 

05,2407 

1 

UPDNLIST 

12,2006 

1101 

ZFRODP 

5006 

930 

V805N09 

64  71 

1099 

0CT30002 

04 ,3711 

1394 

UPOUT 

05,2407 

204 

L MAGS I DL 

12,2006 

1137 

2DZER0 

5007 

223 

ST  ART  EB 

6741 

1025 

Q+2 

04,3712 

1391 

UP00T4 

06 , 2 000 

29 

EALTHLOC 

12,2006 

1185 

K.EPZERO 

5 0C7 

1 095 

EBANK3 

674  2 

1294 

TCQ 

05,2000 

29 

ABORTS  1 

06,2000 

29 

I MUCOMP 

12  ,2006 

1246 

DP  ZERO 

5007 

12  66 

ERA  SCON 6 

76  63 

1099 

OCTldOOl 

05,2000 

2 5 

AS  ENT 3 

06,2000 

29 

M.  I DOG  I M 

12,2017 

37 

a mm 

50  07 

1429 

or,  i m b I T S 

7712 

5 5 2 

RIT12, 14 

05,2000 

29 

DOW NT El  1 

06 ,2000 

29 

RCSMONT 

12,2017 

1202 

LDPOSMAX 

5011 

37 

ERA  SID 

7716 

1441 

25/32 

05,2000 

29 

EPHEM1 

06 ,2  000 

29 

T4RUP 

12,2021 

37 

P.MF 

5012 

1286 

S10BITS 

7722 

10°9 

B 12T14 

05,2000 

29 

FRANDRES 

06 ,2703 

180 

ICDUFAIL 

12,3755 

1246 

DQUARTER 

5014 

5C5 

NR29ERDR 

7727 

15  5 

IOC  MRU  PT 

05,2066 

194 

LM0R8M0L 

06,2703 

180 

IMUFAIL 

12,3755 

1246 

P0S1/4 

50  14 

1 43  3 

BIT S9,ll 

7727 

1413 

MS  100 

05,2127 

196 

L MG ST AO  1 

06,3132 

188 

DAPT4S 

12,3773 

1246 

2/3 

5f  15 

109  9 

EBANK6 

7 731 

159 

20MRIJPT 

05,2127 

198 

LMPEND01 

06,3132 

18* 

NOP.PGMON 

13,2000 

30 

ABTFLGS 

502  0 

907 

BITSFT 

7740 

532 

-4  3 DEG SR 

05,2127 

202 

L ML  SAL  0 1 

06, 3 15 0 

191 

FCSM# TT 

13  ,2000 

30 

INTI NIT 

5020 

1286 

SBNK03 

7740 

1372 

PI NMASK 

05,2136 

196 

LMCSTA02 

06  ,3242 

192 

5FATLTAB 

13,2000 

30 

LATLONG 

5020 

142  9 

RGI MBITS 

7741 

528 

-B I T 1 2 

05,2136 

198 

LMREND02 

06,3252 

192 

6F  A I LTAB 

13  ,2000 

30 

LEMGEOM 

5024 

13!  C 

OCT  14000 

7 74  1 

994 

MI  NO  12 

05,2136 

200 

LMDSAS02 

07,2000 

29 

A0TMARK1 

13,2000 

30 

ORBI TAL2 

5025 

181 

07 15000 

7745 

1286 

S-3 

05,2136 

2 Q 2 

LML SAL  02 

07,2000 

2 Q 

ASENT2 

13,2000 

30 

P76L0C 

*026 

131 

3 3P.DMSK 

7 746 

12  36 

S-2 

05,2136 

204 

LMAGSO.  2 

07,2000 

29 

MODESW 

13,2661 

37 

ATOPOTH 

5026 

223 

IM33INTT 

7746 

1308 

MINUS  2 

05,2145 

196 

LMCSTA03 

07,2667 

851 

SETXFL  AG 

13,2734 

37 

ATCPTHI S 

5155 

1384 

DOAL ARM 

7747 

1 090 

MINUS1 

05,2145 

198 

LM REND 03 

07,3210 

133  1 

IMUF  IM20 

13,2747 

37 

MO  V AT  H I S 

5270 

181 

GLOCKOK 

7747 

1099 

NEG1 

05,2145 

200 

LMDSAS03 

07,3712 

) 330 

OPTSTALL 

13,3043 

37 

OTHPREC 

52  70 

18.9 

END  DART  4 

7 74  7 

1286 

, S-l 

05,2145 

202 

L.MLSAL03 

10  ,2000 

29 

DISPLAYS 

13,7057 

37 

THI SPREC 

*270 

190 

KCSMOMEX 

00,20  DO! 

28 

D LAY JOB 

0*,2145 

204 

LMAGSI03 

10,2000 

2° 

FLFSHLOC 

14 ,2000 

31 

ASEMT4 

5464 

1373 

L I N U 5 

01 ,?r  00 

28 

LOAD DARI 

05,2154 

196 

LMCST  A 04 

10,2000 

29 

PHASE! AB 

14,2000 

31 

P50S1 

GAP 
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3:15  DEC.  2,1970 


PAGE  1580 


« 


ERASABLE  £ EQUALS  CROSS-SEFEPENCE  TABLE  SHOWING  DEFINITION,  PAGE  OF  DEFINITION, 


AND  SYMBOL 


DEF 

PAGE 

SYMBOL 

DEF 

PAGE 

SYMBOL 

DEF 

PAGE 

SYMBOL 

DEF 

PAGE 

SYMBOL 

DEF 

PAGE 

SYMBOL 

1 4,2000 

31 

STAR' AS 

2 3 , 2 OC C 

32 

4 PC PERI 

24,2000 

492 

PFCG22 

31,2000 

34 

F2DPS431 

36, 2777 

745 

V99RECYC 

14,2506 

635 

S50 

23,2000 

32 

AS  ENT 7 

25,2000 

32 

PL  ANT  I M3 

31  ,2  000 

34 

VB67 

37,2000 

36 

IMUSUPER 

14, 2611 

637 

4 56 

23,2000 

32 

EXTVrtl 

25,2000 

32 

P2  0SI 

32 , 2000 

34 

ABORTS 

37,2000 

36 

I M U 2 

14,3256 

945 

R*4 

23,2000 

32 

I NIEL  1GHT 

25,2000 

32 

P20S2 

32  ,2000 

B4 

F2DPS*32 

37,2000 

36 

IMU4 

15,2000 

3 1 

EPHEM 

23,2000 

32 

INTPRET1 

25,2000 

32 

PADARUPT 

32,2000 

34 

LRS22 

37,2000 

36 

P05P06 

15,2000 

31 

P50  S 

23,2000 

32 

ME  AS  INC 

25,2000 

32 

RR LEAD  IN 

32,2000 

34 

P20S4 

37 ,2000 

36 

R31 

15,2463 

25  1 

DPI/  12 

23,2000 

32 

ME A SI NCI 

25  ,2000 

32 

F29S1 

32,2000 

34 

P66L0C 

37,2000 

36 

S E 1-  V 1 

1 5,3664 

98  5 

LUN POS 

23,2000 

32 

N 1RML  I Z 

26,2000 

33 

8AWLANGS 

32,2000 

34 

R47 

37,3544 

962 

PIPSRINE 

16,2000 

3 1 

0A0  SI 

23,2000 

3 2 

POWFLITE 

26,2000 

33 

MANUVCR 

32,2000 

34 

SET  V 

4 0,20  00 

36 

PINBALL  1 

16,3*72 

1 44  C 

TWO XYZ 

23,2000 

32 

PGWFLIT1 

26,2000 

33 

MANUVE  F 1 

33,2000 

34 

ASEMT6 

40,2000 

36 

Plh SUOPB 

17,2000 

31 

CAP  S2 

23,2000 

32 

PI  2 A 

26,2000 

33 

PL  ANT  INI 

33,2000 

34 

R2. 9/SERV 

40,2000 

36 

? 1 1 1 C 

1 7,2000 

31 

P40S3 

23, 2000 

32 

R61 

26,2000 

33 

PL  ANTI  M2 

33,2000 

34 

SERVICES 

40,2000 

36 

SEL  FSUPR 

17,2022 

742 

ZOOM 

23,2000 

32 

R62 

26,2000 

33 

P20S3 

33,2677 

878 

ALTCRIT 

40,3322 

443 

ENDECVN 

17,2661 

!<-*  2 

ATT  STEER 

23,21 03 

485 

R52DISP 

27  ,2000 

33 

ASENT1 

33  ,3146 

865 

100CS 

40,3506 

450 

ENDRELDS 

17, 

1446 

14MS 

23,2314 

1 383 

F pAD  1 

27 , 2C00 

33 

P4CS1 

33,3514 

889 

END '/DAT 

40,3634 

457 

ENDBSUB1 

2 0,20^0 

3 1 

CAP  S3 

23,2511 

37 

HI  DP  1/4 

27,2000 

33 

SERV3 

34,2000 

34 

A SC  F I LT 

40 , 3534 

12  94 

DSPMMJOB 

20,2000 

3 1 

10ADDAP 

23,2511 

1283 

TFF1/4 

27,2000 

33 

TOE-FF 

34,2000 

34 

CSI /CDH1 

40,3674 

471 

ENDPINS1 

2 0,2000 

31 

RODTP AP 

23,2513 

37 

H I UN  I T Z 

27,2000 

33 

T0F-FF1 

34,2000 

34 

P30S1 

41,2000 

36 

PINBALL  2 

2 1,2000 

31 

DAP  S4 

23,2513 

37 

N B 1 N B 2 

27 ,2000 

33 

V E C P T 

3<-,  , 2000 

34 

R12STUFF 

41,2616 

417 

ENDRTOUT 

21,2000 

3 1 

P 10 

23,2513 

37 

THI SAXIS 

27  ,3753 

1282 

TCDAMZTG 

34,2000 

34 

S EP  V4 

41 , 32  30 

431 

ENDRUTIN 

2 1,2  000 

3 1 

11 

23,2515 

37 

HI  UNITY 

3 C , 2 0 0 0 

34 

A SENT 

34  ,2  000 

34 

STBLEORB 

41 ,3731 

469 

ENDPINS2 

22,2000 

32 

KAL  CM ONI 

2 3 , 2 ''  1 7 

37 

HI  DPHAI.F 

30,2000 

34 

AS  ENTS 

35,2000 

35 

CSI/CDH 

42,2000 

36 

DINBALL3 

2 2,2001 

32 

KAL CM ON 2 

23,2517 

37 

HI  UN  I TX 

30,2000 

34 

FCDUW 

35 ,2000 

35 

GLM 

42,2000 

36 

SB  AND 

22,2000 

32 

L ANDCNST 

23,25  17 

593 

C0S60DEG 

30,2000 

34 

FLOGSUB 

35 , 2000 

35 

P 30  S 

42,3606 

436 

ENDHMSS 

22,2000 

32 

MENDEZ 

23,2517 

1100 

DP  pi  ALE 

30 ,2000 

34 

LGWSUP  Ef 

35,2000 

35 

P40S2 

43,2000 

36 

EXT VERBS 

22,2000 

32 

•30 LOG 

23,2521 

37 

HI f ZEROS 

30,2 0 0 0 

34 

PI  2 

36 ,2000 

36 

P40S 

4-3,2000 

36 

SELFCHEC 

22,2000 

32 

SER  V 2 

23,2821 

59  3 

ZEP.Q/SP 

30,2000 

34 

VB67A 

36,2055 

763 

AC  A DN  8.5 

43  ,2002 

466 

PINTEST 

22, 2744 

3 64 

LOC  SKIRT 

23,2521 

11  57 

ZFf  00 

30,3022 

855 

T2  A 

36,2105 

749 

S EPVCADP 

43,2226 

269 

OPTCOAF  V 

22,3*6 i 

37 

DEL  P S PL 

23, 2521 

1283 

TFFZEPOS 

30,3767 

925 

DAZMAX 

36,2146 

733 

P12  SPOT 

43,3045 

288 

V74 

22,3541 

718 

SPL  RET 

24,2000 

32 

PLANT! N 

30 ,3771 

925 

DELERLIM 

36,2146 

73  3 

P42SP0T 

43,3100 

290 

GOSHOSUM 

22,3707 

864 

CUT  GO A Vf 

24,2000 

32 

P20S 

31,2000 

34 

fthrct 

36 ,215 1 

7 33 

P63SP0T 

43,3740 

1 388 

CKNDMDRE 

GAP:  AS  St  Bit  '-E  VISION 

SUMMARY  OF  SYMem  TABLE 
AP27  DEFINED 
2178  DEFINED 


001  GF  AGC  PkCGRA.y  APlLRQPE  BY  EYLES 
1 I ST INGS 

NORMALLY 
BY  EQUALS 


TOTAL : 


71D5 


k. 


3:15  DE  C . 


2,1970 


P AG  F 1531 


# 

4 

$ 

0 


GAP:  ASSEMBLE  >EVISI3N  0G1  OF  AGC  PROGRAM  AP11KCPE  BY  EYLE 


9 


MEMORY  TYPF 


AVA  11  A 8 I L I T Y DISPt  AY 


» 

t 


0 

0 


OOOO  TO 


0057  c P EC  1 AL  OP.  NONEXISTENT  MEMORY 


0 061  T: 


0060  AVAILABLE  ERASABLE  MEMORY 
1377  f’  E 6 t1'  VE  D Ef  ASA  RLE  MEMORY 


E 

3,14-00 

TO 

E4,  175  6 

RESERVED 

E 

4, 1757 

TO 

E4, 1777 

AVAILABI 

E 

5,  14  00 

TO 

E5,  164  1 

RESERVED 

E 

5, 1642 

TO 

E 5 , 1777 

AVAILABI 

E 

fc, L400 

TO 

E 6 , 1771 

RESERVED 

E 

6, 1772 

TO 

F6,  1777 

AVAILABI 

E 

7, 1400 

TO 

E7, 1744 

RF SERVED 

E 

7, 1745 

TO 

E 7, 177  7 

AVAILABL 

S A T’fHABt  E F ■ AS  ABLE  M E > ' 0 R Y 
E SWITCHABLE  ERASABLE  MEMORY 
SWITCHABLE  ERASABLE  MEMORY 
E SWITCHABLE  ERASABLE  MEMORY 
SWITCHABLE  ERASABLE  MEMORY 
E SWITCHABLE  ERASABLE  MEMORY 
SWITCHABLE  ERASABLE  MEMORY 
E SWITCHABLE  ERASABLE  MEMORY 


A 0 0 G TO 
7761  TO 


7760  RESERVED  FIXED  MEMORY 
7777  AVAILABLE  FIXED  MEMORY 


00, 2000 
0 1,2000 


TO 

TO 


00,3776 
00,3777 
01 , 3777 


RES  FR V ED  SWITCHABLE  FIXED  MEMORY 
AVAILABLE  SWITCHABLE  FIXED  MEMORY 
RESERVED  SWITCHABLE  FIXED  MEMORY 


§ 

i 

t 

X 


2 

J 


02,2000  TO  03,3777  SPECIAL  OR  NONEXISTENT  MEMORY 


04, 

2000 

TO 

04 

,3773 

RESERVED 

0 

4, 

3774 

TO 

04 

, 377  7 

AVAL!  ABIE 

0 

5, 

2C00 

TO 

05 

,377  4 

RESERVED 

0 

C 

f 

3775 

TO 

05 

, 377  7 

AVAILABLE 

0 

6, 

2000 

TO 

06 

, 3766 

RESERVED 

0 

6, 

.3767 

T n 

06 

, 3777 

AVAILABI E 

0 

7, 

. 20  GO 

TO 

07 

,3775 

R E SEP VEO 

0 

7, 

3776 

TO 

07 

,3777 

A V A 1 1 ABLE 

1 

0, 

,2000 

TO 

13 

,377  1 

RESERVED 

1 

3, 

,3772 

TO 

13 

,3777 

AVAILABLE 

1 

4 1 

, 2000 

TO 

14 

,3776 

RESERVED 

14 

,3777 

AVAII  ABLE 

1 

5, 

,2090 

TO 

16 

,3774 

RESERVED 

1 

6, 

, 3775 

TO 

16 

, 3777 

AVAILABLE 

1 

y ( 

,2000 

TO 

17 

,374  6 

RESERVED 

1 

7, 

, 37  47 

TO 

17 

, 3777 

AVAILABLE 

2 

0, 

,2  000 

TO 

20 

,3774 

RESERVED 

2 

o. 

,3775 

TO 

20 

, 377  7 

AVAILABI E 

2 

1 - 

,2000 

TO 

21 

,3772 

RESERVED 

2 

1, 

, 3773 

TO 

21 

, 3777 

AVAILABLE 

2 

2 

,2000 

TO 

22 

,3775 

RESERVED 

2 

2 

, 3 776 

TO 

22 

, 3777 

AVAILABLE 

SWITCHABLE  FIXED  MEMORY 
SWITCHABLE  FIXED  MEMORY 
SWITCHABLE  FIXED  MEMORY 
SWITCHABLE  FIXED  MEMORY 
SV  T rCH  ABLE  F IXED  ME  Ml.  T;  Y 
SWITCHABLE  FIXED  MEMORY 
SWITCHABLE  FIXED  MEMORY 
SWITCHABLE  FIXED  MEMORY 
SWITCHABLE  FIXED  MEMORY 
SWITCHABLE  FIXED  MEMORY 
SWITCHABLE  FIXED  MEMORY 
SWITCHABLE  FIXED  MEMOFY 
SWITCHABLE  FIXED  MEMORY 
SWITCHABLE  FIXED  MEMORY 
SWITCHABLE  FIXED  MEMORY 
SWITCHABLE  FIXED  MEMORY 
SWITCHABLE  FIXED  MEMORY 
SWITCHABLE  FIXED  MEMORY 
SWITCHABLE  FIXED  MEMORY 
SWITCHABLE  FIXED  MEMORY 
SWITCHABLE  FIXED  MEMORY 
SWITCHABLE  FIXED  MEMORY 


S 


2 ,1970 


PAGE  158? 


3: 15  OEC. 


23,2000 

ro 

23,3771 

23, 3772 

TO 

23,3777 

24, 2000 

TO 

25, 3772 

25,3773 

TC 

25,3777 

26,2000 

TO 

27, 3774 

27,3775 

TO 

27,3777 

30,2000 

TO 

31, 3763 

31,3764 

TO 

31 , 3777 

32,2000 

TC 

32, 3775 

32,3776 

TO 

32,3777 

33,2000 

TO 

36, 3 7 fc  7 

36, 3770 

TO 

36,3777 

37,2000 

TO 

37,  3776 
37,3777 

40,2000 

TC 

40,3715 

40 ,3716 

TO 

40,3777 

41,2000 

TO 

41 , 3733 

41,3734 

TO 

41,3777 

42,2000 

TO 

42,3774 

42,3775 

TO 

42,3777 

43,2000 

TO 

<,3,37  54 

43,3755 

TO 

43, 3777 

F ESER VED 
AVAILABLE 
P ESER VED 
AVAILABLE 
RESERVED 
A V A I L A B I E 
RESERVED 
AVAILABLE 
R ESER VED 
AVA  1 1 ABI.F 
R ESI  5 VED 
AVAILABI  E 
RESERVED 
AVAIL  ABL  E 
R ESER VED 
AVAILABI F 
RESF.R  VED 
AVAILABLE 
RESERVED 
AVAILABI E 
RESET  VED 
AVAILABLE 


SWTTCHABLE 
SWITCHABLE 
SWITCHABLE 
SWITCHABLE 
SWITCHABLE 
SWITCHABLE 
SWITCHABLE 
SWITCHABLE 
SWITCHABLE  FT 
SWITCHABLE  F 
SWITCHABLE  FI 
SWITCHABLE  F 
SWITCHABLE  FI 
SWITCHABLE  F 
SWITCHABLE  FI 
SWITCHABLE  F 
SWITCHABl E FI 
SWITCHABLE  F 
SWTTCHABLE  FI 
SWITCHABLE  F 
SWITCHABLE  FI 
SWITCHABLE  F 


FIXED  MEMORY 
FIXED  MEMORY 
FIXED  MEMORY 
FIXED  MEMORY 
FIXED  MEMORY 
FIXED  MEMORY 
FIXED  MEMORY 
FIXED  MEMORY 
XED  MEMORY 
IXED  MEMORY 
XED  MEMORY 
IXED  MEMORY 
XED  MEMORY 
IXED  MEMORY 
XED  MEMORY 
IXED  MEMORY 
XED  MEMORY 
IXED  MEMORY 
XED  MEMORY 
IXED  MEMORY 
XED  MEMORY 
IXED  MEMORY 


4',  , 2000  TO  57 , 37  77 


SPECIAL  Of 


NONEXISTENT  ME MOP  Y 


60,2000  TO 


6 7,  3777 


AVA  I 


ABLE  SWITCHABLE  FIXED  MEMORY 


70,2 0 C 0 TO  73,3773 


SPECIAL  OP 


NONEXISTENT  MEMORY 


GAP:  ASSEMBLE  REVISION  001  OF  AGC  PROGRAM  API 1R0PE  BY  EYLES 


ROUTINE:  COUNT 
71  EF 

BANK  GUM  REF 

00/DE  LAY  0 EE 

0 0/ I E ' T ' EF 

01/EXEC  i FF 

01/INTER  REF 

Ol/fSROU  P EF 

01/ T STAB  EF 

01/R03  REF 

01/WATT  EF 

02/ALARM  REF 

02/BANK  REF 


A FOP  ROUTINE'S  LAST 

0 LAST  TO  28: 

L LA  2 38: 

1 LAST  1377  TO  1379: 
1 LAST  10*7  TO  1087: 

1 LAST  11  Of  TT  1116: 
1 LAST  1087  TO  10°5: 
3 LAST  1307  TO  1309: 

1 LAST  239  TO  244: 

2 LAST  293  TF  297: 

2 Past  l i 3 i Tn  1 133: 

2 LAST  1382  TO  1385: 
1 LA  1002 : 


reach:total:cumul 

ooo 

65  65  65 

31  31  96 

974  97<  1070 

280  280  13c0 

157  157  1507 

161  1 

132  132  1307 

94  96  1903 

aa  l<:o  2 09  2 

79  116  2208 

76  2284 


0 2/  DA  P T 6 -EF  1 LAST  l'C4  TC  1405:  i 18  2302 
02/DSPLA  REF  1 LAST  135"  ^0  1354 : 16  If  2318 
02/EXEC  c FF  2 LAS  T 1116  7%  |fl9:  6 68  23« 3 
02/EXTVB  REF  1 LAST  1380  TO  1381:  4 * 2387 


02/FCTNS  REF  1 LAST  1C95 

0 2 /EL  AG  I FF  1 LAST  137* 

0 2/ 1 MODF  REF  1 LAST  1309 

02/IN1  EP  FF  1 LAS'  1102 


TO 

TO 

1C?7 : 
1377: 

64 

32 

64 

32 

2451 

2483 

TO 

1310: 

5 

5 

2488 

TO 

1 1 03 : 

32 

32 

2 52  0 

02/PHASE 
02/PIN 
02 /PC 7 
0 2/P  r SUB 


REF 

1 

LAST 

12?8 

TO 

1300: 

7 1 

71 

’ 1 

REF 

6 

LAST 

464 

TO 

467: 

37 

246 

2337 

R EF 

1 

LAST 

381 

TO 

333: 

18 

18 

2855 

REF 

1 

LAST 

520 

TO 

52?  : 

08 

68 

2923 

02/RSR0U  REF  2 LAST  1306  TO  1307:  10 


0 2 / r-  UPTS 

0 2/ T f AN 

REF 

REF 

1 

1 

LAST 
LA  S T 

153 

1 37  9 

TO 

Tn 

1*552 

54 

15 

12 

0 2 / T 6 PT 

R FF 

l 

LAST 

1 55 

TO 

1 - - ■ ' • 

1 56: 

0 2/WAIT 

R E F 

2 

LAST 

1129 

Tn 

1131: 

24 

03/DAP 

REF 

1 

LAST 

1459 

Tn 

146  1: 

2 

0 3/FCONS 

REF 

1 

LAST 

1097 

TO 

1100: 

32 

0 3/1 N TER 

REF 

3 

LAST 

1014 

TO 

1047; 

732 

0 3/KILL 

REF 

1 

LAST 

75  C 

TO 

750: 

8 

03/PHASE 

REF 

1 

LAST 

130  2 

TO 

1303: 

A 

0 3/POO 

REF 

1 

LAST 

224 

TO 

224: 

8 

0 3/P2.0 

REF 

1 

LAST 

593 

TO 

59*  : 

5 

0 3/P 9 0 

REF 

1 

LAST 

40 

TG 

40 : 

1 

0 3/P  24 

r ff 

1 

LAS"' 

516 

TC 

5 16: 

9 

0 4/C.ri  TC 

REF 

3 

LAST 

1186 

TO 

n«9: 

65 

0 4 /I  NT IN 

REF 

1 

LAST 

1225 

TO 

1227: 

54 

17 

2 940 

54 

2994 

15 

3009 

12 

3021 

78 

3099 

2 

3101 

32 

3133 

9 52 

4085 

8 

4 09  3 

4 

4097 

8 

4105 

5 

4110 

1 

4 1 1 1 

9 

4120 

110 

4 230 

54 

4 28* 

3:15  DEC 


2,1970 
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r OUT INE: 

COUNT 

□ AT  A 

FOP  1 

ROUTINE'S 

L AST 

REACH: 

TOTAL  : 

CUMUL 

G4/KFYUP 

P.EF 

1 

LAST 

1338 

TO 

1 354: 

69 

69 

4353 

04/LT-LG 

REF 

1 

LAST 

45 

TO 

45: 

4 

4 

4357 

04 /MARK 

REF 

1 

LAST 

249 

TO 

250: 

32 

32 

4389 

04 /PIN 

R EF 

2 

LAST 

464 

TO 

464: 

7 

16 

46  05 

04/R00 

F EF 

1 

LAST 

2 24 

TO 

2 36 : 

330 

33C 

4735 

04 /POT 

REF 

2 

LAST 

372 

TO 

373: 

5 

32 

4767 

04/P27 

REF 

1 

LAST 

1389 

TO 

1397: 

248 

248 

5015 

04/P57 

R-EF 

1 

LAST 

983 

TO 

985  : 

12 

12 

5027 

04/R02 

REF 

1 

LAST 

1332 

TO 

1335: 

17 

17 

5044 

04 /R  3 6 

REF 

1 

LAST 

701 

TO 

703: 

93 

93 

5137 

05/ASENT 

REF 

1 

LAST 

852 

TO 

852  : 

4 

4 

5141 

05 /DL I ST 

REF 

1 

LAST 

193 

TO 

206: 

242 

26-2 

538  3 

0 5/DPROG 

R EF 

1 

LAST 

991 

TO 

998: 

180 

130 

5563 

C 5/EPHEM 

R EF 

2 

LAST 

9 87 

TO 

991 : 

0 

52 

5615 

( r / P7 .1 

D ff 

1 

1 AST 

Q 3 A 

t n 

p ->  ->  • 

64 

64 

CZ  £.  ~7  Q 

L 

L A u 1 

O D U 

1 u 

70  [7 

C5/START 

REF 

2 

LAST 

21  1 

TO 

224: 

475 

476 

6155 

06 /ICMP 

REF 

1 

LAST 

326 

TO 

339: 

282 

282 

6437 

00 /LL' PT 

= EF 

1 

LAST 

1 147 

TO 

1140: 

9 

0 

6446 

06 /M IDG 

REF 

1 

LAST 

692 

TO 

693: 

30 

3C 

6476 

AA  / T A-  pro 

P EF 

1 A CT 

1 Q 1 

T0 

193: 

69 

69 

lc ;/,c 

U M 0 1 

L > 1 

06/T4RPT 

REF 

2 

LAST 

156 

TO 

191  : 

612 

622 

7167 

07-/ AS  ENT 

R EF 

1 

LAST 

851 

TO 

852: 

21 

21 

7138 

07/1 HOOE 

F EF 

1 

LAST 

1310 

TO 

1332: 

559 

559 

7747 

07/MARK 

REF 

2 

LAST 

251 

TO 

26  1 : 

286 

407 

8154 

07/R59 

REF 

1 

LAST 

261 

TO 

26  2: 

32 

32 

8136 

10/DSPL A 

REF 

3 

LAST 

1382 

TO 

1382: 

9 

677 

8863 

IO/MIDG 

REF 

1 

LAST 

693 

TO 

695 : 

24 

24 

8887 

1C /PHASE 

KEF 

2 

LAST 

1300 

TO 

1 302: 

66 

75 

8962 

pcc 

1 

t ACT 

126* 

t n 

i 771  . 

O A "7  7 

1 u / 1 u w r i_ 

r\  r_  r 

I 

LA  0 1 

1 u 

1 c.  ’ I • 

lip 

1 1 - 

:U  I I 

I /RTB 

REF 

1 

LAST 

1397 

TO 

1404: 

130 

L30 

9207 

U/F2DPS 

REF 

1 

LAST 

8 20 

TO 

822: 

65 

65 

9272 

11  /INI  TV 

REF 

1 

LAST 

686 

TO 

692: 

189 

189 

9461 

11/0= BIT 

REF 

1 

LAST 

1227 

TO 

1269: 

841 

841 

10302 

1 2 /CONIC 

REF 

3 

LAST 

1199 

TO 

120«  ; 

494 

978 

11280 

12/!  C 

REF 

1 

LAST 

1101 

TO 

1102 : 

19 

19 

11299 

13/ALARM 

P EF 

1 

LAST 

1385 

TO 

1388: 

10 

10 

11309 

13/GEOM 

R FF 

1 

LAST 

32C 

TO 

324: 

79 

70 

11388 

13/1  NT  IN 

P EF 

4 

LAST 

1221 

pn 

1225: 

134 

605 

11993 

13/LT’LG 

P EF 

1 

LAST 

1133 

TO 

1 140: 

155 

155 

12148 

13/  i I T 

REF 

1 

LAST 

46 

TO 

*6: 

20 

20 

12168 

GAP:  ASSEMBLE  REVISION  001  Of  AGC  PROGRAM  APllROPfc  bY  eYLES 


R OUT  Iff  : 

COUNT  DATA 

FTR  R 

OUT INE'S 

1 AST- 

REACH: 

TOTAL  : 

CUMLfl 

1 3/P76 

REF 

1 

LAST 

700 

TO 

713: 

98 

98 

12266 

1 4/ASENT 

REF 

1 

LAST 

852 

TO 

: 

63 

63 

12  329 

14/INFl  i 

R EE 

1 

LAST 

946 

TO 

949  : 

0 

12329 

14/1 OS AM 

r E F 

2 

L5  ST 

935 

TO 

937: 

67 

75 

12404 

1 4/P  5 1 

REF 

1 

LAST 

Ci  o 

TO 

o SB: 

120 

120 

12524 

1 4/ P-50 

REF 

1 

LAST 

947 

TO 

948: 

64 

64 

12588 

14/R51 

REF 

1 

LAST 

94] 

TO 

945 : 

135 

135 

12723 

14/P  5 2 

REF 

1 

LAST 

955 

TO 

957: 

68 

68 

12791 

1 4/r 5 u 

P EF 

1 

LAST 

946 

TO 

a 4"? ; 

41 

4-1 

128  32 

14/Rf  5 

REF 

1 

LAST 

944 

TO 

OAf:  : 

26 

26 

12858 

1 4/' 

REF 

1 

L A S T 

937 

TO 

941: 

132 

132 

12990 

1 4/ ST  Ah S 

REF 

1 

LA  s r 

47 

TO 

51 : 

223 

223 

13213 

14/S52.1 

REF 

1 

LAST 

953 

TO 

9 54: 

25 

25 

13236 

14/S  5 2. 3 

REF 

1 

LAST 

954 

TP 

955: 

16 

16 

13254 

1 5/EPHEM 

REF 

1 

LAST 

985 

TO 

9 87: 

74 

74 

1 3328 

1 5/P51 

RFF 

1 

LAST 

961 

TO 

964: 

67 

67 

13395 

1 5/ P-5-2 

REF 

1 

LAST 

927 

TO 

935: 

157 

157 

13552 

1 5/P? 7 

' EF 

2 

LAST 

Q6  8 

TO 

c 8 3 : 

440 

567 

14119 

15/R54 

REF 

2 

LAST 

957 

TO 

961 : 

149 

189 

14  308 

1 6/DAP 

REF 

1 

LAST 

15  70 

TO 

1472  : 

60 

60 

14368 

1 fc/DAPI D 

REF 

1 

LAST 

1410 

TO 

1414: 

139 

139 

14507 

1 6/DAPP 

REF 

1 

LAST 

1421 

TO 

1442: 

790 

790 

15297 

1 7/DAPOR 

RFF 

1 

LAST 

1442 

TO 

145°: 

6 24 

624 

15921 

1 7/OAPTJ 

P.  EF 

1 

LAST 

14  6 1 

TP 

14  70: 

314 

314 

162  35 

1 7/DAPTfe 

PEF 

2 

LAST 

1405 

TO 

1406: 

5 

35 

16270 

17/! 

REF 

1 

LAST 

741 

TO 

742: 

23 

23 

16293 

2 O/DAP AO 

REF 

4 

LAST 

14  97 

TO 

15  08: 

354 

727 

17  020 

20/DAP  I F 

REF 

1 

LAST 

14  06 

TO 

14  10: 

67 

67 

17087 

?n/P20PS 

REF 

1 

LAST 

822 

Tn 

822  : 

6 

6 

17Q93 

20/NEEDL 

REF 

1 

LA  ST 

1414 

TO 

1421 : 

145 

145 

17238 

2 0/P 0 3 

P EF 

1 

LAST 

2°2 

TO 

293  : 

73 

73 

17311 

2 1/DAPBU 

REF 

1 

LAST 

1508 

TO 

1508: 

82 

82 

17393 

2 1 /DAPGT 

REF 

1 

LAST 

147? 

TP 

I486: 

388 

388 

17731 

2 1/P  70 

REF 

2 

LAST 

835 

TO 

8 36  : 

16 

30 

17811 

2 1/P  1C 

REF 

2 

LAST 

898 

TO 

910: 

467 

473 

18284 

2 1/R1  1 

REF 

1 

LAST 

829 

TO 

830: 

52 

52 

1 8336 

2 1/S  ER V 

REF 

1 

LAST- 

872 

TO 

873  : 

20 

20 

] 8356 

22/F2DPS 

REF 

1 

LAST 

827 

TO 

8 2°: 

10 

10 

IP  366 

2 2/INCOR 

REF 

1 

LAST 

1 1 57 

TO 

1174: 

50 

50 

1841  6 

22/KALC 

P EF 

1 

LAST 

351 

TO 

370: 

670 

670 

19086 

3:15  DEC 


2 , 1°70 


PAGE  1534 


ROUTINE : 

COUNT  DATA 

FOP 

F OUT! ME • 

S LACT 

PEACH: 

: TOTAL : 

: CUMUL 

22/R30 

R EF 

2 

LAST 

713 

TO 

720: 

199 

203 

1923° 

22/SERV 

R EF 

1 

LAST 

863 

TO 

86  5: 

24 

24 

19313 

22/SF-  30 S 

F EF 

1 

LAST 

720 

TO 

724: 

62 

62 

1 9375 

23/EXTVB 

REF 

1 

LAST 

271 

TO 

271: 

33 

33 

19408 

? 3/GEOM 

F EF 

1 

LAST 

3 24 

TO 

326: 

34 

34 

19442 

23 /ICONS 

REF 

1 

LAST 

1 100 

TO 

1 101 : 

16 

16 

19458 

23 /INCUR 

REF 

2 

LAST 

1153 

TO 

1157: 

196 

334 

19792 

23/INFLT 

REF 

1 

LAST 

1249 

TO 

1259: 

184 

184 

19976 

23/PE RAP 

PEE 

1 

LAST 

695 

TO 

701: 

78 

78 

20054 

23 /POWFL 

P EF 

1 

LAST 

12  59 

T0 

1265: 

152 

152 

20206 

23/PI  2 

R EF 

I 

LAST 

841 

TO 

843: 

23 

23 

20229 

23/R61 

REF 

1 

LAST 

517 

TO 

520: 

126 

126 

20355 

23/96  2 

P EF 

1 

LAST 

485 

TO 

486: 

11 

1 1 

20  366 

2 5/SI ' V 

R EF 

1 

LAST 

866 

TO 

867: 

24 

24 

20390 

24 /L PS  20 

P EF 

I 

LAST 

569 

TO 

566: 

46 

46 

20436 

24/LUROT 

P EF 

1 

LAST 

1 141 

TO 

1 144: 

69 

69 

20505 

24/, 62:0 

RFF 

2 

LAST 

495 

TO 

501 : 

230 

260 

20765 

24/P21 

P FF 

1 

L A ST 

65c 

TO 

661: 

1 15 

119 

20880 

24/P22 

REF 

2 

LAST 

507 

TO 

508: 

5 

5 

20835 

24/P25 

REF 

1 

LAST 

59? 

TO 

504: 

37 

37 

2092  2 

24/R21 

F EF 

I 

LAST 

508 

TO 

513: 

161 

161 

21083 

24/R22 

REF 

1 

LAST 

504 

TO 

507  : 

142 

142 

21225 

2 / <2  i 

R EF 

1 

LAST 

513 

TO 

519: 

41 

41 

21266 

24  A 24 

f EF 

2 

LAST 

516 

TO 

517: 

17 

39 

21305 

24/R29 

REF 

2 

LAST 

60  5 

TO 

608: 

69 

87 

21392 

25/LPS20 

P EF 

1 

LAST 

566 

TO 

569: 

12 

12 

21404 

2 5/4- U ROT 

REF 

1 

LAST 

1144 

TO 

1146: 

63 

63 

21467 

25/  LE AD 

REF 

1 

LAST 

490 

TO 

492  : 

47 

47 

21514 

25/-  c OPT 

REF 

3 

LAST 

612 

TO 

614: 

50 

262 

21776 

25  /R  SUB 

REF 

2 

LAST 

561 

TO 

565: 

60 

626 

22402 

26/BALL 

P EF 

1 

LAST 

477 

TO 

481 : 

50 

50 

22452 

2 6 / L ’ S 2 4 

REF 

1 

LAST 

588 

TO 

593: 

172 

172 

22624 

26/LSR22 

REF 

1 

l A c T 

575 

TO 

588: 

5 36 

536 

23160 

26/LUROT 

R EF 

3 

LAST 

1146 

TO 

1147: 

26 

65 

23225 

26/R06 

REF 

1 

LAST 

473 

TO 

477: 

9Q 

9° 

23324 

26/R63 

REF 

1 

LAST 

339 

TO 

351 : 

65 

65 

23339 

27 /A  SEN  T 

REF 

2 

LAST 

8 54 

TO 

855: 

21 

36 

23425 

27 /KILL 

REF 

I 

LA  ST 

750 

TO 

753: 

38 

7 9 

23463 

27/P12 

P EF 

1 

LAST 

44 

T0 

44: 

4 

4 

23467 

27  /P 

REF 

2 

LAST 

753 

TO 

755: 

83 

93 

23560 

t 


GAP:  ASSEMBLE  ,.RE VISION  001  GF  AGC  PROGRAM  AP11R0PE  8Y  EYLES 

ROUTINE:  COUNT  DATA  FOP  PC  UT I M E ' S LAST  R LAC  H : T OTA  L :c  UMUL 


27/P7C  REF 

27/SEPV  PEF 

27/S4G.1  REF 

2 7/S AO*  2 PEF 

27/S *0.6  PFF 

27/S4C.8  REF 

27/SAC. 9 FEE 

27/S41.1  REF 

27/TFF  REF 

2 7/VFC - 1 EF 

27/40.13  REF 

3 O/AS  ENT  REF 


1 LAST  88  TT 
1 LAST  865  TO 
1 LAST  765  TO 
1 LAST  769  TO 

1 LAST  781  TO 

1 LAST  770  TFI 

2 LAST  776  TO 

1 LAST  784  TO 

2 LAST  1271  TO 
l LAST  *8 1 TO 
1 LAST  773  TO 

3 LAST  854  TO 


39:  8 8 

966:  31  31 

769:  101  101 

770 : 28  28 

734:  40  40 

773:  57  57 

781:  200  202 

795:  4 4 

1285:  266  263 

*>86:  136  136 

776:  103  103 

854:  17  321 


30/FXTVB  DEF  1 LAST  610  TO  612:  47  47 

30/FC0UW  REF  1 LAST  910  Tn  927:  441  441 

3 0/P  12  : FF  1 LAST  °39  Tf  841:  ISO  160 

3 1/EXTVB  REF  1 LAST  608  TO  610:  93  93 


31/F2DPS  | 

REF 

4 

LAS" 

822 

TO 

827: 

134 

66  5 

3 1/P'- 567 

REF 

1 

' AST 

791 

TP 

7Q3: 

4 2 

4 2 

31/R13 

RFF 

1 

LAST 

80  C 

TO 

8 0 1 : 

74 

74 

3 1/THPOT 

ft  EF 

2 

LAS7 

7 e 3 

TO 

798: 

1 30 

135 

32/F2DPS 

REF 

2 

LAST 

316 

TO 

8 20: 

173 

174 

32/LPS22 

REF 

2 

LAST 

569 

TO 

575: 

1 32 

136 

32/P20 

RFF 

1 

LAST 

49  3 

TO 

495 : 

10  3 

103 

32/P63 

REF 

1 

LAST 

785 

TO 

791 : 

181 

181 

32/P70 

F EF 

2 

LAST 

836 

TO 

838: 

25 

152 

3 2/P  2 9 

PEF 

1 

LAST 

6C0 

TO 

605: 

151 

151 

32/R47 

PEF 

1 

L A S 1 

20  6 

TC 

211 : 

136 

138 

3 2/SEI- V 

REF 

1 

LAST 

86  6 

T'-' 

666  : 

3 

3 

3 3/ AS  ENT 

RFF 

1 

LAST- 

855 

TO 

8 57: 

44 

44 

33/R29 

REF 

1 

LAST 

595 

TO 

e 0 O ; 

97 

97 

33/SEPV 

REF 

8 

LAST 

894 

TO 

998  : 

71 

926 

3 4/ASENT 

REF 

1 

LAST 

843 

TO 

: 845: 

44 

44 

34/CS I 

PEF 

1 

! AST 

632 

TO 

6 50: 

650 

650 

23568 

23599 

23700 

23728 

23768 

23825 

24027 

24031 

24299 
24435 
24538 
248  5 9 


24  9Q6 
2 5 14  7 
25907 
25600 

26  265 
2 6 3 C 7 
26381 
2651 

26690 
26826 
26929 
271 10 


27262 

27413 

27551 

2755*> 

2 7598 
27695 
28621 
23665 

29315 
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ROUTINE: 

COUNT  DATA 

FOR  ROUTINE’S 

LAST  REACH: 

TOT&i. : 

CUMUL 

34 /P  3 8 79 

F EF 

1 

LAST 

724 

TO 

731:  233 

233 

29548 

34/SERV 

PEF 

2 

LAST 

894 

TO 

894:  14 

47 

29595 

34/S30S 

REF 

1 

LAST 

616 

TO 

621:  47 

47 

29642 

35/P30 

REF 

1 

I AST 

61* 

TO 

616:  23 

23 

29665 

3 5 / P 3 1 

REF 

1 

LAST 

652 

TO 

655:  61 

61 

29726 

35/P3272 

REF 

1 

LAST 

621 

TO 

627:  119 

1 19 

29845 

35/P3373 

REF 

1 

1 AST 

627 

TO 

632:  140 

140 

29985 

35/P  3474 

REF 

1 

LAST 

661 

TO 

666:  112 

112 

30097 

35/P3575 

PEF 

2 

1 AST 

666 

T0 

686:  530 

544 

30641 

3 8 / P 0 

PEF 

i 

1 ft  FT 

74  8 

TO 

7 C • 77 

7 at  AA 

1 

/A  O I 

c.  3 

36/P40 

REF 

6 

LAST 

75° 

TO 

765:  163 

778 

31442 

36/P41 

REF 

1 

LAST 

755 

TO 

757:  78 

78 

31520 

36/P42 

REF 

1 

LAST 

757 

TO 

758:  22 

22 

31542 

36/P*-  7 

9 EF 

1 

LAST 

758 

TO 

759:  52 

52 

31594 

7 7 /Dp," 

P PF 

i 

1 ACT 

13  36 

T 0 

1 0*  Q • 'X'} 

q 9 

■3  1 A9A 

P LI 

1 

LW  1 

1 D 3 n • D t L 

D C. 

jloto 

37/P06 

REF 

1 

LAST 

1335 

TO 

1336:  47 

47 

31673 

37/P07 

: PEF 

3 

LAST 

333 

TO 

398:  267 

587 

32260 

37/  31 

RFF 

1 

LAST 

703 

TO 

70°:  189 

189 

3 2449 

37/SET  V 

P.  EF 

2 

LAST 

86° 

TO 

872:  76 

165 

32614 

40/WKTV# 

REF 

1 

LAST 

2 co 

TO 

3C4 : 63 

63 

32677 

40/PIN 

REF 

10 

LAST 

470 

TO 

473:  57 

893 

33570 

40  /R  3 1 

P EF 

1 

LAST 

703 

70 

703:  15 

15 

33585 

41 /PIN 

RFF 

8 

LAST 

467 

TO 

470:  78 

985 

34570 

42/EXTVB 

P FF 

2 

LAST 

2 87 

TO 

288:  23 

38 

34608 

42/NOUNS 

REF 

1 

LAST 

304 

TO 

320:  597 

597 

35205 

42/PIN 

REF 

2 

LAST 

434 

TO 

437:  92 

236 

35443 

42/RC  f 

REF 

2 

LAST 

48,6 

TO 

490:  Ilf 

116 

35561 

42/933 

R EF 

1 

LAST 

275 

TO 

276:  27 

27 

35588 

43/EXTVB 

PEF 

6 

L A CT 

2q7 

TO 

2°9 : 56 

47  8 

36066 

6-3/PHASE 

REF 

1 

LAST 

1294 

TO 

1294:  14 

14 

36080 

43/P?7 

REF 

1 

LAST 

1388 

TO 

1389:  22 

22 

36102 

43/  0477 

R EF 

1 

LAST 

276 

TO 

280:  188 

188 

36290 

43 /SELF 

REF 

1 

LAST 

1265 

TO 

12Q4:  314 

314 

36604 

t 
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4000 

TO 

4377 

PAP  AGP  APH 

tt 

010 

ROPE 

MODULE 

1, 

SIDE 

A, 

SENSE 

LINE 

SET 

6 

(WIPES 

65-  80) 

^400 

TO 

47  77 

PAP. AGP  APH 

H 

Oil 

ROPE 

MODULE 

1 , 

SIDE 

B, 

SENSE 

L I NE 

SET 

5 

( WIP  ES 

65-  80) 

5 GOO 

TO 

53  77 

PARAGRAPH 

# 

012 

ROPE 

MODULE 

X, 

SIDE 

A, 

SENSE 

LINE 

SET 

6 

(WIRE  S 

81-  96) 

5400 

TO 

57  77 

PAP  AGP  APH 

tt 

013 

ROPE 

MODULE 

1 f 

SIDE 

B, 

SENSE 

LINE 

SET 

fc 

( wJP ES 

81-  96) 

6000 

TI- 

4  3 77 

PAP  AGP APH 

# 

014 

ROPE 

MODULE 

1, 

SI  DE 

A, 

SENSE 

LINE 

SET 

7 

(WIRES 

07-1 12 ) 

6 400 

TO 

6777 

PARAGRAPH 

it 

015 

1 OPE 

MOD'JLF 

1 , 

ST  DE 

B, 

S EN  S E 

LINE 

SET- 

7 

( WIPES 

97-1 12) 

7000 

TO 

7377 

PARAGRAPH 

tt 

016 

ROPE 

MODULE 

1 , 

SIDE 

A, 

SENSE 

LINE 

SET 

8 

( WIF  ES 

113-128) 

7400 

TO 

7777 

PARAGRAPH 

# 

017 

ROPE 

MODULE 

1 , 

SIDE 

B, 

SENSE 

L INE 

SET 

8 

(WIRES 

113-128) 

00,2000 

TO 

CO, 2377 

PARAGRAPH 

it 

020 

ROPE 

MODULE 

1 , 

S I DE 

A, 

SENSE 

LINE 

SET- 

1 

(WIR  ES 

1-  16) 

0 0,2400 

TP 

00,2777 

PA>-  AGP  APH 

ti 

021 

ROPE 

MODULE 

1 , 

SIDE 

R , 

SENSE 

LINE 

SET 

1 

(WIPES 

1-  16) 

00,3000 

TO 

00,3377 

PARAGRAPH 

# 

022 

ROPE 

MODUL  H 

1 , 

SIDE 

A, 

SENSE 

LINE 

SET 

2 

(WIRES 

17-  32) 

0 0,  3400 

TO 

00,3777 

paragraph 

tt. 

023 

ROPE 

modul e 

I , 

SIDE 

B, 

S ER'p  E 

LINE 

SET 

2 

< WTF  ES 

17-  32) 

01,2000 

TO 

01,2377 

PAR AGF.APH 

ti 

024 

ROPE 

MODULE 

1 , 

SIDE 

A, 

SENSE 

LINE 

SET 

3 

(WIRES 

33-  48 ) 

0 1,2400 

TO 

01  ,2777 

paragraph 

It 

02  5 

ROPE 

MODULE 

1 , 

SIDE 

B, 

SENSE 

LINE 

SET 

3 

( WIRES 

33-  48) 

01,3000 

TO 

01,33  77 

P AR  AG:  APH 

It 

026 

ROPE 

MODULE 

1 , 

SIDE 

A, 

SENSE 

LINE 

SET 

4 

(WIRES 

49-  64) 

01,3400 

TO 

01 ,3777 

paragraph 

it 

027 

ROPE 

MODUL  E 

1 , 

SIDE 

3, 

SENSE 

L INF 

SET 

4 

(WIRES 

49-  64) 

04,2000 

TO 

•|4, 2377 

PAP  AGP APH 

ti 

040 

POPE 

MODULE 

1 , 

ST  DE 

A, 

SENSE 

L INE 

SET 

9 

(WIPES 

129- 1 44 ) 

04,2400 

TO 

04,2777 

PARAGRAPH 

tt 

041 

ROPE 

MODULE 

1, 

SIDE 

B, 

SENSE 

LINE 

SET 

9 

( WIPES 

129-144) 

04,8000 

TO 

04,33  77 

PARAGRAPH 

tt 

042 

ROPE 

MODULE 

1 , 

SI  DE 

A, 

SENSE 

LINE 

SET 

10 

( WIRES 

145-1 ) 

04,3400 

TO 

04,37  77 

PARAGRAPH 

ti 

043 

ROPE 

MODULE 

1 , 

SIDE 

8, 

SENSE 

LINE 

SET 

10 

(WIRES 

145-160 ) 

0 5,20  00 

Tr 

05,2377 

PARAGE  APH 

ti- 

044 

ROPE 

MODULE 

1 , 

SIDE 

A, 

SENSE 

L INE 

SET 

11 

( \ I R F S 

16 1-1 76) 

05,2400 

TO 

05,2777 

paragraph 

lt 

045 

ROPE 

MODUL F 

1 , 

SIDE 

B, 

SENSE 

LIME 

SET 

1 1 

(WIRES 

161-176) 

0 5,3  0 00 

TO 

05,3377 

PAP A OR  APH 

H 

046 

ROPE 

MODULE 

I , 

SIDE 

A, 

SENSE 

LINE 

SET 

12 

(WIPES 

177-1°2 ) 

05,3400 

TO 

05  ,3777 

PARAGRAPH 

>t 

047 

ROPE 

MODULE 

1 , 

SIDE 

B, 

SENSE 

L INE 

SET 

12 

(WIPES 

177-192) 

06,2000 

TO 

06,2377 

PARAGRAPH 

ti 

050 

ROPE 

MODULE 

2, 

SIDE 

A, 

SENSE 

L INE 

SET 

1 

(WIPES 

1-  16  ) 

06,2400 

TO 

06,2777 

PARAGRAPH 

ti 

051 

ROPE 

MODULE 

2, 

SIDE 

B, 

SENSE 

LINE 

SET 

1 

(WIRES 

1-  16) 

06,3000 

TO 

06,33  77 

PARAGRAPH 

ti 

052 

R 0 PE 

MODULE 

2, 

SIDE 

A, 

SENSE 

L INE 

SET 

2 

(WIPES 

17-  32) 

06,34 OO 

TO 

06,3777 

PARAGRAPH 

U 

05  3 

POPE 

MODULE 

2, 

SIDE 

B, 

SENSE 

LINE 

SET 

2 

( W t R E S 

17-  32) 

07,2000 

TO 

07,2377 

PARAGRAPH 

it 

054 

ROPE 

MODULE 

2, 

SIDE 

A, 

SENSE 

L INE 

SFT 

3 

(WIRES 

33-  48) 

07,2400 

TO 

07,2777 

PARAGRAPH 

ti 

055 

POPE 

MODULE 

2, 

SIDE 

B, 

SENSE 

LINE 

SET 

3 

( WIFES 

33-  48) 

07,3000 

TO 

07,3377 

PARAGRAPH 

ti 

056 

ROPE 

MODULE 

2, 

SIDE 

A, 

SENSE 

L INE 

SET 

4 

(WIPES 

49-  64) 

07,3400 

TO 

07,3777 

PARAGRAPH 

it 

057 

ROPE 

MODULE 

2, 

SIDE 

B, 

SENSE 

LINE 

SET 

4 

( WIRES 

49-  64) 

1 0,2000 

TO 

10,2377 

PARAGRAPH 

ti 

060 

FOPH 

MODULE 

2, 

SIDE 

A, 

SENSE 

LINE 

SET- 

5 

( WTR  ES 

65-  80) 

1 0,2400 

TO 

10,2777 

PAR AGR APH 

ti 

061 

POPE 

MODULE 

2, 

SIDE 

B, 

SENSE 

LINE 

SET 

5 

(WIRES 

65-  80) 

1 0,3000 

TO 

10,3377 

PARAGRAPH 

u 

06  2 

i 0°E 

MODUL  E 

2, 

SICE 

A, 

SENSE 

1 INE 

SET 

6 

(WIPES 

81-  96) 

10,3400 

TO 

10,3777 

PARA  GE APH 

ti 

06  3 

POPE 

MODULE 

2, 

SIDE 

B, 

SENSE 

LINE 

SET 

6 

( WIRES 

81-  96) 

1 1,2000 

TO 

11,2377 

PAR  AGR  APH 

ti 

064 

ROPE 

MODULE 

2, 

SIDE 

A, 

SENSE 

LINE 

SET 

7 

(WIRES 

07-112) 

1 1,2*00 

TO 

1 1 ,2777 

PARAGRAPH 

tt 

065 

ROPE 

MODULE 

2, 

SIDE 

B, 

SENSE 

L INE 

SFT 

7 

(WIRES 

97-112) 

1 1,3000 

TO 

1 1,3377 

PARAGRAPH 

ti 

066 

ROPE 

MODUL E 

2, 

SIDE 

A, 

SENSE 

LINE 

SET 

8 

(WIRES 

113-128  ) 

1 1,340' 

TO 

1 1,3777 

PARAGRAPH 

it 

06  7 

ROPE 

MODULE 

2, 

SIDE 

B, 

SENSE 

L INE 

SET 

8 

( W I F F S 

113-128) 

12,2000 

TO 

12,2377 

PAR  AGP  APH 

tt 

070 

ROPE 

MODULE 

2, 

SIDE 

A, 

S E b S E 

I INE 

SET 

Q 

( WTR  ES 

129-144) 

12,2400 

TO 

12,2777 

PARAGRAPH 

it 

071 

ROPE 

MODULE 

2, 

SIDE 

B, 

SENSE 

LINE 

SET 

9 

(WIRES 

129-144 ) 

12,3000 

TO 

12,33  77 

PARAGRAPH 

H 

072 

ROPE 

MODULE 

2, 

SIDE 

A, 

SENSE 

L INE 

SET 

10 

(WIRES 

145-160) 

i" 
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12,3  400 

TO 

12 ,3777 

PAP  AGRAPH 

a 

073 

ROPE 

MODULE 

2,  SIDE 

B,  SENSE 

LINE 

SET 

10 

(WIRES 

145-160 ) 

13,2'  0 ( 

TO 

13,2377 

PARAGRAPH 

# 

074 

ROPE 

MODULE 

2,  SIDE 

A,  SENSE 

LINE 

SET 

11 

(WIRES 

161-176) 

1 3,2400 

TO 

13,2777 

PAR  A OR  API 

H 

075 

ROPE 

MODULE 

2,  SIDE 

B » SENSE 

LINE 

SET 

11 

(WIRES 

161-176) 

13,3000 

TO 

13,3377 

PAL  AGP APH 

ii 

076 

ROPE 

MODULE 

2,  SIDE 

A,  SENSE 

LINE 

SET 

12 

(WIRES 

177-192 ) 

13,3400 

TO 

13,3777 

R AS  AC"  APH 

ti 

077 

ROPE 

MODULE 

2,  SIDE 

B,  SENSE 

LINE 

SET 

12 

( WIF  ES 

177-192 ) 

1* , 2000 

TO 

14,2377 

PARAGRAPH 

100 

POPE 

MODULE 

3,  SIDE 

A,  SENSE 

LIME 

SET 

1 

(WIPES 

1-  16) 

14,2400 

TO 

14,2777 

PARAGRAPH 

# 

101 

ROPE 

MODULE 

3,  SIDE 

B,  SENSE 

LINE 

SET 

1 

(WIRES 

1-  16) 

14,3000 

TO 

14,3377 

PARAGRAPH 

H 

102 

ROPE 

MODULE 

3,  SIDE 

A,  SENSE 

LINE 

SET 

2 

(WIPES 

17-  32) 

14,3400 

TO 

14,37  77 

PAL  AG  APH 

# 

103 

ROPE 

MODULE 

3,  SIDE 

B,  SENSE 

LINE 

SET 

2 

(WIRES 

17-  32) 

15,2000 

TO 

1^,2377 

PAR AGRAPH 

i 

1 04 

R U Pi 

module 

3,  SIDE 

A,  SENSE 

L INE 

SET- 

3 

(WIRES 

33-  48) 

15,2400 

Tn 

15,2777 

PARAGRAPH 

H 

105 

ROPE 

MODULE 

3,  SIDE 

B,  SENSE 

LINE 

SET 

3 

(WIPES 

33-  43) 

1 5 , 

TI ' 

15,3377 

PARAGRAPH 

H 

106 

ROPE 

MODUL  E 

3,  SIDE 

A,  SENSE 

LINE 

SET 

4 

(WIRES 

49-  64) 

15,3400 

TO 

15,3777 

PARAGRAPH 

H 

107 

ROPE 

MODULE 

3,  SIDE 

B,  SENSE 

LINE 

SET 

4 

(WIRES 

49-  64) 

1 6 , 2 

TO 

16,2377 

PARAGRAPH 

« 

no 

ROPE 

MODULE 

3,  SIDE 

A,  SENSE 

L INE 

SET 

5 

(WIPES 

65-  80) 

16,2400 

TO 

16,2777 

PARAGRAPH 

U 

111 

ROPE 

MODULE 

3,  SIDE 

B,  SENSE 

L INE 

SET 

5 

(WIRES 

65-  80) 

16,3000 

TO 

16,3377 

paragraph 

1 1 2 

ROPE 

MODULE 

3,  SIDE 

A,  SENSE 

L INE 

SET 

6 

< W IRES 

81-  96) 

16,3400 

TO 

16,3777 

PAR  AG  APH 

113 

ROPE 

MODUL  F 

3,  SIDE 

B,  SENSE 

L INF 

SET 

6 

(WIRES 

81-  96) 

1 7,2000 

TO 

17,2377 

PARAGRAPH 

1 1 4 

*,  n op 

MODUL F 

3,  SIDE 

A,  SENSE 

L INE 

SET 

7 

(WIPES 

97-1  12  ) 

17,2 

TO 

17,2777 

PARAGRAPH 

H 

115 

POPE 

MODULE 

3,  SIOE 

B,  SENSE 

LINE 

SET 

7 

(WIPES 

97-1  12  ) 

1 7, 3000 

TO 

17,3377 

PARAGRAPH 

# 

1 16 

ROPE 

MODUL  E 

3,  SIDE 

A,  SENSE 

LINE 

SET 

8 

(WIRES 

113-128) 

1 7, 3400 

TO 

17,37  77 

PARAGRAPH 

a 

117 

ROPE 

MODULE 

3 , SICE 

6,  SENSE 

L INE 

SET 

8 

(WIRES 

113-123) 

2 0,2000 

TP 

20,2377 

PARAGRAPH 

* 

120 

ROPE 

MODUL E 

3,  SIDE 

A,  SENSE 

LINE 

SET 

<5 

(WIPES 

129-144) 

20,2400 

TO 

20,2777 

PARAGRAPH 

H 

121 

ROPE 

MODULE 

3,  SIDE 

B,  SENSE 

LINE 

SET- 

0 

( WIRES 

129-144) 

2 On 

TO 

20,33  77 

PARAGRAPH 

if 

122 

P OPE 

MODUL  E 

?■*  spB-e 

A,  SENSE 

L INE 

SET 

10 

( WIF  ES 

145-160) 

2 0,*  . 

TO 

20 ,3777 

PARAGRAPH 

# 

123 

POPE 

MODULE 

3,  SIDE 

B,  SENSE 

L INE 

SET 

10 

( WIRES 

145-160 ) 

2 1 , 2 

TO 

21  ,23  77 

PARAGRAPH 

M 

124 

ROPE 

MODUL  E 

3,  SIDE 

A,  SENSE 

LINE 

SET 

1 1 

(WIRES 

161-176) 

2 1,2 

TO 

21,2777 

PAR AGf<  APH 

# 

125 

ROPE 

MODULE 

3,  SIDE 

B,  SENSE 

L.  I ME 

SET 

11 

( WIRES 

16  1-176 ) 

2 1,300.. 

TO 

21 ,3377 

PARAGRAPH 

126 

ROPE 

MODUL  E 

3,  SIDE 

A,  SENSE 

L INE 

SET 

12 

(WIRES 

177-192 ) 

2 1,3400 

TO 

21 ,3777 

p ALA OR  A 0 H 

« 

127 

ROPE 

MODULE 

3,  SIDE 

3,  SENSE 

L INE 

SET 

12 

(WIF ES 

177-192 ) 

22,2000 

TO 

22,2377 

PAP  A! -R  APH 

# 

130 

ROPE 

MODULE 

4,  SIDE 

A,  SENSE 

LINE 

SET 

1 

(WIF ES 

1-  16) 

22,2400 

TO 

22,2777 

PARAGRAPH 

# 

131 

ROPE 

MODULE 

4,  SIDE 

B,  SENSE 

LINE 

SET 

1 

(WIRES 

1-  16) 

22,3000 

TO 

22,33  77 

D A P AGRA  PH 

A 

132 

ROPE 

MODULE 

4,  SIDE 

A,  SENSE 

LINE 

SET 

2 

(WIPES 

17-  32) 

22,3400 

TO 

22 ,3777 

PARAGRAPH 

# 

133 

ROPE 

MODULE 

4,  SIDE 

8,  SENSE 

LINE 

SET 

2 

(WIRES 

17-  32) 

23,2000 

TO 

23,23 77 

PARAGE APH 

# 

136 

ROPE 

MODULE 

4,  SIDE 

A,  sense 

L INE 

SET 

3 

( Wtf  FS 

33-  48) 

2 3,7  C 

TO 

23,2773 

P ASA  GO  A P L 

T 

135 

POPE 

MOGUL  E 

4,  STOE 

6,  SENSE 

LINE 

SET 

3 

(WIF ES 

33-  43) 

23,3000 

TO 

23  ,33  77 

PARAGRAPH 

H 

I 36 

ROPE 

MODULE 

4,  SIDE 

A,  SENSE 

L INE 

SET 

4 

(WIRES 

49—  64) 

2 3 , 3 40( 

TO 

23,3737 

PARAGRAPH 

H 

137 

POPE 

MODUL F 

4,  SIDE 

B,  SENSE 

L INF 

SET 

4 

(WIF  ES 

49-  64) 

24,2000 

TO 

24 ,23  77 

PARAGRAPH 

a 

140 

ROPE 

M(  DUL  E 

4,  SIDE 

A,  SENSE 

LINE 

SET 

5 

(WIRES 

65-  80) 

24,2400 

TO 

24,2777 

: PARAGRAPH 

H 

141 

ROPE 

MODULE 

4 , S I DE 

B,  SENSE 

LINE 

SET 

5 

( WIPES 

65-  80) 

24,3000 

TO 

24,3377 

PA  • ACS'  APH 

ti- 

142 

POPE 

DU!  f 

4,  SIDE 

A,  SENSE 

LINE 

SET 

6 

( WIF ES 

8 1-  96) 

24,341 

TO 

24,3777 

PAr AGP  APH 

lt 

143 

ROPE 

MOGUL E 

v,  SIDE 

B,  SENSE 

LINE 

SET 

6 

(WIRES 

81-  96) 

2c,2DOO 

TO 

2 5, 23  77 

PAL  AG?  APH 

1 4 4 

P 0 PE 

MODUL F 

4 , SICE 

A,  SENSE 

L TN E 

SET- 

7 

(WIRES 

97-112) 

25,2400 

TP 

25,2777 

PARAGRAPH 

145 

ROPE 

MODULE 

4,  SIDE 

B,  SENSE 

LINE 

SET 

7 

(WIPES 

97-112 ) 

2 5,3000 

TO 

26  ,33  77 

PARAGRAPH 

» 

146 

ROPE 

MODULE 

4,  SIDE 

A,  SENSE 

L INE 

SET 

8 

(WIRES 

113-128) 

: , 

TO 

25,3777 

PARAGR  APH 

H 

147 

ROPE 

MODULE 

4,  SIDE 

B,  SENSE 

LINE 

SET 

8 

( WIP ES 

113-123 ) 
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26, 2000 

TO 

26,2377 

paragraph 

* 

150 

ROPE 

MODUL  E 

4, 

S 1 DE 

A, 

SENSE 

LINE 

SET 

p 

( WIRES 

129-144) 

2 6,240  0 

TO 

26,2777 

PARAGRAPH 

# 

151 

POPE 

MODULE 

4, 

SIDE 

B, 

SENSE 

LINE 

SET 

9 

( W I E 

129-144 ) 

26,3000 

TO 

26,3377 

PARAGRAPH 

152 

ROPE 

MODULE 

4 , 

SIDE 

A, 

SENSE 

LINE 

SFT 

1 0 

( WIRES 

14 5-160 ) 

26,3400 

TO 

26  ,37  77 

PARAGRAPH 

153 

ROPE 

MODULE 

4, 

S IDF 

B, 

SENSE 

LINE 

SET 

10 

< wn  es 

145-160) 

27,2000 

TO 

27,2377 

paragraph 

# 

1 54 

ROPE 

MODULE 

4 , 

S I DE 

A, 

S ENSE 

LINE 

SET 

11 

(WIRES 

161-176) 

27,2400 

TO 

27,2777 

PAR AG- APH 

155 

R.nPF 

MODULE 

4, 

SIDE 

B, 

SENSE 

L INE 

SET 

1 1 

(WIRES 

161-176) 

27,3000 

TO 

27,3377 

PARAGRAPH 

a 

156 

ROPE 

MODUL  E 

4, 

SIDE 

A, 

SENSF 

LINE 

SET 

12 

(WIRES 

177-192) 

2 7,  3400 

TO 

27,37  77 

PARAGRAPH 

# 

157 

ROPE 

MODULE 

4, 

SIDE 

B, 

SENSE 

LINE 

SET 

12 

( V I R E S 

177-192  ) 

30,2000 

TO 

30,2377 

PARAGRAPH 

160 

ROPE 

MODULE 

5, 

SIDE 

A, 

SENSE 

L INE 

SET 

1 

( WIRFS 

1-  16) 

30,2400 

TO 

30, 2777 

paragraph 

161 

!•  OPE 

MODUL  F 

5, 

SI  DE 

B, 

SENSE 

L INE 

3 ET 

1 

(WIRES 

1-  16  ) 

3 0,3  CO  ) 

TO 

30,3377 

PARAGRAPH 

a 

162 

POPE 

MODULE 

5, 

SIDE 

A, 

SENSE 

LIME 

SET 

2 

(WIP  ES 

17-  32) 

30, 1'POO 

TO 

30,3777 

paragraph 

163 

ROPE 

MODULE 

5, 

SIDE 

B, 

SENSE 

LINE 

SET 

2 

(WIRES 

17-  32) 

3 1,2000 

TO 

31 ,23  77 

PAP  AGS APH 

a 

164 

ROPE 

MODULE 

5, 

SI  Db 

A, 

SENSE 

LINE 

SET 

3 

(WIRES 

33-  48) 

31,2400 

TO 

31,2777 

PARAGRAPH 

165 

ROPE 

MODULE 

5, 

SIDE 

B, 

SENSE 

LINE 

SET 

3 

(WIRES 

33-  48  ) 

3 1,3000 

, TO 

31  ,33  77 

PARAGRAPH, 

166 

ROPE 

MODULE 

5 , 

SIDE 

A, 

SENSE 

LINE 

SET 

4 

(WIRE S 

49-  64) 

3 1,3*00 

TO 

31,3777 

-PAR  AC  APH 

16  7 

ROPE 

MODULE 

r , 

SI  DE 

B, 

SENSE 

LINE 

SET 

4 

( WIP ES 

40-  64) 

32,2000 

TO 

32  ,23  77 

PARAGRAPH 

170 

ROPE 

MODULE 

r~ 

SIDE 

A, 

SENSE 

L INE 

SET 

5 

(WIPES 

65-  BO) 

3 2, 2*  f 0 

TO 

32,2777 

PA*  AGP  ApH 

171 

POPE 

MODULE 

S , 

SIDE 

B , 

SENSE 

L INE 

S ET 

6 

( W 1 ? ES 

65-  go ) 

32,3000 

TO 

32,33  77 

PARAGRAPH 

# 

172 

P.CPE 

MODULE 

5, 

SIDE 

A, 

SENSE 

LINE 

SET 

6 

(WIRES 

81-  96) 

3 2, 3400 

TO 

32,3777 

PARAGRAPH 

1 73 

ROPE 

MODULE 

C 

->  » 

SIDE 

B, 

SENSE 

LINE 

SET 

6 

( WIRES 

8 1-  96) 

33,2000 

TO 

33,2377 

PARAGRAPH 

174 

ROPE 

MODULE 

5, 

SIDE 

A, 

SENSE 

l.  INF 

SET 

7 

(WIPES 

97-1  12 ) 

33, 2400 

T n 

33,2777 

PAPAGi  APH 

* 

17  5 

ROPE 

MODUL E 

5, 

S I DE 

B, 

SENSE 

L INE 

SET 

7 

(WIRES 

97-1  12 ) 

33,3000 

TO 

33,33  77 

PARAGRAPH 

ti 

176 

ROPE 

MODULE 

?, 

SIDE 

A, 

SFNSE 

L INE 

SET 

8 

( WIRES 

113-128) 

33,3400 

TO 

33,3^77 

PAPAGr!  APH 

4 

17? 

ROPE 

MODULE 

5, 

SIDE 

B, 

SENSE 

LINE 

SET 

B 

(WIPES 

113-128 ) 

34,2000 

TO 

34,2377 

PARAGRAPH 

ft 

200 

ROPE 

MODULE 

5, 

SIDE 

A, 

SENSE 

LINE 

SET 

9 

( WIRES 

129-144) 

34,2400 

TO 

34,2777 

PARAGRAPH 

# 

201 

ROPF 

MODULE 

5 , 

SIDE 

B, 

SENSE 

LIME 

SET 

9 

( WIf  E S 

129-144) 

34,3000 

TO 

34,33  77 

PA  I A GRAPH 

202 

ROPE 

MODULE 

5, 

SIDE 

A, 

SENSE 

LINE 

SET 

10 

(WIRES 

145-160 ) 

34,3400 

TO 

34,37  77 

PARAGRAPH 

a 

2 03 

ROPE 

MODULE 

5, 

SIDE 

B, 

SENSE 

L INE 

SET 

10 

(WIPES 

148-160) 

35,2000 

TO 

35,2377 

PARAGRAPH 

# 

204 

ROPE 

MODUL E 

5 , 

SIDE 

A, 

SENSE 

LINE 

SET 

11 

( WIPES 

161-176) 

3 K, 2400 

T° 

35,2777 

PA» AGP  APH 

a 

205 

ROPE 

MODUL  E 

5, 

SIDE 

B, 

SENSE 

L INE 

SET 

1 1 

(WIRES 

16 1-1 765 

35,3^00 

TO 

35,3377 

PARAGRAPH 

a 

206 

POPE 

MODULE 

r 

» 

SIDE 

A, 

SENSE 

LINE 

SET 

12 

( WIRES 

177-192) 

35,3400 

TO 

35,3777 

PARAGRAPH 

# 

207 

ROPE 

MODULE 

~ » 

SIDE 

B, 

SENSE 

LINE 

SET 

12 

(WIf  E S 

177-192 ) 

36,2000 

TO 

36 ,23  77 

PARAGRAPH 

ti 

210 

ROPE 

MODULE 

A . 

SIDE 

A . 

SENSE 

1 T N F 

SET 

(WIf  ES 

1-  16) 

- f 

6*  t 

L.  1 M L 

36, 2*00 

1 C 

3t.,2777 

PARAGRAPH 

a 

211 

ROPE 

'•'ODULE 

6, 

SIDE 

B, 

SENSE 

LINE 

SET 

1 

! WIP  ES 

1-  16) 

3 6,3  000 

TO 

36,33 77 

PAP  A GRAPH 

a 

212 

ROPE 

MODULE 

6 , 

SIDE 

A, 

SENSE 

L I ME 

SET 

2 

(WIRES 

17-  32) 

3 6 , 54-00 

TO 

36,37  77 

PARAGRAPH 

# 

213 

ROPE 

MOOUI  F 

6 , 

SIDE 

B, 

SENSE 

L TNE 

SET 

2 

( WIP ES 

17-  32) 

37,2000 

TO 

37,23  77 

PARAGRAPH 

214 

ROPE 

MODULE 

6, 

SIDE 

A, 

SENSE 

L INE 

SET 

3 

(WIRES 

33-  48) 

37,2400 

TO 

37,2777 

PARAGRAPH 

215 

ROPF 

MODULE 

6, 

SIDE 

B, 

SENSE 

LINE 

SET 

3 

(WIRES 

33-  48) 

3 7, 3000 

TO 

37,33  77 

PARAGRAPH 

n 

216 

ROPE 

MODULE 

6, 

SIDE 

A, 

SENSE 

L INE 

SET 

4 

(WIPES 

49-  64) 

3 7,3*  00 

TO 

37,37  77 

PAR  AGP APH 

# 

217 

POPE 

MODULE 

6 , 

SIDE 

B, 

SENSF 

1 INE 

SET 

4 

(WIRES 

49-  64) 

40,2000 

TO 

40,2377 

PARAGRAPH 

220 

ROPE 

MODULE 

6, 

S I DE 

A, 

SENSE 

LINE 

SET 

5 

(WIRES 

65-  80) 

40, 2*  00 

TO 

40,2777 

PA RAGS APH 

« 

221 

POPE 

MOOUL  E 

6 , 

SIDE 

B, 

SENSE 

L INE 

SET 

5 

(WIf  ES 

65-  80) 

40,3000 

TO 

40,33  77 

PAR  AGR  APH 

222 

POPE 

MODULE 

6 , 

SIDE 

A, 

SENSE 

LINE 

SET 

6. 

(WIRES 

81-  96) 

4 0,3400 

TO 

40,3777 

PARAGRAPH 

223 

ROPE 

MODUL F 

6, 

SIDE 

B, 

SENSE 

LINE 

SET 

6 

(WIRES 

8 1-  9 6) 

4 1,2000 

TO 

41,2377 

PARAGRAPH 

# 

224 

ROPE 

MODULE 

6, 

SIDE 

A, 

SENSE 

LINE 

SET 

7 

( WIRES 

97-1  12 ) 
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A 1,2400 

TO 

41,2777 

PARAGRAPH 

225 

POPE 

MODULE 

6, 

SIDE 

B, 

SENSE 

L INE 

SET 

7 

( W IF  ES 

97-112) 

A 1 , 3 

TO 

41,33 77 

PARAGRAPH 

* 

226 

ROPE 

MODUL  E 

6 , 

SIDE 

A, 

SENSE 

LINE 

SET 

8 

( WIRES 

113-128) 

A l, 3A00 

TO 

41,3777 

PARAGRAPH 

# 

22  7 

ROPE 

MODULE 

6, 

SIDE 

B, 

SENSE 

LINE 

SET 

8 

{WIRES 

113-128) 

A 2, 2 000 

TO 

42,23  77 

PAR AG" APH 

a 

230 

ROPE 

MODUL E 

6, 

S3  GE 

A, 

SENSE 

L TNE 

SET 

9 

(WIRES 

129-144) 

A 2, 2 A CO 

TO 

42,2777 

PAP  AGP APH 

it 

231 

RODc 

MODUL E 

6 , 

SIDE 

8, 

SENSE 

LINE 

SET 

o 

( WIR  ES 

129-144 ) 

TO 

. n.  -a  77 

DARAi'OAPW 

u 

7 3? 

POPE 

MODI  II  h 

SIDE 

A . 

SENSE 

LINE 

ccr 

i n 

luitcc 

i /.  k_ i a n \ 

7£  f D \ 'V  u 

1 u 

*T  £ f D D r I 

c.  D C. 

1 U U UL  L 

" , 

a » 

O C f 

l W 1 J L 

1 • - 1 OU) 

A 2 , 3A00 

TO 

*>2,3177 

PARAGRAPH 

<< 

233 

ROPE 

MODUL  E 

6 , 

SIDE 

B, 

SENSE 

LINE 

SET 

10 

( WIF  ES 

145-160) 

A3, 2000 

TO 

43,2377 

PARAGRAPH 

it 

234 

ROPE 

MODULE 

6, 

SIDE 

A , 

SENSE 

LINE 

SET 

11 

(WIRES 

161-176 ) 

A3, 240.0 

TO 

43,2777 

PARAGRAPH 

4 

235 

* ROPE 

MODULE 

6, 

SIDE 

B, 

SENSE 

LINE 

SET 

11 

(WIRES 

16  1-176) 

43,3000 

TO 

43,3377 

PAR AGP  A °H 

# 

236 

ROPE 

MODULE 

6, 

SI  DE 

A, 

SENSE 

LIME 

SET 

12 

(WIRES 

177-192 ) 

A3, 3400 

TO 

43,3777 

PARAGRAPH 

237 

ROPE 

MODULE 

6, 

S I DE 

B, 

SENSE 

L INE 

SET 

12 

( WIRES 

177-192) 
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1 
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0 
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1 
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0 
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1 
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C: 

03  773 

0 

Ci 

00377 

1 

43  60 

C : 

-•0  02  3 

0 

C : 

00021 

1 

C : 

00025 

0 

C: 

00012 

l 

34745 

0 

00006 

1 

05011 

1 

OOOC  2 

0 

'370 

44  745 

1 

C00G6 

1 

0 3011 

1 

00  002 

0 

34747 

1 

00006 

1 

05011 

1 

00002 

0 
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CO  100 

0 

C : 

00040 

0 

C : 

00020 

0 

4750 

C : 

00010 

0 

C : 

00004 

0 

C : 

000  02 

0 

C : 

00001 

0 

C : 

777  77 

0 

C: 

00000 

1 

C: 

00005 

1 

C: 

00007 

0 

4760 

C: 

00  013 

0 

C : 

0 0015 

0 

C : 

000  17 

1 

C: 

00030 

1 

C : 

00033 

1 

C : 

000  35 

1 

C : 

00032 

0 

C: 

00045 

0 

4770 

C : 

00  046 

0 

0 : 

00050 

1 

C : 

000  55 

1 

C : 

*0060 

1 

C : 

0006  2 

0 

C : 

00120 

1 

C: 

00140 

1 

C : 

C0144 

0 
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5 QGC 

C: 

00  310 

0 

C. : 

00401 

1 

C : 

00454 

1 

C : 

C0620 

u 

C : 

00777 

0 

C : 

01124 

1 

C:  01211 

1 

C : 

01400 

1 

50  10 

C : 

01426 

3 

C: 

01776 

0 

C: 

01777 

1 

C : 

02177 

1 

C : 

G24C0 

1 

C : 

03000 

1 

C:  03400 

0 

C: 

05000 

1 

50  20 

C : 

06  000 

1 

C : 

CR'OOO 

0 

C : 

1 10  00 

1 

C : 

13(00 

0 

C : 

14000 

1 

C : 

15000 

0 

C:  16  000 

0 

C: 

17000 

1 

5030 

C : 

17770 

1 

C : 

21^00 

1 

647  36 

1 

55076 

0 

15036 

0 

41076 

0 

60000 

1 

55076 

0 

5040 

15051 

1 

57076 

1 

51076 

1 

64734 

0 

40000 

0 

61076 

1 

55  076 

0 

15051 

1 

5050 

15C67 

1 

00006 

1 

71076 

0 

55077 

1 

QGC  06 

1 

75005 

0 

67737 

0 

00006 

1 

5 GfcO 

71077 

1 

677  17 

1 

00006 

1 

71076 

0 

20001 

1 

55076 

0 

00002 

0 

■^OOOO 

1 

5070 

'-47  3 A 

1 

0006? 

0 

000  04 

0 

65144 

1 

54063 

0 

00006 

1 

50002 

0 

30001 

0 

5100 

52C66 

0 

35163 

0 

56004 

0 

54061 

1 

12625 

0 

C0004 

0 

54063 

0 

00006 

1 

5110 

50002 

0 

30001 

0 

52066 

0 

35163 

0 

56004 

0 

12601 

0 

56002 

0 

67746 

0 

5120 

56  002 

0 

15112 

1 

22002 

0 

35153 

0 

560  06 

1 

12706 

c 

40164 

0 

54001 

1 

5 1 30 

35  163 

0 

5 40  06 

0 

12705 

0 

54164 

0 

35163 

0 

54004 

1 

12776 

1 

00004 

0 

5 1 40 

*4  06  5 

o 

/■,  4 7 c 2 

1 

26002 

I 

35163 

0 

5 6004 

o 

13623 

I 

00004 

0 

54063 

0 

5150 

35  163 

0 

56CC6 

1 

54165 

1 

30002 

0 

13072 

0 

35163 

0 

54004 

1 

13103 

1 

5160 

30  06  1 

0 

54004 

1 

16741 

1 

C : 

02601 

1 

C : 

001 10 

1 

56001 

0 

00006 

1 

01007 

1 

5170 

54C06 

0 

0000 1 

0 

C : 

776  77 

1 

00004 

0 

54001 

1 

34733 

1 

26002 

1 

30006 

1 

5200 

00  006 

1 

04007 

1 

56001 

o 

C 0004 

0 

560  02 

0 

54061 

1 

00006 

1 

50061 

0 

5210 

30  001 

0 

54063 

0 

35220 

1 

56  0 06 

1 

132  31 

0 

52062 

1 

64752 

0 

52006 

0 

5220 

C : 

02063 

0 

50002 

0 

30000 

1 

24002 

0 

56002 

0 

54063 

0 

30006 

1 

00006 

1 

5230 

04007 

1 

5400  1 

1 

35235 

0 

54  061 

1 

15212 

1 

15257 

0 

C:  72537 

0 

C : 

73714 

1 

52  40 

10  076 

1 

1 52-1 

c 

15261 

0 

1 6244 

1 

113  04 

0 

15256 

1 

15251 

0 

15256 

1 

52  50 

15  256 

1 

37723 

0 

C 5072 

1 

C : 

03555 

1 

C: 

14063 

1 

15261 

0 

05221 

0 

C : 

00764 

1 

5260 

05  240 

1 

1 0734 

o 

3 52  20 

1 

54006 

0 

I 341 4 

1 

300 1 6 

n 

00006 

I 

01007 

1 

1 

5270 

00006 

1 

22  C 1 2 

1 

30016 

0 

56006 

1 

52011 

0 

00003 

i 

50017 

1 

53154 

1 

5300 

00006 

1 

50002 

0 

30001 

0 

53150 

0 

00006 

1 

35310 

0 

52006 

0 

C: 

03452 

1 

5310 

C : 

02  063 

0 

5CC02 

0 

30000 

1 

24002 

0 

5 50  11 

1 

35320 

0 

22006 

1 

14640 

0 

5 3 20 

C : 

20  213 

0 

50002 

0 

00  oc 

0 

6101  1 

D 

COO  06 

1 

1 6 74  1 

1 

16  737 

0 

00004 

0 

5330 

50  00  2 

0 

30090 

1 

240  02 

0 

5407? 

0 

74757 

1 

60000 

1 

54  07  1 

0 

30072 

1 

5340 

75030 

0 

000  06 

1 

74740 

1 

56072 

1 

74735 

0 

54066 

0 

50002 

0 

30000 

1 

5350 

24  002 

D 

54065 

0 

I53b3 

0 

C0GQ4 

0 

50002 

0 

30000 

1 

24002 

0 

00004 

0 

5360 

54065 

0 

34753 

1 

54066 

c 

00006 

1 

35367 

0 

c2006 

0 

C:  02224 

1 

C : 

20103 

1 

53  70 

22C73 

0 

22006 

1 

22073 

0 

75  024 

0 

1C000 

0 

17750 

0 

30062 

0 

74745 

1 
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5400 

1CC00 

0 

15423 

0 

5 0061 

0 

31052 

1 

54070 

1 

30062 

0 

74744 

5410 

15427 

1 

300  C 2 

0 

54063 

0 

300  06 

1 

00006 

1 

04007 

l 

54064 

5420 

22073 

0 

52006 

0 

C : 02312 

0 

50002 

0 

30000 

1 

24002 

0 

15404 

5X30 

50  00  2 

0 

30001 

0 

52064 

1 

34752 

0 

2600? 

1 

15417 

1 

22706 

10000  0 
35422  0 
00006  1 
22006  I 


5440 

50000 

1 

30001 

0 

22006 

1 

22706 

0 

13601 

1 

22706 

0 

C/,  CD 

r.r,  nru. 

I 

50000 

1 

1 

0 

22706 

0 

22006 

1 

22706 

0 

i - u UU  fe 

5460 

5403  2 

1 

540  33 

0 

54034 

1 

0000? 

0 

5416  2 

0 

X 0 160 

1 

54  70 

26  160 

1 

C0C02 

0 

04635 

0 

C : 20  326 

1 

34755 

1 

55044 

1 

22006  1 
13707  0 
70162  0 
00004  0 


22706  0 
34755  1 
50161  1 
44753  0 


5500  70100  1 54100  1 
5510  04001  1 50061  0 
5520  70001  1 15511  0 
5 5 30  27  77  7 0 540 Cl  1 

5540  54001  1 «<'0f  ? 0 
5550  50000  1 30000  1 
5560  10061  1 15545  1 
55  70  30  002  0 5,5363  1 


00003  1 00002  0 30002  0 
54074  0 22063  1 00003  1 
64753  1 0000,4  0 54063  0 
34755  1 00006  1 10061  1 

447 3 £ 0 0000?  0 000 Ox-  0 
54001  1 3006 1 0 50002  0 
16741  1 44747  0 71044  1 
50002  0 30000  1 54001  1 


05522 

1 

40000 

0 

00006 

1 

00001 

0 

30002 

0 

05522 

1 

34762 

0 

54061 

1 

50063 

1 

52062 

1 

50061 

0 

30074 

1 

5x061 

1 

50002 

0 

60000 

1 

60001 

0 

50000 

1 

22000 

1 

55044 

1 

05155 

0 

00004 

0 

30006 

1 

00  006 

1 

04007 

1 

5600 
c 6 1 0 

56  20 

55  364 

0 

1 

0 

30  002 

OD-J  7 A 

O c 

54061 

1 A/, 

1 

0 

0 

10375 

A f A *7  7 

1 

1 

1 

1 56  07 
747  33 
56061 

1 

0 

0 

22375 

1 0000 

0 

0 

1 

15621 
15  6 30 
50000 

1 7 0 1 j 

15  6 7 4 

C.  C-  D < O 

4 1C  36 

1 

75642 

D V.  ■ D 1 1 

27036 

00003 

5630 

30001 

0 

64735 

1 

54377 

0 

15624 

0 

00004 

0 

3C002 

0 

55363 

10376  1 
22377  1 
00001  0 
50002  0 


66X0  30  000  1 
5650  04635  0 
5660  C:  77770  1 
5670  30103  0 


05*  74  1 C : 40400  1 
12765  0 00004  0 

1 40  01  1 

74746  1 10000  0 


COCOA  0 
30002  0 
x 0000  0 
15701  0 


34752  0 60005  1 
55363  1 c 0 002  0 
R2761  0 00004  o 
04616  1 c:  12652  0 


54  017  0 50017  1 
30000  1 05574  1 
04616  1 C:  27755  0 
04616  1 C:  12643  0 


6 7 00 

Id  644 

0 

35743 

l 

04727 

1 

04t  16 

1 

5710 

C : 01 103 

1 

00004 

0 

30002 

0 

05  571 

1 

5720 

36  742 

0 

540  6 1 

1 

500  02 

0 

30000 

1 

5730 

55  74  1 

0 

14721 

1 

000  04 

0 

53364 

0 

5740 

15601 

1 

15660 

0 

15642 

0 

C:  56C67 

0 

5750 

05  575 

0 

C:  00014 

1 

01363 

0 

314  72 

1 

5760 

54  001 

1 

4 5774 

1 

00006 

1 

0 2005 

0 

c 770 

31  474 

1 

540C1 

1 

35774 

0 

15  762 

0 

57321 

0 

00006 

0 

30002 

0 

05654 

0 

CO?  17 

0 

Cl  363 

0 

00  004 

0 

53364 

0 

54001 

1 

15  603 

0 

00004 

0 

53364 

0 

00004 

0 

50002 

0 

30000 

1 

54001 

1 

00004 

0 

54001 

1 

30002 

0 

55363 

1 

00G06 

1 

01006 

0 

00002 

0 

31473 

0 

x C0C1 

0 

00006 

1 

01  005 

0 

00002 

0 

003  14 

1 

C:  05775 

1 

C:  05776 

1 

CK5M  67064 

0 

* 
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fcf  00 

C : 

00  46  4 

1 

34764 

0 

54001 

1 

40000. 

0 

5276  1 

0 

C4635 

C 

C: 

10  02* 

0 

C:  00024 

1 

6010 

C: 

00  031 

0 

46021 

0 

000  04 

0 

70110 

0 

54  110 

0 

44752 

1 

00006 

1 

03012 

1 

60  20 

CO  00  2 

0 

C : 

410  CO 

1 

000  06 

1 

36  026 

0 

I 5165 

1 

C: 

030  24 

1 

C : 

66  107 

1 

36036 

1 

603  C 

00  004 

0 

22000 

1 

50002 

0 

30000 

1 

2 2006 

1 

12200 

0 

C: 

66063 

1 

00003 

1 

6040 

00006 

1 

22164 

1 

30006 

1 

54165 

1 

74735 

0 

54 1 1 5 

0 

54023 

1 

16070 

1 

6050 

22006 

l 

16  042 

0 

000  06 

1 

50116 

1 

3000  1 

0 

52155 

1 

34755 

1 

54156 

1 

6060 

54163 

1 

30165 

0 

54006 

0 

10  0 2 3 

1 

16077 

0 

10067 

1 

15  1 26 

0 

24164 

1 

6070 

5 9 164 

1 

30CC0 

1 

1 >000 

0 

10362 

1 

C : 

C 0177 

0 

5402  3 

1 

76074 

0 

54020 

1 

6 l 00 

10020 

1 

16247 

1 

16743 

0 

747  53 

0 

10000 

0 

16  146 

0 

50  164 

1 

40001 

1 

6 1 10 

10000 

0 

16215 

0 

C : 

77773 

1 

24  164 

1 

54116 

0 

66251 

1 

10000 

0 

67743 

0 

6120  ... 

16  1 2 5 

0 

30120 

1- 

261  16 

0 

5CU20 

0 

76273 

0 

OOGOfc 

1 

66136 

0 

75012 

0 

6130 

3 0 1 2 

1 

56  1 16 

1 

60115 

1 

54004 

1 

CQQ20 

0 

76273 

0 

74357 

0 

65007 

0 

6 1 a o 

56-116 

X 

54007 

0 

50020 

0 

76273 

o 

37733 

54020 

x 

30120 

x 

54130 

x 

6150 

26  164 

1 

50164 

1 

40000 

0 

10000 

0 

24130 

0 

16156 

1 

54116 

0 

77742 

0 

6160 

00  006 

1 

16144 

0 

30115 

1 

26116 

0 

5 0130 

0 

40046 

1 

26116 

0 

777*4 

0 

6170 

00006 

1 

162C4 

0 

77742 

0 

0,0006 

1 

16206 

1 

30116 

1 

54004 

1 

7501  2 

0 

6 200 

64  7*  1 

1 

54116 

0 

50020 

0 

36273 

1 

3012  0 

1 

1621? 

1 

35007 

0 

56116 

1 

6210 

54  003 

J 

743  57 

0 

26116 

0 

500  70 

0 

36273 

1 

39-360 

0 

70020 

1 

66222 

0 

6220 

10  000 

0 

162  33 

1 

C : 

77767 

1 

66112 

0 

1000C 

0 

50000 

1 

46244 

1 

16235 

1 

6230 

50  163 

0 

4624  2 

1 

16235 

1 

50163 

0 

4 6244 

1 

26  166 

1 

54116 

0 

50020 

0 

6 240 

76  27  3 

o 

C: 

COO  02 

0 

C : 

OOOOfe 

1 

C : 

00  006 

1 

C: 

00002 

0 

C : 

00003 

1 

C: 

00006 

1 

10020 

1 

6250 

16  26  3 

1 

C : 

77722 

0 

241  64 

1 

50164 

1 

30000 

1 

54117 

1 

35013 

c 

54004 

1 

6260 

70020 

1 

50000 

1 

16334 

1 

54104 

1 0020 

50000 

x 

12000 

x 

10  163 

x 

6270 

12017 

1 

12017 

1 

12121 

0 

C : 

00122 

0 

16505 

0 

17071 

1 

17655 

1 

17401 

1 

6300 

16  703 

1 

164  70 

o 

1 60  52 

1 

17624 

1 

URfll 

1 

1 iSA  ? 0 

1 

16523 

x 

17334 

0 

1 L1  *)  v A 

1 

A O OV„  v 

A 

6310 

16  557 

1 

16626 

1 

173  37 

0 

176  16 

0 

17574 

1 

175-7 

1 

17603 

1 

17621 

1 

6320 

1 6 751 

o 

16  747 

1 

) 7036 

1 

17  33  1 

0 

17460 

0 

17425 

1 

17005 

1 

17062 

0 

6330 

16775 

0 

16331 

1 

17572 

1 

17613 

c 

12344 

1 

12  351 

0 

12  354 

0 

12  360 

1 

63*0 

12  364 

0 

12372 

1 

12406 

0 

12415 

1 

12400 

0 

12411 

0 

12467 

1 

1247  4 

0 

6350 

12447 

0 

12  5 07 

0 

12516 

0 

12457 

1 

30165 

0 

54004 

1 

241 64 

1 

50164 

1 

6360 

40  000 

0 

67747 

1 

541  16 

0 

74  3 56 

1 

56116 

1 

77722 

0 

00  006 

1 

7*747 

0 

6370 

50000 

1 

16372 

0 

0 6422 

0 

1606  1 

1 

064  14 

0 

16  061 

1 

06417 

0 

16061 

1 
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6^00 
6410 
6 z 20 
6430 

6440 

6450 

6^60 

6*70 

6500 

6510 

6520 

6*30 

6540 
6550 
6 5 60 

65  70 

66  00 
66  10 
6620 
6630 

6640 

6650 

6660 

6670 

6700 
6710 
67  20 
6730 

6740 

6750 

6760 

6770 


06422  0 
06422  0 
40  047  0 
56  116  1 

10163  1 
30162  1 
37732  0 
50  lie  1 

16060  0 
52  155  1 
52  162  0 
52001  1 

54  1*6  1 
54  156  1 
50116  1 
10  16  3 1 

51 775  0 
00006  1 
24164  1 
30000  1 

30165  0 
COCOfc  1 
54  164  0 
60117  0 

31 400  1 
75012  0 
30  001  0 
00002  0 

00001  0 
16  752  0 
16  762  0 
07011  0 


16460  1 
34766  1 
26116  0 

5 A n c 3 0 

16454  0 
501 16  1 
56020  1 
30002  0 

22CC7  C 
C0006  1 
64753  0 
50163  C 

52160  1 
16061  1 
30001  0 
16610  1 

00006  1 
50116  1 

5 1 64  1 
50116  1 

74350  L 
16662  1 
1 6 n 4 2 0 

50000  1 

54117  1 
50000  1 
5 4 117  1 
16733  1 

*0002  0 
34355  0 
07014  0 

00006  1 


06422  0 
540  20  1 
40116  0 
74357  0 

00002  0 
52005  0 
16106  1 
54156  1 

50116  1 
501 16  1 
16060  0 
362  64  0 
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ALL  VALID  W'RDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  ( 


00,2*-00 
00, 24  10 
CO, 2420 
00, 2430 


12416  1 
34753  1 
52131  3 
1 6 06  1 1 


401L4  C 
5 4 121  1 
24136  0 
12*33  0 


00006  1 
06061  0 
10154  0 
16061  1 


6240P  1 
24136  0 
12437  1 

00006  1 


00,2440  67747  1 60130  0 10000  0 
00,2450  60155  0 54155  1 34755  1 
00,2460  54131  0 34755  1 64733  1 
00,2470  C : 00133  0 124C5  C 54140  G 


12505  1 
64733  1 
26 130  1 
40155  1 


0 0,2 
00,2510 
00,2520 
00,2530 

00,2540 

00,2550 

00,2560 

00,2570 

00,2600 

00,2610 

00,2620 

00,2630 

0 0,2640 
00,2650 
00,2660 
00,2670 

00,2700 
00,27  10 
00,2720 
00, 2"’30 

0 0,27*0 
0 0.275C 
00,2760 
00,  27?r 


00006  1 
12500  1 
40  131  D 
12363  1 

22021  1 
20001  1 
20  001  1 
52155  1 

54000  0 
00006  1 
OC  006  1 
54  155  1 

3 4 755  1 
54154  0 
52131  0 
46130  0 

GO  006  1 
10130  1 
2*  12  7 0 
30  131  1 


52  155  1 
30  12  7 0 
00002  0 
54 140  0 


24137  1 
52155  1 
GQC  06  1 
io non  o 

00006  1 
20001  1 
20001  1 
Cl  006  1 

126(16  1 
60130  o 

12630  1 
10136  1. 

0000?  0 
40131  0 
07  5 44  0 
r6  1 55  0 

12703  0 
12721  0 
CCOC 6 1 
20131  0 

52160  1 
54136  1 
12763  0 
4 7 1 54  0 


00006  1 
50137  1 
62422  1 
12416  1 

7 47  36  0 
20001  1 
20001  1 
10130  1 

000  06  1 
00006  1 
00006  1 
00002  0 

40154  0 
6 015  5 0 
52131  0 
56154  1 


12405  0 
124  05  0 
30131  1 
301 30  0 

02750  1 
10154  0 
000 02  0 
60133  0 


30131  1 
02565  0 
34  736  1 
30131  1 

56001  6 
20001  1 
20001  1 
62155  1 

6C13C  0 
12616  0 
26154  C 
00002  0 

60130  0 
12624  1 
10130  1 

00006  1 

56162  1 
12715  1 
52134  0 
60000  1 

52162  0 

12767  1 
00C06  1 
10000  0 


3:  15  DEC 


2,1970 


PAGE  1599 


THE  rIGHT  OF  EACH  WORD,  "8"  DEMOTES  UNUSED  FIXED  MEMORY 


NTERPRETIVE  OPERATOR  WORDS) 


OR  "C"  (CONSTANTS) 


24136  0 34733  1 

40131  0 12402  1 

12426  1 12433  0 

40155  1 52155  1 

C:  60C01  0 12446  1 

26154  0 34736  1 

40154  0 6C130  0 

6 0131  1 00006  1 

20131  0 30 130  0 

54156  1 16061  1 

60000  1 26131  0 

00006  1 62416  0 

60021  1 56001  0 

20001  1 20001  1 

c2  1 55  1 10140  0 

40154  0 000C6  1 

24154  1 12610  C 

00006  1 62524  0 

60130  0 22007  0 

00002  0 00006  1 


54154 

0 

02630 

0 

00006 

1 

40131 

0 

10155 

1 

12437 

I 

24136 

0 

40154 

0 

34736 

1 

60000 

I 

60000 

1 

60131 

1 

10000 

0 

12505 

1 

62405 

1 

12505 

1 

60  000 

1 

54000 

0 

10000 

0 

12422 

0 

34755 

1 

54130 

1 

447  36 

0 

12  524 

1 

1 

1 

1 C.  J>  f 1 

1 

lUuUI 

1 

20001 

1 

20001 

1 

: 06552 

0 

12642 

1 

70  131 

0 

60155 

0 

00006 

1 

62620 

1 

24154 

1 

12625 

0 

00006 

1 

10130 

1 

40155 

1 

52155 

1 

00006  1 
44753  0 
12721  0 
12676  0 

56161  1 
12405  0 
12732  1 
54000  0 


12647  1 
5413  7 C. 
12667  0 
12405  0 

00006  1 
00006  1 
00006  1 
12725  1 


12570  0 
54127  1 
12715  1 
56160  0 

12710  1 
40  1310 
24  137  1 
02750  1 


34733  1 
03010  0 
56131  1 
56157  1 

12405  0 
52131  0 
00006  1 
e 2 160  1 


52155  1 
12756  0 
*0155  1 
13004  1 


52162  0 
1276  3 0 
52  155  1 
12777  C 


02750  1 
10155  1 
2*  136  0 
12405  o 


17420  1 
12767  1 
44753  0 
54140  0 


GAP:  ASSEMBLE  Hj£VISir.N  0C1  OF  AGO  PROGRAM  AP11ROPE  BY  EYLES 


3:  15  DEC 


2,1970 


F AGE  1600 


* 


» 3CTAI  LISTING  F PARAGRAPH  * 022,  WITH  PARITY  811  IN  BINA.Y  AT  THE  RIGHT  0 F EACH  WORD,  "a"  DEMOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  • OS  APE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 

ft 


00,3000 

40  155  1 

601  34 

1 

00006 

1 

62405 

1 

52155 

1 

50137 

1 

12565 

1 

C:  32506 

0 

00,30 10 

55002  0 

62155 

1 

075  44 

0 

52155 

1 

52160 

1 

07544 

C 

52160 

1 

52162 

0 

ft 

00,3020 

07544  3 

52162 

0 

00000 

1 

03010 

0 

C 7 5 3 2 

1 

34755 

1 

56121 

0 

54141 

1 

00,3030 

03317  1 

3 0 1 ■'  1 

0 

561  21 

0 

00006 

1 

13036 

0 

12405 

0 

00006 

1 

30155 

0 

t 

00,3040 

50  120  1 

52043 

1 

03343 

0 

10154 

0 

13051 

l 

54001 

1 

50120 

1 

52045 

1 

00,3050 

12405  0 

44317 

1 

6 013  5 

0 

10C00 

0 

40  000 

0 

13  133 

1 

13  06  5 

0 

44761 

1 

00,3060 

54  13  5 1 

30154 

1 

54001 

1 

36  7 55 

1 

13112 

1 

10135 

1 

13074 

0 

42024 

1 

0 

00,3070 

64  13  5 1 

00006 

1 

301  55 

0 

1311  2 

1 

40  000 

0 

5613  5 

1 

40  000 

0 

50000 

1 

00,3100 

34736  1 

54130 

1 

000  06 

1 

70155 

1 

55130 

0 

00006 

1 

70154 

0 

56001 

0 

0 

00,3110 

60130  0 

56001 

0 

501  20 

1 

52045 

1 

44753 

0 

54140 

0 

52  123 

0 

52  155 

1 

00,3120 

52  131  0 

03151 

1 

52125 

0 

52155 

1 

5 2160 

1 

03151 

1 

52  127 

1 

52155 

1 

a 

On,  31  30 

52 162  0 

031  51 

1 

17420 

1 

54135 

1 

3476  5 

1 

56  12  3 

1 

56122 

0 

56  125 

1 

00,31 *0 

56  124  0 

56127 

0 

56126 

1 

40135 

1 

c on  no 

1 

34736 

1 

00006 

1 

?0 154 

0 

00,3150 

13062  1 

10154 

0 

131  70 

c 

13155 

1 

13162 

0 

1015  5 

1 

13170 

0 

00002 

0 

ft 

00,3150 

13162  0 

00002 

0 

44755 

0 

54136 

1 

00006 

1 

40155 

1 

50135 

0 

12564 

0 

00,3170 

54136  1 

5215.5 

1 

50135 

0 

12564 

0 

C330C 

I 

16061 

1 

10163 

1 

13226 

0 

0 0,3200 

13726  0 

0 33  1 7 

1 

22163 

G 

00006 

1 

30155 

0 

50120 

1 

52043 

1 

03343 

0 

00,3210 

10135  1 

13  7 13 

0 

16061 

1 

63733 

0 

00006 

1 

63  221 

0 

22007 

0 

22116 

1 

00,3220 

12  303  1 

50135 

0 

34735 

1 

54135 

1 

34755 

1 

12036 

1 

06723 

1 

16061 

1 

t 

00,3230 

16061  1 

17670 

0 

447  51 

1 

26166 

1 

00006 

1 

50000 

1 

30003 

1 . 

52160 

1 

00,32^0 

00006  1 

50  166 

0 

30001 

0 

5 2162 

0 

16521 

0 

03317 

1 

17332 

0 

00006 

1 

00,3250 

30  15  5 0 

50166 

0 

52001 

5 

50  163 

0 

36244 

0 

26166 

1 

1C  163 

1 

13272 

1 

00,3250 

16061  1 

00CC6 

1 

3 0160 

0 

50166 

0 

c 1775 

0 

00006 

1 

30  162 

1 

50166 

0 

r 

00,3270 

51777  1 

16C61 

1 

301  56 

0 

16554 

1 

50120 

1 

30052 

0 

54117 

1 

16652 

1 

00,3300 

30 155  0 

00  006 

1 

7 0000 

0 

54156 

1 

34755 

1 

56155 

0 

00006 

1 

70154 

0 

00,3310 

20001  1 

20156 

l 

56154 

1 

00006 

1 

70000 

0 

20155 

1 

00002 

0 

00006 

1 

j* 

00,3320 

22  13  7 1 

03  3 00 

1 

52160 

1 

5215  5 

1 

52131 

0 

30156 

0 

54132 

0 

03  300 

1 

00,3330 

52 156  1 

20132 

0 

601  54 

1 

60130 

0 

54130 

1 

13337 

1 

54121 

1 

52  162 

0 

00,3340 

52  15  5 1 

03  300 

1 

17205 

0 

34755 

1 

54135 

1 

10154 

0 

13405 

1 

13351 

1 

3” 

00,3350 

13373  1 

56156 

0 

561  55 

54154 

0 

34757 

0 

5<  135 

1 

10154 

0 

13405 

1 

00,3360 

13362  1 

13376 

1 

56155 

0 

54154 

0 

347c7 

0 

26135 

1 

10154 

0 

13^05 

1 

Q 

00,3370 

00  002  0 

133  76 

1 

13453 

l 

10000 

0 

13402 

0 

1C  155 

1 

34  755 

1 

13453 

1 

r* 


GAP:  ASSEMBLE  REVISION  001  OF  AGC  PROGRAM  AP11RQPE  BY  EYLES  3:  15  DEC.  2,1970  PAGE  1601 
OCTAL  LISTING  F'.T  PARAGRAPH  « 073,  ■!!  TH  PARITY  BIT  IN  BINARY  AT  THE  fIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 
ALL  VALID  WO  OS  Ac  F BASIC  INST  .UCT  HKS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


0 0, 34G0 

13402  0 

13453 

1 

52165 

1 

05  726 

1 

C:  G13C2 

1 

62444 

1 

00006 

1 

00,34 10 

52  15  5 1 

22021 

1 

000  06 

1 

74736 

0 

52155 

1 

56021 

1 

26  lc5 

1 

00,3420 

CO 006  1 

70154 

0 

62566 

0 

54130 

1 

30154 

1 

22007 

0 

00006 

1 

00,3430 

00006  1 

74736 

0 

261  30 

1 

COO  06 

1 

74736 

0 

52 1 c 5 

1 

00006 

1 

63456  0 
32314  0 
10130  1 
10130  1 


00,3440 
00,3450 
00,346 0 
00,3470 


54131  0 
00006  1 
63502  0 
33  007  0 


34755  1 
134  55  1 
52155  1 

00006  1 


56001  0 
34733  1 
22021  1 
701 54  0 


00006  1 
54154  0 
00006  1 
t2?~! 0 0 


10130  1 
54155-  1 
74736  0 
13*23  0 


54C01  1 
0000  2 0 
52155  1 
C 0006  1 


30131  1 
64737  0 
56021  1 
30156  0 


20155  1 
00006  1 
26155  1 

20156  1 


0 0,3500 
00,3510 
00,3520 
00,3530 


60  154  1 

60000  1 
13  523  1 
*2155  l 


26154  0 
54022  0 
13526  1 
20001  1 


241 35  0 
10022  0 
13526  1 
54000  0 


1 

10022  0 
0 Gusli-  1 
13536  0 


30156  0 
13475  0 
40155  l 
C CO  06  1 


20156  1 
13417  1 
52155  1 
4CC01  1 


60154  1 
13470  0 
34737  0 
52155  1 


26154  0 
06723  1 
26154  0 
30154  1 


00,354n  60000  1 
00,3550  54154  0 
00,3560  C:  00003  1 
00,3570  C:  71471  0 


5-- 001  1 13553  0 

40155  1 54155  1 

C:  14641  C C:  37325  1 

C:  00236  0 C:  32757  0 


5000C 

1 

34735 

1 

60000 

1 

00006 

1 

60154 

00006 

1 

30155 

0 

52134 

0 

03300 

1 

07222 

53250 

0 

C:  60764 

1 

C:  12146 

1 

C:  21276 

1 

C:  75466 

32470 

0 

07 106 

1 

00006 

1 

30156 

0 

20156 

CC,  36  00 
00,3610 
00,3620 
00,3630 


60156-  l 
33631  0 
40  155  1 
13721  1 


26  154  C 
136-13  1 

52  155  1 
13707  0 


000  06  1 
33713  1 
33734  1 
13642  0 


30156  0 
54136  1 
56136  0 
10155  1 


20156  1 
06723  1 
54137  0 
34755  1 


60154  1 
13625  1 
44736  0 
13637  1 


26154  0 
13331  0 
60154  1 
13642  0 


16061  1 
00006  1 
10000  0 
54155  1 


CO,  3641  > 
00,3650 
0 0 , 36  6 ( - 
00,3670 


56  154  0 
10  1 3 c'  1 
C:  23630  0 
C:  26  756  1 


00136  C 
13714  1 
C:  74721  0 
C:  74C37  0 


00006  1 
52155  1 
C:  4.7775  l 
C*.  57640  1 


40155  1 €4736  1 

52134  C 52155  1 

C:  024 40  0 C:  202  37  0 

C:  03046  0 C:  07143  0 


52155  1 
07222  1 
C : 75067  1 
C:  7 o 6 5 4 i 


52  134.  o 

C:  00006  1 
C:  70742  1 
C:  42244  0 


0334-3  0 
C:  13  26-0  0 
C:  03436  0 
32470  0 


C C, 3 7 00 

07  106 

1 

GO  136 

C 

000  06 

1 

40155 

1 

64736 

l 

52155 

1 

00137 

1 

00,3710 

40  155 

I 

64737 

0 

52155 

1 

16  06  1 

1 

E 30 CC 

1 

34  7 36 

1 

54  135 

1 

00,3720 

13652 

1 

f 0006 

1 

136  37 

1 

C 0006 

1 

30165 

0 

C5732 

1 

C:  01301 

1 

00,3730 

13  637 

1 

34737 

c 

13640 

1 

C:  77763 

0 

13702 

0 

CO  00  4 

0 

5*002 

1 

00006  1 
02073  1 
34755  1 
34752  0 


00,3740 

00,3750 

00,3760 

0O,377o 


54070  1 50C00  1 
C 5 7 1 6 1 C:  01104  0 
15211  1 04645  1 
05137  1 05261  1 


31326  1 
33772  0 
50070  0 

( : 037  57  1 


C0006 

1 

13752  0 

10070 

1 

13  740 

0 

52  134 

0 

54061 

1 

30004  0 

60070 

0 

54001 

1 

33773 

1 

5 5326 

0 

05133  0 

347  5 5 

1 

50006 

1 

57326 

1 

03765 

0 

C:  03774  0 

C:  03775 

1 

CKSM  77716 

1 

3 

GAP:  ASSEMBLE  REVISION  001  OF  AGC  PROGRAM  AP11RQPE  BY  EYLES 
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HCTAL  LISTING  FOf  PARAGRAPH  * 024,  WITH  PARITY  BIT  IN  B I ! A Y A7  THE  RIGHT  OF  EACH  WORD,  "a"  DEMOTES  UNUSED  FIXED  MEMORY 
ALL  VALID  WORDS  A ' E RASIC  ]!lSTi  JCTI  ' S EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


01,2000 

C: 

76  466 

1 

C: 

76731 

0 

00010 

0 

C 0020 

0 

00010 

0 

00023 

0 

00010 

0 

00053 

1 

0 1,2010 

00  057 

0 

00067 

0 

00142 

0 

00160 

0 

00010 

0 

00171 

0 

C : 

21000 

1 

C: 

05155 

0 

01,2020 

C : 

04  06  0 

0 

C : 

CO  144 

0 

C: 

05261 

1 

C : 

04060 

0 

C : 

76300 

0 

C : 

75*  3 1 

0 

C : 

03  7 1 C 

1 

C: 

02630 

0 

0 1, 2030 

C : 

75  173 

0 

C : 

26043 

0 

o : 

050  00 

1 

C: 

02613 

1 

C: 

26063 

0 

C: 

021’R4 

o 

C: 

75533 

0 

C : 

27710 

1 

01,2040 

C : 

14000 

1 

C : 

02'  16 

0 

C : 

50067 

0 

C : 

10000 

0 

C : 

C2217 

1 

C : 

54067 

1 

C : 

26000 

0 

C: 

02653 

0 

0 1,2050 

C: 

50  06  7 

0 

C : 

77777 

0 

C: 

75440 

0 

C: 

03710 

1 

r • 

♦ 

COO  31 

0 

C : 

75771 

1 

C : 

35710 

1 

C : 

76355 

0 

0 1 ,2060 

C: 

75  75  5 

1 

C: 

41710 

1 

C : 

200  00 

0 

C: 

02540 

1 

C : 

?t>067 

0 

C: 

04704 

0 

C : 

75425 

0 

C : 

03710 

1 

01,2070 

C : 

77  777 

o 

C : 

7 5435 

1 

C: 

037  10 

1 

C: 

25000 

0 

C : 

03540 

0 

C : 

64067 

1 

C : 

00062 

0 

C : 

75215 

0 

0 1, 2100 

C : 

03  710 

1 

C : 

00764 

1 

C : 

753  74 

0 

C : 

03710 

1 

C: 

76260 

1 

C : 

74235 

0 

C: 

03710 

1 

C: 

12000 

1 

0 1,21 10 

C : 

03223 

1 

C : 

74067 

0 

C : 

00764 

1 

C : 

75501 

1 

C : 

03710 

1 

C : 

77777 

0 

C : 

75425 

0 

C: 

03710 

1 

0 1, 2120 

c : 

13.000 

0 

C : 

C3C20 

c 

C: 

30065 

1 

C: 

777  77 

0 

C: 

75351 

1 

C: 

03710 

1 

C : 

01477 

1 

C : 

75537 

1 

01,2130 

C : 

74  04  7 

0 

C : 

5 2777 

1 

C.: 

0 20  7 3 

1 

C: 

42067 

0 

C : 

52777 

1 

C : 

02076 

1 

C : 

*2  067 

0 

C: 

46777 

1 

0 1,21*C 

C : 

02  024 

0 

C : 

10067 

1 

C : 

46777 

1 

C: 

056  66 

1 

C: 

04067 

1 

C : 

52777 

1 

C : 

02571 

0 

0 : 

74067 

0 

01,2150 

C : 

22000 

1 

C : 

02461 

0 

C : 

46067 

1 

C : 

00310 

0 

C : 

74163 

0 

C: 

01710 

0 

C : 

00310 

0 

C : 

74163 

0 

01,2160 

C : 

01  710 

0 

C : 

200  00 

0 

C : 

022  06 

1 

C : 

66067 

0 

C: 

00310 

0 

C : 

74  163 

0 

C, : 

01710 

0 

C : 

77777 

0 

01,2170 

C : 

74  324 

1 

C : 

01710 

0 

C: 

77777 

0 

C: 

74361 

0 

C : 

C 1710 

0 

C.: 

00144 

0 

C : 

75060 

0 

C : 

03710 

1 

01,2200 

r : 

30  COO 

1 

C : 

C36  01 

0 

C: 

IOC  63 

0 

C : 

17000 

1 

C : 

0 3 3 50 

1 

C : 

74-067 

0 

35015 

0 

54003 

0 

0 1,2210 

34  74  5 

0 

70111 

1 

10000 

0 

32337 

1 

62340 

1 

554*4 

0 

3 2342 

0 

55476 

1 

0 1,2220 

34737 

0 

^01  1 1 

1 

00006 

1 

12232 

] 

31*  44 

1 

00006 

1 

72341 

1 

55444 

0 

01,2230 

32343 

1 

55*76 

1 

00003 

1 

32334 

1 

C4616 

1 

C: 

20353 

0 

12244 

0 

12250 

0 

01,2240 

12233 

0 

3475  1 

0 

05464 

1 

15  1 55 

1 

000C4 

0 

0*67* 

0 

0 : 

40123 

0 

15472 

1 

0 1,2  2 50 

40106 

1 

747  37 

1 

10000 

0 

32000 

0 

6 2001 

1 

6 1331 

1 

00006 

1 

62233 

1 

01,2260 

30  111 

0 

74737 

1 

00006 

1 

12271 

n 

*47*1 

0 

61332 

1 

00006 

1 

62233 

1 

0 1, 2 2 70 

31  332 

1 

61331 

1 

22007 

0 

53245 

1 

C0C04 

0 

0467* 

0 

C : 

40123 

0 

00003 

1 

0 1,2300 

40  10  6 

1 

747  37 

1 

00006 

1 

15472 

1 

32335 

0 

0*616 

1 

C : 

20353 

0 

05472 

0 

01,2310 

12  315 

0 

123  04 

0 

34751 

0 

05464 

1 

15155 

1 

3*753 

1 

00  00* 

0 

05203 

0 

01,2320 

C: 

03  217 

0 

C- : 

56C  66 

1 

15155 

1 

32336 

0 

04616 

1 

C : 

20361 

1 

05472 

0 

05472 

0 

0 1 ,2330 

05  47  2 

0 

360C7 

0 

05464 

1 

15155 

1 

C : 

01457 

0 

C : 

014  60 

1 

C: 

14460 

0 

C : 

25101 

0 

01,2 

C: 

05  220 

1 

C : 

03146 

1 

C: 

77445 

1 

C : 

77622 

1 

02*41 

1 

30117 

0 

50130 

0 

54046 

1 

0 1,2  3 50 

16061 

1 

. 02441 

1 

401  17 

1 

02346 

1 

02427 

1 

50117 

0 

30000 

1 

12346 

0 

0 1 ,2360 

02  427 

1 

50  117 

0 

40000 

0 

12346 

0 

02427 

1 

50130 

0 

300*6 

0 

50117 

0 

0 1, 2370 

54000 

n 

16061 

1 

02427 

1 

50117 

0 

30000 

1 

50130 

0 

56046 

0 

12367 

0 

GAP:  ASSEMBLE  REVISION  001  OF  AGC  PROGRAM  4P11RUPC  8Y  EYLfcS 


3: 15  DEC 


2,1970 
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OCTAL  LISTING  Ft!  PA  AC-1  \PH  i 025,  WITH  PA’-ITY  BIT  ; ' 8 10  A Y AT  THE  EIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WP'.DS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


0 1, 2 A CO 
0 1,2410 
0 1,2420 
0 1,243" 


02427  1 
12403  3 
50130  0 
64772  1 


50117  0 
02427  1 
60046  0 
ID 000  0 


300  0 0 1 
501 17  0 
00006  1 
30120  1 


50130  0 
40000  0 
660 SI  0 

1 1 


26046  1 
12403  0 
50130  0 
35007  0 


16  061  1 
02441  1 
56046  0 
*6  117  p 


02441  1 
50130  0 
16646  1 
*4003  0 


30117  0 
40050  0 
40117  1 
74357  0 


0 1,2440 

26  117 

1 

30120 

1 

541  30 

1 

10020 

1 

24130 

0 

00002 

0 

00002 

0 

0 1,2  450 

30  117 

G 

U46  21 

0 

101  54 

f'i 

16C61 

1 

15646- 

1 

16061 

1 

16646 

1 

01,244  0 

12462 

1 

16061 

1 

54121 

1 

10020 

1 

124  50 

0 

C : 00360 

1 

16646 

l 

01,2470 

06  72  3 

1 

1 6 C 6 1 

1 

1 56  46 

1 

16061 

1 

1 3020 

1 

12503 

1 

C:  12000 

1 

10020  1 
10121  1 
10020  1 
06723  1 


01,2500 
0 1,2510 
0 1,2520 
01,2*3 


16061  1 
16640  1 
50000  ) 
5 o COO  1 


16061  1 
05705  0 
34735  1 
30074  1 


16646  1 
02427  1 
54131  0 
54002  1 


06723  1 
50120  1 
34745  0 
34  741  1 


16646  1 
30052  0 
00006  1 
00006  1 


16646  1 
12367  0 
70117  1 
70117  1 


16061  1 
34762  0 
54130  1 
72576  0 


10020  1 
70117  1 
00004  0 
50000  1 


0 1,2540 

12  541 

1 

30131 

1 

000  06 

1 

04002 

1 

12*53 

1 

30131 

1 

00006 

1 

01,2550 

12  553 

1 

401  31 

C 

73302 

1 

50130 

0 

54074 

0 

00003 

1 

34737 

0 

0 1, 2560 

70117 

1 

72576 

0 

5 00  00 

1 

12564 

0 

40002 

1 

7013  1 

0 

10000 

0 

01,2570 

16  715 

3 

12  577 

-» 

05705 

0 

05  705 

G 

30002 

Smmmm 

12  565 

1 

C:  00014 

1 

06002  0 
00006  1 
12577  1 
24164  1 


0 1,267  f 

0 1,2610 

0 1,2620 

16  061 
10  604 

1 

1 

3 

5 4 C 6 1 
l? r-  ?o 

1 

o 

10400 
) 06  60 

1 

o 

12  6 2 0 
126^0 

0 

0 

0 

10454 
7 206  1 

0 

o 

12620 
3000  2 

0 

o 

647*2 

22007 

0 

50000 

1 

21777 

26363 

0 

34755 

1 

0 1,2630 

54062 

1 

5CC64 

0 

10167 

0 

12o74 

1 

C:  C0007 

0 

12674 

1 

10530  0 
05716  1 
5^064  1 
30063  1 


12620  0 
C:  01201  0 
32634  1 
50064  0 


0 1, 26 40 
01,2650 
01,266 0 
0 1,2670 


54 167  0 
54  120  0 
15160  1 

65  160  3 


75004  1 

10067  1 
52066  0 

30C64  0 


50064  0 
126  61  0 
50064  0 
54067  1 


54166  1 
05705  0 
52  165  1 
15160  1 


13064  1 
<35705  0 
*0067  0 
33033  1 


12661  ' 
54067  1 
60167  0 
26066  1 


56121  1 
52066  0 
60063  1 
10062  1 


30166  0 
52165  1 
00006  1 
12630  1 


0 1,2700 

22  06 1 

0 

30CC2 

0 

05716 

1 

C:  01202 

0 

22164 

1 

301*5 

0 1,27 10 

04  007 

l 

56  001 

0 

50067 

0 

52165 

1 

*2165 

1 

30165 

01,272 

52  155 

1 

*0067 

0 

521*5 

1 

5215* 

1 

52157 

0 

50067 

0 1,2730 

*2161 

o 

60067 

0 

5 2161 

0 

52161 

0 

5 214  3 

1 

5006  7 

00004  0 
00006  1 
52157  0 
*2163  1 


00006  1 

01007  1 
521*7  0 
52163  1 


0 1,2  74  0 
01,2750 
01,27 ' 
01,2770 


34755  l 
5216  7 3 
40  166  1 
62772  1 


56121  0 
52167  0 
54166  1 
52006  0 


00006  1 
35004  0 
347  5 3 1 
40000  0 


12746 

1 

40166  1 

54166 

1 

52167 

0 

500*7 

0 

70  1 67 

0 

54120  0 

10166 

1 

34755 

1 

12764 

1 

56  121 

0 

54367  1 

C0003 

1 

52  165 

1 

00006 

1 

64753 

1 

*4164  0 

16050 

0 

00004 

0 

40167 

0 

GAP:  ASSEMBLE  RE  V I S I 3 N . 00 1 CF  AGC  PROGRAM  AP11RUPE  BY  EYLES 
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OCTAL  LISTING  F:'v:  PARAGRAPH  « 02',  WITH  PARITY  BIT  IN  BINA  Y AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 
ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  < I NTF RPRE TI VE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


01,3006 

54167 

0 

36074 

1 

70006 

0 

00006 

1 

04007 

1 

54 1 » 5 

1 

44755 

0 

54131 

0 

0 1,3010 

13120 

0 

000C4 

0 

10067 

1 

13016 

1 

00003 

1 

13216 

0 

34752 

0 

00006 

1 

01, 3020 

05  01 1 

1 

52  1.65 

1 

12712 

0 

54061 

1 

34755 

1 

54064 

1 

32634 

1 

54062 

1 

0 1 , 30 30 

50  064 

0 

10147 

0 

13035 

0 

C : 

00014 

1 

13044 

0 

33033 

1 

26064 

1 

10062 

1 

01,3040 

13027 

0 

447  53 

c 

54064 

1 

15160 

1 

40065 

0 

5 0064 

0 

60164 

1 

00006 

1 

01,3050 

) 305? 

1 

1 3 C 3 5 

0 

500  64 

0 

40167 

0 

54063 

0 

50064 

0 

54167 

0 

44350 

1 

01,3060 

70  065 

0 

64741 

1 

56065 

1 

74350 

1 

50064 

0 

60165 

0 

54066 

0 

10064 

1 

01,3070 

12  661 

3 

1265  1 

0 

54164 

0 

34755 

1 

54130 

1 

35004 

0 

70167 

0 

60063 

1 

01,3100 

54167 

0 

40000 

0 

13007 

1 

00004 

0 

447  55 

0 

54131 

0 

56  167 

1 

75004 

1 

01,3110 

54001 

1 

45164 

0 

60001 

0 

00006 

1 

63120 

1 

10001 

1 

50000 

1 

54000 

0 

01,3120 

10  20  3 

1 

03171 

0 

05705 

0 

13124 

1 

10217 

1 

C 3 1 7 1 

0 

05705 

0 

13130 

1 

01,3130 

10233 

1 

03171 

0 

C:  67610 

1 

13134 

0 

10247 

1 

03171 

0 

05705 

0 

13140 

0 

0 1,31 1 0 

10  263 

] 

03171 

0 

057  05 

0 

1 3 14  a. 

1 

10277 

0R  1 7 1 

0 

05705 

0 

13  150 

1 

1 

D 1 1 

1 

01,3151 

10313 

1 

03171 

0 

05705 

0 

13154 

0 

10131 

0 

05705 

0 

05705 

0 

13161 

0 

01,31 60 

13206 

1 

10130 

1 

13164 

0 

12764 

1 

50000 

1 

27777 

0 

63  132 

1 

54067 

1 

0 1,3170 

12704 

1 

54132 

0 

60131 

1 

100  00 

0 

40132 

0 

13201 

0 

13177 

1 

500Q2 

0 

0 1,3200 

on  002 

0 

54131 

0 

00006 

1 

22130 

0 

501  30 

0 

00002 

0 

44755 

0 

54067 

1 

0 1, 3210 

00  003 

1 

44752 

1 

00006 

1 

0 3011 

1 

1 0067 

1 

13011 

0 

34752 

0 

13225 

0 

0 1,3220 

31  361 

l 

54001 

1 

33224 

0 

15166 

1 

C:  66102 

1 

00006 

1 

05011 

1 

52165 

1 

01,3230 

15  165 

1 

54062 

1 

30002 

0 

00006 

1 

63523 

0 

40026 

1 

64744 

1 

10000 

0 

0 1,32*0 

66  107 

1 

40000 

0 

6 33  70 

0 

60002 

0 

10000 

0 

61400 

1 

13310 

1 

1 3250 

1 

0 1,3250 

40  00  2 

1 

£4736 

1 

647  3 6 

1 

56026 

0 

6473  5 

1 

6C002 

0 

00006 

1 

22007 

0 

01, 3260 

57400 

1 

57401 

o 

574  02 

o 

57403 

1 

f 7404 

o 

574.0  5 

57406 

1 

57407 

0 

i 

0 1 ,3270 

30063 

1 

5C002 

0 

13273 

0 

53411 

0 

53413 

1 

53415 

1 

53417 

0 

53421 

0 

01,3300 

53  42  3 

1 

5 3425 

1 

534  27 

o 

53431 

n 

00006 

1 

15215 

0 

13363 

0 

C.  -J  L_- 

X 

0 1 ,33  10 

10  000 

0 

614  01 

0 

13316 

1 

64753 

1 

033  74 

1 

C : 

00001 

0 

10000 

0 

61402 

0 

01,3320 

13324 

0 

64  753 

1 

0 33  74 

1 

C: 

00002 

0 

10000 

0 

61403 

1 

13332 

1 

64753 

1 

01,3330 

03  374 

1 

C: 

CO  003 

1 

1 00  00 

0 

61404 

6 

1 3340 

1 

6 4753 

1 

0337* 

1 

C : 

00004 

0 

0 1,3340 

10000 

0 

61405 

1 

13346 

1 

64753 

1 

03374 

1 

C : 

00005 

1 

10000 

0 

61406 

1 

0 1,3350 

13  354 

1 

64753 

1 

0 33  74 

1 

C: 

00006 

1 

1Q0CU 

0 

61407 

0 

13362 

1 

64753 

1 

01,3360 

03  374 

1 

C : 

0P007 

0 

10000 

0 

0 3 371 

1 

13365 

0 

647  6 3 

1 

03374 

1 

C: 

00010 

0 

01,3370 

C:  40201 

0 

5 20  62 

1 

05716 

1 

C: 

01203 

1 

54064 

1 

50002 

c 

30000 

1 

54002 

1 

GAP 
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3CTAI  LISTING  Fi  'r  PARAGRAPH  * 027,  WITH  PA  IT  Y BIT  IN  B IN  A - Y AT  THE  RIGHT  OF  EACH  WORD, 


DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


01,3400 
0 1,3*10 
0 1,3620 
0 1, 3*30 


36753  1 
04007  1 
57404  0 
447*5  0 


6CC64  0 
54C16  1 
57403  1 
CATV-  0 


50002  0 
OOOOfc  1 
57402  0 
00006  1 


27377  1 
22G12  1 
57401  0 
45237  0 


40064  1 
34734  0 
57400  1 
*3431  1 


50002  0 
57407  0 
64733  1 
53427  0 


13260  1 
57406  1 
26026  1 
53425  1 


00006  1 
57405  1 
54734  0 
53423  l 


01,3440 

01,3450 

01,3460 

01,3470 


53421 

56001 

0 

0 

53417  0 
52CG6  0 

53415 
2 34  35 

1 

1 

53413  1 
34752  0 

5 3411 
26002 

0 

1 

56001 

55434 

0 

l 

00006 
31  153 

1 

1 

01007 

10000 

1 

0 

13466 

1 

13463  I 

1 3521 

0 

31154  0 

C 0006 

1 

6352  1 

1 

00006 

1 

43500 

0 

21  15<* 

1 

11154  1 

13511 

0 

1 3474  1 

13475 

0 

11153 

0 

13511 

0 

C:  00000 

1 

01,3500 

C : 

20000 

0 

34736 

1 

271  54 

1 

05203 

0 

C : 

03516 

0 

C : 

02063 

0 

33520 

0 

01,3510 

52  006 

0 

34736 

1 

05203 

0 

C:  03466 

0 

C : 

0 20  63 

0 

13506 

0 

53150 

0 

n 1 0 0 A 

r • 

05  26  1 

1 

0 . 

1 3524 

0 

520  62 

1 

0 572  6 

1 

C: 

01204 

0 

30161 

1 

U 1 » (L  1 

L • 

J-  *T  J>  > 

0 1,3*3 

54  15  5 

1 

33770 

1 

54157 

0 

33555 

1 

54707 

0 

30154 

1 

75007 

1 

53435  0 
52006  0 
60000  1 
10000  0 


0 1,3*40 
0 1,3550 
0 1 ,3560 
01,3570 


13551  1 
03565  1 
30  154  1 
33774  0 


10154  0 
7 )07  1 
74757  1 
54704  0 


10000 

0 

13651 

1 

35024 

1 

05105 

0 

C:  03037 

0 

C:  20103 

10000 

0 

13622 

0 

00006 

1 

50155 

0 

31437 

0 

52706 

67746 

0 

10000 

0 

1 3734 

0 

04631 

1 

13570 

1 

13635 

50155 

0 

31054 

1 

10000: 

0 

24C0  0 

1 

13601 

1 

15436 

0 1,3600 
01,3610 
0 1,  3620 
0 1,3630 


1362C  1 
40000  0 
64753  1 
54154  0 


40  COO  C 
67731  0 
0C7C4  1 
00006  1 


54001  1 
647  53  1 
33565  1 
50155  0 


50155  0 
60001  0 
54157  0 
31437  0 


41053  1 
10000  0 
33771  0 
52706  1 


00006  1 
34755  1 

54707  0 
50155  0 


60025  0 
13620  1 
30154  1 
31054  1 


10000  0 
13620  1 
76074  0 
54704  0 


0 1,3  * 4 , 
0 1,36*0 
01,366. 
0 1 , 3 6 7 < 


•.0  006  1 
00  704  1 
54021  0 
22  706  0 


63646  0 
54020  1 
60021  1 
10000  0 


33773  1 
10020  1 
501  5 5 0 
24000  1 


5670*  1 
4 1 
62003  0 
13746  0 


C 0 7 0 4 1 
13752  0 
**- 156  1 
24000  1 


33775  1 
33565  1 
00006  1 
54705  1 


56704  1 
54707  0 
5^156  0 
33774  0 


40000  0 
30154  1 
32002  1 
54704  0 


0 1,3700 
01 ,3710 
01,3720 
C 1 » 37  30 


30  706  0 
00006  1 
13  722  1 
54704  0 


747*2  C 
40025  1 
13615  1 

cor  06  1 


10000  0 

21154  1 
11154  1 
31154  0 


13741 

1 

50156  0 

32000  0 

15445 

0 

53154 

1 

( OC  06 

l 

311*2  0 

21154  1 

11153 

0 

13727 

1 

L 37  27 

1 

13725  0 

13615  1 

13620 

1 

33772 

0 

00704 

1 

33774  0 

5*704  0 

501*5 

0 

41054 

0 

01,3740 

15 

0 1,3750 

32 

01,3760 

60 

0 1,3770 

C:  03 

445  0 40706 
000  0 13637 
154  1 54156 
763  0 C : 03541 


1 54706  1 

l 30157  1 
1 13665  0 
1 C:  05277  C 


50156 

0 

32000  0 

13574 

0 

56705 

0 

50156 

0 

54707 

0 

50155  0 

32002 

1 

60154 

1 

60154 

1 

36  245 

1 

261*6  1 

33555 

1 

54707 

0 

13665 

0 

05105 

0 

C:  05203  0 

C:  05072 

1 

C:  03776 

1 

CKSM  5*151 

1 
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OCTAL  1.1  '.1  IS  G P'P  PAP  AGE  4f  H " )4  , 41 TH  FA  TTY  SIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  ”3”  DENOTES  UNUSED  FIXED  MEMORY 

ALL  VALID  WO  DS  APE  BASK  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPFRATOR  WORDS)  OR  "C"  (CONSTANTS) 


04,2000 

C : 

00  302 

0 

C : 

17755 

0 

C: 

000  65 

1 

C: 

01265 

1 

C: 

22437 

1 

C : 

160F-7 

1 

C : 

15625 

1 

C: 

21042 

1 

04,20  10 

C : 

30276 

1 

C: 

0477  3 

0 

C : 

25004 

1 

C: 

06702 

1 

C : 

16471 

1 

C: 

01352 

1 

C : 

2 1412 

0 

C: 

20500 

0 

04,2020 

C : 

25  477 

1 

C: 

03367 

o 

C : 

275  33 

1 

C: 

07571 

0 

0 5516 

0 

C : 

CG3  1 1 

1 

05516 

0 

C : 

00314 

1 

04, 2030 

05  476. 

1 

32  037 

1 

046  16 

1 

C : 

20476 

0 

12031 

0 

12031 

0 

12031 

0 

C: 

11343 

0 

04,2040 

54775 

0 

34355 

0 

54366 

0 

31302 

1 

74746 

1 

10000 

0 

12065 

1 

40775 

0 

04,2060 

62  400 

1 

0CCC6 

1 

12373 

0 

64753 

1 

COOC6 

1 

12372 

1 

30775 

1 

00006 

1 

0 4 , 2 C 60 

12  107 

1 

4CC76 

1 

74753 

c 

10000 

0 

12C  72 

1 

05567 

0 

C.: 

01520 

1 

04457 

0 

04,2070 

04635 

0 

C : 

2 1050 

1 

32477 

1 

5 4 155 

1 

50155 

0 

32441 

1 

76074 

0 

40000 

0 

04,2100 

60775 

1 

1C0C0 

0 

10155 

1 

12C73 

0 

12322 

1 

30155 

0 

54774 

1 

40103 

1 

04,21 10 

74746 

1 

1 00 

0 

12134 

1 

05516 

0 

C : 

00163 

0 

32366 

0 

55260 

0 

15155 

1 

04,2120 

40C74 

0 

74745 

1 

1 00  GO 

0 

12125 

1 

12132 

1 

40  07  a 

0 

74743 

1 

10000 

0 

04,2130 

32367 

1 

64747 

1 

62370 

1 

05357 

0 

34755 

1 

00006 

1 

01007 

1 

32365 

0 

0 4,2  K-O 

54374 

0 

0 53  5 3 

1 

C : 

000  14 

1 

06037 

0 

I : 

7 76  2'* 

1 

C : 

27414 

0 

I : 

77776 

1 

05516 

0 

04,2150 

C : 

00  124. 

0 

34735 

1 

541  07 

0 

05516 

0 

C : 

00063 

1 

05516 

0 

C : 

00141 

0 

05516 

0 

04,2160 

C : 

00311 

1 

10775 

0 

12310 

0 

04457 

0 

35017 

1 

55056 

1 

06011 

1 

44753 

0 

04,2170 

70076. 

1 

5,4076 

1 

347  56 

1 

54001 

1 

40000 

0 

52755 

1 

42371 

1 

70074 

0 

04,2200 

54  074 

0 

3 4 7 5 5 

1 

54332 

1 

5 5324 

1 

C 4674 

0 

C : 

75555 

c 

04674 

0 

C: 

40204 

0 

0 4,22V' 

44  776 

1 

1 

70075 

1 

5407  5 

1 

04674 

0 

C : 

12652 

0 

10775 

0 

12226 

1 

04,2220 

04674 

0 

C : 

12647 

1 

30775 

1 

55011 

1 

0463  5 

0 

C: 

12770 

1 

41011 

1 

62326 

1 

04,2230 

00  006 

1 

12250 

0 

40775 

0 

62326 

1 

00006 

1 

12250 

0 

67746 

0 

00006 

1 

04,2240 

12  262 

1 

647  56 

1 

00006 

1 

122  62 

1 

32324 

0 

70074 

0 

10000 

0 

12257 

1 

04,2250 

42  371 

1 

TC  0 74 

0 

54074 

0 

0601  1 

1 

00006 

1 

34  75  5 

1 

52755 

1 

32364 

1 

04,2260 

54374 

0 

12224 

0 

41011 

1 

66  007 

0 

00006 

1 

12254 

1 

64756 

1 

00006 

1 

04,2270 

12254 

1 

32324 

0 

70074 

0 

6C775 

1 

4COOO 

0 

62327 

0 

00006 

1 

12304 

0 

04,2300 

62  32  5 

1 

CGC06 

1 

12304 

0 

12254 

1 

40075 

1 

747  7 5 

1 

26075 

1 

12220 

1 

04,2310 

32  324 

0 

70074 

0 

VO  00 

0 

12316 

0 

05516 

0 

C : 

C0007 

0 

50774 

0 

32500 

0 

04,2320 

00  004 

o 

12202 

1 

04364 

1 

12067 

0 

C: 

00500 

1 

C : 

0 C 3 0 5 

1 

C : 

00026 

0 

C: 

00124 

0 

04,2330 

00  004 

0 

50774 

0 

32441 

1 

55060 

1 

54020 

1 

30020 

0 

77726 

1 

55062 

0 

0 4,2 

54  063 

0 

3 1060 

0 

00006 

1 

74744 

0 

74757 

1 

54001 

1 

50774 

0 

32403 

1 

04,2350 

55  06  1 

0 

74350 

1 

26001 

1 

31061 

1 

75012 

0 

64741 

1 

05116 

1 

31060 

0 

04,2360 

76C74 

0 

05314 

1 

04457 

0 

05155 

0 

C: 

10333 

0 

C : 

10146 

0 

C : 

10120 

0 

C: 

37667 

1 

04,237  ; 

C : 

40  C72 

0 

C : 

CC70U 

0 

36245 

1 

5 4002 

1 

00006 

1 

324  02 

0 

60002 

0 

62006 

0 

GAP  : 
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3CTA1  LISTING  Err  PARAGRAPH  4 0 1,  WITH  PARITY  BIT  IN  8INA  Y AT  THE  RIGHT  OF  EACH  HOED,  "9"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WERDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  ( I NT ERPRF TI VE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


04,2400  C=  GO  106  0 C:  02C72  0 C:  42067  0 
04,2410  C:  7222C  1 C:  72C31  0 C:  62144  1 
04,2420  C:  75410  3 C:  7*272  1 C:  75147  I 
04,24  30  C:  72^27  1 C : 72'*  *0  0 C:  72000  1 


04, 2440 
04,2450 
04,2460 
04,2470 


C : 

77655 

1 

C:  27717 

0 

C: 

277  16 

1 

C: 

27704 

1 

C:  27677 

1 

C : 

27271 

Q 

C: 

27650 

1 

C:  27647 

1 

C : 

276  46 

0 

C : 

27  6 36 

1 

C:  27631 

0 

C : 

276  26 

0 

04,2500  C:  00C02  0 
04,2510  C:  00004  0 
0 4,2520  C:  DC  00 2 0 
0 4,2-30  C : 00002  0 

0 4,2*40  C:  02736  1 
04,2550  C:  00011  1 
04,2560  C:  24007  0 
04,2570  C:  QC23  0 


C : 

00002 

0 

C : 

00002 

C 

C : 

00005 

1 

C : 

00000 

1 

C : 

G0C02 

0 

C : 

00002 

0 

C : 

00006 

1 

C : 

00002 

0 

47  1 3.C 

n 

r * 

00012 

i 

1 ♦ 

T l 1 3 9 

U • 

I 

I : 

77634 

0 

C : 

21576 

0 

C : 

1402  3 

0 

t ; 

72405 

o 

I : 

53435 

0 

C: 

03765 

0 

04,2600 

04,2610 

04,2620 

04,2630 


26167  3 
0261?  3 
24001  0 
16041  0 


30006  1 
2*167  0 
24001  0 
05137  1 


75012  0 
25167  0 
53170  1 
44741  0 


0 4,2  640 
04,26*0 
04,2660 
04,2670 


00004  3 
04220  3 

53052  0 
00  00  6 1 


34355  0 
04224  1 
33011  l 

13000  0 


05072  1 
04374  0 
046  16  1 
52155  1 


0 4 » 2 7 C C 

I : 

63375 

0 

C : 

G C C L 7 

0 

04,2710 

C: 

00015 

0 

C. : 

34041 

0 

04,2720 

C: 

2403  7 

o 

I : 

41406 

r 

04,2730 

i : 

72  441 

0 

C : 

02215 

0 

C:  00001  0 
C:  27057  0 
I : 6 32  45  1 
C : ? 62  03  1 


04,2740 

I : 

53 

04,2750 

I : 

77 

04,2760 

C : 

10 

04,2770 

C: 

01 

552  0 I : 776c*6 

65 1 1 i:  502  C 6 

765  1 C:  24020 

052  1 I : 777  7 6 


1 C:  24001  0 

0 C:  00001  0 
I:  77625  0 

1 3 30  12  1 


C : 

7 1526 

0 

C : 

64776 

0 

C: 

71521 

1 

C : 

50404 

1 

C : 

27714 

0 

r • 

07  9 A A 

1 

• 

(L  1 6UO 

1 

C T 

27643 

0 

C: 

27625 

0 

C : 

00002 

0 

C : 

COOOO 

1 

C: 

00GD2 

0 

C : 

C:  0002 

0 

r • 

9 1 G -?  A 

0 

Vx  • 

6 I D : U 

I : 

71406 

0 

C : 

00001 

0 

C: 

00031 

0 

27  1 70 

1 

53170 

1 

06  037 

0 

50064 

0 

C: 

03  534 

0 

30001 

0 

C : 

20334 

1 

06037 

G 

C : 

02207 

o 

I : 

63375 

0 

C: 

02207 

0 

C : 

000°7 

0 

C : 

00023 

0 

I : 

65  5 62 

0 

C : 

0 2205 

1 

04616 

1 

C:  71274  0 
C:  23314  1 
C:  71271  0 
C : 60000  1 

C:  27713  1 
C:  27263  0 
C:  27642  1 
C:  27624  1 

C:  00002  0 
C:  00003  1 
C:  00002  0 
C:  ( >004  0 

I:  71406  0 
C:  00025  0 
C:  17767  1 
I : 77650  1 

* 1167  0 

52006  0 
! : 77624  1 
26164  0 

C:  60101  1 
55043  0 
15472  1 
l : 776  3'  0 

I:  63256  0 
C:  00007  0 
I : 7246  1 0 
I:  41456  C 

i:  74241  0 
C:  26205  1 
C:  02205  1 
C:  20334  1 


C : 

26207 

0 

C : 

32050 

0 

C : 

72725 

1 

C T 

51505 

0 

C : 

27712 

0 

C: 

27657 

0 

C : 

27641 

1 

C : 

27614 

1 

C : 

00002 

0 

C : 

00003 

1 

C: 

00002 

u 

C : 

ooooc 

1 

I : 

73525 

1 

I : 

73525 

1 

I : 

72405 

0 

C : 

02736 

1 

27777 

0 

2 216  4 

1 

C : 

01167 

0 

00072 

1 

0000  3 

1 

05133 

0 

12  467 

o 

Id  U i 

C : 

21716 

1 

t ; 

5 ^ 4 ^ 5 

n 

l * 

«P  ~T  -J  *4 

C : 

00001 

0 

C : 

02215 

0 

I : 

472  3 5 

0 

C : 

00015 

0 

I : 

50235 

0 

I : 

47145 

1 

15472 

1 

C : 

72731 

1 

C: 

31427 

1 

C : 

72545 

0 

C: 

50000 

1 

C: 

27711 

0 

C: 

27652 

0 

C: 

27  640 

0 

C: 

27006 

1 

C : 

00002 

0 

C : 

00003 

1 

C; 

00002 

0 

T : 

44001 

0 

I : 

77626 

0 

I : 

57406 

1 

I : 

77626 

0 

52134 

0 

046  22 

0 

50001 

0 

I : 

77776 

1 

56002 

0 

00154 

1 

22007 

0 

12661 

0 

C : 

34  04  1 

0 

t : 

77626 

0 

I : 

77725 

1 

C : 

26  201 

0 

C: 

00001 

0 

I : 

77752 

1 

C : 

00001 

0 

C : 

00037 

0 

15472 

1 

C : 

72547 

1 

C : 

75436 

1 

C: 

72216 

1 

C: 

60061 

0 

C: 

27710 

1 

C: 

27651 

0 

C: 

27637 

0 

C : 

00035 

1 

C : 

00  004 

0 

C : 

00003 

1 

C : 

00002 

0 

C: 

00001 

0 

C: 

60012 

1 

C: 

14027 

1 

C: 

50006 

1 

53170 

1 

02613 

1 

30001 

0 

23170 

0 

54154 

0 

54001 

1 

34755 

1 

53052 

0 

C : 

27043 

0 

C : 

61562 

1 

C: 

00015 

0 

C: 

00001 

0 

C: 

00023 

0 

T : 

53445 

1 

I : 

71244 

0 

C: 

21612 

1 

12661 

0 

GAP:  ASSEMBLE  REVISION  QC 1 OF  AGC  PROGRAM  AP11ROPE  BY  EYLES 
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DOTAL  LISTING  FOR  DA'-  AGPAPH  * ?,  WITH  PAR  IT  Y BIT  IN  BINARY  AT  TIE  RIGHT  OF  EACH  WOFO,  "S"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID 

WORDS 

ARE  BASIC 

INSTRUCT  I nNS 

EXCEPT  THOSE 

MARKED  "I" 

I I NTFRPRETI VE 

OPERATOR  WORDS) 

OR  "C"  (CONSTANTS) 

04,3000 

56  001 

0 

C00G6 

1 

13005 

0 

56  001 

0 

126  72 

1 

06037 

0 

I:  52034 

1 

C: 

21573 

0 

0 A, 30  10 

C : 

10  67  6 

1 

C : 

014  20 

0 

C : 

015  32 

1 

I : 

772  20 

1 

C : 

02746 

0 

C: 

01555 

0 

I:  47235 

0 

C: 

01563 

0 

04,3020 

C: 

03607 

0 

I : 

77*56 

1 

C: 

0 36  23 

0 

I : 

5343  5 

0 

C : 

03607 

0 

C : 

37615 

l 

C:  02  746 

0 

C: 

00000 

1 

04, 3030 

C: 

04000 

n 

C : 

000  00 

1 

C : 

002  00 

0 

C : 

00000 

1 

C: 

00400 

0 

C : 

00000 

1 

C:  10000 

0 

C: 

00000 

1 

04,3040 

C : 

02000 

0 

C : 

00000 

1 

C : 

01000 

0 

C : 

00000 

1 

C : 

00020 

0 

C : 

00000 

1 

C:  00100 

0 

C: 

00000 

1 

04,3050 

C : 

34  631 

1 

C: 

2 3146 

C 

C: 

77467 

1 

C : 

77777 

0 

C: 

031  10 

1 

C: 

17665 

1 

C:  00000 

1 

C : 

00001 

0 

04,3060 

C : 

37  76  7 

0 

C : 

377  37 

0 

C: 

40010 

1 

C : 

40040 

1 

I : 

4 3020 

1 

C : 

02753 

1 

C:  03665 

1 

I : 

77614 

1 

04, 3070 

C : 

04  273 

0 

I : 

45131 

0 

C: 

0 2673 

1 

C: 

27777 

0 

C : 

11130 

0 

C : 

14045 

0 

I:  56261 

1 

C: 

20606 

0 

04,3100 

C: 

00  04  5 

0 

C : 

32766 

1 

C : 

100  05 

0 

C : 

14017 

1 

C : 

G272G 

0 

I : 

60316 

0 

C:  00047 

1 

I : 

41275 

1 

04,31 10 

C : 

00017 

1 

C: 

0004  1 

1 

I : 

776  57 

0 

C: 

2 1576 

0 

I : 

442  06 

0 

C: 

11043 

0 

C:  1674? 

1 

I : 

60205 

0 

04,3120 

C : 

00  045 

3 

C ; 

C 004  7 

1 

1 : 

536  05 

1 

C: 

CCC45 

0 

C : 

20575 

C : 

02740 

0 

I : 7765  0 

r • 

02753 

Ks  • 

I 

04,3130 

T ; 

77656 

1 

C : 

16712 

1 

C: 

00045 

0 

C : 

26  720 

0 

I : 

77656 

1 

C : 

02722 

1 

I:  72441 

0 

C : 

02712 

1 

04,3140 

I : 

77  725 

1 

C: 

00045 

0 

C : 

2404  1 

1 

C: 

02722 

1 

I : 

76435 

1 

C : 

027  12 

1 

I : 75214 

1 

C: 

03705 

0 

04,31 50 

C : 

11162 

1 

C : 

02673 

1 

I : 

40056 

0 

C : 

11160 

0 

C : 

16674 

0 

C : 

00045 

0 

I:  43565 

0 

C: 

02673 

1 

04,3160 

I : 

52  162 

0 

C : 

11154 

1 

I : 

75246 

0 

C : 

02673 

1 

I : 

776  16 

0 

00003 

1 

00006 

1 

23  167 

0 

04,  3170 

05  037 

0 

I : 

531  35 

0 

C: 

015  0 2 

1 

C: 

11232 

1 

I : 

77775 

1 

C : 

01503 

0 

C:  25535 

0 

C : 

01511 

0 

04, 3200 

I : 

77  624 

1 

C : 

234  56 

1 

I : 

51535 

G 

C: 

01502 

1 

I : 

53025 

0 

C : 

11243 

1 

C:  11213 

1 

I : 

43174 

1 

04,3210 

C : 

00O0O 

1 

C: 

002  23 

1 

C : 

112  16 

1 

I : 

43  174 

1 

C : 

0000? 

0 

C : 

00063 

1 

I:  50136 

0 

C: 

01502 

1 

04,3220 

C : 

11226 

1 

I : 

77624 

1 

C : 

26661 

1 

I : 

52014 

0 

C: 

01671 

0 

C : 

11230 

0 

I:  77624 

1 

C: 

26734 

0 

04,3230 

I : 

77614 

1 

C : 

02676 

1 

t ; 

45131 

0 

C: 

01502 

1 

C : 

00000 

1 

C : 

27423 

1 

I:  77776 

1 

05353 

1 

0 4,324  0 

C : 

04  026 

1 

01167 

0 

C: 

00002 

0 

C: 

OCGOO 

1 

I : 

77420 

1 

C : 

02711 

1 

05353 

1 

C : 

04022 

0 

04,3250 

06  037 

0 

I : 

776  5 0 

1 

C : 

0 2711 

1 

C : 

00063 

1 

34737 

0 

70077 

0 

1000C 

0 

03270 

1 

04,3260 

31  302 

1 

74743 

1 

000  06 

l 

1?  26* 

1 

44750 

0 

63273 

1 

05744 

0 

06001 

0 

04,3270 

05504 

0 

C: 

00007 

0 

146  31 

0 

C: 

00220 

1 

54016 

1 

c6  002 

0 

54012 

0 

04400 

1 

04,3300 

34  346 

1 

00  0 0* 

1 

020  15 

1 

5 40  7 1 

1 

/. .Cl  10  1 

n 

7 /,  7 c; 

n 

26  101 

0 

34355 

0 

1 

U 

1 *T  1 .J 

- 

04,  33  10 

05  07  2 

1 

C : 

02077 

0 

C : 

60101 

1 

30073 

0 

50064 

0 
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1 
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0 
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1 
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1 
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0 
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1 

34  751 

0 
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1 
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1 
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1 
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1 
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0 
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1 
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0 

54734 

0 
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0 

04,3340 

63374 

1 

03371 

1 

34742 

1 
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1 

70734 

0 

74346 

0 
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0 

03371 

1 

04,3350 

43  377 

0 

6007  3 

c 

00006 

1 

13361 

1 

34750 

1 

70103 

1 
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0 
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1 

04,3360 

03  307 

0 
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1 
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1 

033  07 

0 
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74750 
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1 
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0 
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c 
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1 

C: 
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1 
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] 
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0 
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00022 

1 

gap:  ASSEMBLE  REVISION  OG1  or  AGC  PROGRAM  AP1IROPE  RY  EYIFS 


3:  15  DEC 


2,1970 


PAGE  1609 


OCTAL  LISTING  Ff.T  PARAGRAPH  * '43,  WITH  PA*  IT  Y BIT  JM  BIN A Y AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 
ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 
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0 

05353 

1 

C:  07026 

1 

C:  30000 

1 

C:  0 3712 

0 

C:  10102 

C 

34753 

1 

04,3*10 

05311 

1 

C:  OOC33 

1 

51172 

1 

13414 

1 

13417 

1 

13422 

1 

13422 

1 

04,3420 
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1 

13445 

0 

335  15 

0 
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1 

33516 

0 

04616 

1 

C:  20334 

1 

04,3*30 

13424 

I 

03606 

1 

44752 

1 

61174 

1 

00  006 

1 

63*24 

0 

41174 

0 
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0 

63424 
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1 
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1 

1 
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1 

1 
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33662 
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0 
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1 
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1 
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1 
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0 
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0 
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1 
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0 
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1 
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1 
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1 

05504 

511  72 

1 

13564 

1 
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0 
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1 
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1 
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0 
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1 
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0 
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1 
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1 
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04,3600 
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0 
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1 

63205 

0 
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1 

00006 

l 
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0 
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1 
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0 
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1 
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1 
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1 
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1 
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1 
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1 
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0 
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0 
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0 
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C: 
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01  ’ 15 

1 

C : 

26177 

1 
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1 

C: 
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o 
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0 

C: 

22576 

0 

C: 
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0 

05,2040 

C: 
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0 

C: 
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1 

C: 
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0 
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0 
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1 
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20770 

0 
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13725 

0 

C: 

02245 

0 
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1 
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1 
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1 

C: 
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1 
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0 
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1 
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1 
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1 
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n 
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1 

C: 
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1 
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0 
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1 
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1 
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0 
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1 
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1 
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0 
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0 
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1 
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1 
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C: 
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C: 
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1 

C : 
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1 
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0 

C : 
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0 
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C: 
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1 

C: 
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0 
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1 

C: 
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1 

C: 
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0 

C: 
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0 
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1 
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1 
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1 
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0 
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C: 
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0 
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0 

C: 
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0 

C: 
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1 
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C: 
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1 

C: 
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1 
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0 
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0 
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01331 

1 
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01302 

1 
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03441 

0 

C: 

32157 

0 

05,2270 

C: 

02302 

1 

C : 

03620 

0 

C : 

03466 

0 

C : 

03577 

1 

C: 

02347 

0 

C: 

77770 

1 

C : 

74  320 

0 

C : 

03461 

1 

05,2300 

C : 

03  752 

1 

C: 

037  54 

1 

C: 
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1 
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32341 

0 

C : 

32355 

0 

C : 
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0 
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1 

C: 
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1 
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C: 
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1 

C : 
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0 
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1 

C: 
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0 
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32224 

1 
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1 

C: 

00024 

1 
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0 
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0 
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A 

C: 
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C: 
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1 
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1 
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1 

C: 

°2  262 
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C: 
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1 
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0 
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0 
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013  31 

1 
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1 
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0 

C: 
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0 

C: 
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0 

C: 

03614 

1 

05,2340 
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1 
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1 

C: 
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0 
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1 
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0 
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1 
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0 

C: 
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0 
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C: 
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1 

C: 
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1 
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1 

C; 
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1 

C: 
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0 

C: 
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C: 
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1 

05,2360 
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0 
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1 
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0 
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00004 

0 

05,2450 

03  107 

1 

12456 

0 

34  / 36 

1 

05105 

0 

C:  77777 

0 

c 

: 77777 

0 

31036 

0 

74771 

0 

0 5,2460 

64  735 

1 

55Q3*- 

1 

34740 

0 

543  3 3 
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00040 

0 

C: 

00020 

0 

C : 

00100 

0 

C : 
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0 
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0 

05072 

1 

06,3350 

C : 

03507 

0 

C : 

14C63 

1 
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13577 

0 

347  36 

1 

26  047 

0 

13  531 

1 

50061 

0 

347  36 

1 

26047 

0 

13550 

0 

63520 

0 

00006 

1 

63411 

0 

r 0006 

1 

20071 

0 

30064 

0 

64743 

0 

000P6 

1 

05014 

1 

60070 

1 

54070 

1 

7 6 C 7 4 

0 

40000 

0 

56071 

1 

40000 

0 

13500 

0 

C : 

01700 

1 

C:  00000 

1 

CCC06 

1 

00011 

1 

74753 

0 

10000 

0 

13637 

1 

13665 

0 

34755 

1 

34  746 

0 

71302 

0 

IOC  00 

0 

13637 

1 

00  002 

0 

41302 

0 

74746 

1 

24002 

0 

00002 

0 

41302 

0 

74746 

1 

10000 

0 

C0002 

0 

44755 

0 

1 27  r 5 

0 

* 4071 

0 

0 

13667 

54071 

0 

4*753 

0 

54072 

0 

*1  *6  1-2 

113  04 

0 

13676 

1 

13706 

1 

00006 

1 

13707 

0 

34755 

1 

5 007  1 

1 

05137 

1 

40072 

0 

50064 

0 

26164 

0 

15261 

0 

30072 

1 

50071 

1 

15261 

0 

34753 

1 

0371  7 

c 

34752 

0 

13717 

1 

3*755 

1 

00004 

0 

50000 

1 

113  04 

e 

13741 

1 

13735 

1 

13731 

0 

5007  1 

1 

55304 

0 

ICO  HO 

0 

13741 

1 

24  13  3 

0 

13726 

0 

046*5 

1 

60071 

1 

55304 

0 

52134 

0 

0 57  16 

1 

C : 

01210 

0 

C: 

000  30 

1 

C : 

77500 

1 

C : 

77477 

0 

C:  00074 

1 

00006 

1 

13755 

1 

05652 

0 

C: 

0 1210 

0 

00006 

1 

30134 

1 

53310 

0 

747  57 

1 

27310 

0 

30  L 67 

1 

77725 

1 

5531  1 

1 

33772 

0 

54003 

0 

44004 

0 

C:  0 32  76 

1 

C: 

0 37  73 

1 

C: 

03774 

0 

CKSM 

66702 

1 

a 

a 
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ALL  VALID 

WORDS  ARE  1 

BASIC 

INSTRUCTIONS 

EXCEPT  THOSE 

MARKED  "I" 

( 

I NTERPRFTI VE 

OPERATOR  WORDS)  OR 

"C 

" (CONSTANTS) 

1 0, 20C0 

I : 

7716  0 

0 

C: 

00002 

0 

C: 

00000 

1 

I:  77614 

1 

C: 

(4343 

1 

C : 

20011 

0 

I : 

77160 

0 

C: 

00012 

1 

10,2M0 

C: 

CO  002 

0 

I : 

66143 

1 

t : 

10011 

0 

C:  02776 

0 

C : 

22317 

1 

C: 

10003 

0 

I : 

54214 

1 

C: 

04343 

1 

1 0 , 2 C 2 0 

C : 

20022 

0 

C : 

206  07 

1 

C: 

02321 

0 

I:  43134 

0 

C: 

02777 

1 

C : 

C 1271 

1 

I : 

77650 

1 

C : 

73606 

0 

1 0 , 2-  30 

I : 

7 7 776 

1 

046  16 

1 

C : 

20036 

0 

06037 

0 

I : 

77616 

0 

C : 

02664 

1 

32034 

0 

54142 

1 

10,2040 

56003 

1 

56142 

0 

74357 

0 

6 5007 

0 

54141 

1 

00006 

1 

30745 

1 

52155 

1 

1 0.2C5L 

07  103 

1 

C : 

00746 

1 

521  55 

1 

2 0 L 0 1 

1 

50141 

0 

52001 

1 

00006 

1 

30741 

0 

1 0,20 r 0 

59  141 

0 

52003 

0 

000  06 

1 

40737 

0 

52155 

1 

07107 

0 

52155 

1 

20001 

1 

1 0 , ?07( 

50141 

o 

5 20  05 

0 

00006 

1 

40743 

0 

52155 

1 

071C7 

0 

52  155 

1 

20001 

1 

10,2100 

52  160 

1 

00006 

1 

40743 

0 

52155 

1 

07103 

1 

C: 

00740 

1 

00006 

1 

40  155 

1 

10,2110 

52162 

0 

07103 

1 

C : 

00736 

0 

52155 

1 

2 CO  01 

1 

20001 

1 

52  162 

0 

52155 

1 

10,2121 

07  10  3 

1 

C: 

00744 

0 . 

5215  5 

1 

20001 

1 

2 GO  01 

1 

52131 

0 

00006 

1 

30  745 

1 

1 0, 2 1 3( 

52  1 5 ? 

1 

07103 

1 

C : 

007  50 

0 

52155 

1 

20001 

1 

20162 

0 

00006 

1 

30737 

1 

10,2140 

52  1 c 4 

l 

07107 

0 

52155 

1 

20001 

1 

20131 

0 

52131 

n 

52  145 

1 

00006 

1 

10,2150 

30156 

0 

50141 

0 

520  1.5 

1 

00006 

1 

30160 

0 

50141 

0 

52017 

0 

00006 

1 

10,2160 

30  162 

1 

501*  1 

0 

52021 

0 

30141 

0 

54116 

0 

00006 

1 

30006 

1 

64751 

0 

10,2170 

52  165 

1 

34744 

1 

54023 

1 

17460 

0 

52155 

1 

200C1 

1 

50141 

0 

52007 

1 

10,?2i: 

52  160 

1 

2 00  Cl 

1 

5 0141 

0 

52011 

o 

52162 

0 

20001 

1 

50141 

0 

52013 

1 

10,2210 

301^2 

0 

54003 

0 

14631 

0 

00004 

0 

52071 

0 

34355 

0 

05072 

1 

C: 

0 3 534 

0 

10,2220 

C : 

60  10  2 

1 

52  C 7 1 

0 

00003 

1 

52006 

0 

22073 

0 

3006  5 

1 

74757 

1 

60000 

1 

10,2230 

54061 

1 

30065 

1 

75030 

0 

00006 

1 

74740 

1 

54062 

1 

30065 

1 

74101 

1 

10,2240 

56  06  5 

1 

75024 

0 

100  00 

0 

15  370 

1 

3 0 C 6 2 

0 

5006  1 

0 

5*-75 1 

0 

10066 

0 

10,22!  - 

12  264 

1 

1 2?  52 

1 

40072 

0 

22072 

1 

5007  1 

1 

42751 

0 

1C  066 

0 

12260 

0 

10,22c 0 

12264 

1 

40025 

1 

5 DO  7 1 

1 

55041 

0 

10065 

0 

12300 

1 

12303 

1 

40025 

1 

10,2270 

50  06  1 

0 

! 

0 

30065 

1 

62276 

0 

1CQ00 

0 

12276 

1 

C : 

17777 

0 

12303 

1 

10,2300 . 

00006 

1 

30C25 

0 

5 3 15  2 

1 

40062 

1 

5 0061 

0 

54750 

1 

30002 

0 

22073 

0 

10,2310 

00  003 

1 

52C  06 

0 

22073 

0 

300  62 

0 

5 006  1 

0 

54751 

0 

30  07  0 

0 

50061 

0 

10,2320 

55  052 

0 

(0006 

1 

300  64 

0 

5 006  1 

0 

53435 

0 

12247 

0 

05  474 

0 

13421 

1 

10,2330 

54  155 

1 

34735 

1 

125  00 

1 

34755 

1 

5 4 15  5 

1 

33  03  1 

0 

12500 

1 

54155 

1 

10,2340 

33520 

0 

1 2 00 

1 

54155 

1 

33505 

1 

12500 

1 

54155 

1 

33506 

1 

12500 

1 

1 0,2350 

54  155 

1 

34735 

1 

12453 

0 

54155 

1 

33031 

0 

12 ( 37 

0 

54  155 

1 

33520 

0 

1 0,2360 

12637 

0 

54  1 55 

1 

3 35  05 

1 

12637 

0 

3475  3 

1 

02735 

1 

30100 

0 

73521 

0 

10,23  7'. 

1C  000 

0 

12427 

c 

30100 

0 

7 4 743 

1 

00006 

1 

1 2 37  7 

1 

15155 

1 

00004 

0 
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OCTAL  LISTING  F ''  PARAGRAPHS  06  1,  WITH  PARITY  BIT  IN  BINARY  AT  THE  FIGHT  CF  EACH  WOFO,  " 3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  V AL  1 D 

WORDS  ARE  BASIC 

INSTRUCTIONS 

EXCEPT  THUS  E 

MARKED  "I" 

( I NTFRPRETI VE 

OPERATOR  WORDS)  OR 

"C"  (CONSTANTS) 

1 0,2400 

44756  0 

70100 

1 

647  53 

1 

54100 

1 

00003 

1 

41071 

1 

74747  0 

10000 

0 

10,2' 10 

12413  1 

40370 

1 

543  70 

1 

347  5 3 

1 

12616 

0 

30165 

0 

54156  1 

50164 

1 

10, 2 A 20 

33531  0 

5'  162 

0 

50164 

1 

31670 

1 

54160 

1 

54003 

0 

00002  0 

30100 

0 

10,2430 

73254  0 

100  on 

0 

13454 

0 

60100 

1 

74751 

1 

00004 

0 

26  100  1 

12  534 

0 

10,2440 

30370  0 

74144 

0 

131  20 

0 

54155 

1 

34755 

1 

12500 

1 

54155  1 

347^6 

0 

10,2450 

12500  1 

54155 

1 

34755 

1 

54160 

1 

34755 

1 

12641 

1 

34755  1 

54155 

1 

10,2460 

33  504  0 

12  500 

1 

54155 

1 

33504 

0 

12637 

0 

54  15  5 

1 

34736  1 

12500 

1 

10,2*70 

54  15  r-  1 

34736 

1 

1 26  53 

0 

155 

1 

33543 

0 

12500 

1 

54155  1 

34750 

1 

1 0, 2500 

54  160  1 

02722 

1 

00003 

1 

12546 

0 

54155 

1 

33523 

0 

12637  0 

54  155 

1 

10,2510 

33  52  3 0 

12500 

1 

36755 

1 

54164 

0 

033  74 

1 

1 2 c 2 2 

] 

30100  0 

73542 

0 

10,2520 

10  000  0 

12575 

0 

301  OG 

0 

75642 

0 

C0C06 

1 

12530 

1 

34755  1 

12774 

0 

10,2536 

301 GO  D 

73  540 

1 

000  06 

1 

12536 

1 

34753 

1 

12774 

0 

02734  0 

03205 

0 

in  o c,  a n 

, i s 1 r?  l 

0 7 9 7 7 

0 

3 00  ? 55 

0 

■ 551 ^5 

o 

■3/,.  75  c; 

1 

ntu 

n 

70  1 A 7 ) 

777  7 A 

1 

1 U i c.  • 

U U 1 D f 1 

U 3 6 6 A 

1 

1 AU  1 n 

\J 

3U  lu  1 1 

f ( 1 C.  J 

1 

10,2550 

54163  1 

37721 

1 

05146 

1 

30160 

0 

73522 

0 

100C0 

0 

12512  1 

12561 

0 

10,2560 

12364  3 

34752 

0 

541  64 

0 

03374 

1 

12577 

1 

41072 

1 

74750  0 

10000 

0 

i n . ? a 7 n 

L5JK77  1 

7 ft  1 Of) 

n 

7 76)7 

1 

00006 

12577 

R A \ 3 9 

0 

r : m An?  1 

0 7 77  4 

1 

i U f 6 . f U 

L C.  * 1 

V 

i 

yj  c.  1 _>  vO 

J. 

10,2600 

30163  0 

70"  0 6 

1 

040  07 

1 

54366 

0 

30  IOC 

0 

73514 

c 

10000  0 

12754 

1 

10,261  r, 

12612  1 

127  5' 

1 

0 3205 

0 

05137 

1 

03222 

0 

34  752 

0 

54164  0 

13070 

1 

10,2620 

54  155  1 

37734 

0 

12500 

1 

55045 

c 

33476 

1 

54 1 5 5 

1 

33475  1 

12500 

1 

10,2630 

54  155  1 

33501 

0 

125  00 

1 

02715 

0 

12500 

I 

54155 

1 

34750  1 

54160 

1 

1 0,2640 

36245  ] 

00  004 

0 

540  72 

0 

30147 

1 

7772  5 

1 

54063 

0 

30160  0 

74750 

0 

10,2650 

10000  3 

1 2 6 7 

0 

30063 

1 

05  072 

1 

C:  02546 

1 

C:  20067 

1 

12665  1 

30006 

1 

10,2660 

in  a i 

04007 

] 

rinrit 

1 

33537 

f 

(SI  1, 

l 

0 7 7 7 7 

1 

on  n 0 a 1 

70  1 A A 

0 

XtU  U 1 

1 

V. 

19  1 IO 

u c.  i c c. 

1 

'J\J  U L’D  i 

JV J 1 . 0 

10,2670 

50  C64  0 

52156 

1 

00006 

1 

30160 

0 

50064 

0 

52160 

1 

30064  0 

54161 

0 

1 0,2 700 

02727  1 

CCC03 

1 

146  40 

0 

55045 

0 

33476 

1 

54-155 

1 

33475  1 

0 

10,2710 

54  15  5 1 

3 3 5 0 1 

0 

12637 

0 

02715 

0 

I 2637 

0 

55  16-4 

0 

33502  0 

5415  5 

1 

1 0,2720 

33  503  1 

COC02 

0 

00004 

0 

43512 

0 

70160 

1 

60003 

1 

54160  1 

22002 

0 

10, §730 

04645  1 

54157 

0 

60072 

1 

00001 

0 

34755 

1 

56  164 

0 

00004  0 

30  160 

0 

1 0,2740 

50164  1 

55C70 

0 

73530 

0 

00006 

1 

12750 

0 

30157 

1 

50164  1 

54372 

0 

10,2750 

30155  0 

50  1 64 

1 

54367 

1 

13  231 

0 

50164 

1 

3353  1 

0 

72760  0 

C3  544 

1 

10,2  • 

C:  03004  3 

46  753 

0 

60164 

] 

54154 

0 

c 0 1 56 

1 

3 3 5 1 C 

0 

0000'-  0 

05  137 

1 

1 0,277- 

03  2 2 2 3 

5C  154 

1 

3 35  10 

0 

15133 

1 

54154 

0 

032  05 

0 

05137  1 

30154 

1 

l 
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10, 3009 

50  064 

0 

54154 

0 

3 30  15 

0 

0 322  3 

1 

50154 

1 

33632 

0 

73534 

1 

0 3 554 

0 

10,3010 

C:  7400* 

D 

50154 

I 

34747 

1 

64751 

0 

03544 

1 

C : 

02764. 

0 

30100 

0 

74751 

1 

10, 3020 

lOOOC 

3 

02377 

0 

1 2536 

1 

34755 

1 

5416C 

1 

5016  0 

0 

33524 

1 

64751 

0 

10,3030 

035  54 

0 

C : 

400  K 

1 

50160 

0 

33510 

0 

CO  004 

0 

05  137 

1 

13335 

0 

31072 

0 

10,31 

54003 

0 

30366 

1 

047  27 

1 

77725 

1 

05146 

1 

46  24  5 

0 

60374 

1 

14640 

0 

10,3050 

00  00  3 

1 

31073 

1 

541  56 

1 

3C1QQ 

0 

77740 

1 

10000 

0 

13  061 

1 

13471 

1 

1 0,3060 

12377 

1 

0 5504 

0 

C:  00135 

n 

34  73  6 

] 

70100 

1 

10000 

0 

12544 

1 

12615 

0 

10, 3C ^0 

02  417 

1 

3C16G 

c 

74757 

1 

54001 

1 

44737 

1 

50164 

1 

71070 

0 

50164 

1 

10,3100 

55C70 

0 

74744 

0 

54141 

1 

30156 

0 

54165 

1 

5 5 073 

0 

50164 

1 

10367 

1 

10,3110 

13  117 

1 

132  33 

1 

403  70 

1 

54370 

1 

76074 

0 

6351  5 

0 

60  141 

0 

64753 

1 

10,3120 

04  15  5 

1 

13245 

0 

04433 

1 

02415 

0 

05516 

0 

C : 

CD  102 

1 

05516 

0 

C : 

00  103 

0 

10,313. 

05  516 

0 

C : 

00104 

1 

30160 

0 

04255 

1 

13070 

1 

34  747 

1 

70160 

1 

10000 

0 

10,3140 

13  16  3 

1 

34.7  50 

1 

70160 

1 

10000 

0 

1 3260 

x 

40160 

74746 

10000 

0 

10,3150 

13155 

1 

50164 

1 

30372 

1 

54157 

0 

13353 

0 

50164 

1 

30367 

0 

76074 

0 

10,3160 

00  006 

1 

13260 

1 

151  55 

1 

3C160 

0 

74737 

1 

10000 

0 

13141 

1 

34737 

0 

10,3170 

50  164 

l 

27  070 

0 

22007 

0 

C 00  06 

1 

62440 

0 

74740 

1 

00006 

1 

13203 

1 

10,3200 

41  06  7 

0 

6 3 54] 

1 

13120 

c 

3 3500 

1 

13120 

0 

44747 

0 

00006 

1 

03011 

1 

1 0,  32  10 

30100 

0 

7 3616 

1 

10000 

0 

34753 

1 

54001 

1 

3475  5 

1 

50001 

0 

*7042 

0 

10,3220 

00004 

0 

00002 

0 

342  17 

1 

56064 

0 

00006 

1 

63  231 

1 

56  06  4 

0 

50064 

0 

10,3230 

54164 

0 

( 0003 

1 

00002 

0 

37720 

0 

05105 

0 

C: 

04231 

0 

C : 

04  060 

0 

13  261 

0 

10 , 3240 

30  ICO 

0 

73266 

1 

00006 

1 

12575 

0 

1515  5 

1 

11042 

1 

1 5 1 5 c 

1 

13251 

0 

10,325"- 

15155 

1 

30162 

1 

7 3517 

0 

03544 

1 

C:  2 4 1 0 C 

0 

50  164 

1 

33507 

0 

04442 

1 

10,3260 

04427 

1 

30(64 

1 

541  57 

0 

301^2 

[ 

73010 

1 

03544 

1 

r • 

40040 

1 

31074 

0 

I 

X 

1 

1 0,3270 

50  164 

1 

74751 

1 

10000 

0 

13360 

0 

1 1042 

1 

13240 

0 

1330C 

0 

13240 

0 

10,3300 

04207 

3 

133  72 

0 

1 34  1 1 

1 

43526 

1 

60154 

1 

00006 

1 

26  000 

0 

00006 

1 

10,3310 

13461 

3 

34  7 52 

0 

54161 

0 

30100 

0 

74101 

1 

10000 

0 

13321 

0 

13427 

1 

10,3320 

13  413 

0 

4 0025 

1 

6 1 1 6 5 

1 

1C  coo 

0 

40000 

0 

67731 

c 

64753 

1 

63570 

0 

10,3  33'" 

00006 

1 

62544 

0 

13427 

1 

34763 

1 

1302  5 

0 

10  161 

0 

64753 

1 

13341 

0 

10,3340 
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1 

C : 

23022 

0 

C : 

336  64 

0 

I : 

7 2 1 7 4 

0 

C : 

0 C 0 0 2 

0 

C : 

0005  1 

o 

I:  77616 

1 

C: 

0034  3 

0 

C : 

000  00 

1 

C: 

02040 

1 

C : 

26  1C  5 

1 

C : 

00003 

1 

C:  02122 

1 

I : 

45335 

0 

I : 

30  30 

0 

C : 

22606 

1 

C: 

01756 

1 

C: 

22622 

1 

T:  74  375 

0 

C : 

02032 

1 

r. : 

571  75 

0 

C: 

02040 

1 

I : 

77724 

0 

C : 

01500 

0 

C:  12160 

1 

C: 

0 2 114 

1 

I : 

621  75 

0 

C : 

02  105 

1 

C: 

000C4 

0 

I : 

43014 

0 

C:  06260 

1 

C : 

00343 

0 

C : 

20612 

0 

C : 

02122 

1 

C : 

02122 

1 

I : 

77624 

1 

C:  22650 

1 

I : 

62  174 

1 

I : 

77775 

1 

C: 

02122 

i 

C : 

36040 

0 

C : 

226  50 

1 

I:  77650 

1 

C : 

23022 

0 

t ; 

402  36 

1 

C: 

TOl  01 

0 

I : 

6 1501 

1 

C: 

00060 

0 

I:  60325 

0 

C : 

02070 

1 

C : 

02040 

1 

I : 

776*6 

1 

C : 

16060 

1 

C : 

00045 

0 

C:  02072 

0 

I : 

5 5 301 

0 

I : 

77743 

1 

C : 

27710 

1 

C: 

00051 

0 

I : 

57124 

1 

C:  00050 

1 

C : 

00040 

0 

C : 

00003 

1 

I : 

65057 

0 

C: 

57177 

1 

C: 

00050 

1 

I : 74406 

0 

I : 

50315 

0 

I : 

+4372 

1 

I : 

57206 

1 

C : 

00005 

1 

I : 

777  5 2 

1 

I:  43206 

1 

C: 

25756 

1 

C: 

000-13 

0 

I : 

4 3 3 5 2 

1 

C: 

25756 

1 

I : 

433  2 5 

1 

C:  00013 

0 

C: 

24005 

1 

T : 

562  15 

1 

C : 

25750 

1 

C: 

C 00 1 7 

1 

I : 

7 427  5 

1 

C:  00007 

0 

C : 

02040 

1 

I : 

41455 

0 

I : 

41345 

0 

C : 

00001 

0 

C: 

00015 

0 

I:  61501 

1 

C : 

00037 

0 

C : 

51770 

0 

I : 

74276 

1 

I : 

57124 

1 

C: 

000  50 

1 

C : 00051 

0 

I : 

55064 

0 

I : 

776  00 

1 

C : 

22764 

1 

I : 

65  05  7 

0 

C : 

57177 

1 

C:  00050 

l 

I : 

77655 

1 

I : 

4 34  00 

1 

C : 

22774 

0 

I : 

5 15  75 

1 

C: 

0 1 5 2 1 

0 

I:  77654 

0 

C : 

2 3 01  7 

0 
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OCTAL  LISTING  r-  PARAGr  APH  4 : PTM  PARITY  BIT  1 N BINARY  AT  THE  LIGHT  OF  EACH  WORD,  "51"  DENOTES  UNUSED  FIXED  MEMORY 

ALL  VALID  WORDS  A'  E BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


1 1,3000 

I : 

54  345 

I 

C: 

0210C 

1 

C: 

2 06  1 2 

0 

I: 

44  206 

0 

C: 

015  51 

1 

C : 

16074 

C 

C:  01517 

0 

I : 

45425 

0 

1 1,3010 

C: 

42  260 

0 

C : 

22376 

0 

I : 

77624 

1 

C : 

23441 

1 

I : 

776  14 

1 

C : 

04020 

1 

C:  27257 

1 

I : 

77776 

1 

1 1,302'- 

056*2 

0 

C: 

00  6 30 

0 

I : 

7 1 3 64 

0 

C : 

02030 

0 

C : 

02070 

1 

1 : 

44601 

0 

C:  0C001 

0 

C : 

*00*3 

1 

1 1,3030 

I : 

43  04  4 

0 

C. : 

232  32 

0 

C : 

00363 

0 

C : 

23241 

1 

1 : 

6 5375 

0 

C: 

0203  2 

1 

C:  01517 

0 

I : 

45125 

0 

1 1,3040 

C: 

25  746 

0 

C: 

51670 

1 

C: 

00017 

1 

I : 

47375 

0 

C : 

0 2013 

1 

C: 

2 A 00  1 

0 

I : 612*6 

1 

C: 

24001 

0 

1 1,3050 

C: 

00  02  5 

3 

I : 

77656 

1 

C : 

00025 

c 

I : 

57345 

1 

C: 

COO  23 

0 

0 : 

25760 

1 

I : 63525 

0 

C : 

00023 

0 

1 1,30 cO 

t ; 

45  275 

0 

C : 

257  6 2 

0 

C : 

25754 

0 

I : 

57206 

1 

C: 

COO  2 3 

0 

I : 

76605 

1 

C:  2*766 

1 

I : 

57325 

1 

11,3070 

C : 

on  001 

0 

C : 

25774 

1 

I : 

4 16  21 

0 

I : 

*7275 

0 

C : 

00023 

0 

C : 

25770 

0 

I : 57325 

1 

C : 

00003 

1 

11,31 

C : 

25772 

1 

I : 

77621 

1 

I : 

77603 

1 

C : 

51764 

0 

I : 

432  71 

1 

C: 

C 2070 

1 

C:  00005 

1 

I : 

56273 

1 

1 1, 31 10 

C: 

51  760 

1 

C: 

02070 

1 

1 : 

74215 

1 

C : 

00003 

1 

C : 

02032 

1 

C : 

16033 

1 

I : 70403 

1 

C: 

5 1764 

0 

1 1 , 3 1 20 

I : 

432  71 

1 

C: 

0 2 0 7 C 

1 

I : 

5 0473 

1 

C: 

51760 

1 

I : 

43271 

1 

C: 

02070 

1 

I:  76561 

1 

C: 

00025 

0 

11,3131 

t : 

77  64  5 

0 

C: 

00033 

l 

C : 

) 40  1 3 

1 

C : 

02070 

1 

I : 

63501 

0 

C: 

00047 

1 

T : 60316 

0 

C: 

00  0*1 

0 

1 1,3140 

I : 

54  606 

0 

C : 

6 1754 

0 

I : 

401  M 

0 

C: 

00033 

1 

C : 

2316? 

0 

I : 

56C70 

0 

C. : 00  046 

0 

C: 

00046 

0 

1 1,3150 

I : 

53  670 

0 

C : 

COO  50 

1 

C : 

20153 

1 

I : 

40055 

0 

C: 

02062 

1 

C : 

22774 

0 

C:  36062 

0 

C: 

27725 

1 

1 l,31oO 

I : 

77  716 

1 

T ; 

41206 

0 

C : 

277  12 

0 

I : 

60525 

0 

I : 

442  15 

1 

C: 

00011 

1 

C:  11043 

0 

I : 

4120* 

0 

11,31 70 

C : 

00  017 

l 

C : 

27712 

0 

I : 

56561 

0 

C: 

C 00  1 7 

1 

I : 

77725 

1 

I : 

6322* 

0 

C:  11043 

0 

C: 

00011 

1 

1 1,32  00 

C : 

14011 

1 

C: 

00017 

1 

J : 

4 12  05 

0 

C: 

0002  3 

0 

C: 

27712 

0 

I : 

6 3352 

1 

I:  60325 

0 

C : 

02070 

1 

11,321" 

C: 

00050 

1 

I : 

67  2 06 

1 

C : 

013  54 

1 

I : 

7427  1 

0 

I : 

532*7 

1 

C : 

57601 

1 

I : 70257 

0 

C: 

20146 

0 

1 1, 3220 

I : 

65325 

0 

C : 

015  17 

0 

C: 

27712 

0 

I : 

45154 

0 

C: 

02030 

0 

C : 

5*716 

1 

I : 40055 

0 

C : 

02062 

1 

1 1,3230 

C: 

22774 

0 

C : 

02C  62 

1 

I : 

72135 

0 

C : 

01501 

1 

C: 

00154 

1 

I : 

73205 

1 

C:  27714 

0 

C: 

00155 

0 

1 1,324' 

C : 

2 3 247 

1 

I : 

7774* 

1 

C: 

02036 

0 

C: 

24023 

0 

0 : 

24001 

0 

I : 

77650 

1 

C:  23052 

1 

C: 

23466 

1 

1 1,325C 

C : 

2?  47  2 

1 

C : 

23503 

0 

I : 

77214 

0 

C: 

00362 

I 

C: 

23303 

0 

C: 

01*35 

0 

I:  41241 

0 

C: 

01543 

1 

1 1,3260 

C: 

02  076 

1 

I : 

77640 

0 

C : 

23303 

0 

I : 

63014 

0 

C : 

0030  3 

1 

C : 

23360 

c 

C:  04340 

1 

C: 

233*5 

0 

11,3270 

I : 

45145 

0 

C : 

01517 

0 

C : 

33664 

0 

C : 

02105 

1 

I : 

77754 

1 

C : 

02C30 

0 

t:  51445 

0 

C : 

01*35 

0 

1 1 , : 

I : 

50025 

3 

C : 

277  20 

1 

C : 

23375 

1 

I : 

51575 

1 

C : 

01521 

0 

I : 

77600 

1 

C:  23331 

1 

I : 

51025 

1 

11,3210 

C : 

25  764 

0 

C: 

23331 

1 

I : 

6 3615 

0 

C: 

25764 

c 

C: 

57605 

0 

I : 

45271 

1 

C:  00013 

0 

C: 

27716 

1 

1 1,332 

t ; 

77246 

0 

C : 

2^331 

1 

C : 

01527 

0 

I : 

45246 

0 

C : 

25764 

0 

T : 

776  C 0 

1 

C:  23331 

1 

I : 

776MT 

0 

1 1,333  f 

C : 

23333 

0 

T : 

(*76  24 

1 

C : 

23441 

1 

I : 

7777* 

1 

C : 

01527 

0 

C: 

25135 

1 

C:  01521 

0 

C : 

01127 

1 

1 1 , 3 

I : 

77614 

1 

C : 

00261 

1 

I : 

66375 

0 

C: 

01127 

1 

C: 

01501 

1 

C : 

00000 

1 

C:  16032 

1 

C : 

24007 

0 

1 1,3350 

C : 

02  100 

1 

1 : 

5 2 C 1 4 

0 

C : 

00301 

0 

C: 

23705 

1 

C: 

22516 

0 

I : 

52175 

0 

C:  0210* 

1 

C : 

23276 

0 

1 1,3360 

I : 

60  545 

0 

C : 

000  13 

0 

I : 

50025 

0 

C : 

277  2C 

1 

C: 

23303 

0 

I : 

71214 

0 

C:  04340 

1 

C : 

23375 

1 

1 1 ,3370 

C : 

0 1 5 I 7 

0 

I : 

7^624 

1 

C : 

336  64 

0 

I : 

77676 

0 

C: 

0210  5 

1 

T : 

776  24 

1 

C:  23401 

0 

t : 

77650 

1 
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QCTA ! LISTING  F(  f PAFAC-APH  « r/7,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 

ALL  VAIID  WC:;DS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


1 1,3400 
11,3410 
11,3420 
11,3 

11,3 
11,3 
1 1,3460 
1 1,3470 

11,3500 
1 1,35 10 

11,3 
11,3'  30 

11,3 
1 1,3  55( 

1 1 , 3 
11,3! 

11,3 
1 #31  10 
1 1,3620 
1 1,3630 

1 1,36-  r 
1 1,3656 
11,36 

1 1,3  670 


C : 23  333  0 
C:  02  105  1 
C:  00343  0 
C : 01511  i 

C:  26716  0 
C:  25535  0 
C:  01521  0 
C:  36  046  0 

C:  02046  1 
I:  53372  1 
C:  02054  1 
C:  11 244  0 

I : 40132  0 
C:  00000  1 
C : 01126  0 
C:  01  127  1 

C:  22  776  o 
C:  017*6  1 
i:  77  731  1 
C:  00  061  0 

I : 77  65  0 1 
C:  02100  1 
C : M 135  1 
C:  22476  1 


I : 45020  1 
C:  57574  0 
C:  236 22  i 
C:  01*' 3 I 

I : 77354  0 
C:  01527  0 
C : 15527  0 
C:  23646  l 

C : 36C46  0 
C:  01135  1 
I : 7c56 1 1 
I:  77354  0 

C : 236  7 1 0 
I : 671 14  1 
C:  01117  1 
I:  76173  0 

C:  01135  1 
C:  27257  1 
C:  00053  1 
C:  01120  0 

C:  23562  1 
T : 66110  1 
C:  02100  l 
I : 43014  0 


C:  02112  1 
C:  01503  0 
I:  -.3715  1 
T : 671 54  0 

C:  02030  0 

I:  53257  1 
C:  24007  0 
I:  74575  0 

C:  23646  1 
I:  53361  0 
I:  77655  1 
C:  01117  1 

C:  12401  1 
C:  00006  1 
I : 776  24  1 
C : 75310  I 

C:  255  27  0 
1 : 77776  1 
C:  23627  0 
C:  77741  0 

I:  77745  1 
C:  77763  0 
1:  77655  1 
C:  01676  1 


C:  23441  1 
C:  15535  0 
C:  01543  1 
C:  02112  1 

C:  01521  0 
C:  57602  1 
C:  01651  1 
C:  02062  1 

I:  57345  1 
C:  02100  1 
C:  01135  1 
C : 01135  l 

I:  77624  1 
C : 01126  0 
C:  11244  0 
C:  00000  1 

C:  01127  1 
0*353  1 
I : 52014  0 
I : 66214  0 

C:  01116  0 
C:  01500  0 
C:  01127  1 
C:  01671  0 


I : 53775  1 
C:  01517  o 
C:  57576  1 

C:  00052  0 

I:  53257  1 
C:  Cl 54 3 1 
C:  01553  0 
I : 53206  0 

C:  02100  1 
C:  01127  1 
C:  Cl  135  1 
T : 77732  1 

C:  11244  0 
I : 45104  0 
I:  76754  0 
I : 77722  0 

C : 0 15  21  0 
C:  04022  0 
C:  01714  1 
C:  017  55  1 

C : 34041  0 
C:  02  ICO  1 
C : 02032  1 
I:  77614  1 


C:  01535  0 
I : 77624  1 
I:  77651  C 
I : 5 2014  0 

C:  57605  0 
C:  01511  0 
I : 77616  0 
C:  02046  1 

C:  25774  1 
C:  25127  1 
I:  45014  0 
C:  12667  1 

T:  66354  0 
C:  23642  0 
C:  01117  1 
C:  35135  0 

1 : 4301z  0 
05*04  0 
C:  26661  1 
C:  23562  1 

C:  27141  0 
I:  74561  0 
I : 5201 ' 0 
C:  02676  1 


C:  57576  1 
C:  33775  1 
I : 77657  0 
C:  00303  1 

C:  01535  0 
C:  25543  1 
I:  64575  1 
C:  26054  L 

I:  74206  0 
C:  02062  1 
C:  00341  1 
I:  77775  1 

C:  Oil  l7  1 
C : 11 244  o 
C:  75376  1 
C:  23  34  2 0 

C:  04715  0 
C:  00236  0 
C:  26734  0 
C:  01120  0 

I:  43  345  1 
C:  02062  1 
C:  00301  0 
I : 77414  0 


I:  53651  0 
I : 57414  1 
C:  57574  0 
C:  26711  1 

C:  01503  0 
C:  24007  0 
C:  02062  1 
I:  53362  0 

C:  C2046  1 
I:  53322  1 
C:  23577  0 
C:  01127  1 

C:  00052  0 
I : 67154  0 
I : 77722  0 
I : 77200  0 

C:  27633  1 
06037  0 
I : 66214  0 
C:  77717  0 

C:  02076  1 
I : 74255  0 
C:  23705  l 
C:  01472  1 


1 1,3 7 CO 

05  567 

0 

c. : 

004  21 

0 

06037 

0 

I : 

77650 

1 

C:  27257 

1 

I : 

70754. 

0 

C:  02 030 

0 

C : 

51770 

0 

1 1,3710 

C : 

35  07  2 

1 

C : 

2 37  33 

1 

r : 

0 2062 

1 

I : 

62014 

0 

C : 00342 

1 

C: 

23232 

0 

C:  77771 

0 

l : 

70744 

1 

1 1,3720 

C : 

02  6 30 

0 

C : 

51772 

1 

c.  : 

36072 

1 

C : 

23733 

1 

I : 50414 

0 

C : 

CC303 

1 

C:  23727 

1 

I : 

776*5 

1 

1 1,37?^ 

C : 

62062 

1 

C : 

36  06  2 

0 

C : 

23232 

0 

I : 

60575 

0 

C:  02032 

1 

I : 

53*13 

0 

C:  02132 

0 

I : 

46315 

1 

1 1,3  740 

C: 

02032 

1 

I : 

523  ->1 

1 

C : 

25764 

0 

I : 

60325 

0 

C:  00045 

0 

C : 

COO*  2 

0 

I : 63406 

0 

I : 

77605 

1 

11,3756 

I : 

65301 

0 

C: 

Of  043 

0 

C: 

02072 

0 

I : 

56342 

1 

I : 77761 

1 

I : 

57154 

0 

C:  00051 

0 

C: 

00051 

0 

1 1, 37.  0 

I : 

57  074 

0 

C : 

000  51 

0 

C : 

00042 

1 

I : 

A3h57 

0 

C:  57606 

0 

I : 

43131 

0 

C:  00027 

1 

C : 

00024 

1 

1 1,377 

C : 

03  7 5 2 

1 

C: 

2*212 

1 

r ; 

521  31 

C 

C: 

00027 

1 

C:  00005 

1 

C : 

2521  2 

1 

C. : 0377( 

1 

CKSM 

4-3  37  3 

1 
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OCTAL  t i s T T 0 F:  ’ PA*  AG-'  APH  i i ' WITH  PARITY  81  T IN  BINA'-Y  AT  THE  RIGHT  OF  EACH  WORD,  "S"  DENOTES  UNUSED  FIXED  MFMORY 
ALL  VALID  Wr  OS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  ( INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


1 2*  2000 

C : 

00  000 

1 

C: 

0000:0 

1 

C : 

000  00 

1 

C: 

COOOG 

1 

C: 

20000 

0 

C: 

00000 

1 

C : 00000 

1 

C: 

00000 

1 

12,2  0 1 

C: 

00  000 

1 

C: 

of  9 00 

1 

C : 

00000 

1 

C : 

00000 

1 

C : 

77777 

0 

C : 

77771 

0 

C:  77763 

0 

C: 

37777 

1 

1 2,20  20 

C : 

37777 

1 

C : 

37777 

1 

C: 

37777 

1 

I : 

40001 

1 

C: 

00001 

0 

C: 

24026 

0 

t:  77773 

1 

C : 

10005 

0 

1 2,2030 

C : 

24017 

1 

C : 

01.503 

0 

r ; 

66256 

0 

C: 

00027 

1 

C: 

00024 

1 

C : 

16647 

0 

C:  00045 

0 

C: 
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I:  *0375 

0 

15,2330 

C : 

02  731 

0 

C : 

03  765 

0 

I : 

65552 

0 

C: 

00031 

0 

I : 

‘■'1025 

1 

C : 

32466 

1 

C : 

32420 

0 

I:  45345 

1 

15,2340 

C: 

00031 

0 

C : 

32470 

c 

I : 

712  40 

I 

C: 

32413 

0 

C : 

00031 

0 

I : 

42405 

0 

C : 

25764 

0 

C:  24031 

0 

1 5,2350 

C: 

03  765 

0 

I : 

53435 

0 

C : 

240  05 

1 

I : 

47206 

0 

C: 

03765 

0 

I : 

7 7 6 7 6 

0 

I : 

63256 

0 

C:  03765 

0 

1 5,2360 

I : 

53  43  5 

0 

C : 

07  731 

0 

T ■ 

50206 

0 

C : 

00001 

0 

1 : 

65552 

0 

C : 

240  3 3 

1 

t ; 

77641 

1 

I:  71244 

0 

15,2370 

C: 

32375 

1 

C : 

32047 

0 

t : 

776  25 

0 

C : 

00033 

1 

C : 

00033 

1 

I : 

70535 

0 

C: 

02746 

0 

I:  41415 

1 
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15,2400 

C:  00033 

1 

I : 77634 

0 

C : 

21614 

1 

15,2410 

f:  01241 

1 

I:  77770 

1 

12437 

1 

15,2420 

T:  77776 

1 

25  242 

1 

1242 

0 

1 C O A Tfi 

i 

3 <;O06 

L 

046  16 

] 

1 3 f C.  ■ D J 

O • V/V*  *T'_ 

i 

15,2440 

04616 

1 

C:  20^76 

0 

16001 

1 

i c oa  c ; n 

7/,  7 a c 

1 

4 7 7 44 

r 

70735 

1 

I O j c - U 

i 

I i '*7*r 

V- 

i. 

15,2460 

C:  17712 

3 

05711 

0 

130  54 

1 

15,2470 

C:  30  131 

1 

C:  12525 

0 

C : 

27562 

0 

1 5,2500 

70735 

l 

0C006 

1 

76242 

1 

1 5,25 10 

32562 

1 

046  16 

1 

C.  : 

204  76 

0 

15,2520 

C:  02707 

0 

I : 77650 

1 

C : 

0 27  36 

1 

1 5 , 2 r 30 

31  755 

1 

50120 

1 

54046 

1 

1 5 * 2 p *•  0 

T:  46145 

0 

r : 0 3 r 4 2 

0 

C : 

3 05  06 

1 

1 5,2r50 

C:  26707 

0 

C:  00001 

0 

C : 

02715 

0 

1 5,2560 

C:  02736 

1 

C : 00343 

0 

C. : 

01530 

0 

1 

n 

i • 

- : i 

n 

1 J * 4 ’ 

J?  *0  4-  : 

1 

V 

• 

15,2^00 

C : 00006 

1 

I : 77  744 

0 

C: 

00050 

1 

15,2610 

C:  02731 

0 

I:  73744 

l 

C : 

00047 

1 

15,2 

C:  00002 

0 

C:  06665 

1 

y : 

45100 

1 

1 5,2630 

C:  32670 

1 

I : 74575 

0 

C: 

02715 

0 

1 5,2640 

I:  65552 

0 

C:  01R46 

1 

I : 

777  76 

1 

1 5,2650 

06  001 

0 

126  f:-  4 

0 

0 55  04 

0 

1 5,26  60 

C:  02  761 

0 

C : ^2231 

n 

T ; 

7 7776 

1 

1 5,2670 

I:  77220 

1 

C:  02745 

0 

r.  : 

24007 

0 

15,2700 

C:  17000 

1 

04616 

1 

C : 

17716 

1 

15,27  10 

05  711 

0 

32770 

0 

65736 

0 

1 5,2^20 

C:  04 024 

0 

0 46  16 

1 

c. : 

775  44 

1 

1 5,  2730 

05  155 

n 

04674 

0 

C : 

77544 

1 

1 5,2740 

04616 

1 

C:  15263 

1 

25736 

1 

1 5,2760 

I : 50135 

3 

C:  02737 

0 

C : 

32724 

1 

1 5,2  76  0 

C:  47671 

1 

C:  02715 

0 

I : 

77776 

1 

15,2770 

C:  '7753 

0 

C:  014C4 

0 

C : 

47357 

1 

C : 

152  37 

0 

C: 

00031 

0 

I : 

77  615 

0 

I : 

77634 

0 

C:  21614 

1 

I : 

77776 

1 

34755 

1 

55236 

0 

55  240 

1 

12437 

1 

64757 

0 

0C006 

1 

62427 

1 

12310 

0 

05567 

0 

C : 

20476 

0 

16001 

1 

12455 

0 

12  245 

1 

32464 

0 

12*45 

1 

12245 

1 

34757 

0 

71242 

0 

00006 

1 

6000 1 

0 

54735' 

1 

04616 

1 

C: 

16000 

0 

04616 

1 

C: 

00306 

1 

C : 

01517 

0 

C : 

0252c 

1 

C: 

12  525 

0 

C:  00026 

0 

C : 

24007 

0 

C: 

02707 

0 

I : 

7742  0 

1 

C: 

02736 

1 

47  744 

0 

56001 

0 

51757 

0 

55755 

0 

10000 

0 

12  523 

0 

025  10 

1 

02516 

1 

02510 

1 

06037 

0 

I:  53575 

0 

4 0 CO  0 

0 

62561 

1 

00006 

1 

62537 

1 

51757 

0 

06037 

0 

1 : 

52173 

0 

C: 

30347 

1 

C: 

02  736 

1 

06037 

0 

I : 

77340 

0 

C : 

02757 

0 

C: 

02  707 

0 

0: 

2*001 

0 

C:  02715 

0 

I : 

70143 

0 

C : 

02756 

1 

C : 

00154 

1 

I : 

52  173 

0 

0:  02343 

1 

32772 

1 

5 4321 

0 

40000 

0 

54322 

0 

3 2 773 

0 

r • 

01662 

1 

r • 

■>.  ? h 7 n 

1 

66370 

0 

r • 

1 

r • n.nnc  i 

n 

L.  » 

<L 

Vy  • 

C.O  i \j 

L 

i * 

V 

U • 

V.’  *.  ’ V.'  c.  tL 

1 

• J u V D i 

u 

I : 

45173 

0 

C: 

54000 

0 

C : 

47673 

0 

C: 

06  7 07 

1 

I : 77775 

1 

C : 

7P040 

1 

I : 

71 1 52 

1 

C : 

00047 

l 

T ; 

63047 

1 

0:  54000 

0 

C : 

32603 

0 

C : 

47353 

1 

I : 

74575 

0 

0: 

02715 

0 

C:  36723 

1 

I : 

53455 

0 

C : 

02723 

0 

C : 

02761 

0 

I : 

77641 

1 

C:  02231 

0 

05516 

0 

C: 

00014 

1 

3 2 7 1 

1 

04616 

1 

C:  20476 

0 

C : 

00014 

1 

053  53 

1 

C : 

04024 

0 

06  037 

0 

I:  77775 

1 

i ,s.  7 ^ i 

o 

70074 

o 

1 DOOO 

Q 

12563 

13553 

0 

C : 

02707 

0 

I : 

77776 

1 

05353 

1 

C: 

04  024 

0 

04616 

1 

0571  1 

0 

04616 

1 

C : 

172  1C 

1 

04616 

1 

C:  17716 

1 

37716 

0 

55075 

0 

04616 

1 

C : 

15701 

0 

05353 

1 

06037 

0 

I : 

7 777  6 

1 

35000 

1 

05  173 

1 

C:  02731 

0 

3P023 

0 

05105 

0 

C: 

027*0 

0 

0 : 

32065 

0 

05261 

1 

06037 

0 

I : 

53375 

0 

0 : 

00325 

0 

C: 

02707 

0 

C:  02707 

0 

I : 

53575 

0 

C: 

C 27  07 

0 

C : 

36731 

1 

C: 

47  537 

0 

I : 77624 

1 

0535  3 

1 

C: 

04024 

0 

06037 

0 

I : 

77650 

1 

C:  02745 

0 

C : 

06211 

0 

I : 

71220 

l 

C: 

02745 

0 

C: 

00322 

1 

I:  65325 

0 
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15,3000 

C: 

CO  324 

1 

C : 

00323 

0 

I : 

776  66 

1 

C : 

24767 

1 

C:  24005 

1 

I : 77624 

1 

C:  47664 

0 

C:  26707 

0 

15,3'  1 ■ 

C : 

24003 

1 

I : 

77‘  24 

1 

C : 

4 76  7 3 

0 

C : 

36  715 

1 

C:  47537 

0 

I:  77624 

l 

C:  20  030 

0 

I:  77775 

1 

15,3020 

C: 

02665 

p 

C : 

240  0 7 

0 

C : 

6 2673 

1 

C : 

3£-0 1 6 

1 

C:  47441 

0 

I : 77624 

1 

C:  47247 

0 

I:  77776 

1 

15,3030 

04616 

1 

C : 

17  2 10 

1 

046 16 

1 

C : 

17716 

1 

06711 

0 

33044 

1 

04616 

1 

C:  17323 

0 

15,3040 

04616 

1 

C : 

17716 

1 

05711 

0 

12765 

0 

C:  02737 

0 

34755 

1 

13050 

0 

34753 

I 

1 5,3050 

55757 

1 

05353 

1 

C: 

04024 

0 

12645 

1 

31757 

0 

00006 

1 

13067 

1 

05353 

1 

1 5, 3060 

C : 

04  024 

0 

06  037 

& 

1 : 

65145 

0 

C: 

03562 

0 

C:  32472 

1 

C:  36731 

1 

C:  33101 

1 

06037 

0 

15,3070 

I : 

77  775 

1 

C : 

027  15 

0 

C: 

02761 

0 

J : 

45145 

0 

C:  03562 

0 

C:  32472 

1 

C:  02723 

0 

I:  77776 

1 

15,3100 

13047 

0 

I : 

77  131 

1 

C: 

00052 

0 

C : 

00006 

1 

C:  00014 

1 

I : 64373 

1 

C:  75040 

1 

C:  03607 

0 

15,3110 

I : 

77656 

1 

C : 

12723 

1 

I : 

77773 

1 

C : 

75002 

1 

C:  10023 

1 

T:  43104 

0 

C:  33105 

0 

C:  04315 

1 

15,3120 

C : 

33  126 

I 

I : 

77  6 24 

x 

C : 

312  56 

x 

I • 

77614 

x 

r : p.05  54 

0 

0 

T : 776P4. 

x 

f • 4 7 4.4-  1 

0 

V 

* J J 6 L V- 

i • ' i U 6 4 

15,3130 

I : 

77  624 

1 

C : 

47  2^-7 

0 

I : 

777  76 

1 

34752 

0 

70104 

0 

10C00 

0 

13145 

0 

33313 

0 

15,31  4-0 

04616 

7 

f . 

20476 

n 

060  01 

0 

13145 

0 

132  07 

g 

06037 

Q 

I : 40  1 7 5 

Q 

C:  02740 

0 

1 5 , ? 1 r ( 

C : 

33151 

1 

C: 

02750 

l 

I : 

40141 

1 

C : 

30610 

0 

C:  33254 

1 

I : 52131 

0 

C:  02746 

0 

C:  33161 

1 

15,3160 

C : 

33  027 

1 

I : 

77776 

l 

05353 

1 

C : 

04024 

0 

06037 

0 

I:  75160 

1 

C:  03606 

1 

C:  01733 

1 

15,31 70 

I : 

45  Cl  4 

0 

C : 

0 146  2 

0 

C. : 

31377 

0 

I : 

77776 

1 

11145 

1 

13177 

1 

13207 

0 

34  75  2 

0 

15,3200 

70  104 

o 

lcrou 

c 

13561 

1 

06037 

0 

r:  776 24 

1 

C:  33506 

1 

I:  77776 

1 

35751 

1 

15,3210 

04616 

1 

C : 

20623 

1 

16001 

1 

13661 

1 

447  52 

1 

61145 

0 

00006 

1 

1322  1 

1 

15,3220 

16001 

1 

05353 

1 

C : 

04024 

0 

06  037 

0 

I : '5175 

0 

C : 02231 

0 

C:  47661 

0 

t:  43105 

1 

15,3230 

C : 

01  734 

0 

C: 

0 1463 

1 

I : 

51515 

1 

C : 

02023 

1 

I:  45561 

1 

C:  75745 

0 

It  47014 

1 

C:  00662 

0 

1 5 , 3?4  < 

C: 

21573 

0 

T : 

7 76  24 

1 

C : 

30446 

1 

C: 

01221 

1 

I:  65352 

0 

C:  01243 

0 

I:  77606 

1 

C : 35235 

0 

15,3250 

C: 

51670 

1 

C : 

02  0 23 

1 

I : 

77776 

1 

16001 

1 

I:  76160 

1 

C:  02664 

1 

C:  02642 

0 

I:  77624 

1 

1 5,3260 

C : 

31377 

0 

I : 

77624 

1 

C : 

476  37 

0 

I : 

77624 

1 

C:  20030 

0 

I:  77624 

1 

C:  47353 

1 

I : 77414 

0 

15,3270 

C: 

04355 

0 

C : 

33303 

1 

3 5010 

0 

04616 

1 

C:  20476 

0 

06001 

0 

13300 

0 

13272 

I 

1 5.33C0 

05353 

1 

C: 

04024 

0 

06U37 

0 

I : 

77624 

1 

C:  31565 

0 

I : 77624 

1 

C:  31602 

1 

I : 77624 

1 

15,3310 

C: 

32  774 

1 

I : 

77650 

1 

C : 

33161 

1 

C : 

01535 

0 

0 4t  1 o 

1 

C:  33652 

0 

36245 

1 

5 5145 

I 

1 5,3320 

36  753 

1 

C 46  16 

1 

C : 

20713 

0 

06001 

0 

13331 

1 

13320 

1 

05  3 53 

1 

C:  00014 

1 

15,3330 

05  155 

0 

31  165 

0 

76245 

0 

K 00  00 

1 

13335 

0 

13350 

0 

1341  1 

1 

13320 

1 

15,3340 

06  037 

0 

I : 

75  160 

1 

C : 

017  33 

1 

C : 

03606 

1 

I : 77624 

1 

C:  31377 

0 

I:  77650 

1 

C:  33410 

1 

1 5,3350 

06  037 

0 

I : 

77  745 

1 

C: 

03442 

0 

C: 

01046 

1 

1 : 77776 

1 

32170 

c 

04616 

1 

C:  20476 

0 

1 5,3360 

16001 

1 

1 3 ? 6 3 

0 

l 33  55 

0 

06037 

0 

I : 65234 

1 

C:  21573 

0 

C:  01046 

1 

I:  65254 

I 

1 5,3  310’ 

C: 

53  400 

0 

I : 

5 1C  2 5 

1 

C : 

01046 

1 

C: 

33400 

0 

I : 45545 

1 

C:  74335 

1 

C:  36775 

1 

C:  33402 

1 
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15,3400  i:  ,5  545  1 
15,34 10  I : 77776  1 
15,3420  27146  1 
15,3430  33651  0 


7 5002 

1 

C:  34041 

0 

34755 

1 

55145 

1 

347  53 

1 

70102 

0 

046  16 

1 

C : 20476 

0 

1 5,3440 
1 5,3450 
15,3460 
15,3470 


10  000  0 
10  00  0 0 
13  430  1 
C:  02723  0 


13541  0 
13545  1 
13430  1 
I : 41  625  0 


34753  1 
05567  0 
I:  402 2 0 0 
C:  0 35  62  C 


15,3500  C:  00001  0 
15,3510  C:  47537  0 
15,3520  C:  01734  0 
1 5 , 3 n 30  C:  >1734  3 


C:  03562  0 
i:  40234  0 
I:  65256  0 
I : 41 f 26  1 


I:  45006  0 
C:  21573  0 
C:  U3562  C 
C:  0 35  62  0 


1 5 , 3 r- 4 0 C:  02  746  0 
15,3550  71145  1 
15,3560  13575  1 
15,3570  13571  0 


06037  0 1 : 77624  1 
1C00C  0 12563  1 
05353  1 C:  04024  0 
13575  1 13616  1 


15,36  00 
15,3610 
1 5,3620 
15,3630 


C : 

C : 

26  72  3 
o A 7 a 1 

0 

g 

C : 
g ; 

02245 
r>27°  1 

0 

o 

C : 
| ; 

36731 

36767 

C : 

i J- 

02023 

1 

C : 

26723 

0 

C : 

02245 

C : 

02231 

3 

C: 

47661 

0 

I : 

77650 

15,3640 
1 5,3650 
15,36/ 

1 5,3670 


C:  02723  0 
13047  3 
06001  0 
C:  01707  0 


C:  26731  C 
C:  01206  1 
05504  0 
C:  12024  1 


C:  >2231  ( 
41302  0 
C : 00007  0 
C:  00031  0 


15,3700  i:  77745  1 

15,3710  C : 120' 

1 5,372'  C : oi'C5'  5 

15,3730  I:  77625  0 


C: 

12004 

0 

C: 

00027 

1 

I : 

40756 

1 

C : 

12044 

1 

C : 

3 3 7 C 3 

C 

I : 

40745 

0 

C : 

0 00  27 

1 

C : 

1 00  2 l 

0 

15,3740  C:  33770  1 

15,3750  I : 65356  1 

1 5, 3“760  C:  < 023  0 

1 5,3  770  : 77  74  5 1 


I : 

77644 

1 

C:  33700 

0 

C: 

0 00  2 1 

1 

I : 55546 

0 

I : 

653  56 

1 

C:  00023 

0 

C: 

12C  C4 

0 

C:  00C27 

1 
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C : 

27057 

0 

I : 

53575 

0 

C : 

0000  1 

0 

C : 

37607 

l 

C:  11013 

0 

c5  146 

1 

34737 

0 

70077 

0 

10000 

0 

34745 

0 

10000 

0 

34750 

1 

27146 

1 

34750 

1 

5514^ 

0 

16001 

1 

) 343  6 

1 

13430 

1 

34737 

0 

70077 

0 

70102 

0 

10C00 

0 

13545 

1 

34  752 

0 

71145 

1 

C : 

00701 

1 

35006 

1 

046  16 

1 

C: 

20476 

0 

16001 

1 

C: 

02746 

0 

C : 

00  001 

0 

I : 

77634 

0 

C : 

21573 

0 

C:  27562 

0 

I : 

77624 

1 

C : 

55716 

1 

C : 

26723 

C 

C : 

02731 
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1 
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02527  0 

44741  0 

71273  1 

55273  1 

32573  1 

17,2530 

55477  0 

34753  1 

55505  1 

34751  0 

5574  3 1 

51505  0 

51  535  0 

12540  0 

17  ? C 7 

o /.  7 c i ri 

1 linn  c p 

c i c;  n K n 

11496  1 

ini';  i 

i o c g i n 

5 H ( D 1 U 

9 i > V,  C)  w 

1 4 J D J 1 

1 OUUI/  v 

1 i T A U 1 

D I 1?  J 1 

1 G i U 

1 7,2550 

34753  1 

515C5  0 

63722  0 
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50000 

1 

0 

C: 

02016 

1 

C:  34106 

1 

34755 

1 

1 

C : 

40461 

0 

05155 

0 

35015 

0 

1 

64157 

0 

10000 

0 

41332 

0 

1 

00006 

1 

12522 

1 

44733 

0 

1 

00006 

1 

62513 

1 

41331 

0 

0 

10157 

0 

31332 

1 

61331 

1 

0 

54154 

0 

41331 

0 

62002 

1 

1 

00006 

1 

62540 

1 

12513 

0 

4i,7C  7 

1 

7 i.  l c i 

0 

1 

1 

7 7 I C. 

1 

C.  O 1 J c - 

Jl  5j1 

I 

1 

33042 

1 

00006 

1 

1C  156 

1 

1 

12544 

1 

12570 

0 

12667 

0 

1 

11531 

0 

54155 

1 

63104 

1 

0 

00006 

1 

73100 

1 

63102 

1 

1 

55527 

1 

12642 

1 

00006 

1 

1 

62630 

0 

33  104 

1 

54155 

1 

1 

40155 

1 

64735 

1 

00006 

1 

0 

55533 

1 

31630 

0 

00006 

1 

1 

55534 

0 

10154 

0 

34755 

1 

o 

64  1 6 c- 

1 

1 7 647 

1 

31246 

n 

1 

L C.  -J  ' ' 

1 

VJ 

1 

71527 

1 

00004 

0 

54154 

0 

1 

30154 

1 

00006 

1 

71531 

0 

0 

55  50  4 

0 

31511 

0 

00006 

1 

1 

39-752 

0 

12  730 

0 

34^55 

L 

1 

12751 

1 

30155 

0 

50154 

1 

0 

12752 

1 

50154 

1 

31507 

1 

.0 

12727 

0 

40  111 

1 

74736 

0 

1 

12767 

1 

13706 

1 

11633 

1 

0 

13231 

c 

54161 

0 

54160 

1 

2,1^70 
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OCTAL  LISTING  FOP  PA'  AGP  APH  H 122,  WITH  PAR  IT Y BIT  IN  BINARY  AT  THE  r I GHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 


AU  VALID  WORDS  APE  B&SIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "1" 


9 n -*nnn 

soon? 

o 

300  00 

1 

24002 

0 

50000 

t Ut  DL  I'll 

20,3010 

10000 

0 

64753 

1 

1 30  14 

0 

64753 

2 0 , 3n  20 

60  161 

1 

COO  06 

1 

30  27 

1 

30160 

-3.0 

10162 

0 

1 3004 

0 

10162 

o 

34  73  5 

C.  vj  f _}\J  O' . 

20,3040 

C : 

22  513 

0 

C: 

001'  1 

0 

C : 

07416 

0 

C:  C 0030 

20,3050 

C: 

07  11 1 

1 

C: 

00.072 

1 

C : 

241  03 

0 

C:  00135 

20,3060 

C : 

00217 

0 

C: 

00464 

1 

C : 

75642 

0 

C:  00536 

2 0,3070 

C : 

00  052 

0 

C: 

00231 

1 

C : 

77174 

0 

C:  01400 

2 0,3100 

C : 

13241 

1 

C : 

00337 

0 

C : 

26501 

1 

C:  51276 

20,3110 

54161 

0 

5 0160 

0 

332  12 

0 

00006 

20, 3120 

63213 

1 

54154 

0 

131.26 

0 

54161 

20,3130 

00  006 

1 

50161 

1 

71331 

0 

50160 

20,31 40 

2A  1 5/i. 

0 

10141 

0 

1312  3 

0 

10160 

1 V I c I 

20,3150 

54  1 5 5 

1 

34757 

0 

13106 

1 

33212 

20,3160 

34733 

1 

5 5551 

0 

55571 

1 

55572 

20,3170  ... 

00006 

1 

10155 

1 

000  04 

c 

55531 

20,3200 

55  630 

1 

31244 

1 

000  06 

1 

70154 

20,3210 

555  1 1 

1 

12712 

0 

C: 

00167 

1 

C:  06176 

2 0,3220 

C : 

00  645 

0 

C : 

06335 

1 

C: 

042  56 

1 

C:  30163 

20, 3230 

55633 

1 

31346 

1 

000  06 

1 

74737 

20,3240 

60  CO  1 

0 

541  1 4 

1 

000  04 

c 

31541 

20,3250 

53*44 

1 

00003 

1 

30111 

e 

74744 

20,3260 

10000 

0 

33763 

0 

5^1  c i 

0 

00006 

20,3270 

31530 

0 

64743 

0 

54157 

0 

31530 

20,3300 

44  743 

1 

000C6 

1 

71551 

0 

00006 

20,3310 

55  553 

1 

55556 

0 

00003 

1 

2 2 007 

20,3320 

54163 

1 

50154 

1 

11543 

0 

64753 

20,3330 

^0  163 

1 

54164 

n 

31346 

1 

54143 

20,3340 

63432 

1 

10151 

0 

13372 

0 

31  346 

20,3350 

33227 

0 

60162 

1 

00006 

1 

63356 

20,3360 

60  000 

1 

64736 

1 

600  00 

1 

00006 

20,3370 

50  164 

1 

54146 

0 

30162 

1 

00006 

(INTERPRETIVE  OPERATOR  WORDS)  OR  "C " (CONSTANTS) 


1 

30000 

1 

00006 

1 

13035 

0 

54162 

0 

1 

56161 

I 

00006 

1 

63020 

0 

40000 

0 

0 

00006 

1 

1016  2 

0 

00002 

0 

10160 

1 

1 

C0002 

0 

3473? 

1 

00002 

n 

C:  01240 

0 

1 

C: 

21261 

1 

C:  00021 

1 

C: 

03766 

0 

C:  00153 

0 

0 

C : 

11511 

1 

C:  04754 

0 

C: 

77142 

0 

C:  00061 

0 

1 

C : 

75705 

1 

C:  CO 001 

0 

C : 

77616 

0 

C:  05154 

1 

1 

C : 

01000 

0 

C:  06000 

1 

C : 

04000 

0 

C:  23  146 

0 

0 

C : 

62362 

1 

34753 

1 

54160 

1 

34753 

1 

1 

71331 

0 

00006 

1 

71332 

0 

50160 

0 

0 

00006 

1 

26  160 

1 

50160 

0 

33215 

1 

0 

63217 

0 

00006 

1 

50161 

1 

71331 

0 

1 

13153 

1 

C : 00000 

1 

C : 

20354 

1 

30154 

1 

0 

22007 

0 

02776 

0 

C : 

01244 

1 

55530 

1 

1 

5561  1 

1 

55612 

1 

00006 

1 

33146 

1 

0 

55532 

0 

33103 

0 

55627 

1 

33102 

1 

0 

00006 

1 

71246 

1 

02776 

0 

C:  00155 

0 

1 

C : 

77650 

1 

C:  72260 

0 

C : 

76637 

1 

C : 02167 

0 

0 

C: 

64072 

0 

C:  53632 

0 

C: 

15  133 

1 

C:  71777 

0 

1 

54001 

1 

60000 

1 

54115 

0 

41346 

0 

0 

54001 

1 

31537 

1 

04674 

0 

C:  37146 

0 

0 

10000 

0 

34753 

1 

54116 

0 

61502 

1 

1 

13270 

0 

10116 

0 

3376? 

1 

54152 

0 

0 

037C0 

0 

00004 

0 

55551 

0 

55552 

0 

1 

10157 

0 

^5557 

0 

55560 

1 

34733 

1 

0 

10116 

0 

5354/- 

1 

34755 

1 

54154 

0 

1 

13327 

0 

64753 

1 

24163 

0 

54162 

0 

0 

541  LL. 

1 

30162 

1 

6376' 

1 

00006 

1 

1 

50164 

1 

26144 

1 

50  163 

0 

54145 

0 

1 

40115 

u 

13365 

0 

40162 

o' 

60000 

1 

1 

71346 

0 

5016  3 

0 

54143 

0 

30114 

0 

1 

74740 

1 

6C  162 

1 

03700 

0 

50  164 

1 

GAF 
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OCTAt  LIST  IMG  FOP  P A!  AGP  A PH  ’ 123,  WITH  PAL  IT  Y BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


2 0,  3400 

34  130 

1 

347  33 

1 

50163 

0 

54127 

1 

30162 

1 

61333 

0 

20,3410 

54000 

3 

) 3'- 56 

1 

30162 

1 

00006 

1 

74736 

0 

61533 

0 

20,3420 

56157 

1 

03700 

0 

000  06 

1 

74736 

0 

54160 

1 

33'  3 1 

1 

20 , 3 ->30 

13733 

1 

1 3**63 

1 

54001 

1 

34733 

1 

54127 

1 

56  130 

1 

61533  O 
54157  0 
54161  0 
10151  0 


64-743  0 
64744  1 
44744  0 
13456  1 


20,3460 
20,3450 
2 0,34  60 
20,3470 


34  746  i 
50163  0 
61 533  0 
30  16  2 1 


6<  COI  0 
54145  0 
54157  0 
61533  0 


00006 

1 

1 

6345  3 
31346 

0 

1 

30115 

54146- 

1 

0 

50164 

54145 

1 

0 

54146 

30162 

03724 

0 

50164 

1 

5'  134 

C 

30160 

0 

50164 

64743 

0 

54000 

0 

13476 

0 

34  73  3 

1 

63764 

60000  1 
61533  0 
54126  0 
54157  0 


20,3500 

03724 

0 

50164 

1 

jL 

54132 

0 

30160 

0 

50164 

1 

54124 

1 

20,3510 

61  533 

0 

03712 

0 

501  63 

0 

54133 

1 

54001 

1 

30160 

0 

20,3520 

40  16  2 

0 

61533 

0 

54157 

0 

63764 

1 

00006 

1 

63  743 

1 

20,3030 

54131 

3 

30  3 6v 

0 

50163 

0 

54123 

0 

50154 

1 

33770 

1 

40162  0 
50163  0 
03720  1 
71262  1 


61533  0 
54125  0 
50163  0 
00006  1 


2 0,3 '54  C 
20,355V 
20,3560 
20,3570 


13545  1 
00006  l 
60151  1 
13612  0 


30124  0 
13556  0 
54147  1 
3u 122  0 


54126  0 
30123  1 
40145  0 
55547  i 


30132  1 54134  0 50156  1 
54125  0 30131  1 54133  1 
60144  0 60151  1 541 50  1 
34320  1 05545  0 C:  00123  1 


33766  0 
40146  0 
00004  0 
C:  01567  1 


71262  1 
60143  1 
10154  0 
00003  1 


2 0,3  6 00 
20,3610 
20,3620 
20,3630 

20, 3 6 40 
20, 3650 
20,3660 
20,3670 


2 0,3  7 G U 

2 0 , 7 10 
2043720 
2 0,3730 

2 0,1 
20,3756 
20,3760 
20,3770 


62  144  1 
34755  i 
52152  0 
34  75  5 1 

53604  0 
53626  0 
55603  1 
55626  0 


54  165  1 

55  633  1 
30  157  1 
03700  O 

43764  0 
50000  1 
30001  0 
C:  00204  1 


52136  1 
13320  1 
53556  1 
55565  1 

52142  1 
1 36  72  0 
55604  0 
000C4  0 

34743  0 
12773  1 
00006  1 
#16#-  1 

54157  0 
3376?  1 

13527  0 
C : 6 nr<  i i 


5 2 1 46  0 
30122  0 
31346  1 
55566  1 

53606  1 
31346  1 
55623  C 
40111  1 

22007  0 
22007  0 
50164  1 
44743  1 

137  21  1 
71262  1 
C:  001 10  1 
C : 03772  0 


62140  0 
55550  1 
55561  0 
11555  1 

52144  1 
55601  0 
5562-1  1 
74751  1 

COCOA  1 
2212?  0 
70130  1 
00(06  1 

10163  1 
C 0006  1 
C:  00443  1 
C:  03773  1 


521 50  1 
34320  1 
55562  0 
13652  1 

53622  1 
55602  0 
34755  1 
26111  1 

10165  1 
54157  0 
64743  0 
70160  1 

34752  0 
13760  1 
C:  77377  1 
CKSM  41116  1 


52142  1 
05545  0 
61555  0 
52136  1 

5 2 14#  0 
55521  1 
55605  1 
00003  1 

00002  0 
6376'  1 
56  15  7 1 

00006  1 

67747  1 
43764  0 
Cl  02213  C 

a 


34753 

1 

54154 

0 

Cl  00123 

1 

C: 

01607 

1 

55564 

0 

55563 

1 

53602 

0 

52140 

0 

53624 

1 

52150 

1 

55622 

1 

6 1555 

0 

55606 

1 

55625 

0 

30117 

0 

04640 

1 

34755 

1 

55502 

0 

00005 

1 

63  7 4 0 

1 

00006 

1 

22161 

1 

X 

10157 

0 

00161 

1 

54122 

1 

60154 

1 

54157 

0 

13526 

1 

C:  00110 

1 

C : 

00022 

1 

a a 
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ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "!"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


2 1 , 200u 

C : 

24402 

1 

C:  01551 

1 

C:  21357 

0 

C : 

22316 

0 

C: 

01507 

1 

C : 

CC547 

1 

40  103 

1 

74  74  7 

0 

21,2010 

10  000 

0 

1 r-  2 6 1 

0 

1 10  56 

1 

12016 

0 

12130 

0 

5 6 71  <+ 

0 

36010 

0 

05  173 

1 

2 1,2020 

C : 

02006 

0 

4 1 30  3 

1 

74753 

0 

e 0006 

1 

12042 

1 

7C 107 

0 

00006 

1 

12033 

1 

2 1,2030 

34  747 

1 

54001 

1 

046  06 

0 

3478? 

0 

70107 

0 

00006 

1 ' 

12042 

1 

34751 

0 

21,2 

54001 

1 

046  06 

0 

30105 

0 

74743 

1 

00006 

1 

12154 

1 

41011 

1 

62107 

0 

2 1 , 2 

OC  006 

1 

12154 

1 

000  06 

1 

00030 

1 

400  CO 

0 

54031 

1 

74750 

0 

10000 

0 

2 1,21  ' 0 

12  076 

0 

4101 1 

I 

62106 

1 

00006 

1 

12154 

1 

30001 

0 

74753 

0 

10  000 

0 

21,2070 

12073 

0 

121  54 

1 

021  10 

0 

4475  5 

0 

12077 

1 

02110 

c 

3475? 

0 

54002 

1 

21,2100 

00  004 

0 

000  C 6 

1 

32105 

1 

5 2006 

0 

C : 

03402 

1 

C : 

12067 

0 

C : 

00106 

0 

C: 

00107 

1 

2 1, 21 10 

40775 

0 

61011 

0 

00006 

1 

12124 

0 

40105 

1 

74743 

1 

10000 

0 

12124 

0 

21,2120 

30  103 

0 

74747 

0 

10000 

0 

000  02 

0 

043  64 

1 

04457 

c 

04635 

0 

C : 

21050 

1 

21,2130 

40  107 

0 

74735 

0 

00006 

1 

12150 

G 

34746 

0 

7C107 

0 

00006 

l 

12150 

0 

2 1 » 21 AC 

4 q ]^Q7 

g 

7 i 7 U 2 

0 

000  06 

1 

12140 

o 

37  720 

o 

0507? 

1 

C : 

03T1  6 

l 

C : 

70067 

\J  J V / V 

21,2150 

00  006 

1 

347  55 

1 

52755 

1 

12021 

1 

23714 

1 

40025 

1 

53056 

1 

40103 

1 

21,2160 

74741 

0 

10000 

0 

13053 

0 

31303 

0 

74745 

1 

10000 

0 

12240 

1 

02324 

0 

21,2170 

41  303 

1 

74745 

1 

27303 

1 

34752 

c 

C0CC6 

1 

05014 

1 

31743 

0 

00006 

1 

2 1,2200 

71  706 

3 

56070 

0 

31744 

1 

00006 

1 

71707 

1 

26070 

1 

31745 

0 

00006 

1 

2 1 , 22  1 p 

71  710 

1 

26070 

1 

32000 

0 

00006 

1 

70070 

1 

20001 

1 

20001 

1 

56070 

0 

2 1,2220 

31  716 

0 

00006 

1 

71715 

1 

60070 

0 

55711 

0 

41711 

0 

00006 

1 

62231 

0 

2 1,2230 

12  233 

0 

31711 

1 

64735 

1 

54060 

0 

34751 

0 

00006 

1 

05014 

1 

15261 

0 

2 1,2240 

02  324 

0 

44745 

1 

71303 

1 

6 5 303 

1 

44752 

1 

00006 

1 

03  014 

1 

11741 

0 

21,2250 

12254 

1 

122  54 

1 

12272 

0 

557' 1 

0 

44753 

0 

53742 

0 

53713 

1 

34742 

1 

2 1 , 22  60 

56  002 

0 

22007 

o 

31715 

o 

00006 

] 

1000? 

0 0 0 0 6 

] 

72  002 

0 

12273 

1 

V XJ  V'  \J  u 

21,2270 

53713 

1 

12313 

0 

32001 

1 

00006 

1 

71711 

0 

20001 

1 

61713 

0 

55713 

1 

2 1,?. 

34755 

1 

277  12 

0 

347  3 3 

1 

64753 

1 

61713 

0 

55713 

1 

34755 

1 

64733 

1 

21,2310 

61712 

1 

55‘7 12 

0 

1 3050 

0 

11713 

1 

12320 

0 

12320 

0 

3 4-  7 5 c 

1 

55713 

1 

2 1,2320 

11712 

0 

347  35 

1 

61713 

0 

12233 

0 

(0006 

1 

23714 

1 

34  746 

0 

00006 

1 

21,2330 

02  030 

0 

l oooo 

0 

1 3053 

0 

40075 

1 

74736 

0 

00006 

1 

12374 

1 

40075 

1 

2 1,2340 

74736 

0 

26C7  5 

1 

44745 

1 

71303 

1 

55303 

1 

40074 

0 

74752 

1 

00006 

1 

2 1,2350 

15  261 

0 

34744 

1 

00006 

1 

05012 

1 

34755 

1 

55732 

1 

55703 

0 

55676 

0 

2 1,2360 

55677 

1 

34750 

1 

05173 

1 

C: 

02365 

0 

15261 

0 

34752 

0 

00006 

1 

05012 

1 

2 1,2370 

41  303 

1 

74744 

0 

27303 

1 

15261 

0 

41235 

0 

60025 

0 

64736 

1 

64736 

1 

GAP:  ASSEMBLE  iE VISION  001  OF  AGO  PROGRAM  AP11RQPE  BY  EYLES 


OCTAL  LISTING  FOR  PARAGRAPH  tf  125,  WITH  PARITY  BIT  IN  BINARY  AT 
ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  ( 


2 1,2400 
2 1,2410 
2 l, 2420 
2 1,2430 


57715  0 
71715  I 
27  706  0 
20  001  1 


34777  1 
00006  1 
30037  0 
20001.  1 


54065  0 
10065  0 
61160  1 
00006  1 


00006  1 
57706  1 
00006  1 
71715  1 


2 1,2440 
2 1,2460 
2 1,2460 
2 1 , 2 4 70 


31531  1 
27  707  1 
1C  065  0 
61 162  0 


20001  1 
00006  1 
57710  0 
00006  l 


20001  1 
31243  0 
00006  1 
72004  0 


27707  1 
20001  1 
31533  0 
27710  1 


21,2500 
2 1, 2510 
2 1,2520 
2 1 , 2 5 30 

21,2540 

21,2550 

2 1 , 2 

2 1,2  5 70 

2 1,26  00 
2 1,2610 
2 1,2620 
2 1,2630 

2 1,2640 
2 1,2650 
2 1,2660 
21,2  • 

2 1,2  700 
2 1,2710 
2 1,2720 
21,2730 


2 1,2  740 
2 1,2 750 
2 1,2760 
2 1,2  770 


10  000  0 
54062  1 
30062  0 
30070  0 

00006  1 
60000  1 
35  016  0 
71705  0 

00006  l 
32003  0 
54  06  5 0 
41700  0 

00006  1 
12662  0 
00006  1 
31700  1 

12703  0 
34  753  1 
50  06  5 1 
50065  1 

62742  1 
61676  1 
13  02  4 0 
00006  1 


12503  1 
31737  0 
00006  1 
60000  1 

7 IT  27  0 
57705  1 
54003  0 
26C70  1 

71705  0 
C 00  06  1 
50065  1 
62005  0 

62643  1 
50065  1 
62716  0 
00006  1 

42005  I 
1.3  027  0 
31676  1 
11702  1 

12775  1 
OOOGo  1 
50065  1 
63020  0 


01714  1 
61710  0 
71721  0 
57704  0 

26070  1 
35015  0 
30064  0 
32003  0 

56070  0 
70070  1 
11700  0 
00006  1 

12730  0 
31700  1 
50065  1 
62720  0 

130  24  0 
50065  1 
62005  0 
12761  1 


50065  1 
63020  0 
41700  G 
50065  1 


31733  1 
54063  0 
26070  1 
30061  0 

30063  1 
54003  0 
00006  1 
( DC 06  1 

30063  1 
111 
12627  1 
62643  1 

50065  1 
00006  1 
11702  1 
12703  0 


50065  1 
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12735  0 


41700  0 
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31237 

0 

20001 

1 

20001  1 

00006 

1 

00006 

1 

31527 

0 

20001  1 

20001 

1 

72004 

0 

27706 

0 

00006  1 

312^1 

1 

00006 

1 

10065 

0 

57707  0 

00006 

1 

30040 

0 

61161 

0 

00006  1 

72004 

0 

2 CO  01 

1 

0000b 

1 

71715  1 

00006 

1 

20001 

1 

20001 

1 

27710  1 

3 0041 

1 

34751 

0 

05224 

0 

40074  0 

74752 

1 

61706 

1 

54061 

1 

31735  1 

61707 

0 

3006  1 

0 

00006 

1 

71717  0 

56070 

0 

30063 

1 

00006 

1 

71723  1 

26070 

1 

00006 

1 

71725 

1 

56070  0 

30062 

0 

00006 

1 

71731 

1 

26070  1 

30070 

0 

31417 

1 

54063 

O' 

31420  0 

54064 

1 

7 1 704 

1 

56070 

0 

30063  1 
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1 

1 
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1 

C7  7 Aft  l 

n 

< ‘JU  ( U 

1 
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1 

4*  f f Ul  1 

D U UO  *+ 

u 

00006 

1 

71704 

l 

40000  0 

26070 

1 

57701 

0 

42005 

1 

54066  0 

34753 

1 

12730 

0 

12635 

1 

12730  0 

50065 

1 

12730 

0 

50065 

1 

31700  1 

62005 

0 

116  76 

0 

1265  1 

0 

12662  0 

12656 

1 

62701 

0 

12662 

0 

50065  l 

41700 

0 

12674 

1 

12667 

0 

12712  0 

50065 

1 

50065 

1 

31700 

1 

00006  1 

62701 

0 

41676 

0 

62005 

0 

50065  1 

56072 

1 

( 0006 

1 

6272H 

0 

32005  0 

13024 

0 

500  6 5 

1 

56072 

1 

44753  0 
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0 

12766 

0 

50065 

1 

41676  0 
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1 

00006 

1 

63020 

0 

60066  1 

50065 

1 
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1 
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1 

50065  1 

61676 

1 
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0 
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0 

50065  1 
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0 
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1 
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1 
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2 1,30.00 
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0 

3 2 0 C 5 

0 

50065 

1 

61676 

1 

4000C 

0 
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1 

61700 

1 

00006 

1 

2 1,3010 

63  020 

0 

00006 

1 

500e>5 

1 

61700 

1 

50065 

1 

61676 

1 

40  000 

0 

13024 

0 

2 1,  3020 

50065 

1 

41676 

0 

50065 

1 

61700 

1 

50065 

1 

56072 

1 

34755 

1 

50065 

1 

2 1,3030 

55702 

1 

50065 

1 

3 0072 

1 

64754 

0 

50065 

1 

54053 

n 

50065 

1 

30072 

1 

2 1,3040 

50065 

1 

27676 

0 

10065 

0 

12620 

0 

35020 

0 

00006 

1 

05014 

1 

01714 

1 

21,3050 

34755 

1 

54001 

1 

12270 

1 

40074 

0 

74752 

1 

C0006 

1 

13067 

1 

3^744 

1 

2 1,3060 

71  303 

1 

IF  000 

0 

34752 

0 

64744 

1 

t-  oooc 

0 

00006 

1 

03012 

1 

43  076 

1 

21,3070 

71303 

1 

5 5 303 

1 

44736 

0 

70075 

1 

54075 

1 

15261 

0 

C:  00  300 

1 

37  747 

1 

2 1,3100 

55631 

0 

347  51 

0 

55535 

1 

55536 

1 

34752 

0 

5 5 633 

1 

55632 

0 

55634 

0 

21,3110 

30021 

1 

60000 

1 

55505 

1 

34752 

0 

13116 

0 

34755 

1 

55750 

0 

5175  0 

1 

2 1,3120 

31  537 

1 

00006 

1 
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1 

10006 

1 

13130 

1 

50000 

1 

44734 

1 

56001 

0 
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0 
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1 

31436 

1 
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0 

51750 

1 

31504 

1 

55741 

0 
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1 

2 1,3140 

13576 

1 

51750 

1 

31450 

1 

00066 

1 

71741 

0 

23737 

0 

00006 

1 

74747 

0 

2 1,3150 

53740 

1 

000  06 

1 

74747 

0 

27740 

1 

41744 

0 

00006 

1 

747  36 

0 

00006 

1 

2 1,3160 

71744 

0 

617*1 

1 
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1 

63200 

0 

00006 

1 

40001 

1 

61741 

1 
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1 

2 1,3170 

11741 

0 

5/746 

0 

30001 

0 

22007 

0 
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1 

11741 

0 

57747 

1 

13203 

1 

2 1,3200 

34733 

1 

54001 

1 

5 57  47 

0 

31743 

0 

COO  06 

1 

76  74  3 

1 

53  74? 

1 
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1 

21,3210 

31  743 

0 

63752 

1 

317  4-4 

1 
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1 

63220 

1 

00006 

1 

31747 

1 

13222 

1 

21,3220 

00006 

1 

417^7 

0 

21752 

1 

11751 

1 

13230 

1 

13227 

1 

13232 

0 

11752 

1 

2 1,3230 

34753 
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13  2 3 3 

1 

44753 

0 

55745 

1 

11745 

1 

13247 

1 

13  240 

0 

13  244 

1 

2 1,3240 

55742 

0 

5 5743 

1 

1 3247 

1 

C:  65252 

1 

COO  06 

1 

41743 

1 

53743 

1 
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1 

21,3250 

31747 

1 

217*3 

1 

31746 

0 
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1 

73243 

0 

53  76  7 

0 

30001 

0 

000C6 

1 

2 1, 326 

73  243 

0 

27  747 

0 

54001 

1 

13265 

1 

27746 

1 

00006 

T 

31  743 

0 

21747 

0 

2 1,3270 

31  746 

0 

00006 

1 

71744 

0 

21740 

1 

31747 

1 

00006 

1 

71744 

0 

27740 

1 

21,3300 

54001 

1 

133.03 

0 

2 77  37 

1 

31742 

1 

CCQOfe 

1 

71741 

0 

53752 

1 

31  74  3 

0 

2 1,33  10 

00006 

1 

71741 

0 

277  52 

1 

54001 

1 

13316 

1 

2775  1 

l 

1 1745 

1 

13524 

0 

2 1,3320 

13566 

0 

1 3323 

1 

13566 

0 

00006 

1 

41743 

1 

53743 

l 

13  524 

0 

C:  23146 

0 

2 1,3  3 30 

34753 

1 

56502 

0 

34752 

0 

22002 

0 

22071 

1 

13337 

i 

34755 

1 

54066 

0 

2 1,3340 

50066 

1 

315C7 

1 

000  06 

1 

63413 

1 

54063 

0 

50066 

l 

41537 

0 

00006 

1 

21,3350 

13413 

0 

540  u 2 

1 

000  06 

1 

7 3 327 

0 

60002 

0 

54001 

l 

13363 

0 

40000 

0 

21,3360 

50066 

1 

57501 

1 

13417 

1 

00006 

1 

63371 

1 

40000 

0 

54062 

1 

44753 

0 

21,3370 

13373 

1 

54062 

1 

34753 

1 

50066 

1 

55501 

0 

30063 

1 

00006 

1 

74740 

1 
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21,3400 

60062 

0 

00006 

1 

6 3417 

G 

40062 

1 

00006 

1 

73440 

0 

00006 

1 

10063 

0 

21,3410 

00006 

1 

1 3413 

0 

13425 

0 

3 4755 

1 

50066 

1 

55501 

0 

13427 

1 

36010 

0 

21,3420 

50066 

1 

55632 

0 

347^5 

1 

55502 

0 

13427 

1 

50066 

1 

55632 

0 

10066 

0 

2 1,3430 

13336 

0 

5*2073 

1 

52063 

0 

04674 

0 

C : 35736 

0 

52063 

0 

52073 

1 

00071 

1 

..z 


21,3440  C:  00240  1 11751  I 13460  1 
21,3450  13454  0 34755  1 55741  0 
21,3460  34755  1 55741  C 36761  1 
21,3470  27744  0 00CC6  1 63465  0 


13445 

C0002 

0 

0 

13451  0 
57751  0 

31752 

57752 

0 

0 

00006 

34757 

1 

0 

63451 

13461 

1 

0 

55744 

0 

13473  0 

31751 

0 

13507 

1 

37746 

0 

4 17  51 

1 

51744  1 

64735 

1 

00006 

1 

63467 

1 

2 1,3500 
2 1, 35  10 
21,3520 
2 1 , 3 e 30 


51744 

1 

34735 

1 

57747 

1 

00006 

1 

31752 

0 

00006 

1 

23752 

0 

00006 

1 

747  36 

0 

5 5 747 

0 

74737 

l 

10000 

0 

03636 

1 

0 3 6 3 0 

1 

0 3o  36 

1 

01752 

0 

0344 1 

0 

57742 

1 

53743 

1 

00006 

1 

70001 

1 

27743 

1 

54001 

1 

13537 

1 

11747  0 
33634  0 
00006  1 
27  742  0 


00006  1 
63632  0 
71742  0 
3174 4 1 


2 1 ,35  ■ 0 

21,3550 
2 1,3560 
2 1,3570 


00006  1 
00006  1 
13562  1 
13  572  0 


74736  0 
71742  0 
27737  1 
1 35  75  1 


27741  0 
21740  1 
13566  0 
11740  1 


CCC06  1 
57742  1 
00006  1 
34753  1 


13563  0 
00006  1 
31743  0 
13576  1 


51741  1 
71743  1 
21740  1 
44753  0 


34735  1 
27740  1 
11737  1 
54001  1 


57742  1 
54001  1 
13673  1 
51750  1 


2 1 ,3600 
? 1,3610 
2 1,3620 
2 1,3630 


37501  1 
51  750  1 
27273  1 
C:  03236  3 


PC 006  1 
56510  0 
11750  0 
C:  36106  0 


70001  1 
51750  1 
131 15  0 
C:  26501  1 


10001  1 

43633  0 
31505  0 
C:  01400  1 


13621  0 
00006  1 
54021  0 


13616  1 
03012  1 
00006  1 
C : C6L00  1 


13610  1 
41273  1 
33631  0 
55746  1 


13616  1 
76747  0 

52006  0 
54021  0 


2 1, 3640 
2 1,3650 
2 1 , 3660 
21,3670 


31  747  1 
51505  0 
00  002  0 
51505  0 


22CC  7 0 
55525  0 
13663  0 
55525  0 


00006  1 
11745  1 

13663  0 
000  02  0 


11746  1 60021  1 
13673  1 13676  1 
51665  o 33705  0 
51505  0 31525  1 


00002  0 C:  00632  0 
51505  0 41525  0 
51505  0 55770  1 
13657  1 51505  0 


34736  1 

10000  0 < 
3^ 755  1 
11770  1 


2 1,3700 

13702 

0 

00002 

0 

1 3o67 

1 

00002 

0 

C:  00004 

0 

C:  00012 

1 

C:  00012 

1 

2 1,37  10 

55745 

1 

3 14  27 

1 

1 37  It 

0 

347^3 

1 

55745 

1 

41427 

0 

220C0 

1 

2 1 , 3720 

74  744 

0 

10000 

0 

34767 

0 

60001 

0 

00006 

1 

63735 

0 

1365? 

1 

21,3730 

11  525 

D 

13713 

0 

13734 

0 

13707 

0 

55745 

1 

31427 

1 

00006 

1 

44753  0 
60111  1 
51505  0 
74766  0 


2 1 , 3740 

10000 

0 

13760 

1 

13744 

1 

13647 

0 

31427 

1 

61752 

0 

00006 

1 

71411 

0 

21,3750 

GO  006 

1 

1 3766 

1 

000  06 

1 

63762 

1 

31427 

1 

63646 

0 

00006 

1 

63  766 

0 

2 1,3760 

44  736 

0 

13650 

0 

43646 

1 

61427 

1 

00006 

1 

63647 

1 

34  75  5 

1 

13650 

0 

2 1 ,3770 

C:  03770 

1 

C:  03771 

0 

CKSM  67517 

0 

<2 

a 

a 

a 

a 
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22,2000 

C : 

27533 

1 

C : 

07571 

0 

C : 

2 5004 

1 

C : 

C6702 

1 

(.60  37 

0 

I : 

77  634 

C 

C : 

44403 

0 

C : 

03277 

0 

2 2,2010 

I : 

51535 

0 

C : 

00324 

1 

I : 

51025 

1 

C : 

0440  3 

1 

C: 

44724 

0 

I : 

72  364 

0 

C: 

03246 

1 

C : 

03277 

0 

22,2020 

I : 

77624 

1 

C : 

444  10 

1 

J : 

723  64 

0 

C: 

02230 

1 

C: 

00322 

1 

I : 

77624 

1 

C: 

44410 

1 

I : 

45160 

1 

22,2030 

C : 

03  246 

1 

C : 

44326 

0 

I : 

455  75 

1 

C : 

50457 

1 

I : 

77626 

0 

C : 

50465 

0 

I : 

77626 

0 

C: 

74473 

1 

2 2, 2040 

I : 
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1 

C : 

03303 

1 

C : 

02230 

1 

I : 

77624 

1 

C: 

44312 

1 

I : 

45575 

1 

C : 
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1 

I : 

77626 

0 

22,2050 

C: 
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1 

I : 

77626 

0 

C : 

75546 

1 

I : 

450C1 

1 

C: 

00023 

0 

C: 

44335 

1 

I : 
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1 

C: 
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1 

22,2060 

I : 

77626 

0 

C: 
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I : 

77626 

0 

C: 

7 447  3 

1 
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45345 

1 

C: 

03  30  6 

1 

C : 

02233 

1 

I : 

45325 

1 

22,2070 

C : 

02235 

1 

C : 

03310 

0 

t : 

45325 

l 

C : 

03316 

0 

C: 

C2243 

0 

I : 

77666 

1 

C: 

03326 

0 

I : 

43345 

1 

22,2100 

C: 

02231 

0 

C : 

02251 

0 

I : 

43225 

0 

C: 

06512 

1 

C : 

02241 

1 

C : 

03334 

0 

T : 

77726 

1 

C: 

03336 

1 

2 2,21  10 

I : 

51025 

1 

C : 

04  363 

0 

C : 

441  17 

0 

I : 

77  751 

1 

C: 

00322 

1 

C: 

37236 

1 

C : 

44742 

0 

I : 

45345 

1 

22,2120 

C : 

03336 

1 

C : 

04  36  5 

0 

I : 

77244 

0 

C : 

44131 

1 

C: 

C3326 

0 

I : 

7 7£  56 

1 

C: 

03271 

0 

I : 

77650 

1 

22,2130 

C : 
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0 

I : 

533  75 

0 
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0 22  3 1 

0 

C: 

03304 

0 
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77762 

1 

C : 

27  30  4 

0 

C: 

02237 

0 

I : 

74455 

0 

2 2 , 2 1 A0 

C : 

03  312 
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I 

C : 

02245 

0 
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7445  5 

n 

r ; 

033  20 

0 
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03320 

p 

I : 

70545 

C: 

03334 

0 

22,2150 

I : 

45325 

1 

C : 

06520 

0 

C : 

03334 

0 

I : 

65204 

1 

C : 

21712 

0 

C : 

03324 

1 

I : 

55225 

1 
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0 

22,2160 

C: 

00003 

1 

I : 
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1 

C : 

03314 

1 
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56225 

1 

C: 
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0 

C: 
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1 

t : 

65366 

1 

C : 

03304 

0 

22,2170 
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56225 

1 
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0 
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1 

I : 
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1 

I : 

77656 

1 

C: 
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0 

T ; 
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1 

C : 

03271 

0 

22,2200 
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1 

I : 
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1 

C : 

442  11 

0 

C: 

03271 

0 

I : 

50025 

0 
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1 

C : 

44266 

0 

I : 

77650 

1 

22,2210 

C: 

44242 

0 
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1 

C: 

03273 

1 

C : 

03275 

1 

I : 

77640 

0 

C: 

44266 

0 
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51145 

0 

C: 

03330 

1 

22,2220 

C : 

44224 

0 
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57575 

1 
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03271 

0 

C : 

03271 

0 
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51145 

0 
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03306 

1 

C: 
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1 
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57545 

1 
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C: 
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0 
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51145 

0 

C: 
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0 
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C: 
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1 
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77650 

1 
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0 
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0 
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I : 

57  57  5 

1 

C : 

03271 

0 

C : 

03271 

0 

22,2250 

I : 

51 145 

1 

C: 

03306 

1 

C : 

442  56 

0 

I : 

57645 

1 

C : 

03273 

1 

C : 

C3?73 

1 

I : 

51145 

0 

C: 

03310 

0 

22,2260 

C : 

44  744 

0 

I : 

57545 

1 

C : 

032  75 

] 

C: 

03275 

1 

I : 

77650 

1 

C : 

44744 

0 

I : 

51145 

0 

C : 

03332 

0 

22,2270 

C: 

44  2 74 

0 

I : 

57575 

1 

C : 

03271 

0 

C : 

03271 

0 

I : 

51145 

0 

C : 

03310 

0 

C : 

44302 

0 

I : 

57545 

1 

22,2300 

C : 

03  271 

o 

C : 

0327  1 

n 

J ; 

51145 

0 

r • 

r\ 

f • 

/A  7A4. 

T • 

57545 

r • 

03273 

1 

r • 

03273 

1 

J J C,.  i i 

u • 

) J I O 

U 

U 

1 • 

I 

L.  • 

i 

L • 

1 

22,2310 

I : 

77650 

1 

C : 

44744 

c 

I : 

766  01 

1 

C : 

00001 

0 

C : 

00001 

0 

I : 

62703 

1 

C : 

77776 

1 

C: 

00007 

0 

22,2320 

T : 

62703 

1 

C: 

77776 

1 

C: 

50015 

0 

I : 

41503 

1 

C : 

77776 

1 

I : 

77616 

c 

I : 

76601 

1 

C: 

0C001 

0 

22,2330 

C : 

00  0O1 

0 

I : 

62713 

0 

C : 

00007 

0 

C: 

COO  15 

0 

I : 

77606 

1 

I : 

77776 

1 

50120 

1 

52013 

1 

22,2340 

50  120 

1 

52017 

0 

50120 

1 

52013 

1 

50120 

1 

5201  5 

1 

50120 

1 

52005 

0 

22,2350 

50120 

1 

52015 

1 

50120 

1 

52003 

0 

50120 

1 

5 2 007 

1 

50  120 

1 

52003 

0 

22,2360 

06  03  7 

0 

I : 

77616 

0 

C : 

00013 

0 

C: 

1 3 5 S 3 

0 

C: 

17070 

0 

C : 

34343 

1 

C : 

15666 

0 

C: 

20443 

0 

22,2370 

C: 

33  555 

1 

C : 

01106 

1 

C : 

67777 

1 

C : 

77777 

0 

C : 

04000 

0 

C : 

OOOCO 

1 

C : 

00  216 

1 

C : 

36323 

0 
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OCTAL  IISTIhG  FOP  PARAGRAPH  * 131,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 
ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


22,2400 

22,2410 

22,2420 

22,2430 

22,2440 
2 2,2  450 
22,2460 
22,2470 

22,2500 
22, 2510 
22,2520 
22,2530 

22,2540 
22,2550 
2 2,2 
22,2570 

22,2600 
22,26 10 
22,2620 
22,2630 

2 2,2  c 4 0 
2 2,2-  50 
2 2,2' 

2 2 , 2 ( 

22,2  7C0 
22,2710 
22,2720 
2 2,2  730 


C:  17773  1 
I : 66  3 70  0 
C:  00  013  0 
C:  00007  0 

C:  00007  0 
C:  00003  1 
C:  00017  l 
C:  00003  1 

C:  00005  1 
C:  CO 007  0 
! : 41 325  0 
C:  00  001  0 

C:  03271  0 
C:  03273  1 
C:  03275  1 
1 : 41345  0 

I:  ,3  206  1 
C:  16233  1 
C:  00001  0 
C:  21712  0 

T : 41  405  0 
I : 77604  0 
C : 21  71 2 0 
C:  44702  1 

C:  06520  3 
C:  44722  ^ 
C:  06520  0 
04  f 1 a 1 


C:  O0C57  0 
C:  C0003  1 
C:  21576  C 
I:  72405  0 

C:  00011  1 
C : 00005  1 
C:  1C  005  0 
C:  1CC11  0 

C:  00013  0 
C : 00001  0 
C:  00007  0 
T • 65  3 56  1 

T : 41716  C 
I : 41316  0 
I : 4 1 3 1 S 0 
C:  03271  0 


C:  14344  1 
C:  00051  0 
C:  00013  0 
C : 00013  0 

I : 72405  0 
I : 41325  0 
I:  77745  1 
I : 413  45  0 

I:  72476  1 
I : 72415  1 
C:  00003  1 
I:  41546  0 

C:  00005  1 
C:  00005  1 
C:  00005  1 
C:  03273  1 


3G034  0 
C:  00001  0 
I : 65356  1 
C:  loon i i 

C:  00003  1 
C:  00007  0 
C:  00011  1 
C:  C001 3 0 

C:  10015  1 
I:  77626  0 
I : 72425  1 
I:  65302  0 

I : 52415  0 
I : 5241 5 0 
1 : 52415  0 
I : 72405  C 


C : 

C0C07 

0 

I : 

41112 

0 

C: 

21712 

C : 

03271 

0 

t : 

41205 

0 

C : 

0327* 

I : 

62415 

0 

C: 

00007 

0 

I : 

77604 

C : 

16245 

0 

C: 

03273 

1 

I : 

41205 

C : 

00001 

0 

I : 

o24  1 5 

0 

C : 

00007 

C : 

21712 

0 

C: 

0 2243 

0 

I : 

776  16 

C : 

000«  i 

6 

I : 

5 7543 

1 

C: 

00015 

I : 

57545 

1 

J ; 

432  44 

1 

C : 

4467  7 

I : 

7 7606 

l 

I : 

5754? 

1 

C: 

00013 

1:  3 7 -5 

C:  44723 
C:  40153 


I:  43244  1 
I:  77745  1 
04616  1 


C:  44717  0 
I : 43466  1 
C:  A 0 16  5 1 


54156  1 
C:  COO  10  0 
C:  00013  0 
I : 41345  0 


C : 21712  0 
C:  03275  1 

T : 77606  0 
I:  67543  1 
I:  67471  1 
C:  0652C  0 


I:  67471  1 
C:  06520  0 

I:  -77776  1 

34752  0 


00006  1 
I:  77601  0 
I : 41546  0 
C:  00005  1 


30033  1 
C:  00001  0 
T:  71300  1 
C.:  00001  0 


C:  16235  1 
C:  00005  1 

C:  21712  0 
C:  00007  0 
C:  00051  0 
I : 77650  1 

C:  00051  0 
I:  77650  1 
05567  0 
00006  0 


I:  62421  1 
I : 65352  0 

C:  16247  1 
I : 71406  0 
I : 51123  0 
C:  44701  1 

I : 51 123  0 
C:  44723  1 
C:  00401  1 
05  203  0 


16476  0 
T : 47133  0 
C:  44417  0 
I : 41325  0 


I : 

72421 

0 

C : 

00015 

0 

C : 

10003 

0 

I:  41365 

0 

C: 

000  IT 

1 

I : 

72405 

0 

C: 

00001 

0 

I : 72415 

1 

C : 

10007 

1 

I : 

77745 

1 

C : 

00013 

0 

I : 72405 

0 

C: 

00001 

0 

I : 

72676 

1 

C: 

10013 

1 

I:  41345 

0 

I : 

77745 

1 

I : 

72405 

0 

C: 

00011 

1 

I:  41325 

0 

C: 

67760 

1 

I : 

77745 

1 

I : 

72405 

0 

C:  C0011 

1 

I : 

77626 

0 

C : 

67  756 

1 

I : 

77616 

0 

I:  41401 

I 

I : 

4 1021 

1 

C : 

06  5 20 

0 

C: 

21712 

0 

I : 77725 

1 

C: 

00003 

1 

I : 

77604 

0 

C : 

21712 

0 

C:  16231 

0 

C : 

00003 

1 

I : 

77604 

0 

C : 

21712 

0 

C:  16241 

1 

C : 

000C3 

1 

I: 

77604 

0 

C : 

217  12 

0 

C:  02251 

0 

r • 

n a a r>  k 

1 

T • 

4 1 -2  o c 

n 

r • 

1 

r • n n AH  1 

n 

V*  • 

1 

1 • 

• I (-  -> 

u 

u • 

O JO  1 U 

I 

u 

C : 

16237 

0 

I : 

62421 

i 

I : 

77606 

0 

C:  21712 

0 

C : 

0000  5 

1 

t ; 

65352 

0 

C: 

03273 

1 

It  41405 

0 

I:  77604 
C:  03271 


I:  62421  1 
I:  41152  1 
C:  00001  0 
I : 77625  0 

C:  00C11  1 
I:  52025  1 
12732  1 
C:  03234  1 


22,2740 

22,2750 

22,2 

22,2770 


C:  44066  1 
C:  04772  1 
I : 55605  1 
C:  45  010  1 


15155  1 

I:  45002  1 

C:  05002  0 

C:  00221  0 


I:  77776  1 
C:  44527  1 
C:  04772  1 
C:  242  55  0 


12732  1 
I : 74343  0 
1 : 27-61  0 
C:  00554  0 


I:  77614  1 
C:  04772  1 
C:  206C6  C 
C:  02660  0 


C:  01074  0 
C:  03271  0 
C:  03334  0 
C:  02660  0 


I : 70740  0 
C:  17326  0 
I : 77616  i 

C:  13301  l 


C:  01325  1 
C:  03336  1 
C:  01035  0 
C:  16161  0 
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OCTAl  LIST  I'  G FC  PARAGRAPH  >1  132,  WITH  PARITY  61  T IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3”  DENOTES  UNUSED  FIXED  MEMORY 


AH  VALID  WORDS  Ar  E BASIC  INS"  : i ICT  IONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


2 2 , 3 C 0 0 

C : 

30  707 

1 

C: 

G0CG3 

1 

C: 

040  GO 

0 

04616 

1 

C: 

64262 

0 

10000 

0 

12730 

0 

06037 

0 

2 2,  3010 

I : 

75  ISO 

1 

C : 

03246 

1 

C : 

02230 

1 

I : 

77624 

1 

C : 

44312 

1 

t ; 

45575 

1 

C : 

50514 

1 

I : 

77626 

0 

22,3020 

C : 

50  5 22 

1 

I : 

77626 

o 

C: 

745  30 

1 

I : 

45160 

1 

C : 

03246 

1 

C: 

44654 

0 

I : 

77634 

0 

C : 

21620 

0 

22,3030 

C: 

03  304 

0 

l : 

774  14 

0 

f : 

01215 

0 

C : 

45122 

1 

34752 

0 

55272 

0 

51272 

1 

31676 

1 

22,3040 

00  006 

1 

51272 

1 

21703 

0 

00006 

1 

73121 

1 

1U000 

0 

64753 

1 

13051 

1 

2 2,3050 

40  000 

0 

51272 

1 

55640 

0 

51272 

1 

31703 

1 

5127  2 

1 

57676 

1 

5 1272 

1 

2 2,  306  0 

556  35 

1 

11272 

0 

1 30  35 

0 

00003 

1 

0 3075 

0 

13170 

0 

34753 

1 

00004 

0 

22,3070 

05203 

0 

C : 

0 32  13 

1 

C : 

44066 

1 

C 0003 

1 

15155 

1 

00006 

1 

40025 

1 

5 3710 

1 

22,3100 

00006 

1 

3 1734 

0 

217  10 

1 

11707 

1 

C 0 0 0 2 

0 

13107 

0 

13  1 17 

1 

11710 

1 

22,3110 

00002 

0 

13113 

0 

40000 

0 

63166 

0 

00006 

1 

63117 

0 

24002 

0 

24002 

0 

22,3120 

00002 

0 

C: 

03146 

1 

I : 

77776 

1 

OCG06 

1 

30025 

0 

21734 

1 

00006 

1 

43166 

1 

22,3130 

21  734 

1 

0 0 C 04 

0 

34752 

0 

557''  1 

1 

6 0000 

1 

55  702 

1 

50000 

1 

31  72  5 

0 

22,31 40 

51701 

0 

c 5643 

0 

000  06 

1 

6 3146 

1 

40000 

0 

00006 

1 

73167 

0 

00006 

1 

22,3150 

51  702 

0 

71725 

1 

00006 

1 

51701 

0 

11330 

1 

51701 

0 

55277 

0 

11701 

1 

22,3160 

13  133 

1 

3 002  5 

0 

63166 

0 

57706 

1 

13034 

1 

C : 

00000 

1 

C : 

00144 

0 

C : 

75777 

1 

2 2 , 3 1 70 

40  025 

1 

61  n 

1 

1 00  00 

0 

6475  3 

1 

13177 

1 

64735 

1 

40  000 

0 

00004 

0 

2 2,  32  00 

05  20  3 

0 

C: 

03206 

0 

C : 

4 40  66 

1 

.3  3166 

0 

27706 

0 

1515  5 

1 

37714 

1 

05105 

0 

22,321" 

C : 

03003 

1 

C : 

4 4 0%  6 

1 

0 5261 

1 

3475  6 

1 

55642 

1 

55  5^5 

0 

55  301 

0 

55641 

1 

2 2,  3220 

55644 

1 

55300 

1 

30323 

0 

55637 

0 

30322 

1 

55636 

1 

30321 

1 

55  63  5 

1 

22,3230 

34755 

1 

55643 

0 

55640 

0 

5 5277 

0 

31311 

0 

54063 

0 

34755 

1 

53310 

0 

22,3240 

05  116 

1 

13?'  1 

1 

060  37 

0 

I : 

62014 

0 

C: 

037  12 

0 

C : 

45465 

1 

C: 

45  247 

1 

! : 

77776 

1 

22,3250 

34752 

0 

550  "1 

0 

34753 

1 

55052 

0 

33316 

0 

046  16 

1 

C : 

20334 

1 

05472 

0 

22,3260 

03262 

1 

03254 

1 

34760 

1 

06203 

0 

C: 

03430 

0 

C : 

/ . /.  Ci  A /U. 

0 

00003 

1 

33320 

0 

2 2,3270 

54  003 

0 

34755 

1 

55537 

0 

35021 

1 

05105 

0 

C : 

03321 

1 

C: 

44064 

0 

00003 

1 

22,3300 

36  245 

1 

715  37 

0 

10000 

0 

03310 

0 

34777 

1 

04616 

1 

C : 

01735 

1 

03300 

1 

22,3310 

33  317 

1 

046  16 

l 

C : 

203  34 

1 

05563 

1 

05563 

1 

03267 

1 

C: 

01014 

0 

C : 

04054 

1 

22,332 > 

C : 

02  140 

0 

06037 

0 

I : 

776  3'' 

0 

C : 

2 1 57  3 

0 

C: 

00041 

1 

C : 

02205 

1 

I : 

77776 

1 

41052 

0 

22,3330 

64753 

1 

00006 

1 

133  r>6 

0 

06037 

0 

I : 

77624 

1 

C: 

27043 

0 

I : 

77775 

1 

C: 

00001 

0 

22,3340 

C: 

26  207 

0 

C: 

00C07 

0 

C : 

02215 

0 

I : 

77743 

1 

C : 

737  74 

1 

C : 

00037 

0 

I : 

77743 

1 

C : 

7 2411 

0 

22,  3350 

C: 

02201 

3 

I : 

46135 

1 

C : 

000  50 

1 

C: 

45367 

1 

I : 

77650 

1 

C : 

45373 

1 

06  037 

0 

1 : 

77624 

1 

22,33c" 

C : 

27057 

0 

I : 

7 76  50 

1 

C : 

453  36 

0 

C: 

oocni 

0 

C: 

11530 

1 

C : 

00002 

0 

C: 

31230 

1 

T : 

43145 

0 

22,3370 

C : 

06315 

0 

C : 

03  6 35 

1 

C : 

4 53  77 

c 

I : 

61575 

1 

C: 

02023 

1 

I : 

776  14 

1 

C : 

03475 

1 

C: 

36203 

0 

GAP 
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3CTA1  LISTING  FOR  PARAGRAPH 

4 133, 

WITH 

PARITY 

BIT 

IN  BINARY 

AT 

THE  RIGHT  OF 

EACH  WORD,  "3 

II 

DENOTES  UNUSED 

FIXED  MEMORY 

ALL  VALID 

WORDS  ARE 

BASIC  INSTRUCTIONS 

EXCEPT  THOSE 

MARKED  "I" 

( I NTERPRETIVE 

OPERATOR  WORDS) 

OR  "C" 

1 ( CONSTANTS ) 

22*3400 

C:  45551 

I I : 

4 52  34 

0 

C 

: 21573 

0 

C : 

02205 

1 

C : 

02205 

1 

I:  53145 

1 

C : 

02143 

0 

C:  45420 

0 

2 2,3410 

I:  43345 

1 C : 

02143 

0 

C 

: 022  05 

1 

C : 

(.2143 

0 

T : 

77776 

1 

34753 

1 

55537 

0 

05  155 

0 

22,3420 

t:  43345 

1 C : 

0 2141 

1 

c 

: 02205 

1 

C : 

02141 

1 

t ; 

77776 

1 

34752 

0 

55537 

0 

05155 

0 

2 2, 3*30 

34  747 

l 

71044 

1 

10000 

0 

C 3441 

0 

37713 

0 

05072 

1 

C : 

0547? 

0 

C:  04062 

1 

22,3440 

05261 

1 

34777 

1 

05203 

0 

C: 

03430 

0 

C : 

4 4 064 

0 

36245 

1 

71537 

0 

50000 

1 

22,3450 

03451 

1 

0 5261 

I 

03460 

0 

34777 

1 

54001 

1 

34755 

1 

21541 

1 

05261 

1 

22,3460 

34  77  7 

l 

5 4 0 0 1 

1 

34755 

1 

21543 

0 

C 526 1 

1 

I : 77776 

1 

35021 

1 

05105 

0 

22,3470 

C:  03503 

1 C : 

44-0  64 

0 

00003 

1 

10067 

1 

05122 

0 

33317 

1 

04616 

1 

C:  20334 

1 

22,3500 

05563 

1 

05563 

1 

03475 

1 

06037 

0 

I : 

52175 

0 

C:  01221 

1 

C : 

45  507 

1 

C:  26207 

0 

22,3510 

C:  01227 

1 C : 

02215 

0 

I 

: 52014 

0 

C: 

04304 

1 

C : 

45516 

1 

C:  45527 

0 

I : 

71214 

0 

C:  03475 

1 

22,3520 

C:  04001 

1 C : 

140:37 

c 

c 

: 05364 

0 

C : 

26201 

0 

€ : 

0202  3 

1 

I:  52046 

1 

C: 

45536 

0 

I:  71214 

0 

22,3530 

C:  03675 

0 C : 

04  003 

0 

C 

: 14037 

0 

C: 

05366 

1 

C: 

16201 

0 

C:  063 1 5 

0 

C : 

36203 

0 

C : 45551 

1 

9 9 OK,/., 

T « 77  77  f' 

I 

7 

1 

1 

c , * on  a 

1 

1 447? 

1 

o.c  77  7 

1 

04  A 1 A 

1 

C • A1 7QC 

I • f * I 1 D 

1 

9 *7  . f 

1 

I I u rt 

1 

VJ  VJ  o 

i 

I 9*T  1 C- 

1 

1 

O 1 O 

1 

'v>  • V 1 I J / 

I 

22,3550 

03503 

1 I : 

44CC1 

0 

c 

: 00001 

0 

C: 

00051 

0 

I : 
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0 
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0 
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0 
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ASSEMBLE  REVISION  001  OF  AG C PROGRAM  API 1RUPE  BY  EYLES 
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0 : 
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OCTAL  LISTING  FOk  PARAGRAPH  < 1 >,  ITH  PARITY  BIT  IM  BINARY  AT  THE  LIGHT  LF  EACH  WnR  D,  "a"  DEN  TES  UNUSED  FIXED  MEMORY 


ALL  VALID  WOLDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  ”1"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 
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0 
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0 
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0 
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0 
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0 
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0 

C : 

64063 

0 

34774 

1 

05224 

0 

40110 

0 

74  7 42 

0 

10000 

0 

15261 

0 

24,337 0 

40076 

1 

74740 

1 

000  06 

1 

13376 

1 

26076 

1 

13356 

0 

34753 

1 

13363 

0 

GAP:  ASSEMBLE  , EVIS1  ;N  001  OF  AGC  PROGRAM  AP11RUPE  BY  EYLES 


3: 15  DEC 


2,1570 


PAGE  1673 


OCTAt  LISTING  FOR  PARAGRAPH  143,  WITH  PARITY  B I T IN  BINARY  AT  THE  RIGHT  OF  EACH  WDTD,  "3"  DENOTES  UNUSED  FIXFD  MEMORY 


ALL  VALID  WORDS  ATE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C " (CONSTANTS) 
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0 
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I : 63501  0 
l : 47057  0 

C:  OCU25  0 
I : 77624  1 
C:  54624  0 
I:  53715  1 

I : 5 3606  1 
C:  00031  0 
I:  53725  1 
I:  47235  0 


C:  21616  0 
I : 6 3014  0 
I : 45014  0 
C:  27414  0 

I : 43014  0 
I:  77624  1 
C:  11244  0 
C : 01476  C 

I : 45014  0 
55745  1 
I : 7 7714  0 
I:  54235  0 

T : 574 14  I 
I:  44257  1 
C:  00047  1 
C:  57176  0 

C:  02707  0 
r:  55333  1 
I:  77761  1 
C:  016G1  1 

C:  56174  0 
I : 500  25  0 
C:  C3751  1 
I : 57414  1 


C:  03070  0 
C:  04307  1 
C : C 1 6 7 4 0 
I:  43014  0 

C:  01474  1 
C : 27414  0 
T:  77624  l 
C:  01475  0 

C:  02716  0 
04616  1 
C:  00002  0 
C : 01775  0 

C:  00707  1 
C:  56174  0 
I:  53605  1 
C:  21633  1 

I:  77624  1 
I:  53725  1 
C:  00045  0 
C:  57170  0 

I:  573U  1 

C:  02707  0 
C:  56577  1 
C : 00707  1 


"C 

" (CONSTANTS) 

C : 

34  344 

0 

C : 

00000 

1 

C: 

55200 

0 

C : 

02466 

1 

C : 

26644 

0 

I : 

77624 

1 

C : 

01676 

1 

C : 

02756 

1 

C : 

01673 

1 

I : 

45014 

0 

I : 

45  014 

0 

C: 

01474 

1 

C : 

27414 

0 

I : 

c 3 014 

0 

I : 

43014 

0 

C: 

01673 

1 

C : 

54510 

1 

C : 

5525  1 

1 

C : 

46123 

0 

06037 

0 

I : 

45  134 

0 

C: 

03720 

1 

C : 

20635 

0 

T ; 

77634 

0 

r • 

f, 

r • 

r\ 

U • 

Z>  cr  cr  ' 

u 

V.  • 

C.  f C.  J 

C : 

03757 

1 

I : 

0 

C: 

01771 

1 

C : 

20577 

0 

C : 

02707 

0 

I : 

76276 

0 

C : 

55401 

1 

t ; 

4 5131 

0 

C: 

00045 

0 

C: 

57202 

0 

C : 

27533 

1 

C: 

01653 

0 

I : 

52255 

1 

C: 

01615 

1 

r : 

0 1 77  3 

0 

C : 

0 2 707 

0 

C : 54  6 62 
!:  77625 


C:  54677  0 


7^745  1 
77675  0 
I:  77657  0 


t ; 

T • 


26,2700 

26,2710 


C:  57  200  1 
I:  61575  1 


C:  27525  0 
C:  03533  1 


C:  06522  1 
I : 7 1 3 0 1 0 


C:  00025  0 

C : 00027  1 


C:  27541  1 
C:  00027  1 


C:  C 3 5 2 5 0 
I:  50025  r 


I : 60  246 
C:  00025 


C:  C0025  0 
C:  5 4 72  3 0 


26,2720 

I : 

52  150 

1 

C : 

30C26 

0 

C:  .4725 

0 

I : 

77750 

0 

C: 

COO  2 4 

1 

I : 

53?7C 

1 

C : 

03  525 

0 

C:  20201 

0 

2 6,2  730 

C : 

27525 

0 

C : 

03  c ? 3 

1 

I:  77657 

0 

C : 

20201 

0 

C: 

17533 

1 

C : 

03547 

1 

I : 

77657 

0 

C:  20201 

0 

26,2740 

C : 

03  547 

1 

I : 

53745 

1 

C : 00045 

0 
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20200 

1 

I : 

41316 

0 
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02707 

0 
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47012 

1 

C:  21633 

1 

2 6,2  750 

C: 

36707 

1 
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55401 

1 

i:  77624 

1 

C: 

1 1 244 

0 

I : 

77414 

0 

C : 

04307 

1 

C : 

55  176 

1 

33332 

0 

26,2760 

54  006 

0 

314  57 

0 

547  66 
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31460 

1 

54770 

0 

314  6 1 

0 

54772 

1 

06037 

0 

26,2110 

I : 

-6175 

0 

C : 

065  20 

0 

C : 47664 

0 

l : 

76505 

0 

C: 

01734 

0 

C: 

27677 

1 

C : 

06516 

0 

I:  77624 

1 
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26,3000 

C : 

47673 

0 

I : 

765  G5 

0 

C : 

01734 

0 

C: 

27705 

0 

C: 

C 65  14 

l 

I : 

7 7 624 

1 

C : 

47673 

0 

I : 

76505 

0 

26,3010 

C : 

01734 

0 

C : 

37713 

0 

C : 

5 5361 

0 

1 : 

41131 

0 

C: 

03746 

1 

C : 

00003 

1 

C: 

11244 

0 

I : 

50375 

0 

26,3020 

C: 

03724 

0 

C: 

036  77 

1 

I : 

7 775? 

1 

C: 

24023 

0 

C: 

03724 

0 

I : 

72441 

0 

C : 

03713 

1 

C: 

34021 

0 

26,3030 

C : 

26  5 10 

1 

I : 

41221 

0 

C: 

037  36 

0 

C : 

1 5441 

1 

I : 

414^2 

0 

T : 

52  545 

1 

C : 

01701 

0 

t : 

44257 

1 

26,3040 

C: 

56176 

1 

I : 

53605 

1 

C: 

03722 

0 

C: 

21601 

0 

C : 

27547 

1 

C : 

03724 

0 

I : 

76  43  5 

1 

C: 

03705 

0 

26,3050 

I : 

77656 

1 

I : 

57414 

1 

C: 

007  47 

G 

C: 

55C54 

0 

C : 

27525 

0 

C: 

06522 

1 

C : 

03533 

1 

C : 

17541 

1 

2 6,3060 

C: 

03  722 

0 

I : 

536  57 

0 

C : 

2 05  77 

0 

C : 

56176 

1 

C : 

03541 

1 

1 : 

77735 

0 

C : 

02011 

0 

I : 

41215 

1 

26,3070 

C : 

15  436 

1 

C : 

03722 

0 

I : 

41257 

1 

C : 

216  01 

0 

C: 

03722 

0 

l : 

530^7 

0 

C: 

20577 

0 

C : 

57176 

0 

26,3100 

I : 

47  05  7 

0 

C : 

57176 

0 

C: 

21633 

1 

C : 

36707 

1 

C : 

55401 

1 

T : 

77624 

l 

C : 

11244 

0 

I : 

77624 

1 

26,3110 

C : 

55361 

0 

I : 

45131 

0 

C: 

03746 

1 

C : 

00004 

0 

C: 

11244 

0 

I : 

47  37  5 

0 

C : 

03724 

0 

C : 

03705 

0 

26,3120 

I : 

47  37  2 

1 

C: 

037  24 

0 

1 : 

77772 

0 

I : 

57414 

1 

C : 

00747 

0 

C : 

55127 

1 

C : 

27525 

0 

C: 

06522 

1 

26,31 30 

C : 

03533 

1 

C: 

1 7 6 •! 

1 

C: 

03722 

0 

I : 

53  6 57 

0 

C: 

20577 

0 

C: 

56  17  6 

1 

C : 

03543 

0 

1 : 

77735 

0 

26,3140 

C: 

02  012 

0 

T : 

41215 

1 

C : 

I 5436 

1 

C : 

03722 

0 

I : 

41257 

1 

C: 

21601 

0 

C: 

03722 

0 

I : 

53657 

0 

26,3150 

C : 

20577 

0 

C: 

57175 

0 

I : 

47057 

0 

C : 

57176 

0 

C: 

21633 

1 

C : 

16  707 

0 

C : 

03732 

1 

I : 

44336 

1 

2 6 , 3 1 60 

C: 

03734 

1 

I : 

56405 

0 

C : 

15441 

1 

I : 

52525 

1 

C: 

C 17  03 

1 

I : 

44257 

1 

C : 

56  176 

1 

I : 

53605 

1 

26,3170 

C: 

03  722 

0 

C: 

21601 

0 

C: 

3 75  47 

0 

C : 

55401 

1 

I : 

77624 

1 

C : 

1 1 244 

0 

I : 

77650 

1 

C: 

50566 

1 

2 6,3  21  C 

I : 

77624 

1 

C : 

274  14 

0 

I : 

430  14 

0 

C: 

0 17? 

1 

C : 

C 1674 

0 

I : 

77624 

1 

C : 

55  242 

0 

I : 

77624 

1 

26,3210 

C: 

11244 

0 

r : 

450  14 

0 

t : 

02666 

0 

C: 

27414 

0 

I : 

461^5 

0 

C : 

03  463 

0 

C: 

55  231 

1 

I : 

43014 

0 

26,3220 

C : 

01675 

1 

C : 

Ol^  76 

0 

I : 

43014 

0 

C: 

01474 

I 

C: 

01673 

1 

I : 

77624 

1 

C: 

55242 

0 

I : 

7765  0 

1 

26,3230 

C: 

54510 

1 

I : 

776  24 

] 

C : 

55251 

1 

I : 

45  014 

0 

C : 

01474 

1 

C: 

26644 

0 

I : 

77624 

1 

C : 

55242 

0 

26,3240 

I : 

77  65  0 

1 

C: 

5 45  10 

1 

I : 

71220 

1 

C: 

03675 

0 

C : 

03755 

0 

C: 

34041 

0 

C : 

27  134 

1 

I : 

77650 

1 

26,3250 

C: 

03  67  5 

3 

I : 

77776 

1 

333  31 

0 

54  006 

0 

334  37 

1 

55257 

1 

34755 

1 

51257 

0 

26,3260 

55400 

0 

112  5 7 

1 

03255 

0 

33332 

0 

540  06 

0 

06037 

0 

T : 

67214 

1 

C : 

04307 

1 

26,3270 

C: 

55  274 

0 

C: 

02001 

1 

I : 

77650 

1 

C : 

55276 

1 

I : 

77735 

0 

C : 

02007 

1 

I : 

77661 

0 

C: 

20606 

0 

26,3300 

C : 

02  401 

0 

C: 

02411 

1 

C : 

02421 

1 

I : 

67  2 1 <r 

1 

C: 

04307 

1 

C: 

55  31  1 

1 

C : 

02002 

1 

T ; 

77650 

1 

26,3310 

C: 

553  1 3 

0 

I : 

777  35 

0 

C : 

020  10 

1 

C : 

02511 

0 

C : 

02521 

0 

C: 

025  31 

1 

1 : 

77735 

0 

C: 

0 2 003 

0 

26,3320 

C : 

02621 

0 

I : 

77  7 35 

0 

C: 

02004 

1 

C: 

02631 

1 

I : 

66216 

0 

C : 

C2476 

0 

C : 

03463 

0 

C : 

00000 

1 

26,  3330 

T • 

77616 

0 

C : 

54065 

0 

C. : 

54067 

1 

I : 

77201 

1 

Ct 

' 4001 

0 

C: 

01645 

1 

r : 

7775/ 

1 

C: 

C 3720 

1 

26,3340 

I : 

53257 

1 

C : 

57  165 

1 

C : 

01661 

1 

I : 

53715 

1 

C : 

01573 

1 

C : 

57165 

1 

I : 

52  2 55 

1 

C: 

01607 

1 

26,3350 

I : 

41434 

1 

C : 

21724 

0 

C : 

17724 

0 

C: 

00045 

0 

T ; 

77657 

0 

C: 

2C201 

0 

C : 

24  045 

0 

C : 

03724 

0 

26,3360 

I : 

77616 

0 

I : 

4 30  20 

1 

C : 

036  75 

0 

C : 

5 5333 

1 

I : 

50276 

1 

C : 

03705 

0 

I : 

41572 

1 

C: 

03732 

1 

26,3370 

I : 

44316 

0 

C: 

065  12 

1 

I : 

413  66 

1 

C: 

( 0045 

0 

I : 

6 03  5 2 

0 

C : 

00047 

1 

C : 

03722 

0 

I : 

77650 

1 
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26,3400 

C:  03675 

0 

I : 4 5020 

1 

C: 

0 36  75 

0 

C: 

46  531 

26,3410 

C:  56174 

0 

C : 243  1 7 

] 

C : 

02665 

0 

I : 

5 3 o4  6 

26,3420 

C:  20613 

1 

I:  50C25 

0 

C: 

003  15 

0 

C : 

50  57  2 

C : 60  5 7 2 

I : 7762* 

1 

C : 

46743 

c 

I : 

77b50 

C.  O f IH’ 

26,3*40 

C:  31103 

1 

C:  36652 

0 

34755 

1 

55736 

o A 2 / c n 

7n  07  A 

nnr  fiA 

i 

141  4 4 

1 

33713 

A O f D 1 U 

/ y u i & 

VWlvO 

1 

l 2 i 2 2 

1 

26,3460 

00003 

1 

40110 

0 

74736 

0 

00006 

26,3470 

C:  15715 

0 

C:  3404 1 

0 

C : 

27100 

0 

I : 

77775 

26,3500 

C:  00015 

0 

C:  34041 

0 

C : 

27066 

1 

I : 

52375 

26,3510 

C:  00007 

0 

I : 472  56 

0 

C : 

00001 

0 

I : 

77656 

26,3520 

I:  76521 

D 

C:  01734 

0 

C : 

03740 

1 

I : 

53135 

26,3530 

C:  55623 

0 

I : 77776 

1 

0 : 

03720 

1 

C : 

240  15 

7 C 7,  A / r\ 

p * f ' n a i c; 

0 

, • 

5 33*1 

0 

r • 

pa  c ->  n 

A O t ->  U 

y • A r f c ' 

1 

I • 

26,3550 

I : 77761 

1 

C:  157C5 

1 

C: 

27726 

1 

C: 

00023 

2 6,  3560 

C:  03726 

1 

I : 53361 

0 

C : 

15707 

0 

C : 

03712 

7 a , k 7 n 

f • p si  74. 0 

1 

p.  • n i 7 / l 

n 

T • 

7 77  7 h 

1 

00004 

A O f .3  / 1 

y * v3  i tv 

1 

y • 2 j.  * i 

l • 

26,3600 

64735 

1 

54  no 

0 

060  37 

0 

I : 

776  24 

26,3610 

00006 

1 

3 0 C 3 4 

1 

^ 3753 

0 

06037 

26,3620 

C:  03735 

0 

I : 777 

1 

05155 

0 

I : 

47375 

26,3630 

C:  03  712 

0 

I:  53435 

c 

C : 

03720 

1 

C : 

03726 

2 6,3640 

C:  01734 

0 

I:  52  1' 2 

1 

C : 

55567 

0 

3 0074 

26,3650 

06  10  5 

0 

C:  036  5* 

0 

C : 

54067 

1 

05261 

26,3660 

13  667 

1 

4 6242 

1 

61736 

1 

( 0006 

26,3670 

55733 

g 

00004 

0 

06027 

1 

C : 

52602 

2 6,3  7 

06027 

1 

C:  55643 

0 , 

05155 

0 

C: 

25547 

26,  37b 

C:  00001 

0 

C : COO  JO 

1 

C.  : 

00454 

1 

C : 

01130 

26,3720 

C:  35733 

0 

I:  7 7624 

1 

C: 

5 1720 

0 

I : 

77775 

2 6,3  730 

r : =2  105 

1 

C : OOP 2 6 

0 

r : 

61706 

1 

I : 

77624 

26,3740 

C:  00025 

0 

I:  77650 

l 

C : 

55725 

1 

I : 

40220 

26,3750 

I : 65  345 

D 

C:  01712 

1 

C : 

14021 

1 

I : 

45006 

2 6,376  0 

C:  00023 

0 

t : 6535 6 

1 

C : 

065  22 

1 

I : 

73525 

26,3770 

C : 06  52  2 

I 

1 : 41525 

0 

C: 

065  20 

0 

l : 

77650 

( 

T NT  EF  PRETI VE 

OPERATOR 

WOFDS)  OR 

"C"  {CONSTANTS) 

1 

c i c 7 r 

1 

I : 53754 

C:  03720 

1 

I * 

i 

C : 

02673 

1 

1 

1 

0 

C: 

56174 

0 

C: 

00315 

0 

T:  5*3  35 

0 

C:  02005 

0 

1 

I : 

45335 

0 

C : 

02006 

0 

C:  00317 

1 

I:  77640 

0 

1 

C: 

0 3675 

0 

C : 

00103 

0 

C:  03370 

0 

C:  00241 

0 

0 

34736 

1 

0000  6 

1 

0^012 

1 

3*736 

1 

1 

00004 

0 

05  203 

0 

C:  03643 

0 

C:  54067 

1 

1 

15155 

1 

06037 

0 

T:  43234 

0 

C:  21573 

0 

1 

C : 

00001 

0 

C : 

27676 

0 

C:  00007 

0 

C:  17740 

1 

1 

C: 

00001 

0 

C : 

03676 

0 

I : 77656 

1 

C:  27712 

0 

1 

C : 

03704 

1 

I : 

52375 

1 

C : OC 

0 

C:  03740 

1 

0 

C: 

03727 

1 

C: 

5 5 o 3 6 

1 

I:  53025 

0 

C:  15711 

1 

0 

C: 

03726 

1 

C : 

00023 

0 

t:  77761 

1 

C:  15705 

1 

pi 

r • 

1 

77  iff 

1 

r * 077  or. 

1 

r * -Annie 

o 

y 

y • 

V D l A ' 

1 

i • 

i 1 C f 

1 

y • Air  AU 

1 

y • UUUI3 

u 

0 

I : 

52361 

1 

C : 

06520 

0 

C:  03726 

1 

I : 77656 

1 

0 

I : 

64256 

1 

C: 

C 1 7 3 4 

0 

I:  77772 

0 

C:  25102 

0 

o 

fVvfl  ? 7 

1 

r • 

A 7 < o o 

1 

L.  L.  7 A 

p\ 

7 n i i n 

n 

u 

UUUo  f 

J. 

u • 

- * c u £ 

1 

4T  f J J 

u 

1 U I i U 

U 

1 

C: 

52373 

1 

J : 

77776 

1 

03675 

0 

03675 

0 

0 

I : 

776  24 

1 

C: 

46  0*  1 

0 

T:  65545 

0 

C:  00045 

0 

0 

C: 

037  04 

1 

C : 

03712 

0 

I : 77656 

1 

C:  27720 

1 

l 

I : 

77650 

1 

C: 

55561 

0 

I:  64375 

1 

C:  03712 

0 

i 

74745 

1 

00006 

1 

15261 

0 

37713 

0 

l 

34750 

1 

00006 

1 

02033 

0 

00006 

1 

i 

13442 

1 

25736 

1 

1344* 

1 

33703 

0 

l 

05155 

0 

05567 

0 

C:  00527 

1 

00004 

0 

0 

C. : 

3 3555 

1 

C : 

01106 

1 

C:  01642 

0 

C:  11045 
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5345  1 

1 

C : 

03537 

0 

I : 

63361 

0 

C : 

00037 

0 

27,31 10 

C: 

03  656 

1 

I : 

53455 

0 

C : 

035  37 

0 

I : 

53361 

0 

C : 

00041 

1 

I : 

53  744 

0 

C: 

02777 

1 

C: 

57177 

1 

27,3120 

C : 

02  337 

1 

I : 

776  50 

1 

C: 

5716o 

1 

I : 

50375 

0 

C: 

03656 

1 

C : 

C3537 

0 

I : 

77240 

1 

C : 

57146 

0 

27,3130 

C: 

03  6 56 

1 

I : 

63362 

0 

C.: 

035  37 

0 

I : 

53362 

0 

1 : 

77656 

1 

T : 

57406 

1 

t : 

■'5  2 35 

1 

C: 

02674 

0 

2 7 , 3 1 AO 

C : 

02673 

1 

T : 

74256 

0 

C : 

00037 

0 

1 : 

77715 

1 

I : 

77650 

1 

C: 

c 7 1 1 3 

o 

I : 

74  575 

0 

C: 

03537 

0 

27,3150 

I : 

7 4 5 1 r' 

0 

C : 

03656 

1 

I : 

53451 

1 

I : 

77606 

1 

I : 

75235 

1 

C : 

02674 

0 

C : 

02673 

1 

I : 

74256 

0 

27,3160 

C : 

00  0 4 1 

1 

I : 

77715 

1 

I : 

5 3361 

0 

C : 

00037 

c 

I : 

77650 

1 

C: 

57115 

0 

T : 

77651 

0 

C : 

03553 

1 

27,3170 

C : 

02  366 

0 

I : 

53135 

0 

C : 

03000 

1 

C : 

57177 

1 

I : 

52175 

0 

C : 

02366 

0 

C: 

57  212 

1 

I : 

53575 

0 

2 7 , 3 2 C •: 

C: 

- 1 221 

1 

I : 

4 5346 

1 

C : 

012  35 

1 

C : 

03512 

1 

I : 

56205 

0 

C : 

16023 

1 

C : 

00  04  3 

0 

I : 

53361 

0 

2 7 , 3 2 ] 0 

C : 

03  521 

1 

C: 

02366 

0 

C : 

023  66 

0 

r : 

7 76  50 

1 

C : 

56455 

0 

C: 

31103 

1 

C : 

36652 

0 

05516 

0 

27,3220 

C : 

00  137 

1 

45017 

0 

00006 

1 

03012 

1 

35014 

1 

00006 

1 

05012 

1 

05221 

0 

27,3230 

C : 

13560 

0 

450  14 

c 

00006 

1 

03012 

1 

35017 

1 

00006 

1 

05012 

1 

31402 

0 

27,3240 

05  17  3 

1 

C: 

032,60 

0 

31401 

c 

052  24 

0 

44740 

1 

00006 

1 

03012 

1 

30102 

1 

27,3250 

74  74? 

0 

00006 

l 

132  64 

0 

34737 

c 

05072 

1 

C: 

02  32  3 

1 

C : 

02067 

1 

05261 

1 

27,3260 

44742 

0 

000  04 

1 

03012 

1 

13247 

1 

05504 

n 

C : 

00137 

1 

05  261 

1 

I : 

76  5 2 1 

0 

27,3270 

C : 

01  734 

0 

I : 

77650 

1 

C : 

47646 

0 

1 : 

50375 

0 

C: 

03254 

1 

C : 

02146 

0 

I : 

51025 

1 

C : 

02577 

0 

27,3300 

C: 

57  307 

1 

1 ; 

503  7 5 

o 

C : 

DPI  46 

0 

r • 

03.537 

n 

r • 

cnnot 

0 

r . 

r \ 9 a n i 

1 

f ; 

30351 

0 

T • 

77614 

1 

1 J 4-  i-  T 45 

• 

i •* 

Vj  U C.  2 

* 

V.  6,01/  l 

1 

1 • 

1 

27,3310 

C : 

04631 

l 

C: 

1 

1 

I : 

50375 

0 

C : 

0 35  37 

0 

C : 

037  2 0 

1 

[ : 

4 1312 

1 

C : 

03631 

0 

C: 

0 2 335 

0 

27,3320 

I : 

77616 

0 

00006 

1 

333  57 

0 

33253 

0 

4010  3 

1 

7^745 

1 

26  103 

1 

34735 

1 

2 7, 3 3 3r’ 

54107 

n 

00*006 

1 

34755 

1 

52753 

1 

3010? 

1 

74744 

0 

10000 

0 

13343 

1 

27,3340 

00006 

l 

34755 

1 

52755 

1 

00006 

1 

34755 

1 

5 27  57 

0 

00006 

1 

34755 

1 

27,3350 

52765 

i 

34764 

0 

540  01 

1 

40000 

0 

5 2761 

0 

15644 

0 

C : 

03770 

1 

C : 

64067 

1 

27,3360 

C : 

00  037 

0 

I : 

53575 

c 

C : 

022  07 

0 

I : 

77725 

1 

C : 

0004  5 

0 

C: 

00015 

0 

I : 

77701 

1 

C : 

00047 

1 

27,3370 

C : 

24  04  1 

1 

C: 

02215 

0 

I : 

7 7761 

1 

C: 

00037 

0 

C : 

02170 

0 

I : 

47361 

0 

C : 

00041 

l 

I : 

47572 

1 
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2 7,3600 

C:  14035 

1 

27,3410 

C:  20573 

1 

27, 3420 

C:  00031 

D 

27,3*30 

C:  00033 

I 

C: 

06512 

1 

I : 

632  71 

0 

C : 

0 0 C - 1 

1 

I : 

Ilf  26 

0 

C.  : 

777  44 

0 

I : 

41457 

1 

I : 

75316 

1 

I : 

5 52  54 

1 

C: 

574  25 

0 

C : 

000  3 5 

1 

t : 

57457 

0 

C: 

20571 

0 

27,3660 

27,3650 

27,3660 

27,3*70 


I : 55206  0 C : 00035  1 
C:  57753  1 I:  53656  0 
C:  57663  1 1:  777*5  1 
I:  77616  1 C:  03676  0 


I : 

53657 

0 

C : 

20601 

1 

r • 

57461 

0 

C: 

57b03 

0 

c.  • 

C : 

177  71 

0 

C : 

00021 

1 

C : 

000  2 3 

0 

T : 

77657 

0 

27, 3500 

C: 

06  512 

1 

i:  41206 

0 

C : 

00021 

1 

27,3510 

C: 

20  601 

1 

I:  71214 

0 

C : 

03756 

0 

27,3520 

C : 

57753 

1 

C:  24C45 

0 

C : 

02170 

0 

2 7,3  53- 

C: 

00  045 

D 

C:  14 

0 

C : 

00033 

1 

I:  53725  1 
C:  57515  1 
I:  52641  1 
I : 64205  it 


27,3540  C : 57561  1 T : 653*5 

27,3550  I : 77745  1 I : 4 53'-  5 

27,3560  C : 57535  0 I : 65215 

27,3570  I:  40.145  0 C:  CQG*3 


0 

C : 

06522 

1 

I : 

57545 

1 

1 

C : 

00023 

0 

C : 

00015 

0 

1 

C : 

17761 

1 

C : 

000*3 

0 

0 

C : 

5 7653 

0 

I : 

45471 

1 

2 7,3 6 CO 
27,3610 

27, 3620 
27,3630 


I : 

75  26  1 

0 

C:  2021 6 

1 

C : 

000  45 

0 

C: 

1*045 

0 

C: 

00  043 

0 

I:  41234 

1 

C : 

577  35 

1 

T : 

443P2 

0 

C : 

57  641 

0 

I : 7 5 2 C 6 

1 

C: 

000  17 

1 

I : 

71244 

0 

I : 

77676 

0 

I : 66205 

0 

C : 

17755 

0 

C : 

C 003  1 

0 

2 7,364  C C:  57  576  ] I: 

2 7,365 0 I : ,'77-  • 1 J : *35  5 

2 7,3660  C:  14013  0 I:  ''7626 

27,3670  I:  41C57  D C:  575  76 


0 

C : 

00037 

0 

C: 

576  51 

1 

1 

C: 

17771 

0 

I ; 

77712 

0 

0 

C : 

777  32 

1 

I : 

53605 

1 

1 

C : 

21712 

0 

C: 

000*3 

0 

27,3700 

C: 

17763 

0 

I : 4,1405 

0 

I : 

*(•13  45 

0 

2 7,37}  0 

C: 

30  0 35 

1 

I : 5 3 6 G 5 

1 

C : 

00027 

1 

27,3720 

C: 

CO  0 27 

1 

I:  -13' 

1 

C : 

17755 

0 

27,3730 

C : 

3002  7 

1 

C:  *7601 

1 

T • 

52057 

1 

27,3740 

C: 

12525 

0 

C:  71463 

0 

C : 

57703 

1 

2 7,3  750 

C : 

37256 

1 

C:  774C4 

1 

C: 

52071 

0 

2 7,3  760 

C : 

00000 

1 

C:  CO  IOC 

0 

C : 

04000 

0 

2 3770 

C : 

37  777 

1 

C:  37777 

1 

C : 

0 37  72 

0 

C : CL. ,45  C 
C:  5 7 5 7 5 1 
I : 774  15  t 
C:  57602  1 

C:  04423  0 
06 061  0 
C : 0<  One  1 
C:  03773  1 


C:  C2170  0 
C : 20173  0 
C:  06512  1 
I : c 14 15  0 


C:  20572  0 
I : 40057  1 
I : 77616  0 
C:  20201  0 

C:  00035  1 
C:  06522  1 
C:  02207  0 

c:  00041  i 

C:  00033  1 
C:  14043  0 
T : 53605  1 
C:  77732  1 

i : 6 1206  0 
C:  00023  0 
C:  57645  1 
I : 53657  0 

I:  77c 16  0 
T : 41465  0 
C : 00027  1 
I:  41234  1 

C:  00015  0 
I : 53765  0 
t:  45257  0 
C:  57641  0 

C:  17645  0 
C:  G6220  1 
C:  02000  0 
CKSM  * 5310  1 


I : 

57*36 

1 

I : 

75*46 

0 

C : 

00027 

1 

C: 

17765 

0 

C: 

14017 

1 

C: 

57576 

1 

I : 

7761* 

1 

C : 

00021 

1 

C : 

20573 

1 

I : 

75440 

0 

C : 

00017 

1 

I : 

51*06 

1 

I • 

7 1 9 /.f\ 

1 

I • 

I 

C : 

00045 

0 

C : 

000  31 

0 

[ : 

634G6 

c 

C: 

00033 

1 

I : 

4*1 2 1 5 

1 

C: 

00027 

1 

C : 

57602 

1 

I = 

77745 

1 

I : 

*5345 

1 

C: 

57576 

1 

C : 

57735 

1 

I : 

43312 

0 

C: 

00045 

0 

C : 

57577 

0 

07  22  2 

1 

C : 

74604 

0 

C : 

3755  3 

0 

C : 

00000 

1 

C : 

00025 

0 

I : 

77701 

1 

I : 

77616 

0 

T : 

43  3*6 

0 

I : 

41005 

1 

C : 

57461 

0 

C: 

03  4 36 

0 

I : 

44205 

0 

j : 

43276 

0 

C : 

57650 

0 

I : 

44240 

1 

7 ; 

40015 

1 

C : 

57655 

0 

I : 

52015 

1 

C: 

57201 

0 

I : 

41206 

0 

r ; 

77  6c7 

0 

C: 

00015 

0 

I : 

51076 

1 

C : 

57602 

1 

I : 

77650 

1 

C : 

00045 

0 

I : 

41206 

0 

C : 

00  043 

0 

C: 

00017 

1 

C : 

57576 

1 

C : 

00013 

0 

C : 

00004 

0 

C : 

43667 

1 

C: 

37777 

1 

C : 

00305 

1 

S 


I : 

43257 

0 

C: 

00050 

1 

I : 

41345 

0 

C: 

06512 

1 

C: 

00027 

1 

I : 

77644 

1 

C : 

57472 

1 

C: 

00033 

1 

I : 

77657 

0 

I : 

41076 

0 

C: 

57550 

0 

C: 

177  S'7 

1 

I : 

77616 

0 

C : 

00017 

1 

I : 

77671 

1 

C: 

00035 

1 

C : 

20201 

0 

I : 

5 1 04  2 

0 

C : 

57645 

1 

I : 

43257 

0 

C: 

576*1 

0 

C : 

00017 

1 

C: 

000*5 

0 

I : 

45242 

1 

C: 

14  045 

0 

C: 

14045 

0 

I : 

53605 

1 

C : 

12525 

0 

C: 

01626 

1 

C: 

37700 

1 

C. : 

11205 

0 

3 
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3 Q, 20 CG 

C : 

02  44  5 

0 

C: 

0 02  74 

0 

I : 

77615 

0 

C : 

02201 

0 

C: 

02201 

0 

I : 

^7573 

0 

C : 

02555 

0 

I : 

77615 

0 

3 G, 2010 

C : 

02  203 

1 

C : 

02203 

1 

j • 

475  7 3 

0 

C : 

02643 

1 

I : 

776  15 

0 

C : 

0220  5 

1 

C : 

02205 

1 

I : 

75  500 

0 

3 0,2020 

C: 

62  137 

3 

I : 

77'.  61 

0 

r : 

20b  13 

1 

C : 

16205 

1 

C: 

02203 

1 

I : 

77766 

0 

C : 

16  203 

1 

C: 

02201 

0 

30,2030 

I : 

77766 

0 

C : 

0 2 2 0 1 

0 

t : 

5 2060 

0 

C: 

60035 

1 

C: 

60042 

1 

T : 

7774  5 

1 

C: 

06530 

1 

C: 

02201 

0 

3 0,2  040 

C : 

02  203 

1 

C : 

02205 

1 

t ; 

45345 

1 

C : 

02201 

0 

C: 

20060 

0 

I : 

71240 

1 

C: 

60051 

0 

C : 

20060 

0 

30,2050 

C : 

02201 

2 

1 : 

6 bl  50 

0 

C: 

00051 

0 

C: 

00052 

0 

I : 

77776 

1 

046  35 

0 

C: 

27425 

1 

C: 

C 1 67  0 

1 

30, 2060 

C : 

17  000 

1 

05353 

1 

C : 

040  24 

0 

04  616 

1 

C: 

11254 

1 

0 5 504 

0 

C : 

00141 

0 

05504 

0 

30,2070 

C. : 

00  307 

0 

0 5 5 04 

0 

C : 

00015 

0 

C6Q1  1 

1 

05516 

0 

C: 

00010 

0 

36000 

1 

55251 

1 

3 0,2 100 

34  751 

0 

55515 

0 

34755 

1 

55462 

1 

33035 

1 

04616 

1 

C : 

20476 

0 

16001 

1 

30,2110 

12112 

D 

12  104 

1 

05353 

1 

C : 

04024 

0 

06037 

0 

I : 

77624 

1 

C : 

46432 

0 

I : 

45014 

0 

30,2120 

C : 

04  464 

0 

C : 

6 0254 

1 

I : 

77745 

1 

C: 

25761 

0 

C : 

17517. 

1 

C : 

0344  2 

0 

C : 

34041 

0 

C : 

27057 

0 

3 n, 2 130 

T ; 

64375 

1 

C : 

COO  07 

0 

C : 

01734 

0 

t : 

77772 

0 

C : 

2760  1 

0 

C: 

00001 

0 

I : 

5252  1 

0 

C: 

0 1 734 

0 

30,21 40 

C : 

37  c 2 1 

0 

C : 

6-7  130 

1 

I : 

53575 

0 

C : 

352  1 

l 

C : 

37537 

1 

C : 

c 7 3 1 2 

0 

I : 

*7^61 

0 

C: 

20606 

0 

30,2150 

C : 

17643 

0 

C: 

06456 

0 

C : 

162  77 

1 

C: 

06460 

0 

C: 

02273 

0 

I : 

77776 

1 

05353 

1 

C : 

04024 

0 

30,2160 

33  034 

0 

04616 

1 

C : 

20476 

0 

16001 

l 

12166 

0 

12160 

0 

32320 

1 

55455 

0 

30,2  170 

05353 

1 

C : 

040  2.4 

0 

06037 

0 

I : 

54  345 

1 

C: 

0364  3 

0 

C : 

2 0 206 

1 

I : 

77615 

0 

C: 

02335 

0 

30,2200 

C : 

27633 

1 

C : 

035  37 

0 

I ; 

5 3361 

0 

C : 

06454 

1 

C : 

03601 

0 

C : 

C 3 5 2 7 

1 

t : 

72441 

0 

C : 

03537 

0 

30, 2210 

C: 

27  476 

0 

C : 

035  37 

0 

t ; 

53435 

0 

r : 

03720 

1 

C : 

037  26 

1 

I : 

776  1 4 

1 

C: 

04421 

1 

C : 

60321 

1 

30,2220 

I : 

7?745 

1 

C : 

02361 

1 

I : 

653  16 

0 

C : 

02355 

0 

I : 

43316 

1 

I : 

75454 

0 

C: 

60232 

1 

I : 

55352 

0 

30,2230 

C : 

02  355 

0 

I : 

777  36 

0 

C : 

26363 

0 

C: 

03254 

1 

I : 

50256 

0 

C : 

03537 

0 

I : 

65552 

0 

t : 

77676 

0 

30,2240 

C : 

02  36  5 

0 

I : 

77774 

1 

0 5 3 5 3 

1 

C : 

04024 

G 

05516 

0 

C : 

00213 

1 

0000^ 

0 

04674 

0 

30,2250 

C : 

40  1 42 

1 

00003 

1 

04635 

0 

C : 

74  126 

1 

l's 

77745 

1 

C: 

16  013 

1 

C : 

03  641 

1 

C : 

03637 

0 

30,2260 

C: 

17635 

] 

C : 

16  017 

0 

C : 

16263 

1 

C : 

1 6 02  1 

C 

C : 

16271 

1 

C : 

34013 

1 

1 : 

57-2  7 6 

0 

C: 

20214 

1 

30,2270 

C : 

02267 

0 

I : 

57535 

0 

C : 

26001 

1 

I : 

77702 

1 

C : 

02265 

1 

I : 

43414 

1 

C : 

04747 

1 

C : 

60300 

1 

30,2300 

I : 

43  345 

] 

C : 

25757 

0 

C : 

023  33 

0 

C : 

17631 

0 

C: 

C 65  2 2 

1 

C : 

03654 

c 

C : 

03633 

1 

C: 

02  27  3 

0 

30,2310 

C: 

26  275 

0 

C: 

01563 

r 

I : 

64235 

1 

C : 

015  55 

0 

C : 

C 17  34 

0 

I : 

77656 

1 

C : 

03  7 20 

1 

I : 

77616 

0 

30,2320 

C : 

02  022 

3 

I : 

51575 

1 

C : 

035  21 

1 

C: 

26  301 

1 

C : 

03726 

1 

I : 

7244  1 

0 

C : 

03527 

1 

C: 

26313 

1 
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40143  0 
54021  0 

0000:6  1 
6 3?2  3 1 
C:  00660  1 
10000  0 

10000  0 
Q4o  7 4 0 
C : 0 3146  1 
C : 14344  1 


27643  0 
55644  1 
00006  1 
70750  1 

C00C6  1 
13456  1 
50142  0 
13441  1 

22142  0 
33764  1 
C:  00001  0 
C:  0000 3 1 

30155  0 
22154  1 
03622  1 
54154  0 

00006  1 
30001  0 
00006  1 
00006  1 

54143  0 
4014-3  0 
13652  1 
13700  1 

73726  0 
00006  1 
C:  It 204  0 
22141  0 

64753  1 
C:  4016  5 1 

C:  00071  1 
C:  01463  1 


27643  0 
4157?  1 
70742  1 
27645  0 

73774  1 
64753  1 
11530  1 
31646  1 

54143  0 
03727  0 
I : 50025  0 
I : 5102  1 0 

20001  1 
03622  1 
54155  1 
06037  0 

63607  0 
00006  1 
22144  0 
13654  1 

3  C 1 4-  2 0 
03672  1 
10001  1 

500  00  1 

63725  1 

70141  l 
C:  50744  0 
13737  0 

00002  0 
13475  0 
C:  02041  0 
C:  03775  1 


41676  0 
00006  1 
20001  1 
27645  0 

03743  1 
00006  1 
54001  1 
54003  0 

40000  0 
60143  1 

C:  21767  1 
C : 06512  1 

5A  145  0 
54156  1 
34750  1 
I:  77616  0 

40000  0 
10145  0 
54142  1 
10143  0 

03672  1 
64736  1 
347S5  1 
44734  1 

00006  1 
63722  0 
C : 20  3 1 5 1 
13741  1 

40000  0 
05567  0 
C:  01673  1 
C:  03776  1 


00006 

1 

70742 

1 

00006 

1 

27645 

0 

50142 

0 

50142 

0 

33771 

0 

06037 

0 

60001 

0 

54001 

1 

C: 

61232 

0 

C: 

61542 

0 

net;. 

1 D J ZJ  c_ 

1 

34755 

1 

03600 

1 

C: 

00016 

0 

60  145 

1 

54001 

1 

30001 

0 

34755 

1 

03743 

1 

54143 

0 

0000  2 

0 

54021 

0 

70141 

1 

00006 

1 

54141 

1 

30001 

0 

00002 

0 

C: 

00401 

1 

C : 

03434 

1 

CKSM 

7 1361 

0 

2,1970 
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GAP:  ASSt-BLb  Ft  VISION  CGI  OF  AGC  PROGRAM  AP11R0PE  BY  tYLES  3:15  DEC. 

OCTAL  UGili'v  FC ' P A;'  At?  AFH  # l--,  WITH  P A > I T Y BO  T W BIhA’.Y  A7  tHE  P I GHT  OF  EACH  WOPU,  "3"  DENOTES  UNUSED  FIXED  MEMORY 


All  VALID  WOODS  AF  E BASIC  INSTRUCTIONS  EXCEPT  THOSE  MAFKEO  "I" 


31,2000 

C: 

00222 

0 

C : 

533  16 

0 

C: 

07401 

0 

C: 

066 1 3 

31,2010 

1: 

77  62  4 

1 

a 

6 21 20 

0 

I : 

77776 

l 

00006 

3 1,2020 

53611 

1 

00  0.06 

1 

31605 

0 

53613 

12  03  2 

n 

I 20  6 4 

1 

22007 

0 

347  Sr' 

31,2040 

61606 

0 

260  C 1 

1 

10002 

1 

12034 

31,2050 

C : 

00  160 

0 

06037 

0 

I : 

77414 

0 

C: 

03707 

3 1,2  0 60 

I : 

726  12 

0 

C : 

14  301 

0 

C: 

02203 

1 

C : 

14003 

3 1,2070 

I : 

7 20  3.4 

1 

C: 

04  307 

l 

C.  : 

62102 

0 

C : 

oocoo 

31,2100 

C : 

02  001 

1 

C : 

621  10 

0 

I : 

661  50 

0 

C. : 

00000 

3 1, 2 1 10 

T • 

66  150 

0 

C : 

00004 

o 

C : 

02003 

0 

T : 

77730 

3 1,2120 

I : 

40  020 

1 

C : 

00  C 1 

0 

C: 

62123 

0 

1 : 

45014 

3 1,2130 

C : 

00  006 

1 

C : 

06  5 22 

1 

C : 

0 2201 

0 

C : 

4 2203 

21.?i An 

r • 

02467 

7 .... 

[ * 

7 7 fi.  r n 

l 

r « 

oo  0 ? 

(\  ■ : 

C : 

: n j_  a a ^ 

31,2150 

C : 

40  153 

1 

C4616 

1 

C : 

40127 

1 

06037 

3 1,2160 

C : 

05062 

0 

C : 

01221 

1 

C : 

16032 

1 

C : 

01^35 

31,2170 

C : 

00  001 

0 

C : 

012  21 

l 

I : 

65352 

o 

C: 

01235 

31, 2 2 CO 

32215 

0 

04  6 16 

1 

C : 

204  76 

0 

16001 

3 1,2210 

C: 

06  5 20 

0 

C : 

3 6 2 3 1 

1 

C : 

33506 

1 

T : 

77776 

31,2220 

7241  7 

0 

00006 

1 

23607 

1 

02400 

3 1,2230 

55615 

0 

5 3466 

0 

416  17 

1 

60025 

3 1 , 2 2 40 

622  44 

1 

000  06 

1 

3 16  1 1 

o 

21470 

31,2250 

52  131 

3 

3 5 0 1 6 

0 

54003 

0 

44  755 

3 1,22  *•<) 

4 2 2 72 

1 

a n 3 30 

1 

61465 

l 

r,  o 0 f 

31,2270 

61  467 

0 

12301 

0 

40131 

0 

61465 

3 1, 2300 

34737 

Q 

-55-6  C 6 

1 

03740 

1 

i'i nr  ha 

31,2310 

41470 

l 

2161 3 

0 

3 16  12 

0 

6 1 6 C 5 

3 1,232' 

05  014 

l 

30  025 

o 

5 So  17 

1 

31762 

31,2330 

12  335 

l 

31235 

1 

5413  0 

1 

35003 

3 1,2340 

74  746 

l 

22131 

1 

40130 

1 

60025 

31,2350 

10  00  2 

i 

0 0006 

1 

71612 

1 

60000 

31,2340 

64  7 53 

l 

00006 

1 

21612 

1 

(0006 

31,23  70 

34737 

0 

u 5 6 06 

1 

447  55 

0 

(INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


0 

C:  QG 0 24 

i 

C: 

00  307 

0 

C : 

17534 

0 

06037 

0 

l 

316  01 

1 

53607 

0 

00006 

1 

31603 

0 

0 

32143 

0 

04616 

1 

C : 

20  334 

1 

15472 

1 

i 

5 4002 

1 

50002 

0 

41600 

1 

50002 

0 

0 

22000 

1 

00006 

1 

12051 

0 

05504 

0 

1 

C:  62056 

0 

15472 

1 

I : 

77745 

1 

C : 

02201 

0 

1 

C:  0220 5 

1 

I : 

77661 

0 

C : 

20213 

0 

C : 

00005 

1 

1 

I : 7213 0 

0 

0 : 

0 2000 

0 

C : 

00002 

0 

I : 

52130 

1 

1 

C:  02006 

0 

I : 

66150 

0 

C : 

00002 

0 

C : 

02007 

1 

0 

C:  02002 

1 

I : 

77414 

0 

C: 

02676 

1 

15472 

1 

0 

C:  03667 

0 

C : 

27414 

0 

I : 

71  331 

0 

C : 

00051 

0 

1 

r : C 220  5 

1 

I : 

7777  0 

1 

C : 

00  066 

1 

I : 

47  57  3 

0 

05353 

r : 

PA024 

0 

00004 

0 

n A A 1 A 

1 

A * 

1 

0 

I:  43014 

0 

C : 

04067 

1 

C: 

04666 

0 

I : 

77214 

0 

1 

I : 45014 

0 

C : 

014  63 

1 

C: 

26351 

1 

I : 

77201 

1 

1 

I : 45006 

0 

C : 

51670 

1 

C: 

02023 

1 

I : 

77776 

1 

1 

122  Of 

0 

12  200 

0 

06037 

0 

t ; 

77775 

1 

1 

1 6001 

1 

C : 

ou-n 

1 

31246 

0 

00006 

1 

1 

53470 

1 

00006 

1 

3 146  4 

0 

02400 

1 

0 

74733 

0 ' 

40000 

0 

65002 

0 

00006 

1 

1 

3 5014 

1 

54003 

0 

00006 

1 

31507 

1 

0 

55606 

1 

40131 

0 

6162G 

l 

00  006 

1 

1 

6 2 2 6 7 

o 

31467 

o 

12  277 

0 

i 2 00? 

0 

1 

00006 

1 

62302 

1 

32003 

0 

53466 

0 

1 

31466 

1 

55620 

0 

53613 

0 

00006 

1 

0 

5 5 6 I * 

1 

54  05  5 

0 

34750 

1 

00006 

1 

0 

54130 

i 

41011 

1 

62501 

1 

00006 

1 

1 

12336 

1 

35  000 

1 

54002 

1 

00006 

1 

0 

62004 

1 

7435  7 

0 

22007 

0 

00006 

1 

1 

p 36  1 1 

1 

116  12 

1 

64753 

1 

12361 

0 

1 

10131 

0 

22007 

0 

21611 

1 

01607 

1 

0 

5 3612 

1 

0000  6 

l 

2.3  607 

1 

12312 

1 

gap:  ASSEMBLE  vE  VI  SI  IN  JGI  OF  AGC  PKUGRAM  AP11ROPE  BY  EYLES 


3:15  DEC 
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OCTAL  LISTING  FUR  PA'. AG'  APH  # 165,  WITH  PA'ITY  BIT  IN  BINARY  AT  'HE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  AFE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


31,2400 

00  006  1 

221  30 

0 

5215  5 

1 

3 1 , 24 1C 

30  154  1 

0 0 C 0 6 

1 

124  15 

1 

3 1,2420 

12  641  1 

12641 

1 

12630 

1 

3 1 3 /.  3 A 

i -i  n a i l 

1 30  A 1 

1 

1 306  1 

1 

D 1 t c.  D ’ . 

l vjoi  i 

3 1,2440 

13331  1 

13352 

1 

13360 

0 

31,2450 

13735  1 

C: 

ocooo 

1 

C : 

,0.00  00 

1 

3 1 ,24  t 0 

55647  1 

1 3CP3 

0 

C 5 3 5 3 

1 

3 1,2470 

00030  1 

74747 

0 

) 0000 

0 

31,2500 

05311  1 

C : 

00102 

1 

00006 

1 

3 1, 25  10 

I:  4-1  535  1 

C : 

014  5 5 

1 

I : 

5 5535 

1 

3 1,2520 

C:  01255  1 

1 : 

7 76.76 

0 

C : 

27764 

1 

3 1,25  30 

C:  03760  0 

I : 

77776 

l 

34755 

1 

3 1 , 3 s r 

r .x  a o i i 

A 

. \A  A 1 A 

1 

J 1 f L ' ' 

66  Oil  I 

? -7  “ -'I 

U ?0  lu 

1 

3 1,2550 

1353  1 1 

053  11 

1 

C : 

00103 

0 

3 1,2560 

00006  1 

02031 

1 

10000 

0 

31,2570 

31  746  0 

00006 

1 

12601 

G 

31,2  00 

13531  1 

347  55 

l 

5 5746 

1 

3 1 ,2610 

3156  1 1 

53625 

n 

000  06 

1 

31,2620 

12  421  0 

05311 

1 

C : 

00101 

1 

3 1,2630 

05311  1 

C : 

00100 

0 

31425 

0 

31,26 40 

C:  00  14  3 1 

06037 

0 

I : 

45345 

1 

31,2650 

C:  13  63  5 1 

C : 

02  32  5 

1 

J : 

47045 

0 

3 ] . ? 6 ( . 

? • ~?~7  77 A 1 

c » i (5  5 

1 

9 1 c;  x 9 

1 

J 1 f 6 1 11 

I • rff"  l 

1 

C-  1 J J J 

1 

31,2670 

31  545  1 

53635 

1 

00006 

1 

31,2700 

03704  1 

03740 

1 

51351 

1 

31,271 

31666  0 

00006 

1 

13C  13 

1 

3 1,2720 

03  740  1 

34755 

1 

55267 

1 

3 1 , 2730 

06037  0 

t ; 

52375 

1 

C : 

n 36  35 

1 

3 1, 2740 

I : 65361  0 

C : 

03555 

1 

C: 

03557 

0 

31,2750 

C:  95  060  1 

I : 

7 1240 

1 

C: 

62755 

1 

3 1,2760 

I:  74271  0 

C : 

000>>1 

o 

I : 

53455 

0 

3 1,27  70 

>3  740  1 

00006 

1 

31545 

1 

07  103 

1 

C: 

01244 

1 

07  103 

1 

C : 

02005 

0 

07257 

0 

3-4733 

1 

00130 

c 

52156 

1 

00130 

0 

C: 

04143 

0 

12621 

1 

1 3003 

0 

13013 

1 

12704 

1 

13013 

1 

13531 

1 

13245 

0 

13245 

0 

13245 

0 

13432 

0 

13473 

0 

134  77 

1 

13527 

0 

13733 

1 

13735 

1 

C: 

00034 

c 

I : 

77776 

1 

36752 

0 

55647 

1 

12603 

1 

C: 

00035 

1 

053  53 

1 

C: 

C 5 02  3 

0 

C : 

2100C 

1 

00006 

1 

12551 

0 

053  21 

1 

C : 

00103 

0 

12557 

0 

03740 

1 

31474 

1 

53645 

0 

06037 

0 

j : 

41535 

1 

C: 

01457 

0 

C : 

01453 

1 

I : 

43161 

0 

C: 

25537 

1 

C : 

00463 

0 

C: 

26631 

1 

C: 

06522 

1 

C : 

17767 

1 

C : 

02540 

1 

C : 

17757 

1 

C : 

C 1235 

1 

5 5 o 2 0 

0 

5 6b  1 0 

0 

K56  1 1 

1 

55647 

l 

347c2 

0 

r « 

l,  a uc 

1 

ACC  1 A 

A 

r • 

A n q i i 

■J 

n c c i a 

A 

-J 

U • 

*t  VJ  lu  J 

I 

v.  ZJ  "ID 

u 

v_»  • 

UUJl  1 

I 

UD  did 

u 

UU  1 H-  5 

1 

34755 

1 

55746 

1 

34363 

0 

12536 

1 

34737 

0 

12601 

0 

41011 

1 

62501 

1 

00006 

1 

12574 

1 

12477 

0 

30075 

0 

74740 

1 

OG  006 

1 

12505 

1 

00006 

1 

31625 

1 

5 3 574 

1 

03740 

1 

CO  006 

1 

31643 

1 

53553 

1 

116  2 3 

0 

12641 

1 

51351 

1 

44752 

1 

55647 

1 

05516 

0 

C : 

00311 

1 

12  641 

1 

27  5 52 

0 

34740 

0 

00006 

1 

05013 

0 

05516 

0 

C : 

03625 

c 

C: 

03574 

1 

I : 

4 146  1 

1 

C : 

212  14 

0 

I : 

“7361 

0 

C : 

0 36  35 

1 

C : 

217  26 

1 

I : 

76561 

1 

C : 

02333 

0 

C : 

17  545 

0 

03740 

1 

0 0006 

1 

31553 

0 

53643 

0 

00006 

1 

31547 

0 

53637 

0 

00006 

1 

31  551 

1 

53641 

1 

1242  5 

1 

30102 

1 

74746 

1 

00006 

1 

13013 

1 

00004 

0 

312  67 

0 

5 5 554 

0 

31  2A6 

1 

55556 

1 

552  66 

0 

5 55  55 

1 

55557 

C 

30  120 

1 

54166 

1 

C : 

035  2 1 

l 

T : 

41434 

1 

C : 

21726 

1 

I : 

76435 

1 

C : 

02154 

0 

I : 

52361 

1 

C: 

02154 

0 

I : 

414  5 5 

0 

I : 

45345 

1 

C : 

00001 

0 

C : 

05660 

1 

C : 

C 00  0 1 

0 

l : 

45345 

1 

C: 

03636 

1 

C: 

03521 

1 

C : 

13521 

1 

I : 

76561 

1 

C : 

02333 

0 

C : 

03545 

0 

1 : 

77776 

1 

536  3 5 

1 

QOOOfe 

1 

31547 

0 

53637 

0 

00006 

1 

2,1970 
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GAP:  ASSEMBLE  REVISION  001  CF  AGO  PROGRAM  API  1R0P  E HV  EYLES  3:15  DEC. 

OCTAL  LISTING  Ft  PA-  AO1  \ ' H « !•- > , wITh  PA  TTY  D)  v IN  BlUAKY  A"  THE  EIGHT  CF  EACH  WOP  D,  "3"  DENOTES  UNUSED  FIXED  HEMORY 


ALL  VALID  WO'  DS  ARE  BASIC  INST  JCTI'NS  EXCEPT  THESE  HARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  ”C  " (CONSTANTS) 


31,3000 

31551 

1 

53-1 

1 

13013 

1 

Go  037 

0 

I : 

64375 

1 

C : 

00025 

0 

C: 

01734 

0 

I : 

53362 

0 

3 1,301 

C : 

03  254 

1 

C : 

035  27 

1 

I.  : 

77776 

1 

06  037 

0 

f : 

473  75 

0 

C : 

03521 

1 

C: 

02325 

1 

I : 

70455 

1 

3 1, 302' 

C: 

03  527 

l 

C : 

02265 

1 

I : 

77721 

0 

C: 

02603 

0 

c: 

0 36  2 7 

1 

I : 

5 5 52  R 

0 

C: 

06  5 2 2 

1 

I : 

52446 

0 

31,3030 

C : 

26263 

1 

C: 

0 3 5 21 

1 

T : 

41451 

1 

C: 

036  3 5 

1 

r : 

74521 

0 

C : 

02603 

0 

C : 

02637 

1 

I : 

77646 

0 

3 1,3  040 

C : 

26625 

1 

I : 

50234 

1 

C: 

21726 

1 

C : 

02146 

0 

I : 

77776 

1 

30120 

1 

54  166 

1 

30154 

1 

31,3050 

. 60 000 

1 

04616 

1 

C : 

61672 

0 

63753 

0 

CCOOb 

1 

73752 

0 

55667 

0 

51351 

1 

31,3060 

12431 

1 

036  77 

1 

I : 

7774  3 

1 

C : 

02431 

0 

C: 

23571 

0 

C: 

02427 

1 

C : 

17567 

0 

C: 

03633 

1 

3 1,3070 

I : 

42  605 

l 

C: 

0 5656 

1 

C : 

02425 

0 

C : 

23  56  5 

0 

C : 

02407 

G 

I : 

4 1 2 2 5 

1 

C : 

02643 

1 

C: 

05654 

0 

31,3100 

C : 

03  563 

1 

I : 

77776 

1 

34744 

1 

55572 

1 

OOOOfc 

1 

31643 

1 

52  155 

1 

34752 

0 

3 1, 31  10 

54001 

1 

33746 

1 

03553 

1 

51351 

1 

I 2447 

0 

00006 

1 

30155 

0 

53643 

0 

3 1,3120 

03  704 

1 

4 1642 

1 

- 14  26 

0 

64733 

1 

54001 

1 

4000  1 

1 

60001 

0 

22007 

0 

3 1, 31 30 

00  006 

1 

1 1 6 ' 2 

1 

5 413  0 

1 

000  06 

1 

700  00 

0 

5M31 

0 

60130 

0 

5 6131 

1 

31,3140 

60  131 

1 

54154 : 

0 

601  31 

1 

5(  120 

1 

54032 

1 

6013  1 

1 

50120 

l 

54034 

1 

3 1,31 

60130 

3 

647  33 

1 

60131 

1 

60131 

1 

50120 

1 

54036 

0 

34  755 

1 

54163 

1 

31,3160 

03  677 

1 

T : 

65361 

0 

C : 

03627 

1 

C : 

00035 

1 

I : 

62757 

0 

C : 
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62707  0 
C : 660  67  L 


06037  0 
03534  0 
COO 06  1 
12540  U 


33,3*40  53573  0 ConrjSg  1 31661  1 
33,3550  53577  1 00002  0 35007  0 
33,3560  41671  1 00006  1 13572  0 
3 3,3570  06504  0 C:  002.-3  Q.  31670  1 


50130  0 
56003  1 
61670  1 
55671  1 


33,3600 

33,3610 

33,3620 

33,3630 


■ 1 6 7 2 0 7 ' r - l 00006  1 

55673  0 11*51  0 13514  0 

C:  03757  1 C:  70064  1 11651  0 

04616  1 C:  17714  0 13665  0 


13605  0 
05504  0 
1 1 5 l 
11675  0 


33,3640 
3 3 » 3 6 5 C 
33,3660 
33,3670 


53  65  3 1 34  74  1 3 

5373  5 0 316  56  0 

11651  0 13663  0 

04616  1 C:  53471  0 


54003  0 00006  1 
55736  0 35014  0 
34752  0 55651  0 
04616  1 C:  17714  0 


33,370 
33,3710 
33,3720 
3 3,37?  0 


C : 


05  51 6 0 C : 

15  155  1 
00523  0 
65672  1 


00252  1 05155 
05155  0 34745 
04645  1 55656 
46471  1 65673 


0 

c 

1 

0 


33720  1 
C 0006  1 
34752  0 
55*61  0 


33,3740  56002  0 55660  1 
33,3750  22766  0 34755  L 
3 3, ?760  C:  47651  0 C:  262  37  0 
3 3,3770  r : 26231  0 C:  ? 3 


35014  1 
54770  C 
C : 06520  0 
l:  77624  1 


54003  G 
35016  0 
I : 77624  1 
C:  47671  1 


3: 15  DEC 


2,1970 
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THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 
INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


I : 51406  1 I : 43202  0 
C:  00025  0 25672  0 

74740  1 00006  1 

13514  0 40107  0 

31651  1 54131  0 

40130-  1 6152  6 1 

11526  0 13472  1 

61011  0 00006  1 

I : 74205  0 I : 77665  1 
03552  0 34747  1 

6254G  1 C 5504  0 

541 3C  1 00006  1 

53575  0 00006  1 

52002  1 55446  1 

77745  1 00006  1 

1331C  1 41673  0 

136-07  1 05  504  C 

C : €0250  0 13514  0 

34752  0 60000  1 

13666  0 00004  0 

3 1 o 5 3 0 6374  0 1 

54003  0 4C107  0 

15155  1 34752  C 

13703  1 37711  1 

04616  1 C:  21562  0 
02033  0 00006  1 

55674  1 *5675  0 

037 * o 1 31656  0 

00006  1 50002  0 

54003  0 06037  0 

C:  47671  1 C:  02245  0 

C : 02273  0 I : 77776  1 


C : 

27  145 

1 

C : 

24025 

0 

06723 

1 

13675 

1 

13435 

1 

05516 

0 

74  744 

0 

10000 

0 

35014 

1 

54003 

0 

00006 

1 

63471 

0 

50  131 

1 

31533 

0 

63501 

0 

31536 

0 

C : 

03601 

0 

C: 

03657 

0 

70107 

0 

10000 

0 

C : 

00257 

1 

37  720 

0 

31657 

1 

50130 

0 

31663 

0 

50130 

0 

22003 

1 

00000 

1 

13  570 

1 

13572 

0 

00006 

1 

13607 

1 

C : 

00  262 

1 

31672 

0 

34361 

1 

05203 

0 

04616 

1 

C : 

53107 

1 

00006 

1 

31102 

0 

00006 

1 

316*5 

0 

74  74* 

1 

261C7 

0 

*5675 

0 

13660 

0 

05  146 

1 

03737 

1 

16001 

1 

13712 

1 

1367* 

1 

13703 

1 

34  755 

1 

55570 

0 

04640 

1 

34752 

0 

31523 

1 

54772 

1 

I : 

45175 

0 

C: 

06516 

0 

I : 

76  435 

1 

C: 

02237 

0 

01650 

0 

CKSM 

07450 

1 

SAP:  ASSEMBLE  -EVISISIn  001  CF  ASC  PLOG  AM  AP11R0PE 


OCTAL  L I S T I I- ;G  Ft  ~ P & R A C A P H H 2 - 0 , W r 1 H PARITY  BP 
ALL  VALID  WC  DS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE 


3 4 » 2CGQ  I:  71220  1 
34,2010  C:  03642  1 
34, 2020  C:  00001  0 
34,2030  I : 7- BOB  0 


C:  63 632 

0 

C: 

03442 

0 

I : 57456 

1 

C: 

276  56 

1 

C:  02776 

0 

I : 

47206 

0 

c:  roooi 

0 

C : 

036  56 

1 

34,2040 
3 4 , 2 C c ) 
34,2060 
34,2070 


C:  03656  1 
C:  CO 005  1 
C:  00  020  0 
C:  00000  1 


I:  77624  1 
I : 77.624,  1 
C:  COfC 3 1 
C : OCPO  1 


C!  46316  1 
C : 46426  C 
C : 3 46  A 1 1 
C:  00001  C 


34,2100  C:  27311  1 
34,2110  C:  06^33  0 
34,2120  C:  03063  1 
3 4,2130  j:  - f l P 1 


C : 

77754 

1 

C : 

576  1 1 

0 

C : 

00003 

1 

C : 

25140 

0 

I : 

I : 

7 7 7 4.S 

1 

1 

r • 

32420 

00050 

n 

70501 

V;  • 

c : 

V 

1 

34,2140  C : 00046  0 
34,2150  I : 75457  0 
34,2160  C:  03472  0 
34,2170  C:  03606  1 


C:  571 76  0 
C:  20172  1 
I : 45421  1 
l:  77 025  0 


I : 41215  1 
I : 53515  0 
C:  6 02  03  C 
C:  3006c  1 


34,22c  C 
34,2210 
34,2220 
34,  2230 


I : 

51  54  5 

1 

C : 

035  74 

1 

I : 

50025 

0 

C: 

70776 

0 

I : 

43C14 

0 

C : 

0 33  42 

1 

C : 

30  066 

1 

I : 

77765 

0 

C: 

03574 

1 

I : 

53  435 

0 

J : 

76561 

1 

C : 

035  74 

1 

34,2240 

C: 

46  4 1 6 

0 

34, 2250 

I : 

72  142 

0 

34,2263 

? * 

•"205  4 

1 

34,2270 

I : 

45  1 4 5 

0 

34,2300 

C : 

03  566 

1 

34,2310 

C : 

02  740 

0 

34,2320 

C: 

00  0 4 1 

1 

34,2330 

r : 

50  3 1 K 

9 

C:  2 A'7  1 J:  7 7614  1 

C : 02 'PA  3 4;  376  04  1 

C:  7026  3 1 C:  70372  0 

C:  00041  1 C:  46426  0 

I:  562 4 A 1 C : 000  03  1 

T:  45312  0 C:  30070  C 

I:  7P24  1 C:  4o426  0 

C:  02303  n C:  03566  1 


34,2340 
34,2350 
34,2360 
3 4,237  0 


C:  00047  1 
C:  02303  0 
C:  03  46  6 0 
i:  52  006  0 


C : 20204  0 
I : 7 5315  l 
C : 36  f •'  5 1 
C : 70  3 7.  l 


C : 140 15  0 
C:  03566  1 
C:  24732  1 
I:  71201  1 


BY  EYLES 


3:15  DEC 


2,1570 


PAGE  1702 


in  B IN  AC.  Y AT  THE  BIGHT  CF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 


MARKED  "I" 

( INTEF  PRETIVE 

OPEPATOR  WORDS) 

OR  "C"  (CONSTANTS) 

C: 

34  c 41 

0 

C : 

270  5 7 

0 

I:  67175 

0 

C:  00001 

0 

C: 

02777 

1 

C : 

00007 

0 

C: 

03650 

1 

I:  53435 

0 

C:  C3642 

1 

r ; 

66  001 

0 

C : 

036  66 

1 

I : 

63372 

1 

I:  63315 

0 

C : 03  656 

1 

C: 

0 3 434 

1 

T : 

776*6 

0 

C: 

27664 

0 

C:  03642 

1 

T:  53315 

0 

C: 

03650 

1 

I : 

77624 

1 

C : 

46426 

0 

I:  77624 

1 

C:  45636 

0 

C: 

16321 

0 

I ; 

77624 

1 

r • 

n 

r • 7*  a 1 7 

1 

r • 

n n n n n 

1 

' J O :J  V 

V-  • P O D X 1 

i 

L.  • o 0 y cL 

u 

L • 

u u u u u 

1 

C : 

006  06 

1 

C: 

C 4467 

0 

C:  0C601 

0 

C:  33216 

1 

C: 

10000 

0 

C : 

00004 

0 

r : 

31566 

0 

C : 00000 

1 

C:  01177 

1 

II 

00002 

0 

C : 

00000 

1 

C : 

12326 

0 

C:  00116 

1 

C:  00730 

0 

C : 

00000 

1 

I : 

43014 

0 

C : 

C3260 

0 

C:  03061 

0 

I:  43014 

0 

C: 

03262 

1 

C: 

0 3606 

1 

C: 

03614 

1 

I:  77201 

1 

C:  00001 

0 

C : 

02303 

0 

I : 

51515 

1 

C: 

03552 

0 

I : 5 5301 

0 

C:  00047 

1 

I : 

53664 

0 

C : 

7 f 67  4 

n 

] ; 

6 53  01 

0 

r • non 47 

1 

r • n?  a ? 1 

ft 

1 

1 

V/  • vc  J 4 1 

u 

1 * 

Zj  0 Dp  c. 

1 

C : 

02303 

0 

I : 

47315 

0 

C:  02261 

0 

I:  77656 

1 

1 : 

7 2 441 

0 

C : 

30062 

0 

C: 

036  12 

1 

I:  43345 

1 

C:  03606 

1 

C : 

30072 

1 

C : 

00006 

1 

I : 

77644 

1 

C : 70776 

0 

I : 77601 

0 

C: 

00001 

0 

C: 

30064 

0 

C: 

702  24 

1 

I : 43174 

1 

C:  00007 

0 

C: 

03300 

1 

C : 

70216 

0 

C : 

03303 

1 

C:  70776 

0 

I:  71214 

0 

C : 

03060 

1 

C: 

03574 

1 

I : 

4 1575 

0 

C:  02303 

0 

I : 63256 

0 

C : 

02261 

0 

C : 

02267 

0 

I : 

400  55 

0 

C:  03472 

0 

C:  70237 

0 

C : 

37566 

0 

C : 

0 3466 

0 

C : 

26655 

0 

C : 32-'  14 

1 

C:  36730 

0 

C: 

24732 

1 

C : 

46326 

1 

1 : 

77624 

1 

C : 46426 

0 

C:  17602 

0 

C: 

03621 

1 

I : 

77745 

1 

C: 

0 2752 

0 

T:  5 0 2 5 

0 

C:  30  110 

1 

C : 

70372 

0 

I : 

60201 

1 

C: 

00003 

1 

C:  00047 

1 

I:  50315 

0 

C : 

02303 

0 

I : 

45257 

0 

C: 

20201 

0 

C:  30100 

0 

I:  71240 

1 

C : 

70  37  2 

0 

C : 

14  017 

1 

C: 

02317 

0 

I:  56342 

1 

It  41325 

0 

C: 

0 2740 

0 

I : 

72'- 1 2 

0 

1 : 

4 1366 

1 

I:  52414 

1 

Cl  04343 

1 

C: 

70330 

0 

C : 

03617 

1 

T : 

77646 

0 

I:  41301 

0 

C:  00050 

1 

t : 

53660 

1 

C: 

32420 

0 

C: 

00021 

1 

I : 53575 

0 

C:  00015 

0 

C: 

2 6 730 

1 

C: 

03617 

1 

I : 

45076 

1 

C:  46416 

0 

C:  26744 

1 

I : 

77614 

1 

I : 

' 1 1 2 5 

0 

C : 

03617 

1 

C:  70 376 

1 

I : 45  345 

1 

C: 

03604 

0 

C: 

000  0 1 

0 

C : 

3 242  0 

0 

I : 77  606 

1 

I : 41345 

0 

C: 

03467 

1 

AF  : ASSEMBLE  RE  V 1 S I 3N-  GO  1 OF  AGC  PROGRAM  AP11R0PE  BY  EYLES 
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3CTA!  LISTING  P Ar  AGr-  APFI  - ?i  l,  >vITH  PA'ITY  BIT  IN  B T . ! A Y A"  TFIE  TIGHT  OF  EACH  WHRO  , ''3"  DENOTES  UNUSED  FIXED  MEMORY 


34,2400 
34,2-10 
34,2420 
34, 2'  30 

3 4, 2 A 40 
34,2450 
34,2460 
34,2470 

34,250 

34,2510 

34,2520 

34,2530 

34,2540 

34,2550 

34,2560 

34,2570 

3 4,2  ( 
3^,2610 
34,2620 
34,  2 63 

3 4,264  n 
34, 2 ( 50 


C:  G36Q4  0 
C:  00005  1 
C:  71062  0 
I : 77  624  1 

C:  00  001  0 
I : 63201  1 
I : 77624  1 
I : 53  5 1 r 0 

I : 45  561  1 
I : 72  316  0 
C:  03552  0 
C:  00001  0 

C:  37  574  0 
I : 77  6 
C:  00013  0 
I : 53  5 15  0 

C:  53  762  1 
C:  00001  0 
C:  00003  1 
I : 41  345  0 

C:  03612  1 
C : u 3 5 7 6 3 


I:  •,  52  o 1 C 
I:  40240  0 
C:  26311  0 
r : 710-2  0 

I : 45115  0 
C : OGO  l - 
C : 73466  1 
C : C 35  36  1 

C:  77754  1 
C:  00155  0 
C:  03562  0 
I:  77654  0 

C:  7016  5 1 
C : 14017  l 
I : 77746  l 
C:  03560  1 

I : 72441  0 
t : 65225  l 
C : 03574  1 
C:  00003  1 


4 3 014  0 
6302-  1 


EXCEPT  THOSE 

MARKED  "I" 

( INTERPRETIVE 

OPERATOR 

WORDS)  OR 

"C 

" (CONSTANTS) 

C: 

20217 

1 

I : 

71 615 

0 

C:  0363^ 

0 

C: 

01777 

1 

T : 

77021 

1 

C : 

03636 

1 

C: 

70776 

0 

C : 

00001 

0 

I : 63375 

0 

C: 

03566 

1 

C : 

02  303 

0 

I : 

77624 

1 

C : 

00007 

0 

C : 

27514 

1 

C:  6 35  06 

1 

I : 

63201 

1 

C : 

0000) 

0 

C: 

03500 

1 

C : 

27522 

1 

C : 

000A7 

0 

C:  37530 

0 

C : 

71133 

0 

I : 

40375 

1 

C: 

0231 1 

0 

C : 

03544 

1 

C : 

46  316 

1 

I : 77624 

1 

C: 

4642b 

0 

C : 

27604 

0 

C : 

0 3 544 

1 

0: 

023  11 

0 

1 : 

65325 

0 

C:  01777 

1 

C : 

03636 

1 

I : 

41525 

0 

C: 

33732 

1 

I : 

77624 

1 

C : 

46402 

0 

I:  77745 

1 

C : 

02257 

0 

I : 

73401 

0 

C : 

00007 

0 

C : 

00001 

0 

I : 

',7315 

0 

C:  02261 

0 

I : 

77655 

1 

I : 

71525 

0 

C: 

02257 

0 

I : 

74345 

0 

I : 

76455 

1 

C:  00023 

0 

I : 

50206 

0 

C : 

03  5 36 

1 

I : 

41552 

0 

I : 

503  15 

0 

C : 

03536 

1 

C:  03536 

1 

I : 

57551 

1 

C: 

00  155 

0 

I : 

50315 

0 

I : 

76371 

G 

I : 

71244 

0 

C:  70542 

0 

C : 

03606 

1 

I : 

77025 

0 

C: 

30072 

1 

C : 

72036 

1 

I : 

70545 

1 

C:  03612 

1 

0 : 

03612 

1 

T : 

77621 

1 

C: 

03576 

0 

I : 

4 15  6 6 

1 

I : 

45  27  6 

o 

r : C CO  07 

0 

C : 

1 4 01  3 

0 

I : 

4 5 425 

0 

C: 

77762 

1 

34,2660 
34,2  7 

34,2700 

34,2710 

C : 
C : 

r • 

70  702 
03  4 1 2 

37610 

0 

1 

1 

0 

C! 

I : 

C : 

03303 

43276 

7 0176 

1 

0 

n 

C : 
C: 

I : 
C: 

• 

T : 

77657 

C : 

20601 

V 

1 

34,2720 

C : 

30  C7o 

0 

I : 

7 1 2 0 

1 

C: 

3*-,  2730 

C: 

03612 

1 

C : 

036  ] 2 

l 

I : 

34,2740 

C : 

03  602 

Q 

C : 

00002 

0 

I : 

34,2750 

C: 

00  003 

1 

0: 

03604 

0 

I : 

34,2760 

C: 

02253 

1 

1 : 

45374 

0 

C : 

34,2770 

C : 

03  636 

] 

C : 

Cl  777 

1 

C: 

C:  COO  13  0 
C:  00013  0 
I : 632  35  0 

I:  75326  1 
C.:  03610  0 
C:  03576  0 
C : 036  10  0 

C:  0 30  62  0 
C:  03612  1 
70702  0 
03574  1 


1 76  1 2 


00004  0 
02255  1 


I : 45246  C 
I:  76561  1 
C : 00007  0 

0:  00015  0 
C:  03574  1 
I:  43014  0 
I : 71244  0 

C:  03263  0 
C:  03261  1 
I:  753^5  1 
C:  17574  1 

C:  00005  1 
C:  0000 1 0 
I : 5002  5 0 
C:  03574  1 

C:  02776  0 
C:  30072  1 
C:  30112  G 
I:  51025  1 


C:  00017  1 
I : 53455  0 
C:  0C0C7  0 

I : 4154?  1 
I : 60  225  1 
C:  03342  1 
C:  70663  0 

I : 77745  1 
C:  37574  0 
C:  30102  1 
C:  0000 1 0 

C:  00050  1 
C:  03610  0 
C:  30106  0 
C:  036  12  1 

I:  50023  0 
C:  70776  0 
I : 770 4C  0 
C:  30112  0 


I:  71240  1 


C:  70561  1 


C:  00015  0 


C: 

03536 

1 

I : 

53515 

0 

0 : 

03552 

0 

I : 

502  3 5 

0 

C: 

00001 

0 

I : 

77626 

0 

I : 

71214 

0 

C: 

03301 

0 

C: 

70644 

0 

C: 

03576 

0 

C : 

00047 

1 

1 : 

6 5 265 

0 

C : 

70656 

0 

C : 

03343 

0 

C : 

70656 

0 

C : 

300  6 2 

0 

T : 

77765 

0 

C: 

03612 

1 

C : 

00001 

0 

C: 

17610 

0 

C: 

C 3 574 

1 

C : 

70165 

l 

I : 

A 3 0 1 4 

0 

C : 

03302 

0 

n o ore; 

, • 

7 7 7 f.  u. 

n 

r : 

o 

1 

1 • 

if  I O Zj 

\J 

jOIU 

\J 

I : 

43014 

0 

C : 

03063 

i 

C: 

03062 

0 

I : 

5406  5 

G 

C: 

00001 

0 

C : 

00047 

l 

I : 

51545 

1 

C : 

0361? 

1 

I : 

45206 

l 

C: 

7073? 

0 

t ; 

75345 

1 

C : 

301G6 

0 

C : 

37  574 

0 

C: 

70  165 

1 

t : 

77145 

1 

C : 

30072 

1 

C : 

70776 

0 

I : 

71374 

1 

I : 

45  345 

1 

C: 

01777 

1 

C: 

03634 

0 

C: 

70776 

0 

C: 

00005 

1 

I : 

45345 

1 

C: 

72152 

1 

I : 

43014 

0 

C : 

03302 

0 
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35,3400 

35,3410 

35,3420 

35,3430 


35,34*0 
3 5, 3450 
35,3460 
35,3470 


G:  03  4o  3 0 C ’ 7 3 ,-+7  1 

C : 03 54  4 1 C:  035  36  1 

C:  73466  1 I:  77775  1 

T : *1456  P t:  ?'•'  ^ 1 

C:  36303  1 C:  03463  0 

C:  02261  0 C:  240C7  0 

I:  43401  0 C : 000  23  0 

C:  27414  0 I:  71214  0 


I : 

613  75 

1 

C : 

03434 

1 

I : 

65325 

0 

C : 

03442 

0 

C : 

00001 

0 

C: 

03444 

0 

C : 

0 2311 

0 

I : 

77715 

1 

I : 

402  20 

0 

C : 

03463 

0 

C : 

03536 

1 

I : 

57456 

1 

t ; 

65325 

0 

C : 

G fc  522 

1 

C: 

01673 

1 

I : 

43054 

1 

3 5,^ 
35,3510 
3 5,  3520 
35,3530 


I:  73014  0 
I:  77657  0 
C:  .0001  D 
C:  73  576  1 


C:  00063  1 
C:  57176  0 
C : 034 6 5 0 
I:  77214  0 


C:  02777  1 
C:  255  35  0 
I : 43020  1 
C:  032 74  0 


I : 43014  0 
I : 77657  0 
C:  03470  1 
C:  03434  1 


35,3540 
3 5,? 
35,3560 
35,3570 

35,3600 
3 5,36  10 
35,3620 
35,3630 

3 5,3660 
35, 3650 
35,3660 
35,3670 


C:  20476  o 06001  0 

54002  1 50002  0 

22000  1 00006  1 

C : 7 3 572  0 C:  73377  0 

I:  77776  1 33726  1 

C:  23  742  0 C:  022*?  1 

C:  02253  1 I:  77414  0 

I:  41575  0 C:  03656  1 

34777  1 046 16  1 

03664  0 30005  1 

05353  1 C : 0402*  0 

06037  0 I : 52014  0 


03544 

1 

03536 

1 

414  33 

0 

50002 

0 

13565 

0 

05504 

0 

I : 

772  14 

0 

C : 

01267 

0 

0 3712 

0 

06037 

0 

I : 

712  14 

0 

C : 

01351 

1 

C : 

01742 

1 

C : 

73634 

1 

I : 

77624 

1 

C : 

15717 

1 

C: 

01735 

1 

3 3 730 

0 

55163 

c 

06001 

0 

05  5 04 

0 

C : 

00047 

1 

C : 

006  70 

0 

C : 

0 3*64 

1 

35,3700 

C : 

2047  6 

0 

1600 1 

1 

0 1 *+  o 3 

1 

13676 

35,3710 

24  002 

0 

00007 

0 

U00  06 

1 

23465 

35,3720 

16  001 

1 

01465 

1 

13715 

0 

C : 

0 1 4 *5 

35,3730 

C : 

0405  5 

0 

C: 

1*  4 4 1 

0 

C: 

373  2 5 

1 

C: 

00001 

35,3740 

C : 

21  505 

1 

C: 

77777 

0 

C : 

61337 

1 

C : 

01252 

35,3750 

55  164 

1 

046  16 

1 

C : 

54255 

1 

10000 

35, 37 tO 

1 3 773 

0 

34747 

1 

000  06 

1 

02030 

35,3770 

C : 

20  62  3 

1 

160  01 

1 

1 37  51 

0 

31164 
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INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


C: 

OOCOl 

0 

I : 

77772 

0 

C: 

02  366 

0 

I : 

63255 

0 

C : 

C 3 6 3 1 

0 

I : 

41525 

0 

C : 

06  5 30 

1 

I : 

77624 

1 

I : 

4 1575 

0 

C : 

02  311 

0 

t : 

57435 

1 

C : 

0 2 261 

0 

T : 

64315 

l 

C: 

02366 

0 

C : 

00001 

0 

1 : 

77772 

0 

C : 

C0001 

0 

I : 

77650 

1 

C : 

7 3424 

1 

I : 

57575 

1 

C: 

00015- 

0 

I : 

7t>4  3 5 

1 

C : 

02261 

0 

C : 

00  001 

0 

C : 

02317 

0 

I : 

414-06 

0 

I : 

4502? 

1 

C : 

3 

0 

C: 

73476 

0 

C: 

01473 

c 

I : 

45  545 

1 

C : 

63736 

0 

C: 

04303 

0 

C: 

73507 

1 

C : 

00263 

0 

C : 

25517 

0 

C : 

57176 

0 

C : 

35  54  3 

0 

C : 

27107 

1 

I : 

52175 

0 

C: 

013  11 

0 

C: 

7 3 5 3 1 

1 

I : 

52014 

0 

C : 

00470 

1 

C : 

012  37 

0 

T : 

77776 

1 

33727 

0 

04616 

1 

35016 

0 

54003 

0 

22  OO*7 

0 

34756 

1 

61236 

1 

26001 

1 

10002 

1 

13550 

0 

C: 

00146 

1 

06037 

0 

I : 

45  014 

0 

C : 

03354 

0 

C : 

02366 

0 

C : 

03656 

1 

I : 

776  24 

1 

C : 

73442 

1 

I : 

776  50 

1 

C : 

03*70 

1 

l ; 

71220 

1 

C: 

03470 

1 

C : 

7 36  34 

1 

C : 

3374? 

0 

i : 

77615 

0 

C: 

33742 

0 

03704 

1 

03627 

1 

03635 

1 

06037 

0 

I : 

77776 

1 

024  3 2 

0 

21470 

0 

55464 

1 

046  16 

1 

C : 

2047  6 

0 

03651 

0 

03654 

0 

4 0076 

1 

74746 

1 

00006 

1 

13651 

1 

300  05 

1 

55163 

0 

05353 

1 

C: 

04024 

0 

00006 

1 

23463 

1 

33724 

0 

04616 

1 

a 7 7 

1 

7ini  i 

1 

non  ha 

1 

10  7 11 

1 

0 f i -+s 

1 

f I U 1 I 

1 

uu  uuc 

1 

13/11 

1 

55615 

0 

31615 

1 

04616 

1 

C : 

2 0476 

0 

C : 

Cl  46-7 

0 

C : 

01*72 

1 

C : 

01473 

0 

C: 

0 1521 

0 

C : 

20650 

0 

C: 

12525 

0 

C : 

12525 

0 

C: 

00004 

0 

C: 

25253 

1 

C : 

134  34 

0 

C: 

16162 

0 

04645 

1 

1 3766 

1 

3473  7 

0 

70106 

1 

10000 

0 

COCO  6 

1 

13773 

0 

33775 

1 

04616 

l 

04640 

1 

C : 

00  203 

0 

C : 

03776 

1 

P.KSM 

44  73  7 

1 
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ALL  VALID  HOLDS  A’E  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I”  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C " (CONSTANTS) 


3 6 * 2 0 C 0 

Ci 

0 10  5* 

0 

36,2010 

C : 

00  151 

1 

36,2020 

C : 

00030 

1 

C : 

OOOOO 

1 

36,2040 

12614 

1 

36,2050 

12  563 

1 

3 6,2  060 

12567 

0 

3 6 , 2 C 7 C 

C: 

03  666 

1 

3 6,2100 

12612 

1 

36,2110 

12  563 

1 

36,2120 

12  121 

0 

36,2130 

34755 

1 

36,2140 

00  004 

l rs 

36,2150 

C: 

74  66  4 

0 

36,2160 

C : 

03  347 

1 

36,2)70 

C: 

00017 

1 

36,2200 

I : 

77  6 24 

1 

36 . ??  1 0 

2144? 

0 

36,222 

C5277 

0 

36,2230 

44  76  2 

1 

3 6,22- G 

33  75  6 

n 

36,2250 

40  006 

Q 

3 6,226  0 

C ; 

02  26  3 

1 

36,2270 

C: 

02273 

0 

36, 230  0 • 

C : 

02  35  2 

1 

36,2310 

05  173 

1 

36,2320 

3 1 45  5 

1 

36,2330 

53  253 

0 

36,2340 

34  755 

1 

36,2350 

C: 

00  00 1 

0 

36,2360 

0 5 516 

0 

36,237  ) 

34  73  & 

1 

C : 3 7 1 7 C 
C:  05214  0 
C:  ( ■ '01  * 1 

Ci  03770  1 

13047  0 
1 2 504  0 
Ct  014  3 0 1 
C : 74CD36  1 

12777  0 
12455  0 
12122  0 
55507  0 

n/  > 74  a 
06C37  0 
C.:  74200  0 
I : 4.312  : 

C:  275  5 7 0 
5 2 r-  5 ) 

C:  02240  0 
55163  0 


05)73  1 
00006  1 
C : 74067  0 

C : 74C&7  0 

447  tZ  1 
C:  023  W-  1 

10c  1 1 
3*752  0 

52755  1 
15261  0 
C : 001 n 0 
05  ICS  0 


c ; 

00457 

1 

C: 

77777 

0 

c ; 

0 1512 

0 

C : 

64067 

1 

15261 

0 

1312  3 

. .0 

12322 

1 

12366 

1 

15261 

0 

C : 

01477 

1 

12123 

1 

55510 

0 

C. ; 

75564 

1 

I : 

45345 

1 

C: 

27043 

0 

C : 

01734 

0 

122  11 

0 

5 35  00 

1 

C. : 

74067 

0 

06037 

0 

C: 

022  76 

0 

6 5261 

1 

152  61 

0 

15261 

0 

55163 

0 

34245 

1 

40106 

1 

540  0 1 

1 

10763 

1 

00006 

1 

0 55  16 

0 

C : 

0 25  40 

1 

Ci 

032  50 

0 

C: 

777  77 

0 

C:  77731 

1 

C: 

00  307 

0 

C: 

11040 

0 

C : 

77  76  5 

0 

C: 

00026 

0 

C:  30605 

1 

C : 

00013 

0 

Ci 

14  303 

1 

12325 

0 

126)2 

1 

13062 

1 

16  26  1 

0 

12146 

1 

12  376 

0 

17563 

1 

1 2 c 2 1 

1 

C : 

01450 

1 

12325 

0 

12146 

1 

C: 

04300 

0 

C:  03666 

1 

C : 

74066 

1 

12366 

I 

1 

r • 

77776 

1 

0 

r • 

7 4 Ci  A A 

1 

n 

1 <_  1 J l 

l il  t C 

i 

U « V J j > V 

* 

1 

I c.  U 

u 

12614 

1 

13047 

0 

15261 

0 

12  146 

1 

C : 

05120 

1 

1 2 $ 6 3 

1 

125*1 

1 

13420 

0 

C i 

014  76 

0 

12325 

0 

12151 

1 

C: 

C4300 

0 

C:  03770 

1 

C i 

64067 

1 

12376 

0 

12325 

0 

12612 

1 

13062 

1 

15261 

0 

12120 

1 

12  376 

0 

12563 

1 

125  31 

0 

05353 

1 

C : 

04  024 

0 

0<  616 

1 

C : 

73747 

1 

00006 

1 

31442 

1 

53512 

1 

x 

c,  X 6-  K <> 

x 

10005 

n 

44  762 

1 

04616 

i 

Out.'  • J D 

I 

1 

C : 

03442 

0 

C: 

35143 

1 

C:  34041 

0 

C : 

61  104 

0 

j : 

45014 

0 

I : 

64  37  5 

1 

C : 

00025 

0 

C:  01734 

0 

I : 

77762 

1 

C : 

25726 

0 

C: 

35720 

1 

C: 

67130 

1 

C:  16317 

c 

Ci 

00015 

0 

Ci 

00041 

1 

00006 

3 

31561 

1 

534*2 

0 

CO  006 

1 

33143 

1 

00006 

1 

43756 

1 

21500 

1 

0000* 

1 

31500 

0 

05353 

1 

C: 

20254 

0 

05321 

1 

C : 

00077 

1 

15  155 

1 

j : 

51575 

1 

C : 

03553 

1 

C:  03472 

0 

\ : 

77776 

1 

15  155 

1 

053  53 

1 

C : 

40  154 

0 

44752 

1 

55163 

0 

51455 

1 

33145 

1 

05173 

1 

Ci  02246 

1 

35027 

1 

05072 

1 

0 46  16 

1 

C : 

20456 

1 

I c 1 5 5 

1 

35027 

1 

05072 

1 

33761 

1 

046  16 

1 

Ci  20465 

1 

331*4 

0 

05173 

1 

5 1 • 5 5 

1 

30006 

1 

00006 

1 

62325 

1 

55477 

0 

0 4 01 

1 

46245 

0 

52753 

1 

40025 

1 

55053 

1 

74737 

1 

26106 

1 

00006 

1 

51455 

1 

30010 

0 

44  75  2 

1 

52761 

0 

40024 

1 

55061 

0 

00006 

1 

15261 

0 

04635 

0 

C:  77410 

1 

02657 

1 

05353 

1 

34  755 

1 

52757 

0 

33756 

0 

05  173 

1 

Ci 

02403 

1 

C : 

00154 

1 

51455 

1 

icon 

0 

10757 

0 

12376 

0 

C: 

56067 

0 

0 53  53 

1 

C : 00053 

1 

4*760 

0 

5 516  3 

0 
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ALL  VALID  WORDS  APE  BASIC 

3 6,? A 00  ,05  353  1 

3 6 » 2 4 L G 12  421  3 

3 6 » 2420  C:  77777  0 

36,2430  26101  0 

36,2440  30025  0 

36,2450  4 - 742  0 

36,2460  30  CO 5 1 

3 6,2470  44  735  0 


INSTRUCTIONS  EXCEPT  THOSE 

C;  4 C C 7:4  C 15261  0 

31422  1 05203  0 

34740  6 70103  1 

*4??F  1 00006  1 

53345  0 00006  1 

701 04  0 54104  0 

5 rl  3 0 40105  1 

701  1 I 1 54111  1 


36,2500  55621  1 34752  C 55623  0 
36,2510  31422  1 05203  0 C:  02015  1 
36,2520  12541  l 35016  0 54003  O 
36,2530  64003  0 30CC5  1 55163  0 


36,2*40 
36,2550 
36,2560 
36,2670  C: 

36,2600 

36,2610 

36,2620 

36,2630 

36,2640 
36,265 0 
36,2660 
36,2670 

36,2700 
36,2710  C: 

36,272' 

36,273d 


2*  10?  1 44744 
05516  0 C:  00153 
05221  0 C:  00062 

00  1 G5504 

12  603  1 04616 

*1  455  1 1 nno2 

1 C : ( 11 
04674  0 C:  75561 

34753  1 00004 
00006  1 06  OC 1 
74746  1 26111 
31442  1 52155 

52  15  5 1 743  46 
02717  I 05327 
55065  1 11163 
05221  0 C : 00 144 


r 

70111 

1 

0 

05516 

0 

0 

02653 

0 

, c, . 

C : 

0Q161 

1 

1 

C : 

74663 

1 

1 

30005 

1 

1 

15155 

1 

1 

055  04 

0 

0 

0*173 

1 

0 

155  11 

0 

1 

00002 

0 

1 

00006 

1 

c 

000  06 

1 

1 

C: 

400  36 

r 

0 

127  33 

0 

0 

12717 

0 

36,2740 

36,2750 

36,2760 

36,2770 


41442  0 53454  1 
15155  1 4CC00  0 
04616  1 C : 20473  O 
13013  3 13030  0 


00006  1 
00003  1 
13013  1 
12764  1 


T BINARY  AT 

MARKED  "I"  < 

4010  3 1 
C:  02007  1 
00006  1 
02011  0 

31517  0 
51  55  1 

74743  1 
00006  1 

12541  1 
C : 36067  0 
31412  1 
00006  1 

54111  1 
C:  00154  1 
00C06  1 
05504  p 

44765  0 
12615  C 
05353  1 
C:  00312  1 

C:  02352  1 
44746  1 
34755  1 
40025  1 

10002  1 
C:  05024  1 
12724  0 

00006  1 

30025  0 
50C00  1 
12610  0 
5 1 3 5 1 
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THE  LIGHT  CF  EACH  WOFD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 
INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


74737 

1 

26103 

1 

05  321 

1 

C : 

00077 

1 

36  067 

0 

05327 

] 

C: 

* A 0 3 3 

0 

C: 

05014 

1 

51455 

1 

10012 

0 

40101 

0 

74745 

1 

6^737 

0 

0000  fc 

1 

01011 

0 

00006 

1 

53442 

0 

0000  6 

l 

30025 

0 

21442 

0 

10013 

1 

00006 

1 

33  13? 

1 

53253 

0 

26105 

1 

4C  10  3 

1 

74  741 

0 

26  103 

1 

300  25 

0 

53442 

0 

34755 

1 

5535  1 

0 

40101 

0 

74740 

1 

00006 

1 

12  541 

1 

05327 

1 

C : 

40033 

0 

C : 

05  014 

1 

C: 

77777 

0 

55537 

0 

31413 

0 

55541 

1 

35016 

0 

33141 

0 

53253 

0 

40103 

1 

74741 

0 

3474  3 

0 

7007  6 

1 

10000 

0 

13522 

0 

C5516 

0 

C : 

00161 

1 

05353 

1 

C : 

40054 

1 

34755 

1 

52761 

0 

15261 

0 

04635 

0 

f ill  7 r 

1 

■3  / 7 R 1 

r 1 

c;c  c 1 c 

n 

1 

uU  I / ^ 

i 

u 

I U f c 

1 

55163 

0 

053*3 

1 

C : 

00004 

0 

15155 

1 

44762 

1 

55  163 

0 

05  51* 

0 

C : 

00161 

1 

00003 

1 

00004 

0 

06  0 27 

1 

C: 

36022 

1 

02  645 

1 

C : 

OC  310 

0 

05504 

0 

C : 

00314 

1 

15155 

1 

30002 

0 

05522 

1 

*0000 

0 

7011  1 

1 

54  111 

l 

00002 

0 

40111 

1 

r c.  i ^ 

o 

04645 

1 

5 * C 6 1 

0 

00006 

i r 1 _j 

1 

20155 

1 

07257 

0 

34777 

1 

54002 

1 

30001 

0 

64752 

0 

00004 

0 

05  173 

1 

1 30  00 

0 

31061 

1 

04640 

1 

40025 

L 

37715 

0 

05072 

1 

C : 

02737 

0 

C: 

74  067 

0 

7 •:  76* 

1 

52765 

1 

15261 

0 

00006 

1 

21454 

1 

C0004 

0 

11  163 

0 

15  155 

1 

13011 

0 

447  5 5 

0 

55067 

0 

3037  1 

1 

12623 

0 

33146 

1 

04616 

1 

C: 

204*7 

0 

3 00  CO 

1 

04616 

1 

C : 

2040* 

1 

44743 

1 
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36,3000 

55  067 

0 

,514  55. 

1 

30000 

1 

04616 

1 

C : 

20473 

0 

13013 

1 

13041 

0 

13044 

0 

36,3010 

04616 

1 

C : 

20456 

1 

151  55 

1 

0 3615 

0 

loGCl 

1 

00004 

0 

00006 

l 

23142 

1 

36,3020 

02  653 

3 

060  27 

I 

C : 

7 43  4{> 

0 

053  53 

1 

C: 

00001 

0 

3000  5 

1 

55  16  3 

0 

01142 

1 

36,3030 

05353 

1 

C : 

04C24 

0 

34755 

1 

55  16  3 

0 

35023 

0 

05  10  5 

0 

C : 

03210 

1 

C : 

6406  5 

0 

36,3060 

15  155 

1 

05504 

0 

c : 

001  d4 

1 

13102 

0 

COOC4 

0 

51455 

1 

10003 

0 

34644 

0 

36,3050 

05  105 

0 

C : 

03223 

1 

C : 

74067 

0 

00004 

c 

04674 

0 

C : 

40204 

0 

0301* 

0 

05353 

1 

3 6, 30  60 

C: 

00  134 

1 

1515  6 

1 

3 50  27 

1 

05105 

0 

C : 

02424 

1 

C: 

30067 

0 

05516 

0 

C: 

00175 

1 

36,3070 

00  004 

0 

04674 

0 

C : 

40204 

c 

03015 

0 

053  53 

1 

C : 

07024 

0 

C : 

17000 

1 

C: 

62424 

1 

36,3100 

C : 

30  067 

0 

1 5 1 c 5 

1 

40103 

1 

747  3 7 

1 

ICC  00 

0 

13  116 

0 

34753 

1 

00004 

0 

36,3110 

05  173 

1 

C : 

024  26 

0 

34360 

0 

54001 

1 

4 0000 

0 

5276  1 

0 

4476  2 

1 

55163 

0 

36,3120 

15  155 

1 

C 5 5. 6,7 

0 

C : 

01706 

1 

35006 

1 

04616 

1 

C : 

20476 

0 

16001 

1 

13131 

0 

36,3130 

13  123 

0 

514  65 

1 

10014 

0 

C : 

0203  6 

0 

C : 

02046 

1 

C : 

02061 

1 

C: 

03471 

0 

C : 

62067 

1 

36,3! 40 

C i 

03  64  2 

1 

C : 

70067 

I 

C : 

00000 

C : 

056*6 

1 

C : 

046  7 2 

0 

C : 

00752 

1 

C : 

01476 

0 

05345 

36,3150 

C : 

04C24 

0 

33133 

0 

55455 

0 

30106 

0 

74737 

1 

10000 

0 

13121 

1 

0461  6 

1 

3 6,3160 

C : 

11254 

1 

40111 

1 

74737 

1 

10C00 

0 

32020 

1 

62021 

0 

55251 

1. 

34751 

0 

36,3170 

55515 

0 

C6G37 

0 

I : 

431  75 

0 

C: 

34u01 

1 

C: 

G2663 

0 

C: 

03735 

0 

I : 

77  735 

0 

C : 

26002 

1 

36,3200 

I : 

70  4 76 

0 

C. : 

37743 

0 

C : 

562  46 

1 

I : 

77624 

1 

C: 

56413 

1 

I : 

77776 

1 

00004 

0 

04674 

0 

36,3210 

C : 

40  14  2 

1 

03213 

1 

12126 

1 

00006 

1 

23142 

1 

00003 

1 

05  516 

0 

C: 

00124 

0 

36,3220 

04616 

1 

C : 

54123 

0 

0 1 1 42 

1 

30005 

1 

* 5 1 6. 3 

0 

00006 

1 

32056 

0 

53253 

0 

36,3230 

33  760 

0 

04616 

1 

C : 

20635 

0 

03256 

0 

13241 

1 

03223 

1 

05353 

1 

C: 

00014 

1 

36 ,3240 

15  165 

1 

«.  0004 

0 

046  74 

0 

C : 

40  1 •.  3 

1 

046  7 4 

0 

c •• 

40 140 

0 

00003 

1 

33761 

1 

36,3250 

04616 

l 

C : 

204  62 

0 

03256 

0 

1 32  5 6 

1 

03247 

0 

13236 

1 

00006 

1 

32106 

1 

36,3260 

*3743 

0 

347*5 

1 

55462 

1 

30005 

1 

55163 

0 

00004 

0 

04674 

0 

C: 

40123 

0 

3 6,  32  70 

00003 

1 

C6  r C 1 

0 

331  34 

1 

55455 

0 

04616 

1 

C : 

11254 

1 

06037 

0 

I : 

71214 

0 

36,3300 

C: 

00  700 

0 

C: 

7 5305 

0 

C : 

340  15 

1 

C: 

37735 

1 

C : 

75310 

1 

I : 

7 774  5 

1 

C : 

34017 

0 

C: 

03735 

0 

36,331 0 

I : 

77624 

1 

C : 

56  246 

1 

I : 

7 7 u 24 

1 

C: 

56-+ 13 

1 

I : 

77776 

1 

00004 

0 

04674 

0 

C : 

40153 

1 

36,3320 

04674 

0 

C : 

40140 

0 

0 3213 

1 

06  037 

0 

I : 

45175 

0 

C : 

03701 

1 

C: 

57267 

0 

C : 

0 3 502 

0 

36,3330 

T • 

77776 

1 

3376  1 

1 

046  16 

1 

C : 

20446 

0 

35017 

1 

55  163 

0 

05  105 

0 

C: 

03361 

0 

36,3340 

C : 

74067 

0 

053  27 

1 

C : 

00076 

0 

C: 

04024 

0 

12135 

0 

34777 

1 

04616 

1 

C: 

01735 

1 

36,3350 

31  163 

1 

6 4752 

0 

00006 

1 

13345 

l 

33761 

1 

04616 

1 

C : 

20446 

0 

35017 

1 

36,3360 

05146 

1 

3 1 U 3 

l 

000  06 

1 

6 515  5 

0 

06037 

•0 

I : 

45  175 

0 

C: 

03  701 

1 

C: 

57267 

0 

36,3370 

C: 

03502 

0 

I : 

77776 

1 

347  77 

1 

0 4 61  6 

1 

C : 

01735 

1 

13361 

1 

06037 

0 

T : 

77624 

1 

GAP:  ASSEMBLE  REVISION  OC 1 CF  A GC  PROGRAM  AP11POPE  BY  EYLES 


D CT  Ai  LISTING  FOP  PARAGRAPH  Y 213,  WITH  PARKY  BTT  IN  B INAL  Y AT 


A LI  V Al  10  WEEDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I”  ( 


36, 3400 

C: 

75611 

0 

I : 

4517  5 

36,3410 

05353 

1 

C: 

04024 

36,3420 

04  6 1 6 

l 

t : 

112  54 

3 6,34  30 

C : 

Cl  C'7  2 

0 

C : 

340  07 

0 

C:  03701 

1 

C:  57267 

0 

0 

X.  3313 

0 

65455 

0 

1 

36000 

1 

5*2*1 

1 

1 

C:  0 37  3 6 

0 

T : 52135 

1 

36,3*40 

36,3450 

36,3460 

36,3470 


C: 

06037 

05014 

0 

1 

I : 
C : 

77624 

77777 

1 

0 

C:  27553 
000  06 

1 

1 

30 165 
33764 

0 

1 

C : 

74  06  7 

0 

123*2 

1 

06037 

0 

I : 53375 

0 

C : 

57  267 

0 

C : 

03623 

0 

I:  7 77  76 

1 

05  3 53 

1 

36,3500  C:  03502  0 I:  77776  1 
36,3510  06001  0 13513  1 
36,3520  I:  77776  1 031304  0 
36,3530  05516  0 C:  101-4  1 


046  35  0 C.:  6 5770  1 
13236  1 06037  0 
31517  0 03735  0 
05516  0 C:  00044  1 


3 6 , 7 540  02653  3 05261  l 
36,3550  C:  74067  0 34753  1 
36,3560  02653  3 00006  1 
3 6,3  570  00  001  1 • 20  1 1 0 


04674  0 C:  75545  1 
05203  0 C:  03606  1 
30025  0 53345  0 
64736  1 0CC06  1 


36,3600 

36,3610 

36,3620 

36,3630 


44737  1 
05261  1 
C:  75  633  0 
C:  03753  0 


54055  0 
I:  45020  l 
I:  45345  1 
C:  03432  1 


34750  1 
C:  036  * 5 1 
C:  01235  1 
C:  03765  0 


TOO 06  1 
C:  56447  0 
C:  03763  0 
I : 77776  1 


36,36*0 

36,3650 

36,3660 

36,3670 


05  10^ 
C:  03765 
C:  01 235 
C:  75611 


0 C : 

0 C : 

1 C : 

0 I : 


02707  0 
2 7 76  3 0 
07462  0 
77776  1 


C : 56067  0 
C:  01221  1 
C : 03665  1 
00004  0 


05327  1 
C:  26323  1 
06037  0 
35016  0 


36,3700  13705  1 

36,371'.'  C:  40  165  1 

36,3720  52155  l 

36,3730  C:  03542  1 


40103  1 74745  1 

0 5 5 14  o C!  O OC  44  1 

OOOGo  1 40025  1 

*327  1 C:  40114  I 


1G000  0 
C5504  L 
20155  1 
C:  0 0035  1 


36,3740 
36,3750 
36, 3760 
36,3770 


34  755  1 
C:  02  734  0 
C:  04  050  0 

a 


64753  1 
C : COO 00  1 
C : 041 25  0 

a 


56001  0 
C:  05670  Q 
C:  04123  C 
3 


34755  1 
C:  GuCQO  1 
C:  03462  1 


3:15  DEC 


2,1570 
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THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 
INTERPRETIVE  OPERATOR  WORDS)  OR  "C”  (CONSTANTS) 


C: 

03502 

0 

I : 

77776 

1 

04635 

0 

C:  65770 

1 

4 0106 

l 

747  3 7 

1 

10000 

0 

03121 

0 

34751 

0 

55515 

0 

06037 

0 

I:  77 2 1 4 

0 

C: 

26001 

i 

e : 

75200 

1 

04616 

1 

C:  11254 

1 

05  173 

l 

C : 

03447 

0 

15  155 

1 

05353 

1 

53253 

0 

34736 

1 

05  105 

0 

C:  03513 

0 

C : 

03502 

0 

C : 

C3527 

1 

C: 

03656 

1 

I:  77624 

1 

C : 

ICO  35 

0 

06037 

0 

T : 

77775 

1 

C : 03656 

1 

33762 

1 

04616 

1 

C : 

20635 

0 

06001 

0 

I : 

77775 

1 

C : 

C6522 

1 

C: 

03623 

0 

C:  03502 

0 

0517  3 

1 

C: 

03  54  2 

1 

05516 

0 

C:  00153 

0 

05353 

1 

C: 

4 0 11  * 

1 

OB  22 1 

0 

C:  00062 

0 

r . r ? A l 

1 

9 /j  - / / 

p 

ac  i nt; 

T • A 9 9 9 9 

1 

1 

J tD  i 

1 U _> 

u 

L • U J 6 6 J 

1 

C : 

74066 

1 

40  10  3 

1 

74745 

1 

26103 

1 

44745 

1 

70101 

0 

B 4 10 1 

0 

44355 

1 

OK  1 1 

0 

4 0 111 

1 

74736 

0 

26111 

1 

05014 

1 

04707 

0 

0467* 

0 

C:  40204 

0 

I : 

* 3014 

0 

C : 

01307 

1 

C : 

03  66  b 

1 

C : 03705 

0 

I : 

50025 

0 

C : 

03432 

1 

C: 

75656 

0 

I : 4 3 345 

1 

10755 

1 

13L63 

0 

34737 

0 

00004 

0 

C: 

C 0 1 7 2 

0 

C : 

10035 

0 

06037 

0 

T : 77745 

1 

C : 

01227 

1 

C : 

02  131 

1 

I : 

45  345 

1 

C:  03631 

0 

77is  r> 

1 

r • 

r -3  r A c 

AC  A Q 7 

A 

T • 7 7 A 7 1*. 

1 

1 • 

f / D v v 

I 

V-  • 

V-  jtO" 

1 

UOU  J f 

V 

I • / f O c.'-r 

1 

540C3 

0 

40076 

1 

74743 

1 

10000 

0 

13707 

0 

0 46  3 5 

0 

C : 

65770 

1 

04674 

0 

C : 

C 0161 

1 

00004 

0 

00006 

1 

31442 

1 

072  57 

0 

3015  5 

0 

03735 

0 

OB  17  3 

1 

15155 

1 

10000 

0 

13741 

1 

13741 

1 

53517 

1 

31517 

c 

00002 

0 

C:  00000 

1 

c; 

1 16  24 

0 

C : 

00000 

1 

C: 

00764- 

1 

C:  05050 

1 

C: 

74067 

0 

C : 

C 376  5 

0 

C : 

03766 

0 

CK*M  53320 

0 

a 

S 

a 

3 

GAP:  ASSEMBLE  RE  V I I OK  CC1  0-E  AGC  PRCG--  AM  AP-11ROPE  BY  LYLES 
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OCTAL  Li  .V'  I5G  FT.-  PARAGRAPH  * 21",  WITH  PARITY  BIT  T BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DEMOTES  UNUSED  FIXED  M EMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I" 


37, 2COO 

C: 

C7623 

l 

C : 

26552 

1 

c '3ii 

1 

C: 

00007 

37,2'I  IQ 

55441 

3 

5 5576 

0 

34361 

1 

i 5571 

37,20  20 

06  037 

0 

T : 

62545 

1 

C : 

02403 

1 

C : 

150*  7 

37,2030 

55  045 

3 

32A73 

0 

0 1* 

1 

C : 

20476 

37,2040 

I : 

47  1 3 5 

D 

C : 

0 1046 

1 

C : 

21576 

0 

C: 

0 2401 

37,2050 

I : 

77752 

1 

C: 

166  3 7 

c 

C: 

02403 

1 

I : 

72556 

37,2060 

CJ 

16705 

1 

r ; 

77746 

1 

C : 

026  77 

0 

I : 

776  76 

37,2070 

C : 

17000 

1 

3 4 736 

1 

70077 

0 

00006 

37,2100 

02  315 

1 

1 14  14 

0 

021  26 

0 

02320 

37,2110 

C: 

76065 

J 

32116 

0 

051  33 

0 

32116 

37, 2120 

55  050 

1 

31  504 

1 

55051 

0 

514  16 

37,2130 

02  44  7 

1 

34361 

1 

554  76 

1 

32474 

3 7 , 2 1 *-0 

t . i ; x <; 

0 

SA-0  37 

x 

5547? 

0 

0 2332 

37,2150 

05155 

0 

00006 

1 

27412 

0 

31412 

37,2160 

C: 

02  15  1 

0 

347  36 

1 

05105 

0 

C : 

02  166 

3 7, 2 1 70 

0?  447 

x 

S 1 4 ] ? 

x 

Ann  06 

x 

62  175 

D 1 1 6 

y L>  O VL 

37,2200 

11  473 

1 

02205 

1 

05705 

0 

4 1"  76 

37,2210 

06  037 

3 

I : 

4 5 3A5 

1 

C: 

02501 

1 

C: 

0 2475 

37,2220 

C: 

02  477 

1 

I : 

47075 

0 

C : 

37056 

0 

C : 

21612 

37, 2230 

02457 

0 

3 2471 

1 

55412 

0 

51416 

3 7,22"  0 

44  747 

0 

2 7565 

1 

34747 

1 

27567 

37,2250 

27  563 

1 

02447 

1 

34755 

1 

5 5404 

37,22GC 

30  032 

3 

6 5 1 3 

1 

025  00 

0 

3 I fc,A  ? 

37,2270 

05516 

0 

C : 

00007 

0 

447  55 

0 

05314 

37. 2300 

T ; 

77616 

3 

non 

1 

0 

5J  / , 7 CT  C 

V V vLC 

c.  J J ) i 

■ j> 

37,2310 

C : 

17  000 

1 

046  16 

1 

C : 

17?  lb 

1 

03047 

37,2  3-21 

00006 

1 

23  5 71 

0 

0 4 b 16 

1 

C : 

17210 

37,2330 

C : 

16714 

1 

0 23  11 

0 

000  06 

1 

23417 

37, 2340 

62346 

1 

05122 

rj 

00004 

0 

51415 

37,2350  . 

30  03  7 

0 

61571 

0 

000  06 

1 

12335 

3 7 , 2 3 1 0 

04  102 

0 

5X537 

1 

55473 

1 

51537 

3 7,2370 

12  372 

1 

55571 

1 

347  55 

1 

50001 

(INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


0 

02325 

1 

34755 

1 

55414 

0 

5 5440 

1 

1 

32476 

0 

02  36  7 

1 

34  7 36 

1 

55664 

0 

0 

C: 

02401 

0 

I : 

77"  34 

1 

C : 

216  14 

1 

56154 

1 

0 

02270 

0 

0203  7 

1 

02031 

1 

06037 

0 

0 

I : 

605  35 

1 

C : 

01  047 

0 

C : 

02  403 

1 

I : 

57546 

1 

1 

C : 

16435- 

1 

C: 

02401 

0 

I : 

73406 

1 

C: 

02675 

1 

0 

C : 

36703 

0 

C : 

47353 

1 

I : 

77776 

1 

04616 

1 

1 

1 2076 

0 

2 5 a 1 4 

1 

05  5 1 6 

0 

C : 

00056 

1 

1 

00006 

1 

31575 

1 

05  277 

0 

C: 

02113 

0 

0 

05137 

1 

05261 

1 

C : 

76500 

0 

34755 

1 

0 

55420 

1 

€2457 

0 

51414 

1 

02130 

1 

1 

5 5412 

0 

3475  3 

1 

55537 

0 

34755 

1 

1 

0000" 

0 

34  'c2 

0 

05  173 

1 

C : 

02151 

0 

1 

00006 

1 

62161 

0 

34742 

1 

05  173 

1 

1 

C : 

76065 

0 

05261 

1 

514  14 

1 

02  170 

0 

0 

C 5 1 5 5 

0 

347  56 

x 

a 

1 

J J J D 1 

V 

v 6 JJ4 

I 

1 

55476 

1 

00006 

1 

41473 

1 

21477 

0 

0 

I : 

45  04"- 

0 

C : 

76217 

1 

C : 

76275 

0 

I : 

56325 

0 

1 

C: 

010  51 

1 

• I : 

77776 

1 

11414 

0 

02  301 

1 

0 

*1417 

0 

55442 

0 

11415 

1 

12245 

1 

0 

12251 

1 

4":  7 4 7 

0 

27  56  5 

1 

34747 

1 

1 

554  05 

0 

34733 

1 

55440 

1 

c 5441 

0 

1 

- 4 0*  1 

0 

1 4 / K t. 

1 

55050 

1 

A?  4.C.  7 

A 

1 

J J V J 1 

V 

D *T  1 J J 

1 

1 

L'CT.I  1 

yJ 

1 

C 5 4 7 2 

0 

I : 

43215 

0 

C: 

06  5 30 

1 

C: 

37064 

1 

x 

0 

54  32  2 

n 

54323 

1 

04616 

1 

• .7  c 1 

V..' 

■L 

J. 

1 

0 1571 

0 

00  00  6 

1 

23  5 ? 1 

0 

0231  1 

0 

1 

0 23  1 1 

0 

00006 

1 

23  571 

0 

04616 

1 

x 

02  3*  2 

0 

00003 

x 

30  067 

0 

00006 

x 

0 

40037 

1 

55571 

1 

00004 

0 

51415 

0 

1 

51415 

0 

30  0 37 

0 

51537 

1 

5 547  2 

0 

1 

23474 

1 

00003 

1 

01417 

1 

5 4001 

1 

0 

54000 

0 

24  00  1 

0 

11571 

1 

12371 

1 

AP:  ASSEMBLE  REVISION  001  OF  AGC  PROGRAM  API  IRftP  E BY  EYLfcS 


0: 15  DEC 


2,1670 


PAGE  1715 
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13634 

1 

22330 

1 

136*2  0 
C:  03451  1 
03657  0 
05516  0 


13557  1 
055C4  0 
5216?  1 
C:  00010  0 


54324  0 
C:  00054  0 
523)7  0 
34741  1 


*1255  0 
00004  0 
00004  0 
00006  1 


C:  03734  1 
00006  1 
20 1 5 5 1 
*47*1  0 


C:  7 6 C 6 0 G 
221 53  C 
*43*6  0 
00006  1 


34774  1 
0*103  1 
70155  l 
03013  0 


04616  1 

00003  1 
66155  0 

00004  0 


03737  1 
07257  0 
30315  0 
C:  03774  0 


00006  1 
1C  154  0 
20 1 5 5 1 
C:  03775  1 


40317  0 
03763  0 
07257  0 
CKSM  47^35  1 


20155  1 
03763  0 
52155  1 
3 
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OCTAL  Ll'TPG  F.  - PARAGRAPH  ■ 22  , WITH  PA  ITY  BIT  T N BINARY  A1  THE  SIGHT  OF  EACH  WORD,  "a1'  DENOTES  UNUSED  FIXED  MEMORY 

ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C " (CONSTANTS) 


A-  C,  2 COO 

35017 

1 

05105 

C 

C : 

02017 

0 

C: 

60104 

1 

34740 

0 

05146 

1 

32076 

1 

04616 

1 

<►0,2010 

C: 

20  35  3 

0 

05563 

1 

05563 

1 

05563 

1 

34  751 

0 

05464 

1 

05155 

0 

00006 

1 

4 0 , 2 n20 

30  036 

1 

52155 

1 

060  37 

0 

T : 

77624 

1 

C: 

46065 

0 

C: 

00001 

0 

C: 

1400? 

0 

C : 

06522 

1 

<►0,2030 

C : 

2401  l 

1 

r : 

0 0007 

0 

t : 

77656 

1 

C : 

00007 

0 

T : 

77641 

1 

C : 

06  514 

1 

C : 

2^021 

1 

C: 

06520 

0 

4 0,2  040 

I : 

77  & 4 1 

1 

C : 

00007 

0 

C : 

340  23 

1 

C: 

47320 

0 

I : 

t 3244 

1 

C : 

60047 

1 

C : 

06530 

1 

C : 

26203 

1 

40,2050 

C: 

0C001 

0 

I : 

77641 

1 

C: 

065  16 

0 

C : 

24023 

0 

C: 

00001 

0 

I : 

77641 

1 

C: 

00  007 

0 

C: 

34  021 

0 

40,2060 

C : 

47320 

0 

I : 

4 32  44 

1 

C: 

60064 

0 

C : 

06530 

1 

C: 

02201 

0 

I : 

77776 

1 

3477? 

1 

04616 

1 

40,2070 

C : 

Cl  73r 

1 

34  74  7 

1 

7 1 0 44 

1 

10000 

0 

02017 

0 

05472 

0 

C : 

04070 

1 

34753 

1 

40,2100 

57012 

o 

54  1 15 

0 

1 1042 

1 

02105 

1 

02112 

1 

42156 

0 

60  154 

1 

00006 

1 

40,2110 

12  112 

0 

04374 

0 

56154 

1 

54117 

1 

50000 

1 

02116 

0 

03434 

1 

02175 

0 

40,2120 

02  175 

o . 

02  175 

a 

02175 

0 

02175 

0 

02175 

0 

02175 

0 

02  161 

0 

02161 

0 

4 0,2!  3C 

03  434 

1 

034  34 

1 

034  34 

1 

03434 

1 

03434 

1 

0 3 4 3 4 

] 

02  173 

0 

02354 

1 

4 0 . ? 1 AO 

03  603 

l 

0 34  34 

1 

03434 

1 

03434 

1 

0 34  3-' 

1 

03^34 

1 

03434 

1 

0 3461 

1 

T U f A 1 

40,2150 

02  407 

0 

02374 

0 

02157 

0 

03434 

1 

02467 

0 

02370 

1 

0 : 

00022 

1 

04635 

0 

40,2160 

C : 

62  00? 

1 

10777 

1 

02166 

1 

02166 

1 

05155 

0 

05155 

0 

36  245 

1 

71000 

1 

40,2170 

1C  000 

0 

02175 

0 

034  34 

1 

34755 

1 

54117 

1 

10777 

1 

02  202 

0 

02202 

0 

4 0,2200 

02  20  1 

0 

051  55 

0 

02324 

0 

11015 

0 

34755 

1 

55015 

0 

02  207 

0 

50117 

0 

40,2210 

34066 

0 

74346 

0 

541  24 

1 

30777 

0 

54143 

0 

03322 

1 

36  245 

1 

71000 

1 

40,  222C 

10000 

0 

02232 

0 

501  37 

1 

5 7 C 0 1 

1 

54022 

0 

40  02  2 

0 

40  022 

0 

56022 

1 

40,2230 

60  117 

0 

02247 

1 

501  37 

1 

57001 

1 

54154 

0 

34755 

1 

54  155 

1 

34363 

0 

40,2240 

07  307 

1 

56155 

0 

601  17 

0 

5 4 15  5 

1 

02247 

1 

26134 

0 

02  265 

1 

50137 

1 

40,2250 

35  001 

r\ 

40777 

1 

501  37 

1 

.>2315 

1 

00006 

1 

122*7 

1 

02312 

0 

36245 

1 

46, 2260 

71000 

l 

10000 

0 

02265 

1 

40777 

1 

02313 

1 

AA7S3 

0 

60137 

1 

00006 

1 

40,2270 

62263 

1 

07103 

1 

C : 

023  22 

0 

36245 

1 

71000 

1 

50000 

1 

02276 

0 

02303 

0 

40,2300 

00C06 

] 

40156 

1 

5215o 

1 

36  156 

0 

50  137 

1 

55004 

0 

56155 

0 

50137 

1 

4 0, 23 1 u 

55  001 

0 

02263 

1 

10777 

1 

54777 

1 

05155 

0 

C: 

00022 

1 

C : 

00020 

0 

C : 

00012 

l 

40,2320 

C : 

00  005 

1 

C : 

00000 

1 

C : 

05174 

0 

C: 

1324  1 

0 

5 077  7 

0 

3 2 3 3 C 

0 

*4137 

0 

00002 

0 

40,2330 

C : 

00  004 

p 

C: 

00*04 

0 

C : 

00004 

0 

C : 

00004 

0 

C : 

no  004 

0 

C : 

00003 

1 

C: 

00003 

1 

C: 

00003 

l 

40,2340 

C : 

00  003 

] 

C : 

00003 

1 

C : 

00002 

0 

C : 

00002 

0 

C: 

000C2 

0 

C : 

00002 

0 

C : 

00002 

0 

05705 

0 

40,2350 

C : 

00  001 

0 

C : 

OCO  31 

0 , 

C : 

COO  00 

1 

C : 

f JO  00 

1 

347  5 5 

1 

55001 

0 

34360 

0 

54777 

1 

4 0 , 2 3 6 0 

02  601 

1 

34753 

1 

55000 

1 

3 4 755 

1 

55013 

0 

34217 

1 

541  3^ 

1 

05155 

0 

40,2370 

34755 

1 

55002 

0 

34361 

1 

02357 

1 

02+46 

0 

02433 

1 

34752 

0 

50137 

1 
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OCTAL  LISTIiG  H PAP  AGP  APH  " 221,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  CF  EACH  WORD,  ”3"  DEMOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C  " (CONSTANTS) 


40,2*00  64745  0 27COO  1 
40,2410  02413  0 3-  753  1 
40,2420  54753  1 54122  1 
40,2430  56122  D 03404  1 

40,2440  64753  1 54123  0 
4 0,24.6:0  71.000  1 1GOOG  0 
40,2460  02442  0 05155  0 
40,24-7u  64  75 3 1 024  73  0 


11015  0 34755  1 .55015  0 
02377  0 220(52  0 02324  0 
3 755  1 54124  1 56123  1 
00001  0 22002  0 02324  0 

02422  1 C:  00(05  1 C:  00003  1 
05155  0 , 44317  1 02462  0 
60777  0 00006  1 12466  0 
64753  1 5 01  CO  1 32330  C 


02406 

1 

05155 

0 

02446 

0 

50137 

1 

32441 

1 

5412  3 

0 

03404 

1 

34741 

1 

54124 

1 

50137 

1 

32441 

1 

5^122 

1 

00000 

1 

22002 

0 

36245 

1 

443  20 

0 

02462 

0 

44321 

1 

00002 

0 

00001 

0 

10777 

1 

54137 

0 

11015 

0 

02505 

0 

40,2500 
40, 2510 
40,2520 
40,2530 


02502 

1 

02*02 

1 

30137 

1 

02527 

0 

02522 

0 

1013  7 

0 

54137 

0 

02527 

0 

32577 

0 

27013 

0 

30137 

1 

54125 

0 

00006 

1 

27001 

0 

04616 

1 

C:  62340 

1 

30  12  5 

1 

54  1 37 

C 

02525 

1 

250  15 

1 

05155 

0 

22G02 

0 

02540 

1 

67746 

0 

1 jOCO 

0 

00CC2 

0 

C5705 

C 

06155 

0 

C 0002 

0 

54777 

1 

22002 

0 

02324 

0 

40,2540 

34  75  5 

1 

50137  1 

56091 

0 

50137 

1 

5500* 

0 

5*1 24 

1 

50137 

1 

40,2550 

71  COO 

1 

72600  1 

55000 

1 

50137 

1 

32570 

1 

54143 

0 

03322 

1 

40,2560 

32573 

1 

54777  1 

02601 

1 

44752 

1 

26777 

1 

02601 

1 

50137 

1 

40,2570 

54  777 

1 

GGG01  } 

C:  00016 

0 

C:  00005 

1 

C:  GOO  04 

0 

C:  00015 

0 

C:  00011 

1 

44745  l 
50137  1 
34315  1 
C:  00003  1 


40,2600 

a n 9 4in 

C : 77  774  0 
62612  3 

3077  7 
25016 

0 

1 

540  21 

0 0003 

0 

1 

4261  4 
09002 

1 

0 

00004 
C:  04000 

0 

0 

5002  1 
347*5 

U f c.  1 U 

40,2620 

0262?  0 

02645 

1 

026  63 

0 

02625 

1 

026  15 

1 

30154 

40,2630 

12634  D 

40154 

0 

647  5 3 

1 

54154 

0 

00002 

0 

00006 

57023  1 
54156  1 
74733  0 
90033  1 


0C006  1 
02652  1 
00006  1 
00006  1 


40,2640 
40, 2650 
40,?-' 

40,2670 


74  74?  0 
5 2124  1 
54  1 54  3 
52  124  1 


40000  0 
00002  0 

20155  1 


762  45  0 
10154  0 
00001  0 
02702  C 


54154  0 02677  0 00006  1 
(4)0  02  0 00002  0 120  56  1 
00006  1 50156  0 32674  0 
05605  1 C:  03656  1 C:  16314  0 


50156  0 
44735  0 
52155  1 
C:  31463  1 


32674  0 
70154  0 
97307  1 
52124  1 


40,2^00 

52  1 5 5 

1 

04415  0 

0 4b  3 5 

0 

C:  62366 

0 

5212* 

1 

52155 

1 

04415 

0 

40,2710 

02  723 

0 

56  156  C 

56155 

0 

54  1 64 

0 

0 2 702 

0 

02723 

0 

02702 

0 

40,2720 

36  24? 

0 

03153  0 

02702 

0 

56002 

0 

54162 

0 

02  747 

1 

07257 

0 

40,2739 

C:  10  123 

1 

001*2  1 

02536 

0 

‘02*13 

0 

3 01*4 

1 

03306 

1 

46  24* 

0 

02711  1 
02723  0 
07103  1 
c 0 1 ] 7 0 


40,27*0 

64317 

0 

54777  1 

02747 

1 

30155 

0 

03306 

1 

04635 

0 

C:  62570 

1 

40,2750 

54 1 44 

I 

50140  1 

02752 

0 

G2  767 

0 

50117 

0 

30150 

0 

74356 

1 

40,2760 

00006 

1 

5 00 Cl  1 

3000  1 

0 

52  1 r 5 

1 

34  75  5 

1 

*4  156 

1 

00144 

0 

40,2770 

02  760 

1 

50140  1 

0 2772 

1 

02775 

0 

03420 

1 

00006 

1 

50145 

1 

56002  0 
04313  1 
30145  1 
3000 1 0 
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OCTAL  LISTING  F(  PAP  AC  • Ar  H * 222,  WITH  PA'-  »TY  BIT  I B I 4 A ' : Y AT  THE  k I GHT  OF  EACH  WORD,  "3"  DEMOTES  UNUSED  FIXED  MEMOPY 


ALL  VALID 

WORDS  ARE  BASIC 

INSTRUCTIONS 

EXCEPT  THOSE 

MARKED  "I" 

( I NTERPRETIVE 

0 PEr  ATOR 

. WORDS)  OR 

"C 

" (CONSTANTS) 

a n uron 

o 1 c c 

1 

A 

S4.7  7 7 

1 

34755 

J. 

54  1 66 

j 

077  S7 

n 

A -3  O 7 a 

1 

nm 

n 

4-  U t 

j c n 

1 

b f .M  ‘ 

:>■  U: 

A- 

W I il.  .*  j 

\j 

J D C.  1 JJ 

1 

U U I JO 

J 

40,3010 

07  103 

1 

C : 

0 3074 

1 

10155 

1 

34  741 

1 

03016 

0 

44  f4] 

0 

60  155 

0 

03165 

0 

AO, 3020 

04404 

0 

04404 

0 

03174 

0 

04404 

0 

10154 

0 

C 3 03  1 

0 

03031 

0 

40000 

0 

40,3030 

54  1 5A 

9 

10162 

0 

03070 

0 

03043 

0 

10154 

0 

05  70  c 

0 

03066 

1 

03040 

0 

A 0 , 3 04  0 

56  154 

1 

747  33 

0 

541  54 

0 

50  140 

1 

03044 

1 

030  50 

1 

03060 

1 

03051 

0 

AO, 3050 

03063 

1 

4C00Q 

0 

64752 

0 

(0006 

I 

1.3C56 

0 

02625 

1 

04635 

0 

C:  63165 

0 

A 0,3 060 

04  6 1 1 

1 

C : 

6 3 034 

0 

03C47 

1 

04616 

I 

C : 

63026 

0 

0305  1 

0 

44733 

0 

03042 

1 

AO, 3070 

40154 

D 

747  33 

0 

400  00 

0 

03042 

1 

C. : 

2 316  1 

0 

C: 

30707 

1 

07103 

1 

C:  00123 

1 

AO, 3100 

55156 

0 

56155 

0 

561  54 

1 

C 0006 

1 

13106 

1 

04145 

0 

03163 

0 

03  174 

0 

AO, 3110 

03056 

1 

07103 

1 

C: 

00123 

1 

03106 

0 

07103 

1 

C : 

00123 

1 

56156 

0 

60000 

1 

AO, 3120 

54156 

1 

347  55 

1 

6 0.1  55 

0 , 

*03165 

0 

03174 

0 

50140 

1 

03126 

1 

03  137 

1 

40,3130 

30  1 17 

0 

60145 

1 

54002 

1 

56155 

0 

c 0002 

0 

54001 

1 

03056 

1 

34755 

1 

4 0,314-0 

cyx  1 1 

1 

47103 

1 

r • 

001  23 

1 

36242 

o 

03153 

o 

0 R l 1 6 

r,7 1 

1 

r • A r i ? j 

1 

JO  I - J 1 

u 1 1 V JD 

1 

1 

40,3150 

34752 

0 

0 3 1 c 3 

0 

031  16 

1 

56002 

0 

54124 

1 

56002 

0 

54  123 

0 

04404 

0 

40,3160 

10  123 

0 

03156 

0 

001  24 

0 

56155 

0 

60000 

I 

54155 

1 

00002 

0 

60154 

1 

40,31 70 

54154 

0 

Of  002 

0 

541 62 

0 

00002 

0 

10162 

0 

04145 

0 

00002 

0 

04145 

0 

4 0,  3200 

56  002 

0 

5 >164 

1 

10154 

0 

03213 

1 

03213 

1 

64753 

1 

54154 

0 

02433 

1 

40,3210 

40  155 

1 

ri  1 36 

1 

001  A 4 

0 

02413 

0 

144 

0 

00006 

1 

33261 

1 

20155 

1 

40,3220 

CO  006 

1 

13225 

0 

00006 

1 

34733 

1 

52155 

1 

CC002 

A 

56002 

0 

54115 

0 

40,3230 

03200 

0 

03215 

1 

34751 

0 

54137 

0 

34363 

0 

0730R 

1 

50154 

1 

34066 

0 

40,3240 

74346 

0 

54124 

1 

34755 

1 

56156 

0 

56155 

0 

5 L:  15^, 

0 

56777 

0 

54143 

0 

40,3250 

10  000 

0 

54777 

1 

0 3322 

1 

10 137 

0 

0 3233 

0 

44  36  0 

1 

54777 

1 

00115 

1 

40,3260 

C:  0900(3 

1 

C : 

024  76 

n 

5^0  02 

0 

54115 

0 

03200 

0 

03232 

1 

56002 

0 

54115 

0 

40,3270 

03  200 

0 

3A753 

1 

0 32  33 

0 

56002 

0 

54115 

0 

34755 

1 

54124 

1 

36245 

1 

40,3300 

03  404 

1 

3 4751 

C 

03404 

1 

03200 

G 

34320 

1 

C 3 2 3 3 

0 

00006 

1 

7331b 

1 

40,3310 

22  154 

1 

347  55 

1 

54  1 6 5 

1 

56002 

0 

54  115 

0 

0 3 2 7 1 

0 

C : 

00244. 

0 

0 3 306 

1 

40,3320 

04635 

0 

C : 

6 2347 

0 

r 60  02 

0 

5 4114 

1 

34346 

1 

70143 

0 

54021 

0 

56021 

1 

40,3330 

54141 

1 

34753 

1 

70143 

0 

10000 

0 

03336 

1 

03346 

0 

66124 

0 

04  340 

1 

40,3340 

54124 

1 

34736 

1 

70143 

0 

10000 

c 

34752 

0 

64753 

1 

54143 

0 

00004 

0 

40,3350 

50  141 

0 

11023 

0 

0 33  54 

0 

C5705 

0 

64753 

1 

54142 

1 

50143 

1 

73400 

1 

40,3360 

00  006 

1 

601  24 

0 

00006 

L 

13376 

1 

50143 

1 

43400 

1 

70142 

1 

60124 

0 

4 0,33  70 

40  000 

o 

50141 

0 

5 70  2 3 

1 

00  006 

1 

633  76 

0 

25016 

1 

00003 

1 

00114 

0 
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OCTAL  LISTING  FEE  PARAGRAPH  « 223,  WITH  PARITY  BIT 
ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE 


4 0,  3400 
40,3410 
40, 342'. 
40,34  ^0 


: 00037  0 
54  114  1 
43441  l 
03434  1 


C : 01740  C 
03347  1 
6C136  C 
042  04  C 


C:  0 2000  C 
03322  1 
COO 06  1 
043  64  1 


40,3440  C:  04124  1 04202  0 34753  1 
40,3450  44753  0 , 03443  1 34755  1 
40,3460  03443  1 44751  1 00006  1 
40,3470  03477  0 04X57  0 11042  1 


40,3500 

40,3510 

40,3520 

40,3530 

40,35^0 

40,3550 

40,3560 

40,3570 


55012  1 
03527  1 
0 3527  1 
10000  0 

64753  I 
03552  0 
05155  0 
5400 1 1 


11042  1 
34317  0 
34321  0 
PG 002  0 

03306  I 
05155  0 
03577  1 
34001  1 


051  55  0 
02535  0 
02535  0 
500  02  C 

03544  1 
34755  1 
34752  0 
50064  0 


40, 3600 

03 

4 0,361  0 

05 

40,3620 

55 

40,3630 

54 

40,3640 

54 

40,3650 

i-  o 

77 

13 

r u f j C - U 

40,3670 

C : CO 

563  1 34763 
011  1 73672 
303  1 44742 
110  0 44742 

117  1 0 C;  0 04 
673  1 03655 
117  1 03640 
104  1 C:  00330 


1 03563  1 

1 71036  1 

71302  0 
00006  1 

0 501  17  () 

1 4 0000  0 

0 34755  1 

1 C:  00050  1 


40,3700 

40,3710 
4 U » 3 7 2 0 
40,3730 


05221  3 
C : 03)13  1 

a 


C;  00144  0 
C:  7 6 06.7  1 
B 

::: 


31044  0 
15261  < 

a 

a 


T N BINARY  AT  THE  RIGHT  CF  EACH  WORD,  "2"  DENOTES  UNUSED  FIXED  MEMORY 


MARKED  "I" 

( INTERPRETIVE 

OPERATOR 

WORDS)  OR 

"C"  (CONSTANTS) 

C:  03740 

1 

54141 

1 

34752 

0 

54143  0 

56002 

0 

33615 

1 

f 464 C 

1 

C : 

63411 

0 

44360  1 

54777 

l 

13436 

I 

4 3440 

0 

60136 

0 

00006  1 

13431 

0 

04124 

1 

C 4 3 6 4 

1 

05155 

0 

05652  0 

C: 

01501 

1 

55014 

1 

042  04 

0 

04457 

0 

04433  1 

03547 

1 

55013 

0 

44360 

1 

547  77 

1 

03442  0 

44755 

0 

0 30  1 1 

1 

10115 

0 

34736 

1 

71021  1 

10000 

0 

03475 

1 

05155 

0 

04635 

0 

C:  21050  1 

34755 

1 

04502 

1 

05155 

0 

30777 

0 

54132  0 

34753 

1 

34752 

0 

03527 

1 

3432C 

1 

02535  0 

34751 

0 

30  132 

I 

54777 

1 

52131 

0 

05166  0 

70123 

0 

00002 

0 

3436  2 

1 

56777 

0 

64140  0 

non 

1 

02601 

1 

6 1 4 0 

1 

54777 

1 

06  155  0 

11042 

1 

57042 

0 

00004 

0 

05137 

1 

11014  1 

03601 

0 

50064 

0 

60164 

1 

50064 

0 

54164  0 

31002 

1 

52155 

I 

COO  03 

1 

04457 

0 

05155  0 

34755 

1 

56115 

1 

55012 

1 

OCOOX 

c 

3X742  1 

"0006 

1 

64  7 3 K 

1 

c 5 0 3 6 

1 

45027 

1 

71303  1 

65026 

0 

64742 

1 

55302 

0 

43671 

0 

70110  0 

64745 

0 

0301  3 

0 

43670 

1 

00006 

1 

03011  l 

34  36  3 

0 

1 1 02  3 

0 

647  5 3 

1 

03652 

0 

6^753  1 

^0000 

0 

7 3673 

1 

40000 

0 

50117 

G 

56023  0 

00003 

1 

c z,  77c; 

1 

Ca  *277 

n 

c c 0 c 7 n 

r\ 

jh  J r 3 

I 

.7  fr 

1 

7 ID  i f 

U 

“ j D D I V 

U 

C:  73777 

1 

35015 

0 

05105 

0 

C:  03121  0 

C : 

76067 

1 

7 / *7  /.  i 1 

1 

f'nnn  a 

1 

i ■^7nn 

1 

KO]7  1 

n r rs  7 ? 

1 

f % / H V J 

i 

tuUUO 

I 

I 

_•  U 1 i 

1 

C:  03713 

1 

C:  03714 

0 

CKSM 

7 f 762 

o • 

a 

a 

a 

a 

a 

a 

a 

a 

a 

a 

a 

a 

40, 3740 
40,3750 
40,3760 
40,3770 


a 

a 

a 

a 


a 

a 

a 

a 


a 

a 

a 

a 


a 

•ii 

a 

a 


a 

a) 

a 

a 


a 

a 

a 

a 


a 

a 

a 

a 


a 

a 

a 

a 
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GAP:  ASSEMBLE  REVISION  001  OF  AGO  P1  OGKAM  APllRQPE  BY  EYLES  3:15  DEC. 

0CTA1  LIST  It  : Fi  ' J A-  A G ■ Ac-  H - 2,'  , ,!M>!  PA;  TY  B5  T ( J RTNA'iY  AT  THE  RIGHT  OF  EACH  WORD,  "a"  DENOTES  UNUSED  FIXED  MEMORY 
ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C " (CONSTANTS) 


A 1,20 DO 

03  544 

1 

02775 

C 

34755 

1 

550 15 

0 

342  17 

1 

54136 

1 

11013 

0 

02035 

0 

A 1,2  010 

02  03  5 

0 

02012 

0 

32033 

0 

6 1013 

1 

00006 

1 

12027 

1 

36245 

1 

71000 

1 

A 1, 20  20 

10G00 

0 

02023 

l 

02027 

0 

10777 

1 

02351 

1 

0235  1 

1 

02027 

0 

41013 

0 

A 1,2030 

55  013 

0 

04/33 

1 

010  13 

1 

C : 

03/31 

1 

€ : 

00034 

■P*P* 

34755 

1 

55000 

1 

44  36  0 

1 

A 1,2  040 

54777 

1 

41001 

0 

6 60  41 

1 

62034 

1 

OOOOfc 

1 

62133 

1 

00006 

1 

32114 

L 

A 1,2  050 

52  006 

0 

50  IaO 

1 

02052 

1 

02055 

0 

02221 

1 

10146 

0 

02131 

0 

02351 

1 

A 1,2  000 

02064 

1 

25017 

0 

0 43  1 1 

0 

02120 

0 

34735 

1 

55015 

0 

44  217 

0 

60136 

0 

A 1 , 2 0 70 

00  00* 

1 

12073 

0 

0 21  16 

0 

02307 

1 

110  00 

1 

04146 

0 

44360 

1 

54777 

1 

A 1 , 2 100 

11042 

1 

02104 

0 

02105 

1 

02104 

0 

04427 

1 

57005 

0 

04303 

0 

00006 

1 

4-1,2110 

32114 

1 

52006 

0 

021  33 

1 

C : 

02103 

1 

C : 

64101 

0 

C:  77772 

0 

30156 

0 

04303 

0 

A 1, 212l 

44  75  6 

0 

61001 

1 

000  06 

1 

12133 

0 

343  21 

0 

54777 

1 

31017 

0 

03363 

1 

A 1,21 30 

0>T33 

1 

647  53 

1 

043  03 

0 

42145 

1 

6 1001 

1 

10C00 

0 

64753 

1 

02  1/  1 

1 

41,21/  0 

02  146 

0 

6/154 

c 

044  57 

0 

04635 

0 

C : 

6 6000 

1 

C : 006*0 

1 

51001 

1 

32151 

0 

41,2150 

04640 

1 

C : 

62351 

1 

C : 

62365 

0 

C : 

6 2 373 

1 

C: 

62400 

1 

C:  62360 

0 

C : 

62353 

0 

C : 

62523 

1 

4 1,2160 

C: 

60  771 

0 

C : 

62351 

1 

C : 

62351 

1 

C : 

61420 

0 

C : 

6 32  30 

0 

C:  63230 

0 

C : 

63230 

0 

C: 

63230 

0 

4 1,2170 

C : 

63230 

0 

C : 

63230 

0 

C : 

-32  30 

0 

C : 

62351 

1 

C: 

62351 

1 

C:  62351 

1 

C: 

62732 

0 

C: 

62743 

0 

41,2200 

C: 

62  760 

1 

CJ 

62703 

1 

C : 

6 26  1 6 

1 

C : 

52351 

1 

C : 

63353 

1 

C:  62351 

1 

C: 

62351 

1 

C : 

63^66 

0 

4 1,2210 

C: 

63  512 

1 

C : 

61/57 

0 

C : 

'•  1/ 42 

1 

C: 

61/50 

1 

C : 

6361  3 

0 

C:  12/47 

0 

’ C : 

63430 

0 

C : 

62351 

1 

4 1,2220 

C : 

62  351 

1 

10146 

0 

02226 

0 

02351 

1 

02226 

0 

02226 

0 

46  242 

1 

61001 

1 

41,2230 

00006 

1 

62233 

1 

02133 

1 

34752 

0 

54117 

1 

62260 

1 

54145 

0 

50117 

0 

41,224  - 

30  150 

: o 

54122 

1 

030  34 

0 

02261 

0 

02246 

0 

2<  12  2 

0 

30122 

0 

74356 

1 

41,2250 

04  313 

i 

50  0 00 

1 

3 00  00 

1 

50145 

1 

56000 

I 

1C  117 

1 

02234 

0 

02  133 

1 

41,2260 

00125 

l 

50000 

1 

12263 

0 

one  02 

0 

00002 

0 

00002 

0 

00002 

0 

12301 

0 

41,2270 

123C1 

0 

00002 

0 

12301 

0 

00002 

0 

CC002 

0 

12301 

0 

00002 

0 

00002 

0 

4 1,2300 

C 0002 

3 

50002 

0 

0 0001 

0 

34317 

G 

12310 

0 

34320 

1 

12  310 

0 

34321 

0 

4 1,2310 

54777 

1 

40002 

1 

r 50  13 

0 

04  6 16 

1 

C : 

60536 

1 

04427 

1 

00136 

0 

55002 

0 

4 1,2320 

55002 

0 

5 4 I 1 7 

1 

000  06 

1 

3 2 11' 

1 

52006 

0 

10  146 

0 

64753 

1 

12332 

0 

41,2330 

12  33  3 

1 

1 2333 

1 

04303 

0 

34  361 

1 

54777 

1 

3100? 

1 

12345 

0 

5 5 001 

0 

41,2340 

56  C02 

0 

54117 

1 

34360 

0 

54777 

1 

31001 

1 

04635 

0 

C : 

61317 

0 

00117 

0 

4 1 ,2350 

04143 

0 

04635 

0 

C : 

61420 

0 

44752 

1 

.0242/ 

1 

50145 

1 

40002 

1 

56132 

1 

4 1, 2360 

/4  753 

0 

02424 

1 

50145 

1 

40  001 

1 

56131 

1 

0244  3 

0 

02/-66 

1 

501/ 5 

1 

4 1 ,2370 

40  000 

0 

56  1 30 

0 

0 240  5 

1 

44  753 

0 

02437 

0 

50145 

1 

40001 

1 

C2371 

0 
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OCTAL  LIST!'?;  F;  PAR  AG'  A PH  * ??  •,  WITH  PARITY  BIT  IN  BIN  AJ  Y AT  THE  RIGHT  OF  EACH  WORD,  "a"  DENOTES  UNUSED  FIXED  MEMORY 
ALL  VALID  WORDS  A r?  E BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  ( I NT  ER  PRF  T I VE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


41,2400 

41,2410 

41,2^20 

41,2430 

4 1,  1 
41,2450 
4 1 , 2 4 1 0 
41,2470 

41,2500 
41,2510 
4 1,2520 
41,2530 


41,2540 

41,2550 

41,2560 

41,2570 

41,2600  c: 

41,2610  C: 

41 ,2620 
4 1,2630 

41,2640 
41,265 0 
41,2640 
4 1,2670 

41,2700 

41,2710 

41,2720 

41,2730 


41,2740 

41,2750 

41,2740 

41,2770 


44  75  2 

l 

02437 

0 

50145 

1 

4GUG2 

1 

02413 

0 

00136 

0 

02413 

0 

54122 

1 

40  130 

1 

0 33  63 

1 

561  22 

0 

02407 

0 

7LT/.C 

A f't  ] p 57 

1 TO  00 

0 

0000 1 

0 

I O £ 

Ov  i ' D 

1 

22  002 

0 

02443 

0 

02426 

0 

00006 

1 

02  3 51 

1 

00156 

c 

22002 

0 

02515:: 

1 

22002 

0 

02515 

1 

100  00 

0 

00001 

0 

64753 

1 

0000  6 

1 

12504 

0 

5 0 1 4 0 

1 

02  261 

0 

(0001 

0 

24145 

1 

00001 

0 

00000 

1 

40000 

0 

12371 

1 

C: 

00147 

0 

30000 

1 

743  50 

1 

00002 

0 

02515 

1 

60145 

1 

5 0000 

1 

4 0000 

0 

50122 

0 

c/.  i i;  c 

q 4 ^ 4;  4, 

1 

c-  m i7 

n 

3 A 7 1 7 

A 

1 

1 

Zj  » ■’  1 1 I 

VJ 

J 1 5 1 1 

V 

03  04  7 

1 

54123 

0 

00006 

1 

32565 

0 

03034 

0 

02575 

1 

03026 

0 

02575 

1 

1 fi  1 1 7 

1 

(1 2 5 7 H 

]_ 

- 0136 

0 

54117 

l v'  i 1 1 

JL 

v u . I J 

61416 

0 

C:  62566 

c 

C : 

6 06  15 

0 

C: 

60677 

1 

65  230 

0 

C:  6*  303 

1 

C : 

6 0715 

1 

C : 

60704 

1 

02  460 

1 

33006 

1 

02337 

1 

02303 

0 

02337 

1 

02307 

1 

46242 

1 

03011 

1 

03  075 

0 

501  4f>:- 

1 

54000 

0 

34753 

1 

03  0 75 

0 

5ni'.5 

1 

540  02 

1 

4475  7 

1 

31  003 

A 

n/,-J  f /, 

, 

i 1 n 0 5 

0 

00004 

0 

1 

J lyUj 

71  004 

0 

50145 

1 

260  00 

0 

02701 

0 

54  00C 

0 

C000  3 

1 

02775 

G 

44753 

0 

02303 

0 

33007 

0 

02337 

1 

02305 

0 

52  006 

0 

347  55 

1 

03075 

0 

50145 

1 

64(501 

1 

0277  6 

0 

023  03 

0 

00(  06 

1 

50  145 

1 

54000 

0 

02775 

0 

44753 

0 

00  006 

1 

32114 

1 

52006 

0 

347  53 

1 

44  75  2 

1 

024  24 

I 

34735 

1 

55015 

0 

34  752 

0 

03  C 75 

0 

50145 

1 

5 40  02 

1 

02371 

0 

44752 

1 

61001 

1 

10000 

0 

50000 

1 

34  317 

0 

54777 

1 

50122 

0 

5*123 

0 

22002 

0 

025  15 

1 

04331 

1 

05705 

0 

023^1 

1 

00001 

0 

5412  3 

0 

22156 

0 

02515 

1 

74736 

0 

10000 

0 

74736 

0 

10000 

0 

04145 

0 

00001 

0 

00001 

0 

0235  1 

1 

22002 

0 

30146 

l 

02474 

1 

02477 

1 

00001 

0 

03026 

0 

31017 

0 

75004 

1 

00006 

1 

50000 

1 

00146 

I 

50  140 

1 

32512 

0 

50000 

1 

04331 

1 

7 6 245 

0 

54117 

1 

54122 

1 

57003 

0 

10  12  2 

1 

02527 

0 

34755 

1 

c 47  7 7 

1 

c r 1 1 7 

A 

A1  AAP 

1 

C/.  1 CA 

n 

1 

>U1  1 1 

‘riUUD 

1 

3 H I D 

u 

5 2 C 0 6 

0 

50140 

1 

02556 

0 

02562 

1 

02141 

1 

C: 

64101 

0 

04616 

1 

C : 

61226 

0 

n ? s 7 7 

1 

cnnnn 

AAA 

A 

1 

U £ IP  J / 

I 

1 

3 C.  O KJ'j 

vj 

U **  O U 

L 

60710 

1 • 

C : 

60715 

1 

C:  60635 

1 

C : 

60717 

0 

607  3 2 

1 

C : 

6062  3 

0 

46752 

1 

0 2 42  4 

1 

33007 

0 

C 23  3 7 

1 

02305 

0 

33  010 

0 

COO  06 

1 

32114 

1 

52006 

0 

34755 

1 

03075 

0 

50145 

1 

54  0 01 

1 

34752 

0 

61002 

1 

00006 

1 

12660 

1 

C277  5 

0 

00006. 

1 

12674 

1 

50145 

1 

60000 

0 

41004 

0 

50145 

1 

70000 

0 

50165 

1 

AOA 

1 

A9A  / A 

1 

-3  0 A A 

1 

02  337 

V A.  < r 

1 

L CTO  U 

1 

P P u u u 

1 

44756 

0 

0301  1 

l 

00006 

1 

32114 

1 

54(  00 

0 

347  53 

1 

03075 

0 

50145 

1 

3 2114 

1 

52006 

0 

36755 

1 

03075 

0 

02424 

1 

34735 

1 

550  IS 

0 

02305 

0 

C 3075 

0 

50145 

1 

54001 

1 

02775 

0 

02307 

1 

COOOfc 

1 

32114 

1 

52006 

0 

02775 

0 

3475  5 

1 

55000 

1 

*■475  5 

0 

SAP:  AS  SEMBL  E REVISION  00 1 OF  AGC  PROGRAM  AP11R0PE  BY  E YL  C 


3: 15  DEC 


2,1970 


PAGE  1724 


•}  C T A l 1 , S T I tv ; F(  - A'-  A C’  A“H  4 ?>  , WITH  PA  T T Y BIT  I M BINARY  AT  THE  MGHT  OF  EACH  WORD,  "a"  OENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  W r c D S At.E  BASIC  INSTRUCTIONS  FXCEPT  THOSE  MARKED  "1"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


41,3000 

5501*- 

1 

Q4457 

0 

4*360 

1 

54777 

1 

04635 

0 

C: 

61547 

0 

C : 

00025 

0 

C: 

CO  026 

0 

41,3010 

C : 

00027 

1 

6*  1 17 

1 

410  00 

1 

5*021 

0 

4002  1 

0 

4002  1 

0 

10000 

0 

13021 

0 

41,3020 

00002 

0 

60117 

0 

00006 

1 

13025 

1 

04145 

0 

00C02 

0 

56  002 

0 

54114 

1 

41,3030 

34  347 

0 

7 0 14  7 

1 

043  22 

0 

00114 

0 

56002 

0 

5411  * 

1 

50117 

0 

33066 

1 

41,3040 

5400  1 

1 

501  17 

0 

343  46 

1 

70153 

1 

50001 

0 

00000 

1 

00  1 14 

0 

56002 

0 

41,3050 

54  1 1 4 

1 

501*0 

1 

03052 

0 

0307  1 

1 

50117 

0 

3306  6 

1 

54001. 

1 

5 0117 

0 

41,3060 

34  346 

1 

70147 

1 

50001 

0 

(00  00 

1 

60000 

1 

00114 

0 

03025 

0 

04322 

0 

41,3070 

0*331 

1 

34346 

1 

70147 

1 

60000 

1 

0011  t 

0 

54117 

1 

56  002 

0 

5*115 

0 

4 1,3100 

34755 

1 

54162 

0 

501  17 

0 

57006 

0 

54155 

1 

50117 

0 

57003 

0 

54154 

0 

41, 3110 

50  140 

1 

03111 

0 

03137 

1 

50117 

0 

30150 

0 

74356 

1 

04303 

n 

00006 

1 

4 1, 3120 

60  117 

0 

54145 

0 

1 1300 

1 

03174 

0 

C2452 

0 

03034 

0 

02261 

0 

03155 

0 

41,3130 

24  1 45 

1 

3 0 14  5 

1 

261  17 

1 

34  755 

L 

50117 

0 

5377'/ 

0 

03155 

0 

0431 1 

0 

41,31*0 

11000 

1 

03  174 

0 

02452 

0 

030  2 e 

0 

022  61 

0 

03151 

1 

34755 

l 

54117 

1 

*1,3150 

03130 

0 

30146 

1 

64753 

1 

00006 

1 

13161 

0 

56154 

1 

00  115 

i 

C : 

02147 

1 

41,3160 

C : 

64  101 

0 

44757 

1 

61017 

0 

00006 

l 

12775 

1 

31017 

0 

7=004 

l 

56  154 

1 

41,3170 

00006 

1 

50 1 54 

1 

010  00 

0 

02775 

0 

03047 

1 

54123 

0 

00006 

l 

33160 

0 

4 1, 3200 

42006 

0 

50140 

1 

0 32  02 

1 

03206 

0 

03034 

0 

03  2 07 

1 

03026 

0 

50000 

1 

4 1,3210 

33  212 

3 

0*  440 

1 

C : 

623  50 

0 

C : 

61106 

l 

C: 

6 1010 

1 

C : 

61076 

1 

C : 

61114 

1 

C: 

61141 

1 

4 1, 3220 

C : 

61420 

3 

C : 

61114 

1 

C : 

65452 

1 

C : 

61420 

0 

C: 

61146 

0 

C: 

61111 

1 

C : 

61420 

0 

C : 

61010 

1 

41,3230 

43237 

0 

71017 

1 

54155 

1 

40136 

1 

64217 

1 

10000 

c 

03245 

1 

C: 

60000 

1 

41,3240 

03  24  5 

1 

34  7 36 

1 

26155 

1 

347  5 5 

1 

5 5022 

1 

36074 

1 

71  001 

0 

04331 

1 

41,3250 

5402  2 

0 

400  72 

0 

56022 

1 

61002 

1 

54154 

0 

347=5 

1 

6 = 012 

1 

1 1 0*  2 

1 

41,32-  ’ 

03  262 

1 

04502 

1 

000  04 

0 

11020 

0 

03271 

0 

34  75  3 

1 

05  203 

0 

C: 

03275 

1 

41,3270 

C : 

62101 

0 

52155 

1 

53021 

1 

00003 

1 

00136 

0 

04400 

1 

11021 

1 

03303 

1 

4 1,3300 

03  303 

1 

03314 

1 

0 33  14 

1 

33320 

0 

05203 

0 

C : 

032  75 

1 

C: 

62101 

0 

3435  5 

0 

41,3310 

05  072 

1 

C : 

0 3 321 

1 

C : 

62101 

0 

05261 

1 

34755 

1 

5 5 0 2 0 

0 

6 = 021 

1 

05261 

1 

41,3320 

C: 

00144 

0 

1 lr21 

1 

03326 

0 

0 3 326 

0 

05165 

0 

0515  6 

0 

11012 

1 

03351 

0 

4 1 , 3 3 3 n 

3607* 

1 

71020 

0 

02317 

0 

34144 

1 

71020 

0 

6 3 3*7 

1 

64023 

1 

30023 

0 

41,3340 

55  001 

0 

3335n 

1 

54136 

1 

4 3 2 3 7 

0 

7102  1 

1 

54156 

1 

02  046 

1 

C: 

75377 

0 

41,3350 

C : 

04  124 

1 

04374 

0 

5155 

0 

34317 

0 

547  7 7 

i 

31047 

0 

54001 

1 

31017 

0 

41,3360 

14  6*  1 

l 

03363 

1 

06155 

0 

54022 

0 

56  0 02 

0 

54115 

0 

34736 

1 

26777 

1 

41,3370 

34  751 

0 

54137 

0 

40022 

0 

40022 

0 

400  22 

0 

40000 

0 

74767 

1 

50000 

1 
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OCTAL  LISTING  FOR  PARAGRAPH  H 227,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WGPD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


41,3410  3 A 066  0 
4 1,3410  C:  61412  1 
41,3*20  54115  0 
41,3*30  03452  1 


74346  0 
10137  0 
347  6 3 1 

3 * 7 t,  7 1 


54124  1 
03371  1 
54137  0 
60777  0 


41,3440  54154  0 34361  1 54777  1 
4 1,3450  04635  0 C:  1C  04.0  1 4000*:  1 
41,3460  04616  1 C:  60601  0 04427  1 
41,3470  10000  D 03r10  0 34351  1 


4 It  3500 
41,3510 
41,3520 
41,3530 

41,3 

41,3 

41 , 3560 
41,3570 

4 1 , 3600 
41,3610 

4 1, 3620 
4 1,3630 


34  217  1 
34354  1 
5412  4 1 
03  520  0 

44360  1 
02351  1 
30023  0 
04 202  0 

30160  0 
30  161  1 

33656  1 
34363  0 


5*157  0 
03473  1 
44740  1 

( 0003  1 

54777  1 

03516  0 
54160  1 
1 o 1 60  1 

0 2337  1 
64166  l 
00<  1 
54117  1 


00006  1 
34352  1 
5 0124  0 
50123  1 

04433  1 
02351  1 
10157  0 
03576  0 

30157  1 
02035  0 
05011  1 
43654  1 


41,36-0  6502*  1 
41,3650  05203  D 
41,36  60  Ci  00  1 1 5 1 
41,3670  00004  0 


65027  1 
C : 03642  0 
0 : 00764  1 
00006  1 


55031  0 
6 2102  0 
343  55  C 
03011  1 


41,3700 
4 1, 3710 
41,372" 
4 1, 3730 


02012  0 
7 1302  3 
04616  1 
C:  65000  1 


64735  1 
65025  0 
C : 10635  0 
C : 0 3731  1 


5^03o  1 
55302  0 
04204  0 
C : 03732  1 


41,3740  a 
41,3750  a 
41,3760  a 
41,3770  S 


a 

a 

a 

a 


a 

a 

a 

a 


5o7?7 

0 

5*143 

0 

10000 

0 

54777 

l 

04635 

0 

4436  0 

l 

54777 

l 

00115 

i 

54020 

l 

56002 

0 

40020 

l 

40020 

l 

56020 

0 

5*022 

0 

03376 

0 

OOOOfc 

i 

13436 

l 

041*5 

0 

34755 

l 

57002 

1 

04  616 

i 

C: 

60601 

0 

44360 

1 

54777 

l 

30154 

1 

: 55013 

0 

34361 

l 

547  7 7 

1 

34755 

i 

55002 

0 

34  753 

i 

c 50  00 

l 

00136 

0 

34753 

i 

71045 

0 

54164 

0 

44753 

0 

71045 

0 

54160 

i 

04457 

0 

31  C47 

0 

52156 

l 

30160 

0 

00004 

0 

00154 

1 

54154 

0 

31045 

l 

03476 

1 

6475? 

0 

00004 

0 

5702  3 

1 

1G00C 

0 

25016 

l 

03527 

1 

10124 

1 

03540 

0 

03535 

1 

55001 

0 

55002 

0 

55015 

0 

03566 

1 

33570 

0 

5*  136 

1 

10123 

0 

03553 

1 

36074 

1 

70123 

0 

5*157 

0 

30123 

1 

54023 

1 

03571 

1 

30160 

0 

02337 

1 

3*755 

1 

55013 

0 

1 

P,p5  1 7 

A 

n 

■JA1  C/, 

n 

n 

.)  W 1-1 

1 

u 4 0 1 ( 

t:  \ > c. 

u 

->  1 ' I . ‘ ( '■ 

U 

- > 1 C 1 

u 

02317 

0 

347  5 5 

1 

55014 

1 

55015 

0 

55013 

0 

n 

n 

71  0(V3 

1 

t/,7ST 

1 

c;  c;  ?o  ~x 

yj  u 'j  *r 

u 

. i-  I j j 

V 

r i jU  j 

1 

O,  1 

I 

. D ju  j 

I 

33657 

0 

55036 

1 

34742 

1 

00006 

l 

05013 

0 

50117 

0 

55023 

0 

10117 

1 

03631 

0 

43655 

0 

3*760 

1 

55016 

0 

00003 

1 

33*61 

0 

00004 

0 

05155 

0 

C : 

C5675 

0 

C:  07675 

1 

C: 

00  17  5 

1 

C : 

40674 

0 

05072 

1 

C : 

07667 

0 

C : 62102 

0 

05  261 

1 

43660 

0 

44742 

0 

000C6 

1 

0301  3 

0 

34750 

1 

00006 

1 

43726 

0 

71303 

1 

65026 

0 

55303 

1 

43730 

1 

4372  7 

1 

70110 

0 

6 4745 

0 

5*110 

0 

0000  3 

1 

04433 

1 

04635 

0 

C:  61471 

1 

C : 

16001 

1 

C : 

00330 

1 

CKSM  7-2012 

1 

a 

a 

a 

a 

a 

a 

a 

a 

a 

a 

a 

a 

a 

a 

a 

a 

a 

a 

a 

a 

a 

a 

a 

a 
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3CTA!  LIS'HMG  R"  PAP  AG  < W-  » 2 3,  WITH  PAR  TTY  BIT  IN  BINARY  AT  THE  FIGHT  OF  EACH  WOFD,  "5"  DEMOTES  UNUSED  FIXED  MEMORY 
ALL  VALID  Wf  'DS  ARE  BASIC  INST  UCTIHNS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  InORDS)  OR  "C"  (CONSTANTS) 


A 2 , 2 000 

C : 

2o  72  3 

G 

C: 

CG45Q 

0 

3 50  2 1 

1 

05146 

1 

32034 

1 

04616 

1 

C : 

20334 

1 

05472 

0 

42 , 2010 

05472 

0 

42033 

1 

601  54 

1 

( 0006 

]. 

12016 

0 

05472 

0 

00004 

0 

34755 

1 

42,2020 

54  1 56 

1 

5 4401 

1 

520  25 

1 

52155 

1 

53052 

0 

20155 

1 

07257 

0 

^2155 

1 

4 ?,  2 030 

20  02? 

1 

00003 

1 

054  72 

0 

C : 

00027 

1 

C: 

062^0 

0 

34752 

0 

54002 

1 

50000 

1 

42,2040 

30  321 

1 

C0CC6 

1 

72053 

1 

50002 

0 

56050 

1 

10002 

1 

12036 

1 

3 7 740 

0 

42,2050 

00006 

1 

05C14 

1 

15261 

0 

C: 

03  146 

1 

0 5516 

0 

C: 

00027 

1 

05516 

0 

C : 

00031 

0 

42,2060 

0 5 516 

0 

C : 

C 0007 

0 

360  37 

0 

I : 

77624 

1 

C : 

27414 

0 

I : 

77776 

1 

05353 

1 

0 : 

00002 

0 

42,2070 

00  004 

0 

04674 

0 

C : 

40165 

1 

04674 

0 

C: 

4 0123 

0 

0601  1 

1 

44736 

0 

00006 

1 

42,2100 

03012 

1 

04635 

0 

C: 

1 2770 

1 

52152 

0 

51002 

1 

32154 

0 

54146 

0 

51002 

1 

42,2110 

32  320 

1 

54147 

1 

41002 

0 

64771 

1 

C0006 

1 

621?  1 

1 

34753 

1 

54140 

0 

42,2120 

02  137 

0 

347  52 

c 

54140 

0 

5 1 U 0 2 

1 

33064 

0 

54153 

1 

35012 

1 

70146 

0 

42,2130 

54302 

1 

5COOO 

1 

32650 

0 

5415  0 

1 

00006 

1 

C00G2 

0 

32652 

1 

52152 

0 

ry  y l in 

52  006 

o 

5 2 1 74 

] 

onnfifi 

1 

50000 

1 

->  y c,  k 7 

1 

o 

c y | y a 

1 

‘f  c.  * c.  I *rU 

V-  'JJ  UU 

cL  L £.  ■ 

4.  \J  \J  CO 

V 

Ji  i£T 

1 

42,2150 

00006 

1 

50000 

1 

32465 

1 

12145 

1 

C: 

OOCOO 

1 

C : 

40000 

0 

C : 

40  000 

0 

C : 

40000 

0 

42,2160 

C : 

01  045 

1 

C : 

01045 

1 

C : 

01144 

1 

C : 

01003 

0 

C : 

013  63 

0 

C : 

00375 

0 

C : 

77776 

l 

C: 

03633 

1 

42,2170 

C: 

01051 

1 

C : 

01  776 

0 

C : 

010  51 

1 

C: 

77777 

0 

C : 

C 10  51 

1 

C : 

00000 

1 

C : 

02  344 

0 

0 : 

00000 

1 

42,2200 

C : 

00  03  2 

0 

C : 

COO  37 

0 

C : 

00321 

1 

C : 

COOOO 

1 

C: 

0105  1 

1 

C: 

01045 

1 

C: 

01045 

1 

C: 

01362 

1 

4 2,2210 

C: 

00000 

1 

C : 

00000 

1 

C. : 

000  00 

1 

C : 

COOOO 

1 

C : 

02  142 

1 

C : 

0344  1 

0 

0 : 

01045 

1 

C: 

03453 

0 

42,2220 

C : 

00024 

1 

C •’ 

03635 

1 

C : 

015  16 

1 

C : 

00000 

1 

C : 

640  00 

0 

C : 

02003 

0 

C : 

24006 

1 

C : 

2401 1 

1 

42,2230 

C: 

64014 

0 

C : 

64017 

0 

C: 

00022 

1 

C : 

22025 

0 

C : 

22030 

1 

C : 

243  3 3 

1 

C : 

COOOO 

1 

C: 

22041 

1 

42,2240 

C : 

00  044 

1 

C : 

00000 

1 

C •’ 

240  52 

0 

C: 

24055 

1 

C: 

0206  0 

0 

C : 

2006  3 

0 

C : 

24066 

1 

C : 

24071 

1 

4 2,2260 

C : 

24074 

1 

0 : 

64C77 

0 

C : 

4 41  o? 

0 

C : 

2410  5 

0 

C: 

6 4110 

0 

C: 

2'  113 

1 

C: 

62  1 16 

0 

C : 

04121 

1 

42,2260 

C : 

64  124 

1 

C : 

00000 

1 

C : 

04132 

0 

C : 

04  135 

1 

C : 

02140 

0 

C : 

02143 

0 

0 : 

64146 

0 

0: 

64151 

0 

42,2270 

C : 

24  154 

1 

C : 

62157 

0 

C : 

0 2162 

0 

C: 

2416  5 

0 

C: 

C2170 

0 

0 : 

24  173 

1 

C : 

24  176 

1 

0 : 

24201 

1 

42,2300 

C: 

24204 

1 

C : 

24207 

1 

C : 

242  12 

0 

C: 

02215 

0 

C: 

24220 

1 

0 : 

24223 

1 

C: 

24226 

1 

C: 

04231 

0 

4 2,  2310 

C: 

00  000 

1 

C : 

04  2 37 

0 

C: 

000  00 

1 

C: 

OOCOO 

1 

C : 

COOOO 

1 

C : 

0 4 2 5 3 

1 

C : 

042  c 6 

1 

C : 

24261 

1 

42,2320 

C: 

00000 

1 

C : 

04H/+0 

1 

C : 

04140 

0 

C : 

04 102 

0 

C : 

00504 

0 

0 : 

00504 

0 

C : 

04  000 

0 

C : 

04000 

0 

42,2330 

C: 

04  000 

3 

C : 

04000 

0 

C : 

00000 

1 

C : 

24400 

0 

C : 

02000 

0 

0 : 

24400 

0 

C: 

04  1 40 

0 

C: 

nOOOO 

1 

42,2340 

C : 

24400 

0 

C : 

00000 

1 

C: 

041  02 

0 

C : 

00000 

1 

C : 

04102 

0 

0 : 

04140 

0 

C : 

04102 

0 

0 : 

00000 

1 

42, 2350 

C : 

24400 

0 

C : 

04140 

0 

C : 

040  00 

0 

C : 

00140 

1 

C : 

GCOOO 

1 

C: 

00000 

1 

C : 

00000 

1 

C : 

00000 

1 

42,2360 

C : 

24400 

0 

C : 

24400 

0 

C : 

244  00 

0 

C : 

24400 

0 

C : 

24400 

0 

C : 

24  400 

0 

C : 

24400 

0 

C: 

00000 

1 

42,2370 

C : 

24500 

1 

C : 

00542 

1 

C : 

244  10 

1 

C: 

20204 

c 

C: 

00410 

1 

C : 

10  000 

0 

C : 

00000 

1 

C : 

00306 

1 
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42,2400  Ci  11367  1 

4 2,2''-  10  C:  >0  204  1 

4 2,2*20  C : 60  500  1 

42,2430  C:  'TO  10?  1 

42,2440  C:  00200  0 

42,2450  C:  (0000  1 

4 2,2460  C:  X:  COO  1 

42,2470  C:  00000  1 


C : 005  LU  O C:  000  00  1 
C:  OOCIO  C C:  24510  0 
C:  OOCCO  l C:  >0016  0 

C;  Coin?  1 C:  10200  1 

C:  245  12  1 C:  245  12  1 

C : lol-3  0 C:  1U5Q7  1 

C:  (0000  l c:  000 OC  1 

C:  000  o i C:  10707  0 


42,  2500  C:  26113  0 
42,2510  C:  07475  0 
4 2,2520  C:  13005  1 
42,2530  C:  04256  1 

42,2640  C : 04 324  3 
42,2550  C:  01670  1 
42,2560  C:  00000  1 
42,2570  C : 05605  1 


C : 31713  0 C : 00070  0 
C:  16051  1 C:  00001  0 
C:  2 5006  0 C:  00002  G 
C:  07C71  0 C : 777  66  0 

C:  27600  1 C:  00036  1 
C:  20000  0 C:  07475  0 
C:  00000  1 C:  00000  1 
C:  03656  1 C, : 00001  0 


4 2, 26 CO  C:  15  340  1 C : L r 3 - 1 C:  010  31  1 
42,2610  C : 74552  0 C : 7C3P7  1 C : 05520  0 
42,2620  C:  02727  1 C:  16415  C C:  00007  0 
42,2630  C:  04426  0 C:  31433  1 C:  34772  1 


42,2640  C. : 00  321  1 
42,2650  C:  03453  0 
42,2660  C:  03663  1 
42,2670  C:  03453  0 

42,2700  C:  03002  0 
4 2,2710  C:  10000  1 
42,272'  C:  00000  1 
42,2730  C:  02200  1 

42,2740  C:  02347  0 
42,2750  C:  03453  0 
42,2760  C:  03666  1 
42,2770  C:  OOOOC  1 


C:  26706  1 C:  04231  0 
C:  0 36  63  1 C:  035  07  (■ 


C : 

01 120 

0 

C : 

0112  2 

1 

C : 

02252 

0 

C : 

013  43 

1 

r • 

0 3001 

0 

C : 

ooooo 

1 

* 

C : 

02200 

1 

C : 

02202 

0 

C : 

00000 

1 

C : 

022  00 

1 

C : 

02202 

0 

C : 

00000 

1 

C: 

02302 

1 

C : 

02304 

1 

C : 

02626 

1 

C : 

03471 

0 

C : 

03473 

1 

C : 

0 35  34 

0 

C : 

02200 

1 

C: 

C 22  02 

0 
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IN  BINARY  A i THE  RIGHT  OF  EACH  WD  F D , "3"  DENOTES  UNUSED  FIXED  MEMORY 


MARKED  "I” 

( I NTERPRETI VE 

OPERATOR 

WORDS)  OR 

"C 

" (CONSTANTS) 

C: 

00204 

1 

C : 

COO  04 

0 

C : 

OOOOO 

1 

C : 

10507 

1 

C : 

10200 

1 

C : 

24512 

1 

C : 

6 0512 

1 

C : 

540C0 

0 

C: 

24012 

1 

C : 

60512 

1 

C.: 

53223 

1 

C • 

6002  6 

0 

C : 

OOOOO 

1 

C : 

OOOOO 

1 

Ct 

OOOOO 

1 

C : 

00010 

0 

r ; 

20512 

0 

C: 

00500 

1 

C : 

00654 

0 

C : 

00102 

1 

C: 

24512 

1 

C : 

24512 

1 

C : 

24512 

I 

C : 

24512 

1 

C: 

00102 

1 

C : 

1 0450 

1 

C : 

OOOOO 

1 

C: 

0614  3 

1 

C : 

OOOOO 

1 

C : 

OOOOO 

1 

C : 

71572 

1 

C : 

0 0006 

1 

C : 

03240 

1 

C: 

ooooo 

1 

C : 

OOOOO 

1 

C: 

03435 

0 

C : 

1 3 C 7 0 

1 

C : 

3434  5 

1 

C : 

00005 

1 

C : 

21616 

0 

C : 

20460 

1 

C: 

C1065 

0 

C: 

06740 

1 

C : 

11414 

0 

C: 

31463 

1 

C : 

03434 

1 

C : 

00047 

1 

C : 

21135 

0 

C : 

77766 

0 

C: 

5 071  1 

0 

C : 

23224 

1 

C: 

00014 

1 

C: 

06  500 

1 

C : 

00012 

1 

C: 

36455 

0 

C : 

6 0 5 c 7 

0 

C : 

000  05 

1 

C : 

0 1 1 1 * 

1 

C: 

00007 

0 

C : 

01247 

1 

r . 

9 0/./,  f\ 

A 

r • 

AAO  9.  C 

1 

r • 

-x  n / a a 

n 

p • 

O 9 /,  9 0 

o 

r • 

n nnn  n 

L.  • 

• 

UUu  DZ> 

1 

u ■ 

3 U \J  U 

u 

C.  J . C.  \J 

V 

L • 

u u u u u 

1 

C : 

lb05  1 

1 

C : 

14400 

0 

C : 

OOOOO 

i 

C : 

05  174 

0 

C : 

1326  1 

0 

C : 

00000 

1 

C : 

00714 

0 

C : 

31463 

i 

C: 

13412 

1 

C : 

07534 

1 

r • 

16  1 7<  i 

A 

r • 

AiliZ  1 

r • 

A 

r • 

P»7  1 7 A 

n 

r • 

9 i a n 3 

1 

• 

I Oi  1 

L • 

\ . • 

3 *i ■ ->  J O 

u 

I • 

1 < I/O 

u 

6lO  V)  D 

I 

C : 

21032 

0 

C: 

346  31 

1 

C : 

23146 

0 

C : 

00636 

i 

C : 

14552 

0 

C : 

15312 

0 

C: 

1*226 

1 

C : 

31757 

0 

C : 

02476 

0 

C: 

0K53l 

0 

C: 

13734 

0 

C.: 

74477 

0 

C: 

5064  3 

0 

C : 

06265 

0 

C : 

16004 

1 

C : 

07016 

1 

C : 

01030 

0 

C : 

3 3 6 ? 5 

0 

C : 

01046 

1 

C: 

15700 

1 

C: 

2 7400 

0 

C : 

010  31 

1 

C : 

2 1 C 3 2 

0 

C : 

12172 

0 

C : 

34122 

1 

C : 

010*5 

1 

C: 

01046 

1 

C: 

OOOOO 

1 

C : 

02316 

1 

C : 

02320 

1 

C : 

01124 

1 

C : 

02117 

1 

C : 

02121 

1 

C : 

02  140 

0 

C: 

03462 

l 

C : 

OOOOO 

1 

C. : 

C0OOO 

1 

C : 

013  31 

1 

C: 

01332 

1 

C: 

OOOOO 

1 

r • 

n n 3 1 a 

1 

f * 

A 

r • 

A 9 7 A C 

1 

r • 

nn  nnn 

1 

r • 

Ci  A A A A 

1 

■J  U . j X i 

I 

U J 3 10 

u 

K,  • 

1 

L-  • 

UUUU  (j 

I 

L-  • 

U V U yj  U 

1 

C : 

OOOOO 

1 

C : 

017  55 

1 

C : 

OOOOO 

1 

C : 

ooooo 

1 

C : 

ooooo 

1 

C : 

02202 

0 

C : 

( 2204 

0 

C : 

(3466 

0 

C : 

02256 

1 

C: 

03620 

0 

C : 

02302 

1 

C: 

COO  00 

i 

C : 

OOOOO 

1 

C : 

03605 

1 

C : 

03575 

0 

C: 

02306 

0 

C: 

02262 

0 

C : 

C3473 

1 

C : 

0353^ 

0 

C : 

03475 

1 

C : 

03453 

0 

C: 

03507 

0 

C : 

03471 

0 

C : 

03  47  3 

1 

C: 

03774 

0 

C : 

3001  3 

0 

C : 

00013 

0 

C : 

(.0013 

0 

C : 

02206 

1 

C : 

OOOOO 

1 

C : 

02204 

0 

C : 

026  24 

0 

C : 

0 347  5 

1 

C : 

03664 

0 

C: 

OOOOO 

1 

GAP:  AS  St MR L t REVISION  OCl  OF  AGO  PROGRAM  AP11ROPE  BY  TYLES  3:15  DEC.  2,1970  PAGE  1728 
DCTAI  LISTING  FOR  PA'UC  'PH  H 232  , W ’ 1 H PA*  IT  Y B ! T I iY  BINARY  A'  THE  FIGHT  ( F EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 
ALL  VALID  gORDS  APE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "1"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


42*3  000 

C: 

00  GOO 

1 

C : 

OGCOO 

1 

C: 

00735 

0 

c : 

OG  736 

0 

C : 

0 07  37 

1 

C : 

00735 

G 

c:  00736 

0 

C: 

00737 

1 

4 2 , 3 r‘  1 0 

C: 

00035 

1 

C : 

( 0036 

1 

C: 

00000 

1 

C : 

Cl  1 07 

0 

C : 

oiiio 

0 

C : 

OOOOO 

1 

C:  03453 

0 

C: 

02362 

1 

42,3020 

C: 

02  364 

1 

C : 

03577 

1 

C: 

02252 

0 

C: 

02  264 

0 

C: 

02276 

0 

C : 

02272 

1 

C:  03642 

1 

C : 

03453 

0 

42,3030 

C : 

02310 

1 

C : 

00000 

1 

C : 

022  00 

1 

C : 

0220  2 

0 

C: 

OOOOO 

1 

C : 

01236 

1 

C:  01240 

0 

C : 

01242 

1 

42,3040 

C : 

03733 

0 

C: 

037  ^4 

1 

C : 

000  00 

1 

C : 

03433 

0 

C: 

03435 

0 

C : 

03437 

1 

C:  03433 

0 

C: 

03435 

0 

4 2 , 3 C50 

C : 

03437 

1 

C: 

03622 

1 

C : 

03624 

1 

C: 

0 3626 

c 

C: 

022  22 

1 

C : 

02224 

1 

C:  02226 

0 

C: 

03  501 

0 

42,3060 

C: 

03  50  3 

L 

C : 

03505 

1 

C : 

03433 

0 

C : 

03435 

0 

C : 

03437 

1 

C : 

01347 

0 

C:  01350 

0 

C: 

OOOOO 

1 

42,3070 

C : 

02706 

1 

C : 

027  10 

0 

C : 

027  12 

1 

C : 

02706 

1 

C : 

02710 

0 

C : 

02712 

1 

C:  02200 

1 

C : 

02202 

0 

42, 3100 

C : 

02204 

0 

C : 

03715 

1 

C : 

03711 

0 

C : 

03713 

1 

C: 

OOOOO 

1 

C: 

COOOO 

1 

C:  OOOOO 

1 

C: 

C 2 7 3 7 

0 

42,3110 

C : 

02  741 

1 

C: 

02743 

0 

C: 

00000 

1 

C : 

OOOOO 

1 

C : 

OOGOO 

1 

C : 

OOOOO 

1 

C:  OOOOO 

1 

C: 

OOOOO 

1 

42,3120 

C : 

00000 

1 

C : 

00000 

l 

C : 

ooooc 

1 

C: 

01045 

1 

C : 

01046 

1 

C: 

01047 

0 

C:  01050 

0 

C : 

01051 

1 

42,31 30 

C: 

01052 

1 

C : 

022  TO 

l 

C : 

02202 

0 

C : 

02  2 04 

0 

C : 

16351 

1 

C: 

0014  2 

0 

C.:  16  347 

0 

C: 

16512 

0 

L.0  2 140 

r • 

00  74  7 

1 

f : 

2 a a 43 

C : 

000  00 

1 

C : 

0 0553 

1 

C : 

0 T 1 4 3 

C : 

0 6 3 a 7 

] 

C:  OOOOO 

1 

r • 

00512 

1 

c.  c.  d *t  r 

L 

i.  • 

1 

1 

1 

H • 

1 

42,3150 

C : 

00012 

1 

C : 

OCOOO 

1 

C : 

24344 

1 

C : 

24503 

1 

C: 

00512 

1 

C: 

00007 

0 

C:  16  347 

0 

C : 

16347 

0 

42,3160 

C : 

10  347 

0 

C : 

24  4 5 ) 

1 

C: 

16447 

1 

C : 

10347 

0 

C : 

10354 

1 

C: 

20410 

0 

C:  00306 

0 

C : 

10204 

0 

42,3170 

C: 

10  452 

0 

C: 

000.00 

1 

C: 

OOCOG 

1 

C : 

OOCOG 

1 

C : 

G 0115 

1 

C : 

0C115 

1 

C:  26511 

1 

C: 

22447 

0 

42,3200 

C : 

16347 

0 

C : 

0 C 3 5 ! 

0 

C : 

002  04 

1 

C : 

06102 

1 

C: 

00503 

1 

C : 

16  347 

0 

C:  16347 

0 

C: 

16  347 

0 

A 2,32 10 

C : 

16  347 

0 

C : 

16347 

0 

C : 

16347 

0 

C : 

00  102 

1 

C : 

02041 

0 

C : 

10347 

0 

C:  24344 

1 

C: 

24507 

0 

42,3220 

C: 

00000 

1 

C : 

16347 

o 

C : 

OOOOO 

1 

C: 

OOOOO 

1 

C : 

OOOOO 

1 

C : 

06  143 

1 

C:  06  043 

0 

C : 

24247 

0 

42,3230 

04616 

1 

C: 

60747 

0 

07257 

0 

03417 

0 

07103 

1 

C : 

C327  1 

0 

34  32  1 

0 

54777 

1 

42,3240 

04616 

1 

C : 

612  26 

0 

03435 

0 

33273 

1 

5^154 

1 

5 5007 

0 

33  2 76 

0 

56155 

0 

42,  3250 

04415 

0 

34320 

1 

54777 

1 

04616 

1 

C : 

612  26 

0 

0000  6 

1 

33300 

1 

52155 

1 

42,3260 

31007 

1 

04  4 ] 5 

0 

343  17 

0 

54777 

1 

046  16 

1 

C : 

61226 

0 

00136 

0 

C: 

25660 

0 

42,3270 

C : 

31  742 

1 

C : 

01727 

1 

C : 

012  17 

1 

C : 

00011 

1 

C : 

32445 

0 

C : 

02104 

0 

C:  10422 

1 

C : 

05174 

0 

42,3300 

C: 

13261 

.0 

C: 

CCOQC 

1 

C : 

00062 

0 

04616 

1 

C : 

6 0747 

0 

07257 

0 

10154 

0 

03311 

1 

42,33)0 

03  342 

1 

63377 

1 

10000 

0 

03326 

0 

03  342 

1 

C3  342 

1 

1C  1 5 5 

1 

03  321 

1 

42,332 

03342 

1 

63400 

0 

10000 

0 

U3326 

0 

03342 

1 

C 334? 

1 

10154 

0 

33402 

1 

42,3330 

03  33  7 

0 

4 3402 

0 

541  54 

0 

43403 

1 

541*5 

1 

33401 

1 

03420 

1 

54154 

0 

42,3340 

33  40  3 

3 

03334 

0 

03404 

1 

33375 

0 

07307 

1 

46245 

0 

2677-r 

1 

04616 

1 

42,3350 

C : 

61266 

1 

34  7 55 

1 

54124 

1 

44752 

1 

5 0117 

0 

64317 

0 

54143 

0 

04616 

1 

42,3360 

C: 

61  322 

0 

034  35 

0 

5 < .l  5 5 

0 

00006 

1 

733?A 

3. 

52155 

1 

^01  17 

0 

34317 

0 

4 2,33  70 

54777 

1 

044  16 

] 

C : 

61266 

1 

04635 

0 

C: 

62570 

1 

C : 

23147 

1 

C:  23346 

1 

C : 

77753 

0 

SAP:  ASSEMBLE  REVISION  001  Of  AGC  PROGRAM  APIIROPE  BY  EYIhS 


OCTA!  LI  ST  TNG  f'  PAR  A 6 APR  i 233,  WlrH  PARITY  BIT  IN  BINARY  AT 
ALL  VALID  WORDS  APE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  ( 


42,3400  c:  41126  1 C:  03343  0 C:  00025  0 C:  37016  1 
42,3410  00006  1 43302  1 20155  1 1 i‘  17  1 
42,3420  34 1-4  1 0T1P3  1 C : 03267  1 00006  1 
42,3430  34  7*  5 1 1%  0 56155  0 56  1*4  1 


42,3440  C C 006  1 

42,3450  C:  03275  1 

42,3460  33536  1 

4 2,34  70  31004  1 


74751  1 
0 0 1 *•  4 G 
54  14.+  0 
23C07  I 


OOOOfc  1 
03573  0 
33537  0 
52155  1 


74737  1 
07103  1 
561#  0 
07103  1 


42,3500  56155  0 COOCfo 
42,3510  23010  1 52155 
42,3520  20 1 55  1 GGC06 
42,3530  5014  5 1 62001 


1 73540  1 20124  1 
1 07103  1 C:  03534  0 
1 13524  0 04145  0 
1 04635  C C:  62775  0 


42,3*40 

42,3650 

42,3560 

42,3570 


C : 13560  t 
54155  1 
00002  0 
63  57  2 1 


C:  0C07 3 0 
34755  1 

54156  1 

041:46  0 


C:  13557  1 
60154  1 
10155  1 
00002  0 


56166  0 
56154  1 
64753  1 
43600  0 


42,3600 

C : 

77743 

1 

C36C3 

1 

00002 

0 

460 1 C 

42,3610 

06  037 

0 

I:  47001 

0 

C : 

0000 1 

0 

C : 

2157§ 

42,3620 

C : 

65  63  6 

1 

Is  77775 

1 

C : 

000  01 

0 

C: 

16205 

42,3630 

C: 

02723 

0 

C:  24001 

0 

I : 

53372 

1 

C : 

02205 

42,3640  I:  .-5  3 401  1 
42,3660  C : 02201  » 
42,3660  T:  77605  1 
42,3670  I : 63256  0 


C:  COOGl  0 
C : 26203  1 
C:  25771  1 

C:  02205  1 


I:  45076  1 
T : 776  24  1 
C:  16207  0 
I : 72431  1 


C:  47537  0 
C : 47,71  l 
I : 412  15  1 

C:  06516  0 


42,3700 
42,371) 
42, 3720 
42,3730 


C: 

o5745 

1 

I : 

47206 

0 

C : 

065  14 

1 

1 : 

57572 

0 

I : 

75  246 

0 

I : 

77736 

0 

C : 

26201 

0 

C: 

00007 

0 

C: 

C4520 

0 

C : 

022  C 1 

0 

C : 

02201 

C 

T : 

47375 

0 

C : 

0?  201 

6 

I : 

743  56 

1 

C : 

06514 

I 

I : 

715  25 

0 

42,3740 

C : 

02205  1 

C : 

02205 

1 

I : 75246 

0 

42,3750 

00006  1 

154  72 

1 

350  17 

1 

42,3760 

05563  1 

0 5 1 55 

0 

34751 

0 

42,3770 

C : 

26501  1 

C : 

0746  3 

1 

CS  03772 

0 

I : 77736  0 
05146  1 
03464  1 
C:  03773  I 


3:15  DEC 


2 , 1970 


PAGE  1729 


THE  RIGHT  CF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 
INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


10155 

1 

13414 

1 

13414 

1 

13410 

0 

00006 

1 

33302 

0 

13412 

1 

56002 

0 

30155 

0 

53010 

0 

04404 

0 

04404 

0 

001 

0 

56002 

0 

54144 

1 

31010 

1 

22155 

0 

31007 

1 

54154 

0 

07103 

1 

O:  03534 

0 

03543 

0 

34755 

1 

54156 

1 

07307 

1 

C 3 5 5 4 

0 

52156 

1 

52  124 

1 

C:  0353* 

0 

03543 

0 

43541 

0 

03561 

0 

00006 

1 

13  507 

1 

04  145 

0 

31005 

0 

03543 

0 

43542 

0 

03561 

0 

52124 

l 

34755 

1 

5 4 1 5 0 

1 

07257 

0 

52155 

I 

C : 00006 

1 

C : 

03240 

1 

C: 

00025 

0 

0:  37100 

I 

a n r r a 

1 

c/.  1 C / 

1 

0 / 7 c c 

1 

/OICC 

A 

ruuuu 

L 

I 

O U1D5 

u 

10154 

0 

04145 

0 

00002 

0 

04145 

0 

13566 

0 

66  7 53 

1 

60156 

0 

00006 

I 

7 1 c , n n 

1 

/.  *a  a n n 

1 

i p.  a n a 

n 

n s*  t.  a a 

1 

1 

C JCUU 

I 

IOu  U V 

u 

1 

55041 

1 

04145 

0 

04616 

1 

C:  11254 

1 

C:  34041 

0 

C : 

27100 

0 

I : 

46135 

1 

C:  00050 

I 

C:  00015 

0 

I : 

77624 

1 

C : 

33664 

0 

I:  74375 

0 

I:  77650 

1 

C: 

65640 

0 

I : 

77775 

1 

C:  00001 

0 

I : 765  21 

0 

C : 

01734 

0 

t : 

71206 

0 

C:  06522 

1 

C:  16205 

1 

C: 

CZ207 

0 

I : 

45  206 

1 

C:  02205 

1 

C : 02205 

1 

C : 

25T"7 1 

1 

C : 

26  206 

1 

C:  02205 

1 

I : 40045 

1 

C. : 

02205 

1 

C: 

65677 

1 

I : 40056 

0 

C = 02205 

1 

I : 

63241 

0 

C: 

06516 

0 

C:  02205 

1 

I:  51061 

0 

C : 

06514 

1 

C : 

65  723 

1 

I : 45345 

I 

C : OOOC 1 

0 

C: 

00007 

0 

t : 

T7772 

0 

C*.  16205 

1 

C : 02201 

0 

I : 

52361 

1 

C : 

06520 

0 

It  63241 

0 

C:  02203 

1 

I : 

77776 

1 

31044 

0 

74747 

0 

33767 

1 

04616 

1 

C : 

20353 

0 

05563 

1 

34740 

0 

05  16  6 

1 

03610 

0 

Ct  01463 

I 

CKSM  56666 

1 

a 

a 

a 

GAP:  ASStMBLC  REVISION  DC  1 OP  AGC  PROGRAM  APllROPE  BY  EYLES  3:15  DEC.  2,1970  PAGE  1730 
OCT  At  LIS'!  :r\  Ft'  P AF  A APH  4 2 ’ 4 » 1 ' 1 H PA:  IT  Y BIT  1 ' 8 1 N A Y AT  THE  LIGHT  0 F EACH  WORD,  "3"  DEMOTES  UNUSED  FIXED  MEMORY 
ALL  VALID  WC^DS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


4 3,2  COO 

50  154 

1 

02002 

1 

02130 

1 

02  171 

1 

023  30 

0 

0 2 70  7 

0 

02302 

1 

02120 

0 

43,2010 

02  120 

0 

02367 

1 

331  35 

0 

13015 

1 

€2361 

1 

02120 

0 

02361 

1 

02361 

1 

43,2020 

02  361 

1 

02401 

0 

03024 

1 

02322 

0 

02  3 25 

1 

02120 

0 

02  15  1 

0 

02163 

1 

43,2030 

02  166 

1 

02414 

l 

027  00 

1 

03221 

0 

03142 

0 

03  213 

1 

02120 

0 

G2037 

l 

4 3*  2040 

03  724 

0 

03726 

1 

03730 

0 

03732 

1 

03045 

0 

03224 

0 

03001 

0 

03006 

1 

43,2050 

02  404 

0 

0261  7 

0 

03051 

0 

03054 

0 

02746 

0 

02756 

1 

02  120 

0 

03227 

0 

43, 2060 

02  120 

0 

02120 

0 

02120 

0 

02  7 64 

c 

02773 

0 

03  IOC 

0 

03064 

0 

0 3 073 

0 

43,2070 

02  120 

3 

03061 

0 

03206 

0 

02  36  1 

1 

C2120 

0 

02361 

1 

11044 

1 

02120 

0 

A3,  2100 

30100 

0 

72127 

0 

100  00 

0 

02120 

n 

36007 

0 

55044 

1 

30002 

0 

54155 

1 

43,2110 

44752 

1 

04154 

0 

021  13 

0 

00155 

0 

04364 

1 

05472 

0 

34755 

1 

02105 

1 

43,2120 

04364 

1 

04635 

0 

C: 

21050 

1 

31011 

0 

COL  06 

1 

16  742 

1 

02120 

0 

C : 

24100 

0 

43,2130 

02  174 

1 

02133 

1 

<214  2 

1 

02375 

1 

04616 

1 

C : 

16714 

1 

04616 

1 

C: 

17716 

1 

i 

IV?  J t i 

1 

026  42 

o 

"'461  6 

0 : 

5 2 343 

04  616 

1 

C : 

17714 

0 

12150 

0 

“ J ? C.  1 ^ 1 

. ■ C.  I "v  1 

1 

I 

43,2150 

02  121 

1 

02642 

0 

046  16 

1 

C : 

53471 

0 

046  16 

1 

C: 

1771-4 

0 

02160 

1 

02121 

1 

43,2160 

05  567 

0 

C: 

00523 

c 

02121 

1 

05516 

0 

C : 

00013 

0 

02121 

1 

05504 

0 

C : 

00013 

0 

43,2170 

02  121 

1 

02174 

1 

022  05 

1 

02227 

1 

46GC7 

1 

t 1002 

1 

00006 

1 

16742 

1 

43.22CC 

6 2 204 

0 

C 0 006 

1 

167  37 

0 

02120 

0 

C: 

777  13 

1 

02  375 

1 

02076 

1 

32225 

0 

43,2210 

04616 

l 

C : 

203  34 

1 

05472 

0 

12214 

0 

322  2 6 

0 

04F  1 6 

1 

C : 

20620 

1 

04616 

1 

43,2220 

C : 

17000 

1 

046  16 

1 

C : 

177  16 

1 

05472 

0 

05472 

0 

C : 

06226 

1 

C : 

12200 

0 

02642 

0 

43,2230 

02076 

1 

34745 

0 

7 00  74 

0 

10000 

0 

12114 

0 

4232  1 

1 

00  004 

0 

70110 

0 

43,2240 

34  1 1 0 

0 

32260 

1 

0 4fc  1 6 

1 

C: 

203  34 

1 

054  72 

0 

12241 

0 

04616 

1 

C : 

46000 

0 

43,2250 

32226 

0 

04616 

1 

C : 

20620 

1 

34736 

1 

05105 

0 

C : 

0 22  41 

0 

C : 

66  107 

1 

15472 

1 

43,2260 

C: 

06111 

0 

046  16 

1 

C : 

52475 

0 

02264 

0 

30167 

1 

75004 

1 

10000 

0 

50000 

1 

43,  2270 

54  000 

0 

4C000 

0 

26167 

0 

046  16 

1 

C: 

17714 

0 

02277 

1 

05155 

0 

05567 

0 

43,2300 

C: 

00  50  3 

1 

05  155 

0 

101  10 

0 

12121 

0 

12121 

0 

12306 

1 

42321 

1 

00004 

0 

43,2310 

70110 

3 

5 4 1 1 0 

0 

040  11 

1 

34777 

1 

04616 

1 

C : 

01735 

1 

05516 

0 

C : 

00126 

1 

43,2320 

12121 

3 

C : 

4 1000 

1 

055  04 

0 

C : 

002  54 

1 

12121 

0 

055  1 6 

0 

C: 

00254 

1 

12121 

0 

43,2330 

02  375 

1 

02076 

1 

32357 

1 

04616 

1 

C: 

20334 

1 

05472 

c 

0?  3 37 

1 

32360 

0 

43,2340 

04616 

1 

C: 

20620 

1 

046  16 

1 

C : 

17210 

1 

046  16 

1 

C: 

17716 

1 

05472 

0 

32356 

0 

43,2350 

04616 

1 

C : 

17323 

0 

046  16 

1 

C : 

17716 

1 

05472 

0 

05472 

0 

C : 

02^37 

0 

C: 

06335 

1 

43,2360 

C: 

12  400 

0 

4 64  33 

1 

342  01 

0 

00006 

1 

01007 

1 

04635 

0 

C: 

62001 

1 

02076 

1 

4 3 , 2?  "70 

34  740 

0 

0 5105 

0 

C : 

02005 

0 

C : 

64064 

1 

05155 

0 

31304 

1 

00006 

1 

16742 

1 
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43,2400 

.2  120 

0 

02076 

1 

C 46  3 5 

0 

C : 64002 

43,2410 

02120 

3 

05  504 

0 

C:  00117 

0 

12420 

43,2420 

34741 

1 

54003 

O' 

32640 

1 

55755 

4 3, 2'  30 

1 

T01  10 

0 

541  10 

P 

t 2 6 4 1 

£ O £ I 

40  077 
32  63  5 

0 

0 

4 3, 2440 
43,2450 

0 

0 

747'  3 
046  lo 

1 

1 

10000 
C:  20353 

12575 

12603 

43,2460 

05  15  5 

0 

31052 

1 

55751 

1 

36242 

43,2470 

34752 

0 

00006 

1 

02033 

0 

00006 

1 

02642 

0 

30077 

1 

74743 

1 

10000 

0 

1 

0264  2 

0 

02076 

1 

05504 

0 

C:  00063 

1 

0 

34755 

1 

55754 

1 

55756 

0 

00  004 

0 

0 

0 0006 

1 

02033 

0 

26  110 

0 

00003 

1 

0 

34753 

1 

5505  2 

0 

34751 

0 

55051 

0 

1 

12461 

1 

12450 

0 

34751 

0 

05464 

1 

0 

t 1 7 5 1 

1 

10000 

0 

12577 

1 

55  753 

0 

1 

12505 

1 

32637 

1 

55045 

0 

32636 

0 

A3, 2500  04616  1 C:  20345  1 
43,2510  34752  0 55752  1 
43,2520  1GOOO  5 12121  0 
43,2530  C:  20334  1 12603  1 


126  03  1 
05203  0 
36242  0 
12534  0 


12470  1 

C:  02003  0 C: 

71751  1 

12526  0 


12475 

1 

347 

^2104 

0 

000 

10000 

0 

125 

32632 

1 

046 

36  1 00006  1 
03  1 40077  0 
42  1 32631  1 
16  1 C:  20334  1 


05012  1 
7 47^3  l 
04616  1 
12603  1 


4 3,2560 

12  556 

1 

1 25  26 

0 

32633 

0 

04616 

1 

C:  20334 

1 

12603 

1 

12550 

43,2550 

32  634 

1 

046  16 

1 

C : 

203  34 

1 

12603 

1 

1 2556 

1 

12542 

1 

34755 

43,2560 

35000 

1 

04616 

1 

C : 

01735 

1 

32640 

1 

55755 

0 

34755 

1 

55754 

43,2570 

/I  751 

1 

10000 

0 

447  53 

Q 

6 4 /52 

0 

12462 

1 

3476  6 

1 

55755 

12542  1 
55755  0 
36242  0 
34752  0 


4 3 , 2 6 0 0 
43,2610 
43,2620 
4 3,2630 


55753  0 
0000'  0 
54003  0 
12121  0 


36242  0 
44736  0 
34755  1 
04110  0 


125  11  1 
00006  1 
55755  0 
C:  04116  0 


347  55 

1 

55755 

0 

34744 

1 

O'- 6 16 

1 

C : 

01735 

1 

03012 

1 

0551  6 

0 

C : 

00063 

1 

05472 

0 

34  7'  1 

1 

34746 

0 

046  16 

1 

C : 

C1735 

1 

05516 

0 

C: 

00117 

0 

C4102 

0 

C:  04103 

1 

C : 

C 1014 

0 

C:  14431 

1 

C : 

00201 

1 

43,2640  C:  10145  1 C:  00"'  0 

4 3,26  50  10  000  0 02  1 20  0 

43,2660  10000  0 02120  0 

43,2670  10000  0 02120  0 


A 0Q77  C 
401  03  1 
'•0075  1 
41011  1 


7 4 741  0 
7 4 746  1 
74747  0 
62677  0 


10000  0 021 

IOC 00  0 126 

10000  0 126 

00006  1 121 


2 0 

0 

30101 

62 

0 

40107 

T 2 

1 

3007' 

20 

1 

00002 

1 74741  0 

0 74735  0 

1 7476-5  1 

0 C:  00026  0 


43,2700 

43,2710 

43,2720 

43,2730 


02123  0 
34  763  1 
74355  1 
05  472  0 


02076  1 
00 006  1 
00006  1 
02732  0 


34740  0 
02012  0 
12724  0 
3 ? 745  0 


05105  0 
10COC  0 
12120  1 
04616  1 


C;  03606  1 
17120  1 
02076  1 
C:  20620  1 


C:  64104  0 
34355  0 
32225  0 
34746  0 


05155  0 02123  0 
00006  1 06031  0 
04616  1 C:  20334  1 
000 Of  1 05012  1 


4 3,2740 
43,2750 
4 3,276  0 
43,2770 


34752  0 
05146  1 
05  20  3 0 
C:  02 022  0 


05203  0 
G C Cuts  1 

C:  03674  1 
C-  : 54  104  0 


C : 02035  0 

32755  1 
C : 60107  1 
05155  ( 


C:  64100  1 
0516  5 0 
05155  0 
02076  1 


15472  1 
C:  03242  0 
02123  0 
35021  1 


C:  12600  1 
C:  44104  1 
02076  1 
03  10 5 0 


02076  1 
02076  1 
34-737  0 
C:  02656  0 


35021  1 
34752  0 
05105  0 
C:  10104  0 
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43,3000 

15  155 

1 

00004 

0 

40111 

1 

74735 

0 

2 6111 

1 

12121 

0 

00004 

0 

44735 

0 

43,3010 

70111 

1 

54  1 11 

1 

046  74 

0 

C : 

4C  153 

1 

02121 

1 

02123 

0 

02076 

1 

34737 

0 

43,3020 

051C5 

0 

C : 

0 21T3 

1 

C : 

46106 

1 

0*155 

0 

3 3044 

1 

70074 

0 

00006 

1 

12121 

0 

43,3030 

05516 

0 

C : 

00  Cl'- 

0 

0551  6 

0 

C : 

00006 

1 

05  516 

0 

C: 

00037 

0 

34747 

1 

70075 

1 

43,3040 

00006 

1 

1 2 1 ? 1 

0 

04b  3 5 

0 

C : 

640  54 

1 

C : 

005  00 

1 

33050 

1 

54  3 3* 

0 

02121 

1 

43,3050 

C : 

03  707 

1 

05516 

c 

C : 

000  26 

0 

03056 

1 

0S5C4 

0 

C: 

00026 

c 

05516 

0 

C:  00030 

1 

43,3060 

12  121 

0 

05504 

0 

C : 

000  30 

1 

02121 

1 

02123 

0 

02076 

1 

37710 

0 

05105 

0 

43,3070 

C : 

02002 

1 

C : 

76065 

0 

05155 

0 

00004 

0 

4 4753 

0 

70101 

0 

54101 

0 

02121 

1 

43,3100 

02  123 

0 

02076, 

1 

35021 

1 

05  146 

1 

34753 

1 

55376 

0 

34755 

1 

55362 

0 

43,3110 

33245 

1 

55361 

0 

03522 

1 

23372 

0 

23373 

1 

33246 

0 

54  156 

1 

33130 

0 

43,3120 

04616 

1 

C : 

203  34 

1 

03125 

1 

G3633 

1 

03115 

1 

33245 

1 

55371 

1 

05472 

0 

4 3,  313C 

C: 

01201 

0 

31376 

1 

00006 

1 

13336 

0 

0 3522 

1 

02076 

1 

35021 

1 

05146 

1 

L,  *3  1 u n 

~l 

r • 

4000* 

1 

34737 

0 

0 1 1 <q 

fj 

C 5 

031^7 

0 

C : 

6 6103 

0 

06155 

0 

06  037 

n 

D 1 D 1 *+U 

UtDj  / 

J 

v_  • 

1 

U 2 1 u 2 

43,3150 

I : 

77624 

1 

C : 

274  14 

0 

J ; 

43014 

0 

C : 

04063 

0 

C: 

04304 

1 

C : 

67160 

1 

I:  77614 

1 

C:  04263 

1 

43,3160 

I : 

77776 

1 

33204 

1 

0 55  44 

1 

C : 

01626 

1 

C : 

015  5 4 

1 

00003 

1 

06037 

0 

I : 77624 

1 

43,3170 

C: 

26  76  0 

1 

I : 

45154 

0 

C: 

02030 

0 

C : 

26114 

1 

I : 

77776 

1 

33205 

0 

50  12  0 

1 

54052 

1 

43, 32C0 

04  635 

0 

C : 

27  4 25 

1 

I : 

77634 

0 

C : 

210  0 0 

1 

C: 

03051 

0 

C : 

67202 

0 

05  504 

0 

C:  0022 1 

0 

43,3210 

34  755 

1 

04,^3*; 

0 

C : 

1 0040 

1 

0207* 

1 

3 5017 

1 

051^5 

0 

C:  02007 

1 

C:  62064 

1 

43,3220 

05  1 55 

0 

055C4 

0 

C : 

001  15 

1 

02  121 

1 

05516 

0 

C : 

00115 

1 

02  121 

1 

02076 

1 

4 3,3230 

04  63  5 

0 

C : 

60000 

1 

C : 

00061 

0 

C : 

01373 

1 

C : 

01461 

0 

C : 

01773 

0 

C:  00060 

1 

C:  60017 

1 

43,3240 

C : 

17717 

A 

v f 

C : 

2 5 2 5 2 

0 

C: 

5 2400 

1 

C: 

76  7 77 

1 

C : 

01371 

0 

0 : 

03336 

1 

31  360 

0 

00006 

1 

43,3250 

1325? 

0 

00006 

1 

31376 

1 

5137  7 

0 

5 2001 

1 

3475  5 

1 

55360 

1 

00004 

0 

43,3260 

30  002 

3 

0 

55363 

1 

25365 

0 

055  71 

1 

C : 

01102 

0 

11362 

0 

34755 

1 

43,3270 

55362 

0 

03336 

1 

013*7 

1 

IOC 00 

0 

13246 

0 

13246 

0 

10000 

0 

13246 

0 

43,3300 

00  002 

0 

G CO  C 6 

1 

2 33  71 

0 

03332 

0 

11362 

0 

0 3 312 

1 

03303 

1 

03312 

1 

43,3310 

25366 

0 

0 1371 

0 

6 56  60 

1 

00006 

1 

t;3316 

0 

03267 

1 

25366 

0 

64757 

0 

4 3,3320 

50000 

1 

03322 

1 

013  71 

0 

01371 

0 

01371 

0 

C 3 3 3 7 

0 

03520 

0 

01371 

0 

43,3330 

01  371 

0 

01371 

0 

0^006 

1 

23361 

1 

0463* 

0 

C : 

03214 

0 

03  30  1 

0 

34753 

1 

43,3340 

55372 

1 

34755 

1 

54003 

0 

33234 

1 

5 53  77 

1 

3501  2 

1 

55  373 

0 

03367 

0 

43,3350 

35007 

0 

55377 

1 

350  12 

1 

5 5373 

0 

0336  7 

0 

35007 

0 

55377 

1 

33235 

0 

43,3360 

55  37  3 

0 

03367 

0 

55372 

1 

33232 

1 

55377 

1 

33233 

0 

5*  373 

0 

00004 

0 

43*3370 

30  00  3 

1 

5 53  74 

1 

000  06 

1 

51377 

0 

30001 

0 

53376 

0 

31377 

0 

55360 

1 
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43,3400  54001  I 2400  1 0 50000  1 52001  l 

43,3410  03  273  1 31360  C 00006  1 13437  0 

43,3420  52001  1 51377  0 40000  0 51377  0 

43,3430  t§4pf  o 00004  1 31376  1 51377  0 

43,3440  03332  0 31374  0 54003  0 25377  0 

43,3450  03367  0 11372  l 03362  0 25372  0 

43,3460  >0006  1 133*5  0 10003  0 03350  1 

43,3470  64 7 ' 0 1 500  > 1 4)000  0 113*2  1 


43, 3500 
43,3510 
43,3520 
43,3530 


54  021  0 
60C20  0 
34754  0 
55373  3 


>4023  1 
60022  1 
55376  C 
34753  1 


60020  0 
60021  1 
34733  1 
55375  0 


60022  1 
60023  0 
53374  1 
31374  0 


4 3,3  56  0 
43,3550 
43,3560 
43,3570 


03563  1 
03552  0 
30000  1 
55,37  1 1 


35C20  0 
03563  1 
41372  1 


03574  1 
55373  0 
03574  1 
61373  1 


4 OOOd  0 
34755  1 
55372  1 
6 0 C 0 2 G 


43,3600 
4 3, 36  IP 
43,3620 
43,3630 


00006  1 
03  616  0 
11 376  0 
03  533  1 


13670  1 
0*'-  16  0 
1C067  1 
03557  0 


11375  0 

11375  0 

0 5122  0 
03557  0 


03606  1 
03617  1 
03625  0 
41374  1 


43,3640 

43,3650 

43,3660 

43,3670 


>4741  1 
13  660  0 
63237  1 
31 374  0 


*5374  1 
63240  1 
2737*  1 
74350  1 


03646  0 
00006  1 
11377  1 
04331  1 


34 735  1 
13655  0 
03525  0 
54001  1 


43,3700 

43,3710 

43,3720 

43,3730 


54021  3 
03113  l 
.7747  1 
34  75  2 0 


3 COG 1 0 

11371  1 
C 32  7 3 1 
137*3  1 


74757  1 6CU21  1 
03714  4 0371*  1 
036  33  1 C:  66  100  0 
36245  1 *5166  0 


43,3740 

43,3750 

43,3760 

43,3770 


04635  0 

- 

3 

3 


C:  11762  1 31011  0 

C:  11401  l C:  03752  1 

3 nj 

3 a 


1 

C:  03753  0 
a 
a 
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THE  TIGHT  L F EACH  WORD,  "3"  DENOTFS  UNUSED  FIXED  MEMORY 
INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


51377  0 
00006  1 
60001  0 
62001  1 

41377  1 
3QCG3  1 
35007  0 
03467  1 

60021  1 
64753  1 
34753  1 
54001  1 

55377  1 
55371  1 
61371  0 
22000  1 

03606  1 
37747  1 
03332  0 
63723  1 

27374  1 
03662  0 
34753  1 
31374  0 

54001  1 
64753  1 
3 -,7*5  1 

02 076  1 

31166  1 
CKSM  67233  1 
a 
a 


4000  1 

1 

51377 

0 

60000 

1 

51377 

0 

40001 

1 

51377 

0 

032  73 

1 

31  360 

0 

00006 

1 

34755 

1 

55360 

1 

00003 

1 

613  7 3 

1 

00  006 

1 

13451 

0 

64743 

0 

54003 

0 

63243 

1 

54003 

0 

34*7  1 

1 

55372 

1 

3324  1 

0 

5402  0 

1 

54022 

0 

60023 

0 

63242 

0 

03273 

1 

032*3 

1 

25367 

1 

03301 

0 

55377 

1 

34755 

1 

55371 

1 

7435C 

1 

61373 

1 

0465  l 

1 

AdAAA 

i -3  c tr  1 

O A A 

n 

‘J  U ' J 0 

1 

13  ""I 

1 

U 

34753 

1 

55375 

0 

51  373 

1 

553*  1 

1 

34755 

1 

61371 

0 

31373 

1 

75012 

0 

64350 

0 

0 3 6 7 0 

0 

10001 

1 

03616 

0 

03617 

1 

34763 

1 

55375 

0 

25373 

1 

11377 

1 

03533 

1 

00006 

1 

13  131 

0 

31374 

0 

03662 

0 

74  350 

1 

00006 

1 

33236 

0 

27374 

1 

03662 

0 

0354  3 

0 

34745 

0 

03525 

0 

74357 

0 

00006 

1 

13705 

1 

31376 

1 

00006 

1 

13711 

1 

55371 

1 

60001 

1 

61371 

0 

137-'  3 

] 

34753 

1 

13733 

1 

31011 

0 

OOOOfc 

1 

13742 

1 

5 517  2 

0 

34753 

1 

55  173 

1 

a 

a 

a 

a 

a 

a 

a 

a 

a 

GAP:  ASSEMBLE  REVISION  001  GF  AGC  PROGRAM  API 1R0PE  BY  EYLES 


CCCUP  I ED 

LOCATIONS 

PAGE 

OCCUPIED 

LOCATIONS 

PAGE 

4000 

To 

4045 

1 53 

5 360 

TU 

5425 

1299 

4046 

TO 

40  65 

1 54 

5426 

Tr 

5435 

13  00 

4066 

TO 

41  Cl 

1 5 5 

5436 

TU 

5 444 

1304 

410? 

TO 

41  23 

3 81 

546  5 

TO 

5455 

1306 

TO 

1 44 

439 

5456 

1 307 

T I C *T 

“ I • 

4145 

TO 

4153 

4 46 

5457 

TO 

5463 

1309 

4154 

TO 

42C3 

452 

5464 

TO 

5 50  3 

1354 

4204 

TO 

4206 

454 

5504 

TO 

5532 

1375 

4 2 07 

TO 

42  4 2 

4 55 

5533 

TO 

5 543 

1 376 

4 243 

yn 

43  02 

4 56 

5544 

TO 

5 56  2 

1 37° 

4303 

TO 

43  3 5 

460 

5563 

TO 

5566 

1380 

4336 

TO 

4377 

461 

5567 

TO 

5620 

1381 

44  00 

TO 

46  36 

462 

5621 

TO 

5635 

1382 

44  37 

TO 

4461 

4 64 

5636 

TO 

5714 

1383 

44^7 

TO 

45  11 

465 

6 7 15 

TO 

5 7^2 

1 3«4 

4512 

TO 

45  22 

521 

5753 

TO 

5755 

1404 

4523 

TO 

45  36 

522 

5756 

TO 

5774 

1405 

*•5  37 

TO 

45  63 

5 23 

5775 

TO 

5776 

28 

456a 

TO 

45  77 

5 24 

6000 

40 

46  00 

TO 

66  15 

525 

6001 

TO 

6010 

224 

4616 

TO 

46  44 

9 98 

6011 

TO 

6021 

516 

46  4 5 

TO 

46  73 

9 99 

60  22 

TO 

602  6 

593 

4 6 74 

TO 

4726 

1000 

602  7 

TO 

6036 

750 

4727 

TO 

67  3 1 

10  01 

6037 

TO 

6056 

100  2 

4732 

TO 

4762 

1095 

6057 

TO 

6102 

1003 

4763 

TO 

50  10 

1096 

6103 

TO 

6114 

1004 

5011 

TO 

50  31 

1097 

6115 

TO 

6 1 *-  3 

1005 

5032 

TP 

5071 

1102 

6144 

TL 

6212 

100  6 

5072 

Tn 

51  27 

1103 

6213 

TO 

6214 

1007 

5 1 30 

TO 

5132 

11  04 

6215 

TO 

6246 

1008 

5133 

TO 

51  64 

11  05 

6247 

TO 

6262 

1009 

516  5 

TO 

,5172 

11  16 

6263 

TO 

6273 

1010 

5173 

Tn 

52  34 

111? 

6 27  4 

TO 

6333 

101 1 

5235 

1 1 20 

6334 

TO 

6353 

1 012 

5236 

TO 

5260 

1121 

6354 

TO 

6371 

1014 

5261 

TO 

5276 

1129 

6 37  2 

TO 

641  3 

1015 

5277 

TO 

5300 

1 1 ?0 

64  1 4 

TC 

6433 

1016 

5301 

TO 

53  10 

1131 

6434 

TO 

6457 

1017 

5311 

TO 

1 3 26 

12^4 

6460 

TO 

6467 

101  8 

5327 

TO 

53  57 

1298 

6470 

TO 

6522 

1019 
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OCCUPIED  LOCATIONS  PAGE 


6523 

TO 

6556 

1020 

6557 

TO 

6624 

1021 

6 625 

1022 

6 o 2 6 

TO 

6666 

1023 

6667 

TO 

6722 

1024 

6723 

TO 

6746 

1025 

6747 

TO 

7002 

1026 

7 fin  ^ 

Tr  i 

70  OA 

i n ?7 

I L 

7005 

TO 

70  6 1 

10  28 

706  ? 

TO 

7n7n 

1029 

7071 

TO 

7102 

1030 

7103 

TO 

7135 

1031 

7136 

TO 

7 153 

1032 

7154 

TO 

7214 

1033 

7215 

TO 

72  36 

103* 

7237 

TO 

7254 

1 03  5 

7255 

TO 

7315 

1036 

7316 

TO 

7330 

1037 

7331 

TU 

7341 

1038 

7342 

TC 

7400 

1039 

7401 

TO 

7424 

1 06  0 

7425 

TO 

74-57 

1041 

7460 

TO 

7525 

10*2 

7526 

TO 

7571 

10  6? 

7572 

TO 

7623 

1044 

7624 

TO 

7654 

1045 

7655 

TO 

7707 

1046 

7710 

TO 

7722 

1097 

7723 

TO 

7747 

1098 

7750 

TO 

7753 

1302 

7754 

TO 

7755 

1459 

7756 

TO 

7757 

28 

CO, 2000 

TC 

00 , 2016 

1013 

00,2017 

TO 

00,2041 

1047 

00,2042 

TO 

00,2100 

1048 

00,2101 

TO 

00,2120 

1049 

no, 2121 

TO 

00,2143 

1050 

00,2144 

TO 

00,2171 

105  1 

00,2172 

TO 

00,2213 

1052 

OC, 2214 

TO 

00,2235 

1053 

OCCUPIED 

LOCATIONS 

PAGE 

00,2236 

TO 

00,2276 

10  54 

00,2277 

TO 

00,2331 

1055 

00,2332 

TO 

00,2352 

1 056 

00,2353 

TO 

00,2421 

1057 

00,2422 

TC 

00,2*36 

1 058 

00,2437 

TO 

00, 2*^77 

1059 

00,2500 

TO 

00,2537 

1060 

00,2540 

TO 

00,2567 

1061 

00,2570 

TO 

n 0,2607 

1062 

00,2610 

TO 

00,2624 

1063 

00,2625 

TO 

00,2641 

1064 

00,2642 

TO 

00,2653 

1065 

00,2654 

TO 

CO  , 272  0 

1066 

00,2721 

TO 

00,2747 

1 067 

00,2750 

TC 

00, 3006 

1068 

00,3007 

TO 

00,3022 

1069 

00,30  2 3 

TO 

00, 3C 72 

1070 

00, 3C73 

1071 

00 , 307*‘ 

TO 

00,3132 

1072 

00,3133 

TO 

00,3150 

1 073 

00,3151 

TO 

00,3173 

1074 

00,3174 

TO 

GO, 3206 

1075 

00, 3207 

TO 

00,3231 

1076 

00,3232 

TO 

00,3277 

1077 

00,3300 

TO 

00,3342 

1078 

00,3343 

TO 

00,3404 

1079 

00,3405 

TO 

00,3455 

1 080 

00,36  56 

TO 

00,3516 

1081 

00,3517 

TO 

00,3552 

1 082 

00, 3553 

TO 

00,3607 

1083 

00,36 10 

TO 

00, 3651 

1 084 

00,3652 

TO 

00,3713 

1 085 

00,3714 

TO 

00,3734 

1086 

00,3735 

TO 

00,3767 

1377 

00  ,3770 

TO 

00,3773 

1378 

00,3774 

TO 

00,3775 

28 

01  ,2000 

TO 

01 , 2C0 1 

43 

01,2002 

TO 

01 , 2031 

2 39 

oi  , 20  32 

TO 

01 , 2070 

240 

01,2071 

TO 

01 ,2133 

241 
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OCCUPIED  LOCATIONS 


0 1,21 34 
0 1,2173 

TO 

TO 

01 ,21 72 
01,2205 
01,1  K 
01,22  65 

0 1,2207 

TO 

01,2266 

TO 

01 ,2342 

01,2344 

TO 

01,2343 
01 ,23  71 

0 1,2372 

TO 

01,2426 

C 1,2427 

TO 

( 1,24  46 

0 1 , 2 4 7 

TO 

01  ,24  66 

01,2467 

TO 

01,2515 

0 1, 2516 

TO 

01,2532 

01,2533 

TO 

01,2554 

0 1,  25  55 

TO 

01,2600 

0 1,2601 

TO 

01,2635 

01,2636 

TO 

01 ,2703 

01,2704 

TO 

01 ,2757 

01,2760 

TO 

0 l ,2771 

0 1,2772 

TO 

01,3022 

01,3023 

TO 

01 ,3071 

01,3072 

TO 

01  ,3102 

0 1,3103 

TO 

01,3150 

01,3151 

TO 

01 ,3153 

01,3154 

TO 

'1,3205 

0 1 , 3206 

TO 

01,3230 

01,3231 

TO 

01  ,3257 

01,3260 

TO 

01,3307 

0 1,3  310 

TO 

01 ,33  53 

0 1 , 3 3 c ' 

TO 

01 ,33  70 

01,3371 

TC 

01 ,3373 

01,3374 

TO 

01  ,3406 

01,3407 

TO 

01,3451 

0 1,3452 

TO 

01,3500 

01,3501 

Tn 

0 1,35  25 

0 1,3526 

TO 

01, 3565 

0 1 , 3 5 

TO 

01,36  10 

0 1,3611 

TO 

01,3661 

31,3662 

TO 

01,3706 

0 1, 374? 

TO 

01 ,3745 

0 1,3746 

TO 

01 ,3775 

PAGE 

OCCUPIED 

2 42 

2'3 

2 93 

04,2000 

04,2024 

294 

04,2030 

?°5 

p /,  n 

296 

C4 , 2073 

1087 

04,2143 

1088 

04 , 2206 

1089 

14,2254 

1 '■'1  e r\ 

C/ ,2323 

1 J 77  XJ 

1091 

04 , 2366 

1092 

04,2425 

10  93 

04, 2 '-63 

1 0 94 

( i 4 , 2 5 3 6 

1 1 PA  P.  A . 9 Tv “7  6 

•-/  1 J c ■'  t • / 

1107 

04,2615 

11  08 

04,26  31 

11  09 

04,2636 

1110 

11  11 

04 , 2647 

ri  i . . 7 A e;  (■ 

1112 

04 ,2734 

11  13 

04,3013 

1114 

04,3027 

1115 

04,3064 

11  16 

04,3077 

1122 

1123 

04,3130 

04,3165 

1 1 24 

04,3212 

1125 

04 , 3253 

1126 

04,3271 

1127 

04,3274 

112  8 

04,3317 

1131 

04,3372 

1132 

04 ,340 1 

1303 

04,3426 

1304 

04 , 3500 

1305 

04 ,3536 

13  06 

04,3601 

13  07 

04,3650 

13  08 

04,3715 

LOCATIONS  PAGE 

01,3776  28 
TO  04,2023  45 
TO  04,2027  224 
TU  04,2037  225 

TO  04,2072  227 
TO  04,2142  228 
TO  04,2205  229 
TO  04,2253  230 

T i 04,2322  231 
TO  ■<34,2365  232 
TO  04,2424  233 
TO  04,2462  234 

TO  04,2535  235 
T 04,2575  249 
TO  04,2614  37 1 
TO  04,2630  371 

TO  04,2635  372 
TU  04,2646  457 
TO  04,2655  46 4 
TO  04,273?  701 

TO  04,3012  702 
TC  04,3026  983 
TO  04,3063  1185 
TC  04,3076  1136 

TO  04,3127  1187 
TC  04,3164  1188 
TO  04,3211  1225 
TO  04,3252  1226 

TO  04,3270  133? 
TO  04,3273  1333 
TC  04,3316  1338 
TO  04,3371  1339 

r 04,3400  1 3 0 
To  04 ,3425  1369 
TC  04,3477  1390 
TO  04,3535  1391 

TO  04,3600  1392 
TO  04,3647  1393 
TO  04 , 3714  13^4 
TO  04,3756  1395 


OCCUPIED 

04,3757 

04,3771 

05,2001 

06,?021 

05,2066 
05, 2137 

05,2172 

05,2232 

05,2276 

05,2303 

05,2344 

05,2357 

05,2407 


05,2447 
05,2511 
05,2566 
0 5,26'*/ 

05, 2667 
05,2734 
0 5,301  1 
05,3057 

05, 3107 
05,3154 
05,3224 
05,3302 

05,3356 

05,3402 

05,3405 

05,3453 

05,3502 
05,3506 
05,3531 
0 5, 3610 

05,3652 

05,3707 

05,3757 

05,3772 


3:13  DEC.  2,1970 


PAGE  1735 


LOCAT IONS 

PAGE 

OCCUPIED 

LOCATIONS 

PAGE 

TO 

04,3770 

1396 

06,2000 

TO 

06,201 1 

155 

TO 

04,3772 

28 

06,2012 

TO 

06,2023 

156 

05,2000 

43 

06,2024 

TC) 

06,2074 

157 

TO 

05,2020 

5 1 

06,2075 

TO 

06,2115 

158 

TO 

05,2064 

5? 

06,2116 

TO 

06 ,2  127 

159 

05,2065 

193 

06,21 30 

TO 

06,2171 

160 

TO 

05,2136 

194 

06,2172 

TO 

06,2207 

161 

TO 

05,2171 

195 

06,2210 

TO 

06,2226 

162 

TO 

05  ,22  31 

196 

06,2227 

163 

TO 

05,2275 

198 

06,2230 

TO 

06,2274 

164 

TC 

05,2302 

199 

06,2275 

TO 

06, 2342 

165 

TO 

05,2343 

200 

06,2343 

TO 

06,2373 

166 

TO 

05,2356 

201 

06,2374 

TO 

06,2415 

167 

TO 

05 ,2406 

202 

06,2416 

TO 

06,2433 

168 

TO 

05,2445 

204 

0 6,24  34 

TO 

06,2457 

169 

05,2446 

205 

06, 2460 

T 0 

06,2513 

170 

TC 

05,2510 

211 

06, 2C 14 

TO 

06,2532 

171 

TO 

05,2565 

212 

06,2533 

TO 

06,2555 

172 

TO 

05,2643 

213 

06,2556 

TO 

06, 2564 

173 

TO 

05,2666 

214 

06,2565 

TO 

06, 26 13 

174 

TO 

05 ,2733 

215 

06,2614 

TO 

06,2621 

175 

TO 

05 ,3010 

216 

06,2622 

TO 

06,2647 

176 

TO 

05,3056 

21  7 

06,2650 

TO 

06 ,2670 

177 

TO 

05,3106 

218 

06,2671 

TO 

06,2702 

178 

TO 

05,3153 

219 

06,2703 

TO 

06,2717 

179 

TO 

05 , 3223 

220 

06,2720 

TO 

06,2754 

180 

TO 

05  ,3301 

221 

06,2755 

TO 

06,3005 

181 

TO 

05,3355 

222 

06,3006 

TO 

06, 3025 

182 

TO 

05 , 3401 

223 

06,3026 

TO 

06,3033 

183 

TO 

05 , 3404 

830 

06,3034 

TO 

06,3051 

184 

TO 

05,3452 

831 

06,3052 

TO 

06,3070 

185 

TO 

05,3501 

832 

06,3071 

TG 

06,3110 

186 

TC 

05,3505 

652 

06,3111 

TO 

06,3131 

137 

TO 

05,3530 

°9  1 

06 ,3132 

TO 

06,3143 

1 88 

TO 

05 ,3607 

992 

06,3144 

TO 

06,3155 

139 

TO 

05,3651 

993 

06,31 56 

TO 

06 , 3222 

191 

TO 

05,3706 

994 

06 , 3223 

TO 

06, 3262 

192 

TO 

05,3756 

996 

06,3263 

TO 

06,3326 

3 26 

TO 

05 ,3771 

997 

06 ,3327 

327 

TO 

05  ,3773 

29 

06 ,3330 

TO 

06,3355 

328 

GAP:  ASSEMBLE  REVISION  001  OF  AGO  PROGRAM  APllROPi  BY  EYLES 


3 COUP  I E D 

LOCATIONS 

PAGE 

OCCUPIED 

LOCAT  IONS 

PAGE 

06,3356 

TO 

06 ,3415 

329 

07,3367 

TO 

07,3404 

1320 

0 6 , 3 A 1 6 

TO 

06,3424 

330 

C7 ,3406 

TO 

07 ,3430 

132  1 

06,3425 

TO 

06,4  5 i 

331 

07,3431 

TO 

07,3463 

1322 

0 6,  34 5 A 

TO 

06,3506 

332 

07,3464 

TO 

07 ,3526 

1323 

06,3^07 

TO 

06V 35 54 

333 

07 , 3C27 

TO 

07,3576 

13  24 

06,3555 

TO 

06,36  24 

3 34 

07,3577 

TO 

07,3603 

1325 

06,3625 

TO 

06,3643 

335 

C 7 , 3604 

TO 

07 , 3630 

1326 

0 6 , 3o44 

TO 

06,3712 

3 36 

07,3631 

TO 

07 , 3661 

1327 

06, 3*l'13 

TO 

06,37  14 

337 

07,3662 

TO 

07,371 1 

1328 

06,3715 

TO 

06,3752 

6 92 

07 , 3712 

TO 

07,3715 

1329 

06,3753 

TO 

06,3763 

1147 

07,3716 

TO 

07 ,374  3 

1330 

0 6 » 3 7fc4 

TO 

06,3765 

29 

07 , 3744 

TO 

07,3772 

1331 

07,2000 

TO 

07 , ?o  4 3 

244 

07,3773 

TO 

07,3774 

29 

0 7,2  0 -V 

TO 

07 ,2067 

2 45 

10,2000 

TO 

10 ,2027 

hC  3 

0 7.  ?r,r-f  1 

TO 

(7,21  27 

2 46 

10.203 0 

TO 

10,2065 

1265 

I.  • i c.  y -J  \s 

07,2130 

TO 

07,2141 

2 47 

10,2066 

TO 

10,2  142 

1266 

07,2142 

TO 

07,21 70 

248 

10,2143 

TO 

10  ,2212 

126  7 

07,2171 

TO 

07,2201 

2 51 

10,2213 

TO 

10,2223 

1294 

07,2202 

TO 

07,22  54 

2 52 

1.0 ,2224 

TO 

10,2242 

1 300 

07,2255 

TO 

07,2331 

2 53 

10, 2243 

TO 

10 ,2311 

1301 

07,2332 

TO 

07,2401 

254 

10,2312 

TO 

10,2325 

1302 

07,240 2 

TO 

C 7 ,24 23 

2 55 

10,2326 

TO 

10  ,2330 

1354 

07,245 4 

TO 

07,2460 

2 56 

1.  , 2331 

TO 

10,2374 

135  5 

07,2461 

TO 

07,25  13 

2 57 

10,2375 

TO 

10 ,2433 

1356 

07,2514 

TO 

07 ,2565 

258 

10,2434 

TO 

10 , 2464 

1357 

07,2566 

TO 

07,2576 

259 

10,2465 

TU 

10 , 2525 

1358 

0 7,2  577 

TO 

07 , 26  2 6 

2 60 

10,2526 

TC 

10  ,2571 

135  9 

07,2627 

TO 

07,2666 

26  1 

10,2672 

TO 

10 ,2632 

1 36  C 

07,2667 

TO 

07,2700 

«rl 

10,2433 

TO 

10 ,2677 

1361 

07,2701 

TO 

07,2713 

852 

10,2700 

TO 

10 ,2737 

1 362 

07,2714 

TO 

07,2752 

13  10 

10 ,2740 

TO 

10 ,300  6 

1363 

07,2753 

TO 

07,2777 

13  11 

10,3007 

TO 

10,3051 

1364 

0 7,  30 00 

TO 

07, 30  37 

1312 

10,3052 

TO 

10,3121 

1365 

07,3040 

TO 

07,3104 

13  13 

10,3122 

TO 

10,3172 

1366 

07,3105 

TO 

07,3143 

13  14 

10 ,3173 

TO 

10  ,3242 

1 367 

07,3144 

TO 

07 , 3207 

1315 

10 ,3243 

TO 

10,3310 

1366 

C 7 , 3210 

TO 

07 ,32  33 

13  16 

1C  ,331 1 

TU 

10,3361 

1369 

07,^234 

TO 

07,32  72 

13  17 

10 ,3362 

TO 

10 , 3420 

1370 

07,3273 

TO 

07,3322 

13  1 P 

10,3421 

TO 

10, 3 6 7 0 

1371 

07,3323 

TO 

07  ,3366 

13  19 

10 , 3471 

TO 

10,3530 

1372 
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10,3531 

TO 

10,3543 

1373 

12,2023 

TO 

12,2073 

1174 

10,3544 

TO 

10,3561 

1374 

12,2074 

TO 

12,2155 

1175 

10,3562 

TO 

10,3572 

1382 

12,2156 

TO 

12,2235 

1176 

10, 3573 

TO 

10,3623 

1397 

12,2236 

TO 

12,2307 

1177 

10,3624 

TO 

10,3665 

1 39  P 

12,2310 

TO 

12,2367 

1178 

10, 3666 

TO 

10,3704 

1399 

12,2370 

TO 

12,2420 

1179 

10,3705 

TO 

10 ,3711 

1400 

12,2421 

TO 

12,2502 

1180 

10,3712 

TO 

10 , 3746 

1401 

1 2 ,2503 

TO 

12,2535 

1131 

10,3747 

TO 

10,3774 

14  02 

12,2536 

TO 

12,2611 

1182 

10,3774 

TO 

10,3776 

29 

12,2612 

TO 

12,2652 

1 183 

11,2000 

TO 

11,20  36 

686 

12,2653 

TO 

12,2731 

1194 

1 1 , 2037 

TO 

11,2116 

687 

12,2732 

TO 

12,2766 

1186 

11,2117 

TO 

11,2161 

668 

12,2767 

TO 

12,3041 

1189 

11,2162 

T ( 

11  ,2233 

689 

12,3042 

T0 

12,3117 

1190 

11,2234 

TO 

11 ,2274 

690 

12,3120 

TO 

12,3173 

1191 

1 1, 2275 

TO 

11,2332 

820 

12,3174 

TO 

12,3211 

1192 

1 l , 2333 

TO 

11  ,2372 

821 

12,3212 

TO 

12,3272 

1193 

1 1,2373 

TO 

11  ,2375 

822 

12,3273 

TC 

12,3352 

1194 

11,2376 

TO 

11,2451 

1227 

12,3353 

TO 

12,3427 

1195 

1 1 ,2452 

TO 

11 ,2475 

122P 

12,3430 

TO 

12, 3501 

1196 

11,2476 

TO 

11 ,2515 

1229 

12,3502 

TO 

12,3546 

1197 

11,2516 

TO 

11,2574 

1230 

12,3547 

TO 

12,3627 

1198 

1 1,2675 

TO 

11  ,2656 

1231 

12,3630 

TO 

12,3673 

1199 

1 1 ,2657 

TO 

11 ,2740 

1232 

12,3674 

TO 

12 ,3741 

1200 

1 1,2  74  1 

TO 

11 ,3021 

1233 

12,3742 

TO 

12 , 3744 

1201 

1 1,3022 

TO 

11 ,3100 

1234 

12,3745 

TO 

12,3775 

1246 

1 1 , 3 1 0 1 

TO 

11,3160 

12  35 

12,3776 

30 

11,3161 

TO 

11  , 3230 

1236 

1 3,2000 

TO 

13,2025 

46 

11,3231 

TO 

11  , 3312 

1237 

13,2026 

TO 

13,2065 

236 

1 1,3313 

TO 

11 ,3374 

1238 

13,2066 

TO 

13,2067 

237 

1 1 ,3375 

TO 

11 ,3440 

1239 

13,2070 

TO 

13,2113 

320 

1 1,3441 

TO 

11 ,3465 

1240 

13,21 14 

TO 

13,2132 

3 21 

1 1,346  6 

TC 

11 , 3544 

124  1 

13, 7133 

TO 

13,2160 

322 

1 1,3645 

TO 

11 ,3  624 

1242 

13,2161 

TO 

13,2206 

323 

1 1,3625 

TO 

11 , 3702 

1243 

13,2207 

TC 

13,2232 

709 

1 1,3703 

TO 

11 ,3704 

1244 

13,2233 

TO 

13 , 2314 

710 

1 1 ,3705 

TO 

11, 3763 

124  5 

13,2315 

TO 

13  ,2350 

711 

1 1,3764 

TO 

11  , 37  7 6 

124  6 

13,2351 

TO 

13,2377 

1133 

11 ,3776 

29 

13,2400 

TO 

13,2421 

1134 

12,2000 

TO 

12,2022 

1 101 

13 ,2422 

TO 

13,2457 

1135 
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13,2460 
1 3,2510 

1 3 , 2 

1 3,2560 

1 3,2604 
13,2621 
1 3,2670 
1 3,2735 

1 3,3011 
1 3,30*3 
13,3105 
13,3134 

13,3213 
13,327 
1 3,3337 
13,3421 

1 3,3-' 7 
1 3 , 3 r 2 5 
1 3 » 3 ~ r3 
13,3  -01 

13,36  57 
13,3675 
1 3 , 3 7 40 
13,3755 

13,3767 
14,2000 
14,21  1 
14,2066 

14,215''’ 
14,2232 
14,2314 
1 4,2347 

1 4,237-)- 

1 4,2446 
14,2'  C 

14,2565 
14,  2*  11 
14,2624 
14,2706 
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TO  13,2507  1136 
TO  13,2547  1137 
TO  13,2557  1136 
TO  13,2603  1134 


14,2767 

TO 

14,3014 

°40 

14,3015 

TO 

14,3065 

94  1 

14,3066 

TO 

14,3146 

942 

14,3147 

TO 

14,3163 

94  3 

TO  13,2620  1209 
TO  13,2667  1210 
TO  13,27  34  1211 
TO  13,30  10  1212 


14,3164 

TO 

14 

,3223 

944 

14,3224 

TO 

14 

,3255 

945 

14,3256 

TO 

14 

, 3323 

94  6 

14,3324 

TO 

1*+ 

, 3374 

947 

TO  13,3042  1213 
TO  13,310*  12 1 * 
TO  13,3133  1215 
TO  13,3212  1216 


14,3375  TO 
1*  ,3427  TO 
14,3505  TO 
14,3564  TO 


14,3 4 2 6 

948 

14  ,3504 

14 ,3563 

951 

14,3616 

952 

TO  13,32  56  12  17 
T 13,3336  1218 
TO  13,34  20  1219 
TO  13,3466  1220 


14 ,7617 

TO 

1* , 3650 

I 0 

14 , 36T 0 

TO 

14,3724 

TO 

14,3647  953 

14,3667  954 

14,3723  °5C 

14,3773  956 


TO  13  ,35  24  1221 
TO  13,3552  1222 
to  13,36  00  12  23 
TO  13,3656  1224 


1 a, 37  74 

TO 

14,3775 

31 

15 ,2000 

TO 

15  ,2045 

250 

15 , 2046 

TC 

15,2047 

251 

15,2050 

TO 

15,2054 

9 27 

TO  13,3674  1225 
TO  13,3737  1247 
TO  17,3754  1246 
TO  13,3766  1385 


15,2055 

TO 

15 

,2  133 

928 

15,2134 

TO 

15 

,2136 

929 

15,2137 

TO 

15 

,2170 

9 30 

15,2171 

TO 

15 

,2217 

931 

TO 

13,3770 

30 

15,2220 

TO 

15 ,2244 

932 

TO 

1 4 , 20  0 7 

45 

15 ,2245 

TO 

15  ,231  1 

95  7 

TO 

14,2065 

47 

15,2312 

TO 

15,2365 

958 

TO 

1*-,21  47 

48 

15,2366 

TO 

15,2442 

959 

TO 

1*  ,2231 

49 

15,2443 

TO 

15  ,2471 

960 

TO 

14,2313 

50 

15 , 2472 

TO 

15 ,2533 

961 

TO 

14,2346 

51 

15,2534 

TO 

15  ,2562 

96  2 

TO 

14,2373 

8 52 

15,2563 

TO 

15,2574 

963 

Tn 

14,2444 

8 5 3 

15,2575 

TO 

15  ,2640 

96* 

14,244? 

8 54 

15,2641 

TO 

15 ,271 5 

965 

TO 

14,2505 

933 

15, 271o 

TO 

15,2770 

966 

TO 

14,2564 

935 

15,2771 

TO 

15  ,2773 

967 

rr 

14,2610 

936 

16,2774 

TO 

15,3032 

96  8 

TO 

14  ,2623 

9 37 

15 , 3033 

TO 

15 ,3044 

969 

Tn 

14,27  f5 

93« 

15,3045 

TO 

15 ,3100 

9?0 

TO 

14,27  66 

939 

15,3101 

TO 

15,3157 

971 

3:15  DEC.  2,1970 
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15,3160 

TO 

15 ,3236 

972 

16,3603 

TO 

16 , 3640 

1441 

15,3237 

TO 

15,3253 

973 

16,3641 

TO 

16,3712 

1470 

15,3254 

TO 

15,3313 

974 

16,3713 

TG 

16,3734 

1471 

15,3314 

TO 

15 ,3366 

97  5 

16,37  35 

TO 

16,3765 

1476 

15, 3367 

TO 

15 , 3446 

976 

16,3766 

TO 

16,3771 

1477 

15,3447 

TO 

15,3461 

977 

16,3772 

TO 

16,3773 

31 

15, 3462 

TO 

15,3505 

978 

17,2000 

TO 

17,2026 

741 

15,3506 

TO 

15 ,3540 

97  9 

17,2027 

TO 

17,2064 

1404 

15,35*1 

TO 

15,3574 

98  0 

17,2065 

TO 

17,2071 

1405 

14,3575 

TO 

15,3633 

981 

17,2072 

TO 

17,2120 

1442 

15,3634 

TC 

15,3651 

982 

17,2121 

TO 

17,2174 

1443 

15,3652 

TO 

15,3663 

983 

17,2175 

TO 

17,2236 

1444 

15,3664 

TO 

15,3705 

985 

17,2237 

TC 

17,2314 

1445 

15,3706 

TC 

15,3767 

®8fc 

17,2315 

TO 

17,2365 

1446 

15, 37  70 

TO 

15,3775 

98  7 

17,2366 

TO 

17,2447 

1447 

15,3776 

31 

17,2450 

TO 

17,2531 

1448 

Tfi 

1 A 9 ( ; 9 

i v,  i a 

1 "7 

t n 

17  9 a nn 

1 /.  A.  Q 

1 O f r *->  u 

\ Li 

i.  O » C.  L-  /i  D 

1 ‘ J u 

1 , i.  J D it 

1 u 

1 f t coUU 

16,2024 

TO 

16,2075 

1*11 

13,2691 

TO 

17,2625 

1450 

16,2076 

TC 

16 ,2153 

1412 

17,2626 

TO 

17, 2660 

1451 

16, 2154 

TO 

16 ,22  12 

1413 

17,2*61 

TO 

17,2726 

1452 

16,2213 

TG 

16 ,2246 

1421 

17,2727 

TO 

17,2764 

1453 

16,2247 

TC 

16,2313 

1*  22 

17,2765 

TO 

17,3035 

1454 

16,2314 

TO 

16,2357 

1*23 

3.7, 30  36 

TO 

17, 3107 

1455 

16,2360 

TC 

16 ,2434 

1*24 

17,31 10 

TC 

17,3130 

1456 

16,2435 

TO 

16,25  14 

1425 

17,  33  31 

70 

17,3177 

1457 

16,2515 

TO 

16 ,2575 

1*26 

17,3200 

TO 

17,3251 

1458 

16,2579 

TO 

lfc ,2646 

l*-2  7 

13,3252 

TO 

17,3312 

146  1 

16,2647 

Tn 

16 ,2717 

1*28 

17,3313 

TO 

l7 ,3364 

1462 

15,2720 

TC 

16,2757 

1*2° 

17,3365 

TO 

17,3*32 

1463 

16, 2760 

TO 

16,3030 

1*30 

17  ,3433 

TO 

17,3500 

1464 

16,3031 

TO 

16 , 3070 

1431 

17,3501 

TO 

17,3542 

1465 

16,3071 

TO 

16 ,3124 

1432 

17,3543 

TO 

17,3606 

1466 

16,3125 

TO 

16 , 3 1 77 

1*33 

17,3607 

TO 

l7 ,3627 

1467 

16,32  0 0 

TO 

16,3260 

14  34 

17 , 3639 

TO 

17,3671 

1468 

16,3261 

TO 

16,3342 

143  5 

17,3672 

TO 

17,3743 

1469 

16,3343 

TO 

16, 3376 

1436 

17,3744 

TO 

17,3745 

31 

16,3377 

TO 

16 ,3450 

1437 

20,2000 

42 

16,3451 

TO 

16,3521 

1*38 

20,2001 

TO 

20,2003 

43 

16,3522 

TO 

16,3530 

1439 

20,2004 

TO 

20,20*2 

292 

16,3531 

TO 

16 ,3602 

1440 

20,2043 

TO 

20,2114 

293 

GAP 
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20,2115 

TO 

2 C , 21 22 

8 22 

21 ,2306 

TO 

21 ,2367 

900 

20,2123 

TO 

2 C, 2 150 

1407 

21,2370 

TO 

21 ,2450 

901 

30  01  Cl 

Tn 

70.77  0,^ 

i t nn 

7 1 . 7 4 5 : 1 

TO 

21 ,2527 

902 

c U t c.  1 1 

I U 

20,2206 

TO 

20,22  2 5 

14  09 

21,2530 

TO 

21 ,2607 

903 

20,2226 

TO 

20,2237 

1 4 14 

21,26  10 

TO 

31 , 2667 

904 

20,2260 

TO 

20,2304 

1415 

21 ,2670 

TO 

21 ,2751 

905 

20,2305 

TO 

20,2321 

1416 

21,2752 

TO 

21 ,3033 

906 

20,2322 

TO 

20,2364 

1418 

21,3034 

TO 

21 ,3076 

907 

20,2365 

TO 

20,24  37 

1 1 = 

21,3077 

TO 

21 ,3132 

14  72 

20, 2*^0 

Tn 

20,2446 

1420 

21, 3123 

TO 

21 ,3174 

1473 

20,2447 

TO 

20,2476 

14  86 

21,3176 

TC 

21,3242 

1474 

20,2477 

TO 

20,2552 

1487 

21 , 3243 

TO 

21  ,3315 

1475 

20,2533 

Tr 

20,2627 

14  8 8. 

21,3316 

TO 

21 , 3326 

1476 

2 0,26  3-. 

TO 

20,26  75 

14  89 

21 ,3327 

TO 

21 ,3334 

1478 

TO 

70.7 7 ^ 

1 f 90 

21 , 3335 

TP 

21 , 3407 

1479 

t u t t-C  f O 

6 V 9 C.  r J J 

20,2756 

TO 

20,2775 

1491 

21 , 3410 

TO 

21 , 3440 

1480 

20,2776 

TO 

20,30 16 

14  92 

21,3441 

TO 

21 ,3477 

1481 

20,3017 

TO 

20,3056 

1493 

21 , 3500 

TO 

21,3546 

148  2 

2 0 , 3 r' c 7 

TO 

20,3130 

1 4 c4 

21  , 3 5 ^ 7 

TO 

21  , 362  0 

1483 

20,3131 

TO 

20, 32  06 

1495 

21 , 3621 

TO 

21 ,364  5 

1484 

20,3207 

TO 

20,3227 

1496 

21,3646 

TO 

21  , 3 - ; 

1508 

20,3230 

TO 

20,3273 

149  7 

21,3665 

TO 

21 ,3744 

1509 

20,3274 

TO 

20 , 3344 

1 4 98 

21, 3745 

TO 

21,3767 

1 5 1 0 

20,334 a 

TO 

20 , 3422 

14  91 

21,3770 

TO 

21 ,3771 

31 

20,3423 

TO 

20,3471 

1500 

22,2000 

TO 

22,2003 

44 

20,3472 

TO 

20,3546 

15  Cl 

22,2004 

TO 

22 , 2053 

351 

2 0,3 

TO: 

20,3615 

15C2 

22,2054 

TO 

22 ,2126 

352 

2 0,36  16 

TO 

20,3670 

15  03 

22,2127 

TO 

22 ,2201 

353 

20,3.  7) 

TO 

20,3741 

16  04 

22 ,2 202 

TO 

22 ,2262 

354 

20,3742 

TO 

20,3761 

15  05 

22 , 2263 

TO 

22  ,231  1 

355 

2 P , 3 762 

TO 

20, 3771 

1506 

22,2312 

TO 

22,2357 

356 

20,3772 

TO 

20,3773 

31 

22,2360 

TO 

22 ,2421 

35  7 

21,2' 

TO 

21 ,2005 

42 

22,2422 

TO 

22 ,2  503 

358 

21,2006 

TO 

2 1 ,20  46 

3 29 

22 , 3504 

TO 

?2 ,2546 

359 

21,2047 

TO 

21,2107 

830 

22 , 2547 

TC 

22  ,2625 

360 

2 1,2110 

TO 

21,2116 

3 35 

22,2626 

TO 

22,2653 

361 

21,2117 

TO 

2 1 2 1 2 7 

836 

22,2654 

TO 

22 ,2723 

362 

2 1,2130 

TO 

21,21 53 

872 

22,2724 

TO 

22 , 2743 

363 

2 1,2154 

TO 

21,2226 

398 

32,2744 

TO 

22 , 3002 

364 

2 1,2226 

TO 

21  ,2305 

899 

22,3003 

TO 

22,3053 

365 
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22,3054 

TO 

22,3124 

366 

23,3054 

TO 

23,3135 

1155 

22,3125 

TO 

22,3202 

367 

23,3136 

TO 

23,3217 

1156 

22, 3203 

TO 

22,3212 

368 

23,3220 

TO 

23,3246 

1157 

22,3213 

TO 

22,3241 

369 

23,3247 

TO 

23,3303 

1249 

22, 3242 

TO 

22,3300 

713 

23  ,3304 

TO 

23,3317 

1250 

22,3301 

TO 

22,3355 

714 

23,3320 

TO 

23,3352 

1251 

22,3356 

TO 

22,3427 

715 

23,3353 

TO 

2 3,34  17 

1253 

22,3430 

TO 

22,3464 

716 

23,3420 

TO 

23, 34^0 

1254 

22,3*68 

TO 

22,3537 

717 

23, 3441 

TO 

23, 3500 

1255 

22,3540 

TO 

22 ,3850 

71° 

23,3501 

TO 

23,3532 

1256 

22,3551 

TO 

22,3611 

720 

23,3533 

TO 

23, 3536 

1257 

22,3612 

TO 

22,3646 

721 

23,3537 

TO 

23,3552 

12  59 

22,3647 

TO 

22 ,3660 

82  7 

23,3553 

TO 

23, 36 14 

1260 

22,3661 

TO 

22,3703 

86  3 

2 3 , 36  1 5 

TO 

23,3645 

1261 

22,3704 

TO 

22 ,3710 

864 

23,3646 

TO 

23,3670 

1262 

22,3711 

TO 

22,3736 

1157 

23,3671 

TO 

23  ,3718 

1263 

22,3737 

TO 

22,3772 

1158 

23,37  16 

TO 

23,3765 

1264 

22, 3773 

TO 

22,3774 

32 

23,3766 

1265 

23,2000 

TO 

23,2040 

271 

23,3767 

TO 

23,3770 

32 

23,2041 

TO 

23,2102 

324 

24,2000 

TO 

24,2004 

492 

23,2103 

TO 

23,2  1 15 

485 

24,2005 

TO 

24,2035 

493 

23,2116 

TO 

23,2134 

517 

24,2036 

TO 

24,2051 

495 

23, 2135 

Tn 

23,2214 

518 

24,2052 

TO 

24,2131 

496 

23, 2215 

TO 

23,2273 

519 

24,2132 

TO 

24,2201 

497 

23,2274 

TC 

23,2313 

520 

24,2202 

TO 

24,2253 

498 

23,2314 

TO 

23,2343 

695 

24,2254 

TO 

24,2321 

499 

23,2344 

TO 

23,2357 

696 

24,2322 

TO 

24,2401 

500 

23,2360 

TC 

23,2415 

£,C  7 

24 , 2402 

TP 

24,2403 

C01 

23,2416 

TO 

23,2425 

6 9 8 

24,2404 

TO 

24. , 2426 

502 

23,2426 

TO 

23,2431 

699 

24 , 2427 

TO 

24,2450 

503 

23,2432 

TO 

23,2442 

841 

24,2451 

TO 

24,2472 

504 

23,2443 

TO 

23,2460 

842 

24,2473 

TO 

24,2552 

505 

2 3,2461 

TO 

23,2510 

66  7 

24,2553 

TO 

24, 2632 

506 

23,2^11 

TO 

23,2530 

1 ICO 

94,26  33 

TO 

24,2673 

507 

23,2531 

TO 

23,2550 

1 149 

24,2674 

TO 

24,2714 

508 

23,2551 

TO 

23,2632 

1150 

24 ,27  15 

TO 

24,2775 

509 

22,2633 

TO 

23,2714 

1151 

24,2776 

TO 

24,3055 

510 

23,2715 

TC 

23,274? 

1152 

24 , 3056 

TO 

24,3133 

511 

23,2743 

TO 

23  ,2771 

1153 

24,3134 

512 

23,2772 

TO 

23 , 3053 

1154 

24,31 35 

TO 

24,3166 

513 
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24,3167 

TO 

24,3205 

5 14 

25,2574 

TO 

25,2635 

24,3206 

TO 

24,32  25 

515 

25,2636 

TO 

25 ,2704 

24, 3226 

TC 

24,  32  54 

516 

25,2705 

TO 

25,2714 

24,3255 

TO 

24,3332 

515 

25,2715 

TO 

25,2762 

24,3333 

TO 

26 , 33  47 

5 72 

25,2763 

TO 

25 ,3035 

24,3350 

TO 

24,33  55 

573 

25, 3036 

TO 

25,3072 

24,3356 

TO 

24,33 77 

5 c9 

25 , 3073 

TO 

25,3112 

24,3400 

TO 

24,3427 

6 05 

25,3113 

TG 

25 ,3147 

24,3430 

TO 

24,3502 

606 

25,3150 

TO 

25,3215 

9 / u i;  r it 

TP 

A P7 

29 ,3216 

t n 

25 , 3267 

z.  . f D j XJ  *t 

O ’ f 

24,3505 

TC 

24,3552 

6 55 

25 , 3270 

T 3 

25,3337 

24,3  5 5 3 

TO 

24,3634 

656 

25 , 3340 

10 

25,3401 

24, 3b 3 5 

TC 

2 4,3667 

S~7 

25,3402 

TO 

25,3'6  1 

24,3671 

TC 

24,37  17 

1 1 42 

25,3442 

TO 

25 , 3470 

7 4 17511 

Tn 

7 /.  . 9 7 r 7 

K 1 /.  7 l 

TP 

? A 1 Cl  I 

1 u 

C.**-  1 .9  t J1  c. 

11“  J 

6 V I OH  f 1 

£ I?  f D D Jj  J 

24,  3753 

TO 

24,3774 

1144 

25 , 3534 

TO 

25 ,3545 

2 4,3775 

TO 

24,3776 

32 

25 , 3546 

TO 

25,3564 

25,2000 

TO 

2 5,20  02 

41 

25,3565 

TO 

25 ,3576 

25,2003 

TO 

25,20 61 

4 90 

25,3577 

T ' 

25 , 3600 

25,206 2 

TO 

2*  ,20  61 

6 c 1 

* 25 , 36  0 1 

TO 

25 , 36C  6 

25,2062 

TO 

25,20  70 

526 

25 , 3607 

TO 

25,3647 

2 5,2071 

TO 

25,21 10 

5 27 

25 , 3650 

TO 

25,3670 

2 5,2111 

TO 

25,21 2 r 

52  8 

25,3671 

TO 

25 ,3722 

25,2127 

Tr 

25,2132 

529 

25,3723 

TO 

25,3767 

25,2133 

TO 

25,2170 

530 

25,3770 

T 0 

25 ,3771 

25,2171 

TO 

25,2177 

531 

26,2000 

TO 

26 ,2007 

2 5,2  2 

TC 

25,2240 

5 32 

26,2010 

TC 

26 ,2021 

2 5,226  1 

TO 

25,2251 

5 33 

26,2022 

TO 

26 ,2071 

2 5,2252 

TO 

25 ,230K 

534 

26, 2072 

TO 

26,2120 

2 5 , 23  06 

TO 

25,2322 

535 

26,2121 

TO 

26,2122 

25,2323 

TO 

25,2342 

536 

26 ,2123 

TO 

26 ,2145 

25,2343 

TO 

25,2372 

537 

26,2146 

T 

26,221 6 

2 5,2373 

TO 

2 5,23  74 

5 38 

26,2217 

TO 

26 ,224  1 

25,2375 

TO 

25,2631 

539 

26, 2262 

TO 

26 ,2265 

25,2432 

TO 

25 ,2441 

540 

26 , 2266 

TO 

26,2270 

25,2642 

TO 

29,2460 

54  1 

26,2271 

TO 

26,2346 

25,245 1 

TO 

2r  ,2474 

5 4 2 

26,234 7 

2 5,26  75 

TO 

25, 2543 

5 43 

26, 2350 

TO 

26,2404 

25,2544 

TP 

29,2572 

544 

26 , 29-0  5 

TO 

26 ,2411 

2.5, 2573 

545 

26,2412 

TO 

26 , 2462 

PAGE 

6 46 

548 

549 
5 50 

c5  1 

552 

553 

554 

555 

556 

557 

558 

559 

560 

561 

562 

563 
566 
56  7 
5 67 

612 
613 
1 144 
1165 

32 

52 

53 

339 

340 

341 
473 
4' 7 4 

475 

476 

477 

478 

479 
483 
6.0  4 
575 
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26,2463 

TO 

26 ,2  544 

576 

27,2707 

TO 

27 , 2746 

776 

26,2545 

TO 

26,2625 

577 

27,2747 

TO 

27,3030 

777 

Tt  06 06 

T Pi 

26  ,2707 

c 7 c 

O “7  ono  1 

TO 

27, 3112 

778 

£ O f coco 

1 U 

D f 0 

<1  / * oU  3 1 

26,2710 

TO 

26,2767 

579 

27,31 13 

TO 

27,3174 

779 

26,2770 

TO 

26,3051 

580 

27,3175 

TO 

27, 3216 

7 80 

26,3052 

TO 

26 ,3132 

581 

27 , 32 17 

TO 

27,3254 

781 

2 < ,3133 

TO 

26,3177 

582 

27,3255 

TO 

27 , 3266 

782 

9 A o onfi 

T f 

c (j  -2 

0 7 O O A 7 

t n 

97  9979 

7 0/, 

1 l 

0 r J <0  *+  i 

.5  0 9 

4 / ? -VC  f 

1 l 

A f y D C.  ( c. 

( OT 

26,3242 

TO 

26',  3316 

584 

27, 3273 

TO 

27,3311 

851 

26,3317 

TO 

26,3360 

56  5 

27,3312 

TO 

27 , 3320 

854 

26,3361 

TO 

26 , 3437 

586 

27,3321 

TO 

27 , 3355 

865 

26,3440 

TO 

26,3441 

587 

27 ,3356 

TO 

27,3357 

866 

26,3442 

TC 

26 ,3445 

588 

27,3360 

TO 

27,3407 

1271 

26 , 3‘+46- 

TO 

26,3623 

589 

27,34 10 

TO 

27,3^26 

1272 

t p 

->  z o a n o 

G o p 

9 7 0/07 

Tn 

1 97A 

6.0  f 9 9 a cv 

21 C y D r J 0 

6 f » f 

A / * 9 ^ O 

26,3604 

TO 

26 ,3622 

591 

27,3465 

TO 

27,3533 

1277 

26, 3623 

TO 

26 , 3670 

592 

27,3534 

TO 

27,3574 

1278 

26,3671 

TO 

26,3715 

593 

27, 3575 

TO 

27,3644 

1279 

26,3716 

TO 

26 , 3740 

1 140 

2?  ,3645 

TO 

27,3711 

1280 

26,37'’  1 

TO 

26,3742 

1141 

27,3712 

TO 

27,3734 

1281 

26,3743 

TO 

26,3774 

1 146 

27,3735 

TO 

27,3753 

1282 

26,3775 

TO 

26 , 3776 

3 3 

27,3754 

TO 

27,3771 

1283 

27,2000 

TO 

27,2013 

38 

27,3972 

TO 

27,3773 

33 

27,2014 

TO 

27,2021 

39 

30, 2000 

TO 

30,2001 

39 

27,2022 

TO 

27,2027 

44 

30,2002 

TO 

30 , 2053 

610 

27,2030 

TO 

27,2031 

46 

30,2054 

TO 

30,2060 

611 

27,2032 

TO 

27,2105 

481 

30,206 1 

TO 

30,2121 

838 

2 7,2106 

TO 

27,2157 

482 

30,2122 

TO 

30,2176 

839 

27,2160 

TO 

27,2177 

483 

30,2177 

TO 

30,2254 

840 

27,2200 

750 

30,2255 

TO 

30,2320 

841 

27,2201 

TO 

27,2245 

751 

30,2321 

TO 

30, 2371 

345 

27,224b 

TO 

27,2325 

765 

30,2372 

TO 

30,2453 

846 

27,2326 

TO 

27,2406 

76  6 

30,2454 

TO 

30,2535 

947 

27,2407 

TO 

27 , 2412 

767 

30,2536 

TO 

30,2617 

848 

27,2413 

TO 

27,2446 

76  9 

30,2620 

TO 

30,2701 

849 

27,2447 

TO 

27,2526 

771 

30 , 2702 

TO 

30,2762 

850 

27,2527 

TC 

27,2537 

772 

30,2763 

TO 

30,2776 

851 

27,2540 

TO 

27,2563 

773 

30, 2777 

TO 

30,3017 

854 

27,2564 

TP 

27,2637 

774 

30,3020 

TO 

30,3035 

855 

27,2640 

TO 

27,2706 

775 

30 , 3036 

TO 

30, 3103 

856 

GAP 
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30,3104 

TO 

30,31 33 

910 

31 ,3152 

TO 

31 ,3231 

809 

30,3134 

TO 

30,3163 

911 

*1,3232 

TO 

31 , 3301 

810 

30,3164 

TO 

30,32  14 

912 

31 ,3302 

TO 

31 ,3331 

811 

3 C , 32  IE 

TC 

30,3257 

9 13 

31 , 3332 

TC 

31  ,34  05 

312 

TO 

*5  0 OR 

G | A. 

7 1 . T 4 ('■  A' 

TO 

7 1 . 74. t 7 

■'-)  1 7 

D t ! y VOU 

3U  r ~ j c.  ” 

L t J - U'J 

D -L  f -2  -4  j 

O 1 J 

30,3326 

TO 

30,3333 

615 

31 , 3454 

TO 

31  ,3513 

816 

30,3334 

TO 

30,3375 

916 

31 , 3514 

TO 

31 , 3542 

315 

30,3376 

TO 

30,3437 

917 

31,3543 

TO 

31 ,3552 

816 

30,3440 

TO 

30,3502 

9 1 8 

31, 3553 

TO 

31 ,3577 

323 

3 0 , 3 c 03 

TO 

TO ,3532 

' 1 c 

*1 , 3600 

TO 

31 , 365  C 

826 

30,3^33 

TO 

30,3577 

920 

31 , 3651 

TO 

31 ,3714 

82  5 

30,3600 

TO 

30,3621 

921 

31, 3715 

TO 

31 ,3745 

826 

30,3622 

TO 

30,3671 

922 

31,3746 

TC 

31  ,3750 

8?  7 

30,3672 

TO 

30,3726 

^23 

31,3761 

TO 

31 ,3762 

34 

■i  0 . 7 ? 7 

TP 

tq,  T7  60 

7 34 

32 , 2000 

40 

J 1’  f O f C f 

30,3761 

TO 

30,3774 

925 

32,2001 

TO 

32  ,2004 

41 

30,3775 

TO 

30,37  76 

34 

32,2005 

TO 

32 ,2  007 

206 

31,2000 

TO 

31,2001 

39 

32,2010 

TO 

32 ,206  2 

207 

31,2002 

TO 

31 ,20  06 

6 0 

32 , 2043 

TO 

32 ,2136 

208 

31,2007 

TO 

31  ,20  56 

4 00 

32, 21 37 

TO 

32 ,2214 

209 

3 1,2  057 

TO 

31,21 40 

609 

32,2215 

TO 

32 ,2216 

210 

31,214] 

TO 

31,2143 

610 

32,22 17 

TO 

32 ,2242 

49  3 

3 1 , ? 1 44 

TO 

31,2206 

791 

32 , 2243 

TO 

32 ,2324 

494 

31,2207 

TO 

3 1 , 22 1 5 

7 92 

*2, 2325 

TO 

32  ,236  5 

495 

3 1 ,22  16 

TO 

31 ,22  45 

793 

32, 2366 

TO 

32,2430 

569 

3 1,2246 

TO 

3 1,2307 

794 

32 , 2431 

TC 

32 ,2512 

570 

3 1,2310 

TO 

31,23  47 

7 95 

32 ,2513 

TO 

32 ,2546 

571 

31,2350 

TO 

3 1 , 24  1 6 

7 96 

32,2547 

TO 

32 , 2 6u 0 

600 

3 1 , 24  1 7 

707 

32 , 2601 

TO 

32,2634 

60  1 

31,2420 

TO 

31,2437 

7 98 

32,2635 

TO 

32 ,2701 

602 

3 1,2440 

TO 

31  ,2466 

7 99 

32,2702 

TO 

32 , 2740 

603 

31,2467 

TO 

31,2536 

30.0 

32, 2741 

TO 

32 ,2775 

604 

3 1,2537 

TO 

31,2602 

8 C 1 

32,2776 

TO 

32,3031 

785 

3 1,2603 

TO 

31,2640 

802 

32 ,3032 

TO 

32,3101 

786 

3 1,2641 

TO 

31,2677 

803 

32, 3102 

TO 

32,3154 

787 

31,2700 

TO 

31  ,27  45 

8 04 

32,3155 

TO 

32,3227 

738 

3 ] ,2  746 

TO 

3 1 , 3n  02 

805 

32,3230 

TO 

32 ,3262 

789 

3 1,3003 

T 

3 1 , 30 46 

8 06 

32 , 3263 

TO 

32 , 3313 

■316 

3 1,3047 

ro 

3 1,31  17 

Bn  7 

32 ,3314 

TO 

32 ,3372 

817 

31,3120 

TO 

31 ,31 51 

8 08 

32,3373 

TO 

32,3454 

818 
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32,3455 

TO 

32,3535 

819 

33,3355 

TO 

33,3426 

887 

32,3536 

TO 

32 ,3537 

820 

33,3427 

TO 

33,3475 

888 

32,3540 

TO 

32,3551 

832 

33,3476 

TO 

33,3541 

889 

32,3552 

TO 

32,3627 

833 

33,3542 

TC 

33,3606 

890 

32,  3630 

TO 

32,3703 

834 

33,3607 

TO 

33,3615 

891 

32,3704 

TO 

32,3736 

835 

33,3616 

TO 

33,3656 

392 

32,3737 

TO 

32,3764 

836 

33 , 3657 

TO 

33,3667 

893 

32, 3765 

TO 

32 ,3767 

837 

33, 3670 

TC 

33,3726 

895 

32, 3770 

TO 

32,3772 

866 

33,3727 

TO 

33,3775 

896 

32,3773 

TO 

32 , 3774 

34 

33,3776 

897 

33,2000 

TO 

33,2001 

39 

34,2000 

TO 

34,2005 

616 

33,2002 

TO 

33 , 2024 

41 

34,2006 

TO 

34,2056 

617 

33,2025 

TO 

33,2030 

4 2 

34,2057 

TO 

34,2115 

632 

33,2031 

TC 

33,2040 

44 

34,21 16 

TO 

34,2177 

633 

3 3 , 2r4 1 

TO 

33 ,2044 

* 5 

34,2200 

TO 

34, 2261 

634 

33,2045 

TO 

33,2112 

596 

34,2262 

TO 

34,2343 

635 

33,2113 

TO 

33,2136 

597 

34,2344 

TO 

34,2425 

636 

33, 2137 

TO 

33,2177 

598 

34,2426 

TO 

34,2507 

637 

33,2200 

TO 

33,2205 

855 

34, 2510 

TC 

34,2571 

638 

33, 2206 

TO 

33,2255 

86  0 

34, 2572 

TO 

34,2653 

639 

33,2256 

TO 

33 ,2323 

861 

34 , 2654 

TO 

34,2735 

640 

33,2324 

TO 

33,2373 

86  2 

34,2736 

TO 

34,3015 

641 

33,2374 

TO 

33,2414 

8 63 

34,3016 

TO 

34,3051 

642 

33,2415 

TO 

33,2432 

867 

34,3052 

TO 

34,3061 

643 

33,2433 

TO 

33,2437 

86  8 

34,3062 

TO 

34,3077 

6 44 

33,2440 

TO 

33,2446 

872 

34,31 00 

TO 

34,3117 

645 

33,2447 

TO 

33,2460 

87  3 

34,3120 

TO 

34,3132 

646 

3 3,246  1 

TO 

33,2526 

87^ 

34 ,3133 

TO 

34,3204 

647 

33,2527 

TO 

33,2545 

875 

34,3205 

TO 

34,3266 

648 

33,2546 

TO 

33,2620 

876 

34,3267 

TO 

34,3270 

649 

33,2621 

TO 

33,2663 

877 

34,3271 

TO 

34,3313 

724 

33,2664 

TO 

33,2721 

878 

34,33 14 

TO 

34, 3375 

725 

33,2722 

TO 

33 ,2727 

879 

34,3376 

TO 

34,3443 

T26 

33,2730 

TO 

33 , 3005 

880 

34, 3444 

TO 

34, 3520 

727 

33,3006 

TO 

33,3031 

88  1 

34, 3521 

TO 

34,3535 

728 

33,3032 

TO 

33, 3104 

882 

34,3536 

TO 

34,3604 

729 

33,3105 

TO 

33,3154 

883 

34,3605 

TC 

34, 3641 

730 

33,3155 

TO 

33,3226 

884 

34,3642 

TO 

34,3713 

3 43 

33,3227 

TO 

33,3304 

885 

34  ,37  14 

TO 

34, 3715 

844 

33,3305 

TO 

33 , 3354 

886 

34,37 16 

TO 

34,3744 

893 
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34,3745 

TO 

34,37  74 

8 94 

36,2020 

TO 

36,2021 

34,3775 

TP 

34,3776 

34 

36,2022 

TO 

36  ,2043 

35,2000 

TO 

35,20  20 

5 14 

36, 2044 

TO 

36 ,2  110 

35,2021 

TO 

35,2026 

615 

36,2111 

TO 

36 ,2146 

35,2027 

TP 

3 5,20  6* 

6?  1 

36, 21' 7 

TO 

36,2224 

35,2067 

TO 

35,21 50 

6 22 

36,2225 

TO 

36,2272 

35,2151 

TO 

35,221 5 

6 23 

36, 2273 

TO 

36  ,2  337 

35,22 16 

TO 

35,2274 

6 27 

36, 2340 

TO 

36,2377 

35,2275 

TO 

35,2346 

6 2 8 

36 , 2400 

TO 

36,2447 

a c.  70/7 

*1  n 

■3  q 

too 

7 6. 7 A c fy 

T 0 

36,2517 

d ^ f /r  ~y  * r 

”6“ 

J O f £ *T 

35,2370 

TO 

35,2407 

630 

36 , 2520 

TO 

36 ,2564 

35,2410 

TO 

35,24  31 

631 

36,2565 

TO 

36 ,2570 

35,2432 

Tn 

35,2447 

5 50 

36, 2671 

TO 

36 ,2633 

3 5,2450 

TO 

35,2503 

6 52 

36 , 2634 

TO 

36, 2673 

35,2*0' 

TO 

35,2544 

6*3 

36 , 2674 

TO 

36 ,2742 

35,2545 

TO 

35,2600 

661 

36 , 2743 

TO 

36 , 3007 

35,2601 

TO 

3 ,2661 

662 

36 ,3010 

TO 

3 5,2  662 

TO 

35,27  24 

5*3 

36 , 3053 

TO 

36 ,312  ) 

35,2725 

TO 

35,2763 

6 66 

36 ,31 21 

TO 

36,3132 

35,27*4 

TO 

35 , SO'*7 

667 

36 ,3133 

TO 

36,3146 

35,3044 

TO 

35,31 25 

668 

36, 3147 

TO 

36,3170 

35,3126 

TO 

35,32  07 

669 

36,3171 

TO 

36 ,3235 

35,3210 

TO 

35,3271 

670 

36, 323* 

TO 

36,3306 

3 5, 3272 

T71 

35,3273 

671 

36 ,3306 

TO 

36 ,335  1 

35,3274 

TO 

35,3305 

672 

36, 3352 

TO 

36 , 3420 

35,3306 

TO 

35,3363 

673 

36, 3421 

TO 

36 ,3466 

35,3364 

TO 

35,3376 

6 74 

36,3467 

TO 

36,3537 

35,3377 

TO 

35,3441 

6 75 

36 , 354  7 

TO 

36 , 3 60 5 

35,74^2 

T° 

35,3446 

67fe 

36 , 3606 

TO 

36 ,3662 

35,3447 

TO 

35,3521 

677 

36,3663 

TO 

36 ,3733 

35, 3522 

TO 

35,3567 

678 

36, 3734 

TO 

36,3764 

35,3570 

TO 

35  ,3605 

6 79 

36,3765 

TO 

36 , 3766 

3 5 , 3 6 06 

TO 

35,3652 

6 80 

37,2000 

TO 

37 ,20C  1 

35,3653 

T r 

35 , 3673 

681 

37,2002 

TO 

37 , 2036 

35,3674 

TO 

35,3703 

682 

37,2037 

TO 

37,2  117 

35,3704 

TO 

35,3722 

6 83 

37,2120 

TO 

37,2171 

35, 3723 

TO 

35 ,3746 

6 84 

37  ,2172 

TO 

37,2251 

35,3767 

TO 

3r  ,3775 

7 48 

37,2252 

TC 

37,2274 

35,37  76 

35 

37 , 2275 

TO 

37 ,2  346 

36,2000 

TO 

36 , 20  17 

38 

37,2347 

TO 

37 ,2400 

PAGF 

AO 
731 
7 32 
733 

73  A 

735 

736 
7 37 

736 

739 

740 

741 

742 

74  3 
7 v 
745 


746 

747 

748 

749 


753 
7 54 
758 

756 

757 

758 

759 
74Q 

761 

762 

763 
36 


44 

373 

374 

375 

376 

377 

378 

379 
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37,2401  TP  37,2457  380 
37,2460  TO  37,2477  381 
37,2500  TO  37,2535  383 
37,2536  TO  37,2576  384 

37,2577  TO  37 ,2656  385 
37,7657  TO  37,2736  386 
37,2737  TO  37,3004  387 
37, 3005  TO  37,3057  388 

37,3060  TO  37,3112  369 
37,311?  TC  37,3132  703 
37,3133  TO  37,3211  704 
37,3212  TO  37,3273  705 


TC  37,3351  706 
TO  37,3407  707 
TP  37,3440  857 
TO  37,3504  858 


3 7,3274 
37,3352 
37,3416 
37,3441 

37,3505  TC, 

S'7,  3542  TO 
37,361'  TC 


37,3655 
37, 3714 
37,3750 
37, 3774 


37,3540  859 

3?, 3541  869 

37,3613  870 

37 ,3654  871 


TO 

37,3713 

1335 

TO 

37,3747 

1336 

TO 

37,3773 

133? 

TO 

37,3775 

36 

40,2000 
40 , 2047 
40,2077 

TO 

TO 

TO: 

40,2151 

TO 

40,2217 

TO 

40,2300 

TO 

40,2352 

TO 

40,2425 

TO 

40,2467 

TO 

40,2543 

TO 

TO 

40,2615 

40,2656 

TO 

40,2723 

TO 

40,2767 

TO 

40,2771 

TO 

40,3010 

TO 

40,2046 

299 

40,2076 

300 

40,2150 

398 

40,2216 

399 

'0,2277 

'■-00 

40,2351 

401 

40,2424 

402 

40,2466 

403 

40 ,2542 

404 

40,2614 

405 

40 , 2655 

418 

40,2722 

419 

40,2766 

42  C 

40,2770 

421 

40,3007 

'*2  4 

40 , 3035 

431 

2 , 1970 

OCCUPIED 

40,3036 

40,3111 

40,3162 

40,3200 

40,3251 
40,3306 
40,3322 
4C  , 3347 

40 , 34  1 6 
40,34' 2 
40,3452 
40,3461 


40,3506 
40,35  3'* 
40,3577 

40,3603 
4 p , 36  5 1 
'•0,36  74 
40,37  1 ? 

41,2000 
41 , 2034 
41,2113 
41,2170 

41,2221 
41 ,2265 
41 ,2343 
41,2353 

41,2431 

41,2476 

41,2551 

41,261* 

41, 2660 
41,2740 
4 1,30  14 
41,3067 

41,3141 
41 ,32  1 1 
41 ,323 n 
41,3256 
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TO 

'*0,31  10 

432 

TO 

40,3161 

433 

TO 

40,3177 

434 

TO 

40,3250 

441 

TP 

40,3305 

442 

TO 

40,3321 

443 

TO 

40, 3346 

444 

TO 

40,3415 

445 

TO 

'0,3441 

446 

TO 

40,3451 

448 

TO 

40, 3'60 

449 

TO 

40,3504 

450 

40,3505 

456 

TO 

40,3533 

457 

TO 

40,3576 

458 

TO 

40,3602 

459  . 

TO 

40,3650 

470 

TO 

'0,3673 

471 

TO 

40,3712 

703 

TO 

'0,3714 

36 

TO 

41,2033 

406 

TO 

41,2112 

407 

TO 

41,2167 

408 

TO 

'■  1,2220 

409 

TO 

41,2264 

410 

TO 

4 1 , 2342 

411 

TO 

4 1,2352 

412 

TO 

'-1,24  30 

414 

TO 

' 1 , 2475 

415 

TO 

41,2550 

416 

TO 

'1,2615 

417 

TO 

41 ,2'  r7 

425 

TO 

'1,2737 

426 

TO 

' 1 , 3C  1 3 

427 

TO 

4 1,3066 

428 

TO 

41,3140 

429 

TC 

'1,3210 

430 

TO 

41, 3227 

431 

TO 

' 1 ,3255 

437 

TO 

41,3327 

438 
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41,3330 

TO 

41,3352 

439 

42  ,3  606 

486 

41,3353 

TO 

41 ,3362 

440 

42 , 3607 

TO 

42 ,3670 

487 

41,3363 

TO 

*■ -1,34  14 

44  3 

42,3671 

TU 

42 ,3  (52 

468 

41,3615 

TO 

41,34  27 

444 

42,3753 

TO 

42 ,3771 

489 

4 1,3*:  30 

TO 

M ,34  70 

4*7 

62 ,3772 

TO 

42 ,3773 

36 

41,3471 

TO 

41,35  15 

448 

43 , 2000 

TO 

43  ,2045 

262 

4 1,3516 

TO 

41,3573 

453 

43 , 2046 

TO 

43 , 2 1 1 5 

263 

41,3574 

TO 

41, 36  12 

454 

43,2116 

TO 

43  ,2127 

264 

4 1,36  13 

TO 

41 , 3656 

467 

43,2130 

TO 

43,2162 

265 

4 1,3657 

TO 

*-1,3725 

468 

43,2163 

ti- 

43 ,2170 

266 

4 1,3726 

TO 

41 , 37  30 

469 

43,2171 

to 

43,2176 

267 

4 1,3731 

TO 

41 ,3732 

36 

4 3,2177 

TO 

43  ,2226 

268 

42,2000 

TO 

42,2001 

66 

43,2227 

TO 

63 ,2274 

269 

42,2002 

TO 

42,2034 

275 

43,2275 

TO 

43,2321 

270 

42,2035 

TO 

a -> . ? n t 

•?  3? 

/,  -X  . ? -I  ? 5 

?7  1 

r c.  f C- ' ' D 

-7  f C.  J A C 

C.  1 1 

42,2054 

TO 

42,2064 

287 

43,2323 

TO 

43 ,2327 

272 

4 2,2066 

TO 

42,2102 

288 

43,2330 

TO 

43,2360 

27  3 

42,2103 

TO 

42,2141 

3 04 

43,2361 

TO 

63  ,2400 

274 

42,2142 

rn 

42 , 22  07 

3 05 

*3 , 2401 

TO 

43 ,2403 

275 

42,2210 

TD 

42,2243 

306 

43,2604 

TO 

43,2446 

276 

42,2244 

TO 

42,2270 

307 

43,2447 

TC 

43,2517 

277 

42,2271 

TO 

42,2330 

3C8 

43,2520 

TO 

43 ,2573 

27  8 

4 2,2331 

TO 

42,2400 

309 

43,2574 

TC 

43  ,2641 

279 

42,2401 

TO 

42,24  37 

3 10 

43,2642 

TO 

43  ,2706 

280 

42,26^0 

TO 

42,2503 

311 

43,2707 

TO 

63,2744 

281 

42,2504 

TO 

42,2562 

312 

43 ,2745 

282 

42,2563 

TO 

42,2645 

313 

43,2746 

TO 

43,2763 

283 

42,2646 

TO 

42,27  22 

314 

* 3,2764 

TO 

43 , 300  5 

284 

4 2,2723 

TO 

42,3004 

3 1 5 

63 , 3006 

TO 

43 ,3014 

285 

42,3005 

TO 

42,3066 

3 16 

43, 3015 

TO 

43 , 3023 

286 

42, 30^  7 

TO 

42,3143 

317 

43 , 3024 

TO 

43 ,3044 

287 

42,3144 

TC 

42,3225 

318 

43,3045 

TO 

43 , 3053 

288 

42,3226 

rr 

42,32  27 

3 19 

43,3054 

TO 

43 , 306  3 

289 

42, 3230 

TO 

42,32  74 

421 

43,3064 

TO 

43,3123 

2 90 

42,3275 

TO 

42,3353 

*•■22 

43,3124 

TO 

43 ,3134 

291 

42,3354 

TO 

42,3431 

423 

43, 3135 

TO 

43 ,3141 

292 

42,3432 

TO 

42,34  51 

4 2 4 

63,31 4 2 

TO 

43 ,3201 

397 

42,3452 

TO 

42 ,35  04 

4 3 4 

43 , 3202 

TO 

43 ,3227 

298 

42,3505 

TO 

42,3562 

435 

43,3230 

TO 

43 ,3231 

299 

42,3563 

TO 

42,3605 

436 

63,3232 

TO 

43 ,3270 

1286 
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43,3271 

TO 

43,3336 

1287 

43,3337 

TO 

43,3412 

1288 

43,3413 

TC 

43,3672 

1289 

43, 3*73 

TO 

43,3535 

129  0 

43,3536 

TO 

43 , 3614 

1 291 

43,3  L 5 

TO 

43 , 3673 

1 2°2 

43, 3674 

TO 

43,3723 

1 293 

43,3724 

TO 

43,3743 

1388 

43,3744 

TO 

43,3751 

1 38c 

43,375? 

TO 

43,3753 

36 

PAGE 
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THE  SUBROUTINES 

IN  THIS  PROGRAM  ARE  AS  FOLLOWS : 

LUMERASF.120 

A P 1 1 A T D .001 

LEMP2DS  .127 

LEMP30S  .103 

KISSING  .050 

FLY  .13? 

LEMP50S  .llc 

SKIPPER  ;0P7 

LMDAP  .Cl  5 

THE  ASSEMBLY  WAS  GOOD  AMD  MANUFACTURABLE.  NO  LINES  WERE  CUSSED 
BINARY  RECORDS  FUR  "AP 1 1 RQPE » ROC  IV  SUCCESSFULLY  STORED. 
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WILSON  JONES 


NYLON  POST  BINDER 


N 

^TYPE  1/.Q2Q  GENUINE  PRESSBOARDy 
2 PURPOSE  BINDER 

This  binder  may  be  used  to  bind  both  marginal-punched  sheets  and  forms 
punched  with  2%",  4%",  6",  7",  8'A",  13%"  and  14%"  center-to-center  holes. 


TOP  AND 
BOTTOM  LOADING 


Insert  posts  thru  end  holes 
of  stub  as  in  illustration  (a). 
Plug  posts  into  top  holes 
in  both  margins  of  sheets. 
Put  on  top  cover  as  in  Il- 
lustrations (c)  and  (d). 
(Also  see  No.  2 below) 


This  binder  may  be  loaded 
from  the  top  or  bottom  by 
using  posts  without  screw 
heads.  Askthe  dealer  from 
whom  you  bought  the 
binder  for  Posts  and 
Slides  Pack  No.  1323. 


2.  CONVENTIONALLY  PUNCHED 
LOOSE  LEAF  SHEETS 
AND  STRIPPED  UNBURST  SHEETS 

Follow  steps  (a)  thru  (d)  at  left,  except  that  posts 
should  ne  threaded  into  holes  in  stub  that  corre- 
spond to  holes  in  forms  or  sheets  to  be  bound.. 


O WILSON  JONES  COMPANY 


(J2675  A} 


BURST 


1.  MARGINAL-PUNCHED  SHr~TS 

Ut  URST 


Insert  posts  in  end  holes  of 
stub.  Turn  counter-clock- 
wise until  heads  are  flush 
against  inside  of  channel., 


Gather  sheets  In  even 
stack.  Insert  posts  in  sec- 
ond holes  from  both  ends 
^pf  the  sheets.. 


Put  top  cover  on  with  stub 
turned  under.  Insert  posts 
thru  end  holes. 


Bend  posts 
down  into  channel. 
Push  locks  over  posts 
toward  outside  ends  of 
channel  until  snug. 


A. 


J 


4 at. 


' 

v- -I 


I, 

4 


i 


